| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_get_forcing.F |
273 |
SEAICE_GET_FORCING |
aWghtFlux = mod(YearTime-FluxForcingStart,FluxForcingPeriod) / |
|
./pkg/seaice/seaice_get_forcing.F |
275 |
SEAICE_GET_FORCING |
bWghtFlux=ONE-aWghtFlux |
|
./pkg/seaice/seaice_get_forcing.F |
276 |
SEAICE_GET_FORCING |
IF ( aWghtFlux .EQ. 0 ) THEN |
|
./pkg/seaice/seaice_get_forcing.F |
449 |
SEAICE_GET_FORCING |
& aWghtFlux * atemp1(i,j,bi,bj) |
|
./pkg/seaice/seaice_get_forcing.F |
451 |
SEAICE_GET_FORCING |
& aWghtFlux * aqh1(i,j,bi,bj) |
|
./pkg/seaice/seaice_get_forcing.F |
453 |
SEAICE_GET_FORCING |
& aWghtFlux * lwdown1(i,j,bi,bj) |
|
./pkg/seaice/seaice_get_forcing.F |
455 |
SEAICE_GET_FORCING |
& aWghtFlux * swdown1(i,j,bi,bj) |
|
./pkg/seaice/seaice_get_forcing.F |
457 |
SEAICE_GET_FORCING |
& aWghtFlux * precip1(i,j,bi,bj) |
|
./pkg/seaice/seaice_get_forcing.F |
459 |
SEAICE_GET_FORCING |
& aWghtFlux * evap1(i,j,bi,bj) |
|
./pkg/seaice/seaice_get_forcing.F |
461 |
SEAICE_GET_FORCING |
& aWghtFlux * runoff1(i,j,bi,bj) |
|
./pkg/seaice/seaice_get_forcing.F |
471 |
SEAICE_GET_FORCING |
atemp(i,j,bi,bj) = aWghtFlux * atemp0(i,j,bi,bj) + |
|
./pkg/seaice/seaice_get_forcing.F |
473 |
SEAICE_GET_FORCING |
aqh(i,j,bi,bj) = aWghtFlux * aqh0(i,j,bi,bj) + |
|
./pkg/seaice/seaice_get_forcing.F |
475 |
SEAICE_GET_FORCING |
lwdown(i,j,bi,bj) = aWghtFlux * lwdown0(i,j,bi,bj) + |
|
./pkg/seaice/seaice_get_forcing.F |
477 |
SEAICE_GET_FORCING |
swdown(i,j,bi,bj) = aWghtFlux * swdown0(i,j,bi,bj) + |
|
./pkg/seaice/seaice_get_forcing.F |
479 |
SEAICE_GET_FORCING |
precip(i,j,bi,bj) = aWghtFlux * precip0(i,j,bi,bj) + |
|
./pkg/seaice/seaice_get_forcing.F |
47 |
SEAICE_GET_FORCING |
_RL aWghtWind,bWghtWind,aWghtFlux,bWghtFlux, |
|
./pkg/seaice/seaice_get_forcing.F |
481 |
SEAICE_GET_FORCING |
evap(i,j,bi,bj) = aWghtFlux * evap0(i,j,bi,bj) + |
|
./pkg/seaice/seaice_get_forcing.F |
483 |
SEAICE_GET_FORCING |
runoff(i,j,bi,bj) = aWghtFlux * runoff0(i,j,bi,bj) + |