| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/obcs_balance_flow.F |
136 |
OBCS_BALANCE_FLOW |
areaW = 0. _d 0 |
|
./pkg/obcs/obcs_balance_flow.F |
162 |
OBCS_BALANCE_FLOW |
areaW = areaW + tileArea(bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
170 |
OBCS_BALANCE_FLOW |
CALL GLOBAL_SUM_TILE_RL( tileArea, areaW, myThid ) |
|
./pkg/obcs/obcs_balance_flow.F |
171 |
OBCS_BALANCE_FLOW |
IF ( areaW.GT.0. ) THEN |
|
./pkg/obcs/obcs_balance_flow.F |
175 |
OBCS_BALANCE_FLOW |
& myIter, ' ) correct OBWu:', flowW, -flowW/areaW |
|
./pkg/obcs/obcs_balance_flow.F |
179 |
OBCS_BALANCE_FLOW |
flowW = -flowW/areaW |
|
./pkg/obcs/obcs_balance_flow.F |
50 |
OBCS_BALANCE_FLOW |
_RL areaOB, areaE, areaW, areaN, areaS, tmpA |
|
./pkg/obcs/obcs_diag_balance.F |
146 |
OBCS_DIAG_BALANCE |
areaW = 0. _d 0 |
|
./pkg/obcs/obcs_diag_balance.F |
169 |
OBCS_DIAG_BALANCE |
areaW = areaW + tileArea(bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
177 |
OBCS_DIAG_BALANCE |
CALL GLOBAL_SUM_TILE_RL( tileArea, areaW, myThid ) |
|
./pkg/obcs/obcs_diag_balance.F |
178 |
OBCS_DIAG_BALANCE |
IF ( areaW.GT.0. ) THEN |
|
./pkg/obcs/obcs_diag_balance.F |
182 |
OBCS_DIAG_BALANCE |
& myIter, ' ) correct OBWu:', flowW, -flowW/areaW |
|
./pkg/obcs/obcs_diag_balance.F |
186 |
OBCS_DIAG_BALANCE |
flowW = -flowW/areaW |
|
./pkg/obcs/obcs_diag_balance.F |
64 |
OBCS_DIAG_BALANCE |
_RL areaOB, areaE, areaW, areaN, areaS, tmpA |
|
./pkg/seaice/seaice_ocean_stress.F |
117 |
SEAICE_OCEAN_STRESS |
areaW = 0.5 _d 0 * (AREA(I,J,bi,bj) + AREA(I-1,J,bi,bj)) |
|
./pkg/seaice/seaice_ocean_stress.F |
121 |
SEAICE_OCEAN_STRESS |
fu(I,J,bi,bj)=(ONE-areaW)*fu(I,J,bi,bj)+areaW*fuIceLoc |
|
./pkg/seaice/seaice_ocean_stress.F |
46 |
SEAICE_OCEAN_STRESS |
_RL areaW, areaS |
|
./pkg/seaice/seaice_ocean_stress.F |
65 |
SEAICE_OCEAN_STRESS |
areaW = 0.5 * (AREA(I,J,bi,bj) + AREA(I-1,J,bi,bj)) |
|
./pkg/seaice/seaice_ocean_stress.F |
67 |
SEAICE_OCEAN_STRESS |
fu(I,J,bi,bj)=(ONE-areaW)*fu(I,J,bi,bj) |
|
./pkg/seaice/seaice_ocean_stress.F |
68 |
SEAICE_OCEAN_STRESS |
& + areaW*taux(I,J,bi,bj) |