| 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/seaice/seaice_calc_lhs.F |
112 |
SEAICE_CALC_LHS |
areaS(I,J) = 1. _d 0 |
|
./pkg/seaice/seaice_calc_lhs.F |
140 |
SEAICE_CALC_LHS |
areaS(I,J) = 0.5 _d 0*(AREA(I,J,bi,bj)+AREA(I,J-1,bi,bj)) |
|
./pkg/seaice/seaice_calc_lhs.F |
187 |
SEAICE_CALC_LHS |
& ) ) * areaS(I,J) |
|
./pkg/seaice/seaice_calc_lhs.F |
85 |
SEAICE_CALC_LHS |
_RL areaS(1:sNx,1:sNy) |
|
./pkg/seaice/seaice_calc_rhs.F |
109 |
SEAICE_CALC_RHS |
& ) )*areaS(I,J) |
|
./pkg/seaice/seaice_calc_rhs.F |
61 |
SEAICE_CALC_RHS |
_RL areaS(1:sNx,1:sNy) |
|
./pkg/seaice/seaice_calc_rhs.F |
73 |
SEAICE_CALC_RHS |
areaS(I,J) = 1. _d 0 |
|
./pkg/seaice/seaice_calc_rhs.F |
83 |
SEAICE_CALC_RHS |
areaS(I,J) = 0.5 _d 0*(AREA(I,J,bi,bj)+AREA(I,J-1,bi,bj)) |
|
./pkg/seaice/seaice_evp.F |
122 |
SEAICE_EVP |
_RL areaS (1:sNx,1:sNy,nSx,nSy) |
|
./pkg/seaice/seaice_evp.F |
271 |
SEAICE_EVP |
areaS(I,J,bi,bj) = |
|
./pkg/seaice/seaice_evp.F |
279 |
SEAICE_EVP |
areaS(I,J,bi,bj) = 1. _d 0 |
|
./pkg/seaice/seaice_evp.F |
803 |
SEAICE_EVP |
& )*locMaskV ) * areaS(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
867 |
SEAICE_EVP |
& * COSWAT * areaS(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
871 |
SEAICE_EVP |
denomV = denomV + areaS(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1212 |
SEAICE_LSR_CALC_COEFFS |
_RL areaS(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/seaice/seaice_lsr.F |
1250 |
SEAICE_LSR_CALC_COEFFS |
areaS(I,J) = 0.5 _d 0*(AREA(I,J,bi,bj)+AREA(I,J-1,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
1257 |
SEAICE_LSR_CALC_COEFFS |
areaS(I,J) = 1. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
132 |
SEAICE_LSR |
_RL areaS(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/seaice_lsr.F |
1426 |
SEAICE_LSR_CALC_COEFFS |
& + dragSym(I,J-1,bi,bj) )*areaS(I,J) |
|
./pkg/seaice/seaice_lsr.F |
205 |
SEAICE_LSR |
areaS(I,J,bi,bj) = 1. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
213 |
SEAICE_LSR |
areaS(I,J,bi,bj) = |
|
./pkg/seaice/seaice_lsr.F |
401 |
SEAICE_LSR |
& ) ) * areaS(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
562 |
SEAICE_LSR |
& * areaS(i,j,bi,bj) |
|
./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) |
|
./pkg/seaice/seaice_preconditioner.F |
586 |
SEAICE_PRECOND_RHSV |
_RL areaS(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/seaice/seaice_preconditioner.F |
607 |
SEAICE_PRECOND_RHSV |
areaS(I,J) = 0.5 _d 0*(AREA(I,J,bi,bj)+AREA(I,J-1,bi,bj)) |
|
./pkg/seaice/seaice_preconditioner.F |
613 |
SEAICE_PRECOND_RHSV |
areaS(I,J) = 1. _d 0 |
|
./pkg/seaice/seaice_preconditioner.F |
627 |
SEAICE_PRECOND_RHSV |
& ) * fricFac * areaS(I,J) |