Changeset 3317 for LMDZ6/trunk/libf/phylmd/surf_ocean_mod.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/surf_ocean_mod.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/surf_ocean_mod.F90

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