subroutine get_sfxcpl_n |
( |
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, |
|
|
real, dimension(ki), intent(out) |
PRUI, |
|
|
real, dimension(ki), intent(out) |
PWIND, |
|
|
real, dimension(ki), intent(out) |
PFWSU, |
|
|
real, dimension(ki), intent(out) |
PFWSV, |
|
|
real, dimension(ki), intent(out) |
PSNET, |
|
|
real, dimension(ki), intent(out) |
PHEAT, |
|
|
real, dimension(ki), intent(out) |
PEVAP, |
|
|
real, dimension(ki), intent(out) |
PRAIN, |
|
|
real, dimension(ki), intent(out) |
PSNOW, |
|
|
real, dimension(ki), intent(out) |
PICEFLUX, |
|
|
real, dimension(ki), intent(out) |
PFWSM, |
|
|
real, dimension(ki), intent(out) |
PHEAT_ICE, |
|
|
real, dimension(ki), intent(out) |
PEVAP_ICE, |
|
|
real, dimension(ki), intent(out) |
PSNET_ICE |
|
) |
| |