Changeset 1229 for LMDZ4/branches/LMDZ4-dev/libf/phylmd/conf_phys.F90

Timestamp:

Aug 17, 2009, 5:11:37 PM (15 years ago)

Author:

idelkadi

Message:

 

File:

• LMDZ4/branches/LMDZ4-dev/libf/phylmd/conf_phys.F90 (modified) (4 diffs)

LMDZ4/branches/LMDZ4-dev/libf/phylmd/conf_phys.F90

@@ -130 +130 @@
   REAL, SAVE ::  fmagic_omp, pmagic_omp
   INTEGER,SAVE :: iflag_pbl_omp,lev_histhf_omp,lev_histday_omp,lev_histmth_omp
+  Integer,save :: lev_histins_omp, lev_histLES_omp 
   CHARACTER*4, SAVE :: type_run_omp
   LOGICAL,SAVE :: ok_isccp_omp
@@ -1012 +1013 @@
   lev_histmth_omp = 2
   call getin('lev_histmth',lev_histmth_omp)
-
+!
+!Config Key  = lev_histins
+!Config Desc =
+!Config Def  = 1
+!Config Help =
+!
+  lev_histins_omp = 1
+  call getin('lev_histins',lev_histins_omp)
+  !
+!Config Key  = lev_histLES
+!Config Desc =
+!Config Def  = 1
+!Config Help =
+!
+  lev_histLES_omp = 1
+  call getin('lev_histLES',lev_histLES_omp)
   !
 !Config Key  = type_run
@@ -1335 +1351 @@
     lev_histday = lev_histday_omp
     lev_histmth = lev_histmth_omp
+    lev_histins = lev_histins_omp
+    lev_histLES = lev_histLES_omp
 
     type_ocean = type_ocean_omp
@@ -1504 +1522 @@
   write(numout,*)' lev_histday = ',lev_histday 
   write(numout,*)' lev_histmth = ',lev_histmth 
+  write(numout,*)' lev_histins = ',lev_histins
+  write(numout,*)' lev_histLES = ',lev_histLES
   write(numout,*)' iflag_pbl = ', iflag_pbl
   write(numout,*)' iflag_thermals = ', iflag_thermals