subroutine drag |
( |
character(len=*), intent(in) |
HISBA, |
|
|
character(len=*), intent(in) |
HSNOW_ISBA, |
|
|
character(len=*), intent(in) |
HCPSURF, |
|
|
real, intent(in) |
PTSTEP, |
|
|
real, dimension(:), intent(in) |
PTG, |
|
|
real, dimension(:), intent(in) |
PWG, |
|
|
real, dimension(:), intent(in) |
PWGI, |
|
|
real, dimension(:), intent(in) |
PEXNS, |
|
|
real, dimension(:), intent(in) |
PEXNA, |
|
|
real, dimension(:), intent(in) |
PTA, |
|
|
real, dimension(:), intent(in) |
PVMOD, |
|
|
real, dimension(:), intent(in) |
PQA, |
|
|
real, dimension(:), intent(in) |
PRR, |
|
|
real, dimension(:), intent(in) |
PSR, |
|
|
real, dimension(:), intent(in) |
PPS, |
|
|
real, dimension(:), intent(in) |
PRS, |
|
|
real, dimension(:), intent(in) |
PVEG, |
|
|
real, dimension(:), intent(in) |
PZ0, |
|
|
real, dimension(:), intent(in) |
PZ0EFF, |
|
|
real, dimension(:), intent(in) |
PZ0H, |
|
|
real, dimension(:), intent(in) |
PWFC, |
|
|
real, dimension(:), intent(in) |
PWSAT, |
|
|
real, dimension(:), intent(in) |
PPSNG, |
|
|
real, dimension(:), intent(in) |
PPSNV, |
|
|
real, dimension(:), intent(in) |
PZREF, |
|
|
real, dimension(:), intent(in) |
PUREF, |
|
|
real, dimension(:), intent(in) |
PDIRCOSZW, |
|
|
real, dimension(:), intent(inout) |
PDELTA, |
|
|
real, dimension(:), intent(in) |
PF5, |
|
|
real, dimension(:), intent(inout) |
PRA, |
|
|
real, dimension(:), intent(out) |
PCH, |
|
|
real, dimension(:), intent(out) |
PCD, |
|
|
real, dimension(:), intent(out) |
PCDN, |
|
|
real, dimension(:), intent(out) |
PRI, |
|
|
real, dimension(:), intent(out) |
PHUG, |
|
|
real, dimension(:), intent(out) |
PHUGI, |
|
|
real, dimension(:), intent(out) |
PHV, |
|
|
real, dimension(:), intent(out) |
PHU, |
|
|
real, dimension(:), intent(inout) |
PCPS, |
|
|
real, dimension(:), intent(out) |
PQS, |
|
|
real, dimension(:), intent(in) |
PFFG, |
|
|
real, dimension(:), intent(in) |
PFFV, |
|
|
real, dimension(:), intent(in) |
PFF, |
|
|
real, dimension(:), intent(in) |
PFFG_NOSNOW, |
|
|
real, dimension(:), intent(in) |
PFFV_NOSNOW, |
|
|
real, dimension(:), intent(out) |
PLEG_DELTA, |
|
|
real, dimension(:), intent(out) |
PLEGI_DELTA, |
|
|
real, dimension(:), intent(in) |
PWR, |
|
|
real, dimension(:), intent(in) |
PRHOA, |
|
|
real, dimension(:), intent(in) |
PLVTT, |
|
|
real, dimension(:), intent(out), optional |
PQSAT |
|
) |
| |