Symbol Description Uses
dTsrf1 surf. temp adjusment: Ts^n+1 - Ts^n 16



File Line number Procedure Code
./pkg/thsice/thsice_solve4temp.F 121 THSICE_SOLVE4TEMP
      _RL dTsrf1 (iMin:iMax,jMin:jMax)
./pkg/thsice/thsice_solve4temp.F 20 THSICE_SOLVE4TEMP
     O                  tIc1, tIc2, dTsrf1,
./pkg/thsice/thsice_solve4temp.F 403 THSICE_SOLVE4TEMP
          dTsrf1(i,j) = Terrmax
./pkg/thsice/thsice_solve4temp.F 494 THSICE_SOLVE4TEMP
          dTsrf1(i,j) = (flxNet + k12(i,j)*(tIc1(i,j)-Tsf(i,j)))
./pkg/thsice/thsice_solve4temp.F 496 THSICE_SOLVE4TEMP
          Tsf(i,j) = Tsf(i,j) + dTsrf1(i,j)
./pkg/thsice/thsice_solve4temp.F 501 THSICE_SOLVE4TEMP
     &     'ThSI_SOLVE4T: k,ts,t1,dTs=',k,Tsf(i,j),tIc1(i,j),dTsrf1(i,j)
./pkg/thsice/thsice_solve4temp.F 513 THSICE_SOLVE4TEMP
            dTsrf1(i,j) = 0. _d 0
./pkg/thsice/thsice_solve4temp.F 517 THSICE_SOLVE4TEMP
            dTsrf1(i,j) = 1000.
./pkg/thsice/thsice_solve4temp.F 524 THSICE_SOLVE4TEMP
          IF (ABS(dTsrf1(i,j)).GE.Terrmax) THEN
./pkg/thsice/thsice_solve4temp.F 538 THSICE_SOLVE4TEMP
     &    'ThSI_SOLVE4T: k,ts,t1,dTs=', k,Tsf(i,j),tIc1(i,j),dTsrf1(i,j)
./pkg/thsice/thsice_solve4temp.F 544 THSICE_SOLVE4TEMP
     &        'BB: not converge: Tsf, dTsf=', Tsf(i,j), dTsrf1(i,j)
./pkg/thsice/thsice_solve4temp.F 590 THSICE_SOLVE4TEMP
          flxNet = flxNet + dFlxdT(i,j)*dTsrf1(i,j)
./pkg/thsice/thsice_solve4temp.F 595 THSICE_SOLVE4TEMP
            evpAtm(i,j) = evapT(i,j) + dEvdT(i,j)*dTsrf1(i,j)
./pkg/thsice/thsice_solve4temp.F 605 THSICE_SOLVE4TEMP
     &                + dFlxdT(i,j)*dTsrf1(i,j) + evpAtm(i,j)*Lfresh
./pkg/thsice/thsice_solve4temp.F 634 THSICE_SOLVE4TEMP
     &           Tsf(i,j), tIc1(i,j), tIc2(i,j), dTsrf1(i,j)
./pkg/thsice/thsice_solve4temp.F 646 THSICE_SOLVE4TEMP
          dTsrf1(i,j) = 0. _d 0