File |
Line number |
Procedure |
Code |
./pkg/seaice/seaice_get_forcing.F |
238 |
SEAICE_GET_FORCING |
bWghtWind=ONE-aWghtWind |
./pkg/seaice/seaice_get_forcing.F |
419 |
SEAICE_GET_FORCING |
uwind(i,j,bi,bj) = bWghtWind * uwind0(i,j,bi,bj) + |
./pkg/seaice/seaice_get_forcing.F |
421 |
SEAICE_GET_FORCING |
vwind(i,j,bi,bj) = bWghtWind * vwind0(i,j,bi,bj) + |
./pkg/seaice/seaice_get_forcing.F |
433 |
SEAICE_GET_FORCING |
& bWghtWind * uwind1(i,j,bi,bj) |
./pkg/seaice/seaice_get_forcing.F |
435 |
SEAICE_GET_FORCING |
& bWghtWind * vwind1(i,j,bi,bj) |
./pkg/seaice/seaice_get_forcing.F |
47 |
SEAICE_GET_FORCING |
_RL aWghtWind,bWghtWind,aWghtFlux,bWghtFlux, |