Changeset 2212

Timestamp:

Jan 7, 2020, 11:06:56 PM (5 years ago)

Author:

aslmd

Message:

MESOSCALE: precompiling flags 1) change in physiq_mod to avoid new GCM subgrid-scale slope wind param 2) addition in jthermcalc because abort_gcm is no longer available in mesoscale setting and this is about some lines related to pure testing.

Location:

trunk/LMDZ.MARS/libf

Files:

• aeronomars/jthermcalc.F (modified) (1 diff)
• phymars/physiq_mod.F (modified) (2 diffs)

trunk/LMDZ.MARS/libf/aeronomars/jthermcalc.F

@@ -201 +201 @@
             write(*,*) " limdown=",limdown
             write(*,*) " limup=",limup
+#ifndef MESOSCALE
             call abort_gcm('jthermcalc','error',1)
+#endif
           endif
          !CO2 interpolated coefficient

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

@@ -606 +606 @@
      &                 hmons,summit,base)
          endif
-#endif
 
 c        Initialize mountain mesh fraction for the entrainment by slope wind param.
@@ -627 +626 @@
           endif ! (ngrid.gt.1)
         endif ! if (slpwind)
+
+#endif
                  
       ENDIF        !  (end of "if firstcall")