| 1 | MODULE YOESRTOP |
|---|
| 2 | |
|---|
| 3 | USE PARKIND1 ,ONLY : JPRB |
|---|
| 4 | |
|---|
| 5 | IMPLICIT NONE |
|---|
| 6 | |
|---|
| 7 | SAVE |
|---|
| 8 | |
|---|
| 9 | ! ----------------------------------------------------------------- |
|---|
| 10 | !* ** *YOESRTOP* - SRTM CLOUD OPTICAL PROPERTIES |
|---|
| 11 | ! OVER BANDS 16 to 29: 2600-50000, then 800-2600 cm-1 |
|---|
| 12 | ! ----------------------------------------------------------------- |
|---|
| 13 | |
|---|
| 14 | REAL(KIND=JPRB) :: EXTLIQ1(58,16:29), SSALIQ1(58,16:29), ASYLIQ1(58,16:29) |
|---|
| 15 | REAL(KIND=JPRB) :: EXTICE2(43,16:29), SSAICE2(43,16:29), ASYICE2(43,16:29) |
|---|
| 16 | REAL(KIND=JPRB) :: EXTICE3(46,16:29), SSAICE3(46,16:29), ASYICE3(46,16:29) |
|---|
| 17 | REAL(KIND=JPRB) :: FDLICE3(46,16:29), FDELTA(16:29) |
|---|
| 18 | REAL(KIND=JPRB) :: ABSCLD1 |
|---|
| 19 | |
|---|
| 20 | REAL(KIND=JPRB) :: ABSCOICE(16:29), EXTCOICE(16:29), GICE(16:29), SSACOICE(16:29), FORWICE(16:29) |
|---|
| 21 | REAL(KIND=JPRB) :: ABSCOLIQ(16:29), EXTCOLIQ(16:29), GLIQ(16:29), SSACOLIQ(16:29), FORWLIQ(16:29) |
|---|
| 22 | |
|---|
| 23 | ! ----------------------------------------------------------------- |
|---|
| 24 | ! * E.C.M.W.F. PHYSICS PACKAGE ** RRTM SW RADIATION ** |
|---|
| 25 | |
|---|
| 26 | ! J.-J. MORCRETTE E.C.M.W.F. 02/10/29 |
|---|
| 27 | ! J. DELAMERE/M. IACONO AER 08/01/2005 |
|---|
| 28 | |
|---|
| 29 | ! NAME TYPE PURPOSE |
|---|
| 30 | ! ---- : ---- : --------------------------------------------------- |
|---|
| 31 | ! xxxLIQ1 : REAL : OPTICAL PROPERTIES (EXTINCTION COEFFICIENT, SINGLE |
|---|
| 32 | ! SCATTERING ALBEDO, ASSYMETRY FACTOR) FROM |
|---|
| 33 | ! HU & STAMNES, 1993, J. CLIM., 6, 728-742 |
|---|
| 34 | ! xxxICE2 : REAL : OPTICAL PROPERTIES (EXTINCTION COEFFICIENT, SINGLE |
|---|
| 35 | ! SCATTERING ALBEDO, ASSYMETRY FACTOR) FROM STREAMER V3.0, |
|---|
| 36 | ! KEY, J., STREAMER USER'S GUIDE, COOPERATIVE INSTITUDE |
|---|
| 37 | ! FOR METEOROLOGICAL STUDIES, 2001, 95 PP. |
|---|
| 38 | ! xxxICE3 : REAL : OPTICAL PROPERTIES (EXTINCTION COEFFICIENT, SINGLE |
|---|
| 39 | ! SCATTERING ALBEDO, ASSYMETRY FACTOR) FROM |
|---|
| 40 | ! FU, 1996, J. CLIM., 9, |
|---|
| 41 | ! ----------------------------------------------------------------- |
|---|
| 42 | !$OMP THREADPRIVATE(abscld1,abscoice,abscoliq,asyice2,asyice3,asyliq1,extcoice) |
|---|
| 43 | !$OMP THREADPRIVATE(extcoliq,extice2,extice3,extliq1,fdelta,fdlice3,forwice,forwliq) |
|---|
| 44 | !$OMP THREADPRIVATE(gice,gliq,ssacoice,ssacoliq,ssaice2,ssaice3,ssaliq1) |
|---|
| 45 | END MODULE YOESRTOP |
|---|
| 46 | |
|---|
