| File |
Line number |
Procedure |
Code |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
107 |
GRDCHK_GET_OBCS_MASK |
call ACTIVE_READ_XZ( fname, tmpfldxz, iobcs, |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
115 |
GRDCHK_GET_OBCS_MASK |
& tmpfldxz(i,k,bi,bj) |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
52 |
GRDCHK_GET_OBCS_MASK |
_RL tmpfldxz (1-olx:snx+olx,nr,nsx,nsy) |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
84 |
GRDCHK_GET_OBCS_MASK |
call ACTIVE_READ_XZ( fname, tmpfldxz, iobcs, |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
92 |
GRDCHK_GET_OBCS_MASK |
& tmpfldxz(i,k,bi,bj) |
|
./pkg/grdchk/grdchk_getadxx.F |
515 |
GRDCHK_GETADXX |
call ACTIVE_READ_XZ( fname, tmpfldxz, icvrec, |
|
./pkg/grdchk/grdchk_getadxx.F |
519 |
GRDCHK_GETADXX |
& xx_comp = tmpfldxz( itilepos,layer,itile,jtile ) |
|
./pkg/grdchk/grdchk_getadxx.F |
72 |
GRDCHK_GETADXX |
_RL tmpfldxz (1-olx:snx+olx,nr,nsx,nsy) |
|
./pkg/grdchk/grdchk_getxx.F |
716 |
GRDCHK_GETXX |
call ACTIVE_READ_XZ( fname, tmpfldxz, icvrec, |
|
./pkg/grdchk/grdchk_getxx.F |
720 |
GRDCHK_GETXX |
& xx_comp_ref = tmpfldxz( itilepos,layer,itile,jtile ) |
|
./pkg/grdchk/grdchk_getxx.F |
724 |
GRDCHK_GETXX |
& tmpfldxz( itilepos,layer,itile,jtile ) = xx_comp_pert |
|
./pkg/grdchk/grdchk_getxx.F |
725 |
GRDCHK_GETXX |
call ACTIVE_WRITE_XZ( fname, tmpfldxz, icvrec, |
|
./pkg/grdchk/grdchk_getxx.F |
78 |
GRDCHK_GETXX |
_RL tmpfldxz (1-olx:snx+olx,nr,nsx,nsy) |
|
./pkg/grdchk/grdchk_setxx.F |
714 |
GRDCHK_SETXX |
call ACTIVE_READ_XZ( fname, tmpfldxz, icvrec, |
|
./pkg/grdchk/grdchk_setxx.F |
718 |
GRDCHK_SETXX |
& tmpfldxz( itilepos,layer,itile,jtile ) = xx_comp_ref |
|
./pkg/grdchk/grdchk_setxx.F |
719 |
GRDCHK_SETXX |
call ACTIVE_WRITE_XZ( fname, tmpfldxz, icvrec, |
|
./pkg/grdchk/grdchk_setxx.F |
75 |
GRDCHK_SETXX |
_RL tmpfldxz (1-olx:snx+olx,nr,nsx,nsy) |
|
./pkg/ctrl/ctrl_getobcsn.F |
128 |
CTRL_GETOBCSN |
call ACTIVE_READ_XZ( fnameobcsn, tmpfldxz, |
|
./pkg/ctrl/ctrl_getobcsn.F |
155 |
CTRL_GETOBCSN |
& modesv(k,nk,nz)*tmpfldxz(i,nk,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
164 |
CTRL_GETOBCSN |
tmpfldxz(i,k,bi,bj) = tmpz(k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
167 |
CTRL_GETOBCSN |
tmpfldxz(i,k,bi,bj) = tmpz(k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
176 |
CTRL_GETOBCSN |
xx_obcsn1(i,k,bi,bj,iobcs) = tmpfldxz (i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
191 |
CTRL_GETOBCSN |
tmpfldxz (i,k,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_getobcsn.F |
197 |
CTRL_GETOBCSN |
call ACTIVE_READ_XZ( fnameobcsn, tmpfldxz, |
|
./pkg/ctrl/ctrl_getobcsn.F |
224 |
CTRL_GETOBCSN |
& modesv(k,nk,nz)*tmpfldxz(i,nk,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
233 |
CTRL_GETOBCSN |
tmpfldxz(i,k,bi,bj) = tmpz(k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
236 |
CTRL_GETOBCSN |
tmpfldxz(i,k,bi,bj) = tmpz(k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
245 |
CTRL_GETOBCSN |
xx_obcsn1 (i,k,bi,bj,iobcs) = tmpfldxz (i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
73 |
CTRL_GETOBCSN |
_RL tmpfldxz (1-olx:snx+olx,nr,nsx,nsy) |
|
./pkg/ctrl/ctrl_getobcss.F |
124 |
CTRL_GETOBCSS |
call ACTIVE_READ_XZ( fnameobcss, tmpfldxz, |
|
./pkg/ctrl/ctrl_getobcss.F |
151 |
CTRL_GETOBCSS |
& modesv(k,nk,nz)*tmpfldxz(i,nk,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
160 |
CTRL_GETOBCSS |
tmpfldxz(i,k,bi,bj) = tmpz(k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
163 |
CTRL_GETOBCSS |
tmpfldxz(i,k,bi,bj) = tmpz(k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
172 |
CTRL_GETOBCSS |
xx_obcss1(i,k,bi,bj,iobcs) = tmpfldxz (i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
187 |
CTRL_GETOBCSS |
tmpfldxz (i,k,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_getobcss.F |
193 |
CTRL_GETOBCSS |
call ACTIVE_READ_XZ( fnameobcss, tmpfldxz, |
|
./pkg/ctrl/ctrl_getobcss.F |
220 |
CTRL_GETOBCSS |
& modesv(k,nk,nz)*tmpfldxz(i,nk,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
229 |
CTRL_GETOBCSS |
tmpfldxz(i,k,bi,bj) = tmpz(k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
232 |
CTRL_GETOBCSS |
tmpfldxz(i,k,bi,bj) = tmpz(k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
241 |
CTRL_GETOBCSS |
xx_obcss1 (i,k,bi,bj,iobcs) = tmpfldxz (i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
74 |
CTRL_GETOBCSS |
_RL tmpfldxz (1-olx:snx+olx,nr,nsx,nsy) |
|
./pkg/ecco/cost_obcsvol.F |
196 |
COST_OBCSVOL |
call ACTIVE_READ_XZ( fnamefldn, tmpfldxz, irec, doglobalread, |
|
./pkg/ecco/cost_obcsvol.F |
220 |
COST_OBCSVOL |
tmpx = tmpfldxz(i,1,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
239 |
COST_OBCSVOL |
call ACTIVE_READ_XZ( fnameflds, tmpfldxz, irec, doglobalread, |
|
./pkg/ecco/cost_obcsvol.F |
262 |
COST_OBCSVOL |
tmpx = tmpfldxz(i,1,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
88 |
COST_OBCSVOL |
_RL tmpfldxz (1-olx:snx+olx,nr,nsx,nsy) |