Symbol Description Uses
ivartype 227


File Line number Procedure Code
./pkg/ctrl/ctrl_set_pack_yz.F 158 CTRL_SET_PACK_YZ 
      nrec_nl=int(ncvarrecs(ivartype)/snx)
./pkg/ctrl/ctrl_set_pack_yz.F 191 CTRL_SET_PACK_YZ 
            write(cunit) ncvarindex(ivartype)
./pkg/ctrl/ctrl_set_pack_yz.F 249 CTRL_SET_PACK_YZ 
      do irec = nrec_nl*snx+1, ncvarrecs(ivartype)
./pkg/ctrl/ctrl_set_pack_yz.F 279 CTRL_SET_PACK_YZ 
         write(cunit) ncvarindex(ivartype)
./pkg/ctrl/ctrl_set_pack_yz.F 40 CTRL_SET_PACK_YZ 
      integer ivartype
./pkg/ctrl/ctrl_set_pack_yz.F 5 CTRL_SET_PACK_YZ 
     &     cunit, ivartype, fname, masktype, weighttype,
./pkg/ctrl/ctrl_set_unpack_xy.F 121 CTRL_SET_UNPACK_XY 
     &           ivartype, '_', optimcycle, '.bin'
./pkg/ctrl/ctrl_set_unpack_xy.F 124 CTRL_SET_UNPACK_XY 
     &           ivartype, '_', optimcycle, '.bin'
./pkg/ctrl/ctrl_set_unpack_xy.F 128 CTRL_SET_UNPACK_XY 
     &           ivartype, '_', optimcycle, '.bin'
./pkg/ctrl/ctrl_set_unpack_xy.F 131 CTRL_SET_UNPACK_XY 
     &           ivartype, '_', optimcycle, '.bin'
./pkg/ctrl/ctrl_set_unpack_xy.F 156 CTRL_SET_UNPACK_XY 
      nrec_nl=int(ncvarrecs(ivartype)/Nr)
./pkg/ctrl/ctrl_set_unpack_xy.F 160 CTRL_SET_UNPACK_XY 
         read(cunit) filencvarindex(ivartype)
./pkg/ctrl/ctrl_set_unpack_xy.F 161 CTRL_SET_UNPACK_XY 
         if (filencvarindex(ivartype) .NE. ncvarindex(ivartype))
./pkg/ctrl/ctrl_set_unpack_xy.F 164 CTRL_SET_UNPACK_XY 
     &           filencvarindex(ivartype), ncvarindex(ivartype)
./pkg/ctrl/ctrl_set_unpack_xy.F 236 CTRL_SET_UNPACK_XY 
      do irec = nrec_nl*Nr+1,ncvarrecs(ivartype)
./pkg/ctrl/ctrl_set_unpack_xy.F 238 CTRL_SET_UNPACK_XY 
         read(cunit) filencvarindex(ivartype)
./pkg/ctrl/ctrl_set_unpack_xy.F 239 CTRL_SET_UNPACK_XY 
         if (filencvarindex(ivartype) .NE. ncvarindex(ivartype))
./pkg/ctrl/ctrl_set_unpack_xy.F 242 CTRL_SET_UNPACK_XY 
     &           filencvarindex(ivartype), ncvarindex(ivartype)
./pkg/ctrl/ctrl_set_unpack_xy.F 38 CTRL_SET_UNPACK_XY 
      integer ivartype
./pkg/ctrl/ctrl_set_unpack_xy.F 5 CTRL_SET_UNPACK_XY 
     &     lxxadxx, cunit, ivartype, fname, masktype, weighttype,
./pkg/ctrl/ctrl_set_pack_xy.F 119 CTRL_SET_PACK_XY 
     &           ivartype, '_', optimcycle, '.bin'
./pkg/ctrl/ctrl_set_pack_xy.F 122 CTRL_SET_PACK_XY 
     &           ivartype, '_', optimcycle, '.bin'
./pkg/ctrl/ctrl_set_pack_xy.F 126 CTRL_SET_PACK_XY 
     &           ivartype, '_', optimcycle, '.bin'
./pkg/ctrl/ctrl_set_pack_xy.F 129 CTRL_SET_PACK_XY 
     &           ivartype, '_', optimcycle, '.bin'
./pkg/ctrl/ctrl_set_pack_xy.F 154 CTRL_SET_PACK_XY 
      nrec_nl=int(ncvarrecs(ivartype)/Nr)
./pkg/ctrl/ctrl_set_pack_xy.F 161 CTRL_SET_PACK_XY 
         write(cunit) ncvarindex(ivartype)
./pkg/ctrl/ctrl_set_pack_xy.F 217 CTRL_SET_PACK_XY 
      do irec = nrec_nl*Nr+1, ncvarrecs(ivartype)
./pkg/ctrl/ctrl_set_pack_xy.F 222 CTRL_SET_PACK_XY 
         write(cunit) ncvarindex(ivartype)
./pkg/ctrl/ctrl_set_pack_xy.F 37 CTRL_SET_PACK_XY 
      integer ivartype
./pkg/ctrl/ctrl_set_pack_xy.F 5 CTRL_SET_PACK_XY 
     &     cunit, ivartype, fname, masktype, weighttype,
./pkg/ctrl/ctrl_set_globfld_xyz.F 35 CTRL_SET_GLOBFLD_XYZ 
      integer ivartype
./pkg/ctrl/ctrl_set_globfld_xyz.F 84 CTRL_SET_GLOBFLD_XYZ 
      do irec = 1, ncvarrecs(ivartype)
./pkg/ctrl/ctrl_set_globfld_xyz.F 8 CTRL_SET_GLOBFLD_XYZ 
     I     fname, ivartype, mythid )
./pkg/ctrl/ctrl_set_unpack_xz.F 159 CTRL_SET_UNPACK_XZ 
      nrec_nl=int(ncvarrecs(ivartype)/sny)
./pkg/ctrl/ctrl_set_unpack_xz.F 166 CTRL_SET_UNPACK_XZ 
            read(cunit) filencvarindex(ivartype)
./pkg/ctrl/ctrl_set_unpack_xz.F 167 CTRL_SET_UNPACK_XZ 
            if (filencvarindex(ivartype) .NE. ncvarindex(ivartype))
./pkg/ctrl/ctrl_set_unpack_xz.F 170 CTRL_SET_UNPACK_XZ 
     &              filencvarindex(ivartype), ncvarindex(ivartype)
./pkg/ctrl/ctrl_set_unpack_xz.F 236 CTRL_SET_UNPACK_XZ 
      do irec = nrec_nl*sny+1, ncvarrecs(ivartype)
./pkg/ctrl/ctrl_set_unpack_xz.F 241 CTRL_SET_UNPACK_XZ 
         read(cunit) filencvarindex(ivartype)
./pkg/ctrl/ctrl_set_unpack_xz.F 242 CTRL_SET_UNPACK_XZ 
         if (filencvarindex(ivartype) .NE. ncvarindex(ivartype))
./pkg/ctrl/ctrl_set_unpack_xz.F 245 CTRL_SET_UNPACK_XZ 
     &           filencvarindex(ivartype), ncvarindex(ivartype)
./pkg/ctrl/ctrl_set_unpack_xz.F 39 CTRL_SET_UNPACK_XZ 
      integer ivartype
./pkg/ctrl/ctrl_set_unpack_xz.F 5 CTRL_SET_UNPACK_XZ 
     &     cunit, ivartype, fname, masktype, weighttype,
./pkg/ctrl/ctrl_pack.F 207 CTRL_PACK 
          ivartype = 1
./pkg/ctrl/ctrl_pack.F 211 CTRL_PACK 
     &         cunit, ivartype, fname_theta(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_pack.F 216 CTRL_PACK 
          ivartype = 2
./pkg/ctrl/ctrl_pack.F 220 CTRL_PACK 
     &         cunit, ivartype, fname_salt(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_pack.F 226 CTRL_PACK 
          ivartype = 3
./pkg/ctrl/ctrl_pack.F 230 CTRL_PACK 
     &         cunit, ivartype, fname_hflux(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_pack.F 236 CTRL_PACK 
          ivartype = 4
./pkg/ctrl/ctrl_pack.F 240 CTRL_PACK 
     &         cunit, ivartype, fname_sflux(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_pack.F 246 CTRL_PACK 
          ivartype = 5
./pkg/ctrl/ctrl_pack.F 250 CTRL_PACK 
     &         cunit, ivartype, fname_tauu(ictrlgrad), "maskCtrlW",
./pkg/ctrl/ctrl_pack.F 256 CTRL_PACK 
          ivartype = 6
./pkg/ctrl/ctrl_pack.F 260 CTRL_PACK 
     &         cunit, ivartype, fname_tauv(ictrlgrad), "maskCtrlS",
./pkg/ctrl/ctrl_pack.F 265 CTRL_PACK 
          ivartype = 7
./pkg/ctrl/ctrl_pack.F 269 CTRL_PACK 
     &         cunit, ivartype, fname_atemp(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_pack.F 274 CTRL_PACK 
          ivartype = 8
./pkg/ctrl/ctrl_pack.F 278 CTRL_PACK 
     &         cunit, ivartype, fname_aqh(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_pack.F 283 CTRL_PACK 
          ivartype = 9
./pkg/ctrl/ctrl_pack.F 287 CTRL_PACK 
     &         cunit, ivartype, fname_uwind(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_pack.F 292 CTRL_PACK 
          ivartype = 10
./pkg/ctrl/ctrl_pack.F 296 CTRL_PACK 
     &         cunit, ivartype, fname_vwind(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_pack.F 301 CTRL_PACK 
          ivartype = 11
./pkg/ctrl/ctrl_pack.F 305 CTRL_PACK 
     &         cunit, ivartype, fname_obcsn(ictrlgrad), "maskobcsn",
./pkg/ctrl/ctrl_pack.F 310 CTRL_PACK 
          ivartype = 12
./pkg/ctrl/ctrl_pack.F 314 CTRL_PACK 
     &         cunit, ivartype, fname_obcss(ictrlgrad), "maskobcss",
./pkg/ctrl/ctrl_pack.F 319 CTRL_PACK 
          ivartype = 13
./pkg/ctrl/ctrl_pack.F 323 CTRL_PACK 
     &         cunit, ivartype, fname_obcsw(ictrlgrad), "maskobcsw",
./pkg/ctrl/ctrl_pack.F 328 CTRL_PACK 
          ivartype = 14
./pkg/ctrl/ctrl_pack.F 332 CTRL_PACK 
     &         cunit, ivartype, fname_obcse(ictrlgrad), "maskobcse",
./pkg/ctrl/ctrl_pack.F 337 CTRL_PACK 
          ivartype = 15
./pkg/ctrl/ctrl_pack.F 341 CTRL_PACK 
     &         cunit, ivartype, fname_diffkr(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_pack.F 346 CTRL_PACK 
          ivartype = 16
./pkg/ctrl/ctrl_pack.F 350 CTRL_PACK 
     &         cunit, ivartype, fname_kapgm(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_pack.F 355 CTRL_PACK 
          ivartype = 17
./pkg/ctrl/ctrl_pack.F 359 CTRL_PACK 
     &         cunit, ivartype, fname_tr1(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_pack.F 364 CTRL_PACK 
          ivartype = 18
./pkg/ctrl/ctrl_pack.F 368 CTRL_PACK 
     &         cunit, ivartype, fname_sst(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_pack.F 373 CTRL_PACK 
          ivartype = 19
./pkg/ctrl/ctrl_pack.F 377 CTRL_PACK 
     &         cunit, ivartype, fname_sss(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_pack.F 382 CTRL_PACK 
          ivartype = 20
./pkg/ctrl/ctrl_pack.F 387 CTRL_PACK 
     &         cunit, ivartype, fname_hfacc(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_pack.F 391 CTRL_PACK 
     &         cunit, ivartype, fname_hfacc(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_pack.F 397 CTRL_PACK 
          ivartype = 21
./pkg/ctrl/ctrl_pack.F 401 CTRL_PACK 
     &         cunit, ivartype, fname_efluxy(ictrlgrad), "maskCtrlS",
./pkg/ctrl/ctrl_pack.F 406 CTRL_PACK 
          ivartype = 22
./pkg/ctrl/ctrl_pack.F 410 CTRL_PACK 
     &         cunit, ivartype, fname_efluxp(ictrlgrad), "maskhFacV",
./pkg/ctrl/ctrl_pack.F 415 CTRL_PACK 
          ivartype = 23
./pkg/ctrl/ctrl_pack.F 419 CTRL_PACK 
     &      cunit, ivartype, fname_bottomdrag(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_pack.F 424 CTRL_PACK 
          ivartype = 25
./pkg/ctrl/ctrl_pack.F 428 CTRL_PACK 
     &         cunit, ivartype, fname_edtaux(ictrlgrad), "maskCtrlW",
./pkg/ctrl/ctrl_pack.F 433 CTRL_PACK 
          ivartype = 26
./pkg/ctrl/ctrl_pack.F 437 CTRL_PACK 
     &         cunit, ivartype, fname_edtauy(ictrlgrad), "maskCtrlS",
./pkg/ctrl/ctrl_pack.F 442 CTRL_PACK 
          ivartype = 27
./pkg/ctrl/ctrl_pack.F 446 CTRL_PACK 
     &         cunit, ivartype, fname_uvel(ictrlgrad), "maskCtrlW",
./pkg/ctrl/ctrl_pack.F 451 CTRL_PACK 
          ivartype = 28
./pkg/ctrl/ctrl_pack.F 455 CTRL_PACK 
     &         cunit, ivartype, fname_vvel(ictrlgrad), "maskCtrlS",
./pkg/ctrl/ctrl_pack.F 460 CTRL_PACK 
          ivartype = 29
./pkg/ctrl/ctrl_pack.F 464 CTRL_PACK 
     &         cunit, ivartype, fname_etan(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_pack.F 469 CTRL_PACK 
          ivartype = 30
./pkg/ctrl/ctrl_pack.F 473 CTRL_PACK 
     &         cunit, ivartype, fname_relaxsst(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_pack.F 478 CTRL_PACK 
          ivartype = 31
./pkg/ctrl/ctrl_pack.F 482 CTRL_PACK 
     &         cunit, ivartype, fname_relaxsss(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_pack.F 71 CTRL_PACK 
      integer ivartype
./pkg/ctrl/ctrl_set_globfld_xy.F 104 CTRL_SET_GLOBFLD_XY 
      nrec_nl=int(ncvarrecs(ivartype)/Nr)
./pkg/ctrl/ctrl_set_globfld_xy.F 111 CTRL_SET_GLOBFLD_XY 
      do irec = nrec_nl*Nr+1, ncvarrecs(ivartype)
./pkg/ctrl/ctrl_set_globfld_xy.F 40 CTRL_SET_GLOBFLD_XY 
      integer ivartype
./pkg/ctrl/ctrl_set_globfld_xy.F 8 CTRL_SET_GLOBFLD_XY 
     I     fname, ivartype, mythid )
./pkg/ctrl/ctrl_set_globfld_yz.F 104 CTRL_SET_GLOBFLD_YZ 
      nrec_nl=int(ncvarrecs(ivartype)/snx)
./pkg/ctrl/ctrl_set_globfld_yz.F 111 CTRL_SET_GLOBFLD_YZ 
      do irec = nrec_nl*snx+1, ncvarrecs(ivartype)
./pkg/ctrl/ctrl_set_globfld_yz.F 40 CTRL_SET_GLOBFLD_YZ 
      integer ivartype
./pkg/ctrl/ctrl_set_globfld_yz.F 8 CTRL_SET_GLOBFLD_YZ 
     I     fname, ivartype, mythid )
./pkg/ctrl/ctrl_set_unpack_yz.F 159 CTRL_SET_UNPACK_YZ 
      nrec_nl=int(ncvarrecs(ivartype)/snx)
./pkg/ctrl/ctrl_set_unpack_yz.F 166 CTRL_SET_UNPACK_YZ 
            read(cunit) filencvarindex(ivartype)
./pkg/ctrl/ctrl_set_unpack_yz.F 167 CTRL_SET_UNPACK_YZ 
            if (filencvarindex(ivartype) .NE. ncvarindex(ivartype))
./pkg/ctrl/ctrl_set_unpack_yz.F 170 CTRL_SET_UNPACK_YZ 
     &              filencvarindex(ivartype), ncvarindex(ivartype)
./pkg/ctrl/ctrl_set_unpack_yz.F 237 CTRL_SET_UNPACK_YZ 
      do irec = nrec_nl*snx+1,ncvarrecs(ivartype)
./pkg/ctrl/ctrl_set_unpack_yz.F 240 CTRL_SET_UNPACK_YZ 
         read(cunit) filencvarindex(ivartype)
./pkg/ctrl/ctrl_set_unpack_yz.F 241 CTRL_SET_UNPACK_YZ 
         if (filencvarindex(ivartype) .NE. ncvarindex(ivartype))
./pkg/ctrl/ctrl_set_unpack_yz.F 244 CTRL_SET_UNPACK_YZ 
     &           filencvarindex(ivartype), ncvarindex(ivartype)
./pkg/ctrl/ctrl_set_unpack_yz.F 39 CTRL_SET_UNPACK_YZ 
      integer ivartype
./pkg/ctrl/ctrl_set_unpack_yz.F 5 CTRL_SET_UNPACK_YZ 
     &     cunit, ivartype, fname, masktype, weighttype,
./pkg/ctrl/ctrl_set_unpack_xyz.F 136 CTRL_SET_UNPACK_XYZ 
     &           ivartype, '_', optimcycle, '.bin'
./pkg/ctrl/ctrl_set_unpack_xyz.F 139 CTRL_SET_UNPACK_XYZ 
     &           ivartype, '_', optimcycle, '.bin'
./pkg/ctrl/ctrl_set_unpack_xyz.F 143 CTRL_SET_UNPACK_XYZ 
     &           ivartype, '_', optimcycle, '.bin'
./pkg/ctrl/ctrl_set_unpack_xyz.F 146 CTRL_SET_UNPACK_XYZ 
     &           ivartype, '_', optimcycle, '.bin'
./pkg/ctrl/ctrl_set_unpack_xyz.F 172 CTRL_SET_UNPACK_XYZ 
      do irec = 1, ncvarrecs(ivartype)
./pkg/ctrl/ctrl_set_unpack_xyz.F 173 CTRL_SET_UNPACK_XYZ 
         read(cunit) filencvarindex(ivartype)
./pkg/ctrl/ctrl_set_unpack_xyz.F 174 CTRL_SET_UNPACK_XYZ 
         if (filencvarindex(ivartype) .NE. ncvarindex(ivartype))
./pkg/ctrl/ctrl_set_unpack_xyz.F 177 CTRL_SET_UNPACK_XYZ 
     &           filencvarindex(ivartype), ncvarindex(ivartype)
./pkg/ctrl/ctrl_set_unpack_xyz.F 37 CTRL_SET_UNPACK_XYZ 
      integer ivartype
./pkg/ctrl/ctrl_set_unpack_xyz.F 5 CTRL_SET_UNPACK_XYZ 
     &     lxxadxx, cunit, ivartype, fname, masktype, weighttype,
./pkg/ctrl/ctrl_set_globfld_xz.F 104 CTRL_SET_GLOBFLD_XZ 
      nrec_nl=int(ncvarrecs(ivartype)/sny)
./pkg/ctrl/ctrl_set_globfld_xz.F 111 CTRL_SET_GLOBFLD_XZ 
      do irec = nrec_nl*sny+1, ncvarrecs(ivartype)
./pkg/ctrl/ctrl_set_globfld_xz.F 40 CTRL_SET_GLOBFLD_XZ 
      integer ivartype
./pkg/ctrl/ctrl_set_globfld_xz.F 8 CTRL_SET_GLOBFLD_XZ 
     I     fname, ivartype, mythid )
./pkg/ctrl/ctrl_set_pack_xyz.F 128 CTRL_SET_PACK_XYZ 
     &           ivartype, '_', optimcycle, '.bin'
./pkg/ctrl/ctrl_set_pack_xyz.F 131 CTRL_SET_PACK_XYZ 
     &           ivartype, '_', optimcycle, '.bin'
./pkg/ctrl/ctrl_set_pack_xyz.F 135 CTRL_SET_PACK_XYZ 
     &           ivartype, '_', optimcycle, '.bin'
./pkg/ctrl/ctrl_set_pack_xyz.F 138 CTRL_SET_PACK_XYZ 
     &           ivartype, '_', optimcycle, '.bin'
./pkg/ctrl/ctrl_set_pack_xyz.F 164 CTRL_SET_PACK_XYZ 
      do irec = 1, ncvarrecs(ivartype)
./pkg/ctrl/ctrl_set_pack_xyz.F 169 CTRL_SET_PACK_XYZ 
         write(cunit) ncvarindex(ivartype)
./pkg/ctrl/ctrl_set_pack_xyz.F 37 CTRL_SET_PACK_XYZ 
      integer ivartype
./pkg/ctrl/ctrl_set_pack_xyz.F 5 CTRL_SET_PACK_XYZ 
     &     cunit, ivartype, fname, masktype, weighttype,
./pkg/ctrl/ctrl_set_pack_xz.F 159 CTRL_SET_PACK_XZ 
      nrec_nl=int(ncvarrecs(ivartype)/sny)
./pkg/ctrl/ctrl_set_pack_xz.F 188 CTRL_SET_PACK_XZ 
            write(cunit) ncvarindex(ivartype)
./pkg/ctrl/ctrl_set_pack_xz.F 242 CTRL_SET_PACK_XZ 
      do irec = nrec_nl*sny+1, ncvarrecs(ivartype)
./pkg/ctrl/ctrl_set_pack_xz.F 272 CTRL_SET_PACK_XZ 
         write(cunit) ncvarindex(ivartype)
./pkg/ctrl/ctrl_set_pack_xz.F 40 CTRL_SET_PACK_XZ 
      integer ivartype
./pkg/ctrl/ctrl_set_pack_xz.F 5 CTRL_SET_PACK_XZ 
     &     cunit, ivartype, fname, masktype,weighttype,
./pkg/ctrl/ctrl_unpack.F 299 CTRL_UNPACK 
          ivartype = 1
./pkg/ctrl/ctrl_unpack.F 302 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 308 CTRL_UNPACK 
          ivartype = 2
./pkg/ctrl/ctrl_unpack.F 311 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 318 CTRL_UNPACK 
          ivartype    = 3
./pkg/ctrl/ctrl_unpack.F 321 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 328 CTRL_UNPACK 
          ivartype = 4
./pkg/ctrl/ctrl_unpack.F 331 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 338 CTRL_UNPACK 
          ivartype = 5
./pkg/ctrl/ctrl_unpack.F 341 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 348 CTRL_UNPACK 
          ivartype = 6
./pkg/ctrl/ctrl_unpack.F 351 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 357 CTRL_UNPACK 
          ivartype    = 7
./pkg/ctrl/ctrl_unpack.F 360 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 366 CTRL_UNPACK 
          ivartype    = 8
./pkg/ctrl/ctrl_unpack.F 369 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 375 CTRL_UNPACK 
          ivartype    = 9
./pkg/ctrl/ctrl_unpack.F 378 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 384 CTRL_UNPACK 
          ivartype    = 10
./pkg/ctrl/ctrl_unpack.F 387 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 393 CTRL_UNPACK 
          ivartype    = 11
./pkg/ctrl/ctrl_unpack.F 397 CTRL_UNPACK 
     &         cunit, ivartype, fname_obcsn(ictrlgrad), "maskobcsn",
./pkg/ctrl/ctrl_unpack.F 402 CTRL_UNPACK 
          ivartype    = 12
./pkg/ctrl/ctrl_unpack.F 406 CTRL_UNPACK 
     &         cunit, ivartype, fname_obcss(ictrlgrad), "maskobcss",
./pkg/ctrl/ctrl_unpack.F 411 CTRL_UNPACK 
          ivartype    = 13
./pkg/ctrl/ctrl_unpack.F 415 CTRL_UNPACK 
     &         cunit, ivartype, fname_obcsw(ictrlgrad), "maskobcsw",
./pkg/ctrl/ctrl_unpack.F 420 CTRL_UNPACK 
          ivartype    = 14
./pkg/ctrl/ctrl_unpack.F 424 CTRL_UNPACK 
     &         cunit, ivartype, fname_obcse(ictrlgrad), "maskobcse",
./pkg/ctrl/ctrl_unpack.F 429 CTRL_UNPACK 
          ivartype    = 15
./pkg/ctrl/ctrl_unpack.F 432 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 438 CTRL_UNPACK 
          ivartype    = 16
./pkg/ctrl/ctrl_unpack.F 441 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 447 CTRL_UNPACK 
          ivartype    = 17
./pkg/ctrl/ctrl_unpack.F 450 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 456 CTRL_UNPACK 
          ivartype    = 18
./pkg/ctrl/ctrl_unpack.F 459 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 465 CTRL_UNPACK 
          ivartype    = 19
./pkg/ctrl/ctrl_unpack.F 468 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 474 CTRL_UNPACK 
          ivartype    = 20
./pkg/ctrl/ctrl_unpack.F 478 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 482 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 489 CTRL_UNPACK 
          ivartype    = 21
./pkg/ctrl/ctrl_unpack.F 492 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 498 CTRL_UNPACK 
          ivartype    = 22
./pkg/ctrl/ctrl_unpack.F 501 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 507 CTRL_UNPACK 
          ivartype    = 23
./pkg/ctrl/ctrl_unpack.F 510 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 516 CTRL_UNPACK 
          ivartype    = 25
./pkg/ctrl/ctrl_unpack.F 519 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 525 CTRL_UNPACK 
          ivartype    = 26
./pkg/ctrl/ctrl_unpack.F 528 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 534 CTRL_UNPACK 
          ivartype = 27
./pkg/ctrl/ctrl_unpack.F 537 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 543 CTRL_UNPACK 
          ivartype = 28
./pkg/ctrl/ctrl_unpack.F 546 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 552 CTRL_UNPACK 
          ivartype = 29
./pkg/ctrl/ctrl_unpack.F 555 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 561 CTRL_UNPACK 
          ivartype = 30
./pkg/ctrl/ctrl_unpack.F 564 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 570 CTRL_UNPACK 
          ivartype = 31
./pkg/ctrl/ctrl_unpack.F 573 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 73 CTRL_UNPACK 
      integer ivartype