| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/SEAICE.h |
51 |
NO PROCEDURE |
COMMON/ARRAYB/ UVM |
|
./pkg/seaice/SEAICE.h |
52 |
NO PROCEDURE |
_RS UVM (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/lsr.F |
1112 |
LSR |
& *VICE(I,J-1,bi,bj)*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
1124 |
LSR |
& *VICE(I,J+1,bi,bj)*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
1131 |
LSR |
VRT(J)=VRT(J)*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
1165 |
LSR |
& *UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
1201 |
LSR |
UICE(I,J,bi,bj)=UICE(I,J,bi,bj)*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
1202 |
LSR |
VICE(I,J,bi,bj)=VICE(I,J,bi,bj)*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
265 |
LSR |
FORCEX(I,J,bi,bj)=FORCEX(I,J,bi,bj)*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
266 |
LSR |
FORCEY(I,J,bi,bj)=FORCEY(I,J,bi,bj)*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
342 |
LSR |
& * UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
345 |
LSR |
& * UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
347 |
LSR |
BU(I,J,bi,bj)=(ONE - UVM(I,J,bi,bj)) + |
|
./pkg/seaice/lsr.F |
350 |
LSR |
& ) * UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
366 |
LSR |
& + UVM(I,J,bi,bj) * |
|
./pkg/seaice/lsr.F |
382 |
LSR |
& ) * UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
385 |
LSR |
& ) * UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
387 |
LSR |
BV(I,J,bi,bj)= (ONE - UVM(I,J,bi,bj)) + |
|
./pkg/seaice/lsr.F |
390 |
LSR |
& ) * UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
406 |
LSR |
& + UVM(I,J,bi,bj) * |
|
./pkg/seaice/lsr.F |
457 |
LSR |
& * recip_rAz(I,J,bi,bj) * UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
464 |
LSR |
& * recip_rAz(I,J,bi,bj) * UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
520 |
LSR |
URT(I,J)=URT(I,J)* UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
577 |
LSR |
VRT(I,J)=VRT(I,J)* UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
615 |
LSR |
& * UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
640 |
LSR |
& * UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
725 |
LSR |
& )*0.5 _d 0 * _recip_dxV(I,J,bi,bj) * UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
728 |
LSR |
& )*0.5 _d 0 * _recip_dxV(I,J,bi,bj) * UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
737 |
LSR |
BU(I,J,bi,bj)=(ONE-UVM(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
743 |
LSR |
& )*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
870 |
LSR |
AA3=AA2*UICE(I-1,J,bi,bj)*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
875 |
LSR |
AA3=AA1*UICE(I+1,J,bi,bj)*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
882 |
LSR |
URT(I)=URT(I)*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
917 |
LSR |
& *UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
974 |
LSR |
& )*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
982 |
LSR |
& )*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
983 |
LSR |
BV(I,J,bi,bj)= (ONE-UVM(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
986 |
LSR |
& *UVM(I,J,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
439 |
SEAICE_INIT_VARIA |
_EXCH_XY_RS(UVM, myThid) |
|
./pkg/seaice/seaice_init_varia.F |
452 |
SEAICE_INIT_VARIA |
CALL PLOT_FIELD_XYRS( UVM , 'Current UVM ' , |
|
./pkg/seaice/seaice_init_varia.F |
78 |
SEAICE_INIT_VARIA |
UVM(i,j,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
81 |
SEAICE_INIT_VARIA |
IF(mask_uice.GT.3.5 _d 0) UVM(i,j,bi,bj)=1. _d 0 |
|
./pkg/seaice/seaice_monitor.F |
108 |
SEAICE_MONITOR |
& UVM, UVM, rAz, drF, dummyRL, myThid ) |
|
./pkg/seaice/seaice_monitor.F |
115 |
SEAICE_MONITOR |
& UVM, UVM, rAz, drF, dummyRL, myThid ) |
|
./pkg/seaice/seaice_monitor_ad.F |
114 |
ADSEAICE_MONITOR |
& UVM, UVM, rAz, drF, dummyRL, myThid ) |
|
./pkg/seaice/seaice_monitor_ad.F |
121 |
ADSEAICE_MONITOR |
& UVM, UVM, rAz, drF, dummyRL, myThid ) |