| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_gencost_sshv4.F |
100 |
COST_GENCOST_SSHV4 |
_RL mdtma(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
|
./pkg/ecco/cost_gencost_sshv4.F |
257 |
COST_GENCOST_SSHV4 |
mdtma(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
357 |
COST_GENCOST_SSHV4 |
mdtma(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
360 |
COST_GENCOST_SSHV4 |
mdtma(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
416 |
COST_GENCOST_SSHV4 |
if ( tpma(i,j,bi,bj)*mdtma(i,j,bi,bj)* |
|
./pkg/ecco/cost_gencost_sshv4.F |
422 |
COST_GENCOST_SSHV4 |
if ( ersma(i,j,bi,bj)*mdtma(i,j,bi,bj)* |
|
./pkg/ecco/cost_gencost_sshv4.F |
428 |
COST_GENCOST_SSHV4 |
if ( gfoma(i,j,bi,bj)*mdtma(i,j,bi,bj)* |
|
./pkg/ecco/cost_gencost_sshv4.F |
448 |
COST_GENCOST_SSHV4 |
& ( mdtma(i,j,bi,bj) .NE. 0. ) ) then |
|
./pkg/ecco/cost_gencost_sshv4.F |
487 |
COST_GENCOST_SSHV4 |
if ( ( mdtma(i,j,bi,bj) .NE. 0. ).AND. |
|
./pkg/ecco/cost_gencost_sshv4.F |
682 |
COST_GENCOST_SSHV4 |
& ( mdtma(i,j,bi,bj) .NE. 0. ).AND. |
|
./pkg/ecco/cost_gencost_sshv4.F |
693 |
COST_GENCOST_SSHV4 |
elseif ( ( mdtma(i,j,bi,bj) .NE. 0. ) .AND. |
|
./pkg/ecco/cost_gencost_sshv4.F |
777 |
COST_GENCOST_SSHV4 |
& ( mdtma(i,j,bi,bj) .NE. 0. ) .AND. |
|
./pkg/ecco/cost_gencost_sshv4.F |
785 |
COST_GENCOST_SSHV4 |
elseif ( ( mdtma(i,j,bi,bj) .NE. 0. ) .AND. |
|
./pkg/ecco/cost_gencost_sshv4.F |
863 |
COST_GENCOST_SSHV4 |
& * mdtma(i,j,bi,bj) |