Changeset 3163 for trunk/LMDZ.MARS/libf


Ignore:
Timestamp:
Dec 19, 2023, 5:17:31 PM (20 months ago)
Author:
csegonne
Message:

MARS PCM
Little bug fix with missing arguments for vdifcd that were added in r3153

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.MARS/libf/phymars/vdifc_mod.F

    r3162 r3163  
    601601c -------------------------------------------
    602602
    603       CALL vdif_cd(ngrid,nlay,pz0,g,pzlay,zu,zv,wstar,ptsrf_tmp
    604      &          ,zh,zcdv_true,zcdh_true)
     603      CALL vdif_cd(ngrid,nlay,pz0,g,pzlay,pplay,pu,pv,wstar,ptsrf_tmp,
     604     &          ph,virtual,mmean(:,1),zq(:,:,igcm_h2o_vap),
     605     &          pqsurf(:,igcm_h2o_ice,major_slope(:)),
     606     &          zcdv_true,zcdh_true)
    605607
    606608      zu2(:)=zu(:,1)*zu(:,1)+zv(:,1)*zv(:,1)         
Note: See TracChangeset for help on using the changeset viewer.