subroutine INIT_SURF_ATM_n |
( |
CHARACTER(LEN=6), intent(in) |
HPROGRAM, |
|
|
CHARACTER(LEN=3), intent(in) |
HINIT, |
|
|
LOGICAL, intent(in) |
OLAND_USE, |
|
|
INTEGER, intent(in) |
KI, |
|
|
INTEGER, intent(in) |
KSV, |
|
|
INTEGER, intent(in) |
KSW, |
|
|
CHARACTER(LEN=6), dimension(ksv), intent(in) |
HSV, |
|
|
REAL, dimension(ki), intent(in) |
PCO2, |
|
|
REAL, dimension(ki), intent(in) |
PRHOA, |
|
|
REAL, dimension(ki), intent(in) |
PZENITH, |
|
|
REAL, dimension(ki), intent(in) |
PAZIM, |
|
|
REAL, dimension(ksw), intent(in) |
PSW_BANDS, |
|
|
REAL, dimension(ki,ksw), intent(out) |
PDIR_ALB, |
|
|
REAL, dimension(ki,ksw), intent(out) |
PSCA_ALB, |
|
|
REAL, dimension(ki), intent(out) |
PEMIS, |
|
|
REAL, dimension(ki), intent(out) |
PTSRAD, |
|
|
INTEGER, intent(in) |
KYEAR, |
|
|
INTEGER, intent(in) |
KMONTH, |
|
|
INTEGER, intent(in) |
KDAY, |
|
|
REAL, intent(in) |
PTIME, |
|
|
CHARACTER(LEN=28), intent(in) |
HATMFILE, |
|
|
CHARACTER(LEN=6), intent(in) |
HATMFILETYPE, |
|
|
CHARACTER(LEN=2), intent(in) |
HTEST |
|
) |
| |