| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_gencost_sshv4.F |
1012 |
COST_GENCOST_SSHV4 |
IF ( ( MASTER_CPU_THREAD(myThid).AND.(igen_gmsl.NE.0) ).AND. |
|
./pkg/ecco/cost_gencost_sshv4.F |
1016 |
COST_GENCOST_SSHV4 |
objf_gencost(1,1,igen_gmsl) = objf_gencost(1,1,igen_gmsl) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1018 |
COST_GENCOST_SSHV4 |
num_gencost(1,1,igen_gmsl) = num_gencost(1,1,igen_gmsl) |
|
./pkg/ecco/cost_gencost_sshv4.F |
176 |
COST_GENCOST_SSHV4 |
igen_gmsl=0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
183 |
COST_GENCOST_SSHV4 |
if (gencost_name(k).EQ.'sshv4-gmsl') igen_gmsl=k |
|
./pkg/ecco/cost_gencost_sshv4.F |
89 |
COST_GENCOST_SSHV4 |
integer igen_mdt, igen_lsc, igen_gmsl |