Go to the source code of this file.
|
subroutine | update_esm_surf_atm_n (F, I, S, U, W, HPROGRAM, KI, KSW, PZENITH, PSW_BANDS, PTRAD, PDIR_ALB, PSCA_ALB, PEMIS, PTSURF) |
|
subroutine | treat_surf (KSIZE, KMASK, KTILE) |
|
subroutine update_esm_surf_atm_n::treat_surf |
( |
integer, intent(in) |
KSIZE, |
|
|
integer, dimension(:), intent(in) |
KMASK, |
|
|
integer, intent(in) |
KTILE |
|
) |
| |
subroutine update_esm_surf_atm_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(ki), intent(in) |
PZENITH, |
|
|
real, dimension(ksw), intent(in) |
PSW_BANDS, |
|
|
real, dimension(ki), intent(out) |
PTRAD, |
|
|
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 |
|
) |
| |