LMDZ
declare_STDlev.h
Go to the documentation of this file.
1 !IM for NMC files
2 ! real twriteSTD(klon,nlevSTD,nfiles)
3 ! real qwriteSTD(klon,nlevSTD,nfiles)
4 ! real rhwriteSTD(klon,nlevSTD,nfiles)
5 ! real phiwriteSTD(klon,nlevSTD,nfiles)
6 ! real uwriteSTD(klon,nlevSTD,nfiles)
7 ! real vwriteSTD(klon,nlevSTD,nfiles)
8 ! real wwriteSTD(klon,nlevSTD,nfiles)
9 
10  real twriteSTD3(klon,nlevSTD3)
11  real qwriteSTD3(klon,nlevSTD3)
12  real rhwriteSTD3(klon,nlevSTD3)
13  real phiwriteSTD3(klon,nlevSTD3)
14  real uwriteSTD3(klon,nlevSTD3)
15  real vwriteSTD3(klon,nlevSTD3)
16  real wwriteSTD3(klon,nlevSTD3)
17 
18  real tnondefSTD8(klon,nlevSTD8)
19  real twriteSTD8(klon,nlevSTD8)
20  real qwriteSTD8(klon,nlevSTD8)
21  real rhwriteSTD8(klon,nlevSTD8)
22  real phiwriteSTD8(klon,nlevSTD8)
23  real uwriteSTD8(klon,nlevSTD8)
24  real vwriteSTD8(klon,nlevSTD8)
25  real wwriteSTD8(klon,nlevSTD8)
26 
27  real, save :: rlevSTD(nlevSTD)
28  DATA rlevSTD/100000., 92500., 85000., 70000., &
29  60000., 50000., 40000., 30000., 25000., 20000., &
30  15000., 10000., 7000., 5000., 3000., 2000., 1000./
31 !$OMP THREADPRIVATE(rlevstd)
32 
33  CHARACTER*4, SAVE :: clevSTD(nlevSTD)
34  DATA clevSTD/'1000','925 ','850 ','700 ','600 ', &
35  '500 ','400 ','300 ','250 ','200 ','150 ','100 ', &
36  '70 ','50 ','30 ','20 ','10 '/
37 !$OMP THREADPRIVATE(clevSTD)
38 
39  real, save :: rlevSTD3(nlevSTD3)
40  DATA rlevSTD3/85000., 50000., 25000./
41 !$OMP THREADPRIVATE(rlevSTD3)
42 
43  real, save :: rlevSTD8(nlevSTD8)
44  DATA rlevSTD8/100000., 85000., 70000., 50000., 25000., 10000., &
45  5000., 1000./
46 !$OMP THREADPRIVATE(rlevSTD8)
47 !
48  REAL geo500(klon)
49 
50 ! nout : niveau de output des variables a une pression donnee
51  logical oknondef(klon,nlevSTD,nout)
52 !
53 ! les produits uvSTD, vqSTD, .., T2STD sont calcules
54 ! a partir des valeurs instantannees toutes les 6 h
55 ! qui sont moyennees sur le mois
56 
57  REAL zx_tmp_fiNC(klon,nlevSTD)
58 
59 ! REAL missing_val
60  REAL, SAVE :: freq_moyNMC(nout)
61 !$OMP THREADPRIVATE(freq_moyNMC)
klon
INTERFACE SUBROUTINE RRTM_ECRT_140GP klon
Definition: rrtm_ecrt_140gp.intfb.h:3
THREADPRIVATE
!IM for NMC files!real nfiles!real nfiles!real nfiles!real nlevSTD3 real nlevSTD3 real nlevSTD3 real nlevSTD3 real nlevSTD8 real nlevSTD8 real nlevSTD8 real nlevSTD8!$OMP THREADPRIVATE(rlevstd) CHARACTER *4
vwriteSTD8
!IM for NMC files!real nfiles!real nfiles!real nfiles!real nlevSTD3 real nlevSTD3 real nlevSTD3 real nlevSTD3 real nlevSTD8 real nlevSTD8 real nlevSTD8 real vwriteSTD8(klon, nlevSTD8) real wwriteSTD8(klon
phiwriteSTD8
!IM for NMC files!real nfiles!real nfiles!real nfiles!real nlevSTD3 real nlevSTD3 real nlevSTD3 real nlevSTD3 real nlevSTD8 real nlevSTD8 real phiwriteSTD8(klon, nlevSTD8) real uwriteSTD8(klon
twriteSTD
!IM for NMC files!real twriteSTD(klon, nlevSTD, nfiles)!real qwriteSTD(klon
REAL
!$Id ok_orolf LOGICAL ok_limitvrai LOGICAL ok_all_xml INTEGER iflag_ener_conserv REAL solaire REAL(kind=8) RCO2
rhwriteSTD
!IM for NMC files!real nfiles!real rhwriteSTD(klon, nlevSTD, nfiles)!real phiwriteSTD(klon
uwriteSTD
!IM for NMC files!real nfiles!real nfiles!real uwriteSTD(klon, nlevSTD, nfiles)!real vwriteSTD(klon
pression
subroutine pression(ngrid, ap, bp, ps, p)
Definition: pression.F90:2
phiwriteSTD3
!IM for NMC files!real nfiles!real nfiles!real nfiles!real nlevSTD3 real nlevSTD3 real phiwriteSTD3(klon, nlevSTD3) real uwriteSTD3(klon
wwriteSTD
!IM for NMC files!real nfiles!real nfiles!real nfiles!real wwriteSTD(klon, nlevSTD, nfiles) real twriteSTD3(klon
phys_state_var_mod::nout
integer, parameter nout
Definition: phys_state_var_mod.F90:16
sur
c c zjulian c cym CALL iim cym klev iim cym jjmp1 cym On stoke le fichier bilKP instantanne sur
Definition: ini_bilKP_ins.h:41
phys_output_var_mod::nfiles
integer, parameter nfiles
Definition: phys_output_var_mod.F90:29
nlevSTD
!IM for NMC files!real nlevSTD
Definition: declare_STDlev.h:3
qwriteSTD3
!IM for NMC files!real nfiles!real nfiles!real nfiles!real nlevSTD3 real qwriteSTD3(klon, nlevSTD3) real rhwriteSTD3(klon
rlevSTD
!$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 rlevSTD
Definition: calcul_STDlev.h:26
qwriteSTD8
!IM for NMC files!real nfiles!real nfiles!real nfiles!real nlevSTD3 real nlevSTD3 real nlevSTD3 real nlevSTD3 real nlevSTD8 real qwriteSTD8(klon, nlevSTD8) real rhwriteSTD8(klon
tnondefSTD8
!IM for NMC files!real nfiles!real nfiles!real nfiles!real nlevSTD3 real nlevSTD3 real nlevSTD3 real nlevSTD3 real tnondefSTD8(klon, nlevSTD8) real twriteSTD8(klon
de
do llm!au dessus de
Definition: 1D_nudge_sandu_astex.h:1
real
!IM for NMC files!real nfiles!real nfiles!real nfiles!real nlevSTD3 real nlevSTD3 real nlevSTD3 real nlevSTD3 real nlevSTD8 real nlevSTD8 real nlevSTD8 real nlevSTD8 real
Definition: declare_STDlev.h:27
vwriteSTD3
!IM for NMC files!real nfiles!real nfiles!real nfiles!real nlevSTD3 real nlevSTD3 real nlevSTD3 real vwriteSTD3(klon, nlevSTD3) real wwriteSTD3(klon