| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_do_diags.F |
126 |
SEAICE_DO_DIAGS |
arr(i,j,bi,bj)=UICE(i,j,1,bi,bj) |
|
./pkg/seaice/seaice_do_diags.F |
256 |
SEAICE_DO_DIAGS |
& UICEtave(i,j,1,bi,bj) +UICE(i,j,1,bi,bj)*deltaTclock |
|
./pkg/seaice/seaice_ocean_stress.F |
269 |
SEAICE_OCEAN_STRESS |
& ( UICE(I,J,1,bi,bj)-GWATX(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_pickup.F |
145 |
SEAICE_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL', 3, UICE, 4, myIt,myThid) |
|
./pkg/seaice/seaice_pickup.F |
163 |
SEAICE_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL', 3, UICE, 2, myIt,myThid) |
|
./pkg/seaice/seaice_pickup.F |
47 |
SEAICE_READ_PICKUP |
CALL MDSREADFIELD( fn, precFloat64, 'RL', 3, UICE , 4, myThid ) |
|
./pkg/seaice/seaice_pickup.F |
65 |
SEAICE_READ_PICKUP |
CALL MDSREADFIELD( fn, precFloat64, 'RL', 3, UICE , 2, myThid ) |
|
./pkg/seaice/seaice_pickup.F |
85 |
SEAICE_READ_PICKUP |
CALL SEAICE_EXCH_UV ( UICE, VICE, myThid ) |
|
./pkg/seaice/SEAICE.h |
36 |
NO PROCEDURE |
COMMON/SEAICE_DYNVARS_2/UICE,VICE |
|
./pkg/seaice/SEAICE.h |
37 |
NO PROCEDURE |
_RL UICE (1-OLx:sNx+OLx,1-OLy:sNy+OLy,3,nSx,nSy) |
|
./pkg/seaice/dynsolver.F |
186 |
DYNSOLVER |
UICE(I,J,2,bi,bj)=UICE(I,J,1,bi,bj) |
|
./pkg/seaice/dynsolver.F |
188 |
DYNSOLVER |
UICEC(I,J,bi,bj)=UICE(I,J,1,bi,bj) |
|
./pkg/seaice/dynsolver.F |
201 |
DYNSOLVER |
& (UICE(I+1,J+1,1,bi,bj)+UICE(I+1,J,1,bi,bj) |
|
./pkg/seaice/dynsolver.F |
202 |
DYNSOLVER |
& -UICE(I, J+1,1,bi,bj)-UICE(I, J,1,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
211 |
DYNSOLVER |
& (UICE(I+1,J+1,1,bi,bj)+UICE(I,J+1,1,bi,bj) |
|
./pkg/seaice/dynsolver.F |
212 |
DYNSOLVER |
& -UICE(I+1,J, 1,bi,bj)-UICE(I,J, 1,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
217 |
DYNSOLVER |
& (UICE(I+1,J+1,1,bi,bj)+UICE(I, J+1,1,bi,bj) |
|
./pkg/seaice/dynsolver.F |
218 |
DYNSOLVER |
& +UICE(I, J, 1,bi,bj)+UICE(I+1,J, 1,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
252 |
DYNSOLVER |
TEMPVAR=(UICE(I,J,1,bi,bj)-GWATX(I,J,bi,bj))**2 |
|
./pkg/seaice/dynsolver.F |
297 |
DYNSOLVER |
UICE(I,J,1,bi,bj)=HALF*(UICE(I,J,1,bi,bj)+UICE(I,J,2,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
299 |
DYNSOLVER |
UICEC(I,J,bi,bj)=UICE(I,J,1,bi,bj) |
|
./pkg/seaice/dynsolver.F |
312 |
DYNSOLVER |
& (UICE(I+1,J+1,1,bi,bj)+UICE(I+1,J,1,bi,bj) |
|
./pkg/seaice/dynsolver.F |
313 |
DYNSOLVER |
& -UICE(I, J+1,1,bi,bj)-UICE(I, J,1,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
322 |
DYNSOLVER |
& (UICE(I+1,J+1,1,bi,bj)+UICE(I,J+1,1,bi,bj) |
|
./pkg/seaice/dynsolver.F |
323 |
DYNSOLVER |
& -UICE(I+1,J, 1,bi,bj)-UICE(I,J, 1,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
328 |
DYNSOLVER |
& (UICE(I+1,J+1,1,bi,bj)+UICE(I, J+1,1,bi,bj) |
|
./pkg/seaice/dynsolver.F |
329 |
DYNSOLVER |
& +UICE(I, J, 1,bi,bj)+UICE(I+1,J, 1,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
363 |
DYNSOLVER |
TEMPVAR=(UICE(I,J,1,bi,bj)-GWATX(I,J,bi,bj))**2 |
|
./pkg/seaice/dynsolver.F |
430 |
DYNSOLVER |
UICE(i,j,1,bi,bj)=min(UICE(i,j,1,bi,bj),0.40 _d +00) |
|
./pkg/seaice/dynsolver.F |
444 |
DYNSOLVER |
UICE(i,j,1,bi,bj)=max(UICE(i,j,1,bi,bj),-0.40 _d +00) |
|
./pkg/seaice/seaice_init.F |
250 |
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/lsr.F |
109 |
LSR |
& +AMASS(I,J,bi,bj)/SEAICE_deltaTdyn*UICE(I,J,2,bi,bj) |
|
./pkg/seaice/lsr.F |
257 |
LSR |
UICE(I,J,3,bi,bj)=UICE(I,J,1,bi,bj) |
|
./pkg/seaice/lsr.F |
267 |
LSR |
AA3=AA2*UICE(I-1,J,1,bi,bj)*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
272 |
LSR |
AA3=AA1*UICE(I+1,J,1,bi,bj)*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
277 |
LSR |
& +UVRT1(I,J,bi,bj)*UICE(I,J-1,1,bi,bj) |
|
./pkg/seaice/lsr.F |
278 |
LSR |
& +UVRT2(I,J,bi,bj)*UICE(I,J+1,1,bi,bj) |
|
./pkg/seaice/lsr.F |
298 |
LSR |
UICE(I,J,1,bi,bj)=UICE(I,J,3,bi,bj) |
|
./pkg/seaice/lsr.F |
299 |
LSR |
& +WFAU*(URT(I)-UICE(I,J,3,bi,bj)) |
|
./pkg/seaice/lsr.F |
313 |
LSR |
UERR(I,J,bi,bj)=(UICE(I,J,1,bi,bj)-UICE(I,J,3,bi,bj)) |
|
./pkg/seaice/lsr.F |
332 |
LSR |
CALL SEAICE_EXCH ( UICE, myThid ) |
|
./pkg/seaice/lsr.F |
593 |
LSR |
UICE(I,J,1,bi,bj)=UICE(I,J,1,bi,bj)*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
599 |
LSR |
CALL SEAICE_EXCH_UV ( UICE, VICE, myThid ) |
|
./pkg/seaice/growth.F |
315 |
GROWTH |
GHEFF(I,J)=SQRT(UICE(I,J,1,bi,bj)**2+VICE(I,J,1,bi,bj)**2) |
|
./pkg/seaice/ostres.F |
117 |
OSTRES |
& ( UICE(I,J, 1,bi,bj)-GWATX(I,J, bi,bj) |
|
./pkg/seaice/ostres.F |
118 |
OSTRES |
& + UICE(I,J+1,1,bi,bj)-GWATX(I,J+1,bi,bj) ) |
|
./pkg/seaice/ostres.F |
125 |
OSTRES |
& ( UICE(I,J, 1,bi,bj)-GWATX(I,J, bi,bj) |
|
./pkg/seaice/ostres.F |
126 |
OSTRES |
& + UICE(I,J+1,1,bi,bj)-GWATX(I,J+1,bi,bj) ) |
|
./pkg/seaice/ostres.F |
55 |
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/seaice_advdiff.F |
110 |
SEAICE_ADVDIFF |
uc(I,J,bi,bj)=UICE(I,J,1,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
118 |
SEAICE_ADVDIFF |
uc(I,J,bi,bj)=.5 _d 0*(UICE(I,J,1,bi,bj)+UICE(I,J+1,1,bi,bj)) |
|
./pkg/seaice/seaice_monitor.F |
102 |
SEAICE_MONITOR |
TMP_DIAG(i,j,bi,bj)=UICE(i,j,1,bi,bj) |