Changeset 498 for LMDZ.3.3

Timestamp:

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

Author:

lmdzadmin

Message:

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

Location:

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

Files:

• clesphys.h (modified) (2 diffs)
• clesphys.inc (modified) (2 diffs)
• conf_phys.F90 (modified) (5 diffs)

LMDZ.3.3/branches/rel-LF/libf/phylmd/clesphys.h

@@ -15 +15 @@
 cIM ok_kzmin : clef calcul Kzmin dans la CL de surface cf FH
        LOGICAL ok_kzmin
+cIM lev_histhf  : niveau sorties 6h
+cIM lev_histday : niveau sorties journalieres
+cIM lev_histmth : niveau sorties mensuelles
+       INTEGER lev_histhf, lev_histday, lev_histmth
 
        COMMON/clesphys/cycle_diurne, soil_model, new_oliq,
@@ -21 +25 @@
      ,     , CH4_ppb, N2O_ppb, CFC11_ppt, CFC12_ppt
      ,     , top_height, overlap, cdmmax, cdhmax, ksta, ksta_ter
-     ,     , ok_kzmin
+     ,     , ok_kzmin, lev_histhf, lev_histday, lev_histmth

LMDZ.3.3/branches/rel-LF/libf/phylmd/clesphys.inc

@@ -11 +11 @@
        REAL :: ksta, ksta_ter
        LOGICAL :: ok_kzmin
+       INTEGER :: lev_histhf, lev_histday, lev_histmth
 
        COMMON/clesphys/cycle_diurne, soil_model, new_oliq, &
@@ -17 +18 @@
      &     , CH4_ppb, N2O_ppb, CFC11_ppt, CFC12_ppt &
      &     , top_height, overlap, cdmmax, cdhmax, ksta, ksta_ter &
-     &     , ok_kzmin
+     &     , ok_kzmin, lev_histhf, lev_histday, lev_histmth

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