Changeset 2009 for LMDZ5/trunk/libf/phylmd/physiq.F90

Timestamp:

Apr 8, 2014, 10:48:17 AM (10 years ago)

Author:

Laurent Fairhead

Message:

Rajout de la clé CPP_RRTM pour la compilation avec RRTM

---

Added CPP_RRTM key for RRTM compilation

File:

• LMDZ5/trunk/libf/phylmd/physiq.F90 (modified) (5 diffs)

LMDZ5/trunk/libf/phylmd/physiq.F90

@@ -53 +53 @@
   USE phytrac_mod, ONLY : phytrac
 
+#ifdef CPP_RRTM
   USE YOERAD   , ONLY : NRADLP
+#endif
 
   !IM stations CFMIP
@@ -2713 +2715 @@
            ELSE                       ! RRTM radiation
 !
+#ifdef CPP_RRTM
              CALL readaerosol_optic_rrtm( &
              debut, new_aod, flag_aerosol, itap, jD_cur-jD_ref, &
@@ -2719 +2722 @@
              tau_aero_rrtm, piz_aero_rrtm, cg_aero_rrtm,  &
              tausum_aero, tau3d_aero)
+#else
+
+            abort_message='You should compile with -rrtm if running with iflag_rrtm=1'
+            call abort_gcm(modname,abort_message,1)
+#endif
 !
            ENDIF
@@ -2742 +2750 @@
          CALL readaerosolstrato(debut)
         ELSE
+#ifdef CPP_RRTM
          CALL readaerosolstrato_rrtm(debut)
+#else
+
+         abort_message='You should compile with -rrtm if running with iflag_rrtm=1'
+         call abort_gcm(modname,abort_message,1)
+#endif
         ENDIF
      ENDIF
@@ -2962 +2976 @@
 
   if (ok_newmicro) then
-     IF (iflag_rrtm.NE.0.AND.ok_cdnc.AND.NRADLP.NE.3) THEN 
-      PRINT *,'RRTM choix incoherent NRADLP doit etre egal a 3 pour ok_cdnc' 
-      STOP
+     IF (iflag_rrtm.NE.0) THEN 
+#ifdef CPP_RRTM
+       IF (ok_cdnc.AND.NRADLP.NE.3) THEN
+         abort_message='RRTM choix incoherent NRADLP doit etre egal a 3 pour ok_cdnc' 
+         call abort_gcm(modname,abort_message,1)
+       endif
+#else
+
+       abort_message='You should compile with -rrtm if running with iflag_rrtm=1'
+       call abort_gcm(modname,abort_message,1)
+#endif
      ENDIF
      CALL newmicro (ok_cdnc, bl95_b0, bl95_b1, &