| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_do_diags.F |
252 |
SEAICE_DO_DIAGS |
& QNETtave(i,j,1,bi,bj) +QNET(i,j,bi,bj) *deltaTclock |
|
./pkg/seaice/budget.F |
109 |
BUDGET |
FICE1(I,J,bi,bj)=QNET(I,J,bi,bj) |
|
./pkg/seaice/growth.F |
262 |
GROWTH |
QNET(I,J,bi,bj)=QNETI(I,J,bi,bj)*AR(I,J,bi,bj) |
|
./pkg/seaice/growth.F |
270 |
GROWTH |
QNET(I,J,bi,bj)=QNET(I,J,bi,bj) |
|
./pkg/seaice/growth.F |
311 |
GROWTH |
CALL PLOT_FIELD_XYRL( QNET,'Current QNET ', myIter, myThid ) |
|
./pkg/seaice/growth.F |
317 |
GROWTH |
print*,'I J QNET:',I, J, QNET(i,j,bi,bj), QSW(I,J,bi,bj) |
|
./pkg/seaice/growth.F |
329 |
GROWTH |
& +(ONE-AR(I,J,bi,bj))*QNETO(I,J,bi,bj), QNET(I,J,bi,bj) |