subroutine forcing_vert_shift |
( |
real, dimension(:), intent(in) |
PZS_ATM, |
|
|
real, dimension(:), intent(in) |
PZS_SURF, |
|
|
real, dimension(:), intent(in) |
PTA_ATM, |
|
|
real, dimension(:), intent(in) |
PQA_ATM, |
|
|
real, dimension(:), intent(in) |
PPA_ATM, |
|
|
real, dimension(:), intent(in) |
PRHOA_ATM, |
|
|
real, dimension(:), intent(in) |
PLW_ATM, |
|
|
real, dimension(:), intent(in) |
PRAIN_ATM, |
|
|
real, dimension(:), intent(in) |
PSNOW_ATM, |
|
|
real, dimension(:), intent(out) |
PTA_SURF, |
|
|
real, dimension(:), intent(out) |
PQA_SURF, |
|
|
real, dimension(:), intent(out) |
PPA_SURF, |
|
|
real, dimension(:), intent(out) |
PRHOA_SURF, |
|
|
real, dimension(:), intent(out) |
PLW_SURF, |
|
|
real, dimension(:), intent(out) |
PRAIN_SURF, |
|
|
real, dimension(:), intent(out) |
PSNOW_SURF |
|
) |
| |