Changeset 3001 for trunk/LMDZ.MARS/libf

Timestamp:

Jul 19, 2023, 5:45:49 PM (18 months ago)

Author:

jbclement

Message:

Mars PCM:
Small fixes to compile and run 1D model related to the second to last commit.
JBC

File:

• trunk/LMDZ.MARS/libf/phymars/dyn1d/testphys1d.F (modified) (3 diffs)

trunk/LMDZ.MARS/libf/phymars/dyn1d/testphys1d.F

@@ -12 +12 @@
      &                     albedice, iceradius, dtemisice, z0,
      &                     zmea, zstd, zsig, zgam, zthe, phisfi,
-     &                     watercaptag, watercap, hmons, summit, base
+     &                     watercaptag, watercap, hmons, summit, base,
+     &                     perenial_co2ice
       use slope_mod, only: theta_sl, psi_sl
       use comslope_mod, only: def_slope,subslope_dist,def_slope_mean
@@ -255 +256 @@
       dtemisice(2) = 2.          ! time scale for snow metamorphism (south)
 
-c      endif ! .not. startfile_1D
+computeTcondc      endif ! .not. startfile_1D
 
 c     mesh surface (not a very usefull quantity in 1D)
@@ -855 +856 @@
      &              tsurf,tsoil,inertiesoil,albedo,emis,
      &              q2,qsurf,tauscaling,
-     &              totcloudfrac,wstar,watercap)
+     &              totcloudfrac,wstar,watercap,perenial_co2ice)
       endif !(.not. startfile_1D )