Changeset 3328 for LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/conf_phys_m.F90

Timestamp:

May 16, 2018, 6:10:44 PM (6 years ago)

Author:

musat

Message:

Utilisation de la clef iflag_cycle_diurne et
supression de la clef cycle_diurne.

File:

• LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/conf_phys_m.F90 (modified) (4 diffs)

LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/conf_phys_m.F90

@@ -213 +213 @@
     LOGICAL,SAVE :: ok_lic_cond_omp
     !
-    LOGICAL,SAVE  :: cycle_diurne_omp,soil_model_omp,new_oliq_omp
+    INTEGER,SAVE  :: iflag_cycle_diurne_omp
+    LOGICAL,SAVE  :: soil_model_omp,new_oliq_omp
     LOGICAL,SAVE  :: ok_orodr_omp, ok_orolf_omp, ok_limitvrai_omp
     INTEGER, SAVE :: nbapp_rad_omp, iflag_con_omp
@@ -719 +720 @@
     ! Constantes precedemment dans dyn3d/conf_gcm
 
-    !Config  Key  = cycle_diurne
-    !Config  Desc = Cycle ddiurne
-    !Config  Def  = y
+    !Config  Key  = iflag_cycle_diurne
+    !Config  Desc = Cycle diurne
+    !Config  Def  = 1
     !Config  Help = Cette option permet d'eteidre le cycle diurne.
     !Config         Peut etre util pour accelerer le code !
-    cycle_diurne_omp = .TRUE.
-    CALL getin('cycle_diurne',cycle_diurne_omp)
+    iflag_cycle_diurne_omp = 1
+    CALL getin('iflag_cycle_diurne',iflag_cycle_diurne_omp)
 
     !Config  Key  = soil_model
@@ -2165 +2166 @@
     RCFC12_per = RCFC12_per_omp
 
-    cycle_diurne = cycle_diurne_omp
+    iflag_cycle_diurne = iflag_cycle_diurne_omp
     soil_model = soil_model_omp
     new_oliq = new_oliq_omp
@@ -2526 +2527 @@
     write(lunout,*)'ok_lic_melt=', ok_lic_melt
     write(lunout,*)'ok_lic_cond=', ok_lic_cond
-    write(lunout,*)'cycle_diurne=',cycle_diurne
+    write(lunout,*)'iflag_cycle_diurne=',iflag_cycle_diurne
     write(lunout,*)'soil_model=',soil_model
     write(lunout,*)'new_oliq=',new_oliq