| 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/seaice/seaice_calc_lhs.F |
111 |
SEAICE_CALC_LHS |
areaW(I,J) = 1. _d 0 |
|
./pkg/seaice/seaice_calc_lhs.F |
139 |
SEAICE_CALC_LHS |
areaW(I,J) = 0.5 _d 0*(AREA(I,J,bi,bj)+AREA(I-1,J,bi,bj)) |
|
./pkg/seaice/seaice_calc_lhs.F |
177 |
SEAICE_CALC_LHS |
& ) ) * areaW(I,J) |
|
./pkg/seaice/seaice_calc_lhs.F |
84 |
SEAICE_CALC_LHS |
_RL areaW(1:sNx,1:sNy) |
|
./pkg/seaice/seaice_calc_rhs.F |
100 |
SEAICE_CALC_RHS |
& ) )*areaW(I,J) |
|
./pkg/seaice/seaice_calc_rhs.F |
60 |
SEAICE_CALC_RHS |
_RL areaW(1:sNx,1:sNy) |
|
./pkg/seaice/seaice_calc_rhs.F |
72 |
SEAICE_CALC_RHS |
areaW(I,J) = 1. _d 0 |
|
./pkg/seaice/seaice_calc_rhs.F |
82 |
SEAICE_CALC_RHS |
areaW(I,J) = 0.5 _d 0*(AREA(I,J,bi,bj)+AREA(I-1,J,bi,bj)) |
|
./pkg/seaice/seaice_evp.F |
121 |
SEAICE_EVP |
_RL areaW (1:sNx,1:sNy,nSx,nSy) |
|
./pkg/seaice/seaice_evp.F |
269 |
SEAICE_EVP |
areaW(I,J,bi,bj) = |
|
./pkg/seaice/seaice_evp.F |
278 |
SEAICE_EVP |
areaW(I,J,bi,bj) = 1. _d 0 |
|
./pkg/seaice/seaice_evp.F |
792 |
SEAICE_EVP |
& )*locMaskU ) * areaW(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
864 |
SEAICE_EVP |
& * COSWAT * areaW(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
869 |
SEAICE_EVP |
denomU = denomU + areaW(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1211 |
SEAICE_LSR_CALC_COEFFS |
_RL areaW(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/seaice/seaice_lsr.F |
1249 |
SEAICE_LSR_CALC_COEFFS |
areaW(I,J) = 0.5 _d 0*(AREA(I,J,bi,bj)+AREA(I-1,J,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
1256 |
SEAICE_LSR_CALC_COEFFS |
areaW(I,J) = 1. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
131 |
SEAICE_LSR |
_RL areaW(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/seaice_lsr.F |
1363 |
SEAICE_LSR_CALC_COEFFS |
& + dragSym(I-1,J,bi,bj) )*areaW(I,J) |
|
./pkg/seaice/seaice_lsr.F |
204 |
SEAICE_LSR |
areaW(I,J,bi,bj) = 1. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
211 |
SEAICE_LSR |
areaW(I,J,bi,bj) = |
|
./pkg/seaice/seaice_lsr.F |
390 |
SEAICE_LSR |
& ) ) * areaW(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
556 |
SEAICE_LSR |
& * areaW(i,j,bi,bj) |
|
./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) |
|
./pkg/seaice/seaice_preconditioner.F |
481 |
SEAICE_PRECOND_RHSU |
_RL areaW(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/seaice/seaice_preconditioner.F |
502 |
SEAICE_PRECOND_RHSU |
areaW(I,J) = 0.5 _d 0*(AREA(I,J,bi,bj)+AREA(I-1,J,bi,bj)) |
|
./pkg/seaice/seaice_preconditioner.F |
508 |
SEAICE_PRECOND_RHSU |
areaW(I,J) = 1. _d 0 |
|
./pkg/seaice/seaice_preconditioner.F |
522 |
SEAICE_PRECOND_RHSU |
& ) * fricFac * areaW(I,J) |