Symbol Description Uses
TMELT 8


File Line number Procedure Code
./pkg/seaice/seaice_budget_ocean.F 127 SEAICE_BUDGET_OCEAN 
        sstdegC = tsurfLoc(I,J) - TMELT
./pkg/seaice/seaice_budget_ocean.F 59 SEAICE_BUDGET_OCEAN 
      _RL  QS1, D1, D1W, D3, TMELT
./pkg/seaice/seaice_budget_ocean.F 80 SEAICE_BUDGET_OCEAN 
      TMELT = celsius2K
./pkg/seaice/seaice_solve4temp.F 102 SEAICE_SOLVE4TEMP 
      _RL TMELT, XKI, XKS, HCUT, recip_HCUT, XIO
./pkg/seaice/seaice_solve4temp.F 196 SEAICE_SOLVE4TEMP 
      TMELT        = celsius2K
./pkg/seaice/seaice_solve4temp.F 215 SEAICE_SOLVE4TEMP 
      SurfMeltTemp = TMELT + SEAICE_wetAlbTemp
./pkg/seaice/seaice_solve4temp.F 340 SEAICE_SOLVE4TEMP 
     &         'ibi iter, TMELT       ',myIter,TMELT
./pkg/seaice/seaice_solve4temp.F 450 SEAICE_SOLVE4TEMP 
          tsurfLoc(I,J) = MIN( tsurfLoc(I,J), TMELT )