Changeset 1455 for trunk/LMDZ.MARS/libf

Timestamp:

Jun 17, 2015, 11:51:08 AM (10 years ago)

Author:

aslmd

Message:

MESOSCALE. can now use same callphys than GCM. necessary changes are in run.def. modified initracer to be compliant with lifting differences. and also made GCM 29 levels by default.

Location:

trunk/LMDZ.MARS/libf/phymars

Files:

• initracer.F (modified) (1 diff)
• vdifc.F (modified) (1 diff)

trunk/LMDZ.MARS/libf/phymars/initracer.F

@@ -429 +429 @@
         alpha_devil(igcm_dust_mass)=9.e-9   !  dust devil lift mass coeff
 c       alpha_lift(igcm_dust_mass)=3.0e-15  !  Lifted mass coeff
+
+!! default lifting settings
+!! -- GCM: alpha_lift not zero because large-scale lifting by default
+!! -- MESOSCALE: alpha_lift zero because no lifting at all in mesoscale by default
+#ifdef MESOSCALE
+        alpha_lift(igcm_dust_mass)=0.0 
+#else
         alpha_lift(igcm_dust_mass)=1.e-6 !1.e-6 !Lifted mass coeff
+#endif
 
         r0_lift = reff_lift/ref_r0

trunk/LMDZ.MARS/libf/phymars/vdifc.F

@@ -685 +685 @@
            else if (doubleq) then
              do ig=1,ngrid
-               if(co2ice(ig).lt.1) then ! soulevement pas constant
+               if(co2ice(ig).lt.1) then ! pas de soulevement si glace CO2
                  pdqsdif(ig,igcm_dust_mass) =
      &             -alpha_lift(igcm_dust_mass)