Changeset 3163 for trunk/LMDZ.MARS

Timestamp:

Dec 19, 2023, 5:17:31 PM (11 months ago)

Author:

csegonne

Message:

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

Location:

trunk/LMDZ.MARS

Files:

• changelog.txt (modified) (1 diff)
• libf/phymars/vdifc_mod.F (modified) (1 diff)

trunk/LMDZ.MARS/changelog.txt

@@ -4414 +4414 @@
 * A new call to vdifcd is done with updated winds (after inversion of wind u and wind v and before inversion of the potential temperature h) and zcdv / zcdh are also updated. It matches with what is done in the generic model. 
 * Old commented lines with a call to vdifcd at the begining of the tracers part of vdifc_mod have been removed.
+
+== 19/12/2023 == CS
+Little bug fix with missing arguments for vdifcd that were added in r3153

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

@@ -601 +601 @@
 c -------------------------------------------
 
-      CALL vdif_cd(ngrid,nlay,pz0,g,pzlay,zu,zv,wstar,ptsrf_tmp
-     &          ,zh,zcdv_true,zcdh_true)
+      CALL vdif_cd(ngrid,nlay,pz0,g,pzlay,pplay,pu,pv,wstar,ptsrf_tmp,
+     &          ph,virtual,mmean(:,1),zq(:,:,igcm_h2o_vap),
+     &          pqsurf(:,igcm_h2o_ice,major_slope(:)), 
+     &          zcdv_true,zcdh_true)
 
       zu2(:)=zu(:,1)*zu(:,1)+zv(:,1)*zv(:,1)