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

Timestamp:

May 28, 2015, 10:43:01 AM (10 years ago)

Author:

aslmd

Message:

LMDZ.MARS: problem with bps and MESOSCALE. added precompiling flag. and stop message (but one day we will have to find a generic treatment for this)

Location:

trunk/LMDZ.MARS/libf/phymars

Files:

• newcondens.F (modified) (3 diffs)
• physiq.F (modified) (1 diff)

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

@@ -11 +11 @@
        use planete_h
        USE comcstfi_h
+#ifndef MESOSCALE
        USE comvert_mod, ONLY: bp
+#endif
        IMPLICIT NONE
 c=======================================================================
@@ -544 +546 @@
 
             zmflux(1) = -zcondices(ig)
+#ifdef MESOSCALE
+            print *,"newcondens: have to do something"
+            print *,"specific for MESOSCALE here"
+            print *,"-- I don't know bp!!!"
+            stop
+#else
             DO l=1,nlayer
              zmflux(l+1) = zmflux(l) -zcondicea(ig,l)
@@ -550 +558 @@
           if (abs(zmflux(l+1)).lt.1E-13.OR.bp(l+1).eq.0.) zmflux(l+1)=0.
             END DO
+#endif
 
 c Mass of each layer

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

@@ -44 +44 @@
       use phyredem, only: physdem0, physdem1
       use eofdump_mod, only: eofdump
+      USE comvert_mod, ONLY: ap,bp,aps,bps
 #endif
-      USE comvert_mod, ONLY: ap,bp,aps,bps
 
       IMPLICIT NONE