| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_do_ridging.F |
121 |
SEAICE_DO_RIDGING |
openWater(i,j) = ONE |
|
./pkg/seaice/seaice_do_ridging.F |
127 |
SEAICE_DO_RIDGING |
openWater(i,j) = openWater(i,j) - AREAITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_do_ridging.F |
138 |
SEAICE_DO_RIDGING |
IF (openWater(i,j) .lt. 0.0) |
|
./pkg/seaice/seaice_do_ridging.F |
139 |
SEAICE_DO_RIDGING |
& AREAITD(i,j,1,bi,bj) = openWater(i,j)+AREAITD(i,j,1,bi,bj) |
|
./pkg/seaice/seaice_do_ridging.F |
76 |
SEAICE_DO_RIDGING |
_RL openWater (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/seaice/seaice_itd_redist.F |
114 |
SEAICE_ITD_REDIST |
IF (openWater(i,j) .lt. 0.0) |
|
./pkg/seaice/seaice_itd_redist.F |
115 |
SEAICE_ITD_REDIST |
& AREAITD(i,j,1,bi,bj) = openWater(i,j) + AREAITD(i,j,1,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
80 |
SEAICE_ITD_REDIST |
_RL openWater (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/seaice/seaice_itd_redist.F |
90 |
SEAICE_ITD_REDIST |
openWater(i,j) = ONE |
|
./pkg/seaice/seaice_itd_redist.F |
96 |
SEAICE_ITD_REDIST |
openWater(i,j) = openWater(i,j) - AREAITD(i,j,k,bi,bj) |