| File |
Line number |
Procedure |
Code |
|
./pkg/down_slope/DWNSLP_PARAMS.h |
16 |
NO PROCEDURE |
& DWNSLP_ioUnit |
|
./pkg/down_slope/DWNSLP_PARAMS.h |
17 |
NO PROCEDURE |
INTEGER DWNSLP_ioUnit |
|
./pkg/down_slope/dwnslp_apply.F |
129 |
DWNSLP_APPLY |
IF ( DWNSLP_ioUnit.GT.0 ) THEN |
|
./pkg/down_slope/dwnslp_apply.F |
131 |
DWNSLP_APPLY |
WRITE(DWNSLP_ioUnit,'(A,I8,3I4)') |
|
./pkg/down_slope/dwnslp_apply.F |
133 |
DWNSLP_APPLY |
WRITE(DWNSLP_ioUnit,'(2A)') ' bi bj n ijDp ijSh', |
|
./pkg/down_slope/dwnslp_apply.F |
165 |
DWNSLP_APPLY |
IF ( DWNSLP_ioUnit.GT.0 ) THEN |
|
./pkg/down_slope/dwnslp_apply.F |
168 |
DWNSLP_APPLY |
WRITE(DWNSLP_ioUnit,'(2I4,I6,2I8,I4,1P4E14.6)') |
|
./pkg/down_slope/dwnslp_apply.F |
184 |
DWNSLP_APPLY |
IF ( DWNSLP_ioUnit.GT.0 ) THEN |
|
./pkg/down_slope/dwnslp_apply.F |
186 |
DWNSLP_APPLY |
WRITE(DWNSLP_ioUnit,*) |
|
./pkg/down_slope/dwnslp_calc_flow.F |
141 |
DWNSLP_CALC_FLOW |
IF ( DWNSLP_ioUnit.GT.0 ) THEN |
|
./pkg/down_slope/dwnslp_calc_flow.F |
143 |
DWNSLP_CALC_FLOW |
WRITE(DWNSLP_ioUnit,'(A,I8,2I4)') |
|
./pkg/down_slope/dwnslp_calc_flow.F |
145 |
DWNSLP_CALC_FLOW |
WRITE(DWNSLP_ioUnit,'(A)') |
|
./pkg/down_slope/dwnslp_calc_flow.F |
153 |
DWNSLP_CALC_FLOW |
WRITE(DWNSLP_ioUnit,'(2I4,I6,A,I8,I6,2I4,A,2I4,1PE14.6)') |
|
./pkg/down_slope/dwnslp_calc_flow.F |
160 |
DWNSLP_CALC_FLOW |
WRITE(DWNSLP_ioUnit,*) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
285 |
DWNSLP_INIT_FIXED |
DWNSLP_ioUnit = 0 |
|
./pkg/down_slope/dwnslp_init_fixed.F |
287 |
DWNSLP_INIT_FIXED |
CALL MDSFINDUNIT( DWNSLP_ioUnit, myThid ) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
289 |
DWNSLP_INIT_FIXED |
IF ( DWNSLP_ioUnit.GT.0 ) THEN |
|
./pkg/down_slope/dwnslp_init_fixed.F |
291 |
DWNSLP_INIT_FIXED |
OPEN(DWNSLP_ioUnit,FILE=logFname,STATUS='UNKNOWN') |
|
./pkg/down_slope/dwnslp_init_fixed.F |
302 |
DWNSLP_INIT_FIXED |
IF ( DWNSLP_ioUnit.GT.0 ) THEN |
|
./pkg/down_slope/dwnslp_init_fixed.F |
303 |
DWNSLP_INIT_FIXED |
WRITE(DWNSLP_ioUnit,'(A,2I4,2I8)') |
|
./pkg/down_slope/dwnslp_init_fixed.F |
306 |
DWNSLP_INIT_FIXED |
WRITE(DWNSLP_ioUnit,'(A)') |
|
./pkg/down_slope/dwnslp_init_fixed.F |
322 |
DWNSLP_INIT_FIXED |
WRITE(DWNSLP_ioUnit,'(2I4,I6,A,I8,2I4,A,I6,2I4,1PE14.6)') |
|
./pkg/down_slope/dwnslp_init_fixed.F |
326 |
DWNSLP_INIT_FIXED |
WRITE(DWNSLP_ioUnit,*) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
331 |
DWNSLP_INIT_FIXED |
IF ( DWNSLP_ioUnit.GT.0 .AND. debugLevel.LT.debLevD ) THEN |
|
./pkg/down_slope/dwnslp_init_fixed.F |
332 |
DWNSLP_INIT_FIXED |
CLOSE(DWNSLP_ioUnit) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
333 |
DWNSLP_INIT_FIXED |
DWNSLP_ioUnit = 0 |