| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_forcing_gen.F |
16 |
COST_FORCING_GEN |
I wgen, |
|
./pkg/ecco/cost_forcing_gen.F |
222 |
COST_FORCING_GEN |
& + wgen(i,j,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_forcing_gen.F |
228 |
COST_FORCING_GEN |
if ( wgen(i,j,bi,bj)*cosphi(i,j,bi,bj) .ne. 0. ) |
|
./pkg/ecco/cost_forcing_gen.F |
277 |
COST_FORCING_GEN |
& + wgen(i,j,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_forcing_gen.F |
280 |
COST_FORCING_GEN |
if ( wgen(i,j,bi,bj)*cosphi(i,j,bi,bj) .ne. 0. ) |
|
./pkg/ecco/cost_forcing_gen.F |
61 |
COST_FORCING_GEN |
_RL wgen(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |