| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/THSICE_PARAMS.h |
105 |
NO PROCEDURE |
_RL Lfresh |
|
./pkg/thsice/THSICE_PARAMS.h |
83 |
NO PROCEDURE |
& bMeltCoef, Lfresh, qsnow, |
|
./pkg/thsice/thsice_calc_thickn.F |
1015 |
THSICE_CALC_THICKN |
flx2oc(i,j) = flx2oc(i,j) + evapLoc(i,j)*Lfresh |
|
./pkg/thsice/thsice_calc_thickn.F |
569 |
THSICE_CALC_THICKN |
qbot = -cpIce *tFrz(i,j) + Lfresh |
|
./pkg/thsice/thsice_calc_thickn.F |
707 |
THSICE_CALC_THICKN |
flx2oc(i,j) = flx2oc(i,j) - snowP(i,j)*Lfresh |
|
./pkg/thsice/thsice_calc_thickn.F |
797 |
THSICE_CALC_THICKN |
& - hnew(i,j,k)*rhoi*(qicen(i,j,k)-Lfresh) |
|
./pkg/thsice/thsice_calc_thickn.F |
803 |
THSICE_CALC_THICKN |
hq = hnew(i,j,k)*qicen(i,j,k)-dhi*Lfresh |
|
./pkg/thsice/thsice_calc_thickn.F |
961 |
THSICE_CALC_THICKN |
if (q2tmp.gt.Lfresh) then |
|
./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_monitor.F |
159 |
THSICE_MONITOR |
theEnergy = -rhos*Lfresh*theMeanG |
|
./pkg/thsice/thsice_readparms.F |
117 |
THSICE_READPARMS |
Lfresh = 3.34 _d 5 |
|
./pkg/thsice/thsice_readparms.F |
118 |
THSICE_READPARMS |
qsnow = Lfresh |
|
./pkg/thsice/thsice_readparms.F |
301 |
THSICE_READPARMS |
WRITE(iUnit,fmtR) 'ThSI:', 'Lfresh =', Lfresh |
|
./pkg/thsice/thsice_readparms.F |
55 |
THSICE_READPARMS |
& bMeltCoef, Lfresh, qsnow, |
|
./pkg/thsice/thsice_reshape_layers.F |
59 |
THSICE_RESHAPE_LAYERS |
if (q2tmp.gt.Lfresh) then |
|
./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 |
303 |
THSICE_SOLVE4TEMP |
tIc2(i,j) = (Lfresh-qIc2(i,j)) / cpIce |
|
./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 |
605 |
THSICE_SOLVE4TEMP |
& + dFlxdT(i,j)*dTsrf1(i,j) + evpAtm(i,j)*Lfresh |
|
./pkg/thsice/thsice_solve4temp.F |
617 |
THSICE_SOLVE4TEMP |
& + Lfresh*(1. _d 0-Tmlt1/tIc1(i,j)) |
|
./pkg/thsice/thsice_solve4temp.F |
618 |
THSICE_SOLVE4TEMP |
qIc2(i,j) = -cpIce *tIc2(i,j) + Lfresh |
|
./pkg/thsice/thsice_step_fwd.F |
175 |
THSICE_STEP_FWD |
& - Lfresh*snowPrc(i,j) |
|
./pkg/thsice/thsice_step_fwd.F |
229 |
THSICE_STEP_FWD |
& icFrwAtm(i,j,bi,bj),-Lfresh*snowPrc(i,j) |
|
./pkg/thsice/thsice_step_fwd.F |
382 |
THSICE_STEP_FWD |
Qice1(i,j,bi,bj) = Lfresh |
|
./pkg/thsice/thsice_step_fwd.F |
383 |
THSICE_STEP_FWD |
Qice2(i,j,bi,bj) = Lfresh |
|
./pkg/bulk_force/BULKF_PARAMS.h |
64 |
NO PROCEDURE |
_RL Lfresh |
|
./pkg/bulk_force/BULKF_PARAMS.h |
89 |
NO PROCEDURE |
& cpAir, Lvap, Lfresh, |
|
./pkg/bulk_force/bulkf_forcing.F |
236 |
BULKF_FORCING |
& + Lfresh*rain(i,j,bi,bj)*rhoConstFresh |
|
./pkg/bulk_force/bulkf_formula_aim.F |
103 |
BULKF_FORMULA_AIM |
EQUIVALENCE ( Lfresh , ALHF ) |
|
./pkg/bulk_force/bulkf_formula_lanl.F |
137 |
BULKF_FORMULA_LANL |
if (iceornot.gt.0) lath=Lvap+Lfresh |
|
./pkg/bulk_force/bulkf_formula_lay.F |
161 |
BULKF_FORMULA_LAY |
lath = Lvap+Lfresh |
|
./pkg/bulk_force/bulkf_readparms.F |
218 |
BULKF_READPARMS |
WRITE(iUnit,*) 'BlkF: Lfresh =',Lfresh |
|
./pkg/bulk_force/bulkf_readparms.F |
38 |
BULKF_READPARMS |
& cpAir, Lvap, Lfresh, |
|
./pkg/bulk_force/bulkf_readparms.F |
93 |
BULKF_READPARMS |
Lfresh = 3.34 _d 5 |
|
./pkg/cheapaml/cheapaml_seaice.F |
128 |
CHEAPAML_SEAICE |
LatentHeat = Lfresh + LVapor |