| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/SEAICE.h |
48 |
NO PROCEDURE |
COMMON/ARRAY/HEFFM,UVM |
|
./pkg/seaice/SEAICE.h |
55 |
NO PROCEDURE |
_RL UVM (1-OLx:sNx+OLx,1-OLy:sNy+OLy, nSx,nSy) |
|
./pkg/seaice/seaice_monitor.F |
51 |
SEAICE_MONITOR |
& UVM,UVM,rAz,drF,myThid) |
|
./pkg/seaice/seaice_monitor.F |
63 |
SEAICE_MONITOR |
& UVM,UVM,rAz,drF,myThid) |
|
./pkg/seaice/lsr.F |
109 |
LSR |
FORCEX(I,J,bi,bj)=FORCEX(I,J,bi,bj)*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
110 |
LSR |
FORCEY(I,J,bi,bj)=FORCEY(I,J,bi,bj)*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
144 |
LSR |
AU(I,J,bi,bj)=-AA2*DELX2(I,J,bi,bj)*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
149 |
LSR |
& *UVM(I,J,bi,bj)+(ONE-UVM(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
150 |
LSR |
CU(I,J,bi,bj)=-AA1*DELX2(I,J,bi,bj)*UVM(I,J,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 |
283 |
LSR |
URT(I)=URT(I)*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
318 |
LSR |
& *UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
377 |
LSR |
& *UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
382 |
LSR |
& *UVM(I,J,bi,bj)+(ONE-UVM(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
387 |
LSR |
& *UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
492 |
LSR |
& *VICE(I,J-1,1,bi,bj)*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
501 |
LSR |
& *VICE(I,J+1,1,bi,bj)*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
508 |
LSR |
VRT(J)=VRT(J)*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
542 |
LSR |
& *UVM(I,J,bi,bj) |
|
./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 |
584 |
LSR |
VICE(I,J,1,bi,bj)=VICE(I,J,1,bi,bj)*UVM(I,J,bi,bj) |
|
./pkg/seaice/seaice_init.F |
128 |
SEAICE_INIT |
UVM(i,j,bi,bj)=ZERO |
|
./pkg/seaice/seaice_init.F |
131 |
SEAICE_INIT |
IF(mask_uice.GT.3.5) UVM(I,J,bi,bj)=ONE |
|
./pkg/seaice/seaice_init.F |
160 |
SEAICE_INIT |
UVM(i,j,bi,bj)=ZERO |
|
./pkg/seaice/seaice_init.F |
166 |
SEAICE_INIT |
UVM(i,j,bi,bj)=ZERO |
|
./pkg/seaice/seaice_init.F |
171 |
SEAICE_INIT |
UVM(i,j,bi,bj)=ZERO |
|
./pkg/seaice/seaice_init.F |
245 |
SEAICE_INIT |
_EXCH_XY_R8(UVM, myThid) |
|
./pkg/seaice/seaice_init.F |
270 |
SEAICE_INIT |
CALL PLOT_FIELD_XYRL( UVM , 'Current UVM ' , |