| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/SEAICE_GRID.h |
44 |
NO PROCEDURE |
_RL SINEICE (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 |
90 |
DYNSOLVER |
& *TWO*OMEGA*SINEICE(I,J,bi,bj) |
|
./pkg/seaice/seaice_init.F |
110 |
SEAICE_INIT |
SINEICE(i,j,bi,bj)=sin(yC(I,J,bi,bj)*deg2rad) |
|
./pkg/seaice/seaice_init.F |
111 |
SEAICE_INIT |
TNGTICE(i,j,bi,bj)=SINEICE(i,j,bi,bj)*RECIP_CSTICE(i,j,bi,bj) |
|
./pkg/seaice/seaice_init.F |
112 |
SEAICE_INIT |
SINEICE(i,j,bi,bj)=sin(yG(I,J,bi,bj)*deg2rad) |
|
./pkg/seaice/seaice_init.F |
113 |
SEAICE_INIT |
TNGICE(i,j,bi,bj) =SINEICE(i,j,bi,bj)*RECIP_CSUICE(i,j,bi,bj) |
|
./pkg/seaice/seaice_init.F |
258 |
SEAICE_INIT |
CALL PLOT_FIELD_XYRL( SINEICE , 'Current SINEICE ' , |