| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/advect.F |
28 |
ADVECT |
_RL UICE (1-OLx:sNx+OLx,1-OLy:sNy+OLy,3,nSx,nSy) |
|
./pkg/seaice/advect.F |
64 |
ADVECT |
UI(I,J,bi,bj)=UICE(I,J,1,bi,bj) |
|
./pkg/seaice/advect.F |
7 |
ADVECT |
SUBROUTINE ADVECT( UICE,VICE,HEFF,HEFFM,myThid ) |
|
./pkg/seaice/seaice_pickup.F |
118 |
SEAICE_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL', 3, UICE, 4, myIt,myThid) |
|
./pkg/seaice/seaice_pickup.F |
126 |
SEAICE_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL', 3, UICE, 2, myIt,myThid) |
|
./pkg/seaice/seaice_pickup.F |
46 |
SEAICE_READ_PICKUP |
CALL MDSREADFIELD( fn, precFloat64, 'RL', 3, UICE , 4, myThid ) |
|
./pkg/seaice/seaice_pickup.F |
54 |
SEAICE_READ_PICKUP |
CALL MDSREADFIELD( fn, precFloat64, 'RL', 3, UICE , 2, myThid ) |
|
./pkg/seaice/seaice_pickup.F |
64 |
SEAICE_READ_PICKUP |
CALL SEAICE_EXCH_UV ( UICE, VICE, myThid ) |
|
./pkg/seaice/SEAICE.h |
31 |
NO PROCEDURE |
COMMON/SEAICE_DYNVARS/UICE,VICE,AREA |
|
./pkg/seaice/SEAICE.h |
34 |
NO PROCEDURE |
_RL UICE (1-OLx:sNx+OLx,1-OLy:sNy+OLy,3,nSx,nSy) |
|
./pkg/seaice/seaice_monitor.F |
45 |
SEAICE_MONITOR |
TMP_DIAG(i,j,bi,bj)=UICE(i,j,1,bi,bj) |
|
./pkg/seaice/seaice_model.F |
129 |
SEAICE_MODEL |
CALL ADVECT( UICE, VICE, HEFF, HEFFM, myThid ) |
|
./pkg/seaice/seaice_model.F |
130 |
SEAICE_MODEL |
CALL ADVECT( UICE, VICE, AREA, HEFFM, myThid ) |
|
./pkg/seaice/seaice_do_diags.F |
100 |
SEAICE_DO_DIAGS |
arr(i,j,bi,bj)=UICE(i,j,1,bi,bj) |
|
./pkg/seaice/seaice_do_diags.F |
197 |
SEAICE_DO_DIAGS |
& UICEtave(i,j,1,bi,bj) +UICE(i,j,1,bi,bj)*deltaTclock |
|
./pkg/seaice/dynsolver.F |
174 |
DYNSOLVER |
UICE(I,J,2,bi,bj)=UICE(I,J,1,bi,bj) |
|
./pkg/seaice/dynsolver.F |
176 |
DYNSOLVER |
UICEC(I,J,bi,bj)=UICE(I,J,1,bi,bj) |
|
./pkg/seaice/dynsolver.F |
189 |
DYNSOLVER |
& *(UICE(I+1,J+1,1,bi,bj)+UICE(I+1,J,1,bi,bj) |
|
./pkg/seaice/dynsolver.F |
190 |
DYNSOLVER |
& -UICE(I,J+1,1,bi,bj)-UICE(I,J,1,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
198 |
DYNSOLVER |
& *(UICE(I+1,J+1,1,bi,bj)+UICE(I,J+1,1,bi,bj) |
|
./pkg/seaice/dynsolver.F |
199 |
DYNSOLVER |
& -UICE(I+1,J,1,bi,bj)-UICE(I,J,1,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
203 |
DYNSOLVER |
& +QUART*(UICE(I+1,J+1,1,bi,bj)+UICE(I,J+1,1,bi,bj) |
|
./pkg/seaice/dynsolver.F |
204 |
DYNSOLVER |
& +UICE(I,J,1,bi,bj)+UICE(I+1,J,1,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
238 |
DYNSOLVER |
TEMPVAR=(UICE(I,J,1,bi,bj)-GWATX(I,J,bi,bj))**2 |
|
./pkg/seaice/dynsolver.F |
281 |
DYNSOLVER |
UICE(I,J,1,bi,bj)=HALF*(UICE(I,J,1,bi,bj)+UICE(I,J,2,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
283 |
DYNSOLVER |
UICEC(I,J,bi,bj)=UICE(I,J,1,bi,bj) |
|
./pkg/seaice/dynsolver.F |
296 |
DYNSOLVER |
& *(UICE(I+1,J+1,1,bi,bj)+UICE(I+1,J,1,bi,bj) |
|
./pkg/seaice/dynsolver.F |
297 |
DYNSOLVER |
& -UICE(I,J+1,1,bi,bj)-UICE(I,J,1,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
305 |
DYNSOLVER |
& *(UICE(I+1,J+1,1,bi,bj)+UICE(I,J+1,1,bi,bj) |
|
./pkg/seaice/dynsolver.F |
306 |
DYNSOLVER |
& -UICE(I+1,J,1,bi,bj)-UICE(I,J,1,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
310 |
DYNSOLVER |
& +QUART*(UICE(I+1,J+1,1,bi,bj)+UICE(I,J+1,1,bi,bj) |
|
./pkg/seaice/dynsolver.F |
311 |
DYNSOLVER |
& +UICE(I,J,1,bi,bj)+UICE(I+1,J,1,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
345 |
DYNSOLVER |
TEMPVAR=(UICE(I,J,1,bi,bj)-GWATX(I,J,bi,bj))**2 |
|
./pkg/seaice/dynsolver.F |
410 |
DYNSOLVER |
UICE(i,j,1,bi,bj)=min(UICE(i,j,1,bi,bj),0.40 _d +00) |
|
./pkg/seaice/dynsolver.F |
424 |
DYNSOLVER |
UICE(i,j,1,bi,bj)=max(UICE(i,j,1,bi,bj),-0.40 _d +00) |
|
./pkg/seaice/lsr.F |
106 |
LSR |
& +AMASS(I,J,bi,bj)/SEAICE_deltaTdyn*UICE(I,J,2,bi,bj) |
|
./pkg/seaice/lsr.F |
259 |
LSR |
UICE(I,J,3,bi,bj)=UICE(I,J,1,bi,bj) |
|
./pkg/seaice/lsr.F |
270 |
LSR |
AA3=AA2*DELX2(I,J,bi,bj)*UICE(I-1,J,1,bi,bj)*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
276 |
LSR |
AA3=AA1*DELX2(I,J,bi,bj)*UICE(I+1,J,1,bi,bj)*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
281 |
LSR |
& +UVRT1(I,J,bi,bj)*UICE(I,J-1,1,bi,bj) |
|
./pkg/seaice/lsr.F |
282 |
LSR |
& +UVRT2(I,J,bi,bj)*UICE(I,J+1,1,bi,bj) |
|
./pkg/seaice/lsr.F |
302 |
LSR |
UICE(I,J,1,bi,bj)=UICE(I,J,3,bi,bj) |
|
./pkg/seaice/lsr.F |
303 |
LSR |
& +WFAU*(URT(I)-UICE(I,J,3,bi,bj)) |
|
./pkg/seaice/lsr.F |
317 |
LSR |
UERR(I,J,bi,bj)=(UICE(I,J,1,bi,bj)-UICE(I,J,3,bi,bj)) |
|
./pkg/seaice/lsr.F |
336 |
LSR |
CALL SEAICE_EXCH ( UICE, myThid ) |
|
./pkg/seaice/lsr.F |
583 |
LSR |
UICE(I,J,1,bi,bj)=UICE(I,J,1,bi,bj)*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
589 |
LSR |
CALL SEAICE_EXCH_UV ( UICE, VICE, myThid ) |
|
./pkg/seaice/seaice_init.F |
290 |
SEAICE_INIT |
UICE(I,J,k,bi,bj)=ZERO |
|
./pkg/seaice/seaice_init.F |
72 |
SEAICE_INIT |
UICE(I,J,k,bi,bj)=ZERO |
|
./pkg/seaice/ostres.F |
116 |
OSTRES |
& (UICE(I,J,1,bi,bj)-GWATX(I,J,bi,bj)) |
|
./pkg/seaice/ostres.F |
57 |
OSTRES |
& *(COSWAT*(GWATX(I,J,bi,bj)-UICE(I,J,1,bi,bj)) |
|
./pkg/seaice/ostres.F |
66 |
OSTRES |
WINDX(I,J,bi,bj)=WINDX(I,J,bi,bj)-(UICE(I,J,1,bi,bj) |
|
./pkg/seaice/ostres.F |
67 |
OSTRES |
& -UICE(I,J,3,bi,bj))*AMASS(I,J,bi,bj)/SEAICE_DT*TWO |
|
./pkg/seaice/growth.F |
305 |
GROWTH |
GHEFF(I,J)=SQRT(UICE(I,J,1,bi,bj)**2+VICE(I,J,1,bi,bj)**2) |