| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_calc_thickn.F |
1011 |
THSICE_CALC_THICKN |
frw2oc(i,j) = frw2oc(i,j) - evapLoc(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
1033 |
THSICE_CALC_THICKN |
& evapLoc(i,j),frw2oc(i,j),fsalt(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
1040 |
THSICE_CALC_THICKN |
frw2oc(i,j) = frw2oc(i,j) + (prcAtm(i,j)-snowP(i,j)) |
|
./pkg/thsice/thsice_calc_thickn.F |
1074 |
THSICE_CALC_THICKN |
frw2oc(i,j)=frw2oc(i,j)+extend/rqh*freshe |
|
./pkg/thsice/thsice_calc_thickn.F |
1081 |
THSICE_CALC_THICKN |
frw2oc(i,j)=frw2oc(i,j)+freshe |
|
./pkg/thsice/thsice_calc_thickn.F |
1112 |
THSICE_CALC_THICKN |
& icFrac(i,j), flx2oc(i,j), fsalt(i,j), frw2oc(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
1129 |
THSICE_CALC_THICKN |
I flx2oc(i,j), frw2oc(i,j), fsalt, |
|
./pkg/thsice/thsice_calc_thickn.F |
129 |
THSICE_CALC_THICKN |
_RL frw2oc (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/thsice/thsice_calc_thickn.F |
16 |
THSICE_CALC_THICKN |
O frw2oc, fsalt, frzSeaWat, |
|
./pkg/thsice/thsice_calc_thickn.F |
701 |
THSICE_CALC_THICKN |
frw2oc(i,j) = (mwater0(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
706 |
THSICE_CALC_THICKN |
frw2oc(i,j) = frw2oc(i,j) + snowP(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
841 |
THSICE_CALC_THICKN |
frw2oc(i,j) = frw2oc(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
855 |
THSICE_CALC_THICKN |
& esurp(i,j), frw2oc(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
929 |
THSICE_CALC_THICKN |
frw2oc(i,j) = frw2oc(i,j) + chi*rhoi/dt |
|
./pkg/thsice/thsice_extend.F |
128 |
THSICE_EXTEND |
frw2oc(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_extend.F |
15 |
THSICE_EXTEND |
O flx2oc, frw2oc, fsalt, |
|
./pkg/thsice/thsice_extend.F |
223 |
THSICE_EXTEND |
frw2oc(i,j)= -rhoi*iceFormed/deltaTice |
|
./pkg/thsice/thsice_extend.F |
232 |
THSICE_EXTEND |
& iceFrac,flx2oc(i,j),fsalt(i,j),frw2oc(i,j) |
|
./pkg/thsice/thsice_extend.F |
238 |
THSICE_EXTEND |
I flx2oc(i,j), frw2oc(i,j), fsalt(i,j), |
|
./pkg/thsice/thsice_extend.F |
85 |
THSICE_EXTEND |
_RL frw2oc (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/thsice/thsice_step_fwd.F |
143 |
THSICE_STEP_FWD |
frw2oc(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_step_fwd.F |
250 |
THSICE_STEP_FWD |
O frw2oc, fsalt, frzSeaWat, |
|
./pkg/thsice/thsice_step_fwd.F |
285 |
THSICE_STEP_FWD |
pass_evap(i,j) = pass_evap(i,j) - icFrac*frw2oc(i,j)/rhofw |
|
./pkg/thsice/thsice_step_fwd.F |
293 |
THSICE_STEP_FWD |
EmPmR(i,j,bi,bj)= -icFrac*frw2oc(i,j) |
|
./pkg/thsice/thsice_step_fwd.F |
300 |
THSICE_STEP_FWD |
frzSeaWat(i,j) = MAX( -icFrac*frw2oc(i,j), 0. _d 0 ) |
|
./pkg/thsice/thsice_step_fwd.F |
326 |
THSICE_STEP_FWD |
frw2oc(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_step_fwd.F |
339 |
THSICE_STEP_FWD |
O flx2oc, frw2oc, fsalt, |
|
./pkg/thsice/thsice_step_fwd.F |
351 |
THSICE_STEP_FWD |
pass_evap(i,j) = pass_evap(i,j) - frw2oc(i,j)/rhofw |
|
./pkg/thsice/thsice_step_fwd.F |
355 |
THSICE_STEP_FWD |
EmPmR(i,j,bi,bj)= EmPmR(i,j,bi,bj)- frw2oc(i,j) |
|
./pkg/thsice/thsice_step_fwd.F |
358 |
THSICE_STEP_FWD |
frzSeaWat(i,j) = frzSeaWat(i,j) + MAX(-frw2oc(i,j), 0. _d 0 ) |
|
./pkg/thsice/thsice_step_fwd.F |
95 |
THSICE_STEP_FWD |
_RL frw2oc (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |