| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_get_forcing.F |
236 |
SEAICE_GET_FORCING |
aWghtWind = mod(YearTime-WindForcingStart,WindForcingPeriod) / |
|
./pkg/seaice/seaice_get_forcing.F |
238 |
SEAICE_GET_FORCING |
bWghtWind=ONE-aWghtWind |
|
./pkg/seaice/seaice_get_forcing.F |
239 |
SEAICE_GET_FORCING |
IF ( aWghtWind .EQ. 0 ) THEN |
|
./pkg/seaice/seaice_get_forcing.F |
420 |
SEAICE_GET_FORCING |
& aWghtWind * uwind1(i,j,bi,bj) |
|
./pkg/seaice/seaice_get_forcing.F |
422 |
SEAICE_GET_FORCING |
& aWghtWind * vwind1(i,j,bi,bj) |
|
./pkg/seaice/seaice_get_forcing.F |
432 |
SEAICE_GET_FORCING |
uwind(i,j,bi,bj) = aWghtWind * uwind0(i,j,bi,bj) + |
|
./pkg/seaice/seaice_get_forcing.F |
434 |
SEAICE_GET_FORCING |
vwind(i,j,bi,bj) = aWghtWind * vwind0(i,j,bi,bj) + |
|
./pkg/seaice/seaice_get_forcing.F |
47 |
SEAICE_GET_FORCING |
_RL aWghtWind,bWghtWind,aWghtFlux,bWghtFlux, |