| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_pickup.F |
116 |
SEAICE_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL', 1, YNEG, 8, myIt,myThid) |
|
./pkg/seaice/seaice_pickup.F |
124 |
SEAICE_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL', 1, YNEG, 2, myIt,myThid) |
|
./pkg/seaice/seaice_pickup.F |
44 |
SEAICE_READ_PICKUP |
CALL MDSREADFIELD( fn, precFloat64, 'RL', 1, YNEG , 8, myThid ) |
|
./pkg/seaice/seaice_pickup.F |
52 |
SEAICE_READ_PICKUP |
CALL MDSREADFIELD( fn, precFloat64, 'RL', 1, YNEG , 2, myThid ) |
|
./pkg/seaice/seaice_pickup.F |
68 |
SEAICE_READ_PICKUP |
_EXCH_XY_R8(YNEG , myThid ) |
|
./pkg/seaice/SEAICE.h |
49 |
NO PROCEDURE |
COMMON/OFL/YNEG |
|
./pkg/seaice/SEAICE.h |
56 |
NO PROCEDURE |
_RL YNEG (1-OLx:sNx+OLx,1-OLy:sNy+OLy, nSx,nSy) |
|
./pkg/seaice/seaice_init.F |
286 |
SEAICE_INIT |
YNEG(I,J,bi,bj)=ZERO |
|
./pkg/seaice/growth.F |
122 |
GROWTH |
YNEG(I,J,bi,bj)=(theta(I,J,1,bi,bj)-TBC)*dRf(1)/72.0764 _d 0 |
|
./pkg/seaice/growth.F |
124 |
GROWTH |
YNEG(I,J,bi,bj)= 0. |
|
./pkg/seaice/growth.F |
127 |
GROWTH |
HEFF(I,J,1,bi,bj)=MAX(ZERO,HEFF(I,J,1,bi,bj)-YNEG(I,J,bi,bj)) |
|
./pkg/seaice/growth.F |
128 |
GROWTH |
YNEG(I,J,bi,bj)=GHEFF(I,J)-HEFF(I,J,1,bi,bj) |
|
./pkg/seaice/growth.F |
129 |
GROWTH |
SEAICE_SALT(I,J,bi,bj)=SEAICE_SALT(I,J,bi,bj)-YNEG(I,J,bi,bj) |
|
./pkg/seaice/growth.F |
131 |
GROWTH |
YNEG(I,J,bi,bj)=YNEG(I,J,bi,bj)*recip_dRf(1)*72.0764 _d 0 |
|
./pkg/seaice/growth.F |
262 |
GROWTH |
& +YNEG(I,J,bi,bj)/SEAICE_deltaTtherm*maskC(I,J,1,bi,bj) |