My Project
 All Classes Files Functions Variables Macros
vitvert.F
Go to the documentation of this file.
1 !
2 ! $Header$
3 !
4  SUBROUTINE vitvert ( convm , w )
5 c
6  IMPLICIT NONE
7 
8 c=======================================================================
9 c
10 c Auteurs: P. Le Van , F. Hourdin .
11 c -------
12 c
13 c Objet:
14 c ------
15 c
16 c *******************************************************************
17 c .... calcul de la vitesse verticale aux niveaux sigma ....
18 c *******************************************************************
19 c convm est un argument d'entree pour le s-pg ......
20 c w est un argument de sortie pour le s-pg ......
21 c
22 c la vitesse verticale est orientee de haut en bas .
23 c au sol, au niveau sigma(1), w(i,j,1) = 0.
24 c au sommet, au niveau sigma(llm+1) , la vit.verticale est aussi
25 c egale a 0. et n'est pas stockee dans le tableau w .
26 c
27 c
28 c=======================================================================
29 
30 #include "dimensions.h"
31 #include "paramet.h"
32 #include "comvert.h"
33 
34  REAL w(ip1jmp1,llm),convm(ip1jmp1,llm)
35  INTEGER l, ij
36 
37 
38 
39  DO 2 l = 1,llmm1
40 
41  DO 1 ij = 1,ip1jmp1
42  w( ij, l+1 ) = convm( ij, l+1 ) - bp(l+1) * convm( ij, 1 )
43  1 CONTINUE
44 
45  2 CONTINUE
46 
47  DO 5 ij = 1,ip1jmp1
48  w(ij,1) = 0.
49 5 CONTINUE
50 
51  RETURN
52  END