Symbol Description Uses
iceFlag True= do iterate for Surf.Temp ; False= do nothing 14


File Line number Procedure Code
./pkg/thsice/thsice_solve4temp.F 164 THSICE_SOLVE4TEMP 
      _RL  iceFlag (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
./pkg/thsice/thsice_solve4temp.F 221 THSICE_SOLVE4TEMP 
        iceFlag (i,j) = 0. _d 0
./pkg/thsice/thsice_solve4temp.F 256 THSICE_SOLVE4TEMP 
          iceFlag(i,j) = 1. _d 0
./pkg/thsice/thsice_solve4temp.F 337 THSICE_SOLVE4TEMP 
          iceFlag(i,j) = 0. _d 0
./pkg/thsice/thsice_solve4temp.F 380 THSICE_SOLVE4TEMP 
     I                            iceFlag, hSnow1, Tsf,
./pkg/thsice/thsice_solve4temp.F 388 THSICE_SOLVE4TEMP 
     I                            iceFlag, hSnow1, Tsf,
./pkg/thsice/thsice_solve4temp.F 442 THSICE_SOLVE4TEMP 
     I                            iceFlag, hSnow1, Tsf,
./pkg/thsice/thsice_solve4temp.F 450 THSICE_SOLVE4TEMP 
     I                            iceFlag, hSnow1, Tsf,
./pkg/thsice/thsice_solve4temp.F 458 THSICE_SOLVE4TEMP 
           IF ( iceFlag(i,j).GT.0. _d 0 ) THEN
./pkg/thsice/thsice_solve4temp.F 481 THSICE_SOLVE4TEMP 
         IF ( iceFlag(i,j).GT.0. _d 0 ) THEN
./pkg/thsice/thsice_solve4temp.F 525 THSICE_SOLVE4TEMP 
           iceFlag(i,j) = 1. _d 0
./pkg/thsice/thsice_solve4temp.F 527 THSICE_SOLVE4TEMP 
           iceFlag(i,j) = 0. _d 0
./pkg/thsice/thsice_solve4temp.F 529 THSICE_SOLVE4TEMP 
          iterate4Tsf = iterate4Tsf .OR. (iceFlag(i,j).GT.0. _d 0)
./pkg/thsice/thsice_solve4temp.F 540 THSICE_SOLVE4TEMP 
     &     (iceFlag(i,j).GT.0. _d 0) ) THEN