| File |
Line number |
Procedure |
Code |
|
./pkg/bulk_force/bulkf_formula_lanl.F |
119 |
BULKF_FORMULA_LANL |
if (iceornot.gt.0) lath=Lvap+Lfresh |
|
./pkg/bulk_force/bulkf_readparms.F |
159 |
BULKF_READPARMS |
WRITE(iUnit,*) 'BlkF: Lfresh =',Lfresh |
|
./pkg/bulk_force/bulkf_readparms.F |
39 |
BULKF_READPARMS |
& Lvap, Lfresh, |
|
./pkg/bulk_force/bulkf_readparms.F |
82 |
BULKF_READPARMS |
Lfresh = 3.34 _d 5 |
|
./pkg/bulk_force/BULKF_PARAMS.h |
51 |
NO PROCEDURE |
& Lvap, Lfresh, |
|
./pkg/bulk_force/BULKF_PARAMS.h |
68 |
NO PROCEDURE |
_RL Lfresh |
|
./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 |
156 |
THSICE_SOLVE4TEMP |
Tice(2) = (Lfresh-qicen(2)) / cpice |
|
./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 |
292 |
THSICE_SOLVE4TEMP |
& + evpAtm*Lfresh |
|
./pkg/thsice/thsice_solve4temp.F |
308 |
THSICE_SOLVE4TEMP |
& Lfresh*(1. _d 0-Tmlt1/Tice(1)) |
|
./pkg/thsice/thsice_solve4temp.F |
309 |
THSICE_SOLVE4TEMP |
qicen(2) = -cpice *Tice(2) + Lfresh |
|
./pkg/thsice/THSICE_PARAMS.h |
72 |
NO PROCEDURE |
& transcoef, Lfresh, qsnow, |
|
./pkg/thsice/THSICE_PARAMS.h |
92 |
NO PROCEDURE |
_RL Lfresh |
|
./pkg/thsice/thsice_calc_thickn.F |
271 |
THSICE_CALC_THICKN |
qbot = -cpice *Tf + Lfresh |
|
./pkg/thsice/thsice_calc_thickn.F |
348 |
THSICE_CALC_THICKN |
qleft = qleft - snowPr*Lfresh |
|
./pkg/thsice/thsice_calc_thickn.F |
383 |
THSICE_CALC_THICKN |
esurp = esurp - hnew(k)*rhoi*(qicen(k)-Lfresh) |
|
./pkg/thsice/thsice_calc_thickn.F |
386 |
THSICE_CALC_THICKN |
hq = hnew(k)*qicen(k)-dhi*Lfresh |
|
./pkg/thsice/thsice_calc_thickn.F |
495 |
THSICE_CALC_THICKN |
qleft = qleft + evap*Lfresh |
|
./pkg/thsice/thsice_monitor.F |
131 |
THSICE_MONITOR |
theEnergy = -rhos*Lfresh*theMeanG |
|
./pkg/thsice/thsice_readparms.F |
207 |
THSICE_READPARMS |
WRITE(iUnit,*) 'ThSI: Lfresh =',Lfresh |
|
./pkg/thsice/thsice_readparms.F |
51 |
THSICE_READPARMS |
& transcoef, Lfresh, qsnow, |
|
./pkg/thsice/thsice_readparms.F |
94 |
THSICE_READPARMS |
Lfresh = 3.34 _d 5 |
|
./pkg/thsice/thsice_readparms.F |
95 |
THSICE_READPARMS |
qsnow = Lfresh |
|
./pkg/thsice/thsice_extend.F |
85 |
THSICE_EXTEND |
& + cpice *(Tmlt1-Tf) + Lfresh*(1. _d 0-Tmlt1/Tf) |
|
./pkg/thsice/thsice_extend.F |
86 |
THSICE_EXTEND |
qicen(2)= -cpice *Tf + Lfresh |
|
./pkg/thsice/thsice_step_fwd.F |
239 |
THSICE_STEP_FWD |
flxAtm(i,j) = flxAtm(i,j) - Lfresh*snowPrc(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
243 |
THSICE_STEP_FWD |
& iceMask(i,j,bi,bj),flxAtm(i,j),evpAtm(i,j),-Lfresh*snowPr |
|
./pkg/thsice/thsice_reshape_layers.F |
59 |
THSICE_RESHAPE_LAYERS |
if (q2tmp.gt.Lfresh) then |