subroutine diag_cpl_esm_water |
( |
type(watflux_t), intent(inout) |
W, |
|
|
logical, intent(in) |
OCPL_SEAICE, |
|
|
real, intent(in) |
PTSTEP, |
|
|
real, dimension(:), intent(in) |
PZON10M, |
|
|
real, dimension(:), intent(in) |
PMER10M, |
|
|
real, dimension(:), intent(in) |
PSFU, |
|
|
real, dimension(:), intent(in) |
PSFV, |
|
|
real, dimension(:), intent(in) |
PSWD, |
|
|
real, dimension(:), intent(in) |
PSWU, |
|
|
real, dimension(:), intent(in) |
PGFLUX, |
|
|
real, dimension(:), intent(in) |
PSFTQ, |
|
|
real, dimension(:), intent(in) |
PRAIN, |
|
|
real, dimension(:), intent(in) |
PSNOW, |
|
|
real, dimension(:), intent(in) |
PLW, |
|
|
real, dimension(:), intent(in) |
PTICE, |
|
|
real, dimension(:), intent(in) |
PSFTH_ICE, |
|
|
real, dimension(:), intent(in) |
PSFTQ_ICE, |
|
|
real, dimension(:,:), intent(in) |
PDIR_SW, |
|
|
real, dimension(:,:), intent(in) |
PSCA_SW |
|
) |
| |