File |
Line number |
Procedure |
Code |
./pkg/grdchk/grdchk_get_obcs_mask.F |
130 |
GRDCHK_GET_OBCS_MASK |
call ACTIVE_READ_YZ( fname, tmpfldyz, iobcs, |
./pkg/grdchk/grdchk_get_obcs_mask.F |
138 |
GRDCHK_GET_OBCS_MASK |
& tmpfldyz(j,k,bi,bj) |
./pkg/grdchk/grdchk_get_obcs_mask.F |
153 |
GRDCHK_GET_OBCS_MASK |
call ACTIVE_READ_YZ( fname, tmpfldyz, iobcs, |
./pkg/grdchk/grdchk_get_obcs_mask.F |
161 |
GRDCHK_GET_OBCS_MASK |
& tmpfldyz(j,k,bi,bj) |
./pkg/grdchk/grdchk_get_obcs_mask.F |
55 |
GRDCHK_GET_OBCS_MASK |
_RL tmpfldyz (1-oly:sny+oly,nr,nsx,nsy) |
./pkg/grdchk/grdchk_getadxx.F |
524 |
GRDCHK_GETADXX |
call ACTIVE_READ_YZ( fname, tmpfldyz, icvrec, |
./pkg/grdchk/grdchk_getadxx.F |
528 |
GRDCHK_GETADXX |
& xx_comp = tmpfldyz( jtilepos,layer,itile,jtile ) |
./pkg/grdchk/grdchk_getadxx.F |
75 |
GRDCHK_GETADXX |
_RL tmpfldyz (1-oly:sny+oly,nr,nsx,nsy) |
./pkg/grdchk/grdchk_getxx.F |
732 |
GRDCHK_GETXX |
call ACTIVE_READ_YZ( fname, tmpfldyz, icvrec, |
./pkg/grdchk/grdchk_getxx.F |
736 |
GRDCHK_GETXX |
& xx_comp_ref = tmpfldyz( jtilepos,layer,itile,jtile ) |
./pkg/grdchk/grdchk_getxx.F |
740 |
GRDCHK_GETXX |
& tmpfldyz( jtilepos,layer,itile,jtile ) = xx_comp_pert |
./pkg/grdchk/grdchk_getxx.F |
741 |
GRDCHK_GETXX |
call ACTIVE_WRITE_YZ( fname, tmpfldyz, icvrec, |
./pkg/grdchk/grdchk_getxx.F |
81 |
GRDCHK_GETXX |
_RL tmpfldyz (1-oly:sny+oly,nr,nsx,nsy) |
./pkg/grdchk/grdchk_setxx.F |
726 |
GRDCHK_SETXX |
call ACTIVE_READ_YZ( fname, tmpfldyz, icvrec, |
./pkg/grdchk/grdchk_setxx.F |
730 |
GRDCHK_SETXX |
& tmpfldyz( jtilepos,layer,itile,jtile ) = xx_comp_ref |
./pkg/grdchk/grdchk_setxx.F |
731 |
GRDCHK_SETXX |
call ACTIVE_WRITE_YZ( fname, tmpfldyz, icvrec, |
./pkg/grdchk/grdchk_setxx.F |
78 |
GRDCHK_SETXX |
_RL tmpfldyz (1-oly:sny+oly,nr,nsx,nsy) |
./pkg/ctrl/ctrl_getobcse.F |
123 |
CTRL_GETOBCSE |
call ACTIVE_READ_YZ( fnameobcse, tmpfldyz, |
./pkg/ctrl/ctrl_getobcse.F |
150 |
CTRL_GETOBCSE |
& modesv(k,nk,nz)*tmpfldyz(j,nk,bi,bj) |
./pkg/ctrl/ctrl_getobcse.F |
159 |
CTRL_GETOBCSE |
tmpfldyz(j,k,bi,bj) = tmpz(k,bi,bj) |
./pkg/ctrl/ctrl_getobcse.F |
162 |
CTRL_GETOBCSE |
tmpfldyz(j,k,bi,bj) = tmpz(k,bi,bj) |
./pkg/ctrl/ctrl_getobcse.F |
171 |
CTRL_GETOBCSE |
xx_obcse1(j,k,bi,bj,iobcs) = tmpfldyz (j,k,bi,bj) |
./pkg/ctrl/ctrl_getobcse.F |
186 |
CTRL_GETOBCSE |
tmpfldyz (j,k,bi,bj) = 0. _d 0 |
./pkg/ctrl/ctrl_getobcse.F |
192 |
CTRL_GETOBCSE |
call ACTIVE_READ_YZ( fnameobcse, tmpfldyz, |
./pkg/ctrl/ctrl_getobcse.F |
219 |
CTRL_GETOBCSE |
& modesv(k,nk,nz)*tmpfldyz(j,nk,bi,bj) |
./pkg/ctrl/ctrl_getobcse.F |
228 |
CTRL_GETOBCSE |
tmpfldyz(j,k,bi,bj) = tmpz(k,bi,bj) |
./pkg/ctrl/ctrl_getobcse.F |
231 |
CTRL_GETOBCSE |
tmpfldyz(j,k,bi,bj) = tmpz(k,bi,bj) |
./pkg/ctrl/ctrl_getobcse.F |
240 |
CTRL_GETOBCSE |
xx_obcse1 (j,k,bi,bj,iobcs) = tmpfldyz (j,k,bi,bj) |
./pkg/ctrl/ctrl_getobcse.F |
72 |
CTRL_GETOBCSE |
_RL tmpfldyz (1-oly:sny+oly,nr,nsx,nsy) |
./pkg/ctrl/ctrl_getobcsw.F |
123 |
CTRL_GETOBCSW |
call ACTIVE_READ_YZ( fnameobcsw, tmpfldyz, |
./pkg/ctrl/ctrl_getobcsw.F |
150 |
CTRL_GETOBCSW |
& modesv(k,nk,nz)*tmpfldyz(j,nk,bi,bj) |
./pkg/ctrl/ctrl_getobcsw.F |
159 |
CTRL_GETOBCSW |
tmpfldyz(j,k,bi,bj) = tmpz(k,bi,bj) |
./pkg/ctrl/ctrl_getobcsw.F |
162 |
CTRL_GETOBCSW |
tmpfldyz(j,k,bi,bj) = tmpz(k,bi,bj) |
./pkg/ctrl/ctrl_getobcsw.F |
171 |
CTRL_GETOBCSW |
xx_obcsw1(j,k,bi,bj,iobcs) = tmpfldyz (j,k,bi,bj) |
./pkg/ctrl/ctrl_getobcsw.F |
186 |
CTRL_GETOBCSW |
tmpfldyz (j,k,bi,bj) = 0. _d 0 |
./pkg/ctrl/ctrl_getobcsw.F |
192 |
CTRL_GETOBCSW |
call ACTIVE_READ_YZ( fnameobcsw, tmpfldyz, |
./pkg/ctrl/ctrl_getobcsw.F |
219 |
CTRL_GETOBCSW |
& modesv(k,nk,nz)*tmpfldyz(j,nk,bi,bj) |
./pkg/ctrl/ctrl_getobcsw.F |
228 |
CTRL_GETOBCSW |
tmpfldyz(j,k,bi,bj) = tmpz(k,bi,bj) |
./pkg/ctrl/ctrl_getobcsw.F |
231 |
CTRL_GETOBCSW |
tmpfldyz(j,k,bi,bj) = tmpz(k,bi,bj) |
./pkg/ctrl/ctrl_getobcsw.F |
240 |
CTRL_GETOBCSW |
xx_obcsw1 (j,k,bi,bj,iobcs) = tmpfldyz (j,k,bi,bj) |
./pkg/ctrl/ctrl_getobcsw.F |
73 |
CTRL_GETOBCSW |
_RL tmpfldyz (1-oly:sny+oly,nr,nsx,nsy) |
./pkg/ecco/cost_obcsvol.F |
282 |
COST_OBCSVOL |
call ACTIVE_READ_YZ( fnamefldw, tmpfldyz, irec, doglobalread, |
./pkg/ecco/cost_obcsvol.F |
305 |
COST_OBCSVOL |
tmpy = tmpfldyz(j,1,bi,bj) |
./pkg/ecco/cost_obcsvol.F |
325 |
COST_OBCSVOL |
call ACTIVE_READ_YZ( fnameflde, tmpfldyz, irec, doglobalread, |
./pkg/ecco/cost_obcsvol.F |
348 |
COST_OBCSVOL |
tmpy = tmpfldyz(j,1,bi,bj) |
./pkg/ecco/cost_obcsvol.F |
91 |
COST_OBCSVOL |
_RL tmpfldyz (1-oly:sny+oly,nr,nsx,nsy) |