File |
Line number |
Procedure |
Code |
./pkg/seaice/seaice_get_dynforcing.F |
14 |
SEAICE_GET_DYNFORCING |
O taux, tauy, |
./pkg/seaice/seaice_get_dynforcing.F |
208 |
SEAICE_GET_DYNFORCING |
tauy(i,j,bi,bj)= 0.5 _d 0 * |
./pkg/seaice/seaice_get_dynforcing.F |
241 |
SEAICE_GET_DYNFORCING |
tauy(i,j,bi,bj)=0.5 _d 0 * |
./pkg/seaice/seaice_get_dynforcing.F |
269 |
SEAICE_GET_DYNFORCING |
tauy(i,j,bi,bj) = CDAIR(i,j)*fv(i,j,bi,bj) |
./pkg/seaice/seaice_get_dynforcing.F |
283 |
SEAICE_GET_DYNFORCING |
CALL DIAGNOSTICS_FILL( tauy, 'SItauy ', 0,1, 0,1,1, myThid ) |
./pkg/seaice/seaice_get_dynforcing.F |
306 |
SEAICE_GET_DYNFORCING |
locVar(i,j) = tauy(i,j,bi,bj)*locFrac |
./pkg/seaice/seaice_get_dynforcing.F |
60 |
SEAICE_GET_DYNFORCING |
_RL tauy (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
./pkg/seaice/seaice_ocean_stress.F |
78 |
SEAICE_OCEAN_STRESS |
& + areaS*tauy(I,J,bi,bj) |
./pkg/atm_phys/atm_phys_driver.F |
147 |
ATM_PHYS_DRIVER |
_RL tauy(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
./pkg/atm_phys/atm_phys_driver.F |
439 |
ATM_PHYS_DRIVER |
tauy(1:sNx,1:sNy,bi,bj) = -flux_v |
./pkg/atm_phys/atm_phys_driver.F |
512 |
ATM_PHYS_DRIVER |
CALL EXCH_UV_AGRID_3D_RL( taux, tauy, |
./pkg/atm_phys/atm_phys_driver.F |
521 |
ATM_PHYS_DRIVER |
& *( tauy(i,j-1,bi,bj) + tauy(i,j,bi,bj) ) |