Symbol Description Uses
iobcs 502


File Line number Procedure Code
./pkg/ecco/ecco_cost_weights.F 1902 ECCO_COST_WEIGHTS 
          do iobcs = 1,nobcs
./pkg/ecco/ecco_cost_weights.F 1905 ECCO_COST_WEIGHTS 
              if (wobcsn(k,iobcs) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 1906 ECCO_COST_WEIGHTS 
                 wobcsn(k,iobcs) =
./pkg/ecco/ecco_cost_weights.F 1907 ECCO_COST_WEIGHTS 
     &                ratio/wobcsn(k,iobcs)/wobcsn(k,iobcs)
./pkg/ecco/ecco_cost_weights.F 1909 ECCO_COST_WEIGHTS 
                 wobcsn(k,iobcs) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 1913 ECCO_COST_WEIGHTS 
              if (wobcss(k,iobcs) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 1914 ECCO_COST_WEIGHTS 
                 wobcss(k,iobcs) =
./pkg/ecco/ecco_cost_weights.F 1915 ECCO_COST_WEIGHTS 
     &                ratio/wobcss(k,iobcs)/wobcss(k,iobcs)
./pkg/ecco/ecco_cost_weights.F 1917 ECCO_COST_WEIGHTS 
                 wobcss(k,iobcs) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 1921 ECCO_COST_WEIGHTS 
              if (wobcsw(k,iobcs) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 1922 ECCO_COST_WEIGHTS 
                 wobcsw(k,iobcs) =
./pkg/ecco/ecco_cost_weights.F 1923 ECCO_COST_WEIGHTS 
     &                ratio/wobcsw(k,iobcs)/wobcsw(k,iobcs)
./pkg/ecco/ecco_cost_weights.F 1925 ECCO_COST_WEIGHTS 
                 wobcsw(k,iobcs) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 1929 ECCO_COST_WEIGHTS 
              if (wobcse(k,iobcs) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 1930 ECCO_COST_WEIGHTS 
                 wobcse(k,iobcs) =
./pkg/ecco/ecco_cost_weights.F 1931 ECCO_COST_WEIGHTS 
     &                ratio/wobcse(k,iobcs)/wobcse(k,iobcs)
./pkg/ecco/ecco_cost_weights.F 1933 ECCO_COST_WEIGHTS 
                 wobcse(k,iobcs) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 219 ECCO_COST_WEIGHTS 
      do iobcs = 1,nobcs
./pkg/ecco/ecco_cost_weights.F 223 ECCO_COST_WEIGHTS 
          wobcsn(k,iobcs) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 227 ECCO_COST_WEIGHTS 
          wobcss(k,iobcs) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 231 ECCO_COST_WEIGHTS 
          wobcsw(k,iobcs) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 235 ECCO_COST_WEIGHTS 
          wobcse(k,iobcs) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 67 ECCO_COST_WEIGHTS 
      integer iobcs
./pkg/grdchk/grdchk_get_obcs_mask.F 106 GRDCHK_GET_OBCS_MASK 
      do iobcs = 1,nobcs
./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 114 GRDCHK_GET_OBCS_MASK 
                     grdchk_maskxz(i,k,bi,bj,iobcs) =
./pkg/grdchk/grdchk_get_obcs_mask.F 129 GRDCHK_GET_OBCS_MASK 
      do iobcs = 1,nobcs
./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 137 GRDCHK_GET_OBCS_MASK 
                     grdchk_maskyz(j,k,bi,bj,iobcs) =
./pkg/grdchk/grdchk_get_obcs_mask.F 152 GRDCHK_GET_OBCS_MASK 
      do iobcs = 1,nobcs
./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 160 GRDCHK_GET_OBCS_MASK 
                     grdchk_maskyz(j,k,bi,bj,iobcs) =
./pkg/grdchk/grdchk_get_obcs_mask.F 43 GRDCHK_GET_OBCS_MASK 
      integer irec,iobcs
./pkg/grdchk/grdchk_get_obcs_mask.F 83 GRDCHK_GET_OBCS_MASK 
      do iobcs = 1,nobcs
./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 91 GRDCHK_GET_OBCS_MASK 
                     grdchk_maskxz(i,k,bi,bj,iobcs) =
./pkg/grdchk/grdchk_get_position.F 127 GRDCHK_GET_POSITION 
         iobcs = MOD((irec-1),nobcsmax) + 1
./pkg/grdchk/grdchk_get_position.F 170 GRDCHK_GET_POSITION 
                        if (grdchk_maskxz(i,k,bi,bj,iobcs) .gt. 0.
./pkg/grdchk/grdchk_get_position.F 174 GRDCHK_GET_POSITION 
                        wetlocal = grdchk_maskxz(i,k,bi,bj,iobcs)
./pkg/grdchk/grdchk_get_position.F 178 GRDCHK_GET_POSITION 
                        if (grdchk_maskxz(i,k,bi,bj,iobcs) .gt. 0.
./pkg/grdchk/grdchk_get_position.F 182 GRDCHK_GET_POSITION 
                        wetlocal = grdchk_maskxz(i,k,bi,bj,iobcs)
./pkg/grdchk/grdchk_get_position.F 186 GRDCHK_GET_POSITION 
                        if ( grdchk_maskyz(j,k,bi,bj,iobcs) .gt. 0.
./pkg/grdchk/grdchk_get_position.F 190 GRDCHK_GET_POSITION 
                        wetlocal = grdchk_maskyz(j,k,bi,bj,iobcs)
./pkg/grdchk/grdchk_get_position.F 194 GRDCHK_GET_POSITION 
                        if (grdchk_maskyz(j,k,bi,bj,iobcs) .gt. 0.
./pkg/grdchk/grdchk_get_position.F 198 GRDCHK_GET_POSITION 
                        wetlocal = grdchk_maskyz(j,k,bi,bj,iobcs)
./pkg/grdchk/grdchk_get_position.F 208 GRDCHK_GET_POSITION 
     &                 iobcs .EQ. obcspos .AND.
./pkg/grdchk/grdchk_get_position.F 243 GRDCHK_GET_POSITION 
                itest     = itest + nwettile(bi,bj,k,iobcs)
./pkg/grdchk/grdchk_get_position.F 61 GRDCHK_GET_POSITION 
      integer iobcs
./pkg/grdchk/grdchk_init.F 126 GRDCHK_INIT 
                  do iobcs = 1, nobcs
./pkg/grdchk/grdchk_init.F 129 GRDCHK_INIT 
                        nwettile(bi,bj,k,iobcs) =
./pkg/grdchk/grdchk_init.F 130 GRDCHK_INIT 
     &                       nwetobcsn(bi,bj,k,iobcs)
./pkg/grdchk/grdchk_init.F 134 GRDCHK_INIT 
                        nwettile(bi,bj,k,iobcs) =
./pkg/grdchk/grdchk_init.F 135 GRDCHK_INIT 
     &                       nwetobcss(bi,bj,k,iobcs)
./pkg/grdchk/grdchk_init.F 139 GRDCHK_INIT 
                        nwettile(bi,bj,k,iobcs) =
./pkg/grdchk/grdchk_init.F 140 GRDCHK_INIT 
     &                       nwetobcsw(bi,bj,k,iobcs)
./pkg/grdchk/grdchk_init.F 144 GRDCHK_INIT 
                        nwettile(bi,bj,k,iobcs) =
./pkg/grdchk/grdchk_init.F 145 GRDCHK_INIT 
     &                       nwetobcse(bi,bj,k,iobcs)
./pkg/grdchk/grdchk_init.F 170 GRDCHK_INIT 
               do iobcs = 1, nobcs
./pkg/grdchk/grdchk_init.F 171 GRDCHK_INIT 
                  ncvarcomp     = ncvarcomp + nwettile(bi,bj,k,iobcs)
./pkg/grdchk/grdchk_init.F 51 GRDCHK_INIT 
      integer itest,iobcs
./pkg/grdchk/grdchk_init.F 71 GRDCHK_INIT 
               do iobcs = 1, nobcs
./pkg/grdchk/grdchk_init.F 72 GRDCHK_INIT 
                  nwettile(bi,bj,k,iobcs) = 0
./pkg/grdchk/grdchk_loc.F 155 GRDCHK_LOC 
         iobcs = MOD((irec-1),nobcsmax) + 1
./pkg/grdchk/grdchk_loc.F 161 GRDCHK_LOC 
             icglo   = icglo + nwettile(bi,bj,k,iobcs)
./pkg/grdchk/grdchk_loc.F 162 GRDCHK_LOC 
             icglom1 = icglo - nwettile(bi,bj,k,iobcs)
./pkg/grdchk/grdchk_loc.F 221 GRDCHK_LOC 
                        if ( grdchk_maskxz(i,k,bi,bj,iobcs) .gt. 0.
./pkg/grdchk/grdchk_loc.F 230 GRDCHK_LOC 
                        if ( grdchk_maskxz(i,k,bi,bj,iobcs) .gt. 0.
./pkg/grdchk/grdchk_loc.F 239 GRDCHK_LOC 
                        if ( grdchk_maskyz(j,k,bi,bj,iobcs) .gt. 0.
./pkg/grdchk/grdchk_loc.F 248 GRDCHK_LOC 
                        if ( grdchk_maskyz(j,k,bi,bj,iobcs) .gt. 0.
./pkg/grdchk/grdchk_loc.F 265 GRDCHK_LOC 
                     obcspos  = iobcs
./pkg/grdchk/grdchk_loc.F 269 GRDCHK_LOC 
                     print *, 'ph-grd -->hit<-- ', itmp,jtmp,k,iobcs
./pkg/grdchk/grdchk_loc.F 282 GRDCHK_LOC 
                 icomptest = icomptest + nwettile(bi,bj,k,iobcs)
./pkg/grdchk/grdchk_loc.F 77 GRDCHK_LOC 
      integer iobcs
./optim/optim_readdata.F 168 OPTIM_READDATA 
      read( funit ) ((nWetobcsnGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs)
./optim/optim_readdata.F 171 OPTIM_READDATA 
      read( funit ) ((nWetobcssGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs)
./optim/optim_readdata.F 174 OPTIM_READDATA 
      read( funit ) ((nWetobcswGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs)
./optim/optim_readdata.F 177 OPTIM_READDATA 
      read( funit ) ((nWetobcseGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs)
./optim/optim_readdata.F 213 OPTIM_READDATA 
         do iobcs=1,nobcs
./optim/optim_readdata.F 214 OPTIM_READDATA 
          print *, 'pathei: nWetobcsnGlo (iobcs=', iobcs,')',
./optim/optim_readdata.F 215 OPTIM_READDATA 
     &         (nWetobcsnGlo(k,iobcs), k=1,nr)
./optim/optim_readdata.F 219 OPTIM_READDATA 
         do iobcs=1,nobcs
./optim/optim_readdata.F 220 OPTIM_READDATA 
          print *, 'pathei: nWetobcssGlo (iobcs=', iobcs,')',
./optim/optim_readdata.F 221 OPTIM_READDATA 
     &         (nWetobcssGlo(k,iobcs), k=1,nr)
./optim/optim_readdata.F 225 OPTIM_READDATA 
         do iobcs=1,nobcs
./optim/optim_readdata.F 226 OPTIM_READDATA 
          print *, 'pathei: nWetobcswGlo (iobcs=', iobcs,')',
./optim/optim_readdata.F 227 OPTIM_READDATA 
     &         (nWetobcswGlo(k,iobcs), k=1,nr)
./optim/optim_readdata.F 231 OPTIM_READDATA 
         do iobcs=1,nobcs
./optim/optim_readdata.F 232 OPTIM_READDATA 
          print *, 'pathei: nWetobcseGlo (iobcs=', iobcs,')',
./optim/optim_readdata.F 233 OPTIM_READDATA 
     &         (nWetobcseGlo(k,iobcs), k=1,nr)
./optim/optim_readdata.F 317 OPTIM_READDATA 
              iobcs= icvrec - igg*nobcs
./optim/optim_readdata.F 320 OPTIM_READDATA 
               cbuffindex = nWetobcsnGlo(k,iobcs)
./optim/optim_readdata.F 325 OPTIM_READDATA 
               cbuffindex = nWetobcssGlo(k,iobcs)
./optim/optim_readdata.F 330 OPTIM_READDATA 
               cbuffindex = nWetobcswGlo(k,iobcs)
./optim/optim_readdata.F 335 OPTIM_READDATA 
               cbuffindex = nWetobcseGlo(k,iobcs)
./optim/optim_readdata.F 98 OPTIM_READDATA 
      integer iobcs
./optim/optim_writedata.F 165 OPTIM_WRITEDATA 
          write(funit) ((nWetobcsnGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs)
./optim/optim_writedata.F 168 OPTIM_WRITEDATA 
          write(funit) ((nWetobcssGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs)
./optim/optim_writedata.F 171 OPTIM_WRITEDATA 
          write(funit) ((nWetobcswGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs)
./optim/optim_writedata.F 174 OPTIM_WRITEDATA 
          write(funit) ((nWetobcseGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs)
./optim/optim_writedata.F 215 OPTIM_WRITEDATA 
                          iobcs= icvrec - igg*nobcs
./optim/optim_writedata.F 218 OPTIM_WRITEDATA 
                             cbuffindex = nWetobcsnGlo(k,iobcs)
./optim/optim_writedata.F 223 OPTIM_WRITEDATA 
                             cbuffindex = nWetobcssGlo(k,iobcs)
./optim/optim_writedata.F 228 OPTIM_WRITEDATA 
                             cbuffindex = nWetobcswGlo(k,iobcs)
./optim/optim_writedata.F 233 OPTIM_WRITEDATA 
                             cbuffindex = nWetobcseGlo(k,iobcs)
./optim/optim_writedata.F 74 OPTIM_WRITEDATA 
      integer iobcs
./pkg/admtlm/admtlm_dsvd2model.F 100 ADMTLM_DSVD2MODEL 
      integer iobcs
./pkg/admtlm/admtlm_dsvd2model.F 232 ADMTLM_DSVD2MODEL 
          read(cunit) ((filenWetobcsnGlo(k,iobcs),
./pkg/admtlm/admtlm_dsvd2model.F 233 ADMTLM_DSVD2MODEL 
     &         k=1,nr), iobcs= 1,nobcs)
./pkg/admtlm/admtlm_dsvd2model.F 236 ADMTLM_DSVD2MODEL 
          read(cunit) ((filenWetobcssGlo(k,iobcs),
./pkg/admtlm/admtlm_dsvd2model.F 237 ADMTLM_DSVD2MODEL 
     &         k=1,nr), iobcs= 1,nobcs)
./pkg/admtlm/admtlm_dsvd2model.F 240 ADMTLM_DSVD2MODEL 
          read(cunit) ((filenWetobcswGlo(k,iobcs),
./pkg/admtlm/admtlm_dsvd2model.F 241 ADMTLM_DSVD2MODEL 
     &         k=1,nr), iobcs= 1,nobcs)
./pkg/admtlm/admtlm_dsvd2model.F 244 ADMTLM_DSVD2MODEL 
          read(cunit) ((filenWetobcseGlo(k,iobcs),
./pkg/admtlm/admtlm_dsvd2model.F 245 ADMTLM_DSVD2MODEL 
     &         k=1,nr), iobcs= 1,nobcs)
./pkg/admtlm/admtlm_dsvd2model.F 280 ADMTLM_DSVD2MODEL 
       do iobcs = 1, nobcs
./pkg/admtlm/admtlm_dsvd2model.F 282 ADMTLM_DSVD2MODEL 
           if (filenWetobcsnGlo(k,iobcs) .NE.
./pkg/admtlm/admtlm_dsvd2model.F 283 ADMTLM_DSVD2MODEL 
     &           nWetobcsnGlo(k,iobcs)) then
./pkg/admtlm/admtlm_dsvd2model.F 292 ADMTLM_DSVD2MODEL 
       do iobcs = 1, nobcs
./pkg/admtlm/admtlm_dsvd2model.F 294 ADMTLM_DSVD2MODEL 
           if (filenWetobcssGlo(k,iobcs) .NE.
./pkg/admtlm/admtlm_dsvd2model.F 295 ADMTLM_DSVD2MODEL 
     &           nWetobcssGlo(k,iobcs)) then
./pkg/admtlm/admtlm_dsvd2model.F 304 ADMTLM_DSVD2MODEL 
       do iobcs = 1, nobcs
./pkg/admtlm/admtlm_dsvd2model.F 306 ADMTLM_DSVD2MODEL 
           if (filenWetobcswGlo(k,iobcs) .NE.
./pkg/admtlm/admtlm_dsvd2model.F 307 ADMTLM_DSVD2MODEL 
     &           nWetobcswGlo(k,iobcs)) then
./pkg/admtlm/admtlm_dsvd2model.F 316 ADMTLM_DSVD2MODEL 
       do iobcs = 1, nobcs
./pkg/admtlm/admtlm_dsvd2model.F 318 ADMTLM_DSVD2MODEL 
           if (filenWetobcseGlo(k,iobcs) .NE.
./pkg/admtlm/admtlm_dsvd2model.F 319 ADMTLM_DSVD2MODEL 
     &           nWetobcseGlo(k,iobcs)) then
./pkg/admtlm/admtlm_model2dsvd.F 224 ADMTLM_MODEL2DSVD 
          write(cunit) ((nWetobcsnGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs)
./pkg/admtlm/admtlm_model2dsvd.F 227 ADMTLM_MODEL2DSVD 
          write(cunit) ((nWetobcssGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs)
./pkg/admtlm/admtlm_model2dsvd.F 230 ADMTLM_MODEL2DSVD 
          write(cunit) ((nWetobcswGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs)
./pkg/admtlm/admtlm_model2dsvd.F 233 ADMTLM_MODEL2DSVD 
          write(cunit) ((nWetobcseGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs)
./pkg/admtlm/admtlm_model2dsvd.F 76 ADMTLM_MODEL2DSVD 
      integer iobcs
./pkg/ctrl/ctrl_getobcse.F 120 CTRL_GETOBCSE 
      do iobcs = 1,nobcs
./pkg/ctrl/ctrl_getobcse.F 124 CTRL_GETOBCSE 
     &                       (obcsecount0-1)*nobcs+iobcs,
./pkg/ctrl/ctrl_getobcse.F 131 CTRL_GETOBCSE 
          if (iobcs .gt. 2) then
./pkg/ctrl/ctrl_getobcse.F 138 CTRL_GETOBCSE 
              if (iobcs .eq. 3) then
./pkg/ctrl/ctrl_getobcse.F 158 CTRL_GETOBCSE 
              if (iobcs .eq. 3) then
./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 185 CTRL_GETOBCSE 
            xx_obcse0(j,k,bi,bj,iobcs) = xx_obcse1(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcse.F 193 CTRL_GETOBCSE 
     &                       (obcsecount1-1)*nobcs+iobcs,
./pkg/ctrl/ctrl_getobcse.F 200 CTRL_GETOBCSE 
          if (iobcs .gt. 2) then
./pkg/ctrl/ctrl_getobcse.F 207 CTRL_GETOBCSE 
              if (iobcs .eq. 3) then
./pkg/ctrl/ctrl_getobcse.F 227 CTRL_GETOBCSE 
              if (iobcs .eq. 3) then
./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 256 CTRL_GETOBCSE 
           if (iobcs .EQ. 1) then
./pkg/ctrl/ctrl_getobcse.F 258 CTRL_GETOBCSE 
     &           + obcsefac            *xx_obcse0(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcse.F 259 CTRL_GETOBCSE 
     &           + (1. _d 0 - obcsefac)*xx_obcse1(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcse.F 262 CTRL_GETOBCSE 
           else if (iobcs .EQ. 2) then
./pkg/ctrl/ctrl_getobcse.F 264 CTRL_GETOBCSE 
     &           + obcsefac            *xx_obcse0(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcse.F 265 CTRL_GETOBCSE 
     &           + (1. _d 0 - obcsefac)*xx_obcse1(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcse.F 268 CTRL_GETOBCSE 
           else if (iobcs .EQ. 3) then
./pkg/ctrl/ctrl_getobcse.F 270 CTRL_GETOBCSE 
     &           + obcsefac            *xx_obcse0(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcse.F 271 CTRL_GETOBCSE 
     &           + (1. _d 0 - obcsefac)*xx_obcse1(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcse.F 274 CTRL_GETOBCSE 
           else if (iobcs .EQ. 4) then
./pkg/ctrl/ctrl_getobcse.F 276 CTRL_GETOBCSE 
     &           + obcsefac            *xx_obcse0(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcse.F 277 CTRL_GETOBCSE 
     &           + (1. _d 0 - obcsefac)*xx_obcse1(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcse.F 61 CTRL_GETOBCSE 
      integer iobcs
./pkg/ctrl/ctrl_getobcsn.F 126 CTRL_GETOBCSN 
      do iobcs = 1,nobcs
./pkg/ctrl/ctrl_getobcsn.F 129 CTRL_GETOBCSN 
     &                       (obcsncount0-1)*nobcs+iobcs,
./pkg/ctrl/ctrl_getobcsn.F 136 CTRL_GETOBCSN 
          if (iobcs .gt. 2) then
./pkg/ctrl/ctrl_getobcsn.F 143 CTRL_GETOBCSN 
             if (iobcs .eq. 3) then
./pkg/ctrl/ctrl_getobcsn.F 163 CTRL_GETOBCSN 
             if (iobcs .eq. 3) then
./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 190 CTRL_GETOBCSN 
            xx_obcsn0(i,k,bi,bj,iobcs) = xx_obcsn1(i,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcsn.F 198 CTRL_GETOBCSN 
     &                       (obcsncount1-1)*nobcs+iobcs,
./pkg/ctrl/ctrl_getobcsn.F 205 CTRL_GETOBCSN 
          if (iobcs .gt. 2) then
./pkg/ctrl/ctrl_getobcsn.F 212 CTRL_GETOBCSN 
             if (iobcs .eq. 3) then
./pkg/ctrl/ctrl_getobcsn.F 232 CTRL_GETOBCSN 
             if (iobcs .eq. 3) then
./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 262 CTRL_GETOBCSN 
           if (iobcs .EQ. 1) then
./pkg/ctrl/ctrl_getobcsn.F 264 CTRL_GETOBCSN 
     &           + obcsnfac            *xx_obcsn0(i,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcsn.F 265 CTRL_GETOBCSN 
     &           + (1. _d 0 - obcsnfac)*xx_obcsn1(i,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcsn.F 268 CTRL_GETOBCSN 
           else if (iobcs .EQ. 2) then
./pkg/ctrl/ctrl_getobcsn.F 270 CTRL_GETOBCSN 
     &           + obcsnfac            *xx_obcsn0(i,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcsn.F 271 CTRL_GETOBCSN 
     &           + (1. _d 0 - obcsnfac)*xx_obcsn1(i,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcsn.F 274 CTRL_GETOBCSN 
           else if (iobcs .EQ. 4) then
./pkg/ctrl/ctrl_getobcsn.F 276 CTRL_GETOBCSN 
     &           + obcsnfac            *xx_obcsn0(i,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcsn.F 277 CTRL_GETOBCSN 
     &           + (1. _d 0 - obcsnfac)*xx_obcsn1(i,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcsn.F 280 CTRL_GETOBCSN 
           else if (iobcs .EQ. 3) then
./pkg/ctrl/ctrl_getobcsn.F 282 CTRL_GETOBCSN 
     &           + obcsnfac            *xx_obcsn0(i,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcsn.F 283 CTRL_GETOBCSN 
     &           + (1. _d 0 - obcsnfac)*xx_obcsn1(i,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcsn.F 62 CTRL_GETOBCSN 
      integer iobcs
./pkg/ctrl/ctrl_getobcss.F 122 CTRL_GETOBCSS 
      do iobcs = 1,nobcs
./pkg/ctrl/ctrl_getobcss.F 125 CTRL_GETOBCSS 
     &                       (obcsscount0-1)*nobcs+iobcs,
./pkg/ctrl/ctrl_getobcss.F 132 CTRL_GETOBCSS 
          if (iobcs .gt. 2) then
./pkg/ctrl/ctrl_getobcss.F 139 CTRL_GETOBCSS 
             if (iobcs .eq. 3) then
./pkg/ctrl/ctrl_getobcss.F 159 CTRL_GETOBCSS 
             if (iobcs .eq. 3) then
./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 186 CTRL_GETOBCSS 
            xx_obcss0(i,k,bi,bj,iobcs) = xx_obcss1(i,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcss.F 194 CTRL_GETOBCSS 
     &                       (obcsscount1-1)*nobcs+iobcs,
./pkg/ctrl/ctrl_getobcss.F 201 CTRL_GETOBCSS 
          if (iobcs .gt. 2) then
./pkg/ctrl/ctrl_getobcss.F 208 CTRL_GETOBCSS 
             if (iobcs .eq. 3) then
./pkg/ctrl/ctrl_getobcss.F 228 CTRL_GETOBCSS 
             if (iobcs .eq. 3) then
./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 257 CTRL_GETOBCSS 
           if (iobcs .EQ. 1) then
./pkg/ctrl/ctrl_getobcss.F 259 CTRL_GETOBCSS 
     &           + obcssfac            *xx_obcss0(i,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcss.F 260 CTRL_GETOBCSS 
     &           + (1. _d 0 - obcssfac)*xx_obcss1(i,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcss.F 263 CTRL_GETOBCSS 
           else if (iobcs .EQ. 2) then
./pkg/ctrl/ctrl_getobcss.F 265 CTRL_GETOBCSS 
     &           + obcssfac            *xx_obcss0(i,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcss.F 266 CTRL_GETOBCSS 
     &           + (1. _d 0 - obcssfac)*xx_obcss1(i,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcss.F 269 CTRL_GETOBCSS 
           else if (iobcs .EQ. 4) then
./pkg/ctrl/ctrl_getobcss.F 271 CTRL_GETOBCSS 
     &           + obcssfac            *xx_obcss0(i,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcss.F 272 CTRL_GETOBCSS 
     &           + (1. _d 0 - obcssfac)*xx_obcss1(i,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcss.F 275 CTRL_GETOBCSS 
           else if (iobcs .EQ. 3) then
./pkg/ctrl/ctrl_getobcss.F 277 CTRL_GETOBCSS 
     &           + obcssfac            *xx_obcss0(i,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcss.F 278 CTRL_GETOBCSS 
     &           + (1. _d 0 - obcssfac)*xx_obcss1(i,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcss.F 63 CTRL_GETOBCSS 
      integer iobcs
./pkg/ctrl/ctrl_getobcsw.F 121 CTRL_GETOBCSW 
      do iobcs = 1,nobcs
./pkg/ctrl/ctrl_getobcsw.F 124 CTRL_GETOBCSW 
     &                       (obcswcount0-1)*nobcs+iobcs,
./pkg/ctrl/ctrl_getobcsw.F 131 CTRL_GETOBCSW 
          if (iobcs .gt. 2) then
./pkg/ctrl/ctrl_getobcsw.F 138 CTRL_GETOBCSW 
              if (iobcs .eq. 3) then
./pkg/ctrl/ctrl_getobcsw.F 158 CTRL_GETOBCSW 
              if (iobcs .eq. 3) then
./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 185 CTRL_GETOBCSW 
            xx_obcsw0(j,k,bi,bj,iobcs) = xx_obcsw1(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcsw.F 193 CTRL_GETOBCSW 
     &                       (obcswcount1-1)*nobcs+iobcs,
./pkg/ctrl/ctrl_getobcsw.F 200 CTRL_GETOBCSW 
          if (iobcs .gt. 2) then
./pkg/ctrl/ctrl_getobcsw.F 207 CTRL_GETOBCSW 
              if (iobcs .eq. 3) then
./pkg/ctrl/ctrl_getobcsw.F 227 CTRL_GETOBCSW 
              if (iobcs .eq. 3) then
./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 256 CTRL_GETOBCSW 
           if (iobcs .EQ. 1) then
./pkg/ctrl/ctrl_getobcsw.F 258 CTRL_GETOBCSW 
     &           + obcswfac            *xx_obcsw0(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcsw.F 259 CTRL_GETOBCSW 
     &           + (1. _d 0 - obcswfac)*xx_obcsw1(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcsw.F 262 CTRL_GETOBCSW 
           else if (iobcs .EQ. 2) then
./pkg/ctrl/ctrl_getobcsw.F 264 CTRL_GETOBCSW 
     &           + obcswfac            *xx_obcsw0(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcsw.F 265 CTRL_GETOBCSW 
     &           + (1. _d 0 - obcswfac)*xx_obcsw1(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcsw.F 268 CTRL_GETOBCSW 
           else if (iobcs .EQ. 3) then
./pkg/ctrl/ctrl_getobcsw.F 270 CTRL_GETOBCSW 
     &           + obcswfac            *xx_obcsw0(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcsw.F 271 CTRL_GETOBCSW 
     &           + (1. _d 0 - obcswfac)*xx_obcsw1(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcsw.F 274 CTRL_GETOBCSW 
           else if (iobcs .EQ. 4) then
./pkg/ctrl/ctrl_getobcsw.F 276 CTRL_GETOBCSW 
     &           + obcswfac            *xx_obcsw0(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcsw.F 277 CTRL_GETOBCSW 
     &           + (1. _d 0 - obcswfac)*xx_obcsw1(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcsw.F 62 CTRL_GETOBCSW 
      integer iobcs
./pkg/ctrl/ctrl_init_obcs_variables.F 106 CTRL_INIT_OBCS_VARIABLES 
      do iobcs = 1, nobcs
./pkg/ctrl/ctrl_init_obcs_variables.F 111 CTRL_INIT_OBCS_VARIABLES 
                xx_obcse0(j,k,bi,bj,iobcs) = 0. _d 0
./pkg/ctrl/ctrl_init_obcs_variables.F 112 CTRL_INIT_OBCS_VARIABLES 
                xx_obcse1(j,k,bi,bj,iobcs) = 0. _d 0
./pkg/ctrl/ctrl_init_obcs_variables.F 47 CTRL_INIT_OBCS_VARIABLES 
      integer iobcs
./pkg/ctrl/ctrl_init_obcs_variables.F 61 CTRL_INIT_OBCS_VARIABLES 
      do iobcs = 1, nobcs
./pkg/ctrl/ctrl_init_obcs_variables.F 66 CTRL_INIT_OBCS_VARIABLES 
                xx_obcsn0(i,k,bi,bj,iobcs) = 0. _d 0
./pkg/ctrl/ctrl_init_obcs_variables.F 67 CTRL_INIT_OBCS_VARIABLES 
                xx_obcsn1(i,k,bi,bj,iobcs) = 0. _d 0
./pkg/ctrl/ctrl_init_obcs_variables.F 76 CTRL_INIT_OBCS_VARIABLES 
      do iobcs = 1, nobcs
./pkg/ctrl/ctrl_init_obcs_variables.F 81 CTRL_INIT_OBCS_VARIABLES 
                xx_obcss0(i,k,bi,bj,iobcs) = 0. _d 0
./pkg/ctrl/ctrl_init_obcs_variables.F 82 CTRL_INIT_OBCS_VARIABLES 
                xx_obcss1(i,k,bi,bj,iobcs) = 0. _d 0
./pkg/ctrl/ctrl_init_obcs_variables.F 91 CTRL_INIT_OBCS_VARIABLES 
      do iobcs = 1, nobcs
./pkg/ctrl/ctrl_init_obcs_variables.F 96 CTRL_INIT_OBCS_VARIABLES 
                xx_obcsw0(j,k,bi,bj,iobcs) = 0. _d 0
./pkg/ctrl/ctrl_init_obcs_variables.F 97 CTRL_INIT_OBCS_VARIABLES 
                xx_obcsw1(j,k,bi,bj,iobcs) = 0. _d 0
./pkg/ctrl/ctrl_init_wet.F 102 CTRL_INIT_WET 
              nwetobcse(bi,bj,k,iobcs) = 0
./pkg/ctrl/ctrl_init_wet.F 209 CTRL_INIT_WET 
                        do iobcs = 1, nobcs
./pkg/ctrl/ctrl_init_wet.F 216 CTRL_INIT_WET 
     &                             *nwetobcsn(bi,bj,k,iobcs)
./pkg/ctrl/ctrl_init_wet.F 222 CTRL_INIT_WET 
     &                             *nwetobcss(bi,bj,k,iobcs)
./pkg/ctrl/ctrl_init_wet.F 228 CTRL_INIT_WET 
     &                             *nwetobcsw(bi,bj,k,iobcs)
./pkg/ctrl/ctrl_init_wet.F 234 CTRL_INIT_WET 
     &                             *nwetobcse(bi,bj,k,iobcs)
./pkg/ctrl/ctrl_init_wet.F 418 CTRL_INIT_WET 
         do iobcs = 1, nobcs
./pkg/ctrl/ctrl_init_wet.F 419 CTRL_INIT_WET 
            ntmpob(iobcs)=0
./pkg/ctrl/ctrl_init_wet.F 422 CTRL_INIT_WET 
                  ntmpob(iobcs)=ntmpob(iobcs)+nwetobcsn(bi,bj,k,iobcs)
./pkg/ctrl/ctrl_init_wet.F 425 CTRL_INIT_WET 
            CALL GLOBAL_SUM_INT( ntmpob(iobcs),  myThid )
./pkg/ctrl/ctrl_init_wet.F 426 CTRL_INIT_WET 
            nwetobcsnglo(k,iobcs)=ntmpob(iobcs)
./pkg/ctrl/ctrl_init_wet.F 434 CTRL_INIT_WET 
         do iobcs = 1, nobcs
./pkg/ctrl/ctrl_init_wet.F 435 CTRL_INIT_WET 
            ntmpob(iobcs)=0
./pkg/ctrl/ctrl_init_wet.F 438 CTRL_INIT_WET 
                  ntmpob(iobcs)=ntmpob(iobcs)+nwetobcss(bi,bj,k,iobcs)
./pkg/ctrl/ctrl_init_wet.F 43 CTRL_INIT_WET 
      integer iobcs
./pkg/ctrl/ctrl_init_wet.F 441 CTRL_INIT_WET 
            CALL GLOBAL_SUM_INT( ntmpob(iobcs),  myThid )
./pkg/ctrl/ctrl_init_wet.F 442 CTRL_INIT_WET 
            nwetobcssglo(k,iobcs)=ntmpob(iobcs)
./pkg/ctrl/ctrl_init_wet.F 450 CTRL_INIT_WET 
         do iobcs = 1, nobcs
./pkg/ctrl/ctrl_init_wet.F 451 CTRL_INIT_WET 
            ntmpob(iobcs)=0
./pkg/ctrl/ctrl_init_wet.F 454 CTRL_INIT_WET 
                  ntmpob(iobcs)=ntmpob(iobcs)+nwetobcsw(bi,bj,k,iobcs)
./pkg/ctrl/ctrl_init_wet.F 457 CTRL_INIT_WET 
            CALL GLOBAL_SUM_INT( ntmpob(iobcs),  myThid )
./pkg/ctrl/ctrl_init_wet.F 458 CTRL_INIT_WET 
            nwetobcswglo(k,iobcs)=ntmpob(iobcs)
./pkg/ctrl/ctrl_init_wet.F 466 CTRL_INIT_WET 
         do iobcs = 1, nobcs
./pkg/ctrl/ctrl_init_wet.F 467 CTRL_INIT_WET 
            ntmpob(iobcs)=0
./pkg/ctrl/ctrl_init_wet.F 470 CTRL_INIT_WET 
                  ntmpob(iobcs)=ntmpob(iobcs)+nwetobcse(bi,bj,k,iobcs)
./pkg/ctrl/ctrl_init_wet.F 473 CTRL_INIT_WET 
            CALL GLOBAL_SUM_INT( ntmpob(iobcs),  myThid )
./pkg/ctrl/ctrl_init_wet.F 474 CTRL_INIT_WET 
            nwetobcseglo(k,iobcs)=ntmpob(iobcs)
./pkg/ctrl/ctrl_init_wet.F 490 CTRL_INIT_WET 
      do iobcs = 1, nobcs
./pkg/ctrl/ctrl_init_wet.F 491 CTRL_INIT_WET 
        ntmpob(iobcs)=0
./pkg/ctrl/ctrl_init_wet.F 493 CTRL_INIT_WET 
          ntmpob(iobcs)=ntmpob(iobcs)+nwetobcsnglo(k,iobcs)
./pkg/ctrl/ctrl_init_wet.F 502 CTRL_INIT_WET 
      do iobcs = 1, nobcs
./pkg/ctrl/ctrl_init_wet.F 503 CTRL_INIT_WET 
        ntmpob(iobcs)=0
./pkg/ctrl/ctrl_init_wet.F 505 CTRL_INIT_WET 
          ntmpob(iobcs)=ntmpob(iobcs)+nwetobcssglo(k,iobcs)
./pkg/ctrl/ctrl_init_wet.F 514 CTRL_INIT_WET 
      do iobcs = 1, nobcs
./pkg/ctrl/ctrl_init_wet.F 515 CTRL_INIT_WET 
        ntmpob(iobcs)=0
./pkg/ctrl/ctrl_init_wet.F 517 CTRL_INIT_WET 
          ntmpob(iobcs)=ntmpob(iobcs)+nwetobcswglo(k,iobcs)
./pkg/ctrl/ctrl_init_wet.F 526 CTRL_INIT_WET 
      do iobcs = 1, nobcs
./pkg/ctrl/ctrl_init_wet.F 527 CTRL_INIT_WET 
        ntmpob(iobcs)=0
./pkg/ctrl/ctrl_init_wet.F 529 CTRL_INIT_WET 
          ntmpob(iobcs)=ntmpob(iobcs)+nwetobcseglo(k,iobcs)
./pkg/ctrl/ctrl_init_wet.F 91 CTRL_INIT_WET 
            do iobcs = 1,nobcs
./pkg/ctrl/ctrl_init_wet.F 93 CTRL_INIT_WET 
              nwetobcsn(bi,bj,k,iobcs) = 0
./pkg/ctrl/ctrl_init_wet.F 96 CTRL_INIT_WET 
              nwetobcss(bi,bj,k,iobcs) = 0
./pkg/ctrl/ctrl_init_wet.F 99 CTRL_INIT_WET 
              nwetobcsw(bi,bj,k,iobcs) = 0
./pkg/ctrl/ctrl_mask_set_xz.F 103 CTRL_MASK_SET_XZ 
                  if (iobcs.eq.1 .or. iobcs .eq.2 .or. iobcs.eq.3) then
./pkg/ctrl/ctrl_mask_set_xz.F 105 CTRL_MASK_SET_XZ 
                      nwetobcs(bi,bj,k,iobcs) =nwetobcs(bi,bj,k,iobcs)+1
./pkg/ctrl/ctrl_mask_set_xz.F 106 CTRL_MASK_SET_XZ 
                      maskxz(i,k,bi,bj,iobcs) = 1
./pkg/ctrl/ctrl_mask_set_xz.F 110 CTRL_MASK_SET_XZ 
                  if (iobcs .eq. 4) then
./pkg/ctrl/ctrl_mask_set_xz.F 112 CTRL_MASK_SET_XZ 
                      nwetobcs(bi,bj,k,iobcs) =nwetobcs(bi,bj,k,iobcs)+1
./pkg/ctrl/ctrl_mask_set_xz.F 113 CTRL_MASK_SET_XZ 
                      maskxz(i,k,bi,bj,iobcs) = 1
./pkg/ctrl/ctrl_mask_set_xz.F 128 CTRL_MASK_SET_XZ 
      do iobcs = 1,nobcs
./pkg/ctrl/ctrl_mask_set_xz.F 133 CTRL_MASK_SET_XZ 
                 gg(i,k,bi,bj) = maskxz(i,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_mask_set_xz.F 138 CTRL_MASK_SET_XZ 
        call ACTIVE_WRITE_XZ( fname, gg, iobcs, 0, mythid, dummy )
./pkg/ctrl/ctrl_mask_set_xz.F 50 CTRL_MASK_SET_XZ 
      integer iobcs
./pkg/ctrl/ctrl_mask_set_xz.F 83 CTRL_MASK_SET_XZ 
      do iobcs = 1,nobcs
./pkg/ctrl/ctrl_mask_set_xz.F 88 CTRL_MASK_SET_XZ 
                maskxz(i,k,bi,bj,iobcs) = 0. _d 0
./pkg/ctrl/ctrl_mask_set_xz.F 95 CTRL_MASK_SET_XZ 
      do iobcs = 1,nobcs
./pkg/ctrl/ctrl_mask_set_yz.F 104 CTRL_MASK_SET_YZ 
                  if(iobcs .eq.1 .or. iobcs .eq.2 .or. iobcs .eq.3) then
./pkg/ctrl/ctrl_mask_set_yz.F 106 CTRL_MASK_SET_YZ 
                      nwetobcs(bi,bj,k,iobcs) =nwetobcs(bi,bj,k,iobcs)+1
./pkg/ctrl/ctrl_mask_set_yz.F 107 CTRL_MASK_SET_YZ 
                      maskyz(j,k,bi,bj,iobcs) = 1
./pkg/ctrl/ctrl_mask_set_yz.F 111 CTRL_MASK_SET_YZ 
                  if (iobcs .eq. 4) then
./pkg/ctrl/ctrl_mask_set_yz.F 113 CTRL_MASK_SET_YZ 
                      nwetobcs(bi,bj,k,iobcs) =nwetobcs(bi,bj,k,iobcs)+1
./pkg/ctrl/ctrl_mask_set_yz.F 114 CTRL_MASK_SET_YZ 
                      maskyz(j,k,bi,bj,iobcs) = 1
./pkg/ctrl/ctrl_mask_set_yz.F 129 CTRL_MASK_SET_YZ 
      do iobcs = 1,nobcs
./pkg/ctrl/ctrl_mask_set_yz.F 134 CTRL_MASK_SET_YZ 
                 gg(j,k,bi,bj) = maskyz(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_mask_set_yz.F 139 CTRL_MASK_SET_YZ 
        call ACTIVE_WRITE_YZ( fname, gg, iobcs, 0, mythid, dummy)
./pkg/ctrl/ctrl_mask_set_yz.F 50 CTRL_MASK_SET_YZ 
      integer iobcs
./pkg/ctrl/ctrl_mask_set_yz.F 84 CTRL_MASK_SET_YZ 
      do iobcs = 1,nobcs
./pkg/ctrl/ctrl_mask_set_yz.F 89 CTRL_MASK_SET_YZ 
                maskyz(j,k,bi,bj,iobcs) = 0. _d 0
./pkg/ctrl/ctrl_mask_set_yz.F 96 CTRL_MASK_SET_YZ 
      do iobcs = 1,nobcs
./pkg/ctrl/ctrl_pack.F 251 CTRL_PACK 
          write(cunit) ((nWetobcsnGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs)
./pkg/ctrl/ctrl_pack.F 254 CTRL_PACK 
          write(cunit) ((nWetobcssGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs)
./pkg/ctrl/ctrl_pack.F 257 CTRL_PACK 
          write(cunit) ((nWetobcswGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs)
./pkg/ctrl/ctrl_pack.F 260 CTRL_PACK 
          write(cunit) ((nWetobcseGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs)
./pkg/ctrl/ctrl_pack.F 91 CTRL_PACK 
      integer iobcs
./pkg/ctrl/ctrl_readparms.F 50 CTRL_READPARMS 
      integer iobcs
./pkg/ctrl/ctrl_set_pack_xz.F 107 CTRL_SET_PACK_XZ 
                        do iobcs=1,nobcs
./pkg/ctrl/ctrl_set_pack_xz.F 108 CTRL_SET_PACK_XZ 
                           globmskxz(i,bi,ip,bj,jp,k,iobcs) = 0. _d 0
./pkg/ctrl/ctrl_set_pack_xz.F 164 CTRL_SET_PACK_XZ 
      do iobcs = 1, nobcs
./pkg/ctrl/ctrl_set_pack_xz.F 167 CTRL_SET_PACK_XZ 
     &        Nr, globmskxz(1,1,1,1,1,1,iobcs), iobcs, mythid)
./pkg/ctrl/ctrl_set_pack_xz.F 174 CTRL_SET_PACK_XZ 
     &        Nr, weightfldxz(1,1,1,1,1,1,iobcs), iobcs, mythid)
./pkg/ctrl/ctrl_set_pack_xz.F 189 CTRL_SET_PACK_XZ 
            iobcs= mod((irec-1)*sny+j-1,nobcs)+1
./pkg/ctrl/ctrl_set_pack_xz.F 195 CTRL_SET_PACK_XZ 
             irectrue = (irec-1)*nobcs*nr + (iobcs-1)*nr + k
./pkg/ctrl/ctrl_set_pack_xz.F 204 CTRL_SET_PACK_XZ 
                  if (globmskxz(i,bi,ip,bj,jp,k,iobcs)  .ne. 0. ) then
./pkg/ctrl/ctrl_set_pack_xz.F 215 CTRL_SET_PACK_XZ 
     &                       sqrt(weightfldxz(i,bi,ip,bj,jp,k,iobcs))
./pkg/ctrl/ctrl_set_pack_xz.F 217 CTRL_SET_PACK_XZ 
     &                       sqrt(weightfld(k,iobcs))
./pkg/ctrl/ctrl_set_pack_xz.F 223 CTRL_SET_PACK_XZ 
     &                       sqrt(weightfldxz(i,bi,ip,bj,jp,k,iobcs))
./pkg/ctrl/ctrl_set_pack_xz.F 225 CTRL_SET_PACK_XZ 
     &                       sqrt(weightfld(k,iobcs))
./pkg/ctrl/ctrl_set_pack_xz.F 261 CTRL_SET_PACK_XZ 
         iobcs= mod(irec-1,nobcs)+1
./pkg/ctrl/ctrl_set_pack_xz.F 270 CTRL_SET_PACK_XZ 
            irectrue = (irec-1)*nobcs*nr + (iobcs-1)*nr + k
./pkg/ctrl/ctrl_set_pack_xz.F 277 CTRL_SET_PACK_XZ 
                 if (globmskxz(i,bi,ip,bj,jp,k,iobcs)  .ne. 0. ) then
./pkg/ctrl/ctrl_set_pack_xz.F 288 CTRL_SET_PACK_XZ 
     &                       sqrt(weightfldxz(i,bi,ip,bj,jp,k,iobcs))
./pkg/ctrl/ctrl_set_pack_xz.F 290 CTRL_SET_PACK_XZ 
     &                       sqrt(weightfld(k,iobcs))
./pkg/ctrl/ctrl_set_pack_xz.F 296 CTRL_SET_PACK_XZ 
     &                       sqrt(weightfldxz(i,bi,ip,bj,jp,k,iobcs))
./pkg/ctrl/ctrl_set_pack_xz.F 298 CTRL_SET_PACK_XZ 
     &                       sqrt(weightfld(k,iobcs))
./pkg/ctrl/ctrl_set_pack_xz.F 58 CTRL_SET_PACK_XZ 
      integer irec,iobcs,nrec_nl
./pkg/ctrl/ctrl_set_pack_yz.F 107 CTRL_SET_PACK_YZ 
                        do iobcs=1,nobcs
./pkg/ctrl/ctrl_set_pack_yz.F 108 CTRL_SET_PACK_YZ 
                           globmskyz(bi,ip,j,bj,jp,k,iobcs) = 0. _d 0
./pkg/ctrl/ctrl_set_pack_yz.F 164 CTRL_SET_PACK_YZ 
      do iobcs=1,nobcs
./pkg/ctrl/ctrl_set_pack_yz.F 167 CTRL_SET_PACK_YZ 
     &        Nr, globmskyz(1,1,1,1,1,1,iobcs), iobcs,mythid)
./pkg/ctrl/ctrl_set_pack_yz.F 174 CTRL_SET_PACK_YZ 
     &       Nr, weightfldyz(1,1,1,1,1,1,iobcs), iobcs, mythid)
./pkg/ctrl/ctrl_set_pack_yz.F 192 CTRL_SET_PACK_YZ 
            iobcs= mod((irec-1)*snx+i-1,nobcs)+1
./pkg/ctrl/ctrl_set_pack_yz.F 198 CTRL_SET_PACK_YZ 
             irectrue = (irec-1)*nobcs*nr + (iobcs-1)*nr + k
./pkg/ctrl/ctrl_set_pack_yz.F 208 CTRL_SET_PACK_YZ 
                  if (globmskyz(bi,ip,j,bj,jp,k,iobcs)  .ne. 0. ) then
./pkg/ctrl/ctrl_set_pack_yz.F 219 CTRL_SET_PACK_YZ 
     &                       sqrt(weightfldyz(bi,ip,j,bj,jp,k,iobcs))
./pkg/ctrl/ctrl_set_pack_yz.F 221 CTRL_SET_PACK_YZ 
     &                       sqrt(weightfld(k,iobcs))
./pkg/ctrl/ctrl_set_pack_yz.F 227 CTRL_SET_PACK_YZ 
     &                       sqrt(weightfldyz(bi,ip,j,bj,jp,k,iobcs))
./pkg/ctrl/ctrl_set_pack_yz.F 229 CTRL_SET_PACK_YZ 
     &                       sqrt(weightfld(k,iobcs))
./pkg/ctrl/ctrl_set_pack_yz.F 265 CTRL_SET_PACK_YZ 
         iobcs= mod(irec-1,nobcs)+1
./pkg/ctrl/ctrl_set_pack_yz.F 274 CTRL_SET_PACK_YZ 
            irectrue = (irec-1)*nobcs*nr + (iobcs-1)*nr + k
./pkg/ctrl/ctrl_set_pack_yz.F 281 CTRL_SET_PACK_YZ 
                 if (globmskyz(bi,ip,j,bj,jp,k,iobcs)  .ne. 0. ) then
./pkg/ctrl/ctrl_set_pack_yz.F 292 CTRL_SET_PACK_YZ 
     &                       sqrt(weightfldyz(bi,ip,j,bj,jp,k,iobcs))
./pkg/ctrl/ctrl_set_pack_yz.F 294 CTRL_SET_PACK_YZ 
     &                       sqrt(weightfld(k,iobcs))
./pkg/ctrl/ctrl_set_pack_yz.F 300 CTRL_SET_PACK_YZ 
     &                       sqrt(weightfldyz(bi,ip,j,bj,jp,k,iobcs))
./pkg/ctrl/ctrl_set_pack_yz.F 302 CTRL_SET_PACK_YZ 
     &                       sqrt(weightfld(k,iobcs))
./pkg/ctrl/ctrl_set_pack_yz.F 58 CTRL_SET_PACK_YZ 
      integer irec,iobcs,nrec_nl
./pkg/ctrl/ctrl_set_unpack_xz.F 112 CTRL_SET_UNPACK_XZ 
                        do iobcs=1,nobcs
./pkg/ctrl/ctrl_set_unpack_xz.F 113 CTRL_SET_UNPACK_XZ 
                           globmskxz(i,bi,ip,bj,jp,k,iobcs) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_xz.F 169 CTRL_SET_UNPACK_XZ 
      do iobcs=1,nobcs
./pkg/ctrl/ctrl_set_unpack_xz.F 172 CTRL_SET_UNPACK_XZ 
     &        Nr, globmskxz(1,1,1,1,1,1,iobcs), iobcs,mythid)
./pkg/ctrl/ctrl_set_unpack_xz.F 179 CTRL_SET_UNPACK_XZ 
     &        Nr, weightfldxz(1,1,1,1,1,1,iobcs), iobcs, mythid)
./pkg/ctrl/ctrl_set_unpack_xz.F 193 CTRL_SET_UNPACK_XZ 
            iobcs= mod((irec-1)*sny+j-1,nobcs)+1
./pkg/ctrl/ctrl_set_unpack_xz.F 205 CTRL_SET_UNPACK_XZ 
               irectrue = (irec-1)*nobcs*nr + (iobcs-1)*nr + k
./pkg/ctrl/ctrl_set_unpack_xz.F 206 CTRL_SET_UNPACK_XZ 
               cbuffindex = nwetglobal(k,iobcs)
./pkg/ctrl/ctrl_set_unpack_xz.F 231 CTRL_SET_UNPACK_XZ 
                    if ( globmskxz(i,bi,ip,bj,jp,k,iobcs) .ne. 0. ) then
./pkg/ctrl/ctrl_set_unpack_xz.F 243 CTRL_SET_UNPACK_XZ 
     &                      sqrt(weightfldxz(i,bi,ip,bj,jp,k,iobcs))
./pkg/ctrl/ctrl_set_unpack_xz.F 245 CTRL_SET_UNPACK_XZ 
     &                      sqrt(weightfld(k,iobcs))
./pkg/ctrl/ctrl_set_unpack_xz.F 280 CTRL_SET_UNPACK_XZ 
         iobcs= mod(irec-1,nobcs)+1
./pkg/ctrl/ctrl_set_unpack_xz.F 292 CTRL_SET_UNPACK_XZ 
            irectrue = (irec-1)*nobcs*nr + (iobcs-1)*nr + k
./pkg/ctrl/ctrl_set_unpack_xz.F 293 CTRL_SET_UNPACK_XZ 
            cbuffindex = nwetglobal(k,iobcs)
./pkg/ctrl/ctrl_set_unpack_xz.F 316 CTRL_SET_UNPACK_XZ 
                  if ( globmskxz(i,bi,ip,bj,jp,k,iobcs) .ne. 0. ) then
./pkg/ctrl/ctrl_set_unpack_xz.F 326 CTRL_SET_UNPACK_XZ 
     &                    sqrt(weightfldxz(i,bi,ip,bj,jp,k,iobcs))
./pkg/ctrl/ctrl_set_unpack_xz.F 328 CTRL_SET_UNPACK_XZ 
     &                    sqrt(weightfld(k,iobcs))
./pkg/ctrl/ctrl_set_unpack_xz.F 59 CTRL_SET_UNPACK_XZ 
      integer irec,iobcs,nrec_nl
./pkg/ctrl/ctrl_set_unpack_yz.F 112 CTRL_SET_UNPACK_YZ 
                        do iobcs=1,nobcs
./pkg/ctrl/ctrl_set_unpack_yz.F 113 CTRL_SET_UNPACK_YZ 
                           globmskyz(bi,ip,j,bj,jp,k,iobcs) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_yz.F 169 CTRL_SET_UNPACK_YZ 
      do iobcs=1,nobcs
./pkg/ctrl/ctrl_set_unpack_yz.F 172 CTRL_SET_UNPACK_YZ 
     &        Nr, globmskyz(1,1,1,1,1,1,iobcs), iobcs, mythid)
./pkg/ctrl/ctrl_set_unpack_yz.F 179 CTRL_SET_UNPACK_YZ 
     &       Nr, weightfldyz(1,1,1,1,1,1,iobcs), iobcs, mythid)
./pkg/ctrl/ctrl_set_unpack_yz.F 193 CTRL_SET_UNPACK_YZ 
            iobcs= mod((irec-1)*snx+i-1,nobcs)+1
./pkg/ctrl/ctrl_set_unpack_yz.F 205 CTRL_SET_UNPACK_YZ 
               irectrue = (irec-1)*nobcs*nr + (iobcs-1)*nr + k
./pkg/ctrl/ctrl_set_unpack_yz.F 206 CTRL_SET_UNPACK_YZ 
               cbuffindex = nwetglobal(k,iobcs)
./pkg/ctrl/ctrl_set_unpack_yz.F 231 CTRL_SET_UNPACK_YZ 
                    if ( globmskyz(bi,ip,j,bj,jp,k,iobcs) .ne. 0. ) then
./pkg/ctrl/ctrl_set_unpack_yz.F 243 CTRL_SET_UNPACK_YZ 
     &                      sqrt(weightfldyz(bi,ip,j,bj,jp,k,iobcs))
./pkg/ctrl/ctrl_set_unpack_yz.F 245 CTRL_SET_UNPACK_YZ 
     &                      sqrt(weightfld(k,iobcs))
./pkg/ctrl/ctrl_set_unpack_yz.F 280 CTRL_SET_UNPACK_YZ 
         iobcs= mod(irec-1,nobcs)+1
./pkg/ctrl/ctrl_set_unpack_yz.F 292 CTRL_SET_UNPACK_YZ 
            irectrue = (irec-1)*nobcs*nr + (iobcs-1)*nr + k
./pkg/ctrl/ctrl_set_unpack_yz.F 293 CTRL_SET_UNPACK_YZ 
            cbuffindex = nwetglobal(k,iobcs)
./pkg/ctrl/ctrl_set_unpack_yz.F 315 CTRL_SET_UNPACK_YZ 
                  if ( globmskyz(bi,ip,j,bj,jp,k,iobcs) .ne. 0. ) then
./pkg/ctrl/ctrl_set_unpack_yz.F 325 CTRL_SET_UNPACK_YZ 
     &                    sqrt(weightfldyz(bi,ip,j,bj,jp,k,iobcs))
./pkg/ctrl/ctrl_set_unpack_yz.F 327 CTRL_SET_UNPACK_YZ 
     &                    sqrt(weightfld(k,iobcs))
./pkg/ctrl/ctrl_set_unpack_yz.F 59 CTRL_SET_UNPACK_YZ 
      integer irec,iobcs,nrec_nl
./pkg/ctrl/ctrl_unpack.F 123 CTRL_UNPACK 
      integer iobcs
./pkg/ctrl/ctrl_unpack.F 252 CTRL_UNPACK 
          read(cunit) ((filenWetobcsnGlo(k,iobcs),
./pkg/ctrl/ctrl_unpack.F 253 CTRL_UNPACK 
     &         k=1,nr), iobcs= 1,nobcs)
./pkg/ctrl/ctrl_unpack.F 256 CTRL_UNPACK 
          read(cunit) ((filenWetobcssGlo(k,iobcs),
./pkg/ctrl/ctrl_unpack.F 257 CTRL_UNPACK 
     &         k=1,nr), iobcs= 1,nobcs)
./pkg/ctrl/ctrl_unpack.F 260 CTRL_UNPACK 
          read(cunit) ((filenWetobcswGlo(k,iobcs),
./pkg/ctrl/ctrl_unpack.F 261 CTRL_UNPACK 
     &         k=1,nr), iobcs= 1,nobcs)
./pkg/ctrl/ctrl_unpack.F 264 CTRL_UNPACK 
          read(cunit) ((filenWetobcseGlo(k,iobcs),
./pkg/ctrl/ctrl_unpack.F 265 CTRL_UNPACK 
     &         k=1,nr), iobcs= 1,nobcs)
./pkg/ctrl/ctrl_unpack.F 310 CTRL_UNPACK 
       do iobcs = 1, nobcs
./pkg/ctrl/ctrl_unpack.F 312 CTRL_UNPACK 
           if (filenWetobcsnGlo(k,iobcs) .NE.
./pkg/ctrl/ctrl_unpack.F 313 CTRL_UNPACK 
     &           nWetobcsnGlo(k,iobcs)) then
./pkg/ctrl/ctrl_unpack.F 321 CTRL_UNPACK 
       do iobcs = 1, nobcs
./pkg/ctrl/ctrl_unpack.F 323 CTRL_UNPACK 
           if (filenWetobcssGlo(k,iobcs) .NE.
./pkg/ctrl/ctrl_unpack.F 324 CTRL_UNPACK 
     &           nWetobcssGlo(k,iobcs)) then
./pkg/ctrl/ctrl_unpack.F 332 CTRL_UNPACK 
       do iobcs = 1, nobcs
./pkg/ctrl/ctrl_unpack.F 334 CTRL_UNPACK 
           if (filenWetobcswGlo(k,iobcs) .NE.
./pkg/ctrl/ctrl_unpack.F 335 CTRL_UNPACK 
     &           nWetobcswGlo(k,iobcs)) then
./pkg/ctrl/ctrl_unpack.F 343 CTRL_UNPACK 
       do iobcs = 1, nobcs
./pkg/ctrl/ctrl_unpack.F 345 CTRL_UNPACK 
           if (filenWetobcseGlo(k,iobcs) .NE.
./pkg/ctrl/ctrl_unpack.F 346 CTRL_UNPACK 
     &           nWetobcseGlo(k,iobcs)) then
./pkg/ecco/cost_obcse.F 164 COST_OBCSE 
          iobcs = irec - igg*nobcs
./pkg/ecco/cost_obcse.F 167 COST_OBCSE 
     &                         iobcs,
./pkg/ecco/cost_obcse.F 184 COST_OBCSE 
                  fctile = fctile + wobcse(k,iobcs)
./pkg/ecco/cost_obcse.F 188 COST_OBCSE 
                  if (wobcse(k,iobcs)*maskyz(j,k,bi,bj).ne.0.)
./pkg/ecco/cost_obcse.F 85 COST_OBCSE 
      integer iobcs
./pkg/ecco/cost_obcsn.F 162 COST_OBCSN 
          iobcs = irec - igg*nobcs
./pkg/ecco/cost_obcsn.F 165 COST_OBCSN 
     &                         iobcs,
./pkg/ecco/cost_obcsn.F 182 COST_OBCSN 
                  fctile = fctile + wobcsn(k,iobcs)
./pkg/ecco/cost_obcsn.F 186 COST_OBCSN 
                 if (wobcsn(k,iobcs)*maskxz(i,k,bi,bj).ne.0.)
./pkg/ecco/cost_obcsn.F 84 COST_OBCSN 
      integer iobcs
./pkg/ecco/cost_obcss.F 162 COST_OBCSS 
          iobcs = irec - igg*nobcs
./pkg/ecco/cost_obcss.F 166 COST_OBCSS 
     &                         iobcs,
./pkg/ecco/cost_obcss.F 184 COST_OBCSS 
                  fctile = fctile + wobcss(k,iobcs)
./pkg/ecco/cost_obcss.F 188 COST_OBCSS 
                  if (wobcss(k,iobcs)*maskxz(i,k,bi,bj).ne.0.)
./pkg/ecco/cost_obcss.F 84 COST_OBCSS 
      integer iobcs
./pkg/ecco/cost_obcsvol.F 190 COST_OBCSVOL 
        iobcs = irec - igg*nobcs
./pkg/ecco/cost_obcsvol.F 195 COST_OBCSVOL 
        if (iobcs.eq.4) then
./pkg/ecco/cost_obcsvol.F 238 COST_OBCSVOL 
        if (iobcs.eq.4) then
./pkg/ecco/cost_obcsvol.F 281 COST_OBCSVOL 
        if (iobcs.eq.3) then
./pkg/ecco/cost_obcsvol.F 324 COST_OBCSVOL 
        if (iobcs.eq.3) then
./pkg/ecco/cost_obcsvol.F 71 COST_OBCSVOL 
      integer iobcs
./pkg/ecco/cost_obcsw.F 162 COST_OBCSW 
          iobcs = irec - igg*nobcs
./pkg/ecco/cost_obcsw.F 165 COST_OBCSW 
     &                         iobcs,
./pkg/ecco/cost_obcsw.F 182 COST_OBCSW 
                  fctile = fctile + wobcsw(k,iobcs)
./pkg/ecco/cost_obcsw.F 186 COST_OBCSW 
                  if (wobcsw(k,iobcs)*maskyz(j,k,bi,bj).ne.0.)
./pkg/ecco/cost_obcsw.F 84 COST_OBCSW 
      integer iobcs