| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_gencost_sshv4.F |
1082 |
COST_GENCOST_SSHV4 |
if (gencost_outputlevel(igen_gmsl).GT.0) then |
|
./pkg/ecco/cost_gencost_sshv4.F |
1091 |
COST_GENCOST_SSHV4 |
if (gencost_outputlevel(igen_gmsl).GT.0) then |
|
./pkg/ecco/cost_gencost_sshv4.F |
1203 |
COST_GENCOST_SSHV4 |
IF ( ( MASTER_CPU_THREAD(myThid).AND.(igen_gmsl.NE.0) ).AND. |
|
./pkg/ecco/cost_gencost_sshv4.F |
1207 |
COST_GENCOST_SSHV4 |
objf_gencost(1,1,igen_gmsl) = objf_gencost(1,1,igen_gmsl) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1209 |
COST_GENCOST_SSHV4 |
num_gencost(1,1,igen_gmsl) = num_gencost(1,1,igen_gmsl) |
|
./pkg/ecco/cost_gencost_sshv4.F |
190 |
COST_GENCOST_SSHV4 |
igen_gmsl=0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
198 |
COST_GENCOST_SSHV4 |
if (gencost_name(k).EQ.'sshv4-gmsl') igen_gmsl=k |
|
./pkg/ecco/cost_gencost_sshv4.F |
748 |
COST_GENCOST_SSHV4 |
if (gencost_outputlevel(igen_gmsl).GT.0) then |
|
./pkg/ecco/cost_gencost_sshv4.F |
757 |
COST_GENCOST_SSHV4 |
if (gencost_outputlevel(igen_gmsl).GT.0) then |
|
./pkg/ecco/cost_gencost_sshv4.F |
78 |
COST_GENCOST_SSHV4 |
integer igen_mdt, igen_lsc, igen_gmsl |