| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/advect.F |
141 |
ADVECT |
& *(QUART/(DYTICE(I,J+1,bi,bj)*CSTICE(I,J+1,bi,bj))) |
|
./pkg/seaice/advect.F |
171 |
ADVECT |
& *CSTICE(I,J,bi,bj),DYTICE(I,J,bi,bj)) |
|
./pkg/seaice/advect.F |
195 |
ADVECT |
& ,DYTICE(I,J,bi,bj)))**2/DELTT |
|
./pkg/seaice/advect.F |
99 |
ADVECT |
& *(QUART/(DYTICE(I,J+1,bi,bj)*CSTICE(I,J+1,bi,bj))) |
|
./pkg/seaice/diffus.F |
52 |
DIFFUS |
DELTYY=DELTYY1/(DYTICE(I,J,bi,bj)*DYTICE(I,J,bi,bj) |
|
./pkg/seaice/SEAICE_GRID.h |
47 |
NO PROCEDURE |
_RL DYTICE (1-OLx:sNx+OLx,1-OLy:sNy+OLy, nSx,nSy) |
|
./pkg/seaice/SEAICE_GRID.h |
52 |
NO PROCEDURE |
& DXTICE, DXUICE, DYTICE, DYUICE |
|
./pkg/seaice/dynsolver.F |
194 |
DYNSOLVER |
E22(I,J,bi,bj)=HALF/DYTICE(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
197 |
DYNSOLVER |
E12(I,J,bi,bj)=HALF*(HALF/DYTICE(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
301 |
DYNSOLVER |
E22(I,J,bi,bj)=HALF/DYTICE(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
304 |
DYNSOLVER |
E12(I,J,bi,bj)=HALF*(HALF/DYTICE(I,J,bi,bj) |
|
./pkg/seaice/seaice_init.F |
116 |
SEAICE_INIT |
DYTICE(i,j,bi,bj)=dyF(i,j,bi,bj) |
|
./pkg/seaice/seaice_init.F |
179 |
SEAICE_INIT |
IF(DYTICE(i,j,bi,bj).EQ.0) |
|
./pkg/seaice/seaice_init.F |
180 |
SEAICE_INIT |
& DYTICE(i,j,bi,bj)=DYTICE(1,j,bi,bj) |
|
./pkg/seaice/seaice_init.F |
185 |
SEAICE_INIT |
IF(DYTICE(i,j,bi,bj).EQ.0) |
|
./pkg/seaice/seaice_init.F |
186 |
SEAICE_INIT |
& DYTICE(i,j,bi,bj)=DYTICE(sNx,j,bi,bj) |
|
./pkg/seaice/seaice_init.F |
193 |
SEAICE_INIT |
IF(DYTICE(i,j,bi,bj).EQ.0) |
|
./pkg/seaice/seaice_init.F |
194 |
SEAICE_INIT |
& DYTICE(i,j,bi,bj)=DYTICE(i,1,bi,bj) |
|
./pkg/seaice/seaice_init.F |
201 |
SEAICE_INIT |
IF(DYTICE(i,j,bi,bj).EQ.0) |
|
./pkg/seaice/seaice_init.F |
202 |
SEAICE_INIT |
& DYTICE(i,j,bi,bj)=DYTICE(i,sNy,bi,bj) |
|
./pkg/seaice/seaice_init.F |
264 |
SEAICE_INIT |
CALL PLOT_FIELD_XYRL( DYTICE , 'Current DYTICE ' , |