| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_ctdsclim.F |
122 |
COST_CTDSCLIM |
nyears=int((nmonsrec-irec)/12)+1 |
|
./pkg/ecco/cost_ctdsclim.F |
123 |
COST_CTDSCLIM |
if(nyears.gt.0) then |
|
./pkg/ecco/cost_ctdsclim.F |
124 |
COST_CTDSCLIM |
do iyear=1,nyears |
|
./pkg/ecco/cost_ctdsclim.F |
138 |
COST_CTDSCLIM |
elseif(iyear.eq.nyears) then |
|
./pkg/ecco/cost_ctdsclim.F |
140 |
COST_CTDSCLIM |
$ +sbar(i,j,k,bi,bj))/float(nyears) |
|
./pkg/ecco/cost_ctdsclim.F |
85 |
COST_CTDSCLIM |
integer mrec, nyears, iyear |
|
./pkg/ecco/cost_ctdtclim.F |
121 |
COST_CTDTCLIM |
nyears=int((nmonsrec-irec)/12)+1 |
|
./pkg/ecco/cost_ctdtclim.F |
122 |
COST_CTDTCLIM |
if(nyears.gt.0) then |
|
./pkg/ecco/cost_ctdtclim.F |
123 |
COST_CTDTCLIM |
do iyear=1,nyears |
|
./pkg/ecco/cost_ctdtclim.F |
137 |
COST_CTDTCLIM |
elseif(iyear.eq.nyears) then |
|
./pkg/ecco/cost_ctdtclim.F |
139 |
COST_CTDTCLIM |
$ +tbar(i,j,k,bi,bj))/float(nyears) |
|
./pkg/ecco/cost_ctdtclim.F |
84 |
COST_CTDTCLIM |
integer mrec, nyears, iyear |
|
./pkg/ecco/cost_salt.F |
121 |
COST_SALT |
nyears=int((nmonsrec-irec)/12)+1 |
|
./pkg/ecco/cost_salt.F |
122 |
COST_SALT |
do iyear=1,nyears |
|
./pkg/ecco/cost_salt.F |
137 |
COST_SALT |
elseif(iyear.eq.nyears) then |
|
./pkg/ecco/cost_salt.F |
139 |
COST_SALT |
$ +sbar(i,j,k,bi,bj))/float(nyears) |
|
./pkg/ecco/cost_salt.F |
80 |
COST_SALT |
integer mrec, nyears, iyear |
|
./pkg/ecco/cost_theta.F |
120 |
COST_THETA |
nyears=int((nmonsrec-irec)/12)+1 |
|
./pkg/ecco/cost_theta.F |
121 |
COST_THETA |
do iyear=1,nyears |
|
./pkg/ecco/cost_theta.F |
136 |
COST_THETA |
elseif(iyear.eq.nyears) then |
|
./pkg/ecco/cost_theta.F |
138 |
COST_THETA |
$ +tbar(i,j,k,bi,bj))/float(nyears) |
|
./pkg/ecco/cost_theta.F |
79 |
COST_THETA |
integer mrec, nyears, iyear |
|
./pkg/ecco/ecco.h |
60 |
NO PROCEDURE |
& nyears, nmonths, ndays, numsteps, |
|
./pkg/ecco/ecco.h |
62 |
NO PROCEDURE |
integer nyears |