Changeset 2056 for LMDZ5/branches/testing/libf/phylmd/rrtm/suphec.F90

Timestamp:

Jun 11, 2014, 3:46:46 PM (10 years ago)

Author:

Laurent Fairhead

Message:

Merged trunk changes r1997:2055 into testing branch

Location:

LMDZ5/branches/testing

Files:

• . (modified) (1 prop)
• libf/phylmd/rrtm/suphec.F90 (modified) (2 diffs)

LMDZ5/branches/testing/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"