Changeset 2146 for LMDZ5/trunk/libf/phylmd/rrtm/rrtm_ecrt_140gp.intfb.h

Timestamp:

Nov 14, 2014, 9:22:21 PM (10 years ago)

Author:

idelkadi

Message:

Les modifications introduites ont pour but :
1/ d'autoriser le couplage entre INCA-aerosol et les parametrisations de
la nouvelle physique (NP) de LMDZ, en particulier les thermiques et le
transport convectif,
2/ generaliser les routines de calcul de proprietes optiques des
aerosols pour RRTM au cas ou les aerosols sont interactifs
3/ d'inclure les effets LW des aerosols stratospheriques pour RRTM

File:

• LMDZ5/trunk/libf/phylmd/rrtm/rrtm_ecrt_140gp.intfb.h (modified) (2 diffs)

LMDZ5/trunk/libf/phylmd/rrtm/rrtm_ecrt_140gp.intfb.h

@@ -1 @@
-INTERFACE
-SUBROUTINE RRTM_ECRT_140GP&
+INTERFACE 
+SUBROUTINE RRTM_ECRT_140GP &
  & ( K_IPLON, klon , klev, kcld,&
  & paer , paph , pap,&
- & pts , pth , pt,&
+ & pts  , pth  , pt,&
  & P_ZEMIS, P_ZEMIW,&
- & pq , pcco2, pozn, pcldf, ptaucld, ptclear,&
- & P_CLDFRAC,P_TAUCLD,P_COLDRY,P_WKL,P_WX,&
- & P_TAUAERL,PAVEL,P_TAVEL,PZ,P_TZ,P_TBOUND,K_NLAYERS,P_SEMISS,K_IREFLECT) 
-USE PARKIND1 ,ONLY : JPIM ,JPRB
-USE PARRRTM , ONLY : JPBAND ,JPXSEC ,JPLAY ,&
- & JPINPX 
+ & pq   , pcco2, pozn, pcldf, ptaucld, ptclear,&
+ & P_CLDFRAC,P_TAUCLD,&
+ & PTAU_LW,&
+ & P_COLDRY,P_WKL,P_WX,&
+ & P_TAUAERL,PAVEL,P_TAVEL,PZ,P_TZ,P_TBOUND,K_NLAYERS,P_SEMISS,K_IREFLECT )
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE PARRRTM  , ONLY : JPBAND   ,JPXSEC   ,JPLAY   ,&
+ & JPINPX  
+USE YOERAD   , ONLY : NLW      ,NOVLP
+USE YOERDI   , ONLY :    RCH4     ,RN2O    ,RCFC11  ,RCFC12
+USE YOESW    , ONLY : RAER
 INTEGER(KIND=JPIM),INTENT(IN) :: KLON
 INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
@@ -28 +33 @@
 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) :: PTCLEAR
 REAL(KIND=JPRB) ,INTENT(OUT) :: P_CLDFRAC(JPLAY)