File |
Line number |
Procedure |
Code |
./pkg/grdchk/grdchk_get_obcs_mask.F |
120 |
GRDCHK_GET_OBCS_MASK |
call ACTIVE_READ_YZ( fname, tmpfldyz, iobcs, |
./pkg/grdchk/grdchk_get_obcs_mask.F |
128 |
GRDCHK_GET_OBCS_MASK |
& tmpfldyz(j,k,bi,bj) |
./pkg/grdchk/grdchk_get_obcs_mask.F |
143 |
GRDCHK_GET_OBCS_MASK |
call ACTIVE_READ_YZ( fname, tmpfldyz, iobcs, |
./pkg/grdchk/grdchk_get_obcs_mask.F |
151 |
GRDCHK_GET_OBCS_MASK |
& tmpfldyz(j,k,bi,bj) |
./pkg/grdchk/grdchk_getadxx.F |
241 |
GRDCHK_GETADXX |
call ACTIVE_READ_YZ( fname, tmpfldyz, icvrec, |
./pkg/grdchk/grdchk_getadxx.F |
245 |
GRDCHK_GETADXX |
xx_comp = tmpfldyz( jtilepos,layer,itile,jtile ) |
./pkg/grdchk/grdchk_getadxx.F |
256 |
GRDCHK_GETADXX |
call ACTIVE_READ_YZ( fname, tmpfldyz, icvrec, |
./pkg/grdchk/grdchk_getadxx.F |
260 |
GRDCHK_GETADXX |
xx_comp = tmpfldyz( jtilepos,layer,itile,jtile ) |
./pkg/grdchk/grdchk_getxx.F |
358 |
GRDCHK_GETXX |
call ACTIVE_READ_YZ( fname, tmpfldyz, icvrec, |
./pkg/grdchk/grdchk_getxx.F |
362 |
GRDCHK_GETXX |
xx_comp_ref = tmpfldyz( jtilepos,layer,itile,jtile ) |
./pkg/grdchk/grdchk_getxx.F |
364 |
GRDCHK_GETXX |
tmpfldyz( jtilepos,layer,itile,jtile ) = xx_comp_pert |
./pkg/grdchk/grdchk_getxx.F |
366 |
GRDCHK_GETXX |
call ACTIVE_WRITE_YZ( fname, tmpfldyz, icvrec, |
./pkg/grdchk/grdchk_getxx.F |
383 |
GRDCHK_GETXX |
call ACTIVE_READ_YZ( fname, tmpfldyz, icvrec, |
./pkg/grdchk/grdchk_getxx.F |
387 |
GRDCHK_GETXX |
xx_comp_ref = tmpfldyz( jtilepos,layer,itile,jtile ) |
./pkg/grdchk/grdchk_getxx.F |
389 |
GRDCHK_GETXX |
tmpfldyz( jtilepos,layer,itile,jtile ) = xx_comp_pert |
./pkg/grdchk/grdchk_getxx.F |
391 |
GRDCHK_GETXX |
call ACTIVE_WRITE_YZ( fname, tmpfldyz, icvrec, |
./pkg/grdchk/grdchk_setxx.F |
331 |
GRDCHK_SETXX |
call ACTIVE_READ_YZ( fname, tmpfldyz, icvrec, |
./pkg/grdchk/grdchk_setxx.F |
335 |
GRDCHK_SETXX |
tmpfldyz( jtilepos,layer,itile,jtile ) = xx_comp_ref |
./pkg/grdchk/grdchk_setxx.F |
337 |
GRDCHK_SETXX |
call ACTIVE_WRITE_YZ( fname, tmpfldyz, icvrec, |
./pkg/grdchk/grdchk_setxx.F |
354 |
GRDCHK_SETXX |
call ACTIVE_READ_YZ( fname, tmpfldyz, icvrec, |
./pkg/grdchk/grdchk_setxx.F |
358 |
GRDCHK_SETXX |
tmpfldyz( jtilepos,layer,itile,jtile ) = xx_comp_ref |
./pkg/grdchk/grdchk_setxx.F |
360 |
GRDCHK_SETXX |
call ACTIVE_WRITE_YZ( fname, tmpfldyz, icvrec, |
./pkg/ctrl/ctrl.h |
316 |
NO PROCEDURE |
& , tmpfldyz |
./pkg/ctrl/ctrl.h |
321 |
NO PROCEDURE |
_RL tmpfldyz (1-oly:sny+oly,nr,nsx,nsy) |
./pkg/ctrl/ctrl_getobcse.F |
125 |
CTRL_GETOBCSE |
call ACTIVE_READ_YZ( fnameobcse, tmpfldyz, |
./pkg/ctrl/ctrl_getobcse.F |
143 |
CTRL_GETOBCSE |
ubaro = tmpfldyz(j,1,bi,bj) |
./pkg/ctrl/ctrl_getobcse.F |
144 |
CTRL_GETOBCSE |
tmpfldyz(j,1,bi,bj) = 0.d0 |
./pkg/ctrl/ctrl_getobcse.F |
154 |
CTRL_GETOBCSE |
utop = tmpfldyz(j,k,bi,bj)* |
./pkg/ctrl/ctrl_getobcse.F |
158 |
CTRL_GETOBCSE |
tmpfldyz(j,k,bi,bj) = tmpfldyz(j,k,bi,bj)+ ubaro |
./pkg/ctrl/ctrl_getobcse.F |
162 |
CTRL_GETOBCSE |
tmpfldyz(j,1,bi,bj) = tmpfldyz(j,1,bi,bj) |
./pkg/ctrl/ctrl_getobcse.F |
178 |
CTRL_GETOBCSE |
ubaro = tmpfldyz(j,1,bi,bj) |
./pkg/ctrl/ctrl_getobcse.F |
179 |
CTRL_GETOBCSE |
tmpfldyz(j,1,bi,bj) = 0.d0 |
./pkg/ctrl/ctrl_getobcse.F |
189 |
CTRL_GETOBCSE |
utop = tmpfldyz(j,k,bi,bj)* |
./pkg/ctrl/ctrl_getobcse.F |
193 |
CTRL_GETOBCSE |
tmpfldyz(j,k,bi,bj) = tmpfldyz(j,k,bi,bj)+ ubaro |
./pkg/ctrl/ctrl_getobcse.F |
197 |
CTRL_GETOBCSE |
tmpfldyz(j,1,bi,bj) = tmpfldyz(j,1,bi,bj) |
./pkg/ctrl/ctrl_getobcse.F |
211 |
CTRL_GETOBCSE |
xx_obcse1(j,k,bi,bj,iobcs) = tmpfldyz (j,k,bi,bj) |
./pkg/ctrl/ctrl_getobcse.F |
225 |
CTRL_GETOBCSE |
tmpfldyz(j,k,bi,bj) = xx_obcse1(j,k,bi,bj,iobcs) |
./pkg/ctrl/ctrl_getobcse.F |
231 |
CTRL_GETOBCSE |
call EXF_SWAPFFIELDS_YZ( tmpfldyz2, tmpfldyz, mythid) |
./pkg/ctrl/ctrl_getobcse.F |
243 |
CTRL_GETOBCSE |
call ACTIVE_READ_YZ( fnameobcse, tmpfldyz, |
./pkg/ctrl/ctrl_getobcse.F |
261 |
CTRL_GETOBCSE |
ubaro = tmpfldyz(j,1,bi,bj) |
./pkg/ctrl/ctrl_getobcse.F |
262 |
CTRL_GETOBCSE |
tmpfldyz(j,1,bi,bj) = 0.d0 |
./pkg/ctrl/ctrl_getobcse.F |
272 |
CTRL_GETOBCSE |
utop = tmpfldyz(j,k,bi,bj)* |
./pkg/ctrl/ctrl_getobcse.F |
276 |
CTRL_GETOBCSE |
tmpfldyz(j,k,bi,bj) = tmpfldyz(j,k,bi,bj)+ ubaro |
./pkg/ctrl/ctrl_getobcse.F |
280 |
CTRL_GETOBCSE |
tmpfldyz(j,1,bi,bj) = tmpfldyz(j,1,bi,bj) |
./pkg/ctrl/ctrl_getobcse.F |
296 |
CTRL_GETOBCSE |
ubaro = tmpfldyz(j,1,bi,bj) |
./pkg/ctrl/ctrl_getobcse.F |
297 |
CTRL_GETOBCSE |
tmpfldyz(j,1,bi,bj) = 0.d0 |
./pkg/ctrl/ctrl_getobcse.F |
307 |
CTRL_GETOBCSE |
utop = tmpfldyz(j,k,bi,bj)* |
./pkg/ctrl/ctrl_getobcse.F |
311 |
CTRL_GETOBCSE |
tmpfldyz(j,k,bi,bj) = tmpfldyz(j,k,bi,bj)+ ubaro |
./pkg/ctrl/ctrl_getobcse.F |
315 |
CTRL_GETOBCSE |
tmpfldyz(j,1,bi,bj) = tmpfldyz(j,1,bi,bj) |
./pkg/ctrl/ctrl_getobcse.F |
329 |
CTRL_GETOBCSE |
xx_obcse1 (j,k,bi,bj,iobcs) = tmpfldyz (j,k,bi,bj) |
./pkg/ctrl/ctrl_getobcsw.F |
125 |
CTRL_GETOBCSW |
call ACTIVE_READ_YZ( fnameobcsw, tmpfldyz, |
./pkg/ctrl/ctrl_getobcsw.F |
143 |
CTRL_GETOBCSW |
ubaro = tmpfldyz(j,1,bi,bj) |
./pkg/ctrl/ctrl_getobcsw.F |
144 |
CTRL_GETOBCSW |
tmpfldyz(j,1,bi,bj) = 0.d0 |
./pkg/ctrl/ctrl_getobcsw.F |
154 |
CTRL_GETOBCSW |
utop = tmpfldyz(j,k,bi,bj)* |
./pkg/ctrl/ctrl_getobcsw.F |
158 |
CTRL_GETOBCSW |
tmpfldyz(j,k,bi,bj) = tmpfldyz(j,k,bi,bj)+ ubaro |
./pkg/ctrl/ctrl_getobcsw.F |
162 |
CTRL_GETOBCSW |
tmpfldyz(j,1,bi,bj) = tmpfldyz(j,1,bi,bj) |
./pkg/ctrl/ctrl_getobcsw.F |
178 |
CTRL_GETOBCSW |
ubaro = tmpfldyz(j,1,bi,bj) |
./pkg/ctrl/ctrl_getobcsw.F |
179 |
CTRL_GETOBCSW |
tmpfldyz(j,1,bi,bj) = 0.d0 |
./pkg/ctrl/ctrl_getobcsw.F |
189 |
CTRL_GETOBCSW |
utop = tmpfldyz(j,k,bi,bj)* |
./pkg/ctrl/ctrl_getobcsw.F |
193 |
CTRL_GETOBCSW |
tmpfldyz(j,k,bi,bj) = tmpfldyz(j,k,bi,bj)+ ubaro |
./pkg/ctrl/ctrl_getobcsw.F |
197 |
CTRL_GETOBCSW |
tmpfldyz(j,1,bi,bj) = tmpfldyz(j,1,bi,bj) |
./pkg/ctrl/ctrl_getobcsw.F |
211 |
CTRL_GETOBCSW |
xx_obcsw1(j,k,bi,bj,iobcs) = tmpfldyz (j,k,bi,bj) |
./pkg/ctrl/ctrl_getobcsw.F |
228 |
CTRL_GETOBCSW |
tmpfldyz(j,k,bi,bj) = xx_obcsw1(j,k,bi,bj,iobcs) |
./pkg/ctrl/ctrl_getobcsw.F |
234 |
CTRL_GETOBCSW |
call EXF_SWAPFFIELDS_YZ( tmpfldyz2, tmpfldyz, mythid) |
./pkg/ctrl/ctrl_getobcsw.F |
246 |
CTRL_GETOBCSW |
call ACTIVE_READ_YZ( fnameobcsw, tmpfldyz, |
./pkg/ctrl/ctrl_getobcsw.F |
264 |
CTRL_GETOBCSW |
ubaro = tmpfldyz(j,1,bi,bj) |
./pkg/ctrl/ctrl_getobcsw.F |
265 |
CTRL_GETOBCSW |
tmpfldyz(j,1,bi,bj) = 0.d0 |
./pkg/ctrl/ctrl_getobcsw.F |
275 |
CTRL_GETOBCSW |
utop = tmpfldyz(j,k,bi,bj)* |
./pkg/ctrl/ctrl_getobcsw.F |
279 |
CTRL_GETOBCSW |
tmpfldyz(j,k,bi,bj) = tmpfldyz(j,k,bi,bj)+ ubaro |
./pkg/ctrl/ctrl_getobcsw.F |
283 |
CTRL_GETOBCSW |
tmpfldyz(j,1,bi,bj) = tmpfldyz(j,1,bi,bj) |
./pkg/ctrl/ctrl_getobcsw.F |
299 |
CTRL_GETOBCSW |
ubaro = tmpfldyz(j,1,bi,bj) |
./pkg/ctrl/ctrl_getobcsw.F |
300 |
CTRL_GETOBCSW |
tmpfldyz(j,1,bi,bj) = 0.d0 |
./pkg/ctrl/ctrl_getobcsw.F |
310 |
CTRL_GETOBCSW |
utop = tmpfldyz(j,k,bi,bj)* |
./pkg/ctrl/ctrl_getobcsw.F |
314 |
CTRL_GETOBCSW |
tmpfldyz(j,k,bi,bj) = tmpfldyz(j,k,bi,bj)+ ubaro |
./pkg/ctrl/ctrl_getobcsw.F |
318 |
CTRL_GETOBCSW |
tmpfldyz(j,1,bi,bj) = tmpfldyz(j,1,bi,bj) |
./pkg/ctrl/ctrl_getobcsw.F |
332 |
CTRL_GETOBCSW |
xx_obcsw1 (j,k,bi,bj,iobcs) = tmpfldyz (j,k,bi,bj) |
./pkg/ctrl/ctrl_obcsvol.F |
241 |
CTRL_OBCSVOL |
call ACTIVE_READ_YZ( fnamefldw, tmpfldyz, |
./pkg/ctrl/ctrl_obcsvol.F |
260 |
CTRL_OBCSVOL |
tmpy = tmpfldyz(j,k,bi,bj) |
./pkg/ctrl/ctrl_obcsvol.F |
277 |
CTRL_OBCSVOL |
call ACTIVE_READ_YZ( fnameflde, tmpfldyz, |
./pkg/ctrl/ctrl_obcsvol.F |
296 |
CTRL_OBCSVOL |
tmpy = tmpfldyz(j,k,bi,bj) |
./pkg/ctrl/ctrl_obcsvol.F |
399 |
CTRL_OBCSVOL |
call ACTIVE_READ_YZ( fnamefldw, tmpfldyz, |
./pkg/ctrl/ctrl_obcsvol.F |
418 |
CTRL_OBCSVOL |
tmpy = tmpfldyz(j,k,bi,bj) |
./pkg/ctrl/ctrl_obcsvol.F |
435 |
CTRL_OBCSVOL |
call ACTIVE_READ_YZ( fnameflde, tmpfldyz, |
./pkg/ctrl/ctrl_obcsvol.F |
454 |
CTRL_OBCSVOL |
tmpy = tmpfldyz(j,k,bi,bj) |
./pkg/ctrl/ctrl_volflux.F |
269 |
CTRL_VOLFLUX |
call ACTIVE_READ_YZ( fnamefldw, tmpfldyz, |
./pkg/ctrl/ctrl_volflux.F |
292 |
CTRL_VOLFLUX |
tmpy = tmpfldyz(j,1,bi,bj) |
./pkg/ctrl/ctrl_volflux.F |
327 |
CTRL_VOLFLUX |
call ACTIVE_READ_YZ( fnameflde, tmpfldyz, |
./pkg/ctrl/ctrl_volflux.F |
354 |
CTRL_VOLFLUX |
tmpy = tmpfldyz(j,1,bi,bj) |
./pkg/ecco/cost_obcsvol.F |
271 |
COST_OBCSVOL |
call ACTIVE_READ_YZ( fnamefldw, tmpfldyz, irec, doglobalread, |
./pkg/ecco/cost_obcsvol.F |
293 |
COST_OBCSVOL |
tmpy = tmpfldyz(j,1,bi,bj) |
./pkg/ecco/cost_obcsvol.F |
314 |
COST_OBCSVOL |
call ACTIVE_READ_YZ( fnameflde, tmpfldyz, irec, doglobalread, |
./pkg/ecco/cost_obcsvol.F |
336 |
COST_OBCSVOL |
tmpy = tmpfldyz(j,1,bi,bj) |
./pkg/ecco/ecco_cost_init_barfiles.F |
137 |
ECCO_COST_INIT_BARFILES |
tmpfldyz (j,k,bi,bj) = 0. _d 0 |