Changeset 3002 for LMDZ5/trunk/libf/phylmd/conf_phys_m.F90

Timestamp:

Oct 3, 2017, 8:18:41 AM (7 years ago)

Author:

Ehouarn Millour

Message:

Improved slab routines.
FC

File:

• LMDZ5/trunk/libf/phylmd/conf_phys_m.F90 (modified) (1 diff)

LMDZ5/trunk/libf/phylmd/conf_phys_m.F90

@@ -2419 +2419 @@
 
     !--test on ocean surface albedo
-    IF (iflag_albedo.LT.0.OR.iflag_albedo.GT.1) THEN
+    IF (iflag_albedo.LT.0.OR.iflag_albedo.GT.2) THEN
        WRITE(lunout,*) ' ERROR iflag_albedo<>0,1'
        CALL abort_physic('conf_phys','choice iflag_albedo not valid',1)