Changeset 3389 for LMDZ6/trunk/libf/phylmd/surf_ocean_mod.F90

Timestamp:

Sep 12, 2018, 12:53:39 PM (6 years ago)

Author:

lguez

Message:

Bug fix.

File:

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

LMDZ6/trunk/libf/phylmd/surf_ocean_mod.F90

@@ -71 +71 @@
     REAL, DIMENSION(klon), INTENT(INOUT)     :: qsurf
     REAL, DIMENSION(klon), INTENT(INOUT)     :: agesno
+    REAL, DIMENSION(klon), INTENT(inOUT):: z0h
 
 ! Output variables
 !******************************************************************************
-    REAL, DIMENSION(klon), INTENT(OUT)       :: z0m, z0h
+    REAL, DIMENSION(klon), INTENT(OUT)       :: z0m
 !albedo SB >>>
 !    REAL, DIMENSION(klon), INTENT(OUT)       :: alb1_new  ! new albedo in visible SW interval