| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_ocean_stress.F |
111 |
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 |
115 |
SEAICE_OCEAN_STRESS |
fu(I,J,bi,bj)=(ONE-areaW)*fu(I,J,bi,bj)+areaW*fuIceLoc |
|
./pkg/seaice/seaice_ocean_stress.F |
45 |
SEAICE_OCEAN_STRESS |
_RL areaW, areaS |
|
./pkg/seaice/seaice_ocean_stress.F |
64 |
SEAICE_OCEAN_STRESS |
areaW = 0.5 * (AREA(I,J,bi,bj) + AREA(I-1,J,bi,bj)) |
|
./pkg/seaice/seaice_ocean_stress.F |
68 |
SEAICE_OCEAN_STRESS |
fu(I,J,bi,bj)=(ONE-areaW)*fu(I,J,bi,bj) |
|
./pkg/seaice/seaice_ocean_stress.F |
69 |
SEAICE_OCEAN_STRESS |
& + areaW*taux(I,J,bi,bj) |