| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_growth.F |
770 |
SEAICE_GROWTH |
QNET(I,J,bi,bj) = QNETI(I,J) * AREANm1(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
817 |
SEAICE_GROWTH |
QNET(I,J,bi,bj) = QNET(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
827 |
SEAICE_GROWTH |
CALL PLOT_FIELD_XYRL( QNET,'Current QNET ', myIter, myThid ) |
|
./pkg/seaice/seaice_growth_if.F |
1153 |
SEAICE_GROWTH_IF |
& QNET(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth_if.F |
908 |
SEAICE_GROWTH_IF |
QNET(I,J,bi,bj) = |
|
./pkg/seaice/seaice_growth_if.F |
961 |
SEAICE_GROWTH_IF |
& -(QNET(I,J,bi,bj)-QSWO(I,J))*(1. -AREANm1(I,J,bi,bj)) |
|
./pkg/seaice/seaice_output.F |
165 |
SEAICE_OUTPUT |
& QNETtave(i,j,bi,bj) +QNET(i,j,bi,bj) *deltaTclock |