Changeset 1568 for LMDZ5/trunk/libf/phylmd

Timestamp:

Sep 1, 2011, 11:40:15 AM (13 years ago)

Author:

jghattas

Message:

Corrected compiling error :
Added "#ifdef REPROBUS" to protect variables know only while compiling
with Reprobus.

Location:

LMDZ5/trunk/libf/phylmd

Files:

• radiation_AR4.F (modified) (3 diffs)
• tracreprobus_mod.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/phylmd/radiation_AR4.F

@@ -2843 +2843 @@
 
       IF (type_trac == 'repr') THEN
+#ifdef REPROBUS
          IF (ok_Rtime2D) THEN
-#ifdef REPROBUS
             PABCU(JL,19,JC)=PABCU(JL,19,JCP1)
      S           +ZABLY(JL,8,JC)*RCH42D(JL,JC)/RCO2*ZPHM6(JL)*ZDIFF
@@ -2858 +2858 @@
             PABCU(JL,24,JC)=PABCU(JL,24,JCP1)
      S           +ZABLY(JL,8,JC)*RCFC122D(JL,JC)/RCO2         *ZDIFF
-#endif
          ELSE
             ! Same calculation as for type_trac /= repr
@@ -2875 +2874 @@
      S           +ZABLY(JL,8,JC)*RCFC12/RCO2         *ZDIFF
          END IF
+#endif
       ELSE
          PABCU(JL,19,JC)=PABCU(JL,19,JCP1)

LMDZ5/trunk/libf/phylmd/tracreprobus_mod.F90

@@ -49 +49 @@
     INTEGER :: it, k
 
-
+#ifdef REPROBUS
     !   -- CHIMIE REPROBUS --
     pdt_rep=pdtphys/2.
@@ -104 +104 @@
        WRITE(solsym(it),'(i2)') it
     END DO
-
+#endif
   END SUBROUTINE tracreprobus