| 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 |
1115 |
LSR |
& *VICE(I,J-1,bi,bj)*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
1127 |
LSR |
& *VICE(I,J+1,bi,bj)*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
1134 |
LSR |
VRT(J)=VRT(J)*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
1168 |
LSR |
& *UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
1204 |
LSR |
UICE(I,J,bi,bj)=UICE(I,J,bi,bj)*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
1205 |
LSR |
VICE(I,J,bi,bj)=VICE(I,J,bi,bj)*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
268 |
LSR |
FORCEX(I,J,bi,bj)=FORCEX(I,J,bi,bj)*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
269 |
LSR |
FORCEY(I,J,bi,bj)=FORCEY(I,J,bi,bj)*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
345 |
LSR |
& * UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
348 |
LSR |
& * UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
350 |
LSR |
BU(I,J,bi,bj)=(ONE - UVM(I,J,bi,bj)) + |
|
./pkg/seaice/lsr.F |
353 |
LSR |
& ) * UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
369 |
LSR |
& + UVM(I,J,bi,bj) * |
|
./pkg/seaice/lsr.F |
385 |
LSR |
& ) * UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
388 |
LSR |
& ) * UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
390 |
LSR |
BV(I,J,bi,bj)= (ONE - UVM(I,J,bi,bj)) + |
|
./pkg/seaice/lsr.F |
393 |
LSR |
& ) * UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
409 |
LSR |
& + UVM(I,J,bi,bj) * |
|
./pkg/seaice/lsr.F |
460 |
LSR |
& * recip_rAz(I,J,bi,bj) * UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
467 |
LSR |
& * recip_rAz(I,J,bi,bj) * UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
523 |
LSR |
URT(I,J)=URT(I,J)* UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
580 |
LSR |
VRT(I,J)=VRT(I,J)* UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
618 |
LSR |
& * UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
643 |
LSR |
& * 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 |
731 |
LSR |
& )*0.5 _d 0 * _recip_dxV(I,J,bi,bj) * UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
740 |
LSR |
BU(I,J,bi,bj)=(ONE-UVM(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
746 |
LSR |
& )*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
873 |
LSR |
AA3=AA2*UICE(I-1,J,bi,bj)*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
878 |
LSR |
AA3=AA1*UICE(I+1,J,bi,bj)*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
885 |
LSR |
URT(I)=URT(I)*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
920 |
LSR |
& *UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
977 |
LSR |
& )*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
985 |
LSR |
& )*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
986 |
LSR |
BV(I,J,bi,bj)= (ONE-UVM(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
989 |
LSR |
& *UVM(I,J,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
444 |
SEAICE_INIT_VARIA |
_EXCH_XY_RS(UVM, myThid) |
|
./pkg/seaice/seaice_init_varia.F |
457 |
SEAICE_INIT_VARIA |
CALL PLOT_FIELD_XYRS( UVM , 'Current UVM ' , |
|
./pkg/seaice/seaice_init_varia.F |
80 |
SEAICE_INIT_VARIA |
UVM(i,j,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
83 |
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 |
117 |
ADSEAICE_MONITOR |
& UVM, UVM, rAz, drF, dummyRL, myThid ) |
|
./pkg/seaice/seaice_monitor_ad.F |
124 |
ADSEAICE_MONITOR |
& UVM, UVM, rAz, drF, dummyRL, myThid ) |