Changeset 3317 for LMDZ6/trunk/libf/phylmd/phyredem.F90

Timestamp:

Apr 16, 2018, 3:05:55 PM (6 years ago)

Author:

musat

Message:

Utilisation de la clef iflag_cycle_diurne ; l'ancienne clef
cycle_diurne n'existe plus.

File:

• LMDZ6/trunk/libf/phylmd/phyredem.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/phyredem.F90

@@ -91 +91 @@
   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.