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

Timestamp:

Jul 18, 2018, 4:48:34 PM (6 years ago)

Author:

mvals

Message:

Mars GCM:
Integration of the detached dust layer parametrizations (rocket dust storm, slope wind lifting, CW, and dust injection scheme, DB).
Still experimental, default behaviour (rdstorm=.false., dustinjection=0) identical to previous revision.
NB: Updated newstart requires an updated "surface.nc" containing the "hmons" field.
EM+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
+     &                     watercaptag, hmons
       use slope_mod, only: theta_sl, psi_sl
       use phyredem, only: physdem0,physdem1
@@ -557 +557 @@
       zgam(1)=0.E+0
       zthe(1)=0.E+0
+c  for rocket dust storm scheme      
+      hmons(1)=0.E+0
 
 
@@ -716 +718 @@
       call physdem0("startfi.nc",longitude,latitude,nsoilmx,ngrid,llm,
      &              nq,dtphys,float(day0),time,cell_area,
-     &              albedodat,inertiedat,zmea,zstd,zsig,zgam,zthe)
+     &              albedodat,inertiedat,zmea,zstd,zsig,zgam,zthe,hmons)
       call physdem1("startfi.nc",nsoilmx,ngrid,llm,nq,
      &              dtphys,time,