| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/obcs_balance_flow.F |
234 |
OBCS_BALANCE_FLOW |
areaS = 0. _d 0 |
|
./pkg/obcs/obcs_balance_flow.F |
260 |
OBCS_BALANCE_FLOW |
areaS = areaS + tileArea(bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
268 |
OBCS_BALANCE_FLOW |
CALL GLOBAL_SUM_TILE_RL( tileArea, areaS, myThid ) |
|
./pkg/obcs/obcs_balance_flow.F |
269 |
OBCS_BALANCE_FLOW |
IF ( areaS.GT.0. ) THEN |
|
./pkg/obcs/obcs_balance_flow.F |
273 |
OBCS_BALANCE_FLOW |
& myIter, ' ) correct OBSv:', flowS, -flowS/areaS |
|
./pkg/obcs/obcs_balance_flow.F |
277 |
OBCS_BALANCE_FLOW |
flowS = -flowS/areaS |
|
./pkg/obcs/obcs_balance_flow.F |
50 |
OBCS_BALANCE_FLOW |
_RL areaOB, areaE, areaW, areaN, areaS, tmpA |
|
./pkg/obcs/obcs_diag_balance.F |
237 |
OBCS_DIAG_BALANCE |
areaS = 0. _d 0 |
|
./pkg/obcs/obcs_diag_balance.F |
260 |
OBCS_DIAG_BALANCE |
areaS = areaS + tileArea(bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
268 |
OBCS_DIAG_BALANCE |
CALL GLOBAL_SUM_TILE_RL( tileArea, areaS, myThid ) |
|
./pkg/obcs/obcs_diag_balance.F |
269 |
OBCS_DIAG_BALANCE |
IF ( areaS.GT.0. ) THEN |
|
./pkg/obcs/obcs_diag_balance.F |
273 |
OBCS_DIAG_BALANCE |
& myIter, ' ) correct OBSv:', flowS, -flowS/areaS |
|
./pkg/obcs/obcs_diag_balance.F |
277 |
OBCS_DIAG_BALANCE |
flowS = -flowS/areaS |
|
./pkg/obcs/obcs_diag_balance.F |
64 |
OBCS_DIAG_BALANCE |
_RL areaOB, areaE, areaW, areaN, areaS, tmpA |
|
./pkg/seaice/seaice_ocean_stress.F |
119 |
SEAICE_OCEAN_STRESS |
areaS = 0.5 _d 0 * (AREA(I,J,bi,bj) + AREA(I,J-1,bi,bj)) |
|
./pkg/seaice/seaice_ocean_stress.F |
122 |
SEAICE_OCEAN_STRESS |
fv(I,J,bi,bj)=(ONE-areaS)*fv(I,J,bi,bj)+areaS*fvIceLoc |
|
./pkg/seaice/seaice_ocean_stress.F |
46 |
SEAICE_OCEAN_STRESS |
_RL areaW, areaS |
|
./pkg/seaice/seaice_ocean_stress.F |
75 |
SEAICE_OCEAN_STRESS |
areaS = 0.5 * (AREA(I,J,bi,bj) + AREA(I,J-1,bi,bj)) |
|
./pkg/seaice/seaice_ocean_stress.F |
77 |
SEAICE_OCEAN_STRESS |
fv(I,J,bi,bj)=(ONE-areaS)*fv(I,J,bi,bj) |
|
./pkg/seaice/seaice_ocean_stress.F |
78 |
SEAICE_OCEAN_STRESS |
& + areaS*tauy(I,J,bi,bj) |