Changeset 1917 for LMDZ5/trunk/libf


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

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/phylmd/physiq.F90

    r1916 r1917  
    28132813          paprs, &
    28142814          pplay, &
    2815           coefh(:,:,is_ave), &
     2815          coefh(1:klon,1:klev,is_ave), &
    28162816          pphi, &
    28172817          t_seri, &
    … …  
    33443344       paprs,    pplay,     pmfu,     pmfd, &
    33453345       pen_u,    pde_u,     pen_d,    pde_d, &
    3346        cdragh,   coefh(:,:,is_ave),   fm_therm, entr_therm, &
     3346       cdragh,   coefh(1:klon,1:klev,is_ave),   fm_therm, entr_therm, &
    33473347       u1,       v1,        ftsol,    pctsrf, &
    33483348       zustar,   zu10m,     zv10m, &
    … …  
    33723372          t,pmfu, pmfd, pen_u, pde_u, pen_d, pde_d, &
    33733373          fm_therm,entr_therm, &
    3374           cdragh,coefh(:,:,is_ave),u1,v1,ftsol,pctsrf, &
     3374          cdragh,coefh(1:klon,1:klev,is_ave),u1,v1,ftsol,pctsrf, &
    33753375          frac_impa, frac_nucl, &
    33763376          pphis,airephy,dtime,itap, &
Note: See TracChangeset for help on using the changeset viewer.