| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_budget_ocean.F |
129 |
SEAICE_BUDGET_OCEAN |
hs(I,J,bi,bj) = D1*UG(I,J)*(atempLoc(I,J)-tsurfLoc(I,J)) |
|
./pkg/seaice/seaice_budget_ocean.F |
134 |
SEAICE_BUDGET_OCEAN |
hl(I,J,bi,bj) = D1W*UG(I,J)*(AQH(I,J,bi,bj)-ssq) |
|
./pkg/seaice/seaice_budget_ocean.F |
47 |
SEAICE_BUDGET_OCEAN |
_RL UG (1:sNx,1:sNy) |
|
./pkg/seaice/seaice_budget_ocean.F |
8 |
SEAICE_BUDGET_OCEAN |
I UG, |
|
./pkg/seaice/seaice_growth.F |
1080 |
SEAICE_GROWTH |
tmpscal2=sqrt(0.87 + 0.067*UG(i,j)) * UG(i,j) |
|
./pkg/seaice/seaice_growth.F |
191 |
SEAICE_GROWTH |
_RL UG (1:sNx,1:sNy) |
|
./pkg/seaice/seaice_growth.F |
736 |
SEAICE_GROWTH |
UG(I,J) = MAX(SEAICE_EPS,wspeed(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
748 |
SEAICE_GROWTH |
I UG, |
|
./pkg/seaice/seaice_growth.F |
770 |
SEAICE_GROWTH |
UG(I,J)=SEAICE_EPS |
|
./pkg/seaice/seaice_growth.F |
772 |
SEAICE_GROWTH |
UG(I,J)=SQRT(SPEED_SQ) |
|
./pkg/seaice/seaice_growth.F |
834 |
SEAICE_GROWTH |
I UG, heffActualMult(1,1,IT), hsnowActualMult(1,1,IT), |
|
./pkg/seaice/seaice_solve4temp.F |
16 |
SEAICE_SOLVE4TEMP |
I UG, HICE_ACTUAL, HSNOW_ACTUAL, |
|
./pkg/seaice/seaice_solve4temp.F |
404 |
SEAICE_SOLVE4TEMP |
F_lh(I,J) = D1I*UG(I,J)*(qhice(I,J)-AQH(I,J,bi,bj)) |
|
./pkg/seaice/seaice_solve4temp.F |
415 |
SEAICE_SOLVE4TEMP |
F_sens(I,J)= D1 * UG(I,J) * (t1 - atempLoc(I,J)) |
|
./pkg/seaice/seaice_solve4temp.F |
419 |
SEAICE_SOLVE4TEMP |
dFia_dTs(I,J) = 4.0 _d 0*D3(I,J)*t3 + D1*UG(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
420 |
SEAICE_SOLVE4TEMP |
& + D1I*UG(I,J)*dqh_dTs(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
507 |
SEAICE_SOLVE4TEMP |
F_lh(I,J) = D1I * UG(I,J)*(qhice(I,J)-AQH(I,J,bi,bj)) |
|
./pkg/seaice/seaice_solve4temp.F |
514 |
SEAICE_SOLVE4TEMP |
F_sens(I,J) = D1 * UG(I,J) * (t1 - atempLoc(I,J)) |
|
./pkg/seaice/seaice_solve4temp.F |
525 |
SEAICE_SOLVE4TEMP |
& + D1I*UG(I,J)*dqh_dTs(I,J)*delTsurf |
|
./pkg/seaice/seaice_solve4temp.F |
74 |
SEAICE_SOLVE4TEMP |
_RL UG (1:sNx,1:sNy) |