| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_gencost_glbmean.F |
134 |
COST_GENCOST_GLBMEAN |
meandataglbmeannu = 0. _d 0 |
|
./pkg/ecco/cost_gencost_glbmean.F |
147 |
COST_GENCOST_GLBMEAN |
meandataglbmeannu = meandataglbmeannu + 1. _d 0 |
|
./pkg/ecco/cost_gencost_glbmean.F |
150 |
COST_GENCOST_GLBMEAN |
if(meandataglbmeannu.NE.0. _d 0) |
|
./pkg/ecco/cost_gencost_glbmean.F |
151 |
COST_GENCOST_GLBMEAN |
& meandataglbmean = meandataglbmean / meandataglbmeannu |
|
./pkg/ecco/cost_gencost_glbmean.F |
77 |
COST_GENCOST_GLBMEAN |
_RL meandataglbmean, meandataglbmeannu |