Changeset 1411 for trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2

Timestamp:

Apr 7, 2015, 3:43:13 PM (10 years ago)

Author:

aslmd

Message:

MESOSCALE: a change in lmd_driver to get the right amount of dust in DUSTSTORM mode. changed makemeso to allow for a simple compilation with option -s DUSTSTORM

File:

• trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/phys/module_lmd_driver.F.new (modified) (1 diff)

trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/phys/module_lmd_driver.F.new

@@ -1047 +1047 @@
              pdu,pdv,pdt,pdq,pdpsrf,tracerdyn)
 #endif
+
+!! specific scenario. necessary to add the right amount of dust.
+#ifdef DUSTSTORM
+IF (firstcall .EQV. .true.) THEN
+  pdq(:,:,:) = pdq(:,:,:) / dt
+ENDIF
+#endif
+
 print *, '** Mars ** CALL TO LMD PHYSICS DONE'
 DEALLOCATE(pplev)