| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/ecco_init_varia.F |
50 |
ECCO_INIT_VARIA |
RHOsumGlob_0=RHOsumGlob |
|
./pkg/ecco/ecco_phys.F |
107 |
ECCO_PHYS |
CALL GLOBAL_SUM_TILE_RL( RHOsumTile, RHOsumGlob, myThid ) |
|
./pkg/ecco/ecco_phys.F |
108 |
ECCO_PHYS |
RHOsumGlob=RHOsumGlob/VOLsumGlob |
|
./pkg/ecco/ecco_phys.F |
112 |
ECCO_PHYS |
& *(1. _d 0 - RHOsumGlob/RHOsumGlob_0) |
|
./pkg/ecco/ecco_phys.F |
92 |
ECCO_PHYS |
RHOsumGlob=0. _d 0 |
|
./pkg/ecco/cost_averagesfields.F |
203 |
COST_AVERAGESFIELDS |
& *(1. _d 0 - RHOsumGlob/RHOsumGlob_0) |
|
./pkg/ecco/ecco.h |
142 |
NO PROCEDURE |
& RHOsumGlob_0, RHOsumGlob, |
|
./pkg/ecco/ecco.h |
144 |
NO PROCEDURE |
_RL VOLsumGlob_0, VOLsumGlob, RHOsumGlob_0, RHOsumGlob |