LMDZ
laplacien_rotgam.F
Go to the documentation of this file.
1 !
2 ! $Header$
3 !
4  SUBROUTINE laplacien_rotgam ( klevel, rotin, rotout )
5 c
6 c P. Le Van
7 c
8 c ************************************************************
9 c ... calcul de (rotat x nxgrad)_gam du rotationnel rotin ..
10 c ************************************************************
11 c klevel et teta sont des arguments d'entree pour le s-prog
12 c divgra est un argument de sortie pour le s-prog
13 c
14  IMPLICIT NONE
15 c
16 #include "dimensions.h"
17 #include "paramet.h"
18 #include "comgeom.h"
19 
20 c
21 c ............. variables en arguments ...........
22 c
23  INTEGER klevel
24  REAL rotin( ip1jm,klevel ), rotout( ip1jm,klevel )
25 c
26 c ............ variables locales ...............
27 c
28  INTEGER l, ij
29  REAL ghy(ip1jm,llm), ghx(ip1jmp1,llm)
30 c ........................................................
31 c
32 c
33 
34  CALL nxgrad_gam ( klevel, rotin, ghx , ghy )
35  CALL rotat_nfil ( klevel, ghx , ghy , rotout )
36 c
37  DO l = 1, klevel
38  DO ij = 1, ip1jm
39  rotout(ij,l) = rotout(ij,l) * unsairz_gam(ij)
40  ENDDO
41  ENDDO
42 
43  RETURN
44  END
rotat_nfil
subroutine rotat_nfil(klevel, x, y, rot)
Definition: rotat_nfil.F:5
ip1jmp1
!$Header llmm1 INTEGER ip1jmp1
Definition: paramet.h:14
laplacien_rotgam
subroutine laplacien_rotgam(klevel, rotin, rotout)
Definition: laplacien_rotgam.F:5
llm
!$Id Turb_fcg_gcssold get_uvd hqturb_gcssold endif!large scale llm day day1 day day1 *dt_toga endif!time annee_ref dt_toga u_toga vq_toga w_prof vq_prof llm day day1 day day1 *dt_dice endif!time annee_ref dt_dice swup_dice vg_dice omega_dice tg_prof vg_profd w_profd omega_profd!do llm!print llm l llm
Definition: 1D_interp_cases.h:103
ip1jm
!$Header llmm1 INTEGER ip1jm
Definition: paramet.h:14
unsairz_gam
!$Header!CDK comgeom COMMON comgeom unsapolnga2 unsairz_gam
Definition: comgeom.h:25
nxgrad_gam
subroutine nxgrad_gam(klevel, rot, x, y)
Definition: nxgrad_gam.F:5