| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/THSICE_PARAMS.h |
100 |
NO PROCEDURE |
_RL cpIce |
|
./pkg/thsice/THSICE_PARAMS.h |
81 |
NO PROCEDURE |
& cpIce, cpWater, |
|
./pkg/thsice/thsice_calc_thickn.F |
569 |
THSICE_CALC_THICKN |
qbot = -cpIce *tFrz(i,j) + Lfresh |
|
./pkg/thsice/thsice_extend.F |
187 |
THSICE_EXTEND |
& + cpIce *(Tmlt1-Tf) + Lfresh*(1. _d 0-Tmlt1/Tf) |
|
./pkg/thsice/thsice_extend.F |
188 |
THSICE_EXTEND |
qicen(2)= -cpIce *Tf + Lfresh |
|
./pkg/thsice/thsice_ini_vars.F |
153 |
THSICE_INI_VARS |
& + cpIce *(Tmlt1-Tf) + Lfresh*(1. _d 0-Tmlt1/Tf) |
|
./pkg/thsice/thsice_ini_vars.F |
154 |
THSICE_INI_VARS |
Qice2(i,j,bi,bj) = -cpIce *Tf + Lfresh |
|
./pkg/thsice/thsice_readparms.F |
112 |
THSICE_READPARMS |
cpIce = 2106. _d 0 |
|
./pkg/thsice/thsice_readparms.F |
296 |
THSICE_READPARMS |
WRITE(iUnit,fmtR) 'ThSI:', 'cpIce =', cpIce |
|
./pkg/thsice/thsice_readparms.F |
53 |
THSICE_READPARMS |
& cpIce, cpWater, |
|
./pkg/thsice/thsice_solve4temp.F |
299 |
THSICE_SOLVE4TEMP |
a1 = cpIce |
|
./pkg/thsice/thsice_solve4temp.F |
300 |
THSICE_SOLVE4TEMP |
b1 = qIc1(i,j) + (cpWater-cpIce )*Tmlt1 - Lfresh |
|
./pkg/thsice/thsice_solve4temp.F |
303 |
THSICE_SOLVE4TEMP |
tIc2(i,j) = (Lfresh-qIc2(i,j)) / cpIce |
|
./pkg/thsice/thsice_solve4temp.F |
324 |
THSICE_SOLVE4TEMP |
a10(i,j) = rhoi*cpIce *hIce(i,j)/(2. _d 0*dt) + |
|
./pkg/thsice/thsice_solve4temp.F |
325 |
THSICE_SOLVE4TEMP |
& k32*( 4. _d 0*dt*k32 + rhoi*cpIce *hIce(i,j) ) |
|
./pkg/thsice/thsice_solve4temp.F |
326 |
THSICE_SOLVE4TEMP |
& / ( 6. _d 0*dt*k32 + rhoi*cpIce *hIce(i,j) ) |
|
./pkg/thsice/thsice_solve4temp.F |
328 |
THSICE_SOLVE4TEMP |
& ( rhoi*cpIce*tIc1(i,j) + rhoi*Lfresh*Tmlt1/tIc1(i,j) ) |
|
./pkg/thsice/thsice_solve4temp.F |
331 |
THSICE_SOLVE4TEMP |
& +rhoi*cpIce*hIce(i,j)*tIc2(i,j) ) |
|
./pkg/thsice/thsice_solve4temp.F |
332 |
THSICE_SOLVE4TEMP |
& / ( 6. _d 0*dt*k32 + rhoi*cpIce *hIce(i,j) ) |
|
./pkg/thsice/thsice_solve4temp.F |
577 |
THSICE_SOLVE4TEMP |
& + rhoi*cpIce*hIce(i,j)*tIc2(i,j)) |
|
./pkg/thsice/thsice_solve4temp.F |
578 |
THSICE_SOLVE4TEMP |
& /(6. _d 0*dt*k32 + rhoi*cpIce*hIce(i,j)) |
|
./pkg/thsice/thsice_solve4temp.F |
616 |
THSICE_SOLVE4TEMP |
qIc1(i,j) = -cpWater*Tmlt1 + cpIce *(Tmlt1-tIc1(i,j)) |
|
./pkg/thsice/thsice_solve4temp.F |
618 |
THSICE_SOLVE4TEMP |
qIc2(i,j) = -cpIce *tIc2(i,j) + Lfresh |