| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_budget_ocean.F |
109 |
SEAICE_BUDGET_OCEAN |
& +D1*UG(I,J)*atempLoc(I,J)+D1W*UG(I,J)*AQH(I,J,bi,bj) |
|
./pkg/seaice/seaice_budget_ocean.F |
113 |
SEAICE_BUDGET_OCEAN |
A2(I,J)=-D1*UG(I,J)*tsurfLoc(I,J)-D1W*UG(I,J)*B(I,J) |
|
./pkg/seaice/seaice_budget_ocean.F |
55 |
SEAICE_BUDGET_OCEAN |
_RL QS1, D1, D1W, D3, TMELT |
|
./pkg/seaice/seaice_budget_ocean.F |
74 |
SEAICE_BUDGET_OCEAN |
D1W=SEAICE_dalton*SEAICE_lhEvap*SEAICE_rhoAir |
|
./pkg/seaice/seaice_budget_ocean_if.F |
133 |
SEAICE_BUDGET_OCEAN_IF |
& +D1*UG(I,J)*atempLoc(I,J)+D1W*UG(I,J)*AQH(I,J,bi,bj) |
|
./pkg/seaice/seaice_budget_ocean_if.F |
137 |
SEAICE_BUDGET_OCEAN_IF |
A2(I,J)=-D1*UG(I,J)*tsurfLoc(I,J)-D1W*UG(I,J)*B(I,J) |
|
./pkg/seaice/seaice_budget_ocean_if.F |
59 |
SEAICE_BUDGET_OCEAN_IF |
_RL QS1, TB, D1, D1W, D3, TMELT |
|
./pkg/seaice/seaice_budget_ocean_if.F |
87 |
SEAICE_BUDGET_OCEAN_IF |
D1W=SEAICE_dalton*SEAICE_lhEvap*SEAICE_rhoAir |