Symbol Description Uses
ivartype 373


File Line number Procedure Code
./pkg/admtlm/admtlm_dsvd2model.F 332 ADMTLM_DSVD2MODEL 
          ivartype = 1
./pkg/admtlm/admtlm_dsvd2model.F 335 ADMTLM_DSVD2MODEL 
          call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype,
./pkg/admtlm/admtlm_dsvd2model.F 341 ADMTLM_DSVD2MODEL 
          ivartype = 2
./pkg/admtlm/admtlm_dsvd2model.F 344 ADMTLM_DSVD2MODEL 
          call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype,
./pkg/admtlm/admtlm_dsvd2model.F 350 ADMTLM_DSVD2MODEL 
          ivartype    = 3
./pkg/admtlm/admtlm_dsvd2model.F 353 ADMTLM_DSVD2MODEL 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/admtlm/admtlm_dsvd2model.F 359 ADMTLM_DSVD2MODEL 
          ivartype = 4
./pkg/admtlm/admtlm_dsvd2model.F 362 ADMTLM_DSVD2MODEL 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/admtlm/admtlm_dsvd2model.F 368 ADMTLM_DSVD2MODEL 
          ivartype = 5
./pkg/admtlm/admtlm_dsvd2model.F 371 ADMTLM_DSVD2MODEL 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/admtlm/admtlm_dsvd2model.F 377 ADMTLM_DSVD2MODEL 
          ivartype = 6
./pkg/admtlm/admtlm_dsvd2model.F 380 ADMTLM_DSVD2MODEL 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/admtlm/admtlm_dsvd2model.F 386 ADMTLM_DSVD2MODEL 
          ivartype    = 7
./pkg/admtlm/admtlm_dsvd2model.F 389 ADMTLM_DSVD2MODEL 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/admtlm/admtlm_dsvd2model.F 395 ADMTLM_DSVD2MODEL 
          ivartype    = 8
./pkg/admtlm/admtlm_dsvd2model.F 398 ADMTLM_DSVD2MODEL 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/admtlm/admtlm_dsvd2model.F 404 ADMTLM_DSVD2MODEL 
          ivartype    = 9
./pkg/admtlm/admtlm_dsvd2model.F 407 ADMTLM_DSVD2MODEL 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/admtlm/admtlm_dsvd2model.F 413 ADMTLM_DSVD2MODEL 
          ivartype    = 10
./pkg/admtlm/admtlm_dsvd2model.F 416 ADMTLM_DSVD2MODEL 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/admtlm/admtlm_dsvd2model.F 422 ADMTLM_DSVD2MODEL 
          ivartype    = 11
./pkg/admtlm/admtlm_dsvd2model.F 426 ADMTLM_DSVD2MODEL 
     &         cunit, ivartype, fname_obcsn(ictrlgrad), "maskobcsn",
./pkg/admtlm/admtlm_dsvd2model.F 431 ADMTLM_DSVD2MODEL 
          ivartype    = 12
./pkg/admtlm/admtlm_dsvd2model.F 435 ADMTLM_DSVD2MODEL 
     &         cunit, ivartype, fname_obcss(ictrlgrad), "maskobcss",
./pkg/admtlm/admtlm_dsvd2model.F 440 ADMTLM_DSVD2MODEL 
          ivartype    = 13
./pkg/admtlm/admtlm_dsvd2model.F 444 ADMTLM_DSVD2MODEL 
     &         cunit, ivartype, fname_obcsw(ictrlgrad), "maskobcsw",
./pkg/admtlm/admtlm_dsvd2model.F 449 ADMTLM_DSVD2MODEL 
          ivartype    = 14
./pkg/admtlm/admtlm_dsvd2model.F 453 ADMTLM_DSVD2MODEL 
     &         cunit, ivartype, fname_obcse(ictrlgrad), "maskobcse",
./pkg/admtlm/admtlm_dsvd2model.F 458 ADMTLM_DSVD2MODEL 
          ivartype    = 15
./pkg/admtlm/admtlm_dsvd2model.F 461 ADMTLM_DSVD2MODEL 
          call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype,
./pkg/admtlm/admtlm_dsvd2model.F 467 ADMTLM_DSVD2MODEL 
          ivartype    = 16
./pkg/admtlm/admtlm_dsvd2model.F 470 ADMTLM_DSVD2MODEL 
          call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype,
./pkg/admtlm/admtlm_dsvd2model.F 476 ADMTLM_DSVD2MODEL 
          ivartype    = 17
./pkg/admtlm/admtlm_dsvd2model.F 479 ADMTLM_DSVD2MODEL 
          call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype,
./pkg/admtlm/admtlm_dsvd2model.F 485 ADMTLM_DSVD2MODEL 
          ivartype    = 18
./pkg/admtlm/admtlm_dsvd2model.F 488 ADMTLM_DSVD2MODEL 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/admtlm/admtlm_dsvd2model.F 494 ADMTLM_DSVD2MODEL 
          ivartype    = 19
./pkg/admtlm/admtlm_dsvd2model.F 497 ADMTLM_DSVD2MODEL 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/admtlm/admtlm_dsvd2model.F 503 ADMTLM_DSVD2MODEL 
          ivartype    = 20
./pkg/admtlm/admtlm_dsvd2model.F 507 ADMTLM_DSVD2MODEL 
          call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype,
./pkg/admtlm/admtlm_dsvd2model.F 511 ADMTLM_DSVD2MODEL 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/admtlm/admtlm_dsvd2model.F 518 ADMTLM_DSVD2MODEL 
          ivartype    = 21
./pkg/admtlm/admtlm_dsvd2model.F 521 ADMTLM_DSVD2MODEL 
          call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype,
./pkg/admtlm/admtlm_dsvd2model.F 527 ADMTLM_DSVD2MODEL 
          ivartype    = 22
./pkg/admtlm/admtlm_dsvd2model.F 530 ADMTLM_DSVD2MODEL 
          call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype,
./pkg/admtlm/admtlm_dsvd2model.F 536 ADMTLM_DSVD2MODEL 
          ivartype    = 23
./pkg/admtlm/admtlm_dsvd2model.F 539 ADMTLM_DSVD2MODEL 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/admtlm/admtlm_dsvd2model.F 545 ADMTLM_DSVD2MODEL 
          ivartype    = 25
./pkg/admtlm/admtlm_dsvd2model.F 548 ADMTLM_DSVD2MODEL 
          call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype,
./pkg/admtlm/admtlm_dsvd2model.F 554 ADMTLM_DSVD2MODEL 
          ivartype    = 26
./pkg/admtlm/admtlm_dsvd2model.F 557 ADMTLM_DSVD2MODEL 
          call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype,
./pkg/admtlm/admtlm_dsvd2model.F 563 ADMTLM_DSVD2MODEL 
          ivartype = 27
./pkg/admtlm/admtlm_dsvd2model.F 566 ADMTLM_DSVD2MODEL 
          call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype,
./pkg/admtlm/admtlm_dsvd2model.F 572 ADMTLM_DSVD2MODEL 
          ivartype = 28
./pkg/admtlm/admtlm_dsvd2model.F 575 ADMTLM_DSVD2MODEL 
          call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype,
./pkg/admtlm/admtlm_dsvd2model.F 581 ADMTLM_DSVD2MODEL 
          ivartype = 29
./pkg/admtlm/admtlm_dsvd2model.F 584 ADMTLM_DSVD2MODEL 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/admtlm/admtlm_dsvd2model.F 590 ADMTLM_DSVD2MODEL 
          ivartype = 30
./pkg/admtlm/admtlm_dsvd2model.F 593 ADMTLM_DSVD2MODEL 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/admtlm/admtlm_dsvd2model.F 599 ADMTLM_DSVD2MODEL 
          ivartype = 31
./pkg/admtlm/admtlm_dsvd2model.F 602 ADMTLM_DSVD2MODEL 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/admtlm/admtlm_dsvd2model.F 608 ADMTLM_DSVD2MODEL 
          ivartype    = 32
./pkg/admtlm/admtlm_dsvd2model.F 611 ADMTLM_DSVD2MODEL 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/admtlm/admtlm_dsvd2model.F 617 ADMTLM_DSVD2MODEL 
          ivartype    = 33
./pkg/admtlm/admtlm_dsvd2model.F 620 ADMTLM_DSVD2MODEL 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/admtlm/admtlm_dsvd2model.F 626 ADMTLM_DSVD2MODEL 
          ivartype    = 34
./pkg/admtlm/admtlm_dsvd2model.F 629 ADMTLM_DSVD2MODEL 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/admtlm/admtlm_dsvd2model.F 75 ADMTLM_DSVD2MODEL 
      integer ivartype
./pkg/admtlm/admtlm_model2dsvd.F 244 ADMTLM_MODEL2DSVD 
          ivartype = 1
./pkg/admtlm/admtlm_model2dsvd.F 248 ADMTLM_MODEL2DSVD 
     &         cunit, ivartype, fname_theta(ictrlgrad), "maskCtrlC",
./pkg/admtlm/admtlm_model2dsvd.F 253 ADMTLM_MODEL2DSVD 
          ivartype = 2
./pkg/admtlm/admtlm_model2dsvd.F 257 ADMTLM_MODEL2DSVD 
     &         cunit, ivartype, fname_salt(ictrlgrad), "maskCtrlC",
./pkg/admtlm/admtlm_model2dsvd.F 262 ADMTLM_MODEL2DSVD 
          ivartype = 3
./pkg/admtlm/admtlm_model2dsvd.F 266 ADMTLM_MODEL2DSVD 
     &         cunit, ivartype, fname_hflux(ictrlgrad), "maskCtrlC",
./pkg/admtlm/admtlm_model2dsvd.F 271 ADMTLM_MODEL2DSVD 
          ivartype = 4
./pkg/admtlm/admtlm_model2dsvd.F 275 ADMTLM_MODEL2DSVD 
     &         cunit, ivartype, fname_sflux(ictrlgrad), "maskCtrlC",
./pkg/admtlm/admtlm_model2dsvd.F 280 ADMTLM_MODEL2DSVD 
          ivartype = 5
./pkg/admtlm/admtlm_model2dsvd.F 284 ADMTLM_MODEL2DSVD 
     &         cunit, ivartype, fname_tauu(ictrlgrad), "maskCtrlW",
./pkg/admtlm/admtlm_model2dsvd.F 289 ADMTLM_MODEL2DSVD 
          ivartype = 6
./pkg/admtlm/admtlm_model2dsvd.F 293 ADMTLM_MODEL2DSVD 
     &         cunit, ivartype, fname_tauv(ictrlgrad), "maskCtrlS",
./pkg/admtlm/admtlm_model2dsvd.F 298 ADMTLM_MODEL2DSVD 
          ivartype = 7
./pkg/admtlm/admtlm_model2dsvd.F 302 ADMTLM_MODEL2DSVD 
     &         cunit, ivartype, fname_atemp(ictrlgrad), "maskCtrlC",
./pkg/admtlm/admtlm_model2dsvd.F 307 ADMTLM_MODEL2DSVD 
          ivartype = 8
./pkg/admtlm/admtlm_model2dsvd.F 311 ADMTLM_MODEL2DSVD 
     &         cunit, ivartype, fname_aqh(ictrlgrad), "maskCtrlC",
./pkg/admtlm/admtlm_model2dsvd.F 316 ADMTLM_MODEL2DSVD 
          ivartype = 9
./pkg/admtlm/admtlm_model2dsvd.F 320 ADMTLM_MODEL2DSVD 
     &         cunit, ivartype, fname_uwind(ictrlgrad), "maskCtrlC",
./pkg/admtlm/admtlm_model2dsvd.F 325 ADMTLM_MODEL2DSVD 
          ivartype = 10
./pkg/admtlm/admtlm_model2dsvd.F 329 ADMTLM_MODEL2DSVD 
     &         cunit, ivartype, fname_vwind(ictrlgrad), "maskCtrlC",
./pkg/admtlm/admtlm_model2dsvd.F 334 ADMTLM_MODEL2DSVD 
          ivartype = 11
./pkg/admtlm/admtlm_model2dsvd.F 338 ADMTLM_MODEL2DSVD 
     &         cunit, ivartype, fname_obcsn(ictrlgrad), "maskobcsn",
./pkg/admtlm/admtlm_model2dsvd.F 343 ADMTLM_MODEL2DSVD 
          ivartype = 12
./pkg/admtlm/admtlm_model2dsvd.F 347 ADMTLM_MODEL2DSVD 
     &         cunit, ivartype, fname_obcss(ictrlgrad), "maskobcss",
./pkg/admtlm/admtlm_model2dsvd.F 352 ADMTLM_MODEL2DSVD 
          ivartype = 13
./pkg/admtlm/admtlm_model2dsvd.F 356 ADMTLM_MODEL2DSVD 
     &         cunit, ivartype, fname_obcsw(ictrlgrad), "maskobcsw",
./pkg/admtlm/admtlm_model2dsvd.F 361 ADMTLM_MODEL2DSVD 
          ivartype = 14
./pkg/admtlm/admtlm_model2dsvd.F 365 ADMTLM_MODEL2DSVD 
     &         cunit, ivartype, fname_obcse(ictrlgrad), "maskobcse",
./pkg/admtlm/admtlm_model2dsvd.F 370 ADMTLM_MODEL2DSVD 
          ivartype = 15
./pkg/admtlm/admtlm_model2dsvd.F 374 ADMTLM_MODEL2DSVD 
     &         cunit, ivartype, fname_diffkr(ictrlgrad), "maskCtrlC",
./pkg/admtlm/admtlm_model2dsvd.F 379 ADMTLM_MODEL2DSVD 
          ivartype = 16
./pkg/admtlm/admtlm_model2dsvd.F 383 ADMTLM_MODEL2DSVD 
     &         cunit, ivartype, fname_kapgm(ictrlgrad), "maskCtrlC",
./pkg/admtlm/admtlm_model2dsvd.F 388 ADMTLM_MODEL2DSVD 
          ivartype = 17
./pkg/admtlm/admtlm_model2dsvd.F 392 ADMTLM_MODEL2DSVD 
     &         cunit, ivartype, fname_tr1(ictrlgrad), "maskCtrlC",
./pkg/admtlm/admtlm_model2dsvd.F 397 ADMTLM_MODEL2DSVD 
          ivartype = 18
./pkg/admtlm/admtlm_model2dsvd.F 401 ADMTLM_MODEL2DSVD 
     &         cunit, ivartype, fname_sst(ictrlgrad), "maskCtrlC",
./pkg/admtlm/admtlm_model2dsvd.F 406 ADMTLM_MODEL2DSVD 
          ivartype = 19
./pkg/admtlm/admtlm_model2dsvd.F 410 ADMTLM_MODEL2DSVD 
     &         cunit, ivartype, fname_sss(ictrlgrad), "maskCtrlC",
./pkg/admtlm/admtlm_model2dsvd.F 415 ADMTLM_MODEL2DSVD 
          ivartype = 20
./pkg/admtlm/admtlm_model2dsvd.F 420 ADMTLM_MODEL2DSVD 
     &         cunit, ivartype, fname_hfacc(ictrlgrad), "maskCtrlC",
./pkg/admtlm/admtlm_model2dsvd.F 424 ADMTLM_MODEL2DSVD 
     &         cunit, ivartype, fname_hfacc(ictrlgrad), "maskCtrlC",
./pkg/admtlm/admtlm_model2dsvd.F 430 ADMTLM_MODEL2DSVD 
          ivartype = 21
./pkg/admtlm/admtlm_model2dsvd.F 434 ADMTLM_MODEL2DSVD 
     &         cunit, ivartype, fname_efluxy(ictrlgrad), "maskCtrlS",
./pkg/admtlm/admtlm_model2dsvd.F 439 ADMTLM_MODEL2DSVD 
          ivartype = 22
./pkg/admtlm/admtlm_model2dsvd.F 443 ADMTLM_MODEL2DSVD 
     &         cunit, ivartype, fname_efluxp(ictrlgrad), "maskhFacV",
./pkg/admtlm/admtlm_model2dsvd.F 448 ADMTLM_MODEL2DSVD 
          ivartype = 23
./pkg/admtlm/admtlm_model2dsvd.F 452 ADMTLM_MODEL2DSVD 
     &      cunit, ivartype, fname_bottomdrag(ictrlgrad), "maskCtrlC",
./pkg/admtlm/admtlm_model2dsvd.F 457 ADMTLM_MODEL2DSVD 
          ivartype = 25
./pkg/admtlm/admtlm_model2dsvd.F 461 ADMTLM_MODEL2DSVD 
     &         cunit, ivartype, fname_edtaux(ictrlgrad), "maskCtrlW",
./pkg/admtlm/admtlm_model2dsvd.F 466 ADMTLM_MODEL2DSVD 
          ivartype = 26
./pkg/admtlm/admtlm_model2dsvd.F 470 ADMTLM_MODEL2DSVD 
     &         cunit, ivartype, fname_edtauy(ictrlgrad), "maskCtrlS",
./pkg/admtlm/admtlm_model2dsvd.F 475 ADMTLM_MODEL2DSVD 
          ivartype = 27
./pkg/admtlm/admtlm_model2dsvd.F 479 ADMTLM_MODEL2DSVD 
     &         cunit, ivartype, fname_uvel(ictrlgrad), "maskCtrlW",
./pkg/admtlm/admtlm_model2dsvd.F 484 ADMTLM_MODEL2DSVD 
          ivartype = 28
./pkg/admtlm/admtlm_model2dsvd.F 488 ADMTLM_MODEL2DSVD 
     &         cunit, ivartype, fname_vvel(ictrlgrad), "maskCtrlS",
./pkg/admtlm/admtlm_model2dsvd.F 493 ADMTLM_MODEL2DSVD 
          ivartype = 29
./pkg/admtlm/admtlm_model2dsvd.F 497 ADMTLM_MODEL2DSVD 
     &         cunit, ivartype, fname_etan(ictrlgrad), "maskCtrlC",
./pkg/admtlm/admtlm_model2dsvd.F 502 ADMTLM_MODEL2DSVD 
          ivartype = 30
./pkg/admtlm/admtlm_model2dsvd.F 506 ADMTLM_MODEL2DSVD 
     &         cunit, ivartype, fname_relaxsst(ictrlgrad), "maskCtrlC",
./pkg/admtlm/admtlm_model2dsvd.F 511 ADMTLM_MODEL2DSVD 
          ivartype = 31
./pkg/admtlm/admtlm_model2dsvd.F 515 ADMTLM_MODEL2DSVD 
     &         cunit, ivartype, fname_relaxsss(ictrlgrad), "maskCtrlC",
./pkg/admtlm/admtlm_model2dsvd.F 520 ADMTLM_MODEL2DSVD 
          ivartype = 32
./pkg/admtlm/admtlm_model2dsvd.F 524 ADMTLM_MODEL2DSVD 
     &         cunit, ivartype, fname_precip(ictrlgrad), "maskCtrlC",
./pkg/admtlm/admtlm_model2dsvd.F 529 ADMTLM_MODEL2DSVD 
          ivartype = 33
./pkg/admtlm/admtlm_model2dsvd.F 533 ADMTLM_MODEL2DSVD 
     &         cunit, ivartype, fname_swflux(ictrlgrad), "maskCtrlC",
./pkg/admtlm/admtlm_model2dsvd.F 538 ADMTLM_MODEL2DSVD 
          ivartype = 34
./pkg/admtlm/admtlm_model2dsvd.F 542 ADMTLM_MODEL2DSVD 
     &         cunit, ivartype, fname_swdown(ictrlgrad), "maskCtrlC",
./pkg/admtlm/admtlm_model2dsvd.F 73 ADMTLM_MODEL2DSVD 
      integer ivartype
./pkg/ctrl/ctrl_set_globfld_yz.F 104 CTRL_SET_GLOBFLD_YZ 
      nrec_nl=int(ncvarrecs(ivartype)/Nx)
./pkg/ctrl/ctrl_set_globfld_yz.F 111 CTRL_SET_GLOBFLD_YZ 
      do irec = nrec_nl*Nx+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_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_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 162 CTRL_SET_PACK_XY 
         write(cunit) ncvarindex(ivartype)
./pkg/ctrl/ctrl_set_pack_xy.F 226 CTRL_SET_PACK_XY 
      do irec = nrec_nl*Nr+1, ncvarrecs(ivartype)
./pkg/ctrl/ctrl_set_pack_xy.F 232 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_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 174 CTRL_SET_UNPACK_XYZ 
         read(cunit) filencvarindex(ivartype)
./pkg/ctrl/ctrl_set_unpack_xyz.F 175 CTRL_SET_UNPACK_XYZ 
         if (filencvarindex(ivartype) .NE. ncvarindex(ivartype))
./pkg/ctrl/ctrl_set_unpack_xyz.F 178 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_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_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 170 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_unpack.F 302 CTRL_UNPACK 
          ivartype = 1
./pkg/ctrl/ctrl_unpack.F 305 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 311 CTRL_UNPACK 
          ivartype = 2
./pkg/ctrl/ctrl_unpack.F 314 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 320 CTRL_UNPACK 
          ivartype    = 3
./pkg/ctrl/ctrl_unpack.F 323 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 329 CTRL_UNPACK 
          ivartype = 4
./pkg/ctrl/ctrl_unpack.F 332 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 347 CTRL_UNPACK 
          ivartype = 6
./pkg/ctrl/ctrl_unpack.F 350 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 356 CTRL_UNPACK 
          ivartype    = 7
./pkg/ctrl/ctrl_unpack.F 359 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 365 CTRL_UNPACK 
          ivartype    = 8
./pkg/ctrl/ctrl_unpack.F 368 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 374 CTRL_UNPACK 
          ivartype    = 9
./pkg/ctrl/ctrl_unpack.F 377 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 383 CTRL_UNPACK 
          ivartype    = 10
./pkg/ctrl/ctrl_unpack.F 386 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 392 CTRL_UNPACK 
          ivartype    = 11
./pkg/ctrl/ctrl_unpack.F 396 CTRL_UNPACK 
     &         cunit, ivartype, fname_obcsn(ictrlgrad), "maskobcsn",
./pkg/ctrl/ctrl_unpack.F 401 CTRL_UNPACK 
          ivartype    = 12
./pkg/ctrl/ctrl_unpack.F 405 CTRL_UNPACK 
     &         cunit, ivartype, fname_obcss(ictrlgrad), "maskobcss",
./pkg/ctrl/ctrl_unpack.F 410 CTRL_UNPACK 
          ivartype    = 13
./pkg/ctrl/ctrl_unpack.F 414 CTRL_UNPACK 
     &         cunit, ivartype, fname_obcsw(ictrlgrad), "maskobcsw",
./pkg/ctrl/ctrl_unpack.F 419 CTRL_UNPACK 
          ivartype    = 14
./pkg/ctrl/ctrl_unpack.F 423 CTRL_UNPACK 
     &         cunit, ivartype, fname_obcse(ictrlgrad), "maskobcse",
./pkg/ctrl/ctrl_unpack.F 428 CTRL_UNPACK 
          ivartype    = 15
./pkg/ctrl/ctrl_unpack.F 431 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 437 CTRL_UNPACK 
          ivartype    = 16
./pkg/ctrl/ctrl_unpack.F 440 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 446 CTRL_UNPACK 
          ivartype    = 17
./pkg/ctrl/ctrl_unpack.F 449 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 455 CTRL_UNPACK 
          ivartype    = 18
./pkg/ctrl/ctrl_unpack.F 458 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 464 CTRL_UNPACK 
          ivartype    = 19
./pkg/ctrl/ctrl_unpack.F 467 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 473 CTRL_UNPACK 
          ivartype    = 20
./pkg/ctrl/ctrl_unpack.F 476 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 483 CTRL_UNPACK 
          ivartype    = 21
./pkg/ctrl/ctrl_unpack.F 486 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 492 CTRL_UNPACK 
          ivartype    = 22
./pkg/ctrl/ctrl_unpack.F 495 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 501 CTRL_UNPACK 
          ivartype    = 23
./pkg/ctrl/ctrl_unpack.F 504 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 510 CTRL_UNPACK 
          ivartype    = 25
./pkg/ctrl/ctrl_unpack.F 513 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 519 CTRL_UNPACK 
          ivartype    = 26
./pkg/ctrl/ctrl_unpack.F 522 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 528 CTRL_UNPACK 
          ivartype = 27
./pkg/ctrl/ctrl_unpack.F 531 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 537 CTRL_UNPACK 
          ivartype = 28
./pkg/ctrl/ctrl_unpack.F 540 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 546 CTRL_UNPACK 
          ivartype = 29
./pkg/ctrl/ctrl_unpack.F 549 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 555 CTRL_UNPACK 
          ivartype = 30
./pkg/ctrl/ctrl_unpack.F 558 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 564 CTRL_UNPACK 
          ivartype = 31
./pkg/ctrl/ctrl_unpack.F 567 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 573 CTRL_UNPACK 
          ivartype    = 32
./pkg/ctrl/ctrl_unpack.F 576 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 582 CTRL_UNPACK 
          ivartype    = 33
./pkg/ctrl/ctrl_unpack.F 585 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 591 CTRL_UNPACK 
          ivartype    = 34
./pkg/ctrl/ctrl_unpack.F 594 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 73 CTRL_UNPACK 
      integer ivartype
./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_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_pack.F 210 CTRL_PACK 
          ivartype = 1
./pkg/ctrl/ctrl_pack.F 214 CTRL_PACK 
     &         cunit, ivartype, fname_theta(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_pack.F 219 CTRL_PACK 
          ivartype = 2
./pkg/ctrl/ctrl_pack.F 223 CTRL_PACK 
     &         cunit, ivartype, fname_salt(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_pack.F 228 CTRL_PACK 
          ivartype = 3
./pkg/ctrl/ctrl_pack.F 232 CTRL_PACK 
     &         cunit, ivartype, fname_hflux(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_pack.F 237 CTRL_PACK 
          ivartype = 4
./pkg/ctrl/ctrl_pack.F 241 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 255 CTRL_PACK 
          ivartype = 6
./pkg/ctrl/ctrl_pack.F 259 CTRL_PACK 
     &         cunit, ivartype, fname_tauv(ictrlgrad), "maskCtrlS",
./pkg/ctrl/ctrl_pack.F 264 CTRL_PACK 
          ivartype = 7
./pkg/ctrl/ctrl_pack.F 268 CTRL_PACK 
     &         cunit, ivartype, fname_atemp(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_pack.F 273 CTRL_PACK 
          ivartype = 8
./pkg/ctrl/ctrl_pack.F 277 CTRL_PACK 
     &         cunit, ivartype, fname_aqh(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_pack.F 282 CTRL_PACK 
          ivartype = 9
./pkg/ctrl/ctrl_pack.F 286 CTRL_PACK 
     &         cunit, ivartype, fname_uwind(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_pack.F 291 CTRL_PACK 
          ivartype = 10
./pkg/ctrl/ctrl_pack.F 295 CTRL_PACK 
     &         cunit, ivartype, fname_vwind(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_pack.F 300 CTRL_PACK 
          ivartype = 11
./pkg/ctrl/ctrl_pack.F 304 CTRL_PACK 
     &         cunit, ivartype, fname_obcsn(ictrlgrad), "maskobcsn",
./pkg/ctrl/ctrl_pack.F 309 CTRL_PACK 
          ivartype = 12
./pkg/ctrl/ctrl_pack.F 313 CTRL_PACK 
     &         cunit, ivartype, fname_obcss(ictrlgrad), "maskobcss",
./pkg/ctrl/ctrl_pack.F 318 CTRL_PACK 
          ivartype = 13
./pkg/ctrl/ctrl_pack.F 322 CTRL_PACK 
     &         cunit, ivartype, fname_obcsw(ictrlgrad), "maskobcsw",
./pkg/ctrl/ctrl_pack.F 327 CTRL_PACK 
          ivartype = 14
./pkg/ctrl/ctrl_pack.F 331 CTRL_PACK 
     &         cunit, ivartype, fname_obcse(ictrlgrad), "maskobcse",
./pkg/ctrl/ctrl_pack.F 336 CTRL_PACK 
          ivartype = 15
./pkg/ctrl/ctrl_pack.F 340 CTRL_PACK 
     &         cunit, ivartype, fname_diffkr(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_pack.F 345 CTRL_PACK 
          ivartype = 16
./pkg/ctrl/ctrl_pack.F 349 CTRL_PACK 
     &         cunit, ivartype, fname_kapgm(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_pack.F 354 CTRL_PACK 
          ivartype = 17
./pkg/ctrl/ctrl_pack.F 358 CTRL_PACK 
     &         cunit, ivartype, fname_tr1(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_pack.F 363 CTRL_PACK 
          ivartype = 18
./pkg/ctrl/ctrl_pack.F 367 CTRL_PACK 
     &         cunit, ivartype, fname_sst(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_pack.F 372 CTRL_PACK 
          ivartype = 19
./pkg/ctrl/ctrl_pack.F 376 CTRL_PACK 
     &         cunit, ivartype, fname_sss(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_pack.F 381 CTRL_PACK 
          ivartype = 20
./pkg/ctrl/ctrl_pack.F 385 CTRL_PACK 
     &         cunit, ivartype, fname_depth(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_pack.F 390 CTRL_PACK 
          ivartype = 21
./pkg/ctrl/ctrl_pack.F 394 CTRL_PACK 
     &         cunit, ivartype, fname_efluxy(ictrlgrad), "maskCtrlS",
./pkg/ctrl/ctrl_pack.F 399 CTRL_PACK 
          ivartype = 22
./pkg/ctrl/ctrl_pack.F 403 CTRL_PACK 
     &         cunit, ivartype, fname_efluxp(ictrlgrad), "maskhFacV",
./pkg/ctrl/ctrl_pack.F 408 CTRL_PACK 
          ivartype = 23
./pkg/ctrl/ctrl_pack.F 412 CTRL_PACK 
     &      cunit, ivartype, fname_bottomdrag(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_pack.F 417 CTRL_PACK 
          ivartype = 25
./pkg/ctrl/ctrl_pack.F 421 CTRL_PACK 
     &         cunit, ivartype, fname_edtaux(ictrlgrad), "maskCtrlW",
./pkg/ctrl/ctrl_pack.F 426 CTRL_PACK 
          ivartype = 26
./pkg/ctrl/ctrl_pack.F 430 CTRL_PACK 
     &         cunit, ivartype, fname_edtauy(ictrlgrad), "maskCtrlS",
./pkg/ctrl/ctrl_pack.F 435 CTRL_PACK 
          ivartype = 27
./pkg/ctrl/ctrl_pack.F 439 CTRL_PACK 
     &         cunit, ivartype, fname_uvel(ictrlgrad), "maskCtrlW",
./pkg/ctrl/ctrl_pack.F 444 CTRL_PACK 
          ivartype = 28
./pkg/ctrl/ctrl_pack.F 448 CTRL_PACK 
     &         cunit, ivartype, fname_vvel(ictrlgrad), "maskCtrlS",
./pkg/ctrl/ctrl_pack.F 453 CTRL_PACK 
          ivartype = 29
./pkg/ctrl/ctrl_pack.F 457 CTRL_PACK 
     &         cunit, ivartype, fname_etan(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_pack.F 462 CTRL_PACK 
          ivartype = 30
./pkg/ctrl/ctrl_pack.F 466 CTRL_PACK 
     &         cunit, ivartype, fname_relaxsst(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_pack.F 471 CTRL_PACK 
          ivartype = 31
./pkg/ctrl/ctrl_pack.F 475 CTRL_PACK 
     &         cunit, ivartype, fname_relaxsss(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_pack.F 480 CTRL_PACK 
          ivartype = 32
./pkg/ctrl/ctrl_pack.F 484 CTRL_PACK 
     &         cunit, ivartype, fname_precip(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_pack.F 489 CTRL_PACK 
          ivartype = 33
./pkg/ctrl/ctrl_pack.F 493 CTRL_PACK 
     &         cunit, ivartype, fname_swflux(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_pack.F 498 CTRL_PACK 
          ivartype = 34
./pkg/ctrl/ctrl_pack.F 502 CTRL_PACK 
     &         cunit, ivartype, fname_swdown(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_pack.F 71 CTRL_PACK 
      integer ivartype
./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