Changeset 498 for LMDZ.3.3/branches/rel-LF/libf/phylmd/conf_phys.F90

Timestamp:

Mar 23, 2004, 5:40:20 PM (20 years ago)

Author:

lmdzadmin

Message:

IM: ajout flags pour controler niveaux sorties hf, day, mth

File:

• LMDZ.3.3/branches/rel-LF/libf/phylmd/conf_phys.F90 (modified) (5 diffs)

LMDZ.3.3/branches/rel-LF/libf/phylmd/conf_phys.F90

@@ -423 +423 @@
 
 
-!IM
+!
 !
 !Config Key  = cdmmax
@@ -470 +470 @@
   call getin('ok_kzmin',ok_kzmin)
 
-!261103
+!
+!Config Key  = lev_histhf
+!Config Desc =
+!Config Def  = 0
+!Config Help =
+!
+  lev_histhf = 0
+  call getin('lev_histhf',lev_histhf)
+
+!
+!Config Key  = lev_histday
+!Config Desc =
+!Config Def  = 1
+!Config Help =
+!
+  lev_histday = 1
+  call getin('lev_histday',lev_histday)
+
+!
+!Config Key  = lev_histmth
+!Config Desc =
+!Config Def  = 2
+!Config Help =
+!
+  lev_histmth = 2
+  call getin('lev_histmth',lev_histmth)
+
+!
 !
 !Config Key  = 
@@ -492 +519 @@
   write(numout,*)' Sortie instantanee = ', ok_instan
   write(numout,*)' Sortie bilan d''energie, if_ebil =', if_ebil
-!IM constantes physiques BEG
   write(numout,*)' Excentricite = ',R_ecc
   write(numout,*)' Equinoxe = ',R_peri
@@ -503 +529 @@
   write(numout,*)' CFC11_ppt=',CFC11_ppt,' RCFC11 =  ',RCFC11
   write(numout,*)' CFC12_ppt=',CFC12_ppt,' RCFC12 =  ',RCFC12
-!IM constantes physiques END
   write(numout,*)' epmax = ', epmax
   write(numout,*)' ok_adj_ema = ', ok_adj_ema
@@ -529 +554 @@
   write(numout,*)' ksta_ter = ',ksta_ter 
   write(numout,*)' ok_kzmin = ',ok_kzmin 
+  write(numout,*)' lev_histhf = ',lev_histhf 
+  write(numout,*)' lev_histday = ',lev_histday 
+  write(numout,*)' lev_histmth = ',lev_histmth 
 
   return