| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_growth.F |
508 |
SEAICE_GROWTH |
growthNeg = -SEAICE_deltaTtherm*FHEFF(I,J)*recip_QI |
|
./pkg/seaice/seaice_growth.F |
511 |
SEAICE_GROWTH |
growthHEFF = -ONE*MIN(HEFF(I,J,bi,bj),growthNeg) |
|
./pkg/seaice/seaice_growth.F |
561 |
SEAICE_GROWTH |
growthNeg = -SEAICE_deltaTtherm* |
|
./pkg/seaice/seaice_growth.F |
565 |
SEAICE_GROWTH |
growthHEFF = -ONE*MIN(HEFF(I,J,bi,bj),growthNeg) |
|
./pkg/seaice/seaice_growth.F |
575 |
SEAICE_GROWTH |
QNETI(I,J) = (growthHEFF + growthNeg)*QI/SEAICE_deltaTtherm |
|
./pkg/seaice/seaice_growth.F |
60 |
SEAICE_GROWTH |
_RL growthHEFF, growthNeg |