source: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phyiso/rrtm/yoephy.F90 @ 3331

Last change on this file since 3331 was 3331, checked in by acozic, 7 years ago

Add modification for isotopes

  • Property svn:executable set to *
File size: 3.7 KB
Line 
1MODULE YOEPHY
2
3USE PARKIND1  ,ONLY : JPRB, JPIM
4
5IMPLICIT NONE
6
7SAVE
8
9!     -----------------------------------------------------------------
10!*    ** *YOEPHY* - SWITCHES RELATED TO DIABATIC PROCESSES
11!     -----------------------------------------------------------------
12
13!        * E.C.M.W.F. PHYSICS PACKAGE *
14
15LOGICAL :: LEPHYS
16LOGICAL :: LECOND
17LOGICAL :: LECUMF
18LOGICAL :: LEDCLD
19LOGICAL :: LEEVAP
20LOGICAL :: LEGWDG
21LOGICAL :: LEOZOC
22LOGICAL :: LEQNGT
23LOGICAL :: LERADI
24LOGICAL :: LERADS
25LOGICAL :: LESHCV
26LOGICAL :: LESICE
27LOGICAL :: LESURF
28LOGICAL :: LEVDIF
29LOGICAL :: LAGPHY
30LOGICAL :: LEPCLD
31LOGICAL :: LEO3CH
32LOGICAL :: LECO2DIU
33LOGICAL :: LBUD23
34LOGICAL :: LEMETHOX
35LOGICAL :: LERA40
36LOGICAL :: LECURR
37LOGICAL :: LVDFTRAC
38LOGICAL :: LMFTRAC
39LOGICAL :: LERAIN
40LOGICAL :: LE4ALB
41LOGICAL :: LEMWAVE
42LOGICAL :: LEOCWA
43LOGICAL :: LEOCCO
44LOGICAL :: LEOCSA
45REAL(KIND=JPRB) :: RTHRFRTI
46INTEGER(KIND=JPIM) :: NPHYINT
47INTEGER(KIND=JPIM) :: NPHPROMA
48INTEGER (KIND=JPIM) :: NEPHYS_PCFULL
49
50!     REFERENCE.
51!     ----------
52
53!     J.-J. MORCRETTE       E.C.M.W.F.      91/07/14
54
55!     MODIFICATIONS
56!     -------------
57
58!     P. Viterbo   ECMWF   03-12-2004  Include user-defined RTHRFRTI
59!     ------------------------------------------------------------------
60
61!  NAME     TYPE     PURPOSE
62!  ----  :  ----   : ---------------------------------------------------
63! LEPHYS : LOGICAL : SWITCH THE FULL E.C.M.W.F. PHYSICS PACKAGE ON
64! LAGPHY : LOGICAL : IF TRUE, PHYSICS PACKAGE CALLED IN LAGGED MODE
65! LECOND : LOGICAL : TURN THE LARGE-SCALE CONDENSATION ON
66! LECUMF : LOGICAL : TURN THE MASS-FLUX CUMULUS CONVECTION SCHEME ON
67! LEDCLD : LOGICAL : TURN THE DIAGNOSTIC CLOUD SCHEME ON
68! LEPCLD : LOGICAL : TURN THE PROGNOSTIC CLOUD SCHEME ON
69! LEEVAP : LOGICAL : TURN THE EVAPORATION OF PRECIPITATION ON
70! LEGWDG : LOGICAL : TURN THE GRAVITY WAVE DRAG ON
71! LEOZOC : LOGICAL : TURN THE CLIMATOLOGICAL OZONE ON
72! LEQNGT : LOGICAL : TURN THE NEGATIVE HUMIDITY FIXER ON
73! LERADI : LOGICAL : TURN THE RADIATION SCHEME ON
74! LERADS : LOGICAL : TURN THE INTERACTIVE SURFACE RADIATIVE PROPERTIESON
75! LESHCV : LOGICAL : TURN THE SHALLOW CONV. IN THE MASS-FLUX SCHEME ON
76! LESICE : LOGICAL : TURN THE INTERACTIVE SEA ICE PROCESSES ON
77! LESURF : LOGICAL : TURN THE INTERACTIVE SURFACE PROCESSES ON
78! LEVDIF : LOGICAL : TURN THE VERTICAL DIFFUSION ON
79! LEO3CH : LOGICAL : TURN THE O3 CHEMISTRY ON (for EC prog. ozone)
80! LECO2DIU: LOGICAL: UPDATE THE NBF CO2 FLUXES CLIMATOLOGY DURING THE RUN OF THE MODEL (introduce a diurnal cycle)
81! LBUD23 : LOGICAL : SWITCH FOR 3 AND 2 DIMENSIONAL BUDGETS
82! LEMETHOX: LOGICAL: TURN THE METHANE OXIDATION ON
83! LERA40 : LOGICAL : EXTRA PHYSICS DIAGNOSTICS FOR ERA40
84! LECURR : LOGICAL : IF TRUE, OCEAN CURRENT BOUNDARY CONDITION IS USED
85! LVDFTRAC: LOGICAL: TURN TRACER TRANSPORT BY VERTICAL DIFFUSION ON
86! LMFTRAC: LOGICAL : TURN TRACER TRANSPORT BY MASS FLUX CONVECTION ON
87! LERAIN : LOGICAL : RAIN ASSIMILATION
88! LE4ALB : LOGICAL : MODIS ALBEDO ON (DIRECT+DIFFUSE)*(UVIS+NIR)
89! LEOCWA : LOGICAL : WARM OCEAN LAYER PARAMETRIZATION
90! LEOCCO : LOGICAL : COOL OCEAN SKIN PARAMETRIZATION
91! LEOCSA : LOGICAL : SALINTY EFFECT ON SATURATION AT OCEAN SURFACE
92! RTHRFRTI : INTEGER : MINIMUM FRACTION FOR ALL SURFACE TILES
93! LE4ALB : LOGICAL  : MODIS ALBEDO (UV-Vis+NIR)x(direct+diffuse)
94!     -----------------------------------------------------------------
95
96!$OMP THREADPRIVATE(lagphy,lbud23,le4alb,leco2diu,lecond,lecumf,lecurr,ledcld)
97!$OMP THREADPRIVATE(leevap,legwdg,lemethox,lemwave,leo3ch,leocco,leocsa,leocwa)
98!$OMP THREADPRIVATE(leozoc,lepcld,lephys,leqngt,lera40,leradi,lerads,lerain)
99!$OMP THREADPRIVATE(leshcv,lesice,lesurf,levdif,lmftrac,lvdftrac,nephys_pcfull)
100!$OMP THREADPRIVATE(nphproma,nphyint,rthrfrti)
101
102END MODULE YOEPHY
Note: See TracBrowser for help on using the repository browser.