| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_budget_ice_if.F |
110 |
SEAICE_BUDGET_ICE_IF |
D1I=SEAICE_dalton*SEAICE_lhSublim*SEAICE_rhoAir |
|
./pkg/seaice/seaice_budget_ice_if.F |
246 |
SEAICE_BUDGET_ICE_IF |
& D1I*UG(I,J)*dqhice_dTice |
|
./pkg/seaice/seaice_budget_ice_if.F |
249 |
SEAICE_BUDGET_ICE_IF |
F_lh(I,J) = D1I * UG(I,J) * (qhice_mm(I,J)-AQH(I,J,bi,bj)) |
|
./pkg/seaice/seaice_budget_ice_if.F |
294 |
SEAICE_BUDGET_ICE_IF |
F_lh(I,J) = D1I * UG(I,J) * (qhice_mm(I,J)-AQH(I,J,bi,bj)) |
|
./pkg/seaice/seaice_budget_ice_if.F |
76 |
SEAICE_BUDGET_ICE_IF |
_RL QS1, C1, C2, C3, C4, C5, TB, D1, D1I, D3,IAN1 |
|
./pkg/seaice/seaice_solve4temp.F |
117 |
SEAICE_SOLVE4TEMP |
_RL D1, D1I, D3 |
|
./pkg/seaice/seaice_solve4temp.F |
177 |
SEAICE_SOLVE4TEMP |
D1I=SEAICE_dalton*SEAICE_lhSublim*SEAICE_rhoAir |
|
./pkg/seaice/seaice_solve4temp.F |
314 |
SEAICE_SOLVE4TEMP |
& +D1*UG(I,J)*atempLoc(I,J)+D1I*UG(I,J)*AQH(I,J,bi,bj) |
|
./pkg/seaice/seaice_solve4temp.F |
320 |
SEAICE_SOLVE4TEMP |
& +D1*UG(I,J)*atempLoc(I,J)+D1I*UG(I,J)*AQH(I,J,bi,bj) |
|
./pkg/seaice/seaice_solve4temp.F |
442 |
SEAICE_SOLVE4TEMP |
F_lh(I,J) = D1I*UG(I,J)*(qhice(I,J)-AQH(I,J,bi,bj)) |
|
./pkg/seaice/seaice_solve4temp.F |
444 |
SEAICE_SOLVE4TEMP |
A2(I,J)=-D1*UG(I,J)*t1-D1I*UG(I,J)*qhice(I,J)-D3*t4 |
|
./pkg/seaice/seaice_solve4temp.F |
457 |
SEAICE_SOLVE4TEMP |
& + D1I*UG(I,J)*dqhice_dTice |
|
./pkg/seaice/seaice_solve4temp.F |
572 |
SEAICE_SOLVE4TEMP |
F_lh(I,J) = D1I * UG(I,J)*(qhice(I,J)-AQH(I,J,bi,bj)) |
|
./pkg/seaice/seaice_solve4temp.F |
594 |
SEAICE_SOLVE4TEMP |
& +D1*UG(I,J)*atempLoc(I,J)+D1I*UG(I,J)*AQH(I,J,bi,bj) |
|
./pkg/seaice/seaice_solve4temp.F |
595 |
SEAICE_SOLVE4TEMP |
A2(I,J)=-D1*UG(I,J)*t1-D1I*UG(I,J)*qhice(I,J)-D3*t4 |