Symbol Description Uses
Tmlt1 melting temp; depends on S (C) 16


File Line number Procedure Code
./pkg/thsice/thsice_solve4temp.F 153 THSICE_SOLVE4TEMP 
      b1 = qicen(1) + (cpwater-cpice )*Tmlt1 - Lfresh
./pkg/thsice/thsice_solve4temp.F 154 THSICE_SOLVE4TEMP 
      c1 = Lfresh * Tmlt1
./pkg/thsice/thsice_solve4temp.F 170 THSICE_SOLVE4TEMP 
     &      (rhoi*cpice*Tice(1)+rhoi*Lfresh*Tmlt1/Tice(1))
./pkg/thsice/thsice_solve4temp.F 174 THSICE_SOLVE4TEMP 
      c1 = rhoi*Lfresh*hi*Tmlt1 / (2. _d 0*dt)
./pkg/thsice/thsice_solve4temp.F 307 THSICE_SOLVE4TEMP 
      qicen(1) = -cpwater*Tmlt1 + cpice *(Tmlt1-Tice(1)) +
./pkg/thsice/thsice_solve4temp.F 308 THSICE_SOLVE4TEMP 
     &              Lfresh*(1. _d 0-Tmlt1/Tice(1))
./pkg/thsice/thsice_solve4temp.F 314 THSICE_SOLVE4TEMP 
      if (Tice(1) .ge. Tmlt1) then
./pkg/thsice/thsice_solve4temp.F 316 THSICE_SOLVE4TEMP 
     &   'BBerr - Bug: IceT(1) > Tmlt',i,j,bi,bj,Tice(1),Tmlt1
./pkg/thsice/THSICE_PARAMS.h 108 NO PROCEDURE 
      _RL  Tmlt1
./pkg/thsice/THSICE_PARAMS.h 77 NO PROCEDURE 
     &  Tf0kel, Tmlt1,
./pkg/thsice/thsice_readparms.F 170 THSICE_READPARMS 
      Tmlt1=-mu_Tf*S_winton
./pkg/thsice/thsice_readparms.F 223 THSICE_READPARMS 
      WRITE(iUnit,*) 'ThSI: Tmlt1   =',Tmlt1
./pkg/thsice/thsice_extend.F 84 THSICE_EXTEND 
          qicen(1)= -cpwater*Tmlt1
./pkg/thsice/thsice_extend.F 85 THSICE_EXTEND 
     &             + cpice *(Tmlt1-Tf) + Lfresh*(1. _d 0-Tmlt1/Tf)