- Timestamp:
- Nov 28, 2014, 4:36:29 PM (10 years ago)
- Location:
- LMDZ5/branches/testing
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/branches/testing
- Property svn:mergeinfo changed
/LMDZ5/trunk merged: 2072,2075-2115,2117-2126,2128-2158
- Property svn:mergeinfo changed
-
LMDZ5/branches/testing/libf/phylmd/rrtm/rrtm_rrtm_140gp.F90
r1999 r2160 40 40 & PQ , PCCO2 , POZN,& 41 41 & PCLDF , PTAUCLD,& 42 & PTAU_LW,& 42 43 & PEMIT , PFLUX , PFLUC, PTCLEAR & 43 44 & ) … … 55 56 USE PARKIND1 ,ONLY : JPIM ,JPRB 56 57 USE YOMHOOK ,ONLY : LHOOK, DR_HOOK 57 58 USE YOERAD ,ONLY : NLW 58 59 USE PARRRTM , ONLY : JPBAND ,JPXSEC ,JPGPT ,JPLAY ,& 59 60 & JPINPX … … 80 81 REAL(KIND=JPRB) ,INTENT(IN) :: PCLDF(KLON,KLEV) ! Cloud fraction 81 82 REAL(KIND=JPRB) ,INTENT(IN) :: PTAUCLD(KLON,KLEV,JPBAND) ! Cloud optical depth 83 !--C.Kleinschmitt 84 REAL(KIND=JPRB) ,INTENT(IN) :: PTAU_LW(KLON,KLEV,NLW) ! LW Optical depth of aerosols 85 !--end 82 86 REAL(KIND=JPRB) ,INTENT(OUT) :: PEMIT(KLON) ! Surface LW emissivity 83 87 REAL(KIND=JPRB) ,INTENT(OUT) :: PFLUX(KLON,2,KLEV+1) ! LW total sky flux (1=up, 2=down) … … 204 208 & P_ZEMIS, P_ZEMIW,& 205 209 & pq , pcco2, pozn, pcldf, ptaucld, ztclear,& 206 & Z_CLDFRAC,Z_TAUCLD,Z_COLDRY,Z_WKL,Z_WX,& 210 & Z_CLDFRAC,Z_TAUCLD,& 211 & PTAU_LW,& 212 & Z_COLDRY,Z_WKL,Z_WX,& 207 213 & Z_TAUAERL,Z_PAVEL,Z_TAVEL,Z_PZ,Z_TZ,Z_TBOUND,I_NLAYERS,Z_SEMISS,IREFLECT) 208 214
Note: See TracChangeset
for help on using the changeset viewer.