Symbol Description Uses
iobcs 502


File Line number Procedure Code
./pkg/grdchk/grdchk_get_obcs_mask.F 105 GRDCHK_GET_OBCS_MASK 
      do iobcs = 1,nobcs
./pkg/grdchk/grdchk_get_obcs_mask.F 106 GRDCHK_GET_OBCS_MASK 
         call ACTIVE_READ_XZ(  fname, tmpfldxz, iobcs,
./pkg/grdchk/grdchk_get_obcs_mask.F 113 GRDCHK_GET_OBCS_MASK 
                     grdchk_maskxz(i,k,bi,bj,iobcs) =
./pkg/grdchk/grdchk_get_obcs_mask.F 128 GRDCHK_GET_OBCS_MASK 
      do iobcs = 1,nobcs
./pkg/grdchk/grdchk_get_obcs_mask.F 129 GRDCHK_GET_OBCS_MASK 
         call ACTIVE_READ_YZ(  fname, tmpfldyz, iobcs,
./pkg/grdchk/grdchk_get_obcs_mask.F 136 GRDCHK_GET_OBCS_MASK 
                     grdchk_maskyz(j,k,bi,bj,iobcs) =
./pkg/grdchk/grdchk_get_obcs_mask.F 151 GRDCHK_GET_OBCS_MASK 
      do iobcs = 1,nobcs
./pkg/grdchk/grdchk_get_obcs_mask.F 152 GRDCHK_GET_OBCS_MASK 
         call ACTIVE_READ_YZ(  fname, tmpfldyz, iobcs,
./pkg/grdchk/grdchk_get_obcs_mask.F 159 GRDCHK_GET_OBCS_MASK 
                     grdchk_maskyz(j,k,bi,bj,iobcs) =
./pkg/grdchk/grdchk_get_obcs_mask.F 42 GRDCHK_GET_OBCS_MASK 
      integer irec,iobcs
./pkg/grdchk/grdchk_get_obcs_mask.F 82 GRDCHK_GET_OBCS_MASK 
      do iobcs = 1,nobcs
./pkg/grdchk/grdchk_get_obcs_mask.F 83 GRDCHK_GET_OBCS_MASK 
         call ACTIVE_READ_XZ(  fname, tmpfldxz, iobcs,
./pkg/grdchk/grdchk_get_obcs_mask.F 90 GRDCHK_GET_OBCS_MASK 
                     grdchk_maskxz(i,k,bi,bj,iobcs) =
./pkg/grdchk/grdchk_get_position.F 126 GRDCHK_GET_POSITION 
         iobcs = MOD((irec-1),nobcsmax) + 1
./pkg/grdchk/grdchk_get_position.F 169 GRDCHK_GET_POSITION 
                        if (grdchk_maskxz(i,k,bi,bj,iobcs) .gt. 0.
./pkg/grdchk/grdchk_get_position.F 173 GRDCHK_GET_POSITION 
                        wetlocal = grdchk_maskxz(i,k,bi,bj,iobcs)
./pkg/grdchk/grdchk_get_position.F 177 GRDCHK_GET_POSITION 
                        if (grdchk_maskxz(i,k,bi,bj,iobcs) .gt. 0.
./pkg/grdchk/grdchk_get_position.F 181 GRDCHK_GET_POSITION 
                        wetlocal = grdchk_maskxz(i,k,bi,bj,iobcs)
./pkg/grdchk/grdchk_get_position.F 185 GRDCHK_GET_POSITION 
                        if ( grdchk_maskyz(j,k,bi,bj,iobcs) .gt. 0.
./pkg/grdchk/grdchk_get_position.F 189 GRDCHK_GET_POSITION 
                        wetlocal = grdchk_maskyz(j,k,bi,bj,iobcs)
./pkg/grdchk/grdchk_get_position.F 193 GRDCHK_GET_POSITION 
                        if (grdchk_maskyz(j,k,bi,bj,iobcs) .gt. 0.
./pkg/grdchk/grdchk_get_position.F 197 GRDCHK_GET_POSITION 
                        wetlocal = grdchk_maskyz(j,k,bi,bj,iobcs)
./pkg/grdchk/grdchk_get_position.F 207 GRDCHK_GET_POSITION 
     &                 iobcs .EQ. obcspos .AND.
./pkg/grdchk/grdchk_get_position.F 242 GRDCHK_GET_POSITION 
                itest     = itest + nwettile(bi,bj,k,iobcs)
./pkg/grdchk/grdchk_get_position.F 60 GRDCHK_GET_POSITION 
      integer iobcs
./pkg/grdchk/grdchk_init.F 125 GRDCHK_INIT 
                  do iobcs = 1, nobcs
./pkg/grdchk/grdchk_init.F 128 GRDCHK_INIT 
                        nwettile(bi,bj,k,iobcs) =
./pkg/grdchk/grdchk_init.F 129 GRDCHK_INIT 
     &                       nwetobcsn(bi,bj,k,iobcs)
./pkg/grdchk/grdchk_init.F 133 GRDCHK_INIT 
                        nwettile(bi,bj,k,iobcs) =
./pkg/grdchk/grdchk_init.F 134 GRDCHK_INIT 
     &                       nwetobcss(bi,bj,k,iobcs)
./pkg/grdchk/grdchk_init.F 138 GRDCHK_INIT 
                        nwettile(bi,bj,k,iobcs) =
./pkg/grdchk/grdchk_init.F 139 GRDCHK_INIT 
     &                       nwetobcsw(bi,bj,k,iobcs)
./pkg/grdchk/grdchk_init.F 143 GRDCHK_INIT 
                        nwettile(bi,bj,k,iobcs) =
./pkg/grdchk/grdchk_init.F 144 GRDCHK_INIT 
     &                       nwetobcse(bi,bj,k,iobcs)
./pkg/grdchk/grdchk_init.F 169 GRDCHK_INIT 
               do iobcs = 1, nobcs
./pkg/grdchk/grdchk_init.F 170 GRDCHK_INIT 
                  ncvarcomp     = ncvarcomp + nwettile(bi,bj,k,iobcs)
./pkg/grdchk/grdchk_init.F 50 GRDCHK_INIT 
      integer itest,iobcs
./pkg/grdchk/grdchk_init.F 70 GRDCHK_INIT 
               do iobcs = 1, nobcs
./pkg/grdchk/grdchk_init.F 71 GRDCHK_INIT 
                  nwettile(bi,bj,k,iobcs) = 0
./pkg/grdchk/grdchk_loc.F 154 GRDCHK_LOC 
         iobcs = MOD((irec-1),nobcsmax) + 1
./pkg/grdchk/grdchk_loc.F 160 GRDCHK_LOC 
             icglo   = icglo + nwettile(bi,bj,k,iobcs)
./pkg/grdchk/grdchk_loc.F 161 GRDCHK_LOC 
             icglom1 = icglo - nwettile(bi,bj,k,iobcs)
./pkg/grdchk/grdchk_loc.F 220 GRDCHK_LOC 
                        if ( grdchk_maskxz(i,k,bi,bj,iobcs) .gt. 0.
./pkg/grdchk/grdchk_loc.F 229 GRDCHK_LOC 
                        if ( grdchk_maskxz(i,k,bi,bj,iobcs) .gt. 0.
./pkg/grdchk/grdchk_loc.F 238 GRDCHK_LOC 
                        if ( grdchk_maskyz(j,k,bi,bj,iobcs) .gt. 0.
./pkg/grdchk/grdchk_loc.F 247 GRDCHK_LOC 
                        if ( grdchk_maskyz(j,k,bi,bj,iobcs) .gt. 0.
./pkg/grdchk/grdchk_loc.F 264 GRDCHK_LOC 
                     obcspos  = iobcs
./pkg/grdchk/grdchk_loc.F 268 GRDCHK_LOC 
                     print *, 'ph-grd -->hit<-- ', itmp,jtmp,k,iobcs
./pkg/grdchk/grdchk_loc.F 281 GRDCHK_LOC 
                 icomptest = icomptest + nwettile(bi,bj,k,iobcs)
./pkg/grdchk/grdchk_loc.F 76 GRDCHK_LOC 
      integer iobcs
./optim/optim_readdata.F 164 OPTIM_READDATA 
      read( funit ) ((nWetobcsnGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs)
./optim/optim_readdata.F 167 OPTIM_READDATA 
      read( funit ) ((nWetobcssGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs)
./optim/optim_readdata.F 170 OPTIM_READDATA 
      read( funit ) ((nWetobcswGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs)
./optim/optim_readdata.F 173 OPTIM_READDATA 
      read( funit ) ((nWetobcseGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs)
./optim/optim_readdata.F 209 OPTIM_READDATA 
         do iobcs=1,nobcs
./optim/optim_readdata.F 210 OPTIM_READDATA 
          print *, 'pathei: nWetobcsnGlo (iobcs=', iobcs,')',
./optim/optim_readdata.F 211 OPTIM_READDATA 
     &         (nWetobcsnGlo(k,iobcs), k=1,nr)
./optim/optim_readdata.F 215 OPTIM_READDATA 
         do iobcs=1,nobcs
./optim/optim_readdata.F 216 OPTIM_READDATA 
          print *, 'pathei: nWetobcssGlo (iobcs=', iobcs,')',
./optim/optim_readdata.F 217 OPTIM_READDATA 
     &         (nWetobcssGlo(k,iobcs), k=1,nr)
./optim/optim_readdata.F 221 OPTIM_READDATA 
         do iobcs=1,nobcs
./optim/optim_readdata.F 222 OPTIM_READDATA 
          print *, 'pathei: nWetobcswGlo (iobcs=', iobcs,')',
./optim/optim_readdata.F 223 OPTIM_READDATA 
     &         (nWetobcswGlo(k,iobcs), k=1,nr)
./optim/optim_readdata.F 227 OPTIM_READDATA 
         do iobcs=1,nobcs
./optim/optim_readdata.F 228 OPTIM_READDATA 
          print *, 'pathei: nWetobcseGlo (iobcs=', iobcs,')',
./optim/optim_readdata.F 229 OPTIM_READDATA 
     &         (nWetobcseGlo(k,iobcs), k=1,nr)
./optim/optim_readdata.F 313 OPTIM_READDATA 
              iobcs= icvrec - igg*nobcs
./optim/optim_readdata.F 316 OPTIM_READDATA 
               cbuffindex = nWetobcsnGlo(k,iobcs)
./optim/optim_readdata.F 321 OPTIM_READDATA 
               cbuffindex = nWetobcssGlo(k,iobcs)
./optim/optim_readdata.F 326 OPTIM_READDATA 
               cbuffindex = nWetobcswGlo(k,iobcs)
./optim/optim_readdata.F 331 OPTIM_READDATA 
               cbuffindex = nWetobcseGlo(k,iobcs)
./optim/optim_readdata.F 94 OPTIM_READDATA 
      integer iobcs
./optim/optim_writedata.F 161 OPTIM_WRITEDATA 
          write(funit) ((nWetobcsnGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs)
./optim/optim_writedata.F 164 OPTIM_WRITEDATA 
          write(funit) ((nWetobcssGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs)
./optim/optim_writedata.F 167 OPTIM_WRITEDATA 
          write(funit) ((nWetobcswGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs)
./optim/optim_writedata.F 170 OPTIM_WRITEDATA 
          write(funit) ((nWetobcseGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs)
./optim/optim_writedata.F 211 OPTIM_WRITEDATA 
                          iobcs= icvrec - igg*nobcs
./optim/optim_writedata.F 214 OPTIM_WRITEDATA 
                             cbuffindex = nWetobcsnGlo(k,iobcs)
./optim/optim_writedata.F 219 OPTIM_WRITEDATA 
                             cbuffindex = nWetobcssGlo(k,iobcs)
./optim/optim_writedata.F 224 OPTIM_WRITEDATA 
                             cbuffindex = nWetobcswGlo(k,iobcs)
./optim/optim_writedata.F 229 OPTIM_WRITEDATA 
                             cbuffindex = nWetobcseGlo(k,iobcs)
./optim/optim_writedata.F 70 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 119 CTRL_GETOBCSE 
      do iobcs = 1,nobcs
./pkg/ctrl/ctrl_getobcse.F 123 CTRL_GETOBCSE 
     &                       (obcsecount0-1)*nobcs+iobcs,
./pkg/ctrl/ctrl_getobcse.F 130 CTRL_GETOBCSE 
          if (iobcs .gt. 2) then
./pkg/ctrl/ctrl_getobcse.F 137 CTRL_GETOBCSE 
              if (iobcs .eq. 3) then
./pkg/ctrl/ctrl_getobcse.F 157 CTRL_GETOBCSE 
              if (iobcs .eq. 3) then
./pkg/ctrl/ctrl_getobcse.F 170 CTRL_GETOBCSE 
            xx_obcse1(j,k,bi,bj,iobcs)  = tmpfldyz (j,k,bi,bj)
./pkg/ctrl/ctrl_getobcse.F 184 CTRL_GETOBCSE 
            xx_obcse0(j,k,bi,bj,iobcs) = xx_obcse1(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcse.F 192 CTRL_GETOBCSE 
     &                       (obcsecount1-1)*nobcs+iobcs,
./pkg/ctrl/ctrl_getobcse.F 199 CTRL_GETOBCSE 
          if (iobcs .gt. 2) then
./pkg/ctrl/ctrl_getobcse.F 206 CTRL_GETOBCSE 
              if (iobcs .eq. 3) then
./pkg/ctrl/ctrl_getobcse.F 226 CTRL_GETOBCSE 
              if (iobcs .eq. 3) then
./pkg/ctrl/ctrl_getobcse.F 239 CTRL_GETOBCSE 
            xx_obcse1 (j,k,bi,bj,iobcs) = tmpfldyz (j,k,bi,bj)
./pkg/ctrl/ctrl_getobcse.F 255 CTRL_GETOBCSE 
           if (iobcs .EQ. 1) then
./pkg/ctrl/ctrl_getobcse.F 257 CTRL_GETOBCSE 
     &           + obcsefac            *xx_obcse0(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcse.F 258 CTRL_GETOBCSE 
     &           + (1. _d 0 - obcsefac)*xx_obcse1(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcse.F 261 CTRL_GETOBCSE 
           else if (iobcs .EQ. 2) then
./pkg/ctrl/ctrl_getobcse.F 263 CTRL_GETOBCSE 
     &           + obcsefac            *xx_obcse0(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcse.F 264 CTRL_GETOBCSE 
     &           + (1. _d 0 - obcsefac)*xx_obcse1(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcse.F 267 CTRL_GETOBCSE 
           else if (iobcs .EQ. 3) then
./pkg/ctrl/ctrl_getobcse.F 269 CTRL_GETOBCSE 
     &           + obcsefac            *xx_obcse0(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcse.F 270 CTRL_GETOBCSE 
     &           + (1. _d 0 - obcsefac)*xx_obcse1(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcse.F 273 CTRL_GETOBCSE 
           else if (iobcs .EQ. 4) then
./pkg/ctrl/ctrl_getobcse.F 275 CTRL_GETOBCSE 
     &           + obcsefac            *xx_obcse0(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcse.F 276 CTRL_GETOBCSE 
     &           + (1. _d 0 - obcsefac)*xx_obcse1(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcse.F 60 CTRL_GETOBCSE 
      integer iobcs
./pkg/ctrl/ctrl_getobcsn.F 125 CTRL_GETOBCSN 
      do iobcs = 1,nobcs
./pkg/ctrl/ctrl_getobcsn.F 128 CTRL_GETOBCSN 
     &                       (obcsncount0-1)*nobcs+iobcs,
./pkg/ctrl/ctrl_getobcsn.F 135 CTRL_GETOBCSN 
          if (iobcs .gt. 2) then
./pkg/ctrl/ctrl_getobcsn.F 142 CTRL_GETOBCSN 
             if (iobcs .eq. 3) then
./pkg/ctrl/ctrl_getobcsn.F 162 CTRL_GETOBCSN 
             if (iobcs .eq. 3) then
./pkg/ctrl/ctrl_getobcsn.F 175 CTRL_GETOBCSN 
            xx_obcsn1(i,k,bi,bj,iobcs)  = tmpfldxz (i,k,bi,bj)
./pkg/ctrl/ctrl_getobcsn.F 189 CTRL_GETOBCSN 
            xx_obcsn0(i,k,bi,bj,iobcs) = xx_obcsn1(i,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcsn.F 197 CTRL_GETOBCSN 
     &                       (obcsncount1-1)*nobcs+iobcs,
./pkg/ctrl/ctrl_getobcsn.F 204 CTRL_GETOBCSN 
          if (iobcs .gt. 2) then
./pkg/ctrl/ctrl_getobcsn.F 211 CTRL_GETOBCSN 
             if (iobcs .eq. 3) then
./pkg/ctrl/ctrl_getobcsn.F 231 CTRL_GETOBCSN 
             if (iobcs .eq. 3) then
./pkg/ctrl/ctrl_getobcsn.F 244 CTRL_GETOBCSN 
            xx_obcsn1 (i,k,bi,bj,iobcs) = tmpfldxz (i,k,bi,bj)
./pkg/ctrl/ctrl_getobcsn.F 261 CTRL_GETOBCSN 
           if (iobcs .EQ. 1) then
./pkg/ctrl/ctrl_getobcsn.F 263 CTRL_GETOBCSN 
     &           + obcsnfac            *xx_obcsn0(i,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcsn.F 264 CTRL_GETOBCSN 
     &           + (1. _d 0 - obcsnfac)*xx_obcsn1(i,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcsn.F 267 CTRL_GETOBCSN 
           else if (iobcs .EQ. 2) then
./pkg/ctrl/ctrl_getobcsn.F 269 CTRL_GETOBCSN 
     &           + obcsnfac            *xx_obcsn0(i,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcsn.F 270 CTRL_GETOBCSN 
     &           + (1. _d 0 - obcsnfac)*xx_obcsn1(i,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcsn.F 273 CTRL_GETOBCSN 
           else if (iobcs .EQ. 4) then
./pkg/ctrl/ctrl_getobcsn.F 275 CTRL_GETOBCSN 
     &           + obcsnfac            *xx_obcsn0(i,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcsn.F 276 CTRL_GETOBCSN 
     &           + (1. _d 0 - obcsnfac)*xx_obcsn1(i,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcsn.F 279 CTRL_GETOBCSN 
           else if (iobcs .EQ. 3) then
./pkg/ctrl/ctrl_getobcsn.F 281 CTRL_GETOBCSN 
     &           + obcsnfac            *xx_obcsn0(i,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcsn.F 282 CTRL_GETOBCSN 
     &           + (1. _d 0 - obcsnfac)*xx_obcsn1(i,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcsn.F 61 CTRL_GETOBCSN 
      integer iobcs
./pkg/ctrl/ctrl_getobcss.F 121 CTRL_GETOBCSS 
      do iobcs = 1,nobcs
./pkg/ctrl/ctrl_getobcss.F 124 CTRL_GETOBCSS 
     &                       (obcsscount0-1)*nobcs+iobcs,
./pkg/ctrl/ctrl_getobcss.F 131 CTRL_GETOBCSS 
          if (iobcs .gt. 2) then
./pkg/ctrl/ctrl_getobcss.F 138 CTRL_GETOBCSS 
             if (iobcs .eq. 3) then
./pkg/ctrl/ctrl_getobcss.F 158 CTRL_GETOBCSS 
             if (iobcs .eq. 3) then
./pkg/ctrl/ctrl_getobcss.F 171 CTRL_GETOBCSS 
            xx_obcss1(i,k,bi,bj,iobcs)  = tmpfldxz (i,k,bi,bj)
./pkg/ctrl/ctrl_getobcss.F 185 CTRL_GETOBCSS 
            xx_obcss0(i,k,bi,bj,iobcs) = xx_obcss1(i,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcss.F 193 CTRL_GETOBCSS 
     &                       (obcsscount1-1)*nobcs+iobcs,
./pkg/ctrl/ctrl_getobcss.F 200 CTRL_GETOBCSS 
          if (iobcs .gt. 2) then
./pkg/ctrl/ctrl_getobcss.F 207 CTRL_GETOBCSS 
             if (iobcs .eq. 3) then
./pkg/ctrl/ctrl_getobcss.F 227 CTRL_GETOBCSS 
             if (iobcs .eq. 3) then
./pkg/ctrl/ctrl_getobcss.F 240 CTRL_GETOBCSS 
            xx_obcss1 (i,k,bi,bj,iobcs) = tmpfldxz (i,k,bi,bj)
./pkg/ctrl/ctrl_getobcss.F 256 CTRL_GETOBCSS 
           if (iobcs .EQ. 1) then
./pkg/ctrl/ctrl_getobcss.F 258 CTRL_GETOBCSS 
     &           + obcssfac            *xx_obcss0(i,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcss.F 259 CTRL_GETOBCSS 
     &           + (1. _d 0 - obcssfac)*xx_obcss1(i,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcss.F 262 CTRL_GETOBCSS 
           else if (iobcs .EQ. 2) then
./pkg/ctrl/ctrl_getobcss.F 264 CTRL_GETOBCSS 
     &           + obcssfac            *xx_obcss0(i,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcss.F 265 CTRL_GETOBCSS 
     &           + (1. _d 0 - obcssfac)*xx_obcss1(i,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcss.F 268 CTRL_GETOBCSS 
           else if (iobcs .EQ. 4) then
./pkg/ctrl/ctrl_getobcss.F 270 CTRL_GETOBCSS 
     &           + obcssfac            *xx_obcss0(i,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcss.F 271 CTRL_GETOBCSS 
     &           + (1. _d 0 - obcssfac)*xx_obcss1(i,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcss.F 274 CTRL_GETOBCSS 
           else if (iobcs .EQ. 3) then
./pkg/ctrl/ctrl_getobcss.F 276 CTRL_GETOBCSS 
     &           + obcssfac            *xx_obcss0(i,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcss.F 277 CTRL_GETOBCSS 
     &           + (1. _d 0 - obcssfac)*xx_obcss1(i,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcss.F 62 CTRL_GETOBCSS 
      integer iobcs
./pkg/ctrl/ctrl_getobcsw.F 120 CTRL_GETOBCSW 
      do iobcs = 1,nobcs
./pkg/ctrl/ctrl_getobcsw.F 123 CTRL_GETOBCSW 
     &                       (obcswcount0-1)*nobcs+iobcs,
./pkg/ctrl/ctrl_getobcsw.F 130 CTRL_GETOBCSW 
          if (iobcs .gt. 2) then
./pkg/ctrl/ctrl_getobcsw.F 137 CTRL_GETOBCSW 
              if (iobcs .eq. 3) then
./pkg/ctrl/ctrl_getobcsw.F 157 CTRL_GETOBCSW 
              if (iobcs .eq. 3) then
./pkg/ctrl/ctrl_getobcsw.F 170 CTRL_GETOBCSW 
            xx_obcsw1(j,k,bi,bj,iobcs)  = tmpfldyz (j,k,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F 184 CTRL_GETOBCSW 
            xx_obcsw0(j,k,bi,bj,iobcs) = xx_obcsw1(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcsw.F 192 CTRL_GETOBCSW 
     &                       (obcswcount1-1)*nobcs+iobcs,
./pkg/ctrl/ctrl_getobcsw.F 199 CTRL_GETOBCSW 
          if (iobcs .gt. 2) then
./pkg/ctrl/ctrl_getobcsw.F 206 CTRL_GETOBCSW 
              if (iobcs .eq. 3) then
./pkg/ctrl/ctrl_getobcsw.F 226 CTRL_GETOBCSW 
              if (iobcs .eq. 3) then
./pkg/ctrl/ctrl_getobcsw.F 239 CTRL_GETOBCSW 
            xx_obcsw1 (j,k,bi,bj,iobcs) = tmpfldyz (j,k,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F 255 CTRL_GETOBCSW 
           if (iobcs .EQ. 1) then
./pkg/ctrl/ctrl_getobcsw.F 257 CTRL_GETOBCSW 
     &           + obcswfac            *xx_obcsw0(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcsw.F 258 CTRL_GETOBCSW 
     &           + (1. _d 0 - obcswfac)*xx_obcsw1(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcsw.F 261 CTRL_GETOBCSW 
           else if (iobcs .EQ. 2) then
./pkg/ctrl/ctrl_getobcsw.F 263 CTRL_GETOBCSW 
     &           + obcswfac            *xx_obcsw0(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcsw.F 264 CTRL_GETOBCSW 
     &           + (1. _d 0 - obcswfac)*xx_obcsw1(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcsw.F 267 CTRL_GETOBCSW 
           else if (iobcs .EQ. 3) then
./pkg/ctrl/ctrl_getobcsw.F 269 CTRL_GETOBCSW 
     &           + obcswfac            *xx_obcsw0(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcsw.F 270 CTRL_GETOBCSW 
     &           + (1. _d 0 - obcswfac)*xx_obcsw1(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcsw.F 273 CTRL_GETOBCSW 
           else if (iobcs .EQ. 4) then
./pkg/ctrl/ctrl_getobcsw.F 275 CTRL_GETOBCSW 
     &           + obcswfac            *xx_obcsw0(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcsw.F 276 CTRL_GETOBCSW 
     &           + (1. _d 0 - obcswfac)*xx_obcsw1(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcsw.F 61 CTRL_GETOBCSW 
      integer iobcs
./pkg/ctrl/ctrl_init_obcs_variables.F 105 CTRL_INIT_OBCS_VARIABLES 
      do iobcs = 1, nobcs
./pkg/ctrl/ctrl_init_obcs_variables.F 110 CTRL_INIT_OBCS_VARIABLES 
                xx_obcse0(j,k,bi,bj,iobcs) = 0. _d 0
./pkg/ctrl/ctrl_init_obcs_variables.F 111 CTRL_INIT_OBCS_VARIABLES 
                xx_obcse1(j,k,bi,bj,iobcs) = 0. _d 0
./pkg/ctrl/ctrl_init_obcs_variables.F 46 CTRL_INIT_OBCS_VARIABLES 
      integer iobcs
./pkg/ctrl/ctrl_init_obcs_variables.F 60 CTRL_INIT_OBCS_VARIABLES 
      do iobcs = 1, nobcs
./pkg/ctrl/ctrl_init_obcs_variables.F 65 CTRL_INIT_OBCS_VARIABLES 
                xx_obcsn0(i,k,bi,bj,iobcs) = 0. _d 0
./pkg/ctrl/ctrl_init_obcs_variables.F 66 CTRL_INIT_OBCS_VARIABLES 
                xx_obcsn1(i,k,bi,bj,iobcs) = 0. _d 0
./pkg/ctrl/ctrl_init_obcs_variables.F 75 CTRL_INIT_OBCS_VARIABLES 
      do iobcs = 1, nobcs
./pkg/ctrl/ctrl_init_obcs_variables.F 80 CTRL_INIT_OBCS_VARIABLES 
                xx_obcss0(i,k,bi,bj,iobcs) = 0. _d 0
./pkg/ctrl/ctrl_init_obcs_variables.F 81 CTRL_INIT_OBCS_VARIABLES 
                xx_obcss1(i,k,bi,bj,iobcs) = 0. _d 0
./pkg/ctrl/ctrl_init_obcs_variables.F 90 CTRL_INIT_OBCS_VARIABLES 
      do iobcs = 1, nobcs
./pkg/ctrl/ctrl_init_obcs_variables.F 95 CTRL_INIT_OBCS_VARIABLES 
                xx_obcsw0(j,k,bi,bj,iobcs) = 0. _d 0
./pkg/ctrl/ctrl_init_obcs_variables.F 96 CTRL_INIT_OBCS_VARIABLES 
                xx_obcsw1(j,k,bi,bj,iobcs) = 0. _d 0
./pkg/ctrl/ctrl_init_wet.F 101 CTRL_INIT_WET 
              nwetobcse(bi,bj,k,iobcs) = 0
./pkg/ctrl/ctrl_init_wet.F 208 CTRL_INIT_WET 
                        do iobcs = 1, nobcs
./pkg/ctrl/ctrl_init_wet.F 215 CTRL_INIT_WET 
     &                             *nwetobcsn(bi,bj,k,iobcs)
./pkg/ctrl/ctrl_init_wet.F 221 CTRL_INIT_WET 
     &                             *nwetobcss(bi,bj,k,iobcs)
./pkg/ctrl/ctrl_init_wet.F 227 CTRL_INIT_WET 
     &                             *nwetobcsw(bi,bj,k,iobcs)
./pkg/ctrl/ctrl_init_wet.F 233 CTRL_INIT_WET 
     &                             *nwetobcse(bi,bj,k,iobcs)
./pkg/ctrl/ctrl_init_wet.F 417 CTRL_INIT_WET 
         do iobcs = 1, nobcs
./pkg/ctrl/ctrl_init_wet.F 418 CTRL_INIT_WET 
            ntmpob(iobcs)=0
./pkg/ctrl/ctrl_init_wet.F 421 CTRL_INIT_WET 
                  ntmpob(iobcs)=ntmpob(iobcs)+nwetobcsn(bi,bj,k,iobcs)
./pkg/ctrl/ctrl_init_wet.F 424 CTRL_INIT_WET 
            CALL GLOBAL_SUM_INT( ntmpob(iobcs),  myThid )
./pkg/ctrl/ctrl_init_wet.F 425 CTRL_INIT_WET 
            nwetobcsnglo(k,iobcs)=ntmpob(iobcs)
./pkg/ctrl/ctrl_init_wet.F 42 CTRL_INIT_WET 
      integer iobcs
./pkg/ctrl/ctrl_init_wet.F 433 CTRL_INIT_WET 
         do iobcs = 1, nobcs
./pkg/ctrl/ctrl_init_wet.F 434 CTRL_INIT_WET 
            ntmpob(iobcs)=0
./pkg/ctrl/ctrl_init_wet.F 437 CTRL_INIT_WET 
                  ntmpob(iobcs)=ntmpob(iobcs)+nwetobcss(bi,bj,k,iobcs)
./pkg/ctrl/ctrl_init_wet.F 440 CTRL_INIT_WET 
            CALL GLOBAL_SUM_INT( ntmpob(iobcs),  myThid )
./pkg/ctrl/ctrl_init_wet.F 441 CTRL_INIT_WET 
            nwetobcssglo(k,iobcs)=ntmpob(iobcs)
./pkg/ctrl/ctrl_init_wet.F 449 CTRL_INIT_WET 
         do iobcs = 1, nobcs
./pkg/ctrl/ctrl_init_wet.F 450 CTRL_INIT_WET 
            ntmpob(iobcs)=0
./pkg/ctrl/ctrl_init_wet.F 453 CTRL_INIT_WET 
                  ntmpob(iobcs)=ntmpob(iobcs)+nwetobcsw(bi,bj,k,iobcs)
./pkg/ctrl/ctrl_init_wet.F 456 CTRL_INIT_WET 
            CALL GLOBAL_SUM_INT( ntmpob(iobcs),  myThid )
./pkg/ctrl/ctrl_init_wet.F 457 CTRL_INIT_WET 
            nwetobcswglo(k,iobcs)=ntmpob(iobcs)
./pkg/ctrl/ctrl_init_wet.F 465 CTRL_INIT_WET 
         do iobcs = 1, nobcs
./pkg/ctrl/ctrl_init_wet.F 466 CTRL_INIT_WET 
            ntmpob(iobcs)=0
./pkg/ctrl/ctrl_init_wet.F 469 CTRL_INIT_WET 
                  ntmpob(iobcs)=ntmpob(iobcs)+nwetobcse(bi,bj,k,iobcs)
./pkg/ctrl/ctrl_init_wet.F 472 CTRL_INIT_WET 
            CALL GLOBAL_SUM_INT( ntmpob(iobcs),  myThid )
./pkg/ctrl/ctrl_init_wet.F 473 CTRL_INIT_WET 
            nwetobcseglo(k,iobcs)=ntmpob(iobcs)
./pkg/ctrl/ctrl_init_wet.F 489 CTRL_INIT_WET 
      do iobcs = 1, nobcs
./pkg/ctrl/ctrl_init_wet.F 490 CTRL_INIT_WET 
        ntmpob(iobcs)=0
./pkg/ctrl/ctrl_init_wet.F 492 CTRL_INIT_WET 
          ntmpob(iobcs)=ntmpob(iobcs)+nwetobcsnglo(k,iobcs)
./pkg/ctrl/ctrl_init_wet.F 501 CTRL_INIT_WET 
      do iobcs = 1, nobcs
./pkg/ctrl/ctrl_init_wet.F 502 CTRL_INIT_WET 
        ntmpob(iobcs)=0
./pkg/ctrl/ctrl_init_wet.F 504 CTRL_INIT_WET 
          ntmpob(iobcs)=ntmpob(iobcs)+nwetobcssglo(k,iobcs)
./pkg/ctrl/ctrl_init_wet.F 513 CTRL_INIT_WET 
      do iobcs = 1, nobcs
./pkg/ctrl/ctrl_init_wet.F 514 CTRL_INIT_WET 
        ntmpob(iobcs)=0
./pkg/ctrl/ctrl_init_wet.F 516 CTRL_INIT_WET 
          ntmpob(iobcs)=ntmpob(iobcs)+nwetobcswglo(k,iobcs)
./pkg/ctrl/ctrl_init_wet.F 525 CTRL_INIT_WET 
      do iobcs = 1, nobcs
./pkg/ctrl/ctrl_init_wet.F 526 CTRL_INIT_WET 
        ntmpob(iobcs)=0
./pkg/ctrl/ctrl_init_wet.F 528 CTRL_INIT_WET 
          ntmpob(iobcs)=ntmpob(iobcs)+nwetobcseglo(k,iobcs)
./pkg/ctrl/ctrl_init_wet.F 90 CTRL_INIT_WET 
            do iobcs = 1,nobcs
./pkg/ctrl/ctrl_init_wet.F 92 CTRL_INIT_WET 
              nwetobcsn(bi,bj,k,iobcs) = 0
./pkg/ctrl/ctrl_init_wet.F 95 CTRL_INIT_WET 
              nwetobcss(bi,bj,k,iobcs) = 0
./pkg/ctrl/ctrl_init_wet.F 98 CTRL_INIT_WET 
              nwetobcsw(bi,bj,k,iobcs) = 0
./pkg/ctrl/ctrl_mask_set_xz.F 102 CTRL_MASK_SET_XZ 
                  if (iobcs.eq.1 .or. iobcs .eq.2 .or. iobcs.eq.3) then
./pkg/ctrl/ctrl_mask_set_xz.F 104 CTRL_MASK_SET_XZ 
                      nwetobcs(bi,bj,k,iobcs) =nwetobcs(bi,bj,k,iobcs)+1
./pkg/ctrl/ctrl_mask_set_xz.F 105 CTRL_MASK_SET_XZ 
                      maskxz(i,k,bi,bj,iobcs) = 1
./pkg/ctrl/ctrl_mask_set_xz.F 109 CTRL_MASK_SET_XZ 
                  if (iobcs .eq. 4) then
./pkg/ctrl/ctrl_mask_set_xz.F 111 CTRL_MASK_SET_XZ 
                      nwetobcs(bi,bj,k,iobcs) =nwetobcs(bi,bj,k,iobcs)+1
./pkg/ctrl/ctrl_mask_set_xz.F 112 CTRL_MASK_SET_XZ 
                      maskxz(i,k,bi,bj,iobcs) = 1
./pkg/ctrl/ctrl_mask_set_xz.F 126 CTRL_MASK_SET_XZ 
      do iobcs = 1,nobcs
./pkg/ctrl/ctrl_mask_set_xz.F 131 CTRL_MASK_SET_XZ 
                 gg(i,k,bi,bj) = maskxz(i,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_mask_set_xz.F 136 CTRL_MASK_SET_XZ 
        call ACTIVE_WRITE_XZ( fname, gg, iobcs, 0, mythid, dummy )
./pkg/ctrl/ctrl_mask_set_xz.F 49 CTRL_MASK_SET_XZ 
      integer iobcs
./pkg/ctrl/ctrl_mask_set_xz.F 82 CTRL_MASK_SET_XZ 
      do iobcs = 1,nobcs
./pkg/ctrl/ctrl_mask_set_xz.F 87 CTRL_MASK_SET_XZ 
                maskxz(i,k,bi,bj,iobcs) = 0. _d 0
./pkg/ctrl/ctrl_mask_set_xz.F 94 CTRL_MASK_SET_XZ 
      do iobcs = 1,nobcs
./pkg/ctrl/ctrl_mask_set_yz.F 103 CTRL_MASK_SET_YZ 
                  if(iobcs .eq.1 .or. iobcs .eq.2 .or. iobcs .eq.3) then
./pkg/ctrl/ctrl_mask_set_yz.F 105 CTRL_MASK_SET_YZ 
                      nwetobcs(bi,bj,k,iobcs) =nwetobcs(bi,bj,k,iobcs)+1
./pkg/ctrl/ctrl_mask_set_yz.F 106 CTRL_MASK_SET_YZ 
                      maskyz(j,k,bi,bj,iobcs) = 1
./pkg/ctrl/ctrl_mask_set_yz.F 110 CTRL_MASK_SET_YZ 
                  if (iobcs .eq. 4) then
./pkg/ctrl/ctrl_mask_set_yz.F 112 CTRL_MASK_SET_YZ 
                      nwetobcs(bi,bj,k,iobcs) =nwetobcs(bi,bj,k,iobcs)+1
./pkg/ctrl/ctrl_mask_set_yz.F 113 CTRL_MASK_SET_YZ 
                      maskyz(j,k,bi,bj,iobcs) = 1
./pkg/ctrl/ctrl_mask_set_yz.F 127 CTRL_MASK_SET_YZ 
      do iobcs = 1,nobcs
./pkg/ctrl/ctrl_mask_set_yz.F 132 CTRL_MASK_SET_YZ 
                 gg(j,k,bi,bj) = maskyz(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_mask_set_yz.F 137 CTRL_MASK_SET_YZ 
        call ACTIVE_WRITE_YZ( fname, gg, iobcs, 0, mythid, dummy)
./pkg/ctrl/ctrl_mask_set_yz.F 49 CTRL_MASK_SET_YZ 
      integer iobcs
./pkg/ctrl/ctrl_mask_set_yz.F 83 CTRL_MASK_SET_YZ 
      do iobcs = 1,nobcs
./pkg/ctrl/ctrl_mask_set_yz.F 88 CTRL_MASK_SET_YZ 
                maskyz(j,k,bi,bj,iobcs) = 0. _d 0
./pkg/ctrl/ctrl_mask_set_yz.F 95 CTRL_MASK_SET_YZ 
      do iobcs = 1,nobcs
./pkg/ctrl/ctrl_pack.F 230 CTRL_PACK 
          write(cunit) ((nWetobcsnGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs)
./pkg/ctrl/ctrl_pack.F 233 CTRL_PACK 
          write(cunit) ((nWetobcssGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs)
./pkg/ctrl/ctrl_pack.F 236 CTRL_PACK 
          write(cunit) ((nWetobcswGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs)
./pkg/ctrl/ctrl_pack.F 239 CTRL_PACK 
          write(cunit) ((nWetobcseGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs)
./pkg/ctrl/ctrl_pack.F 85 CTRL_PACK 
      integer iobcs
./pkg/ctrl/ctrl_readparms.F 44 CTRL_READPARMS 
      integer iobcs
./pkg/ctrl/ctrl_set_pack_xz.F 106 CTRL_SET_PACK_XZ 
                        do iobcs=1,nobcs
./pkg/ctrl/ctrl_set_pack_xz.F 107 CTRL_SET_PACK_XZ 
                           globmskxz(i,bi,ip,bj,jp,k,iobcs) = 0. _d 0
./pkg/ctrl/ctrl_set_pack_xz.F 163 CTRL_SET_PACK_XZ 
      do iobcs = 1, nobcs
./pkg/ctrl/ctrl_set_pack_xz.F 166 CTRL_SET_PACK_XZ 
     &        Nr, globmskxz(1,1,1,1,1,1,iobcs), iobcs, mythid)
./pkg/ctrl/ctrl_set_pack_xz.F 173 CTRL_SET_PACK_XZ 
     &        Nr, weightfldxz(1,1,1,1,1,1,iobcs), iobcs, mythid)
./pkg/ctrl/ctrl_set_pack_xz.F 188 CTRL_SET_PACK_XZ 
            iobcs= mod((irec-1)*sny+j-1,nobcs)+1
./pkg/ctrl/ctrl_set_pack_xz.F 194 CTRL_SET_PACK_XZ 
             irectrue = (irec-1)*nobcs*nr + (iobcs-1)*nr + k
./pkg/ctrl/ctrl_set_pack_xz.F 203 CTRL_SET_PACK_XZ 
                  if (globmskxz(i,bi,ip,bj,jp,k,iobcs)  .ne. 0. ) then
./pkg/ctrl/ctrl_set_pack_xz.F 214 CTRL_SET_PACK_XZ 
     &                       sqrt(weightfldxz(i,bi,ip,bj,jp,k,iobcs))
./pkg/ctrl/ctrl_set_pack_xz.F 216 CTRL_SET_PACK_XZ 
     &                       sqrt(weightfld(k,iobcs))
./pkg/ctrl/ctrl_set_pack_xz.F 222 CTRL_SET_PACK_XZ 
     &                       sqrt(weightfldxz(i,bi,ip,bj,jp,k,iobcs))
./pkg/ctrl/ctrl_set_pack_xz.F 224 CTRL_SET_PACK_XZ 
     &                       sqrt(weightfld(k,iobcs))
./pkg/ctrl/ctrl_set_pack_xz.F 260 CTRL_SET_PACK_XZ 
         iobcs= mod(irec-1,nobcs)+1
./pkg/ctrl/ctrl_set_pack_xz.F 269 CTRL_SET_PACK_XZ 
            irectrue = (irec-1)*nobcs*nr + (iobcs-1)*nr + k
./pkg/ctrl/ctrl_set_pack_xz.F 276 CTRL_SET_PACK_XZ 
                 if (globmskxz(i,bi,ip,bj,jp,k,iobcs)  .ne. 0. ) then
./pkg/ctrl/ctrl_set_pack_xz.F 287 CTRL_SET_PACK_XZ 
     &                       sqrt(weightfldxz(i,bi,ip,bj,jp,k,iobcs))
./pkg/ctrl/ctrl_set_pack_xz.F 289 CTRL_SET_PACK_XZ 
     &                       sqrt(weightfld(k,iobcs))
./pkg/ctrl/ctrl_set_pack_xz.F 295 CTRL_SET_PACK_XZ 
     &                       sqrt(weightfldxz(i,bi,ip,bj,jp,k,iobcs))
./pkg/ctrl/ctrl_set_pack_xz.F 297 CTRL_SET_PACK_XZ 
     &                       sqrt(weightfld(k,iobcs))
./pkg/ctrl/ctrl_set_pack_xz.F 57 CTRL_SET_PACK_XZ 
      integer irec,iobcs,nrec_nl
./pkg/ctrl/ctrl_set_pack_yz.F 106 CTRL_SET_PACK_YZ 
                        do iobcs=1,nobcs
./pkg/ctrl/ctrl_set_pack_yz.F 107 CTRL_SET_PACK_YZ 
                           globmskyz(bi,ip,j,bj,jp,k,iobcs) = 0. _d 0
./pkg/ctrl/ctrl_set_pack_yz.F 163 CTRL_SET_PACK_YZ 
      do iobcs=1,nobcs
./pkg/ctrl/ctrl_set_pack_yz.F 166 CTRL_SET_PACK_YZ 
     &        Nr, globmskyz(1,1,1,1,1,1,iobcs), iobcs,mythid)
./pkg/ctrl/ctrl_set_pack_yz.F 173 CTRL_SET_PACK_YZ 
     &       Nr, weightfldyz(1,1,1,1,1,1,iobcs), iobcs, mythid)
./pkg/ctrl/ctrl_set_pack_yz.F 191 CTRL_SET_PACK_YZ 
            iobcs= mod((irec-1)*snx+i-1,nobcs)+1
./pkg/ctrl/ctrl_set_pack_yz.F 197 CTRL_SET_PACK_YZ 
             irectrue = (irec-1)*nobcs*nr + (iobcs-1)*nr + k
./pkg/ctrl/ctrl_set_pack_yz.F 207 CTRL_SET_PACK_YZ 
                  if (globmskyz(bi,ip,j,bj,jp,k,iobcs)  .ne. 0. ) then
./pkg/ctrl/ctrl_set_pack_yz.F 218 CTRL_SET_PACK_YZ 
     &                       sqrt(weightfldyz(bi,ip,j,bj,jp,k,iobcs))
./pkg/ctrl/ctrl_set_pack_yz.F 220 CTRL_SET_PACK_YZ 
     &                       sqrt(weightfld(k,iobcs))
./pkg/ctrl/ctrl_set_pack_yz.F 226 CTRL_SET_PACK_YZ 
     &                       sqrt(weightfldyz(bi,ip,j,bj,jp,k,iobcs))
./pkg/ctrl/ctrl_set_pack_yz.F 228 CTRL_SET_PACK_YZ 
     &                       sqrt(weightfld(k,iobcs))
./pkg/ctrl/ctrl_set_pack_yz.F 264 CTRL_SET_PACK_YZ 
         iobcs= mod(irec-1,nobcs)+1
./pkg/ctrl/ctrl_set_pack_yz.F 273 CTRL_SET_PACK_YZ 
            irectrue = (irec-1)*nobcs*nr + (iobcs-1)*nr + k
./pkg/ctrl/ctrl_set_pack_yz.F 280 CTRL_SET_PACK_YZ 
                 if (globmskyz(bi,ip,j,bj,jp,k,iobcs)  .ne. 0. ) then
./pkg/ctrl/ctrl_set_pack_yz.F 291 CTRL_SET_PACK_YZ 
     &                       sqrt(weightfldyz(bi,ip,j,bj,jp,k,iobcs))
./pkg/ctrl/ctrl_set_pack_yz.F 293 CTRL_SET_PACK_YZ 
     &                       sqrt(weightfld(k,iobcs))
./pkg/ctrl/ctrl_set_pack_yz.F 299 CTRL_SET_PACK_YZ 
     &                       sqrt(weightfldyz(bi,ip,j,bj,jp,k,iobcs))
./pkg/ctrl/ctrl_set_pack_yz.F 301 CTRL_SET_PACK_YZ 
     &                       sqrt(weightfld(k,iobcs))
./pkg/ctrl/ctrl_set_pack_yz.F 57 CTRL_SET_PACK_YZ 
      integer irec,iobcs,nrec_nl
./pkg/ctrl/ctrl_set_unpack_xz.F 111 CTRL_SET_UNPACK_XZ 
                        do iobcs=1,nobcs
./pkg/ctrl/ctrl_set_unpack_xz.F 112 CTRL_SET_UNPACK_XZ 
                           globmskxz(i,bi,ip,bj,jp,k,iobcs) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_xz.F 168 CTRL_SET_UNPACK_XZ 
      do iobcs=1,nobcs
./pkg/ctrl/ctrl_set_unpack_xz.F 171 CTRL_SET_UNPACK_XZ 
     &        Nr, globmskxz(1,1,1,1,1,1,iobcs), iobcs,mythid)
./pkg/ctrl/ctrl_set_unpack_xz.F 178 CTRL_SET_UNPACK_XZ 
     &        Nr, weightfldxz(1,1,1,1,1,1,iobcs), iobcs, mythid)
./pkg/ctrl/ctrl_set_unpack_xz.F 192 CTRL_SET_UNPACK_XZ 
            iobcs= mod((irec-1)*sny+j-1,nobcs)+1
./pkg/ctrl/ctrl_set_unpack_xz.F 204 CTRL_SET_UNPACK_XZ 
               irectrue = (irec-1)*nobcs*nr + (iobcs-1)*nr + k
./pkg/ctrl/ctrl_set_unpack_xz.F 205 CTRL_SET_UNPACK_XZ 
               cbuffindex = nwetglobal(k,iobcs)
./pkg/ctrl/ctrl_set_unpack_xz.F 230 CTRL_SET_UNPACK_XZ 
                    if ( globmskxz(i,bi,ip,bj,jp,k,iobcs) .ne. 0. ) then
./pkg/ctrl/ctrl_set_unpack_xz.F 242 CTRL_SET_UNPACK_XZ 
     &                      sqrt(weightfldxz(i,bi,ip,bj,jp,k,iobcs))
./pkg/ctrl/ctrl_set_unpack_xz.F 244 CTRL_SET_UNPACK_XZ 
     &                      sqrt(weightfld(k,iobcs))
./pkg/ctrl/ctrl_set_unpack_xz.F 279 CTRL_SET_UNPACK_XZ 
         iobcs= mod(irec-1,nobcs)+1
./pkg/ctrl/ctrl_set_unpack_xz.F 291 CTRL_SET_UNPACK_XZ 
            irectrue = (irec-1)*nobcs*nr + (iobcs-1)*nr + k
./pkg/ctrl/ctrl_set_unpack_xz.F 292 CTRL_SET_UNPACK_XZ 
            cbuffindex = nwetglobal(k,iobcs)
./pkg/ctrl/ctrl_set_unpack_xz.F 315 CTRL_SET_UNPACK_XZ 
                  if ( globmskxz(i,bi,ip,bj,jp,k,iobcs) .ne. 0. ) then
./pkg/ctrl/ctrl_set_unpack_xz.F 325 CTRL_SET_UNPACK_XZ 
     &                    sqrt(weightfldxz(i,bi,ip,bj,jp,k,iobcs))
./pkg/ctrl/ctrl_set_unpack_xz.F 327 CTRL_SET_UNPACK_XZ 
     &                    sqrt(weightfld(k,iobcs))
./pkg/ctrl/ctrl_set_unpack_xz.F 58 CTRL_SET_UNPACK_XZ 
      integer irec,iobcs,nrec_nl
./pkg/ctrl/ctrl_set_unpack_yz.F 111 CTRL_SET_UNPACK_YZ 
                        do iobcs=1,nobcs
./pkg/ctrl/ctrl_set_unpack_yz.F 112 CTRL_SET_UNPACK_YZ 
                           globmskyz(bi,ip,j,bj,jp,k,iobcs) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_yz.F 168 CTRL_SET_UNPACK_YZ 
      do iobcs=1,nobcs
./pkg/ctrl/ctrl_set_unpack_yz.F 171 CTRL_SET_UNPACK_YZ 
     &        Nr, globmskyz(1,1,1,1,1,1,iobcs), iobcs, mythid)
./pkg/ctrl/ctrl_set_unpack_yz.F 178 CTRL_SET_UNPACK_YZ 
     &       Nr, weightfldyz(1,1,1,1,1,1,iobcs), iobcs, mythid)
./pkg/ctrl/ctrl_set_unpack_yz.F 192 CTRL_SET_UNPACK_YZ 
            iobcs= mod((irec-1)*snx+i-1,nobcs)+1
./pkg/ctrl/ctrl_set_unpack_yz.F 204 CTRL_SET_UNPACK_YZ 
               irectrue = (irec-1)*nobcs*nr + (iobcs-1)*nr + k
./pkg/ctrl/ctrl_set_unpack_yz.F 205 CTRL_SET_UNPACK_YZ 
               cbuffindex = nwetglobal(k,iobcs)
./pkg/ctrl/ctrl_set_unpack_yz.F 230 CTRL_SET_UNPACK_YZ 
                    if ( globmskyz(bi,ip,j,bj,jp,k,iobcs) .ne. 0. ) then
./pkg/ctrl/ctrl_set_unpack_yz.F 242 CTRL_SET_UNPACK_YZ 
     &                      sqrt(weightfldyz(bi,ip,j,bj,jp,k,iobcs))
./pkg/ctrl/ctrl_set_unpack_yz.F 244 CTRL_SET_UNPACK_YZ 
     &                      sqrt(weightfld(k,iobcs))
./pkg/ctrl/ctrl_set_unpack_yz.F 279 CTRL_SET_UNPACK_YZ 
         iobcs= mod(irec-1,nobcs)+1
./pkg/ctrl/ctrl_set_unpack_yz.F 291 CTRL_SET_UNPACK_YZ 
            irectrue = (irec-1)*nobcs*nr + (iobcs-1)*nr + k
./pkg/ctrl/ctrl_set_unpack_yz.F 292 CTRL_SET_UNPACK_YZ 
            cbuffindex = nwetglobal(k,iobcs)
./pkg/ctrl/ctrl_set_unpack_yz.F 314 CTRL_SET_UNPACK_YZ 
                  if ( globmskyz(bi,ip,j,bj,jp,k,iobcs) .ne. 0. ) then
./pkg/ctrl/ctrl_set_unpack_yz.F 324 CTRL_SET_UNPACK_YZ 
     &                    sqrt(weightfldyz(bi,ip,j,bj,jp,k,iobcs))
./pkg/ctrl/ctrl_set_unpack_yz.F 326 CTRL_SET_UNPACK_YZ 
     &                    sqrt(weightfld(k,iobcs))
./pkg/ctrl/ctrl_set_unpack_yz.F 58 CTRL_SET_UNPACK_YZ 
      integer irec,iobcs,nrec_nl
./pkg/ctrl/ctrl_unpack.F 117 CTRL_UNPACK 
      integer iobcs
./pkg/ctrl/ctrl_unpack.F 237 CTRL_UNPACK 
          read(cunit) ((filenWetobcsnGlo(k,iobcs),
./pkg/ctrl/ctrl_unpack.F 238 CTRL_UNPACK 
     &         k=1,nr), iobcs= 1,nobcs)
./pkg/ctrl/ctrl_unpack.F 241 CTRL_UNPACK 
          read(cunit) ((filenWetobcssGlo(k,iobcs),
./pkg/ctrl/ctrl_unpack.F 242 CTRL_UNPACK 
     &         k=1,nr), iobcs= 1,nobcs)
./pkg/ctrl/ctrl_unpack.F 245 CTRL_UNPACK 
          read(cunit) ((filenWetobcswGlo(k,iobcs),
./pkg/ctrl/ctrl_unpack.F 246 CTRL_UNPACK 
     &         k=1,nr), iobcs= 1,nobcs)
./pkg/ctrl/ctrl_unpack.F 249 CTRL_UNPACK 
          read(cunit) ((filenWetobcseGlo(k,iobcs),
./pkg/ctrl/ctrl_unpack.F 250 CTRL_UNPACK 
     &         k=1,nr), iobcs= 1,nobcs)
./pkg/ctrl/ctrl_unpack.F 293 CTRL_UNPACK 
       do iobcs = 1, nobcs
./pkg/ctrl/ctrl_unpack.F 295 CTRL_UNPACK 
           if (filenWetobcsnGlo(k,iobcs) .NE.
./pkg/ctrl/ctrl_unpack.F 296 CTRL_UNPACK 
     &           nWetobcsnGlo(k,iobcs)) then
./pkg/ctrl/ctrl_unpack.F 305 CTRL_UNPACK 
       do iobcs = 1, nobcs
./pkg/ctrl/ctrl_unpack.F 307 CTRL_UNPACK 
           if (filenWetobcssGlo(k,iobcs) .NE.
./pkg/ctrl/ctrl_unpack.F 308 CTRL_UNPACK 
     &           nWetobcssGlo(k,iobcs)) then
./pkg/ctrl/ctrl_unpack.F 317 CTRL_UNPACK 
       do iobcs = 1, nobcs
./pkg/ctrl/ctrl_unpack.F 319 CTRL_UNPACK 
           if (filenWetobcswGlo(k,iobcs) .NE.
./pkg/ctrl/ctrl_unpack.F 320 CTRL_UNPACK 
     &           nWetobcswGlo(k,iobcs)) then
./pkg/ctrl/ctrl_unpack.F 329 CTRL_UNPACK 
       do iobcs = 1, nobcs
./pkg/ctrl/ctrl_unpack.F 331 CTRL_UNPACK 
           if (filenWetobcseGlo(k,iobcs) .NE.
./pkg/ctrl/ctrl_unpack.F 332 CTRL_UNPACK 
     &           nWetobcseGlo(k,iobcs)) then
./pkg/ecco/cost_obcse.F 155 COST_OBCSE 
          iobcs = irec - igg*nobcs
./pkg/ecco/cost_obcse.F 158 COST_OBCSE 
     &                         iobcs,
./pkg/ecco/cost_obcse.F 175 COST_OBCSE 
                  fctile = fctile + wobcse(k,iobcs)
./pkg/ecco/cost_obcse.F 179 COST_OBCSE 
                  if (wobcse(k,iobcs)*maskyz(j,k,bi,bj).ne.0.)
./pkg/ecco/cost_obcse.F 76 COST_OBCSE 
      integer iobcs
./pkg/ecco/cost_obcsn.F 153 COST_OBCSN 
          iobcs = irec - igg*nobcs
./pkg/ecco/cost_obcsn.F 156 COST_OBCSN 
     &                         iobcs,
./pkg/ecco/cost_obcsn.F 173 COST_OBCSN 
                  fctile = fctile + wobcsn(k,iobcs)
./pkg/ecco/cost_obcsn.F 177 COST_OBCSN 
                 if (wobcsn(k,iobcs)*maskxz(i,k,bi,bj).ne.0.)
./pkg/ecco/cost_obcsn.F 75 COST_OBCSN 
      integer iobcs
./pkg/ecco/cost_obcss.F 153 COST_OBCSS 
          iobcs = irec - igg*nobcs
./pkg/ecco/cost_obcss.F 157 COST_OBCSS 
     &                         iobcs,
./pkg/ecco/cost_obcss.F 175 COST_OBCSS 
                  fctile = fctile + wobcss(k,iobcs)
./pkg/ecco/cost_obcss.F 179 COST_OBCSS 
                  if (wobcss(k,iobcs)*maskxz(i,k,bi,bj).ne.0.)
./pkg/ecco/cost_obcss.F 75 COST_OBCSS 
      integer iobcs
./pkg/ecco/cost_obcsvol.F 179 COST_OBCSVOL 
        iobcs = irec - igg*nobcs
./pkg/ecco/cost_obcsvol.F 184 COST_OBCSVOL 
        if (iobcs.eq.4) then
./pkg/ecco/cost_obcsvol.F 227 COST_OBCSVOL 
        if (iobcs.eq.4) then
./pkg/ecco/cost_obcsvol.F 270 COST_OBCSVOL 
        if (iobcs.eq.3) then
./pkg/ecco/cost_obcsvol.F 313 COST_OBCSVOL 
        if (iobcs.eq.3) then
./pkg/ecco/cost_obcsvol.F 60 COST_OBCSVOL 
      integer iobcs
./pkg/ecco/cost_obcsw.F 153 COST_OBCSW 
          iobcs = irec - igg*nobcs
./pkg/ecco/cost_obcsw.F 156 COST_OBCSW 
     &                         iobcs,
./pkg/ecco/cost_obcsw.F 173 COST_OBCSW 
                  fctile = fctile + wobcsw(k,iobcs)
./pkg/ecco/cost_obcsw.F 177 COST_OBCSW 
                  if (wobcsw(k,iobcs)*maskyz(j,k,bi,bj).ne.0.)
./pkg/ecco/cost_obcsw.F 75 COST_OBCSW 
      integer iobcs
./pkg/ecco/ecco_cost_weights.F 1930 ECCO_COST_WEIGHTS 
          do iobcs = 1,nobcs
./pkg/ecco/ecco_cost_weights.F 1933 ECCO_COST_WEIGHTS 
              if (wobcsn(k,iobcs) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 1934 ECCO_COST_WEIGHTS 
                 wobcsn(k,iobcs) =
./pkg/ecco/ecco_cost_weights.F 1935 ECCO_COST_WEIGHTS 
     &                ratio/wobcsn(k,iobcs)/wobcsn(k,iobcs)
./pkg/ecco/ecco_cost_weights.F 1937 ECCO_COST_WEIGHTS 
                 wobcsn(k,iobcs) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 1941 ECCO_COST_WEIGHTS 
              if (wobcss(k,iobcs) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 1942 ECCO_COST_WEIGHTS 
                 wobcss(k,iobcs) =
./pkg/ecco/ecco_cost_weights.F 1943 ECCO_COST_WEIGHTS 
     &                ratio/wobcss(k,iobcs)/wobcss(k,iobcs)
./pkg/ecco/ecco_cost_weights.F 1945 ECCO_COST_WEIGHTS 
                 wobcss(k,iobcs) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 1949 ECCO_COST_WEIGHTS 
              if (wobcsw(k,iobcs) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 1950 ECCO_COST_WEIGHTS 
                 wobcsw(k,iobcs) =
./pkg/ecco/ecco_cost_weights.F 1951 ECCO_COST_WEIGHTS 
     &                ratio/wobcsw(k,iobcs)/wobcsw(k,iobcs)
./pkg/ecco/ecco_cost_weights.F 1953 ECCO_COST_WEIGHTS 
                 wobcsw(k,iobcs) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 1957 ECCO_COST_WEIGHTS 
              if (wobcse(k,iobcs) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 1958 ECCO_COST_WEIGHTS 
                 wobcse(k,iobcs) =
./pkg/ecco/ecco_cost_weights.F 1959 ECCO_COST_WEIGHTS 
     &                ratio/wobcse(k,iobcs)/wobcse(k,iobcs)
./pkg/ecco/ecco_cost_weights.F 1961 ECCO_COST_WEIGHTS 
                 wobcse(k,iobcs) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 208 ECCO_COST_WEIGHTS 
      do iobcs = 1,nobcs
./pkg/ecco/ecco_cost_weights.F 212 ECCO_COST_WEIGHTS 
          wobcsn(k,iobcs) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 216 ECCO_COST_WEIGHTS 
          wobcss(k,iobcs) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 220 ECCO_COST_WEIGHTS 
          wobcsw(k,iobcs) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 224 ECCO_COST_WEIGHTS 
          wobcse(k,iobcs) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 58 ECCO_COST_WEIGHTS 
      integer iobcs