Changeset 998 for LMDZ4/trunk/libf/phylmd/conf_phys.F90

Timestamp:

Sep 25, 2008, 12:24:47 PM (16 years ago)

Author:

Laurent Fairhead

Message:

Modifications necessaires a la preparation au passage au nouveau rayonnement
RRTM MPL
LF

File:

• LMDZ4/trunk/libf/phylmd/conf_phys.F90 (modified) (4 diffs)

LMDZ4/trunk/libf/phylmd/conf_phys.F90

@@ -69 +69 @@
   real,SAVE           :: ratqshaut_omp
   integer,SAVE        :: iflag_radia_omp
+  integer,SAVE        :: iflag_rrtm_omp
   integer,SAVE        :: iflag_cldcon_omp, ip_ebil_phy_omp
   integer,SAVE        :: iflag_ratqs_omp
@@ -577 +578 @@
   call getin('iflag_radia',iflag_radia_omp)
 
+!
+!Config Key  = iflag_rrtm 
+!Config Desc =  
+!Config Def  = 0
+!Config Help = 
+!
+  iflag_rrtm_omp = 0
+  call getin('iflag_rrtm',iflag_rrtm_omp)
+
+!
 !Config Key  = iflag_cldcon 
 !Config Desc =  
@@ -1165 +1176 @@
     ratqshaut = ratqshaut_omp
     iflag_radia = iflag_radia_omp
+    iflag_rrtm = iflag_rrtm_omp
     iflag_cldcon = iflag_cldcon_omp
     iflag_ratqs = iflag_ratqs_omp
@@ -1266 +1278 @@
   write(numout,*)' iflag_cldcon = ', iflag_cldcon
   write(numout,*)' iflag_radia = ', iflag_radia
+  write(numout,*)' iflag_rrtm = ', iflag_rrtm
   write(numout,*)' iflag_ratqs = ', iflag_ratqs
   write(numout,*)' seuil_inversion = ', seuil_inversion