| 1 | MODULE YOEAER |
|---|
| 2 | |
|---|
| 3 | |
|---|
| 4 | #include "tsmbkind.h" |
|---|
| 5 | |
|---|
| 6 | IMPLICIT NONE |
|---|
| 7 | |
|---|
| 8 | SAVE |
|---|
| 9 | |
|---|
| 10 | ! ----------------------------------------------------------------- |
|---|
| 11 | !* ** *YOEAER* - RADIATIVE CHARACTERISTICS OF THE AEROSOLS |
|---|
| 12 | ! ----------------------------------------------------------------- |
|---|
| 13 | |
|---|
| 14 | |
|---|
| 15 | !* 1. SHORTWAVE COEFFICIENTS |
|---|
| 16 | ! ---------------------- |
|---|
| 17 | |
|---|
| 18 | REAL_B , DIMENSION(4,5) :: RTAUA=RESHAPE((/& |
|---|
| 19 | &.730719_JPRB,.730719_JPRB,.730719_JPRB,.730719_JPRB,& |
|---|
| 20 | &.912819_JPRB,.912819_JPRB,.912819_JPRB,.912819_JPRB,& |
|---|
| 21 | &.725059_JPRB,.725059_JPRB,.725059_JPRB,.725059_JPRB,& |
|---|
| 22 | &.745405_JPRB,.745405_JPRB,.745405_JPRB,.745405_JPRB,& |
|---|
| 23 | &.682188_JPRB,.682188_JPRB,.682188_JPRB,.682188_JPRB /)& |
|---|
| 24 | &,SHAPE=(/4,5/)) |
|---|
| 25 | REAL_B , DIMENSION(4,5) :: RPIZA=RESHAPE((/& |
|---|
| 26 | &.872212_JPRB,.872212_JPRB,.872212_JPRB,.872212_JPRB,& |
|---|
| 27 | &.982545_JPRB,.982545_JPRB,.982545_JPRB,.982545_JPRB,& |
|---|
| 28 | &.623143_JPRB,.623143_JPRB,.623143_JPRB,.623143_JPRB,& |
|---|
| 29 | &.944887_JPRB,.944887_JPRB,.944887_JPRB,.944887_JPRB,& |
|---|
| 30 | &.997975_JPRB,.997975_JPRB,.997975_JPRB,.997975_JPRB /)& |
|---|
| 31 | &,SHAPE=(/4,5/)) |
|---|
| 32 | REAL_B , DIMENSION(4,5) :: RCGA=RESHAPE((/& |
|---|
| 33 | &.647596_JPRB,.647596_JPRB,.647596_JPRB,.647596_JPRB,& |
|---|
| 34 | &.739002_JPRB,.739002_JPRB,.739002_JPRB,.739002_JPRB,& |
|---|
| 35 | &.580845_JPRB,.580845_JPRB,.580845_JPRB,.580845_JPRB,& |
|---|
| 36 | &.662657_JPRB,.662657_JPRB,.662657_JPRB,.662657_JPRB,& |
|---|
| 37 | &.624246_JPRB,.624246_JPRB,.624246_JPRB,.624246_JPRB /)& |
|---|
| 38 | &,SHAPE=(/4,5/)) |
|---|
| 39 | |
|---|
| 40 | !* 2. LONGWAVE COEFFICIENTS |
|---|
| 41 | ! --------------------- |
|---|
| 42 | |
|---|
| 43 | |
|---|
| 44 | REAL_B , DIMENSION(5,5) :: RAER=RESHAPE((/& |
|---|
| 45 | &.038520_JPRB, .037196_JPRB, .040532_JPRB, .054934_JPRB, .038520_JPRB ,& |
|---|
| 46 | &.12613_JPRB , .18313_JPRB , .10357_JPRB , .064106_JPRB, .126130_JPRB ,& |
|---|
| 47 | &.012579_JPRB, .013649_JPRB, .018652_JPRB, .025181_JPRB, .012579_JPRB ,& |
|---|
| 48 | &.011890_JPRB, .016142_JPRB, .021105_JPRB, .028908_JPRB, .011890_JPRB ,& |
|---|
| 49 | &.013792_JPRB, .026810_JPRB, .052203_JPRB, .066338_JPRB, .013792_JPRB /& |
|---|
| 50 | &),SHAPE=(/5,5/)) |
|---|
| 51 | |
|---|
| 52 | |
|---|
| 53 | ! * E.C.M.W.F. PHYSICS PACKAGE * |
|---|
| 54 | |
|---|
| 55 | ! J.-J. MORCRETTE E.C.M.W.F. 89/07/14 |
|---|
| 56 | |
|---|
| 57 | ! NAME TYPE PURPOSE |
|---|
| 58 | ! ---- : ---- : ------- |
|---|
| 59 | ! RTAUA : REAL S.W. NORMALIZED OPTICAL THICKNESS AT 0.55 MICRON |
|---|
| 60 | ! RPIZA : REAL S.W. SINGLE SCATTERING ALBEDO |
|---|
| 61 | ! RCGA : REAL S.W. ASSYMETRY FACTOR |
|---|
| 62 | ! RAER : REAL L.W. ABSORPTION COEFFICIENTS |
|---|
| 63 | ! ----------------------------------------------------------------- |
|---|
| 64 | END MODULE YOEAER |
|---|
