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 |
148 |
SEAICE_ADVECTION |
LOGICAL dBug |
./pkg/seaice/seaice_advection.F |
185 |
SEAICE_ADVECTION |
dBug = debugLevel.GE.debLevC |
./pkg/seaice/seaice_advection.F |
321 |
SEAICE_ADVECTION |
IF (dBug.AND.bi.EQ.3 ) WRITE(ioUnit,*)'ICE_adv:',tracerIdentity, |
./pkg/seaice/seaice_advection.F |
371 |
SEAICE_ADVECTION |
IF ( dBug .AND. bi.EQ.3 ) THEN |
./pkg/seaice/seaice_advection.F |
573 |
SEAICE_ADVECTION |
IF ( dBug .AND. bi.EQ.3 ) THEN |
./pkg/seaice/seaice_advection.F |
737 |
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 |
306 |
THSICE_ADVDIFF |
IF ( dBug(i,j,bi,bj) ) THEN |
./pkg/thsice/thsice_advdiff.F |
364 |
THSICE_ADVDIFF |
IF ( dBug(i,j,bi,bj) ) THEN |
./pkg/thsice/thsice_advdiff.F |
417 |
THSICE_ADVDIFF |
IF ( dBug(i,j,bi,bj) ) THEN |
./pkg/thsice/thsice_advdiff.F |
519 |
THSICE_ADVDIFF |
IF ( dBug(i,j,bi,bj) ) THEN |
./pkg/thsice/thsice_calc_thickn.F |
1005 |
THSICE_CALC_THICKN |
IF (dBug(i,j,bi,bj) ) WRITE(6,1020) |
./pkg/thsice/thsice_calc_thickn.F |
1030 |
THSICE_CALC_THICKN |
IF (dBug(i,j,bi,bj) ) THEN |
./pkg/thsice/thsice_calc_thickn.F |
1110 |
THSICE_CALC_THICKN |
IF (dBug(i,j,bi,bj) ) WRITE(6,1020) |
./pkg/thsice/thsice_calc_thickn.F |
399 |
THSICE_CALC_THICKN |
IF (dBug(i,j,bi,bj) ) WRITE(6,1020) |
./pkg/thsice/thsice_calc_thickn.F |
471 |
THSICE_CALC_THICKN |
IF (dBug(i,j,bi,bj) ) WRITE(6,1020) |
./pkg/thsice/thsice_calc_thickn.F |
666 |
THSICE_CALC_THICKN |
IF (dBug(i,j,bi,bj) ) WRITE(6,1020) |
./pkg/thsice/thsice_calc_thickn.F |
684 |
THSICE_CALC_THICKN |
IF (dBug(i,j,bi,bj) ) WRITE(6,1020) |
./pkg/thsice/thsice_calc_thickn.F |
853 |
THSICE_CALC_THICKN |
IF (dBug(i,j,bi,bj) ) WRITE(6,1020) |
./pkg/thsice/thsice_calc_thickn.F |
942 |
THSICE_CALC_THICKN |
IF (dBug(i,j,bi,bj) ) WRITE(6,1020) |
./pkg/thsice/thsice_calc_thickn.F |
978 |
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 |
228 |
THSICE_EXTEND |
IF ( dBug(i,j,bi,bj) ) THEN |
./pkg/thsice/thsice_get_exf.F |
206 |
THSICE_GET_EXF |
IF ( dBug(i,j,bi,bj) .AND. (icFlag(i,j).GT.0. _d 0) ) |
./pkg/thsice/thsice_get_exf.F |
481 |
THSICE_GET_EXF |
IF ( dBug(i,j,bi,bj) ) WRITE(stdUnit,'(A,4F12.6)') |
./pkg/thsice/thsice_get_exf.F |
499 |
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 |
258 |
THSICE_SOLVE4TEMP |
IF ( dBug(i,j,bi,bj) ) WRITE(stdUnit,'(A,2I4,2I2)') |
./pkg/thsice/thsice_solve4temp.F |
318 |
THSICE_SOLVE4TEMP |
IF ( dBug(i,j,bi,bj) ) WRITE(stdUnit,1010) |
./pkg/thsice/thsice_solve4temp.F |
484 |
THSICE_SOLVE4TEMP |
IF ( dBug(i,j,bi,bj) ) WRITE(stdUnit,1020) |
./pkg/thsice/thsice_solve4temp.F |
500 |
THSICE_SOLVE4TEMP |
IF ( dBug(i,j,bi,bj) ) WRITE(stdUnit,1010) |
./pkg/thsice/thsice_solve4temp.F |
537 |
THSICE_SOLVE4TEMP |
IF ( dBug(i,j,bi,bj) ) WRITE(stdUnit,1010) |
./pkg/thsice/thsice_solve4temp.F |
580 |
THSICE_SOLVE4TEMP |
IF ( dBug(i,j,bi,bj) ) WRITE(stdUnit,1010) |
./pkg/thsice/thsice_solve4temp.F |
610 |
THSICE_SOLVE4TEMP |
IF ( dBug(i,j,bi,bj) ) WRITE(stdUnit,1020) |
./pkg/thsice/thsice_solve4temp.F |
632 |
THSICE_SOLVE4TEMP |
IF ( dBug(i,j,bi,bj) ) THEN |
./pkg/thsice/thsice_step_fwd.F |
216 |
THSICE_STEP_FWD |
IF ( dBug(i,j,bi,bj) ) THEN |
./pkg/thsice/thsice_step_fwd.F |
303 |
THSICE_STEP_FWD |
IF (dBug(i,j,bi,bj)) WRITE(6,1010) |
./pkg/thsice/thsice_step_fwd.F |
361 |
THSICE_STEP_FWD |
IF (dBug(i,j,bi,bj)) WRITE(6,1010) |
./pkg/thsice/thsice_step_temp.F |
143 |
THSICE_STEP_TEMP |
IF ( dBug(i,j,bi,bj) ) THEN |