Changeset 2160 for LMDZ5/branches/testing/libf/phylmd/rrtm/radlsw.F90

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/radlsw.F90 (modified) (6 diffs)

LMDZ5/branches/testing/libf/phylmd/rrtm/radlsw.F90

@@ -11 +11 @@
  & PFRSOD,PSUDU , PUVDF, PPARF, PPARCF, PTINCF,&
  & PSFSWDIR, PSFSWDIF,PFSDNN,PFSDNV ,&  
- & LRDUST,PPIZA_DST,PCGA_DST,PTAUREL_DST,PFLUX,PFLUC,&
- & PFSDN ,PFSUP , PFSCDN , PFSCUP)
+ & LRDUST,PPIZA_DST,PCGA_DST,PTAUREL_DST,&
+ & PTAU_LW,&
+ & PFLUX,PFLUC,PFSDN ,PFSUP , PFSCDN , PFSCUP)
 
 use write_field_phy
@@ -57 +58 @@
 ! PCGA_DST   : (KPROMA,KLEV,NSW); Assymetry factor for dust 
 ! PTAUREL_DST: (KPROMA,KLEV,NSW); Optical depth of dust relative to at 550nm
+! PTAU_LW  (KPROMA,KLEV,NLW); LW Optical depth of aerosols 
 ! PREF_LIQ (KPROMA,KLEV)        ; Liquid droplet radius (um)
 ! PREF_ICE (KPROMA,KLEV)        ; Ice crystal radius (um)
@@ -127 +129 @@
 !USE YOERAD   , ONLY : NSW      ,LRRTM    ,LCCNL    ,LCCNO, LDIFFC, &
 ! NSW mis dans .def MPL 20140211
-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 ,&  
@@ -154 +156 @@
 
 include "clesphys.h"
+!!include "clesrrtm.h"
 include "YOETHF.h"
 INTEGER(KIND=JPIM),INTENT(IN)    :: KLON 
@@ -192 +195 @@
 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(IN)    :: PREF_LIQ(KLON,KLEV)
 REAL(KIND=JPRB)   ,INTENT(IN)    :: PREF_ICE(KLON,KLEV)
@@ -1101 +1107 @@
      & PTS   , PTH   , PT,&
      & ZEMIS , ZEMIW,&
-     & PQ    , PCCO2 , ZOZN  , ZCLDSW  , ZTAUCLD,&
-     & ZEMIT , PFLUX , PFLUC , ZTCLEAR &
-     & )  
+     & PQ    , PCCO2 , ZOZN  ,&
+     & ZCLDSW  , ZTAUCLD,&
+     & PTAU_LW,&
+     & ZEMIT , PFLUX , PFLUC , ZTCLEAR )
     print *,'RADLSW: apres CALL RRTM_RRTM_140GP'