Changeset 2178 for LMDZ5/trunk/libf/phylmd/surf_ocean_mod.F90

Timestamp:

Jan 8, 2015, 5:59:24 PM (9 years ago)

Author:

lguez

Message:

Bug fix. This modification should have been done in revision 1068. The
bug was only for cycle_diurne false.

File:

• LMDZ5/trunk/libf/phylmd/surf_ocean_mod.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/phylmd/surf_ocean_mod.F90

@@ -33 +33 @@
 
     INCLUDE "YOMCST.h"
+
+    include "clesphys.h"
+    ! for cycle_diurne
 
 ! Input variables
@@ -152 +155 @@
 !
 !****************************************************************************************
-    IF ( MINVAL(rmu0) == MAXVAL(rmu0) .AND. MINVAL(rmu0) == -999.999 ) THEN
+    IF (cycle_diurne) THEN
+       CALL alboc_cd(rmu0,alb_eau)
+    ELSE
        CALL alboc(REAL(jour),rlat,alb_eau)
-    ELSE  ! diurnal cycle
-       CALL alboc_cd(rmu0,alb_eau)
     ENDIF