subroutine DIAG_TRIP_n |
( |
INTEGER, intent(in) |
KLUOUT, |
|
|
INTEGER, intent(in) |
KYEAR, |
|
|
INTEGER, intent(in) |
KMONTH, |
|
|
INTEGER, intent(in) |
KRUN, |
|
|
REAL, intent(in) |
PDURATION, |
|
|
REAL, dimension(:,:), intent(in) |
PSURF_STO_OLD, |
|
|
REAL, dimension(:,:), intent(in) |
PQDIS_OLD, |
|
|
REAL, dimension(:,:), intent(in) |
PGROUND_STO_OLD, |
|
|
REAL, dimension(:,:), intent(in) |
PQGF_OLD, |
|
|
REAL, dimension(:,:), intent(in) |
PVEL_OLD, |
|
|
REAL, dimension(:,:), intent(in) |
PHS_OLD, |
|
|
REAL, dimension(:,:), intent(in) |
PFLOOD_STO_OLD, |
|
|
REAL, dimension(:,:), intent(in) |
PFF_OLD, |
|
|
REAL, dimension(:,:), intent(in) |
PHF_OLD, |
|
|
REAL, dimension(:,:), intent(in) |
PQFR_OLD, |
|
|
REAL, dimension(:,:), intent(in) |
PQRF_OLD, |
|
|
REAL, dimension(:,:), intent(in) |
PVFIN_OLD, |
|
|
REAL, dimension(:,:), intent(in) |
PVFOUT_OLD, |
|
|
REAL, dimension(:,:), intent(in) |
PWF_OLD, |
|
|
REAL, dimension(:,:), intent(in) |
PLF_OLD, |
|
|
REAL, dimension(:,:), intent(in) |
PHSF_OLD, |
|
|
REAL, dimension(:,:), intent(in) |
PQIN_OLD, |
|
|
REAL, dimension(:,:), intent(in) |
PSOURCE_OLD |
|
) |
| |