| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_argo_theta.F |
129 |
COST_ARGO_THETA |
call ACTIVE_READ_XYZ( fnametheta, tbar, irec, |
|
./pkg/ecco/cost_argo_theta.F |
177 |
COST_ARGO_THETA |
& (tbar(i,j,k,bi,bj)-tmpobs(i,j))* |
|
./pkg/ecco/cost_argo_theta.F |
178 |
COST_ARGO_THETA |
& (tbar(i,j,k,bi,bj)-tmpobs(i,j)) |
|
./pkg/ecco/cost_averagesfields.F |
260 |
COST_AVERAGESFIELDS |
& tbar, theta, xx_tbar_mean_dummy, |
|
./pkg/ecco/cost_averagesfields.F |
267 |
COST_AVERAGESFIELDS |
& tbar, theta(1-Olx,1-Oly,1,1,1), xx_tbar_mean_dummy, |
|
./pkg/ecco/cost_averagesinit.F |
137 |
COST_AVERAGESINIT |
tbar(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
149 |
COST_AVERAGESINIT |
tbar(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_ctdt.F |
127 |
COST_CTDT |
call ACTIVE_READ_XYZ( fnametheta, tbar, irec, |
|
./pkg/ecco/cost_ctdt.F |
172 |
COST_CTDT |
tmpbar(i,j) = tbar(i,j,k,bi,bj) |
|
./pkg/ecco/cost_ctdtclim.F |
127 |
COST_CTDTCLIM |
call ACTIVE_READ_XYZ( fnametheta, tbar, mrec, |
|
./pkg/ecco/cost_ctdtclim.F |
137 |
COST_CTDTCLIM |
tbar_gen(i,j,k,bi,bj) =tbar(i,j,k,bi,bj) |
|
./pkg/ecco/cost_ctdtclim.F |
139 |
COST_CTDTCLIM |
tbar(i,j,k,bi,bj) =(tbar_gen(i,j,k,bi,bj) |
|
./pkg/ecco/cost_ctdtclim.F |
140 |
COST_CTDTCLIM |
$ +tbar(i,j,k,bi,bj))/float(nyears) |
|
./pkg/ecco/cost_ctdtclim.F |
143 |
COST_CTDTCLIM |
$ +tbar(i,j,k,bi,bj) |
|
./pkg/ecco/cost_ctdtclim.F |
156 |
COST_CTDTCLIM |
call ACTIVE_READ_XYZ( fnametheta, tbar, irec, |
|
./pkg/ecco/cost_ctdtclim.F |
198 |
COST_CTDTCLIM |
& (tbar(i,j,k,bi,bj) - tdat(i,j,k,bi,bj))* |
|
./pkg/ecco/cost_ctdtclim.F |
199 |
COST_CTDTCLIM |
& (tbar(i,j,k,bi,bj) - tdat(i,j,k,bi,bj)) ) |
|
./pkg/ecco/cost_drift.F |
142 |
COST_DRIFT |
call ACTIVE_READ_XYZ( fnametheta, tbar, irec, |
|
./pkg/ecco/cost_drift.F |
159 |
COST_DRIFT |
& tbar(i,j,k,bi,bj) |
|
./pkg/ecco/cost_drift.F |
173 |
COST_DRIFT |
call ACTIVE_READ_XYZ( fnametheta, tbar, irec, |
|
./pkg/ecco/cost_drift.F |
191 |
COST_DRIFT |
& tbar(i,j,k,bi,bj) |
|
./pkg/ecco/cost_hyd.F |
141 |
COST_HYD |
& nnzbar, tbarfile, tbar, xx_tbar_mean_dummy, |
|
./pkg/ecco/cost_hyd.F |
76 |
COST_HYD |
& nnzbar, tbarfile, tbar, xx_tbar_mean_dummy, |
|
./pkg/ecco/cost_obcs_ageos.F |
179 |
COST_OBCS_AGEOS |
call ACTIVE_READ_XYZ( fnametheta, tbar, irec, |
|
./pkg/ecco/cost_obcs_ageos.F |
204 |
COST_OBCS_AGEOS |
_EXCH_XYZ_RL(tbar,myThid) |
|
./pkg/ecco/cost_obcs_ageos.F |
238 |
COST_OBCS_AGEOS |
I tbar(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/ecco/cost_obcs_ageos.F |
307 |
COST_OBCS_AGEOS |
I tbar(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/ecco/cost_obcs_ageos.F |
375 |
COST_OBCS_AGEOS |
I tbar(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/ecco/cost_obcs_ageos.F |
442 |
COST_OBCS_AGEOS |
I tbar(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/ecco/cost_theta.F |
134 |
COST_THETA |
call ACTIVE_READ_XYZ( fnametheta, tbar, mrec, |
|
./pkg/ecco/cost_theta.F |
144 |
COST_THETA |
$ +tbar(i,j,k,bi,bj)/float(nyears) |
|
./pkg/ecco/cost_theta.F |
157 |
COST_THETA |
call ACTIVE_READ_XYZ( fnametheta, tbar, irec, |
|
./pkg/ecco/cost_theta.F |
198 |
COST_THETA |
& (tbar(i,j,k,bi,bj) - tdat(i,j,k,bi,bj))* |
|
./pkg/ecco/cost_theta.F |
199 |
COST_THETA |
& (tbar(i,j,k,bi,bj) - tdat(i,j,k,bi,bj)) ) |
|
./pkg/ecco/cost_theta.F |
204 |
COST_THETA |
& (tbar(i,j,k,bi,bj) - tdat(i,j,k,bi,bj))* |
|
./pkg/ecco/cost_theta.F |
205 |
COST_THETA |
& (tbar(i,j,k,bi,bj) - tdat(i,j,k,bi,bj)) ) |
|
./pkg/ecco/cost_trans_merid.F |
164 |
COST_TRANS_MERID |
call ACTIVE_READ_XYZ( fnametheta, tbar, irec, |
|
./pkg/ecco/cost_trans_merid.F |
204 |
COST_TRANS_MERID |
tv(isect) = tv(isect) + p5*(tbar(i,j,k,bi,bj) |
|
./pkg/ecco/cost_trans_merid.F |
205 |
COST_TRANS_MERID |
$ + tbar(i,j-1,k,bi,bj))*vbar(i,j,k,bi,bj) |
|
./pkg/ecco/cost_trans_zonal.F |
153 |
COST_TRANS_ZONAL |
call ACTIVE_READ_XYZ( fnametheta, tbar, irec, |
|
./pkg/ecco/cost_trans_zonal.F |
193 |
COST_TRANS_ZONAL |
tu(isect) = tu(isect) + p5*(tbar(i,j,k,bi,bj) |
|
./pkg/ecco/cost_trans_zonal.F |
194 |
COST_TRANS_ZONAL |
$ + tbar(i-1,j,k,bi,bj))*ubar(i,j,k,bi,bj) |
|
./pkg/ecco/cost_xbt.F |
131 |
COST_XBT |
call ACTIVE_READ_XYZ( fnametheta, tbar, irec, |
|
./pkg/ecco/cost_xbt.F |
191 |
COST_XBT |
& (tbar(i,j,k,bi,bj)-tmpobs(i,j))* |
|
./pkg/ecco/cost_xbt.F |
192 |
COST_XBT |
& (tbar(i,j,k,bi,bj)-tmpobs(i,j)) |
|
./pkg/ecco/ecco_cost.h |
157 |
NO PROCEDURE |
& tbar, |
|
./pkg/ecco/ecco_cost.h |
203 |
NO PROCEDURE |
_RL tbar (1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy) |
|
./pkg/ecco/ecco_cost.h |
206 |
NO PROCEDURE |
_RL tbar (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
|
./pkg/ecco/ecco_cost.h |
208 |
NO PROCEDURE |
_RL tbar |