Symbol Description Uses
cunit 464


File Line number Procedure Code
./verification/OpenAD/code_oad_all/ctrl_pack.F 178 CTRL_PACK 
       call MDSFINDUNIT( cunit, mythid )
./verification/OpenAD/code_oad_all/ctrl_pack.F 179 CTRL_PACK 
       open( cunit, file   = cfile,
./verification/OpenAD/code_oad_all/ctrl_pack.F 185 CTRL_PACK 
          write(cunit) nvartype
./verification/OpenAD/code_oad_all/ctrl_pack.F 186 CTRL_PACK 
          write(cunit) nvarlength
./verification/OpenAD/code_oad_all/ctrl_pack.F 187 CTRL_PACK 
          write(cunit) yctrlid
./verification/OpenAD/code_oad_all/ctrl_pack.F 188 CTRL_PACK 
          write(cunit) optimCycle
./verification/OpenAD/code_oad_all/ctrl_pack.F 189 CTRL_PACK 
          write(cunit) fc
./verification/OpenAD/code_oad_all/ctrl_pack.F 191 CTRL_PACK 
          write(cunit) 1
./verification/OpenAD/code_oad_all/ctrl_pack.F 193 CTRL_PACK 
          write(cunit) 1
./verification/OpenAD/code_oad_all/ctrl_pack.F 194 CTRL_PACK 
          write(cunit) nsx
./verification/OpenAD/code_oad_all/ctrl_pack.F 195 CTRL_PACK 
          write(cunit) nsy
./verification/OpenAD/code_oad_all/ctrl_pack.F 196 CTRL_PACK 
          write(cunit) (nWetcGlobal(k), k=1,nr)
./verification/OpenAD/code_oad_all/ctrl_pack.F 197 CTRL_PACK 
          write(cunit) (nWetsGlobal(k), k=1,nr)
./verification/OpenAD/code_oad_all/ctrl_pack.F 198 CTRL_PACK 
          write(cunit) (nWetwGlobal(k), k=1,nr)
./verification/OpenAD/code_oad_all/ctrl_pack.F 200 CTRL_PACK 
          write(cunit) (nWetvGlobal(k), k=1,nr)
./verification/OpenAD/code_oad_all/ctrl_pack.F 204 CTRL_PACK 
          write(cunit) ((nWetobcsnGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs)
./verification/OpenAD/code_oad_all/ctrl_pack.F 207 CTRL_PACK 
          write(cunit) ((nWetobcssGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs)
./verification/OpenAD/code_oad_all/ctrl_pack.F 210 CTRL_PACK 
          write(cunit) ((nWetobcswGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs)
./verification/OpenAD/code_oad_all/ctrl_pack.F 213 CTRL_PACK 
          write(cunit) ((nWetobcseGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs)
./verification/OpenAD/code_oad_all/ctrl_pack.F 215 CTRL_PACK 
          write(cunit) (ncvarindex(i), i=1,maxcvars)
./verification/OpenAD/code_oad_all/ctrl_pack.F 216 CTRL_PACK 
          write(cunit) (ncvarrecs(i),  i=1,maxcvars)
./verification/OpenAD/code_oad_all/ctrl_pack.F 217 CTRL_PACK 
          write(cunit) (ncvarxmax(i),  i=1,maxcvars)
./verification/OpenAD/code_oad_all/ctrl_pack.F 218 CTRL_PACK 
          write(cunit) (ncvarymax(i),  i=1,maxcvars)
./verification/OpenAD/code_oad_all/ctrl_pack.F 219 CTRL_PACK 
          write(cunit) (ncvarnrmax(i), i=1,maxcvars)
./verification/OpenAD/code_oad_all/ctrl_pack.F 220 CTRL_PACK 
          write(cunit) (ncvargrd(i),   i=1,maxcvars)
./verification/OpenAD/code_oad_all/ctrl_pack.F 221 CTRL_PACK 
          write(cunit)
./verification/OpenAD/code_oad_all/ctrl_pack.F 228 CTRL_PACK 
     &         cunit, ivartype, fname_theta(ictrlgrad), "maskCtrlC",
./verification/OpenAD/code_oad_all/ctrl_pack.F 237 CTRL_PACK 
     &         cunit, ivartype, fname_salt(ictrlgrad), "maskCtrlC",
./verification/OpenAD/code_oad_all/ctrl_pack.F 246 CTRL_PACK 
     &         cunit, ivartype, fname_hflux(ictrlgrad), "maskCtrlC",
./verification/OpenAD/code_oad_all/ctrl_pack.F 255 CTRL_PACK 
     &         cunit, ivartype, fname_sflux(ictrlgrad), "maskCtrlC",
./verification/OpenAD/code_oad_all/ctrl_pack.F 264 CTRL_PACK 
     &         cunit, ivartype, fname_tauu(ictrlgrad), "maskCtrlW",
./verification/OpenAD/code_oad_all/ctrl_pack.F 273 CTRL_PACK 
     &         cunit, ivartype, fname_tauv(ictrlgrad), "maskCtrlS",
./verification/OpenAD/code_oad_all/ctrl_pack.F 282 CTRL_PACK 
     &         cunit, ivartype, fname_atemp(ictrlgrad), "maskCtrlC",
./verification/OpenAD/code_oad_all/ctrl_pack.F 291 CTRL_PACK 
     &         cunit, ivartype, fname_aqh(ictrlgrad), "maskCtrlC",
./verification/OpenAD/code_oad_all/ctrl_pack.F 300 CTRL_PACK 
     &         cunit, ivartype, fname_uwind(ictrlgrad), "maskCtrlC",
./verification/OpenAD/code_oad_all/ctrl_pack.F 309 CTRL_PACK 
     &         cunit, ivartype, fname_vwind(ictrlgrad), "maskCtrlC",
./verification/OpenAD/code_oad_all/ctrl_pack.F 318 CTRL_PACK 
     &         cunit, ivartype, fname_obcsn(ictrlgrad), "maskobcsn",
./verification/OpenAD/code_oad_all/ctrl_pack.F 327 CTRL_PACK 
     &         cunit, ivartype, fname_obcss(ictrlgrad), "maskobcss",
./verification/OpenAD/code_oad_all/ctrl_pack.F 336 CTRL_PACK 
     &         cunit, ivartype, fname_obcsw(ictrlgrad), "maskobcsw",
./verification/OpenAD/code_oad_all/ctrl_pack.F 345 CTRL_PACK 
     &         cunit, ivartype, fname_obcse(ictrlgrad), "maskobcse",
./verification/OpenAD/code_oad_all/ctrl_pack.F 354 CTRL_PACK 
     &         cunit, ivartype, fname_diffkr(ictrlgrad), "maskCtrlC",
./verification/OpenAD/code_oad_all/ctrl_pack.F 363 CTRL_PACK 
     &         cunit, ivartype, fname_kapgm(ictrlgrad), "maskCtrlC",
./verification/OpenAD/code_oad_all/ctrl_pack.F 372 CTRL_PACK 
     &         cunit, ivartype, fname_tr1(ictrlgrad), "maskCtrlC",
./verification/OpenAD/code_oad_all/ctrl_pack.F 381 CTRL_PACK 
     &         cunit, ivartype, fname_sst(ictrlgrad), "maskCtrlC",
./verification/OpenAD/code_oad_all/ctrl_pack.F 390 CTRL_PACK 
     &         cunit, ivartype, fname_sss(ictrlgrad),
./verification/OpenAD/code_oad_all/ctrl_pack.F 399 CTRL_PACK 
     &         cunit, ivartype, fname_depth(ictrlgrad),
./verification/OpenAD/code_oad_all/ctrl_pack.F 408 CTRL_PACK 
     &         cunit, ivartype, fname_efluxy(ictrlgrad), "maskCtrlS",
./verification/OpenAD/code_oad_all/ctrl_pack.F 417 CTRL_PACK 
     &         cunit, ivartype, fname_efluxp(ictrlgrad), "maskhFacV",
./verification/OpenAD/code_oad_all/ctrl_pack.F 426 CTRL_PACK 
     &      cunit, ivartype, fname_bottomdrag(ictrlgrad), "maskCtrlC",
./verification/OpenAD/code_oad_all/ctrl_pack.F 435 CTRL_PACK 
     &         cunit, ivartype, fname_hfluxm(ictrlgrad), "maskCtrlC",
./verification/OpenAD/code_oad_all/ctrl_pack.F 444 CTRL_PACK 
     &         cunit, ivartype, fname_edtaux(ictrlgrad), "maskCtrlW",
./verification/OpenAD/code_oad_all/ctrl_pack.F 451 CTRL_PACK 
     &         cunit, ivartype, fname_edtauy(ictrlgrad), "maskCtrlS",
./verification/OpenAD/code_oad_all/ctrl_pack.F 460 CTRL_PACK 
     &         cunit, ivartype, fname_uvel(ictrlgrad), "maskCtrlW",
./verification/OpenAD/code_oad_all/ctrl_pack.F 469 CTRL_PACK 
     &         cunit, ivartype, fname_vvel(ictrlgrad), "maskCtrlS",
./verification/OpenAD/code_oad_all/ctrl_pack.F 478 CTRL_PACK 
     &         cunit, ivartype, fname_etan(ictrlgrad),
./verification/OpenAD/code_oad_all/ctrl_pack.F 487 CTRL_PACK 
     &         cunit, ivartype, fname_relaxsst(ictrlgrad),
./verification/OpenAD/code_oad_all/ctrl_pack.F 496 CTRL_PACK 
     &         cunit, ivartype, fname_relaxsss(ictrlgrad),
./verification/OpenAD/code_oad_all/ctrl_pack.F 505 CTRL_PACK 
     &         cunit, ivartype, fname_precip(ictrlgrad),
./verification/OpenAD/code_oad_all/ctrl_pack.F 514 CTRL_PACK 
     &         cunit, ivartype, fname_swflux(ictrlgrad),
./verification/OpenAD/code_oad_all/ctrl_pack.F 523 CTRL_PACK 
     &         cunit, ivartype, fname_swdown(ictrlgrad),
./verification/OpenAD/code_oad_all/ctrl_pack.F 532 CTRL_PACK 
     &         cunit, ivartype, fname_lwflux(ictrlgrad),
./verification/OpenAD/code_oad_all/ctrl_pack.F 541 CTRL_PACK 
     &         cunit, ivartype, fname_lwdown(ictrlgrad),
./verification/OpenAD/code_oad_all/ctrl_pack.F 550 CTRL_PACK 
     &         cunit, ivartype, fname_evap(ictrlgrad),
./verification/OpenAD/code_oad_all/ctrl_pack.F 559 CTRL_PACK 
     &         cunit, ivartype, fname_snowprecip(ictrlgrad),
./verification/OpenAD/code_oad_all/ctrl_pack.F 568 CTRL_PACK 
     &         cunit, ivartype, fname_apressure(ictrlgrad),
./verification/OpenAD/code_oad_all/ctrl_pack.F 577 CTRL_PACK 
     &         cunit, ivartype, fname_runoff(ictrlgrad),
./verification/OpenAD/code_oad_all/ctrl_pack.F 586 CTRL_PACK 
     &         cunit, ivartype, fname_siarea(ictrlgrad),
./verification/OpenAD/code_oad_all/ctrl_pack.F 595 CTRL_PACK 
     &         cunit, ivartype, fname_siheff(ictrlgrad),
./verification/OpenAD/code_oad_all/ctrl_pack.F 604 CTRL_PACK 
     &         cunit, ivartype, fname_sihsnow(ictrlgrad),
./verification/OpenAD/code_oad_all/ctrl_pack.F 613 CTRL_PACK 
     &         cunit, ivartype, fname_kapredi(ictrlgrad), "maskCtrlC",
./verification/OpenAD/code_oad_all/ctrl_pack.F 617 CTRL_PACK 
          close ( cunit )
./verification/OpenAD/code_oad_all/ctrl_pack.F 79 CTRL_PACK 
      integer cunit
./pkg/admtlm/admtlm_dsvd2model.F 184 ADMTLM_DSVD2MODEL 
       call MDSFINDUNIT( cunit, mythid )
./pkg/admtlm/admtlm_dsvd2model.F 207 ADMTLM_DSVD2MODEL 
          open( cunit, file   = cfile,
./pkg/admtlm/admtlm_dsvd2model.F 213 ADMTLM_DSVD2MODEL 
          read(cunit) filenvartype
./pkg/admtlm/admtlm_dsvd2model.F 214 ADMTLM_DSVD2MODEL 
          read(cunit) filenvarlength
./pkg/admtlm/admtlm_dsvd2model.F 215 ADMTLM_DSVD2MODEL 
          read(cunit) fileYctrlid
./pkg/admtlm/admtlm_dsvd2model.F 216 ADMTLM_DSVD2MODEL 
          read(cunit) fileOptimCycle
./pkg/admtlm/admtlm_dsvd2model.F 217 ADMTLM_DSVD2MODEL 
          read(cunit) filefc
./pkg/admtlm/admtlm_dsvd2model.F 218 ADMTLM_DSVD2MODEL 
          read(cunit) fileIg
./pkg/admtlm/admtlm_dsvd2model.F 219 ADMTLM_DSVD2MODEL 
          read(cunit) fileJg
./pkg/admtlm/admtlm_dsvd2model.F 220 ADMTLM_DSVD2MODEL 
          read(cunit) filensx
./pkg/admtlm/admtlm_dsvd2model.F 221 ADMTLM_DSVD2MODEL 
          read(cunit) filensy
./pkg/admtlm/admtlm_dsvd2model.F 222 ADMTLM_DSVD2MODEL 
          read(cunit) (filenWetcGlobal(k),   k=1,nr)
./pkg/admtlm/admtlm_dsvd2model.F 223 ADMTLM_DSVD2MODEL 
          read(cunit) (filenWetsGlobal(k),   k=1,nr)
./pkg/admtlm/admtlm_dsvd2model.F 224 ADMTLM_DSVD2MODEL 
          read(cunit) (filenWetwGlobal(k),   k=1,nr)
./pkg/admtlm/admtlm_dsvd2model.F 226 ADMTLM_DSVD2MODEL 
          read(cunit) (filenWetvGlobal(k),   k=1,nr)
./pkg/admtlm/admtlm_dsvd2model.F 231 ADMTLM_DSVD2MODEL 
          read(cunit) ((filenWetobcsnGlo(k,iobcs),
./pkg/admtlm/admtlm_dsvd2model.F 235 ADMTLM_DSVD2MODEL 
          read(cunit) ((filenWetobcssGlo(k,iobcs),
./pkg/admtlm/admtlm_dsvd2model.F 239 ADMTLM_DSVD2MODEL 
          read(cunit) ((filenWetobcswGlo(k,iobcs),
./pkg/admtlm/admtlm_dsvd2model.F 243 ADMTLM_DSVD2MODEL 
          read(cunit) ((filenWetobcseGlo(k,iobcs),
./pkg/admtlm/admtlm_dsvd2model.F 247 ADMTLM_DSVD2MODEL 
          read(cunit) (filencvarindex(i), i=1,maxcvars)
./pkg/admtlm/admtlm_dsvd2model.F 248 ADMTLM_DSVD2MODEL 
          read(cunit) (filencvarrecs(i),  i=1,maxcvars)
./pkg/admtlm/admtlm_dsvd2model.F 249 ADMTLM_DSVD2MODEL 
          read(cunit) (filencvarxmax(i),  i=1,maxcvars)
./pkg/admtlm/admtlm_dsvd2model.F 250 ADMTLM_DSVD2MODEL 
          read(cunit) (filencvarymax(i),  i=1,maxcvars)
./pkg/admtlm/admtlm_dsvd2model.F 251 ADMTLM_DSVD2MODEL 
          read(cunit) (filencvarnrmax(i), i=1,maxcvars)
./pkg/admtlm/admtlm_dsvd2model.F 252 ADMTLM_DSVD2MODEL 
          read(cunit) (filencvargrd(i),   i=1,maxcvars)
./pkg/admtlm/admtlm_dsvd2model.F 253 ADMTLM_DSVD2MODEL 
          read(cunit)
./pkg/admtlm/admtlm_dsvd2model.F 335 ADMTLM_DSVD2MODEL 
          call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype,
./pkg/admtlm/admtlm_dsvd2model.F 344 ADMTLM_DSVD2MODEL 
          call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype,
./pkg/admtlm/admtlm_dsvd2model.F 353 ADMTLM_DSVD2MODEL 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/admtlm/admtlm_dsvd2model.F 362 ADMTLM_DSVD2MODEL 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/admtlm/admtlm_dsvd2model.F 371 ADMTLM_DSVD2MODEL 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/admtlm/admtlm_dsvd2model.F 380 ADMTLM_DSVD2MODEL 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/admtlm/admtlm_dsvd2model.F 389 ADMTLM_DSVD2MODEL 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/admtlm/admtlm_dsvd2model.F 398 ADMTLM_DSVD2MODEL 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/admtlm/admtlm_dsvd2model.F 407 ADMTLM_DSVD2MODEL 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/admtlm/admtlm_dsvd2model.F 416 ADMTLM_DSVD2MODEL 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/admtlm/admtlm_dsvd2model.F 426 ADMTLM_DSVD2MODEL 
     &         cunit, ivartype, fname_obcsn(ictrlgrad), "maskobcsn",
./pkg/admtlm/admtlm_dsvd2model.F 435 ADMTLM_DSVD2MODEL 
     &         cunit, ivartype, fname_obcss(ictrlgrad), "maskobcss",
./pkg/admtlm/admtlm_dsvd2model.F 444 ADMTLM_DSVD2MODEL 
     &         cunit, ivartype, fname_obcsw(ictrlgrad), "maskobcsw",
./pkg/admtlm/admtlm_dsvd2model.F 453 ADMTLM_DSVD2MODEL 
     &         cunit, ivartype, fname_obcse(ictrlgrad), "maskobcse",
./pkg/admtlm/admtlm_dsvd2model.F 461 ADMTLM_DSVD2MODEL 
          call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype,
./pkg/admtlm/admtlm_dsvd2model.F 470 ADMTLM_DSVD2MODEL 
          call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype,
./pkg/admtlm/admtlm_dsvd2model.F 479 ADMTLM_DSVD2MODEL 
          call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype,
./pkg/admtlm/admtlm_dsvd2model.F 488 ADMTLM_DSVD2MODEL 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/admtlm/admtlm_dsvd2model.F 497 ADMTLM_DSVD2MODEL 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/admtlm/admtlm_dsvd2model.F 506 ADMTLM_DSVD2MODEL 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/admtlm/admtlm_dsvd2model.F 515 ADMTLM_DSVD2MODEL 
          call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype,
./pkg/admtlm/admtlm_dsvd2model.F 524 ADMTLM_DSVD2MODEL 
          call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype,
./pkg/admtlm/admtlm_dsvd2model.F 533 ADMTLM_DSVD2MODEL 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/admtlm/admtlm_dsvd2model.F 542 ADMTLM_DSVD2MODEL 
          call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype,
./pkg/admtlm/admtlm_dsvd2model.F 549 ADMTLM_DSVD2MODEL 
          call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype,
./pkg/admtlm/admtlm_dsvd2model.F 558 ADMTLM_DSVD2MODEL 
          call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype,
./pkg/admtlm/admtlm_dsvd2model.F 567 ADMTLM_DSVD2MODEL 
          call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype,
./pkg/admtlm/admtlm_dsvd2model.F 576 ADMTLM_DSVD2MODEL 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/admtlm/admtlm_dsvd2model.F 585 ADMTLM_DSVD2MODEL 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/admtlm/admtlm_dsvd2model.F 594 ADMTLM_DSVD2MODEL 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/admtlm/admtlm_dsvd2model.F 603 ADMTLM_DSVD2MODEL 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/admtlm/admtlm_dsvd2model.F 612 ADMTLM_DSVD2MODEL 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/admtlm/admtlm_dsvd2model.F 621 ADMTLM_DSVD2MODEL 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/admtlm/admtlm_dsvd2model.F 626 ADMTLM_DSVD2MODEL 
         close ( cunit )
./pkg/admtlm/admtlm_dsvd2model.F 79 ADMTLM_DSVD2MODEL 
      integer cunit
./pkg/admtlm/admtlm_model2dsvd.F 175 ADMTLM_MODEL2DSVD 
       call MDSFINDUNIT( cunit, mythid )
./pkg/admtlm/admtlm_model2dsvd.F 197 ADMTLM_MODEL2DSVD 
       open( cunit, file   = cfile,
./pkg/admtlm/admtlm_model2dsvd.F 203 ADMTLM_MODEL2DSVD 
          write(cunit) nvartype
./pkg/admtlm/admtlm_model2dsvd.F 204 ADMTLM_MODEL2DSVD 
          write(cunit) nvarlength
./pkg/admtlm/admtlm_model2dsvd.F 205 ADMTLM_MODEL2DSVD 
          write(cunit) yctrlid
./pkg/admtlm/admtlm_model2dsvd.F 206 ADMTLM_MODEL2DSVD 
          write(cunit) optimCycle
./pkg/admtlm/admtlm_model2dsvd.F 207 ADMTLM_MODEL2DSVD 
          write(cunit) fc
./pkg/admtlm/admtlm_model2dsvd.F 209 ADMTLM_MODEL2DSVD 
          write(cunit) 1
./pkg/admtlm/admtlm_model2dsvd.F 211 ADMTLM_MODEL2DSVD 
          write(cunit) 1
./pkg/admtlm/admtlm_model2dsvd.F 212 ADMTLM_MODEL2DSVD 
          write(cunit) nsx
./pkg/admtlm/admtlm_model2dsvd.F 213 ADMTLM_MODEL2DSVD 
          write(cunit) nsy
./pkg/admtlm/admtlm_model2dsvd.F 214 ADMTLM_MODEL2DSVD 
          write(cunit) (nWetcGlobal(k), k=1,nr)
./pkg/admtlm/admtlm_model2dsvd.F 215 ADMTLM_MODEL2DSVD 
          write(cunit) (nWetsGlobal(k), k=1,nr)
./pkg/admtlm/admtlm_model2dsvd.F 216 ADMTLM_MODEL2DSVD 
          write(cunit) (nWetwGlobal(k), k=1,nr)
./pkg/admtlm/admtlm_model2dsvd.F 218 ADMTLM_MODEL2DSVD 
          write(cunit) (nWetvGlobal(k), k=1,nr)
./pkg/admtlm/admtlm_model2dsvd.F 222 ADMTLM_MODEL2DSVD 
          write(cunit) ((nWetobcsnGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs)
./pkg/admtlm/admtlm_model2dsvd.F 225 ADMTLM_MODEL2DSVD 
          write(cunit) ((nWetobcssGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs)
./pkg/admtlm/admtlm_model2dsvd.F 228 ADMTLM_MODEL2DSVD 
          write(cunit) ((nWetobcswGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs)
./pkg/admtlm/admtlm_model2dsvd.F 231 ADMTLM_MODEL2DSVD 
          write(cunit) ((nWetobcseGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs)
./pkg/admtlm/admtlm_model2dsvd.F 233 ADMTLM_MODEL2DSVD 
          write(cunit) (ncvarindex(i), i=1,maxcvars)
./pkg/admtlm/admtlm_model2dsvd.F 234 ADMTLM_MODEL2DSVD 
          write(cunit) (ncvarrecs(i),  i=1,maxcvars)
./pkg/admtlm/admtlm_model2dsvd.F 235 ADMTLM_MODEL2DSVD 
          write(cunit) (ncvarxmax(i),  i=1,maxcvars)
./pkg/admtlm/admtlm_model2dsvd.F 236 ADMTLM_MODEL2DSVD 
          write(cunit) (ncvarymax(i),  i=1,maxcvars)
./pkg/admtlm/admtlm_model2dsvd.F 237 ADMTLM_MODEL2DSVD 
          write(cunit) (ncvarnrmax(i), i=1,maxcvars)
./pkg/admtlm/admtlm_model2dsvd.F 238 ADMTLM_MODEL2DSVD 
          write(cunit) (ncvargrd(i),   i=1,maxcvars)
./pkg/admtlm/admtlm_model2dsvd.F 239 ADMTLM_MODEL2DSVD 
          write(cunit)
./pkg/admtlm/admtlm_model2dsvd.F 248 ADMTLM_MODEL2DSVD 
     &         cunit, ivartype, fname_theta(ictrlgrad), "maskCtrlC",
./pkg/admtlm/admtlm_model2dsvd.F 257 ADMTLM_MODEL2DSVD 
     &         cunit, ivartype, fname_salt(ictrlgrad), "maskCtrlC",
./pkg/admtlm/admtlm_model2dsvd.F 266 ADMTLM_MODEL2DSVD 
     &         cunit, ivartype, fname_hflux(ictrlgrad), "maskCtrlC",
./pkg/admtlm/admtlm_model2dsvd.F 275 ADMTLM_MODEL2DSVD 
     &         cunit, ivartype, fname_sflux(ictrlgrad), "maskCtrlC",
./pkg/admtlm/admtlm_model2dsvd.F 284 ADMTLM_MODEL2DSVD 
     &         cunit, ivartype, fname_tauu(ictrlgrad), "maskCtrlW",
./pkg/admtlm/admtlm_model2dsvd.F 293 ADMTLM_MODEL2DSVD 
     &         cunit, ivartype, fname_tauv(ictrlgrad), "maskCtrlS",
./pkg/admtlm/admtlm_model2dsvd.F 302 ADMTLM_MODEL2DSVD 
     &         cunit, ivartype, fname_atemp(ictrlgrad), "maskCtrlC",
./pkg/admtlm/admtlm_model2dsvd.F 311 ADMTLM_MODEL2DSVD 
     &         cunit, ivartype, fname_aqh(ictrlgrad), "maskCtrlC",
./pkg/admtlm/admtlm_model2dsvd.F 320 ADMTLM_MODEL2DSVD 
     &         cunit, ivartype, fname_uwind(ictrlgrad), "maskCtrlC",
./pkg/admtlm/admtlm_model2dsvd.F 329 ADMTLM_MODEL2DSVD 
     &         cunit, ivartype, fname_vwind(ictrlgrad), "maskCtrlC",
./pkg/admtlm/admtlm_model2dsvd.F 338 ADMTLM_MODEL2DSVD 
     &         cunit, ivartype, fname_obcsn(ictrlgrad), "maskobcsn",
./pkg/admtlm/admtlm_model2dsvd.F 347 ADMTLM_MODEL2DSVD 
     &         cunit, ivartype, fname_obcss(ictrlgrad), "maskobcss",
./pkg/admtlm/admtlm_model2dsvd.F 356 ADMTLM_MODEL2DSVD 
     &         cunit, ivartype, fname_obcsw(ictrlgrad), "maskobcsw",
./pkg/admtlm/admtlm_model2dsvd.F 365 ADMTLM_MODEL2DSVD 
     &         cunit, ivartype, fname_obcse(ictrlgrad), "maskobcse",
./pkg/admtlm/admtlm_model2dsvd.F 374 ADMTLM_MODEL2DSVD 
     &         cunit, ivartype, fname_diffkr(ictrlgrad), "maskCtrlC",
./pkg/admtlm/admtlm_model2dsvd.F 383 ADMTLM_MODEL2DSVD 
     &         cunit, ivartype, fname_kapgm(ictrlgrad), "maskCtrlC",
./pkg/admtlm/admtlm_model2dsvd.F 392 ADMTLM_MODEL2DSVD 
     &         cunit, ivartype, fname_tr1(ictrlgrad), "maskCtrlC",
./pkg/admtlm/admtlm_model2dsvd.F 401 ADMTLM_MODEL2DSVD 
     &         cunit, ivartype, fname_sst(ictrlgrad), "maskCtrlC",
./pkg/admtlm/admtlm_model2dsvd.F 410 ADMTLM_MODEL2DSVD 
     &         cunit, ivartype, fname_sss(ictrlgrad), "maskCtrlC",
./pkg/admtlm/admtlm_model2dsvd.F 419 ADMTLM_MODEL2DSVD 
     &         cunit, ivartype, fname_depth(ictrlgrad), "maskCtrlC",
./pkg/admtlm/admtlm_model2dsvd.F 428 ADMTLM_MODEL2DSVD 
     &         cunit, ivartype, fname_efluxy(ictrlgrad), "maskCtrlS",
./pkg/admtlm/admtlm_model2dsvd.F 437 ADMTLM_MODEL2DSVD 
     &         cunit, ivartype, fname_efluxp(ictrlgrad), "maskhFacV",
./pkg/admtlm/admtlm_model2dsvd.F 446 ADMTLM_MODEL2DSVD 
     &      cunit, ivartype, fname_bottomdrag(ictrlgrad), "maskCtrlC",
./pkg/admtlm/admtlm_model2dsvd.F 455 ADMTLM_MODEL2DSVD 
     &         cunit, ivartype, fname_edtaux(ictrlgrad), "maskCtrlW",
./pkg/admtlm/admtlm_model2dsvd.F 462 ADMTLM_MODEL2DSVD 
     &         cunit, ivartype, fname_edtauy(ictrlgrad), "maskCtrlS",
./pkg/admtlm/admtlm_model2dsvd.F 471 ADMTLM_MODEL2DSVD 
     &         cunit, ivartype, fname_uvel(ictrlgrad), "maskCtrlW",
./pkg/admtlm/admtlm_model2dsvd.F 480 ADMTLM_MODEL2DSVD 
     &         cunit, ivartype, fname_vvel(ictrlgrad), "maskCtrlS",
./pkg/admtlm/admtlm_model2dsvd.F 489 ADMTLM_MODEL2DSVD 
     &         cunit, ivartype, fname_etan(ictrlgrad), "maskCtrlC",
./pkg/admtlm/admtlm_model2dsvd.F 498 ADMTLM_MODEL2DSVD 
     &         cunit, ivartype, fname_relaxsst(ictrlgrad), "maskCtrlC",
./pkg/admtlm/admtlm_model2dsvd.F 507 ADMTLM_MODEL2DSVD 
     &         cunit, ivartype, fname_relaxsss(ictrlgrad), "maskCtrlC",
./pkg/admtlm/admtlm_model2dsvd.F 516 ADMTLM_MODEL2DSVD 
     &         cunit, ivartype, fname_precip(ictrlgrad), "maskCtrlC",
./pkg/admtlm/admtlm_model2dsvd.F 525 ADMTLM_MODEL2DSVD 
     &         cunit, ivartype, fname_swflux(ictrlgrad), "maskCtrlC",
./pkg/admtlm/admtlm_model2dsvd.F 534 ADMTLM_MODEL2DSVD 
     &         cunit, ivartype, fname_swdown(ictrlgrad), "maskCtrlC",
./pkg/admtlm/admtlm_model2dsvd.F 538 ADMTLM_MODEL2DSVD 
          close ( cunit )
./pkg/admtlm/admtlm_model2dsvd.F 81 ADMTLM_MODEL2DSVD 
      integer cunit
./pkg/ctrl/ctrl_pack.F 181 CTRL_PACK 
       call MDSFINDUNIT( cunit, mythid )
./pkg/ctrl/ctrl_pack.F 182 CTRL_PACK 
       open( cunit, file   = cfile,
./pkg/ctrl/ctrl_pack.F 188 CTRL_PACK 
          write(cunit) nvartype
./pkg/ctrl/ctrl_pack.F 189 CTRL_PACK 
          write(cunit) nvarlength
./pkg/ctrl/ctrl_pack.F 190 CTRL_PACK 
          write(cunit) yctrlid
./pkg/ctrl/ctrl_pack.F 191 CTRL_PACK 
          write(cunit) optimCycle
./pkg/ctrl/ctrl_pack.F 192 CTRL_PACK 
          write(cunit) fc
./pkg/ctrl/ctrl_pack.F 194 CTRL_PACK 
          write(cunit) 1
./pkg/ctrl/ctrl_pack.F 196 CTRL_PACK 
          write(cunit) 1
./pkg/ctrl/ctrl_pack.F 197 CTRL_PACK 
          write(cunit) nsx
./pkg/ctrl/ctrl_pack.F 198 CTRL_PACK 
          write(cunit) nsy
./pkg/ctrl/ctrl_pack.F 199 CTRL_PACK 
          write(cunit) (nWetcGlobal(k), k=1,nr)
./pkg/ctrl/ctrl_pack.F 200 CTRL_PACK 
          write(cunit) (nWetsGlobal(k), k=1,nr)
./pkg/ctrl/ctrl_pack.F 201 CTRL_PACK 
          write(cunit) (nWetwGlobal(k), k=1,nr)
./pkg/ctrl/ctrl_pack.F 203 CTRL_PACK 
          write(cunit) (nWetvGlobal(k), k=1,nr)
./pkg/ctrl/ctrl_pack.F 207 CTRL_PACK 
          write(cunit) ((nWetobcsnGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs)
./pkg/ctrl/ctrl_pack.F 210 CTRL_PACK 
          write(cunit) ((nWetobcssGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs)
./pkg/ctrl/ctrl_pack.F 213 CTRL_PACK 
          write(cunit) ((nWetobcswGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs)
./pkg/ctrl/ctrl_pack.F 216 CTRL_PACK 
          write(cunit) ((nWetobcseGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs)
./pkg/ctrl/ctrl_pack.F 218 CTRL_PACK 
          write(cunit) (ncvarindex(i), i=1,maxcvars)
./pkg/ctrl/ctrl_pack.F 219 CTRL_PACK 
          write(cunit) (ncvarrecs(i),  i=1,maxcvars)
./pkg/ctrl/ctrl_pack.F 220 CTRL_PACK 
          write(cunit) (ncvarxmax(i),  i=1,maxcvars)
./pkg/ctrl/ctrl_pack.F 221 CTRL_PACK 
          write(cunit) (ncvarymax(i),  i=1,maxcvars)
./pkg/ctrl/ctrl_pack.F 222 CTRL_PACK 
          write(cunit) (ncvarnrmax(i), i=1,maxcvars)
./pkg/ctrl/ctrl_pack.F 223 CTRL_PACK 
          write(cunit) (ncvargrd(i),   i=1,maxcvars)
./pkg/ctrl/ctrl_pack.F 224 CTRL_PACK 
          write(cunit)
./pkg/ctrl/ctrl_pack.F 237 CTRL_PACK 
     &         cunit, ivartype, fname_theta(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_pack.F 246 CTRL_PACK 
     &         cunit, ivartype, fname_salt(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_pack.F 255 CTRL_PACK 
     &         cunit, ivartype, fname_hflux(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_pack.F 264 CTRL_PACK 
     &         cunit, ivartype, fname_sflux(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_pack.F 274 CTRL_PACK 
     &         cunit, ivartype, fname_tauu(ictrlgrad), "maskCtrlW",
./pkg/ctrl/ctrl_pack.F 276 CTRL_PACK 
     &         cunit, ivartype, fname_tauu(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_pack.F 287 CTRL_PACK 
     &         cunit, ivartype, fname_tauv(ictrlgrad), "maskCtrlS",
./pkg/ctrl/ctrl_pack.F 289 CTRL_PACK 
     &         cunit, ivartype, fname_tauv(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_pack.F 299 CTRL_PACK 
     &         cunit, ivartype, fname_atemp(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_pack.F 308 CTRL_PACK 
     &         cunit, ivartype, fname_aqh(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_pack.F 317 CTRL_PACK 
     &         cunit, ivartype, fname_uwind(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_pack.F 326 CTRL_PACK 
     &         cunit, ivartype, fname_vwind(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_pack.F 335 CTRL_PACK 
     &         cunit, ivartype, fname_obcsn(ictrlgrad), "maskobcsn",
./pkg/ctrl/ctrl_pack.F 344 CTRL_PACK 
     &         cunit, ivartype, fname_obcss(ictrlgrad), "maskobcss",
./pkg/ctrl/ctrl_pack.F 353 CTRL_PACK 
     &         cunit, ivartype, fname_obcsw(ictrlgrad), "maskobcsw",
./pkg/ctrl/ctrl_pack.F 362 CTRL_PACK 
     &         cunit, ivartype, fname_obcse(ictrlgrad), "maskobcse",
./pkg/ctrl/ctrl_pack.F 371 CTRL_PACK 
     &         cunit, ivartype, fname_diffkr(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_pack.F 380 CTRL_PACK 
     &         cunit, ivartype, fname_kapgm(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_pack.F 389 CTRL_PACK 
     &         cunit, ivartype, fname_tr1(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_pack.F 398 CTRL_PACK 
     &         cunit, ivartype, fname_sst(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_pack.F 407 CTRL_PACK 
     &         cunit, ivartype, fname_sss(ictrlgrad),
./pkg/ctrl/ctrl_pack.F 416 CTRL_PACK 
     &         cunit, ivartype, fname_depth(ictrlgrad),
./pkg/ctrl/ctrl_pack.F 425 CTRL_PACK 
     &         cunit, ivartype, fname_efluxy(ictrlgrad), "maskCtrlS",
./pkg/ctrl/ctrl_pack.F 434 CTRL_PACK 
     &         cunit, ivartype, fname_efluxp(ictrlgrad), "maskhFacV",
./pkg/ctrl/ctrl_pack.F 443 CTRL_PACK 
     &      cunit, ivartype, fname_bottomdrag(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_pack.F 452 CTRL_PACK 
     &         cunit, ivartype, fname_hfluxm(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_pack.F 461 CTRL_PACK 
     &         cunit, ivartype, fname_edtaux(ictrlgrad), "maskCtrlW",
./pkg/ctrl/ctrl_pack.F 468 CTRL_PACK 
     &         cunit, ivartype, fname_edtauy(ictrlgrad), "maskCtrlS",
./pkg/ctrl/ctrl_pack.F 477 CTRL_PACK 
     &         cunit, ivartype, fname_uvel(ictrlgrad), "maskCtrlW",
./pkg/ctrl/ctrl_pack.F 486 CTRL_PACK 
     &         cunit, ivartype, fname_vvel(ictrlgrad), "maskCtrlS",
./pkg/ctrl/ctrl_pack.F 495 CTRL_PACK 
     &         cunit, ivartype, fname_etan(ictrlgrad),
./pkg/ctrl/ctrl_pack.F 504 CTRL_PACK 
     &         cunit, ivartype, fname_relaxsst(ictrlgrad),
./pkg/ctrl/ctrl_pack.F 513 CTRL_PACK 
     &         cunit, ivartype, fname_relaxsss(ictrlgrad),
./pkg/ctrl/ctrl_pack.F 522 CTRL_PACK 
     &         cunit, ivartype, fname_precip(ictrlgrad),
./pkg/ctrl/ctrl_pack.F 531 CTRL_PACK 
     &         cunit, ivartype, fname_swflux(ictrlgrad),
./pkg/ctrl/ctrl_pack.F 540 CTRL_PACK 
     &         cunit, ivartype, fname_swdown(ictrlgrad),
./pkg/ctrl/ctrl_pack.F 549 CTRL_PACK 
     &         cunit, ivartype, fname_lwflux(ictrlgrad),
./pkg/ctrl/ctrl_pack.F 558 CTRL_PACK 
     &         cunit, ivartype, fname_lwdown(ictrlgrad),
./pkg/ctrl/ctrl_pack.F 567 CTRL_PACK 
     &         cunit, ivartype, fname_evap(ictrlgrad),
./pkg/ctrl/ctrl_pack.F 576 CTRL_PACK 
     &         cunit, ivartype, fname_snowprecip(ictrlgrad),
./pkg/ctrl/ctrl_pack.F 585 CTRL_PACK 
     &         cunit, ivartype, fname_apressure(ictrlgrad),
./pkg/ctrl/ctrl_pack.F 594 CTRL_PACK 
     &         cunit, ivartype, fname_runoff(ictrlgrad),
./pkg/ctrl/ctrl_pack.F 603 CTRL_PACK 
     &         cunit, ivartype, fname_siarea(ictrlgrad),
./pkg/ctrl/ctrl_pack.F 612 CTRL_PACK 
     &         cunit, ivartype, fname_siheff(ictrlgrad),
./pkg/ctrl/ctrl_pack.F 621 CTRL_PACK 
     &         cunit, ivartype, fname_sihsnow(ictrlgrad),
./pkg/ctrl/ctrl_pack.F 630 CTRL_PACK 
     &         cunit, ivartype, fname_kapredi(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_pack.F 639 CTRL_PACK 
       close ( cunit )
./pkg/ctrl/ctrl_pack.F 79 CTRL_PACK 
      integer cunit
./pkg/ctrl/ctrl_set_pack_xy.F 166 CTRL_SET_PACK_XY 
         write(cunit) ncvarindex(ivartype)
./pkg/ctrl/ctrl_set_pack_xy.F 167 CTRL_SET_PACK_XY 
         write(cunit) 1
./pkg/ctrl/ctrl_set_pack_xy.F 168 CTRL_SET_PACK_XY 
         write(cunit) 1
./pkg/ctrl/ctrl_set_pack_xy.F 227 CTRL_SET_PACK_XY 
               write(cunit) cbuffindex
./pkg/ctrl/ctrl_set_pack_xy.F 228 CTRL_SET_PACK_XY 
               write(cunit) 1
./pkg/ctrl/ctrl_set_pack_xy.F 230 CTRL_SET_PACK_XY 
               write(cunit) (cbuff(ii), ii=1,cbuffindex)
./pkg/ctrl/ctrl_set_pack_xy.F 250 CTRL_SET_PACK_XY 
         write(cunit) ncvarindex(ivartype)
./pkg/ctrl/ctrl_set_pack_xy.F 251 CTRL_SET_PACK_XY 
         write(cunit) 1
./pkg/ctrl/ctrl_set_pack_xy.F 252 CTRL_SET_PACK_XY 
         write(cunit) 1
./pkg/ctrl/ctrl_set_pack_xy.F 313 CTRL_SET_PACK_XY 
               write(cunit) cbuffindex
./pkg/ctrl/ctrl_set_pack_xy.F 314 CTRL_SET_PACK_XY 
               write(cunit) k
./pkg/ctrl/ctrl_set_pack_xy.F 316 CTRL_SET_PACK_XY 
               write(cunit) (cbuff(ii), ii=1,cbuffindex)
./pkg/ctrl/ctrl_set_pack_xy.F 38 CTRL_SET_PACK_XY 
      integer cunit
./pkg/ctrl/ctrl_set_pack_xy.F 457 CTRL_SET_PACK_XY 
         write(cunit) ncvarindex(ivartype)
./pkg/ctrl/ctrl_set_pack_xy.F 458 CTRL_SET_PACK_XY 
         write(cunit) 1
./pkg/ctrl/ctrl_set_pack_xy.F 459 CTRL_SET_PACK_XY 
         write(cunit) 1
./pkg/ctrl/ctrl_set_pack_xy.F 500 CTRL_SET_PACK_XY 
          write(cunit) cbuffindex
./pkg/ctrl/ctrl_set_pack_xy.F 501 CTRL_SET_PACK_XY 
          write(cunit) k
./pkg/ctrl/ctrl_set_pack_xy.F 502 CTRL_SET_PACK_XY 
          write(cunit) (cbuff(ii), ii=1,cbuffindex)
./pkg/ctrl/ctrl_set_pack_xy.F 7 CTRL_SET_PACK_XY 
     &     cunit, ivartype, fname, masktype, weighttype,
./pkg/ctrl/ctrl_set_pack_xyz.F 174 CTRL_SET_PACK_XYZ 
         write(cunit) ncvarindex(ivartype)
./pkg/ctrl/ctrl_set_pack_xyz.F 175 CTRL_SET_PACK_XYZ 
         write(cunit) 1
./pkg/ctrl/ctrl_set_pack_xyz.F 176 CTRL_SET_PACK_XYZ 
         write(cunit) 1
./pkg/ctrl/ctrl_set_pack_xyz.F 240 CTRL_SET_PACK_XYZ 
               write(cunit) cbuffindex
./pkg/ctrl/ctrl_set_pack_xyz.F 241 CTRL_SET_PACK_XYZ 
               write(cunit) k
./pkg/ctrl/ctrl_set_pack_xyz.F 243 CTRL_SET_PACK_XYZ 
               write(cunit) (cbuff(ii), ii=1,cbuffindex)
./pkg/ctrl/ctrl_set_pack_xyz.F 38 CTRL_SET_PACK_XYZ 
      integer cunit
./pkg/ctrl/ctrl_set_pack_xyz.F 398 CTRL_SET_PACK_XYZ 
         write(cunit) ncvarindex(ivartype)
./pkg/ctrl/ctrl_set_pack_xyz.F 399 CTRL_SET_PACK_XYZ 
         write(cunit) 1
./pkg/ctrl/ctrl_set_pack_xyz.F 400 CTRL_SET_PACK_XYZ 
         write(cunit) 1
./pkg/ctrl/ctrl_set_pack_xyz.F 441 CTRL_SET_PACK_XYZ 
          write(cunit) cbuffindex
./pkg/ctrl/ctrl_set_pack_xyz.F 442 CTRL_SET_PACK_XYZ 
          write(cunit) k
./pkg/ctrl/ctrl_set_pack_xyz.F 443 CTRL_SET_PACK_XYZ 
          write(cunit) (cbuff(ii), ii=1,cbuffindex)
./pkg/ctrl/ctrl_set_pack_xyz.F 7 CTRL_SET_PACK_XYZ 
     &     cunit, ivartype, fname, masktype, weighttype,
./pkg/ctrl/ctrl_set_pack_xz.F 233 CTRL_SET_PACK_XZ 
            write(cunit) ncvarindex(ivartype)
./pkg/ctrl/ctrl_set_pack_xz.F 234 CTRL_SET_PACK_XZ 
            write(cunit) 1
./pkg/ctrl/ctrl_set_pack_xz.F 235 CTRL_SET_PACK_XZ 
            write(cunit) 1
./pkg/ctrl/ctrl_set_pack_xz.F 284 CTRL_SET_PACK_XZ 
                write(cunit) cbuffindex
./pkg/ctrl/ctrl_set_pack_xz.F 285 CTRL_SET_PACK_XZ 
                write(cunit) k
./pkg/ctrl/ctrl_set_pack_xz.F 286 CTRL_SET_PACK_XZ 
                write(cunit) (cbuff(ii), ii=1,cbuffindex)
./pkg/ctrl/ctrl_set_pack_xz.F 331 CTRL_SET_PACK_XZ 
         write(cunit) ncvarindex(ivartype)
./pkg/ctrl/ctrl_set_pack_xz.F 332 CTRL_SET_PACK_XZ 
         write(cunit) 1
./pkg/ctrl/ctrl_set_pack_xz.F 333 CTRL_SET_PACK_XZ 
         write(cunit) 1
./pkg/ctrl/ctrl_set_pack_xz.F 380 CTRL_SET_PACK_XZ 
               write(cunit) cbuffindex
./pkg/ctrl/ctrl_set_pack_xz.F 381 CTRL_SET_PACK_XZ 
               write(cunit) k
./pkg/ctrl/ctrl_set_pack_xz.F 382 CTRL_SET_PACK_XZ 
               write(cunit) (cbuff(ii), ii=1,cbuffindex)
./pkg/ctrl/ctrl_set_pack_xz.F 41 CTRL_SET_PACK_XZ 
      integer cunit
./pkg/ctrl/ctrl_set_pack_xz.F 7 CTRL_SET_PACK_XZ 
     &     cunit, ivartype, fname, masktype,weighttype,
./pkg/ctrl/ctrl_set_pack_yz.F 235 CTRL_SET_PACK_YZ 
            write(cunit) ncvarindex(ivartype)
./pkg/ctrl/ctrl_set_pack_yz.F 236 CTRL_SET_PACK_YZ 
            write(cunit) 1
./pkg/ctrl/ctrl_set_pack_yz.F 237 CTRL_SET_PACK_YZ 
            write(cunit) 1
./pkg/ctrl/ctrl_set_pack_yz.F 287 CTRL_SET_PACK_YZ 
                write(cunit) cbuffindex
./pkg/ctrl/ctrl_set_pack_yz.F 288 CTRL_SET_PACK_YZ 
                write(cunit) k
./pkg/ctrl/ctrl_set_pack_yz.F 289 CTRL_SET_PACK_YZ 
                write(cunit) (cbuff(ii), ii=1,cbuffindex)
./pkg/ctrl/ctrl_set_pack_yz.F 336 CTRL_SET_PACK_YZ 
         write(cunit) ncvarindex(ivartype)
./pkg/ctrl/ctrl_set_pack_yz.F 337 CTRL_SET_PACK_YZ 
         write(cunit) 1
./pkg/ctrl/ctrl_set_pack_yz.F 338 CTRL_SET_PACK_YZ 
         write(cunit) 1
./pkg/ctrl/ctrl_set_pack_yz.F 385 CTRL_SET_PACK_YZ 
               write(cunit) cbuffindex
./pkg/ctrl/ctrl_set_pack_yz.F 386 CTRL_SET_PACK_YZ 
               write(cunit) k
./pkg/ctrl/ctrl_set_pack_yz.F 387 CTRL_SET_PACK_YZ 
               write(cunit) (cbuff(ii), ii=1,cbuffindex)
./pkg/ctrl/ctrl_set_pack_yz.F 41 CTRL_SET_PACK_YZ 
      integer cunit
./pkg/ctrl/ctrl_set_pack_yz.F 7 CTRL_SET_PACK_YZ 
     &     cunit, ivartype, fname, masktype, weighttype,
./pkg/ctrl/ctrl_set_unpack_xy.F 165 CTRL_SET_UNPACK_XY 
         read(cunit) filencvarindex(ivartype)
./pkg/ctrl/ctrl_set_unpack_xy.F 172 CTRL_SET_UNPACK_XY 
         read(cunit) filej
./pkg/ctrl/ctrl_set_unpack_xy.F 173 CTRL_SET_UNPACK_XY 
         read(cunit) filei
./pkg/ctrl/ctrl_set_unpack_xy.F 178 CTRL_SET_UNPACK_XY 
               read(cunit) filencbuffindex
./pkg/ctrl/ctrl_set_unpack_xy.F 184 CTRL_SET_UNPACK_XY 
               read(cunit) filek
./pkg/ctrl/ctrl_set_unpack_xy.F 191 CTRL_SET_UNPACK_XY 
               read(cunit) (cbuff(ii), ii=1,cbuffindex)
./pkg/ctrl/ctrl_set_unpack_xy.F 271 CTRL_SET_UNPACK_XY 
         read(cunit) filencvarindex(ivartype)
./pkg/ctrl/ctrl_set_unpack_xy.F 278 CTRL_SET_UNPACK_XY 
         read(cunit) filej
./pkg/ctrl/ctrl_set_unpack_xy.F 279 CTRL_SET_UNPACK_XY 
         read(cunit) filei
./pkg/ctrl/ctrl_set_unpack_xy.F 286 CTRL_SET_UNPACK_XY 
               read(cunit) filencbuffindex
./pkg/ctrl/ctrl_set_unpack_xy.F 292 CTRL_SET_UNPACK_XY 
               read(cunit) filek
./pkg/ctrl/ctrl_set_unpack_xy.F 299 CTRL_SET_UNPACK_XY 
               read(cunit) (cbuff(ii), ii=1,cbuffindex)
./pkg/ctrl/ctrl_set_unpack_xy.F 39 CTRL_SET_UNPACK_XY 
      integer cunit
./pkg/ctrl/ctrl_set_unpack_xy.F 454 CTRL_SET_UNPACK_XY 
         read(cunit) filencvarindex(ivartype)
./pkg/ctrl/ctrl_set_unpack_xy.F 461 CTRL_SET_UNPACK_XY 
         read(cunit) filej
./pkg/ctrl/ctrl_set_unpack_xy.F 462 CTRL_SET_UNPACK_XY 
         read(cunit) filei
./pkg/ctrl/ctrl_set_unpack_xy.F 483 CTRL_SET_UNPACK_XY 
          read(cunit) filencbuffindex
./pkg/ctrl/ctrl_set_unpack_xy.F 484 CTRL_SET_UNPACK_XY 
          read(cunit) filek
./pkg/ctrl/ctrl_set_unpack_xy.F 495 CTRL_SET_UNPACK_XY 
          read(cunit) (cbuff(ii), ii=1,cbuffindex)
./pkg/ctrl/ctrl_set_unpack_xy.F 7 CTRL_SET_UNPACK_XY 
     &     lxxadxx, cunit, ivartype, fname, masktype, weighttype,
./pkg/ctrl/ctrl_set_unpack_xyz.F 178 CTRL_SET_UNPACK_XYZ 
         read(cunit) filencvarindex(ivartype)
./pkg/ctrl/ctrl_set_unpack_xyz.F 185 CTRL_SET_UNPACK_XYZ 
         read(cunit) filej
./pkg/ctrl/ctrl_set_unpack_xyz.F 186 CTRL_SET_UNPACK_XYZ 
         read(cunit) filei
./pkg/ctrl/ctrl_set_unpack_xyz.F 198 CTRL_SET_UNPACK_XYZ 
               read(cunit) filencbuffindex
./pkg/ctrl/ctrl_set_unpack_xyz.F 204 CTRL_SET_UNPACK_XYZ 
               read(cunit) filek
./pkg/ctrl/ctrl_set_unpack_xyz.F 211 CTRL_SET_UNPACK_XYZ 
               read(cunit) (cbuff(ii), ii=1,cbuffindex)
./pkg/ctrl/ctrl_set_unpack_xyz.F 366 CTRL_SET_UNPACK_XYZ 
         read(cunit) filencvarindex(ivartype)
./pkg/ctrl/ctrl_set_unpack_xyz.F 373 CTRL_SET_UNPACK_XYZ 
         read(cunit) filej
./pkg/ctrl/ctrl_set_unpack_xyz.F 374 CTRL_SET_UNPACK_XYZ 
         read(cunit) filei
./pkg/ctrl/ctrl_set_unpack_xyz.F 38 CTRL_SET_UNPACK_XYZ 
      integer cunit
./pkg/ctrl/ctrl_set_unpack_xyz.F 395 CTRL_SET_UNPACK_XYZ 
          read(cunit) filencbuffindex
./pkg/ctrl/ctrl_set_unpack_xyz.F 396 CTRL_SET_UNPACK_XYZ 
          read(cunit) filek
./pkg/ctrl/ctrl_set_unpack_xyz.F 407 CTRL_SET_UNPACK_XYZ 
          read(cunit) (cbuff(ii), ii=1,cbuffindex)
./pkg/ctrl/ctrl_set_unpack_xyz.F 7 CTRL_SET_UNPACK_XYZ 
     &     lxxadxx, cunit, ivartype, fname, masktype, weighttype,
./pkg/ctrl/ctrl_set_unpack_xz.F 214 CTRL_SET_UNPACK_XZ 
            read(cunit) filencvarindex(ivartype)
./pkg/ctrl/ctrl_set_unpack_xz.F 221 CTRL_SET_UNPACK_XZ 
            read(cunit) filej
./pkg/ctrl/ctrl_set_unpack_xz.F 222 CTRL_SET_UNPACK_XZ 
            read(cunit) filei
./pkg/ctrl/ctrl_set_unpack_xz.F 227 CTRL_SET_UNPACK_XZ 
                  read(cunit) filencbuffindex
./pkg/ctrl/ctrl_set_unpack_xz.F 233 CTRL_SET_UNPACK_XZ 
                  read(cunit) filek
./pkg/ctrl/ctrl_set_unpack_xz.F 239 CTRL_SET_UNPACK_XZ 
                  read(cunit) (cbuff(ii), ii=1,cbuffindex)
./pkg/ctrl/ctrl_set_unpack_xz.F 304 CTRL_SET_UNPACK_XZ 
         read(cunit) filencvarindex(ivartype)
./pkg/ctrl/ctrl_set_unpack_xz.F 311 CTRL_SET_UNPACK_XZ 
         read(cunit) filej
./pkg/ctrl/ctrl_set_unpack_xz.F 312 CTRL_SET_UNPACK_XZ 
         read(cunit) filei
./pkg/ctrl/ctrl_set_unpack_xz.F 317 CTRL_SET_UNPACK_XZ 
               read(cunit) filencbuffindex
./pkg/ctrl/ctrl_set_unpack_xz.F 323 CTRL_SET_UNPACK_XZ 
               read(cunit) filek
./pkg/ctrl/ctrl_set_unpack_xz.F 329 CTRL_SET_UNPACK_XZ 
               read(cunit) (cbuff(ii), ii=1,cbuffindex)
./pkg/ctrl/ctrl_set_unpack_xz.F 40 CTRL_SET_UNPACK_XZ 
      integer cunit
./pkg/ctrl/ctrl_set_unpack_xz.F 7 CTRL_SET_UNPACK_XZ 
     &     cunit, ivartype, fname, masktype, weighttype,
./pkg/ctrl/ctrl_set_unpack_yz.F 214 CTRL_SET_UNPACK_YZ 
            read(cunit) filencvarindex(ivartype)
./pkg/ctrl/ctrl_set_unpack_yz.F 221 CTRL_SET_UNPACK_YZ 
            read(cunit) filej
./pkg/ctrl/ctrl_set_unpack_yz.F 222 CTRL_SET_UNPACK_YZ 
            read(cunit) filei
./pkg/ctrl/ctrl_set_unpack_yz.F 227 CTRL_SET_UNPACK_YZ 
                  read(cunit) filencbuffindex
./pkg/ctrl/ctrl_set_unpack_yz.F 233 CTRL_SET_UNPACK_YZ 
                  read(cunit) filek
./pkg/ctrl/ctrl_set_unpack_yz.F 239 CTRL_SET_UNPACK_YZ 
                  read(cunit) (cbuff(ii), ii=1,cbuffindex)
./pkg/ctrl/ctrl_set_unpack_yz.F 302 CTRL_SET_UNPACK_YZ 
         read(cunit) filencvarindex(ivartype)
./pkg/ctrl/ctrl_set_unpack_yz.F 309 CTRL_SET_UNPACK_YZ 
         read(cunit) filej
./pkg/ctrl/ctrl_set_unpack_yz.F 310 CTRL_SET_UNPACK_YZ 
         read(cunit) filei
./pkg/ctrl/ctrl_set_unpack_yz.F 315 CTRL_SET_UNPACK_YZ 
               read(cunit) filencbuffindex
./pkg/ctrl/ctrl_set_unpack_yz.F 321 CTRL_SET_UNPACK_YZ 
               read(cunit) filek
./pkg/ctrl/ctrl_set_unpack_yz.F 327 CTRL_SET_UNPACK_YZ 
               read(cunit) (cbuff(ii), ii=1,cbuffindex)
./pkg/ctrl/ctrl_set_unpack_yz.F 40 CTRL_SET_UNPACK_YZ 
      integer cunit
./pkg/ctrl/ctrl_set_unpack_yz.F 7 CTRL_SET_UNPACK_YZ 
     &     cunit, ivartype, fname, masktype, weighttype,
./pkg/ctrl/ctrl_unpack.F 189 CTRL_UNPACK 
          call MDSFINDUNIT( cunit, mythid )
./pkg/ctrl/ctrl_unpack.F 193 CTRL_UNPACK 
          open( cunit, file   = cfile,
./pkg/ctrl/ctrl_unpack.F 199 CTRL_UNPACK 
          read(cunit) filenvartype
./pkg/ctrl/ctrl_unpack.F 200 CTRL_UNPACK 
          read(cunit) filenvarlength
./pkg/ctrl/ctrl_unpack.F 201 CTRL_UNPACK 
          read(cunit) fileYctrlid
./pkg/ctrl/ctrl_unpack.F 202 CTRL_UNPACK 
          read(cunit) fileOptimCycle
./pkg/ctrl/ctrl_unpack.F 203 CTRL_UNPACK 
          read(cunit) filefc
./pkg/ctrl/ctrl_unpack.F 204 CTRL_UNPACK 
          read(cunit) fileIg
./pkg/ctrl/ctrl_unpack.F 205 CTRL_UNPACK 
          read(cunit) fileJg
./pkg/ctrl/ctrl_unpack.F 206 CTRL_UNPACK 
          read(cunit) filensx
./pkg/ctrl/ctrl_unpack.F 207 CTRL_UNPACK 
          read(cunit) filensy
./pkg/ctrl/ctrl_unpack.F 208 CTRL_UNPACK 
          read(cunit) (filenWetcGlobal(k),   k=1,nr)
./pkg/ctrl/ctrl_unpack.F 209 CTRL_UNPACK 
          read(cunit) (filenWetsGlobal(k),   k=1,nr)
./pkg/ctrl/ctrl_unpack.F 210 CTRL_UNPACK 
          read(cunit) (filenWetwGlobal(k),   k=1,nr)
./pkg/ctrl/ctrl_unpack.F 212 CTRL_UNPACK 
          read(cunit) (filenWetvGlobal(k),   k=1,nr)
./pkg/ctrl/ctrl_unpack.F 217 CTRL_UNPACK 
          read(cunit) ((filenWetobcsnGlo(k,iobcs),
./pkg/ctrl/ctrl_unpack.F 221 CTRL_UNPACK 
          read(cunit) ((filenWetobcssGlo(k,iobcs),
./pkg/ctrl/ctrl_unpack.F 225 CTRL_UNPACK 
          read(cunit) ((filenWetobcswGlo(k,iobcs),
./pkg/ctrl/ctrl_unpack.F 229 CTRL_UNPACK 
          read(cunit) ((filenWetobcseGlo(k,iobcs),
./pkg/ctrl/ctrl_unpack.F 233 CTRL_UNPACK 
          read(cunit) (filencvarindex(i), i=1,maxcvars)
./pkg/ctrl/ctrl_unpack.F 234 CTRL_UNPACK 
          read(cunit) (filencvarrecs(i),  i=1,maxcvars)
./pkg/ctrl/ctrl_unpack.F 235 CTRL_UNPACK 
          read(cunit) (filencvarxmax(i),  i=1,maxcvars)
./pkg/ctrl/ctrl_unpack.F 236 CTRL_UNPACK 
          read(cunit) (filencvarymax(i),  i=1,maxcvars)
./pkg/ctrl/ctrl_unpack.F 237 CTRL_UNPACK 
          read(cunit) (filencvarnrmax(i), i=1,maxcvars)
./pkg/ctrl/ctrl_unpack.F 238 CTRL_UNPACK 
          read(cunit) (filencvargrd(i),   i=1,maxcvars)
./pkg/ctrl/ctrl_unpack.F 239 CTRL_UNPACK 
          read(cunit)
./pkg/ctrl/ctrl_unpack.F 327 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 336 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 345 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 354 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 363 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 377 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 391 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 400 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 409 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 418 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 428 CTRL_UNPACK 
     &         cunit, ivartype, fname_obcsn(ictrlgrad), "maskobcsn",
./pkg/ctrl/ctrl_unpack.F 437 CTRL_UNPACK 
     &         cunit, ivartype, fname_obcss(ictrlgrad), "maskobcss",
./pkg/ctrl/ctrl_unpack.F 446 CTRL_UNPACK 
     &         cunit, ivartype, fname_obcsw(ictrlgrad), "maskobcsw",
./pkg/ctrl/ctrl_unpack.F 455 CTRL_UNPACK 
     &         cunit, ivartype, fname_obcse(ictrlgrad), "maskobcse",
./pkg/ctrl/ctrl_unpack.F 463 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 472 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 481 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 490 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 499 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 508 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 518 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 527 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 536 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 545 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 554 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 561 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 570 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 579 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 588 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 597 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 606 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 615 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 624 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 633 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 642 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 651 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 660 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 669 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 678 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 687 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 696 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 705 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 714 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 723 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 734 CTRL_UNPACK 
      close ( cunit )
./pkg/ctrl/ctrl_unpack.F 77 CTRL_UNPACK 
      integer cunit