Changeset 3001

Timestamp:

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

Author:

jbclement

Message:

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

Location:

trunk

Files:

• LMDZ.COMMON/libf/evolution/init_phys_1d_mod.F90 (modified) (1 diff)
• LMDZ.MARS/changelog.txt (modified) (1 diff)
• LMDZ.MARS/libf/phymars/dyn1d/testphys1d.F (modified) (3 diffs)

trunk/LMDZ.COMMON/libf/evolution/init_phys_1d_mod.F90

@@ -262 +262 @@
         q(2,:,:)=q(1,:,:)
 
+#ifdef CPP_XIOS
       call init_physics_distribution(regular_lonlat,4,&
                                     1,1,1,nlayer,COMM_LMDZ)
+#else
+      call init_physics_distribution(regular_lonlat,4,&
+                                    1,1,1,nlayer,1)
+#endif
 
       call open_startphy("startfi_evol.nc")

trunk/LMDZ.MARS/changelog.txt

@@ -4105 +4105 @@
 == 19/07/2023 == JBC
 Some adaptations to make the 1D model run with XIOS and MPICH for use with 1D PEM.
+Small fixes to compile and run 1D model related to the second to last commit.

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 )