Changeset 3328 for LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/surf_ocean_mod.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/surf_ocean_mod.F90 (modified) (2 diffs)

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

@@ +1 @@
+
 !
 ! $Id$
@@ -185 +186 @@
 !--old parametrizations of ocean surface albedo
 !
-    IF (cycle_diurne) THEN
+    IF (iflag_cycle_diurne.GE.1) THEN
 !
        CALL alboc_cd(rmu0,alb_eau)