| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/THSICE_PARAMS.h |
124 |
NO PROCEDURE |
_RL Tmlt1 |
|
./pkg/thsice/THSICE_PARAMS.h |
89 |
NO PROCEDURE |
& Tf0kel, Tmlt1, Terrmax, |
|
./pkg/thsice/thsice_extend.F |
186 |
THSICE_EXTEND |
qicen(1)= -cpWater*Tmlt1 |
|
./pkg/thsice/thsice_extend.F |
187 |
THSICE_EXTEND |
& + cpIce *(Tmlt1-Tf) + Lfresh*(1. _d 0-Tmlt1/Tf) |
|
./pkg/thsice/thsice_ini_vars.F |
152 |
THSICE_INI_VARS |
Qice1(i,j,bi,bj) = -cpWater*Tmlt1 |
|
./pkg/thsice/thsice_ini_vars.F |
153 |
THSICE_INI_VARS |
& + cpIce *(Tmlt1-Tf) + Lfresh*(1. _d 0-Tmlt1/Tf) |
|
./pkg/thsice/thsice_readparms.F |
233 |
THSICE_READPARMS |
Tmlt1=-mu_Tf*S_winton |
|
./pkg/thsice/thsice_readparms.F |
320 |
THSICE_READPARMS |
WRITE(iUnit,fmtR) 'ThSI:', 'Tmlt1 =', Tmlt1 |
|
./pkg/thsice/thsice_solve4temp.F |
300 |
THSICE_SOLVE4TEMP |
b1 = qIc1(i,j) + (cpWater-cpIce )*Tmlt1 - Lfresh |
|
./pkg/thsice/thsice_solve4temp.F |
301 |
THSICE_SOLVE4TEMP |
c1 = Lfresh * Tmlt1 |
|
./pkg/thsice/thsice_solve4temp.F |
328 |
THSICE_SOLVE4TEMP |
& ( rhoi*cpIce*tIc1(i,j) + rhoi*Lfresh*Tmlt1/tIc1(i,j) ) |
|
./pkg/thsice/thsice_solve4temp.F |
334 |
THSICE_SOLVE4TEMP |
c10(i,j) = rhoi*Lfresh*hIce(i,j)*Tmlt1 / (2. _d 0*dt) |
|
./pkg/thsice/thsice_solve4temp.F |
616 |
THSICE_SOLVE4TEMP |
qIc1(i,j) = -cpWater*Tmlt1 + cpIce *(Tmlt1-tIc1(i,j)) |
|
./pkg/thsice/thsice_solve4temp.F |
617 |
THSICE_SOLVE4TEMP |
& + Lfresh*(1. _d 0-Tmlt1/tIc1(i,j)) |
|
./pkg/thsice/thsice_solve4temp.F |
623 |
THSICE_SOLVE4TEMP |
IF (tIc1(i,j) .GE. Tmlt1) THEN |
|
./pkg/thsice/thsice_solve4temp.F |
625 |
THSICE_SOLVE4TEMP |
& ' BBerr - Bug: IceT(1) > Tmlt',i,j,bi,bj,tIc1(i,j),Tmlt1 |