subroutine get_sfx_sea |
( |
type(seaflux_t), intent(inout) |
S, |
|
|
type(surf_atm_t), intent(inout) |
U, |
|
|
type(watflux_t), intent(inout) |
W, |
|
|
logical, intent(in) |
OCPL_SEAICE, |
|
|
logical, intent(in) |
OWATER, |
|
|
real, dimension(:), intent(out) |
PSEA_FWSU, |
|
|
real, dimension(:), intent(out) |
PSEA_FWSV, |
|
|
real, dimension(:), intent(out) |
PSEA_HEAT, |
|
|
real, dimension(:), intent(out) |
PSEA_SNET, |
|
|
real, dimension(:), intent(out) |
PSEA_WIND, |
|
|
real, dimension(:), intent(out) |
PSEA_FWSM, |
|
|
real, dimension(:), intent(out) |
PSEA_EVAP, |
|
|
real, dimension(:), intent(out) |
PSEA_RAIN, |
|
|
real, dimension(:), intent(out) |
PSEA_SNOW, |
|
|
real, dimension(:), intent(out) |
PSEA_WATF, |
|
|
real, dimension(:), intent(out) |
PSEAICE_HEAT, |
|
|
real, dimension(:), intent(out) |
PSEAICE_SNET, |
|
|
real, dimension(:), intent(out) |
PSEAICE_EVAP |
|
) |
| |