| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/SEAICE_GRID.h |
39 |
NO PROCEDURE |
_RL TNGICE (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/lsr.F |
142 |
LSR |
& -ETA(I,J-1,bi,bj))*TNGICE(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
143 |
LSR |
AA6=TWO*ETAMEAN(I,J,bi,bj)*TNGICE(I,J,bi,bj)*TNGICE(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
209 |
LSR |
6 *TNGICE(I,J,bi,bj)*VICEC(I,J,bi,bj)*DELXR(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
212 |
LSR |
6 *TNGICE(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
216 |
LSR |
7 -ETAMEAN(I,J,bi,bj)*TWO*TNGICE(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
223 |
LSR |
& *TNGICE(I,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
225 |
LSR |
& *TWO*TNGICE(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
229 |
LSR |
& *TNGICE(I,J+1,bi,bj) |
|
./pkg/seaice/lsr.F |
231 |
LSR |
& *TWO*TNGICE(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
370 |
LSR |
& -ETA(I,J-1,bi,bj)))*TNGICE(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
371 |
LSR |
AA6=TWO*ETAMEAN(I,J,bi,bj)*TNGICE(I,J,bi,bj)*TNGICE(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
375 |
LSR |
& *TNGICE(I,J-1,bi,bj)*DELYR(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
376 |
LSR |
& -ETAMEAN(I,J,bi,bj)*TWO*TNGICE(I,J,bi,bj)*DELYR(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
385 |
LSR |
& *TNGICE(I,J+1,bi,bj)*DELYR(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
386 |
LSR |
& +ETAMEAN(I,J,bi,bj)*TWO*TNGICE(I,J,bi,bj)*DELYR(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
434 |
LSR |
6 *TNGICE(I,J,bi,bj)*UICEC(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
436 |
LSR |
6 +ETAMEAN(I,J,bi,bj)*TNGICE(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
440 |
LSR |
7 +ETAMEAN(I,J,bi,bj)*TWO*TNGICE(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
489 |
LSR |
& *TNGICE(I,J-1,bi,bj)*DELYR(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
490 |
LSR |
& +ETAMEAN(I,J,bi,bj)*TWO*TNGICE(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
498 |
LSR |
& *TNGICE(I,J+1,bi,bj)*DELYR(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
499 |
LSR |
& -ETAMEAN(I,J,bi,bj)*TWO*TNGICE(I,J,bi,bj) |
|
./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 |
148 |
SEAICE_INIT |
TNGICE(i,j,bi,bj) = ZERO |
|
./pkg/seaice/seaice_init.F |
256 |
SEAICE_INIT |
CALL PLOT_FIELD_XYRL( TNGICE , 'Current TNGICE ' , |