| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_pickup.F |
143 |
SEAICE_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL', 1, YNEG, 8, myIt,myThid) |
|
./pkg/seaice/seaice_pickup.F |
161 |
SEAICE_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL', 1, YNEG, 2, myIt,myThid) |
|
./pkg/seaice/seaice_pickup.F |
45 |
SEAICE_READ_PICKUP |
CALL MDSREADFIELD( fn, precFloat64, 'RL', 1, YNEG , 8, myThid ) |
|
./pkg/seaice/seaice_pickup.F |
63 |
SEAICE_READ_PICKUP |
CALL MDSREADFIELD( fn, precFloat64, 'RL', 1, YNEG , 2, myThid ) |
|
./pkg/seaice/seaice_pickup.F |
89 |
SEAICE_READ_PICKUP |
_EXCH_XY_R8(YNEG , myThid ) |
|
./pkg/seaice/SEAICE.h |
83 |
NO PROCEDURE |
COMMON/OFL/YNEG |
|
./pkg/seaice/SEAICE.h |
93 |
NO PROCEDURE |
_RL YNEG (1-OLx:sNx+OLx,1-OLy:sNy+OLy, nSx,nSy) |
|
./pkg/seaice/seaice_init.F |
246 |
SEAICE_INIT |
YNEG(I,J,bi,bj)=ZERO |
|
./pkg/seaice/growth.F |
125 |
GROWTH |
YNEG(I,J,bi,bj)=(theta(I,J,kSurface,bi,bj)-TBC) |
|
./pkg/seaice/growth.F |
128 |
GROWTH |
YNEG(I,J,bi,bj)= 0. |
|
./pkg/seaice/growth.F |
131 |
GROWTH |
HEFF(I,J,1,bi,bj)=MAX(ZERO,HEFF(I,J,1,bi,bj)-YNEG(I,J,bi,bj)) |
|
./pkg/seaice/growth.F |
132 |
GROWTH |
YNEG(I,J,bi,bj)=GHEFF(I,J)-HEFF(I,J,1,bi,bj) |
|
./pkg/seaice/growth.F |
133 |
GROWTH |
SEAICE_SALT(I,J,bi,bj)=SEAICE_SALT(I,J,bi,bj)-YNEG(I,J,bi,bj) |
|
./pkg/seaice/growth.F |
135 |
GROWTH |
YNEG(I,J,bi,bj)=YNEG(I,J,bi,bj)*recip_dRf(1)*72.0764 _d 0 |
|
./pkg/seaice/growth.F |
271 |
GROWTH |
& +YNEG(I,J,bi,bj)/SEAICE_deltaTtherm |