Changeset 2160 for LMDZ5/branches/testing/libf/phylmd/rrtm/rrtm_rrtm_140gp.intfb.h

Timestamp:

Nov 28, 2014, 4:36:29 PM (10 years ago)

Author:

Laurent Fairhead

Message:

Merged trunk changes -r2070:2158 into testing branch. Compilation problems introduced by revision r2155 have been corrected by hand

Location:

LMDZ5/branches/testing

Files:

• . (modified) (1 prop)
• libf/phylmd/rrtm/rrtm_rrtm_140gp.intfb.h (modified) (2 diffs)

LMDZ5/branches/testing/libf/phylmd/rrtm/rrtm_rrtm_140gp.intfb.h

@@ -1 +1 @@
 INTERFACE
-SUBROUTINE RRTM_RRTM_140GP&
+SUBROUTINE RRTM_RRTM_140GP &
  & ( KIDIA , KFDIA , KLON , KLEV,&
- & PAER , PAPH , PAP,&
- & PTS , PTH , PT,&
+ & PAER  , PAPH  , PAP,&
+ & PTS   , PTH   , PT,&
  & P_ZEMIS , P_ZEMIW,&
- & PQ , PCCO2 , POZN,&
+ & PQ    , PCCO2 , POZN,&
  & PCLDF , PTAUCLD,&
- & PEMIT , PFLUX , PFLUC, PTCLEAR&
- & ) 
+ & PTAU_LW,&
+ & PEMIT , PFLUX , PFLUC, PTCLEAR )
 USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE YOERAD   ,ONLY : NLW !--C.Kleinschmitt
 USE PARRRTM , ONLY : JPBAND ,JPXSEC ,JPGPT ,JPLAY ,&
- & JPINPX 
+ & JPINPX  
+!-NLW in clesphys now OB
+include "clesphys.h"
 INTEGER(KIND=JPIM),INTENT(IN) :: KLON
 INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
@@ -29 +32 @@
 REAL(KIND=JPRB) ,INTENT(IN) :: PCLDF(KLON,KLEV)
 REAL(KIND=JPRB) ,INTENT(IN) :: PTAUCLD(KLON,KLEV,JPBAND)
+!--C.Kleinschmitt
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTAU_LW(KLON,KLEV,NLW) ! LW Optical depth of aerosols  
+!--end
 REAL(KIND=JPRB) ,INTENT(OUT) :: PEMIT(KLON)
 REAL(KIND=JPRB) ,INTENT(OUT) :: PFLUX(KLON,2,KLEV+1)