subroutine TRIP |
( |
INTEGER, intent(in) |
KLUOUT, |
|
|
CHARACTER(LEN=3), intent(in) |
HGROUNDW, |
|
|
CHARACTER(LEN=3), intent(in) |
HVIT, |
|
|
LOGICAL, intent(in) |
OFLOOD, |
|
|
LOGICAL, intent(in) |
OPRINT, |
|
|
REAL, intent(in) |
PTSTEP, |
|
|
INTEGER, dimension(:,:), intent(in) |
KGRCN, |
|
|
INTEGER, dimension(:,:), intent(in) |
KSEQ, |
|
|
INTEGER, dimension(:,:), intent(in) |
KNEXTX, |
|
|
INTEGER, dimension(:,:), intent(in) |
KNEXTY, |
|
|
INTEGER, intent(in) |
KSEQMAX, |
|
|
REAL, dimension(:,:), intent(in) |
PTAUG, |
|
|
REAL, dimension(:,:), intent(in) |
PAREA, |
|
|
REAL, dimension(:,:), intent(in) |
PLEN, |
|
|
REAL, dimension(:,:), intent(inout) |
PFLOOD_LEN, |
|
|
REAL, dimension(:,:), intent(in) |
PSLOPEBED, |
|
|
REAL, dimension(:,:), intent(in) |
PWIDTH, |
|
|
REAL, dimension(:,:), intent(in) |
PN, |
|
|
REAL, dimension(:,:), intent(in) |
PN_FLOOD, |
|
|
REAL, dimension(:,:), intent(in) |
PHC_BED, |
|
|
REAL, dimension(:,:), intent(inout) |
PWFLOOD, |
|
|
REAL, dimension(:,:,:), intent(in) |
PTAB_F, |
|
|
REAL, dimension(:,:,:), intent(in) |
PTAB_H, |
|
|
REAL, dimension(:,:,:), intent(in) |
PTAB_VF, |
|
|
REAL, dimension(:,:), intent(in) |
PDRAIN, |
|
|
REAL, dimension(:,:), intent(inout) |
PRUNOFF, |
|
|
REAL, dimension(:,:), intent(in) |
PSOURCE, |
|
|
REAL, dimension(:,:), intent(inout) |
PGROUND_STO, |
|
|
REAL, dimension(:,:), intent(inout) |
PSURF_STO, |
|
|
REAL, dimension(:,:), intent(inout) |
PFLOOD_STO, |
|
|
REAL, dimension(:,:), intent(out) |
PSOUT, |
|
|
REAL, dimension(:,:), intent(out) |
PGOUT, |
|
|
REAL, dimension(:,:), intent(out) |
PHS, |
|
|
REAL, dimension(:,:), intent(inout) |
PHFLOOD, |
|
|
REAL, dimension(:,:), intent(out) |
PVEL, |
|
|
REAL, dimension(:,:), intent(inout) |
PFFLOOD, |
|
|
REAL, dimension(:,:), intent(out) |
PQFR, |
|
|
REAL, dimension(:,:), intent(out) |
PQRF, |
|
|
REAL, dimension(:,:), intent(out) |
PVFIN, |
|
|
REAL, dimension(:,:), intent(out) |
PVFOUT, |
|
|
REAL, dimension(:,:), intent(out) |
PHSF, |
|
|
REAL, dimension(:,:), intent(out) |
PSIN, |
|
|
INTEGER, intent(in) |
KTRIP, |
|
|
INTEGER, intent(in) |
KTSEPT, |
|
|
INTEGER, intent(in) |
KTSTEP_END, |
|
|
INTEGER, dimension(:,:), intent(in) |
KTABMAX |
|
) |
| |