Changeset 2043 for LMDZ5/trunk/libf/phylmd/rrtm

Timestamp:

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

Author:

Laurent Fairhead

Message:

Pour compilation avec ifort

---

For ifort compilation

19. Baek

Location:

LMDZ5/trunk/libf/phylmd/rrtm

Files:

• radlsw.F90 (modified) (2 diffs)
• sucst.F90 (modified) (2 diffs)
• suphec.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 

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

@@ -289 +289 @@
   WRITE(KULOUT,'(10(1X,E10.4))') (ESW(RTT+10._JPRB*J),J=-4,4)
   WRITE(KULOUT,'(10(1X,E10.4))') (ESS(RTT+10._JPRB*J),J=-4,4)
-  call flush()       !!!!! A REVOIR (MPL) les 7 lignes qui suivent
+!  call flush(0)       !!!!! A REVOIR (MPL) les 7 lignes qui suivent
    do j=1,9
      print*,'TEST J',j
@@ -295 +295 @@
      print*,'ES(RTT...',ES(RTT+10._JPRB*(J-5))
    enddo
-  call flush()
+  call flush(0)
 
   WRITE(KULOUT,'(10(1X,E10.4))') (ES (RTT+10._JPRB*J),J=-4,4)

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

@@ -69 +69 @@
 USE YOMCST   , ONLY : RD       ,RV       ,RCPD     ,&
  & RLVTT    ,RLSTT    ,RLMLT    ,RTT      ,RATM 
-USE YOETHF   , ONLY : R2ES     ,R3LES    ,R3IES    ,R4LES    ,&
- & R4IES    ,R5LES    ,R5IES    ,RVTMP2   ,RHOH2O   ,&
- & R5ALVCP  ,R5ALSCP  ,RALVDCP  ,RALSDCP  ,RALFDCP  ,&
- & RTWAT    ,RTBER    ,RTBERCU  ,RTICE    ,RTICECU  ,&
- & RTWAT_RTICE_R      ,RTWAT_RTICECU_R    ,&
- & RKOOP1   ,RKOOP2 
+!USE YOETHF   , ONLY : R2ES     ,R3LES    ,R3IES    ,R4LES    ,&
+! & R4IES    ,R5LES    ,R5IES    ,RVTMP2   ,RHOH2O   ,&
+! & R5ALVCP  ,R5ALSCP  ,RALVDCP  ,RALSDCP  ,RALFDCP  ,&
+! & RTWAT    ,RTBER    ,RTBERCU  ,RTICE    ,RTICECU  ,&
+! & RTWAT_RTICE_R      ,RTWAT_RTICECU_R    ,&
+! & RKOOP1   ,RKOOP2 
 USE YOMPHY   , ONLY : LRAYFM15
 !USE YOERAD   , ONLY : NSW      ,NTSW     ,&
@@ -89 +89 @@
 
 IMPLICIT NONE
-
+include "YOETHF.h"
 include "clesphys.h"