Changeset 2009 for LMDZ5/trunk/libf/phylmd/radlwsw_aero.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/radlwsw_aero.F90 (modified) (4 diffs)

LMDZ5/trunk/libf/phylmd/radlwsw_aero.F90

@@ -33 +33 @@
 ! USE YOERAD   , ONLY : NSW      ,LRRTM    ,LCCNL    ,LCCNO ,&
 ! NSW mis dans .def MPL 20140211
-  USE YOERAD   , ONLY : LRRTM    ,LCCNL    ,LCCNO ,&
-      NRADIP   , NRADLP , NICEOPT, NLIQOPT ,RCCNLND  , RCCNSEA
-  USE YOELW    , ONLY : NSIL     ,NTRA     ,NUA      ,TSTAND   ,XP
-  USE YOESW    , ONLY : RYFWCA   ,RYFWCB   ,RYFWCC   ,RYFWCD,&   
-      RYFWCE   ,RYFWCF   ,REBCUA   ,REBCUB   ,REBCUC,&   
-      REBCUD   ,REBCUE   ,REBCUF   ,REBCUI   ,REBCUJ,&  
-      REBCUG   ,REBCUH   ,RHSAVI   ,RFULIO   ,RFLAA0,&  
-      RFLAA1   ,RFLBB0   ,RFLBB1   ,RFLBB2   ,RFLBB3,&  
-      RFLCC0   ,RFLCC1   ,RFLCC2   ,RFLCC3   ,RFLDD0,&  
-      RFLDD1   ,RFLDD2   ,RFLDD3   ,RFUETA   ,RASWCA,& 
-      RASWCB   ,RASWCC   ,RASWCD   ,RASWCE   ,RASWCF
+#ifdef CPP_RRTM
+!  USE YOERAD   , ONLY : LRRTM    ,LCCNL    ,LCCNO ,&
+!      NRADIP   , NRADLP , NICEOPT, NLIQOPT ,RCCNLND  , RCCNSEA
+!  USE YOELW    , ONLY : NSIL     ,NTRA     ,NUA      ,TSTAND   ,XP
+!  USE YOESW    , ONLY : RYFWCA   ,RYFWCB   ,RYFWCC   ,RYFWCD,&   
+!      RYFWCE   ,RYFWCF   ,REBCUA   ,REBCUB   ,REBCUC,&   
+!      REBCUD   ,REBCUE   ,REBCUF   ,REBCUI   ,REBCUJ,&  
+!      REBCUG   ,REBCUH   ,RHSAVI   ,RFULIO   ,RFLAA0,&  
+!      RFLAA1   ,RFLBB0   ,RFLBB1   ,RFLBB2   ,RFLBB3,&  
+!      RFLCC0   ,RFLCC1   ,RFLCC2   ,RFLCC3   ,RFLDD0,&  
+!      RFLDD1   ,RFLDD2   ,RFLDD3   ,RFUETA   ,RASWCA,& 
+!      RASWCB   ,RASWCC   ,RASWCD   ,RASWCE   ,RASWCF
 !&    RASWCB   ,RASWCC   ,RASWCD   ,RASWCE   ,RASWCF, RLINLI
-  USE YOERDU   , ONLY : NUAER  ,NTRAER ,REPLOG ,REPSC  ,REPSCW ,DIFF
-  USE YOETHF   , ONLY : RTICE
-  USE YOERRTWN , ONLY : DELWAVE   ,TOTPLNK      
+!  USE YOERDU   , ONLY : NUAER  ,NTRAER ,REPLOG ,REPSC  ,REPSCW ,DIFF
+!  USE YOETHF   , ONLY : RTICE
+!  USE YOERRTWN , ONLY : DELWAVE   ,TOTPLNK      
   USE YOMPHY3  , ONLY : RII0
+#endif
       
   IMPLICIT NONE
@@ -274 +276 @@
   REAL*8 zsolsw_aero(kdlon,9), zsolsw0_aero(kdlon,9)
 
+  CHARACTER (LEN=20) :: modname
+  CHARACTER (LEN=80) :: abort_message
+
   ! initialisation
   ist=1
@@ -524 +529 @@
 
       else
+#ifdef CPP_RRTM
       DO k = 1, kflev+1
       DO i = 1, kdlon
@@ -766 +772 @@
          ENDDO
       ENDDO
+#else
+
+            abort_message='You should compile with -rrtm if running with iflag_rrtm=1'
+            call abort_gcm(modname,abort_message,1)
+#endif
       ENDIF   ! if(iflag_rrtm=0)
          print*,'OK3'