Changeset 2043 for LMDZ5/trunk/libf/phylmd/rrtm/radlsw.F90

Timestamp:

May 14, 2014, 1:09:20 PM (11 years ago)

Author:

Laurent Fairhead

Message:

Pour compilation avec ifort

---

For ifort compilation

19. Baek

File:

• LMDZ5/trunk/libf/phylmd/rrtm/radlsw.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/phylmd/rrtm/radlsw.F90

@@ -144 +144 @@
  & RLILIA   ,RLILIB  
 USE YOERDU        , ONLY : NUAER    ,NTRAER   ,REPLOG   ,REPSC    ,REPSCW   ,DIFF
-USE YOETHF        , ONLY : RTICE
+!USE YOETHF        , ONLY : RTICE
 USE YOEPHLI       , ONLY : LPHYLIN
 USE YOERRTWN      , ONLY :                     DELWAVE   ,TOTPLNK   
@@ -154 +154 @@
 
 include "clesphys.h"
-
+include "YOETHF.h"
 INTEGER(KIND=JPIM),INTENT(IN)    :: KLON 
 INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV