Changeset 2153 for trunk/LMDZ.MARS/libf/phymars

Timestamp:

Sep 5, 2019, 5:40:25 PM (5 years ago)

Author:

aslmd

Message:

added a precompiling flag because a calculation is done in co2condens_mod with ap which is GCM-specific and not universal

File:

• trunk/LMDZ.MARS/libf/phymars/co2condens_mod.F (modified) (2 diffs)

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

@@ -380 +380 @@
             zdiceco2(ig) = zcondices(ig) + zfallice(ig,1)
 
+#ifdef MESOSCALE
+      print*, "not enough CO2 tracer in 1st layer to condense"
+      print*, ">>> to be implemented in the mesoscale case"
+      print*, "because this uses ap levels..."
+#else
 c           If there is not enough CO2 tracer in 1st layer to condense
 c           """"""""""""""""""""""""""""""""""""""""""""""""""""""
@@ -395 +400 @@
                ENDIF 
             ENDIF 
-
+#endif
 
 c           If the entire CO_2 ice layer sublimes