Changeset 1919

Timestamp:

Dec 16, 2013, 6:03:01 PM (11 years ago)

Author:

lguez

Message:

Declare assumed-shape array arguments. Special motivation (performance, memory usage) because corresponding actual arguments are array sections.

File:

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

LMDZ5/trunk/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