subroutine put_sfxcpl_n |
( |
type(flake_t), intent(inout) |
F, |
|
|
type(isba_t), intent(inout) |
I, |
|
|
type(seaflux_t), intent(inout) |
S, |
|
|
type(surf_atm_t), intent(inout) |
U, |
|
|
type(watflux_t), intent(inout) |
W, |
|
|
character(len=6), intent(in) |
HPROGRAM, |
|
|
integer, intent(in) |
KI, |
|
|
integer, intent(in) |
KSW, |
|
|
real, dimension(ksw), intent(in) |
PSW_BANDS, |
|
|
real, dimension(ki), intent(in) |
PZENITH, |
|
|
real, dimension(ki), intent(in) |
PLAND_WTD, |
|
|
real, dimension(ki), intent(in) |
PLAND_FWTD, |
|
|
real, dimension(ki), intent(in) |
PLAND_FFLOOD, |
|
|
real, dimension(ki), intent(in) |
PLAND_PIFLOOD, |
|
|
real, dimension(ki), intent(in) |
PSEA_SST, |
|
|
real, dimension(ki), intent(in) |
PSEA_UCU, |
|
|
real, dimension(ki), intent(in) |
PSEA_VCU, |
|
|
real, dimension(ki), intent(in) |
PSEAICE_SIT, |
|
|
real, dimension(ki), intent(in) |
PSEAICE_CVR, |
|
|
real, dimension(ki), intent(in) |
PSEAICE_ALB, |
|
|
real, dimension(ki), intent(out) |
PTSRAD, |
|
|
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) |
PTSURF |
|
) |
| |