Changeset 1568 for LMDZ5/trunk/libf/phylmd/radiation_AR4.F

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.

File:

• LMDZ5/trunk/libf/phylmd/radiation_AR4.F (modified) (3 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)