Changeset 1921 for LMDZ5/branches/testing/libf/phylmd/pbl_surface_mod.F90

Timestamp:

Dec 20, 2013, 10:04:40 AM (11 years ago)

Author:

Laurent Fairhead

Message:

Merged trunk changes r1909:1920 into testing branch

Location:

LMDZ5/branches/testing

Files:

• . (modified) (1 prop)
• libf/phylmd/pbl_surface_mod.F90 (modified) (1 diff)

LMDZ5/branches/testing/libf/phylmd/pbl_surface_mod.F90

@@ -333 +333 @@
     REAL, DIMENSION(klon, klev),  INTENT(OUT)       :: d_u        ! change in u speed
     REAL, DIMENSION(klon, klev),  INTENT(OUT)       :: d_v        ! change in v speed
-    REAL, DIMENSION(klon, klev,nbsrf+1),  INTENT(OUT)       :: zcoefh     ! coef for turbulent diffusion of T and Q, mean for each grid point
-    REAL, DIMENSION(klon, klev,nbsrf+1),  INTENT(OUT)       :: zcoefm     ! coef for turbulent diffusion of U and V (?), mean for each grid point
+
+    REAL, INTENT(OUT):: zcoefh(:, :, :) ! (klon, klev, nbsrf + 1)
+    ! coef for turbulent diffusion of T and Q, mean for each grid point
+
+    REAL, INTENT(OUT):: zcoefm(:, :, :) ! (klon, klev, nbsrf + 1)
+    ! coef for turbulent diffusion of U and V (?), mean for each grid point
 
 ! Output only for diagnostics