Changeset 2146 for LMDZ5/trunk/libf/phylmd/rrtm/radlsw.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/radlsw.intfb.h (modified) (2 diffs)

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

@@ -1 +1 @@
 INTERFACE
-SUBROUTINE RADLSW&
- & ( KIDIA, KFDIA , KLON , KLEV , KMODE, KAER,&
+SUBROUTINE RADLSW &
+ & ( KIDIA, KFDIA , KLON , KLEV  , KMODE, KAER,&
  & PRII0,&
  & PAER , PALBD , PALBP, PAPH , PAP,&
  & PCCNL, PCCNO,&
- & PCCO2, PCLFR , PDP , PEMIS, PEMIW , PLSM , PMU0, POZON,&
- & PQ , PQIWP , PQLWP, PQS , PQRAIN, PRAINT,&
- & PTH , PT , PTS , PNBAS, PNTOP,&
- & PREF_LIQ , PREF_ICE,&
- & PEMIT, PFCT , PFLT , PFCS , PFLS,&
+ & PCCO2, PCLFR , PDP  , PEMIS, PEMIW , PLSM , PMU0, POZON,&
+ & PQ   , PQIWP , PQLWP, PQS  , PQRAIN, PRAINT,&
+ & PTH  , PT    , PTS  , PNBAS, PNTOP,&
+ & PREF_LIQ, PREF_ICE,&
+ & PEMIT, PFCT  , PFLT , PFCS , PFLS,&
  & PFRSOD,PSUDU , PUVDF, PPARF, PPARCF, PTINCF,&
- & PSFSWDIR, PSFSWDIF,PFSDNN,PFSDNV,&
- & LRDUST,PPIZA_DST,PCGA_DST,PTAUREL_DST,PFLUX,PFLUC,&
- & PFSDN ,PFSUP , PFSCDN , PFSCUP)
+ & PSFSWDIR, PSFSWDIF,PFSDNN,PFSDNV ,&  
+ & LRDUST,PPIZA_DST,PCGA_DST,PTAUREL_DST,&
+ & PTAU_LW,&
+ & PFLUX,PFLUC,PFSDN ,PFSUP , PFSCDN , PFSCUP)
+
 USE PARKIND1 ,ONLY : JPIM ,JPRB
-USE YOERAD , ONLY : LRRTM ,LCCNL ,LCCNO, LDIFFC,&
+USE YOERAD , ONLY : NLW, LRRTM ,LCCNL ,LCCNO, LDIFFC,&
  & NRADIP , NRADLP , NICEOPT, NLIQOPT, NINHOM ,NLAYINH ,&
  & RCCNLND, RCCNSEA, RLWINHF, RSWINHF, RRe2De ,&
@@ -59 +61 @@
 REAL(KIND=JPRB) ,INTENT(IN) :: PCGA_DST(KLON,KLEV,NSW)
 REAL(KIND=JPRB) ,INTENT(IN) :: PTAUREL_DST(KLON,KLEV,NSW)
+!--C.Kleinschmitt
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTAU_LW(KLON,KLEV,NLW)
+!--end
 REAL(KIND=JPRB) ,INTENT(OUT) :: PEMIT(KLON)
 REAL(KIND=JPRB) ,INTENT(OUT) :: PFCT(KLON,KLEV+1)