| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_ocean_stress.F |
113 |
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 |
116 |
SEAICE_OCEAN_STRESS |
fv(I,J,bi,bj)=(ONE-areaS)*fv(I,J,bi,bj)+areaS*fvIceLoc |
|
./pkg/seaice/seaice_ocean_stress.F |
45 |
SEAICE_OCEAN_STRESS |
_RL areaW, areaS |
|
./pkg/seaice/seaice_ocean_stress.F |
66 |
SEAICE_OCEAN_STRESS |
areaS = 0.5 * (AREA(I,J,bi,bj) + AREA(I,J-1,bi,bj)) |
|
./pkg/seaice/seaice_ocean_stress.F |
71 |
SEAICE_OCEAN_STRESS |
fv(I,J,bi,bj)=(ONE-areaS)*fv(I,J,bi,bj) |
|
./pkg/seaice/seaice_ocean_stress.F |
72 |
SEAICE_OCEAN_STRESS |
& + areaS*tauy(I,J,bi,bj) |