File |
Line number |
Procedure |
Code |
./pkg/land/land_impl_temp.F |
150 |
LAND_IMPL_TEMP |
dBug = bi.eq.lprt .AND. i.EQ.iprt .AND. j.EQ.jprt |
./pkg/land/land_impl_temp.F |
151 |
LAND_IMPL_TEMP |
IF (dBug) write(6,1010) |
./pkg/land/land_impl_temp.F |
153 |
LAND_IMPL_TEMP |
IF (dBug) write(6,1010) |
./pkg/land/land_impl_temp.F |
168 |
LAND_IMPL_TEMP |
IF (dBug) write(6,1010) |
./pkg/land/land_impl_temp.F |
240 |
LAND_IMPL_TEMP |
IF (dBug) write(6,1010) |
./pkg/land/land_impl_temp.F |
282 |
LAND_IMPL_TEMP |
IF (dBug) write(6,1010) |
./pkg/land/land_impl_temp.F |
315 |
LAND_IMPL_TEMP |
IF (dBug) write(6,1010) |
./pkg/land/land_impl_temp.F |
351 |
LAND_IMPL_TEMP |
IF (dBug) write(6,1010) 'LAND_IMPL_TEMP: 9, ts,tg1&2,dTs=',9, |
./pkg/land/land_impl_temp.F |
353 |
LAND_IMPL_TEMP |
IF (dBug) write(6,1010) 'LAND_IMPL_TEMP: 9, Eg1,Eg2,mPmE=',9, |
./pkg/land/land_impl_temp.F |
92 |
LAND_IMPL_TEMP |
LOGICAL dBug, debugFlag |
./pkg/land/land_stepfwd.F |
163 |
LAND_STEPFWD |
dBug = bi.eq.lprt .AND. i.EQ.iprt .AND. j.EQ.jprt |
./pkg/land/land_stepfwd.F |
164 |
LAND_STEPFWD |
IF (dBug) write(6,1010) |
./pkg/land/land_stepfwd.F |
184 |
LAND_STEPFWD |
dBug = bi.eq.lprt .AND. i.EQ.iprt .AND. j.EQ.jprt |
./pkg/land/land_stepfwd.F |
185 |
LAND_STEPFWD |
IF (dBug) write(6,1010) |
./pkg/land/land_stepfwd.F |
216 |
LAND_STEPFWD |
IF (dBug) write(6,1010) |
./pkg/land/land_stepfwd.F |
239 |
LAND_STEPFWD |
IF (dBug) write(6,1010) |
./pkg/land/land_stepfwd.F |
285 |
LAND_STEPFWD |
dBug = bi.eq.lprt .AND. i.EQ.iprt .AND. j.EQ.jprt |
./pkg/land/land_stepfwd.F |
342 |
LAND_STEPFWD |
IF(dBug)write(6,1010)'LAND_STEPFWD: grdW-1,fx_ku,kd,grdW-1=' |
./pkg/land/land_stepfwd.F |
374 |
LAND_STEPFWD |
IF (dBug) write(6,1010) 'LAND_STEPFWD: Temp,FlxE,FlxW=', |
./pkg/land/land_stepfwd.F |
380 |
LAND_STEPFWD |
IF (dBug) write(6,1010) 'LAND_STEPFWD: RO,enRO=', |
./pkg/land/land_stepfwd.F |
84 |
LAND_STEPFWD |
LOGICAL dBug |
./pkg/seaice/seaice_advection.F |
139 |
SEAICE_ADVECTION |
LOGICAL dBug |
./pkg/seaice/seaice_advection.F |
171 |
SEAICE_ADVECTION |
dBug = debugLevel.GE.debLevB |
./pkg/seaice/seaice_advection.F |
295 |
SEAICE_ADVECTION |
IF (dBug.AND.bi.EQ.3 ) WRITE(6,*) 'ICE_adv:',tracerIdentity, |
./pkg/seaice/seaice_advection.F |
345 |
SEAICE_ADVECTION |
IF ( dBug .AND. bi.EQ.3 ) THEN |
./pkg/seaice/seaice_advection.F |
544 |
SEAICE_ADVECTION |
IF ( dBug .AND. bi.EQ.3 ) THEN |
./pkg/seaice/seaice_advection.F |
705 |
SEAICE_ADVECTION |
IF ( dBug .AND. bi.EQ.3 ) THEN |
./pkg/thsice/THSICE_DEBUG.h |
19 |
NO PROCEDURE |
LOGICAL dBug |
./pkg/thsice/THSICE_DEBUG.h |
21 |
NO PROCEDURE |
dBug(i,j,bi,bj) = dBugFlag .AND. |
./pkg/thsice/thsice_advdiff.F |
272 |
THSICE_ADVDIFF |
IF ( dBug(i,j,bi,bj) ) THEN |
./pkg/thsice/thsice_advdiff.F |
330 |
THSICE_ADVDIFF |
IF ( dBug(i,j,bi,bj) ) THEN |
./pkg/thsice/thsice_advdiff.F |
383 |
THSICE_ADVDIFF |
IF ( dBug(i,j,bi,bj) ) THEN |
./pkg/thsice/thsice_advdiff.F |
485 |
THSICE_ADVDIFF |
IF ( dBug(i,j,bi,bj) ) THEN |
./pkg/thsice/thsice_calc_thickn.F |
1000 |
THSICE_CALC_THICKN |
IF (dBug(i,j,bi,bj) ) WRITE(6,1020) |
./pkg/thsice/thsice_calc_thickn.F |
1025 |
THSICE_CALC_THICKN |
IF (dBug(i,j,bi,bj) ) THEN |
./pkg/thsice/thsice_calc_thickn.F |
1105 |
THSICE_CALC_THICKN |
IF (dBug(i,j,bi,bj) ) WRITE(6,1020) |
./pkg/thsice/thsice_calc_thickn.F |
398 |
THSICE_CALC_THICKN |
IF (dBug(i,j,bi,bj) ) WRITE(6,1020) |
./pkg/thsice/thsice_calc_thickn.F |
470 |
THSICE_CALC_THICKN |
IF (dBug(i,j,bi,bj) ) WRITE(6,1020) |
./pkg/thsice/thsice_calc_thickn.F |
663 |
THSICE_CALC_THICKN |
IF (dBug(i,j,bi,bj) ) WRITE(6,1020) |
./pkg/thsice/thsice_calc_thickn.F |
681 |
THSICE_CALC_THICKN |
IF (dBug(i,j,bi,bj) ) WRITE(6,1020) |
./pkg/thsice/thsice_calc_thickn.F |
847 |
THSICE_CALC_THICKN |
IF (dBug(i,j,bi,bj) ) WRITE(6,1020) |
./pkg/thsice/thsice_calc_thickn.F |
937 |
THSICE_CALC_THICKN |
IF (dBug(i,j,bi,bj) ) WRITE(6,1020) |
./pkg/thsice/thsice_calc_thickn.F |
973 |
THSICE_CALC_THICKN |
IF (dBug(i,j,bi,bj) ) WRITE(6,1020) |
./pkg/thsice/thsice_check_conserv.F |
59 |
THSICE_CHECK_CONSERV |
dBugLoc = dBug(i,j,bi,bj) |
./pkg/thsice/thsice_extend.F |
219 |
THSICE_EXTEND |
IF ( dBug(i,j,bi,bj) ) THEN |
./pkg/thsice/thsice_get_exf.F |
218 |
THSICE_GET_EXF |
IF ( dBug(i,j,bi,bj) .AND. iceFlag(i,j) ) WRITE(stdUnit, |
./pkg/thsice/thsice_get_exf.F |
436 |
THSICE_GET_EXF |
IF ( dBug(i,j,bi,bj) ) WRITE(stdUnit,'(A,4F12.6)') |
./pkg/thsice/thsice_get_exf.F |
450 |
THSICE_GET_EXF |
IF ( dBug(i,j,bi,bj) ) WRITE(stdUnit,'(A,4F12.6)') |
./pkg/thsice/thsice_impl_temp.F |
87 |
THSICE_IMPL_TEMP |
IF ( dBug(i,j,bi,bj) ) THEN |
./pkg/thsice/thsice_solve4temp.F |
239 |
THSICE_SOLVE4TEMP |
IF ( dBug(i,j,bi,bj) ) WRITE(stdUnit,'(A,2I4,2I2)') |
./pkg/thsice/thsice_solve4temp.F |
299 |
THSICE_SOLVE4TEMP |
IF ( dBug(i,j,bi,bj) ) WRITE(stdUnit,1010) |
./pkg/thsice/thsice_solve4temp.F |
446 |
THSICE_SOLVE4TEMP |
IF ( dBug(i,j,bi,bj) ) WRITE(stdUnit,1020) |
./pkg/thsice/thsice_solve4temp.F |
461 |
THSICE_SOLVE4TEMP |
IF ( dBug(i,j,bi,bj) ) WRITE(stdUnit,1010) |
./pkg/thsice/thsice_solve4temp.F |
490 |
THSICE_SOLVE4TEMP |
IF ( dBug(i,j,bi,bj) ) WRITE(stdUnit,1010) |
./pkg/thsice/thsice_solve4temp.F |
530 |
THSICE_SOLVE4TEMP |
IF ( dBug(i,j,bi,bj) ) WRITE(stdUnit,1010) |
./pkg/thsice/thsice_solve4temp.F |
556 |
THSICE_SOLVE4TEMP |
IF ( dBug(i,j,bi,bj) ) WRITE(stdUnit,1020) |
./pkg/thsice/thsice_solve4temp.F |
578 |
THSICE_SOLVE4TEMP |
IF ( dBug(i,j,bi,bj) ) THEN |
./pkg/thsice/thsice_step_fwd.F |
206 |
THSICE_STEP_FWD |
IF ( dBug(i,j,bi,bj) ) THEN |
./pkg/thsice/thsice_step_fwd.F |
289 |
THSICE_STEP_FWD |
IF (dBug(i,j,bi,bj)) WRITE(6,1010) |
./pkg/thsice/thsice_step_fwd.F |
340 |
THSICE_STEP_FWD |
IF (dBug(i,j,bi,bj)) WRITE(6,1010) |
./pkg/thsice/thsice_step_temp.F |
136 |
THSICE_STEP_TEMP |
IF ( dBug(i,j,bi,bj) ) THEN |