| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_do_ridging.F |
118 |
SEAICE_DO_RIDGING |
openWater(i,j) = ONE |
|
./pkg/seaice/seaice_do_ridging.F |
124 |
SEAICE_DO_RIDGING |
openWater(i,j) = openWater(i,j) - AREAITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_do_ridging.F |
135 |
SEAICE_DO_RIDGING |
IF (openWater(i,j) .lt. 0.0) |
|
./pkg/seaice/seaice_do_ridging.F |
136 |
SEAICE_DO_RIDGING |
& AREAITD(i,j,1,bi,bj) = openWater(i,j)+AREAITD(i,j,1,bi,bj) |
|
./pkg/seaice/seaice_do_ridging.F |
73 |
SEAICE_DO_RIDGING |
_RL openWater (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/seaice/seaice_itd_redist.F |
111 |
SEAICE_ITD_REDIST |
IF (openWater(i,j) .lt. 0.0) |
|
./pkg/seaice/seaice_itd_redist.F |
112 |
SEAICE_ITD_REDIST |
& AREAITD(i,j,1,bi,bj) = openWater(i,j) + AREAITD(i,j,1,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
77 |
SEAICE_ITD_REDIST |
_RL openWater (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/seaice/seaice_itd_redist.F |
87 |
SEAICE_ITD_REDIST |
openWater(i,j) = ONE |
|
./pkg/seaice/seaice_itd_redist.F |
93 |
SEAICE_ITD_REDIST |
openWater(i,j) = openWater(i,j) - AREAITD(i,j,k,bi,bj) |