| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/advect.F |
137 |
ADVECT |
& +VI(I+2,J+2,bi,bj))*CSUICE(I+1,J+2,bi,bj) |
|
./pkg/seaice/advect.F |
140 |
ADVECT |
& *CSUICE(I+1,J+1,bi,bj)) |
|
./pkg/seaice/advect.F |
96 |
ADVECT |
& +VI(I+2,J+2,bi,bj))*CSUICE(I+1,J+2,bi,bj) |
|
./pkg/seaice/advect.F |
98 |
ADVECT |
& *(VI(I+1,J+1,bi,bj)+VI(I+2,J+1,bi,bj))*CSUICE(I+1,J+1,bi,bj)) |
|
./pkg/seaice/diffus.F |
58 |
DIFFUS |
& *CSUICE(I+1,J+1,bi,bj)*HEFFM(I,J+1,bi,bj) |
|
./pkg/seaice/diffus.F |
60 |
DIFFUS |
& *CSUICE(I+1,J,bi,bj)*HEFFM(I,J-1,bi,bj)) |
|
./pkg/seaice/SEAICE_GRID.h |
41 |
NO PROCEDURE |
_RL CSUICE (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 |
258 |
DYNSOLVER |
& -(QUART/(DXUICE(I,J,bi,bj)*CSUICE(I,J,bi,bj))) |
|
./pkg/seaice/dynsolver.F |
365 |
DYNSOLVER |
& -(QUART/(DXUICE(I,J,bi,bj)*CSUICE(I,J,bi,bj))) |
|
./pkg/seaice/seaice_init.F |
104 |
SEAICE_INIT |
IF ( CSUICE(I,J,bi,bj) .ne. 0. _d 0 ) THEN |
|
./pkg/seaice/seaice_init.F |
105 |
SEAICE_INIT |
RECIP_CSUICE(I,J,bi,bj) = 1./CSUICE(I,J,bi,bj) |
|
./pkg/seaice/seaice_init.F |
142 |
SEAICE_INIT |
CSUICE(i,j,bi,bj) = ONE |
|
./pkg/seaice/seaice_init.F |
252 |
SEAICE_INIT |
CALL PLOT_FIELD_XYRL( CSUICE , 'Current CSUICE ' , |
|
./pkg/seaice/seaice_init.F |
95 |
SEAICE_INIT |
CSUICE(i,j,bi,bj) =cos(yG(I,J,bi,bj)*deg2rad) |