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

Timestamp:

Dec 13, 2019, 2:06:35 PM (5 years ago)

Author:

mvals

Message:

Mars GCM:
Implementation of a new parametrization of the dust entrainment by slope winds above the sub-grid scale topography. The parametrization is activated with the flag slpwind=.true. (set to "false" by
default) in callphys.def. The new parametrization involves the new tracers topdust_mass and topdust_number.
MV

File:

• trunk/LMDZ.MARS/libf/phymars/dyn1d/testphys1d.F (modified) (1 diff)

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

@@ -556 +556 @@
       zsig(1)=0.E+0
       zgam(1)=0.E+0
-      zthe(1)=0.E+0      
+      zthe(1)=0.E+0
+c
+c  for the slope wind scheme
+c  ---------------------------------
+c  
       hmons(1)=0.E+0
+      PRINT *,'hmons is initialized to ',hmons(1)
       summit(1)=0.E+0
+      PRINT *,'summit is initialized to ',summit(1)
       base(1)=0.E+0
-      
+c
+c  Default values initializing the coefficients calculated later
+c  ---------------------------------
+c  
+      tauscaling(1)=1. ! calculated in aeropacity_mod.F
+      totcloudfrac(1)=1. ! calculated in watercloud_mod.F      
+
 c   Specific initializations for "physiq"
 c   -------------------------------------