Changeset 1917

Timestamp:

Dec 12, 2013, 3:47:19 PM (11 years ago)

Author:

acozic

Message:

Change coefh dimensions in several call of subroutine (to fit with dimension declared in these routines)

File:

• LMDZ5/trunk/libf/phylmd/physiq.F90 (modified) (3 diffs)

LMDZ5/trunk/libf/phylmd/physiq.F90

@@ -2813 +2813 @@
           paprs, &
           pplay, &
-          coefh(:,:,is_ave), &
+          coefh(1:klon,1:klev,is_ave), &
           pphi, &
           t_seri, &
@@ -3344 +3344 @@
        paprs,    pplay,     pmfu,     pmfd, &
        pen_u,    pde_u,     pen_d,    pde_d, &
-       cdragh,   coefh(:,:,is_ave),   fm_therm, entr_therm, &
+       cdragh,   coefh(1:klon,1:klev,is_ave),   fm_therm, entr_therm, &
        u1,       v1,        ftsol,    pctsrf, &
        zustar,   zu10m,     zv10m, &
@@ -3372 +3372 @@
           t,pmfu, pmfd, pen_u, pde_u, pen_d, pde_d, &
           fm_therm,entr_therm, &
-          cdragh,coefh(:,:,is_ave),u1,v1,ftsol,pctsrf, &
+          cdragh,coefh(1:klon,1:klev,is_ave),u1,v1,ftsol,pctsrf, &
           frac_impa, frac_nucl, &
           pphis,airephy,dtime,itap, &