| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_growth.F |
772 |
SEAICE_GROWTH |
QSW(I,J,bi,bj) = QSWI(I,J) * AREANm1(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
826 |
SEAICE_GROWTH |
CALL PLOT_FIELD_XYRL( QSW,'Current QSW ', myIter, myThid ) |
|
./pkg/seaice/seaice_growth_if.F |
1157 |
SEAICE_GROWTH_IF |
& QSW(i,j,bi,bj), |
|
./pkg/seaice/seaice_growth_if.F |
850 |
SEAICE_GROWTH_IF |
QSW(I,J,bi,bj) = |
|
./pkg/seaice/seaice_growth_if.F |
854 |
SEAICE_GROWTH_IF |
QSW(I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_growth_if.F |
946 |
SEAICE_GROWTH_IF |
QSW_absorb_in_ML(I,J) = QSW(I,J,bi,bj)* |
|
./pkg/seaice/seaice_growth_if.F |
955 |
SEAICE_GROWTH_IF |
& QSW(I,J,bi,bj) - QSW_absorb_in_ML(I,J) |
|
./pkg/seaice/seaice_output.F |
167 |
SEAICE_OUTPUT |
& QSWtave(i,j,bi,bj) +QSW(i,j,bi,bj) *deltaTclock |