Changeset 1038 for trunk/LMDZ.MARS/libf/phymars/initracer.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/initracer.F (modified) (4 diffs)

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

@@ -1 +1 @@
       SUBROUTINE initracer(ngrid,nq,qsurf,co2ice)
 
+#ifndef MESOSCALE
        use infotrac, only: tnom
+#endif
        use tracer_mod
        IMPLICIT NONE
@@ -61 +63 @@
 
 ! Initialization: allocate arrays in tracer_mod
-      allocate(noms(nq))
       allocate(mmol(nq))
       allocate(radius(nq))
@@ -70 +71 @@
       allocate(igcm_dustbin(nq))
 
+#ifndef MESOSCALE
+      allocate(noms(nq))
 ! Initialization: get tracer names from the dynamics and check if we are
 !                 using 'old' tracer convention ('q01',q02',...)
@@ -94 +97 @@
         noms(iq)=tnom(iq)
       enddo
+#endif
 
 c------------------------------------------------------------