Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ5/trunk/libf/phylmd/pbl_surface_mod.F90

    r1907 r1919  
    333333    REAL, DIMENSION(klon, klev),  INTENT(OUT)       :: d_u        ! change in u speed
    334334    REAL, DIMENSION(klon, klev),  INTENT(OUT)       :: d_v        ! change in v speed
    335     REAL, DIMENSION(klon, klev,nbsrf+1),  INTENT(OUT)       :: zcoefh     ! coef for turbulent diffusion of T and Q, mean for each grid point
    336     REAL, DIMENSION(klon, klev,nbsrf+1),  INTENT(OUT)       :: zcoefm     ! coef for turbulent diffusion of U and V (?), mean for each grid point
     335
     336    REAL, INTENT(OUT):: zcoefh(:, :, :) ! (klon, klev, nbsrf + 1)
     337    ! coef for turbulent diffusion of T and Q, mean for each grid point
     338
     339    REAL, INTENT(OUT):: zcoefm(:, :, :) ! (klon, klev, nbsrf + 1)
     340    ! coef for turbulent diffusion of U and V (?), mean for each grid point
    337341
    338342! Output only for diagnostics
Note: See TracChangeset for help on using the changeset viewer.