| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_growth_if.F |
202 |
SEAICE_GROWTH_IF |
QI = 1/rhoi/Li |
|
./pkg/thsice/THSICE_PARAMS.h |
80 |
NO PROCEDURE |
& rhos, rhoi, rhosw, rhofw, floodFac, |
|
./pkg/thsice/THSICE_PARAMS.h |
96 |
NO PROCEDURE |
_RL rhoi |
|
./pkg/thsice/thsice_advdiff.F |
457 |
THSICE_ADVDIFF |
& +rhoi*iceHeight(i,j,bi,bj) |
|
./pkg/thsice/thsice_advdiff.F |
459 |
THSICE_ADVDIFF |
oceSflx(i,j,bi,bj) = rhoi*iceHeight(i,j,bi,bj)*saltIce |
|
./pkg/thsice/thsice_advdiff.F |
462 |
THSICE_ADVDIFF |
& +rhoi*iceHeight(i,j,bi,bj) |
|
./pkg/thsice/thsice_calc_thickn.F |
1022 |
THSICE_CALC_THICKN |
fsalt(i,j) = (msalt0(i,j) - rhoi*hIce(i,j)*saltIce)/dt |
|
./pkg/thsice/thsice_calc_thickn.F |
1027 |
THSICE_CALC_THICKN |
& (mwater0(i,j)-(rhos*hSnow(i,j)+rhoi*hIce(i,j)))/dt, |
|
./pkg/thsice/thsice_calc_thickn.F |
1060 |
THSICE_CALC_THICKN |
rq = rhoi * 0.5 _d 0*(qicen(i,j,1)+qicen(i,j,2)) |
|
./pkg/thsice/thsice_calc_thickn.F |
1063 |
THSICE_CALC_THICKN |
freshe=(rhos*hSnow(i,j)+rhoi*hIce(i,j))/dt |
|
./pkg/thsice/thsice_calc_thickn.F |
1064 |
THSICE_CALC_THICKN |
salte=(rhoi*hIce(i,j)*saltIce)/dt |
|
./pkg/thsice/thsice_calc_thickn.F |
394 |
THSICE_CALC_THICKN |
mwater0(i,j) = rhos*hSnow(i,j) + rhoi*hIce(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
395 |
THSICE_CALC_THICKN |
msalt0 (i,j) = rhoi*hIce(i,j)*saltIce |
|
./pkg/thsice/thsice_calc_thickn.F |
536 |
THSICE_CALC_THICKN |
rq = rhoi * qicen(i,j,k) |
|
./pkg/thsice/thsice_calc_thickn.F |
569 |
THSICE_CALC_THICKN |
dhi = -ebot(i,j) / (qbot * rhoi) |
|
./pkg/thsice/thsice_calc_thickn.F |
614 |
THSICE_CALC_THICKN |
rq = rhoi * qicen(i,j,k) |
|
./pkg/thsice/thsice_calc_thickn.F |
672 |
THSICE_CALC_THICKN |
& - rhoi*qicen(i,j,1)*hnew(i,j,1) |
|
./pkg/thsice/thsice_calc_thickn.F |
673 |
THSICE_CALC_THICKN |
& - rhoi*qicen(i,j,2)*hnew(i,j,2) |
|
./pkg/thsice/thsice_calc_thickn.F |
699 |
THSICE_CALC_THICKN |
& - (rhos*hSnow(i,j)+rhoi*hIce(i,j)))/dt |
|
./pkg/thsice/thsice_calc_thickn.F |
787 |
THSICE_CALC_THICKN |
dhi = evapLoc(i,j)/rhoi*dt |
|
./pkg/thsice/thsice_calc_thickn.F |
789 |
THSICE_CALC_THICKN |
evapLoc(i,j)=evapLoc(i,j)-hnew(i,j,k)*rhoi/dt |
|
./pkg/thsice/thsice_calc_thickn.F |
791 |
THSICE_CALC_THICKN |
& - hnew(i,j,k)*rhoi*(qicen(i,j,k)-Lfresh) |
|
./pkg/thsice/thsice_calc_thickn.F |
836 |
THSICE_CALC_THICKN |
& + (rhos*hSnow(i,j) + rhoi*hIce(i,j))/dt |
|
./pkg/thsice/thsice_calc_thickn.F |
838 |
THSICE_CALC_THICKN |
& - rhoi*qicen(i,j,1)*hnew(i,j,1) |
|
./pkg/thsice/thsice_calc_thickn.F |
839 |
THSICE_CALC_THICKN |
& - rhoi*qicen(i,j,2)*hnew(i,j,2) |
|
./pkg/thsice/thsice_calc_thickn.F |
905 |
THSICE_CALC_THICKN |
dhs = (hSnow(i,j) - hIce(i,j)*floodFac) * rhoi / rhosw |
|
./pkg/thsice/thsice_calc_thickn.F |
907 |
THSICE_CALC_THICKN |
dhi = dhs * rhos / rhoi |
|
./pkg/thsice/thsice_calc_thickn.F |
908 |
THSICE_CALC_THICKN |
rqh = rhoi*qicen(i,j,1)*hnew(i,j,1) + rhos*qsnow*dhs |
|
./pkg/thsice/thsice_calc_thickn.F |
910 |
THSICE_CALC_THICKN |
qicen(i,j,1) = rqh / (rhoi*hnew(i,j,1)) |
|
./pkg/thsice/thsice_calc_thickn.F |
924 |
THSICE_CALC_THICKN |
frw2oc(i,j) = frw2oc(i,j) + chi*rhoi/dt |
|
./pkg/thsice/thsice_check_conserv.F |
68 |
THSICE_CHECK_CONSERV |
& -rhoi*iceHeight(i,j,bi,bj) |
|
./pkg/thsice/thsice_check_conserv.F |
70 |
THSICE_CHECK_CONSERV |
dWater = rhos*snowheight(i,j,bi,bj)+rhoi*iceHeight(i,j,bi,bj) |
|
./pkg/thsice/thsice_check_conserv.F |
71 |
THSICE_CHECK_CONSERV |
dSalt = rhoi*iceHeight(i,j,bi,bj)*saltice |
|
./pkg/thsice/thsice_check_conserv.F |
77 |
THSICE_CHECK_CONSERV |
& + rhoi*hIce*(qicen(1)+qicen(2))*0.5 |
|
./pkg/thsice/thsice_check_conserv.F |
80 |
THSICE_CHECK_CONSERV |
& - compact*( rhos*hSnow + rhoi*hIce ) |
|
./pkg/thsice/thsice_check_conserv.F |
82 |
THSICE_CHECK_CONSERV |
& - compact* rhoi*hIce*saltice |
|
./pkg/thsice/thsice_diffusion.F |
78 |
THSICE_DIFFUSION |
& +rhoi*iceHeight(i,j,bi,bj) ) |
|
./pkg/thsice/thsice_extend.F |
181 |
THSICE_EXTEND |
qicAv = rhoi*(qicen(1)+qicen(2))*0.5 _d 0 |
|
./pkg/thsice/thsice_extend.F |
214 |
THSICE_EXTEND |
frw2oc(i,j)= -rhoi*iceFormed/deltaTice |
|
./pkg/thsice/thsice_extend.F |
215 |
THSICE_EXTEND |
fsalt(i,j)= -(rhoi*saltIce)*iceFormed/deltaTice |
|
./pkg/thsice/thsice_ini_vars.F |
178 |
THSICE_INI_VARS |
& + iceHeight(i,j,bi,bj)*rhoi |
|
./pkg/thsice/thsice_monitor.F |
255 |
THSICE_MONITOR |
theEnergy = theEnergy -rhoi*(theMean1+theMean2)*theVolG/2 |
|
./pkg/thsice/thsice_readparms.F |
196 |
THSICE_READPARMS |
floodFac = (rhosw - rhoi)/rhos |
|
./pkg/thsice/thsice_readparms.F |
257 |
THSICE_READPARMS |
WRITE(iUnit,*) 'ThSI: rhoi =',rhoi |
|
./pkg/thsice/thsice_readparms.F |
49 |
THSICE_READPARMS |
& rhos, rhoi, rhosw, rhofw, |
|
./pkg/thsice/thsice_readparms.F |
88 |
THSICE_READPARMS |
rhoi = 900. _d 0 |
|
./pkg/thsice/thsice_solve4temp.F |
305 |
THSICE_SOLVE4TEMP |
a10(i,j) = rhoi*cpIce *hIce(i,j)/(2. _d 0*dt) + |
|
./pkg/thsice/thsice_solve4temp.F |
306 |
THSICE_SOLVE4TEMP |
& k32*( 4. _d 0*dt*k32 + rhoi*cpIce *hIce(i,j) ) |
|
./pkg/thsice/thsice_solve4temp.F |
307 |
THSICE_SOLVE4TEMP |
& / ( 6. _d 0*dt*k32 + rhoi*cpIce *hIce(i,j) ) |
|
./pkg/thsice/thsice_solve4temp.F |
309 |
THSICE_SOLVE4TEMP |
& ( rhoi*cpIce*tIc1(i,j) + rhoi*Lfresh*Tmlt1/tIc1(i,j) ) |
|
./pkg/thsice/thsice_solve4temp.F |
312 |
THSICE_SOLVE4TEMP |
& +rhoi*cpIce*hIce(i,j)*tIc2(i,j) ) |
|
./pkg/thsice/thsice_solve4temp.F |
313 |
THSICE_SOLVE4TEMP |
& / ( 6. _d 0*dt*k32 + rhoi*cpIce *hIce(i,j) ) |
|
./pkg/thsice/thsice_solve4temp.F |
315 |
THSICE_SOLVE4TEMP |
c10(i,j) = rhoi*Lfresh*hIce(i,j)*Tmlt1 / (2. _d 0*dt) |
|
./pkg/thsice/thsice_solve4temp.F |
527 |
THSICE_SOLVE4TEMP |
& + rhoi*cpIce*hIce(i,j)*tIc2(i,j)) |
|
./pkg/thsice/thsice_solve4temp.F |
528 |
THSICE_SOLVE4TEMP |
& /(6. _d 0*dt*k32 + rhoi*cpIce*hIce(i,j)) |
|
./pkg/thsice/thsice_step_fwd.F |
376 |
THSICE_STEP_FWD |
& + iceHeight(i,j,bi,bj)*rhoi |
|
./pkg/aim_compon_interf/atm_store_seaice.F |
64 |
ATM_STORE_SEAICE |
& + iceHeight(i,j,bi,bj)*rhoi |