| 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 |
WRITE(DWNSLP_ioUnit,'(A,I8,3I4)') |
|
./pkg/down_slope/dwnslp_apply.F |
131 |
DWNSLP_APPLY |
WRITE(DWNSLP_ioUnit,'(2A)') ' bi bj n ijDp ijSh', |
|
./pkg/down_slope/dwnslp_apply.F |
175 |
DWNSLP_APPLY |
WRITE(DWNSLP_ioUnit,'(2I4,I6,2I8,I4,1P4E14.6)') |
|
./pkg/down_slope/dwnslp_apply.F |
190 |
DWNSLP_APPLY |
IF (debugMode) WRITE(DWNSLP_ioUnit,*) |
|
./pkg/down_slope/dwnslp_calc_flow.F |
141 |
DWNSLP_CALC_FLOW |
WRITE(DWNSLP_ioUnit,'(A,I8,2I4)') |
|
./pkg/down_slope/dwnslp_calc_flow.F |
143 |
DWNSLP_CALC_FLOW |
WRITE(DWNSLP_ioUnit,'(A)') |
|
./pkg/down_slope/dwnslp_calc_flow.F |
151 |
DWNSLP_CALC_FLOW |
WRITE(DWNSLP_ioUnit,'(2I4,I6,A,I8,I6,2I4,A,2I4,1PE14.6)') |
|
./pkg/down_slope/dwnslp_calc_flow.F |
158 |
DWNSLP_CALC_FLOW |
WRITE(DWNSLP_ioUnit,*) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
284 |
DWNSLP_INIT_FIXED |
DWNSLP_ioUnit = standardMessageUnit |
|
./pkg/down_slope/dwnslp_init_fixed.F |
286 |
DWNSLP_INIT_FIXED |
CALL MDSFINDUNIT( DWNSLP_ioUnit, myThid ) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
287 |
DWNSLP_INIT_FIXED |
IF ( DWNSLP_ioUnit.NE.standardMessageUnit ) THEN |
|
./pkg/down_slope/dwnslp_init_fixed.F |
289 |
DWNSLP_INIT_FIXED |
OPEN(DWNSLP_ioUnit,FILE=logFname,STATUS='UNKNOWN') |
|
./pkg/down_slope/dwnslp_init_fixed.F |
302 |
DWNSLP_INIT_FIXED |
WRITE(DWNSLP_ioUnit,'(A,2I4,2I8)') |
|
./pkg/down_slope/dwnslp_init_fixed.F |
305 |
DWNSLP_INIT_FIXED |
WRITE(DWNSLP_ioUnit,'(A)') |
|
./pkg/down_slope/dwnslp_init_fixed.F |
321 |
DWNSLP_INIT_FIXED |
WRITE(DWNSLP_ioUnit,'(2I4,I6,A,I8,2I4,A,I6,2I4,1PE14.6)') |
|
./pkg/down_slope/dwnslp_init_fixed.F |
325 |
DWNSLP_INIT_FIXED |
WRITE(DWNSLP_ioUnit,*) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
330 |
DWNSLP_INIT_FIXED |
IF ( DWNSLP_ioUnit.NE.standardMessageUnit .AND. .NOT.debugMode ) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
331 |
DWNSLP_INIT_FIXED |
& CLOSE(DWNSLP_ioUnit) |