Changeset 1038 for trunk/LMDZ.MARS/libf/phymars/dustlift.F

Timestamp:

Sep 13, 2013, 4:01:10 PM (11 years ago)

Author:

aslmd

Message:

MESOSCALE
LMDZ.MARS

--> Performed the necessary modifications for dynamic tracers

to work with the mesoscale model (new physics).

--> Added precompiling flag MESOSCALE around pressure modifications

done in revision 883. This makes the mesoscale model become crazy.

--> Added an option -e in makemeso to erase a configuration and start over.

NOTE
--> not sure recent versions (rev>1000) are compliant with nesting compilation.
--> use mesoscale model + new physics with caution. still not stabilized.

File:

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

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

@@ -3 +3 @@
      $                  dqslift)
 
+#ifndef MESOSCALE
       use tracer_mod, only: alpha_lift, radius
+#else
+      use tracer_mod, only: alpha_lift, radius, 
+     &                      igcm_dust_mass, igcm_dust_number,
+     &                      ref_r0,r3n_q
+#endif
       IMPLICIT NONE