LMDZ
laplacien.F
Go to the documentation of this file.
1 !
2 ! $Header$
3 !
4  SUBROUTINE laplacien ( klevel, teta, divgra )
5 c
6 c P. Le Van
7 c
8 c ************************************************************
9 c .... calcul de (div( grad )) de teta .....
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 teta( ip1jmp1,klevel ), divgra( ip1jmp1,klevel )
25 c
26 c ............ variables locales ..............
27 c
28  REAL ghy(ip1jm,llm), ghx(ip1jmp1,llm)
29 c .......................................................
30 
31 
32 c
33  CALL scopy ( ip1jmp1 * klevel, teta, 1, divgra, 1 )
34 
35  CALL filtreg( divgra, jjp1, klevel, 2, 1, .true., 1 )
36  CALL grad ( klevel,divgra, ghx , ghy )
37  CALL divergf ( klevel, ghx , ghy , divgra )
38 
39  RETURN
40  END
grad
subroutine grad(klevel, pg, pgx, pgy)
Definition: grad.F:5
ip1jmp1
!$Header llmm1 INTEGER ip1jmp1
Definition: paramet.h:14
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
divergf
subroutine divergf(klevel, x, y, div)
Definition: divergf.F:5
scopy
subroutine scopy(n, sx, incx, sy, incy)
Definition: cray.F:9
ip1jm
!$Header llmm1 INTEGER ip1jm
Definition: paramet.h:14
jjp1
!$Header jjp1
Definition: paramet.h:14
true
!$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 ulevSTD CALL &zphi philevSTD CALL &zx_rh rhlevSTD!DO klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon du jour ou toutes les read_climoz CALL true
Definition: calcul_STDlev.h:139
filtreg
subroutine filtreg(champ, nlat, nbniv, ifiltre, iaire, griscal, iter)
Definition: filtreg.F:6
laplacien
subroutine laplacien(klevel, teta, divgra)
Definition: laplacien.F:5