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

Timestamp:

May 16, 2018, 6:10:44 PM (7 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/phyetat0.F90 (modified) (1 diff)

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

@@ -121 +121 @@
   tab_cntrl(6)=nbapp_rad
 
-  if (cycle_diurne) tab_cntrl( 7) =1.
+  if (iflag_cycle_diurne.GE.1) tab_cntrl( 7) = iflag_cycle_diurne
   if (soil_model) tab_cntrl( 8) =1.
   if (new_oliq) tab_cntrl( 9) =1.