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