| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/advect.F |
134 |
ADVECT |
& *(QUART/(DXTICE(I+1,J,bi,bj)*CSTICE(I,J+1,bi,bj))) |
|
./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 |
194 |
ADVECT |
DIFFA(I,J,bi,bj)=-(MIN(DXTICE(I,J,bi,bj)*CSTICE(I,J,bi,bj) |
|
./pkg/seaice/advect.F |
93 |
ADVECT |
& *(QUART/(DXTICE(I+1,J,bi,bj)*CSTICE(I,J+1,bi,bj))) |
|
./pkg/seaice/advect.F |
99 |
ADVECT |
& *(QUART/(DYTICE(I,J+1,bi,bj)*CSTICE(I,J+1,bi,bj))) |
|
./pkg/seaice/diffus.F |
51 |
DIFFUS |
& *CSTICE(I,J,bi,bj)*CSTICE(I,J,bi,bj)) |
|
./pkg/seaice/diffus.F |
53 |
DIFFUS |
& *CSTICE(I,J,bi,bj)) |
|
./pkg/seaice/SEAICE_GRID.h |
40 |
NO PROCEDURE |
_RL CSTICE (1-OLx:sNx+OLx,1-OLy:sNy+OLy, nSx,nSy) |
|
./pkg/seaice/SEAICE_GRID.h |
50 |
NO PROCEDURE |
COMMON/SEAICE_GRID/ TNGTICE, TNGICE, CSTICE, CSUICE, SINEICE, |
|
./pkg/seaice/dynsolver.F |
188 |
DYNSOLVER |
E11(I,J,bi,bj)=HALF/(DXTICE(I,J,bi,bj)*CSTICE(I,J,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
200 |
DYNSOLVER |
& +HALF/(DXTICE(I,J,bi,bj)*CSTICE(I,J,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
295 |
DYNSOLVER |
E11(I,J,bi,bj)=HALF/(DXTICE(I,J,bi,bj)*CSTICE(I,J,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
307 |
DYNSOLVER |
& +HALF/(DXTICE(I,J,bi,bj)*CSTICE(I,J,bi,bj)) |
|
./pkg/seaice/seaice_init.F |
100 |
SEAICE_INIT |
RECIP_CSTICE(I,J,bi,bj) = 1./CSTICE(I,J,bi,bj) |
|
./pkg/seaice/seaice_init.F |
141 |
SEAICE_INIT |
CSTICE(i,j,bi,bj) = ONE |
|
./pkg/seaice/seaice_init.F |
250 |
SEAICE_INIT |
CALL PLOT_FIELD_XYRL( CSTICE , 'Current CSTICE ' , |
|
./pkg/seaice/seaice_init.F |
94 |
SEAICE_INIT |
CSTICE(i,j,bi,bj) =cos(yC(I,J,bi,bj)*deg2rad) |
|
./pkg/seaice/seaice_init.F |
99 |
SEAICE_INIT |
IF ( CSTICE(I,J,bi,bj) .ne. 0. _d 0 ) THEN |