LMDZ
laplacien_rot.F
Go to the documentation of this file.
1 !
2 ! $Header$
3 !
4  SUBROUTINE laplacien_rot ( klevel, rotin, rotout,ghx,ghy )
5 c
6 c P. Le Van
7 c
8 c ************************************************************
9 c ... calcul de ( rotat x nxgrad ) du rotationnel rotin .
10 c ************************************************************
11 c
12 c klevel et rotin sont des arguments d'entree pour le s-prog
13 c rotout est un argument de sortie pour le s-prog
14 c
15  IMPLICIT NONE
16 c
17 #include "dimensions.h"
18 #include "paramet.h"
19 #include "comgeom.h"
20 
21 c
22 c .......... variables en arguments .............
23 c
24  INTEGER klevel
25  REAL rotin( ip1jm,klevel ), rotout( ip1jm,klevel )
26 c
27 c .......... variables locales ................
28 c
29  REAL ghy(ip1jm,klevel), ghx(ip1jmp1,klevel)
30 c ........................................................
31 c
32 c
33  CALL filtreg ( rotin , jjm, klevel, 2, 1, .false., 1 )
34 
35  CALL nxgrad ( klevel, rotin, ghx , ghy )
36  CALL rotatf ( klevel, ghx , ghy , rotout )
37 c
38  RETURN
39  END
ip1jmp1
!$Header llmm1 INTEGER ip1jmp1
Definition: paramet.h:14
nxgrad
subroutine nxgrad(klevel, rot, x, y)
Definition: nxgrad.F:5
rotatf
subroutine rotatf(klevel, x, y, rot)
Definition: rotatf.F:5
ip1jm
!$Header llmm1 INTEGER ip1jm
Definition: paramet.h:14
false
!$Id itapm1 ENDIF!IM on interpole les champs sur les niveaux STD de pression!IM a chaque pas de temps de la physique c!positionnement de l argument logique a false c!pour ne pas recalculer deux fois la meme chose!c!a cet effet un appel a plevel_new a ete deplace c!a la fin de la serie d appels c!la boucle DO nlevSTD a ete internalisee c!dans d ou la creation de cette routine c c!CALL false
Definition: calcul_STDlev.h:26
filtreg
subroutine filtreg(champ, nlat, nbniv, ifiltre, iaire, griscal, iter)
Definition: filtreg.F:6
laplacien_rot
subroutine laplacien_rot(klevel, rotin, rotout, ghx, ghy)
Definition: laplacien_rot.F:5