| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/SEAICE.h |
127 |
NO PROCEDURE |
COMMON/OFL/YNEG |
|
./pkg/seaice/SEAICE.h |
129 |
NO PROCEDURE |
_RL YNEG (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/seaice_growth.F |
396 |
SEAICE_GROWTH |
YNEG(I,J,bi,bj) = hEffOld(I,J) - HEFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
399 |
SEAICE_GROWTH |
& - YNEG(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
400 |
SEAICE_GROWTH |
RESID_HEAT(I,J) = availHeat(I,J) - YNEG(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
410 |
SEAICE_GROWTH |
CALL DIAGNOSTICS_FILL(YNEG,'SIyneg ',0,1,1,bi,bj,myThid) |
|
./pkg/seaice/seaice_growth.F |
617 |
SEAICE_GROWTH |
YNEG(I,J,bi,bj) = YNEG(I,J,bi,bj) +GHEFF(I,J) |
|
./pkg/seaice/seaice_growth.F |
805 |
SEAICE_GROWTH |
YNEG(I,J,bi,bj) = YNEG(I,J,bi,bj)*recip_dRf(kSurface) * |
|
./pkg/seaice/seaice_growth.F |
818 |
SEAICE_GROWTH |
& +YNEG(I,J,bi,bj)/SEAICE_deltaTtherm |
|
./pkg/seaice/seaice_init_varia.F |
131 |
SEAICE_INIT_VARIA |
YNEG (i,j,bi,bj) = 0. _d 0 |