| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_trans_zonal.F |
133 |
COST_TRANS_ZONAL |
do isect = 1, nsect |
|
./pkg/ecco/cost_trans_zonal.F |
137 |
COST_TRANS_ZONAL |
& 'cost_trans_zon',isect,'.',optimcycle |
|
./pkg/ecco/cost_trans_zonal.F |
141 |
COST_TRANS_ZONAL |
& 'ECCO_TRANS_ZON_XLON: section at lon: ', xlon(isect) |
|
./pkg/ecco/cost_trans_zonal.F |
145 |
COST_TRANS_ZONAL |
musum(isect) = 0.0 |
|
./pkg/ecco/cost_trans_zonal.F |
169 |
COST_TRANS_ZONAL |
tu(isect) = 0.0 |
|
./pkg/ecco/cost_trans_zonal.F |
170 |
COST_TRANS_ZONAL |
su(isect) = 0.0 |
|
./pkg/ecco/cost_trans_zonal.F |
171 |
COST_TRANS_ZONAL |
mu(isect) = 0.0 |
|
./pkg/ecco/cost_trans_zonal.F |
172 |
COST_TRANS_ZONAL |
mumin(isect) = 0.0 |
|
./pkg/ecco/cost_trans_zonal.F |
173 |
COST_TRANS_ZONAL |
mumax(isect) = 0.0 |
|
./pkg/ecco/cost_trans_zonal.F |
174 |
COST_TRANS_ZONAL |
kmin(isect) = 0 |
|
./pkg/ecco/cost_trans_zonal.F |
175 |
COST_TRANS_ZONAL |
kmax(isect) = 0 |
|
./pkg/ecco/cost_trans_zonal.F |
185 |
COST_TRANS_ZONAL |
if ( xc(i,j,bi,bj) .ge. xlon(isect) .and. |
|
./pkg/ecco/cost_trans_zonal.F |
186 |
COST_TRANS_ZONAL |
$ xc(i,j,bi,bj) .lt. xlon(isect)+del_x .and. |
|
./pkg/ecco/cost_trans_zonal.F |
187 |
COST_TRANS_ZONAL |
$ yc(i,j,bi,bj) .ge. beglat(isect) .and. |
|
./pkg/ecco/cost_trans_zonal.F |
188 |
COST_TRANS_ZONAL |
$ yc(i,j,bi,bj) .le. endlat(isect) ) then |
|
./pkg/ecco/cost_trans_zonal.F |
189 |
COST_TRANS_ZONAL |
tu(isect) = tu(isect) + p5*(tbar(i,j,k,bi,bj) |
|
./pkg/ecco/cost_trans_zonal.F |
194 |
COST_TRANS_ZONAL |
su(isect) = su(isect) + p5*(sbar(i,j,k,bi,bj) |
|
./pkg/ecco/cost_trans_zonal.F |
199 |
COST_TRANS_ZONAL |
mu(isect) = mu(isect) + p5*(hFacC(i,j,k,bi,bj) |
|
./pkg/ecco/cost_trans_zonal.F |
206 |
COST_TRANS_ZONAL |
mulev(isect,k) = mu(isect) |
|
./pkg/ecco/cost_trans_zonal.F |
211 |
COST_TRANS_ZONAL |
_GLOBAL_SUM_R8( tu(isect), mythid ) |
|
./pkg/ecco/cost_trans_zonal.F |
212 |
COST_TRANS_ZONAL |
_GLOBAL_SUM_R8( su(isect), mythid ) |
|
./pkg/ecco/cost_trans_zonal.F |
213 |
COST_TRANS_ZONAL |
_GLOBAL_SUM_R8( mu(isect), mythid ) |
|
./pkg/ecco/cost_trans_zonal.F |
216 |
COST_TRANS_ZONAL |
_GLOBAL_SUM_R8( mulev(isect,k), mythid ) |
|
./pkg/ecco/cost_trans_zonal.F |
218 |
COST_TRANS_ZONAL |
mumin(isect) = mulev(isect,1) |
|
./pkg/ecco/cost_trans_zonal.F |
219 |
COST_TRANS_ZONAL |
mumax(isect) = mulev(isect,1) |
|
./pkg/ecco/cost_trans_zonal.F |
221 |
COST_TRANS_ZONAL |
if ( mulev(isect,k) .GT. mulev(isect,k-1) ) then |
|
./pkg/ecco/cost_trans_zonal.F |
222 |
COST_TRANS_ZONAL |
mumax(isect) = mulev(isect,k) |
|
./pkg/ecco/cost_trans_zonal.F |
223 |
COST_TRANS_ZONAL |
kmax(isect) = k |
|
./pkg/ecco/cost_trans_zonal.F |
225 |
COST_TRANS_ZONAL |
if ( mulev(isect,k) .LT. mulev(isect,k-1) ) then |
|
./pkg/ecco/cost_trans_zonal.F |
226 |
COST_TRANS_ZONAL |
mumin(isect) = mulev(isect,k) |
|
./pkg/ecco/cost_trans_zonal.F |
227 |
COST_TRANS_ZONAL |
kmin(isect) = k |
|
./pkg/ecco/cost_trans_zonal.F |
231 |
COST_TRANS_ZONAL |
musum(isect) = musum(isect) + mu(isect) |
|
./pkg/ecco/cost_trans_zonal.F |
234 |
COST_TRANS_ZONAL |
& 'ECCO_TRANS_ZON ', isect, irec, kmin(isect), kmax(isect), |
|
./pkg/ecco/cost_trans_zonal.F |
235 |
COST_TRANS_ZONAL |
& tu(isect), su(isect), mu(isect), mumin(isect), mumax(isect) |
|
./pkg/ecco/cost_trans_zonal.F |
240 |
COST_TRANS_ZONAL |
& 'ECCO_TRANS_ZON_SUM musum ', isect, musum(isect) |
|
./pkg/ecco/cost_trans_zonal.F |
245 |
COST_TRANS_ZONAL |
& isect, irec, kmin(isect), kmax(isect), |
|
./pkg/ecco/cost_trans_zonal.F |
246 |
COST_TRANS_ZONAL |
& tu(isect), su(isect), mu(isect), mumin(isect), mumax(isect) |
|
./pkg/ecco/cost_trans_zonal.F |
44 |
COST_TRANS_ZONAL |
integer isect |
|
./pkg/ecco/cost_trans_merid.F |
144 |
COST_TRANS_MERID |
do isect = 1, nsect |
|
./pkg/ecco/cost_trans_merid.F |
148 |
COST_TRANS_MERID |
& 'cost_trans_mer',isect,'.',optimcycle |
|
./pkg/ecco/cost_trans_merid.F |
152 |
COST_TRANS_MERID |
& 'ECCO_TRANS_MER_YLAT: section at lat: ', ylat(isect) |
|
./pkg/ecco/cost_trans_merid.F |
156 |
COST_TRANS_MERID |
mvsum(isect) = 0.0 |
|
./pkg/ecco/cost_trans_merid.F |
180 |
COST_TRANS_MERID |
tv(isect) = 0.0 |
|
./pkg/ecco/cost_trans_merid.F |
181 |
COST_TRANS_MERID |
sv(isect) = 0.0 |
|
./pkg/ecco/cost_trans_merid.F |
182 |
COST_TRANS_MERID |
mv(isect) = 0.0 |
|
./pkg/ecco/cost_trans_merid.F |
183 |
COST_TRANS_MERID |
mvmin(isect) = 0.0 |
|
./pkg/ecco/cost_trans_merid.F |
184 |
COST_TRANS_MERID |
mvmax(isect) = 0.0 |
|
./pkg/ecco/cost_trans_merid.F |
185 |
COST_TRANS_MERID |
kmin(isect) = 0 |
|
./pkg/ecco/cost_trans_merid.F |
186 |
COST_TRANS_MERID |
kmax(isect) = 0 |
|
./pkg/ecco/cost_trans_merid.F |
196 |
COST_TRANS_MERID |
if ( yc(i,j,bi,bj) .ge. ylat(isect) .and. |
|
./pkg/ecco/cost_trans_merid.F |
197 |
COST_TRANS_MERID |
$ yc(i,j,bi,bj) .lt. ylat(isect)+del_y .and. |
|
./pkg/ecco/cost_trans_merid.F |
198 |
COST_TRANS_MERID |
$ xc(i,j,bi,bj) .ge. beglon(isect) .and. |
|
./pkg/ecco/cost_trans_merid.F |
199 |
COST_TRANS_MERID |
$ xc(i,j,bi,bj) .le. endlon(isect) ) then |
|
./pkg/ecco/cost_trans_merid.F |
200 |
COST_TRANS_MERID |
tv(isect) = tv(isect) + p5*(tbar(i,j,k,bi,bj) |
|
./pkg/ecco/cost_trans_merid.F |
205 |
COST_TRANS_MERID |
sv(isect) = sv(isect) + p5*(sbar(i,j,k,bi,bj) |
|
./pkg/ecco/cost_trans_merid.F |
210 |
COST_TRANS_MERID |
mv(isect) = mv(isect) + p5*(hFacC(i,j,k,bi,bj) |
|
./pkg/ecco/cost_trans_merid.F |
217 |
COST_TRANS_MERID |
mvlev(isect,k) = mv(isect) |
|
./pkg/ecco/cost_trans_merid.F |
222 |
COST_TRANS_MERID |
_GLOBAL_SUM_R8( tv(isect), mythid ) |
|
./pkg/ecco/cost_trans_merid.F |
223 |
COST_TRANS_MERID |
_GLOBAL_SUM_R8( sv(isect), mythid ) |
|
./pkg/ecco/cost_trans_merid.F |
224 |
COST_TRANS_MERID |
_GLOBAL_SUM_R8( mv(isect), mythid ) |
|
./pkg/ecco/cost_trans_merid.F |
227 |
COST_TRANS_MERID |
_GLOBAL_SUM_R8( mvlev(isect,k), mythid ) |
|
./pkg/ecco/cost_trans_merid.F |
229 |
COST_TRANS_MERID |
mvmin(isect) = mvlev(isect,1) |
|
./pkg/ecco/cost_trans_merid.F |
230 |
COST_TRANS_MERID |
mvmax(isect) = mvlev(isect,1) |
|
./pkg/ecco/cost_trans_merid.F |
232 |
COST_TRANS_MERID |
if ( mvlev(isect,k) .GT. mvlev(isect,k-1) ) then |
|
./pkg/ecco/cost_trans_merid.F |
233 |
COST_TRANS_MERID |
mvmax(isect) = mvlev(isect,k) |
|
./pkg/ecco/cost_trans_merid.F |
234 |
COST_TRANS_MERID |
kmax(isect) = k |
|
./pkg/ecco/cost_trans_merid.F |
236 |
COST_TRANS_MERID |
if ( mvlev(isect,k) .LT. mvlev(isect,k-1) ) then |
|
./pkg/ecco/cost_trans_merid.F |
237 |
COST_TRANS_MERID |
mvmin(isect) = mvlev(isect,k) |
|
./pkg/ecco/cost_trans_merid.F |
238 |
COST_TRANS_MERID |
kmin(isect) = k |
|
./pkg/ecco/cost_trans_merid.F |
242 |
COST_TRANS_MERID |
mvsum(isect) = mvsum(isect) + mv(isect) |
|
./pkg/ecco/cost_trans_merid.F |
245 |
COST_TRANS_MERID |
& 'ECCO_TRANS_MER ', isect, irec, kmin(isect), kmax(isect), |
|
./pkg/ecco/cost_trans_merid.F |
246 |
COST_TRANS_MERID |
& tv(isect), sv(isect), mv(isect), mvmin(isect), mvmax(isect) |
|
./pkg/ecco/cost_trans_merid.F |
251 |
COST_TRANS_MERID |
& 'ECCO_TRANS_MER_SUM mvsum ', isect, mvsum(isect) |
|
./pkg/ecco/cost_trans_merid.F |
256 |
COST_TRANS_MERID |
& isect, irec, kmin(isect), kmax(isect), |
|
./pkg/ecco/cost_trans_merid.F |
257 |
COST_TRANS_MERID |
& tv(isect), sv(isect), mv(isect), mvmin(isect), mvmax(isect) |
|
./pkg/ecco/cost_trans_merid.F |
44 |
COST_TRANS_MERID |
integer isect |