Changeset 2079 for trunk/LMDZ.MARS/libf/phymars/dyn1d

Timestamp:

Jan 22, 2019, 5:02:23 PM (6 years ago)

Author:

mvals

Message:

Mars GCM:

• Update of rocketduststorm_mod.F90 :

We want to separate both parametrizations related to the formation of the detached dust layers. Therefore, rocketduststorm_mod.F90 now only comprises the rocket dust storm scheme, whereas it contained
also before the calculation of the vertical velocity induced by the presence of the sub-grid scale topography. This latter part is under development and will be integrated as a fully independant
parametrization: the aim is to simulate the entrainment of dust by slope winds, from the boundary layer up to the top of the sub-grid scale topography.

• Addition of initial surface parameters "summit" and "base" to prepare the previously described slope wind parametrization

MV

File:

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

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

@@ -11 +11 @@
      &                     albedice, iceradius, dtemisice, z0,
      &                     zmea, zstd, zsig, zgam, zthe, phisfi,
-     &                     watercaptag, hmons
+     &                     watercaptag, hmons, summit, base
       use slope_mod, only: theta_sl, psi_sl
       use phyredem, only: physdem0,physdem1
@@ -556 +556 @@
       zsig(1)=0.E+0
       zgam(1)=0.E+0
-      zthe(1)=0.E+0
-c  for rocket dust storm scheme      
+      zthe(1)=0.E+0      
       hmons(1)=0.E+0
-
-
+      summit(1)=0.E+0
+      base(1)=0.E+0
+      
 c   Specific initializations for "physiq"
 c   -------------------------------------
@@ -718 +718 @@
       call physdem0("startfi.nc",longitude,latitude,nsoilmx,ngrid,llm,
      &              nq,dtphys,float(day0),time,cell_area,
-     &              albedodat,inertiedat,zmea,zstd,zsig,zgam,zthe,hmons)
+     &              albedodat,inertiedat,zmea,zstd,zsig,zgam,zthe,
+     &              hmons,summit,base)
       call physdem1("startfi.nc",nsoilmx,ngrid,llm,nq,
      &              dtphys,time,