| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/SEAICE.h |
136 |
NO PROCEDURE |
COMMON/ICEFLUX/ saltWtrIce, frWtrIce |
|
./pkg/seaice/SEAICE.h |
141 |
NO PROCEDURE |
_RL saltWtrIce (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/seaice_growth.F |
187 |
SEAICE_GROWTH |
saltWtrIce(I,J,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
398 |
SEAICE_GROWTH |
saltWtrIce(I,J,bi,bj) = saltWtrIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
569 |
SEAICE_GROWTH |
saltWtrIce(I,J,bi,bj) = saltWtrIce(I,J,bi,bj) + growthHEFF |
|
./pkg/seaice/seaice_growth.F |
660 |
SEAICE_GROWTH |
& + saltWtrIce(I,J,bi,bj)*ICE2WATR/SEAICE_deltaTtherm |
|
./pkg/seaice/seaice_growth.F |
718 |
SEAICE_GROWTH |
IF ( saltWtrIce(I,J,bi,bj) .GE. 0.0 ) THEN |
|
./pkg/seaice/seaice_growth.F |
720 |
SEAICE_GROWTH |
& HEFFM(I,J,bi,bj)*saltWtrIce(I,J,bi,bj)* |
|
./pkg/seaice/seaice_growth.F |
726 |
SEAICE_GROWTH |
& HEFFM(I,J,bi,bj)*saltWtrIce(I,J,bi,bj)* |
|
./pkg/seaice/seaice_growth.F |
739 |
SEAICE_GROWTH |
& HEFFM(I,J,bi,bj)*saltWtrIce(I,J,bi,bj)* |
|
./pkg/seaice/seaice_growth.F |
741 |
SEAICE_GROWTH |
& (HEFF(I,J,bi,bj)-saltWtrIce(I,J,bi,bj))/ |
|
./pkg/seaice/seaice_init_varia.F |
141 |
SEAICE_INIT_VARIA |
saltWtrIce(i,j,bi,bj) = 0. _d 0 |