| 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 |
1062 |
SEAICE_GROWTH |
tmpscal2=sqrt(0.87 + 0.067*UG(i,j)) * UG(i,j) |
|
./pkg/seaice/seaice_growth.F |
186 |
SEAICE_GROWTH |
_RL UG (1:sNx,1:sNy) |
|
./pkg/seaice/seaice_growth.F |
718 |
SEAICE_GROWTH |
UG(I,J) = MAX(SEAICE_EPS,wspeed(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
730 |
SEAICE_GROWTH |
I UG, |
|
./pkg/seaice/seaice_growth.F |
752 |
SEAICE_GROWTH |
UG(I,J)=SEAICE_EPS |
|
./pkg/seaice/seaice_growth.F |
754 |
SEAICE_GROWTH |
UG(I,J)=SQRT(SPEED_SQ) |
|
./pkg/seaice/seaice_growth.F |
816 |
SEAICE_GROWTH |
I UG, heffActualMult(1,1,IT), hsnowActualMult(1,1,IT), |
|
./pkg/seaice/seaice_solve4temp.F |
13 |
SEAICE_SOLVE4TEMP |
I UG, HICE_ACTUAL, HSNOW_ACTUAL, |
|
./pkg/seaice/seaice_solve4temp.F |
401 |
SEAICE_SOLVE4TEMP |
F_lh(I,J) = D1I*UG(I,J)*(qhice(I,J)-AQH(I,J,bi,bj)) |
|
./pkg/seaice/seaice_solve4temp.F |
412 |
SEAICE_SOLVE4TEMP |
F_sens(I,J)= D1 * UG(I,J) * (t1 - atempLoc(I,J)) |
|
./pkg/seaice/seaice_solve4temp.F |
416 |
SEAICE_SOLVE4TEMP |
dFia_dTs(I,J) = 4.0 _d 0*D3(I,J)*t3 + D1*UG(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
417 |
SEAICE_SOLVE4TEMP |
& + D1I*UG(I,J)*dqh_dTs(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
504 |
SEAICE_SOLVE4TEMP |
F_lh(I,J) = D1I * UG(I,J)*(qhice(I,J)-AQH(I,J,bi,bj)) |
|
./pkg/seaice/seaice_solve4temp.F |
511 |
SEAICE_SOLVE4TEMP |
F_sens(I,J) = D1 * UG(I,J) * (t1 - atempLoc(I,J)) |
|
./pkg/seaice/seaice_solve4temp.F |
522 |
SEAICE_SOLVE4TEMP |
& + D1I*UG(I,J)*dqh_dTs(I,J)*delTsurf |
|
./pkg/seaice/seaice_solve4temp.F |
71 |
SEAICE_SOLVE4TEMP |
_RL UG (1:sNx,1:sNy) |