Symbol Description Uses
cunit 346


File Line number Procedure Code
./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 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 521 ADMTLM_DSVD2MODEL 
          call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype,
./pkg/admtlm/admtlm_dsvd2model.F 530 ADMTLM_DSVD2MODEL 
          call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype,
./pkg/admtlm/admtlm_dsvd2model.F 539 ADMTLM_DSVD2MODEL 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/admtlm/admtlm_dsvd2model.F 548 ADMTLM_DSVD2MODEL 
          call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype,
./pkg/admtlm/admtlm_dsvd2model.F 557 ADMTLM_DSVD2MODEL 
          call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype,
./pkg/admtlm/admtlm_dsvd2model.F 566 ADMTLM_DSVD2MODEL 
          call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype,
./pkg/admtlm/admtlm_dsvd2model.F 575 ADMTLM_DSVD2MODEL 
          call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype,
./pkg/admtlm/admtlm_dsvd2model.F 584 ADMTLM_DSVD2MODEL 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/admtlm/admtlm_dsvd2model.F 593 ADMTLM_DSVD2MODEL 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/admtlm/admtlm_dsvd2model.F 602 ADMTLM_DSVD2MODEL 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/admtlm/admtlm_dsvd2model.F 611 ADMTLM_DSVD2MODEL 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/admtlm/admtlm_dsvd2model.F 620 ADMTLM_DSVD2MODEL 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/admtlm/admtlm_dsvd2model.F 629 ADMTLM_DSVD2MODEL 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/admtlm/admtlm_dsvd2model.F 634 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 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 434 ADMTLM_MODEL2DSVD 
     &         cunit, ivartype, fname_efluxy(ictrlgrad), "maskCtrlS",
./pkg/admtlm/admtlm_model2dsvd.F 443 ADMTLM_MODEL2DSVD 
     &         cunit, ivartype, fname_efluxp(ictrlgrad), "maskhFacV",
./pkg/admtlm/admtlm_model2dsvd.F 452 ADMTLM_MODEL2DSVD 
     &      cunit, ivartype, fname_bottomdrag(ictrlgrad), "maskCtrlC",
./pkg/admtlm/admtlm_model2dsvd.F 461 ADMTLM_MODEL2DSVD 
     &         cunit, ivartype, fname_edtaux(ictrlgrad), "maskCtrlW",
./pkg/admtlm/admtlm_model2dsvd.F 470 ADMTLM_MODEL2DSVD 
     &         cunit, ivartype, fname_edtauy(ictrlgrad), "maskCtrlS",
./pkg/admtlm/admtlm_model2dsvd.F 479 ADMTLM_MODEL2DSVD 
     &         cunit, ivartype, fname_uvel(ictrlgrad), "maskCtrlW",
./pkg/admtlm/admtlm_model2dsvd.F 488 ADMTLM_MODEL2DSVD 
     &         cunit, ivartype, fname_vvel(ictrlgrad), "maskCtrlS",
./pkg/admtlm/admtlm_model2dsvd.F 497 ADMTLM_MODEL2DSVD 
     &         cunit, ivartype, fname_etan(ictrlgrad), "maskCtrlC",
./pkg/admtlm/admtlm_model2dsvd.F 506 ADMTLM_MODEL2DSVD 
     &         cunit, ivartype, fname_relaxsst(ictrlgrad), "maskCtrlC",
./pkg/admtlm/admtlm_model2dsvd.F 515 ADMTLM_MODEL2DSVD 
     &         cunit, ivartype, fname_relaxsss(ictrlgrad), "maskCtrlC",
./pkg/admtlm/admtlm_model2dsvd.F 524 ADMTLM_MODEL2DSVD 
     &         cunit, ivartype, fname_precip(ictrlgrad), "maskCtrlC",
./pkg/admtlm/admtlm_model2dsvd.F 533 ADMTLM_MODEL2DSVD 
     &         cunit, ivartype, fname_swflux(ictrlgrad), "maskCtrlC",
./pkg/admtlm/admtlm_model2dsvd.F 542 ADMTLM_MODEL2DSVD 
     &         cunit, ivartype, fname_swdown(ictrlgrad), "maskCtrlC",
./pkg/admtlm/admtlm_model2dsvd.F 546 ADMTLM_MODEL2DSVD 
          close ( cunit )
./pkg/admtlm/admtlm_model2dsvd.F 81 ADMTLM_MODEL2DSVD 
      integer cunit
./pkg/ctrl/ctrl_set_pack_yz.F 191 CTRL_SET_PACK_YZ 
            write(cunit) ncvarindex(ivartype)
./pkg/ctrl/ctrl_set_pack_yz.F 192 CTRL_SET_PACK_YZ 
            write(cunit) 1
./pkg/ctrl/ctrl_set_pack_yz.F 193 CTRL_SET_PACK_YZ 
            write(cunit) 1
./pkg/ctrl/ctrl_set_pack_yz.F 235 CTRL_SET_PACK_YZ 
                write(cunit) cbuffindex
./pkg/ctrl/ctrl_set_pack_yz.F 236 CTRL_SET_PACK_YZ 
                write(cunit) k
./pkg/ctrl/ctrl_set_pack_yz.F 237 CTRL_SET_PACK_YZ 
                write(cunit) (cbuff(ii), ii=1,cbuffindex)
./pkg/ctrl/ctrl_set_pack_yz.F 279 CTRL_SET_PACK_YZ 
         write(cunit) ncvarindex(ivartype)
./pkg/ctrl/ctrl_set_pack_yz.F 280 CTRL_SET_PACK_YZ 
         write(cunit) 1
./pkg/ctrl/ctrl_set_pack_yz.F 281 CTRL_SET_PACK_YZ 
         write(cunit) 1
./pkg/ctrl/ctrl_set_pack_yz.F 320 CTRL_SET_PACK_YZ 
               write(cunit) cbuffindex
./pkg/ctrl/ctrl_set_pack_yz.F 321 CTRL_SET_PACK_YZ 
               write(cunit) k
./pkg/ctrl/ctrl_set_pack_yz.F 322 CTRL_SET_PACK_YZ 
               write(cunit) (cbuff(ii), ii=1,cbuffindex)
./pkg/ctrl/ctrl_set_pack_yz.F 39 CTRL_SET_PACK_YZ 
      integer cunit
./pkg/ctrl/ctrl_set_pack_yz.F 5 CTRL_SET_PACK_YZ 
     &     cunit, ivartype, fname, masktype, weighttype,
./pkg/ctrl/ctrl_set_pack_xy.F 162 CTRL_SET_PACK_XY 
         write(cunit) ncvarindex(ivartype)
./pkg/ctrl/ctrl_set_pack_xy.F 163 CTRL_SET_PACK_XY 
         write(cunit) 1
./pkg/ctrl/ctrl_set_pack_xy.F 164 CTRL_SET_PACK_XY 
         write(cunit) 1
./pkg/ctrl/ctrl_set_pack_xy.F 209 CTRL_SET_PACK_XY 
               write(cunit) cbuffindex
./pkg/ctrl/ctrl_set_pack_xy.F 210 CTRL_SET_PACK_XY 
               write(cunit) 1
./pkg/ctrl/ctrl_set_pack_xy.F 212 CTRL_SET_PACK_XY 
               write(cunit) (cbuff(ii), ii=1,cbuffindex)
./pkg/ctrl/ctrl_set_pack_xy.F 232 CTRL_SET_PACK_XY 
         write(cunit) ncvarindex(ivartype)
./pkg/ctrl/ctrl_set_pack_xy.F 233 CTRL_SET_PACK_XY 
         write(cunit) 1
./pkg/ctrl/ctrl_set_pack_xy.F 234 CTRL_SET_PACK_XY 
         write(cunit) 1
./pkg/ctrl/ctrl_set_pack_xy.F 281 CTRL_SET_PACK_XY 
               write(cunit) cbuffindex
./pkg/ctrl/ctrl_set_pack_xy.F 282 CTRL_SET_PACK_XY 
               write(cunit) k
./pkg/ctrl/ctrl_set_pack_xy.F 284 CTRL_SET_PACK_XY 
               write(cunit) (cbuff(ii), ii=1,cbuffindex)
./pkg/ctrl/ctrl_set_pack_xy.F 36 CTRL_SET_PACK_XY 
      integer cunit
./pkg/ctrl/ctrl_set_pack_xy.F 5 CTRL_SET_PACK_XY 
     &     cunit, ivartype, fname, masktype, weighttype,
./pkg/ctrl/ctrl_set_unpack_xyz.F 174 CTRL_SET_UNPACK_XYZ 
         read(cunit) filencvarindex(ivartype)
./pkg/ctrl/ctrl_set_unpack_xyz.F 181 CTRL_SET_UNPACK_XYZ 
         read(cunit) filej
./pkg/ctrl/ctrl_set_unpack_xyz.F 182 CTRL_SET_UNPACK_XYZ 
         read(cunit) filei
./pkg/ctrl/ctrl_set_unpack_xyz.F 194 CTRL_SET_UNPACK_XYZ 
               read(cunit) filencbuffindex
./pkg/ctrl/ctrl_set_unpack_xyz.F 200 CTRL_SET_UNPACK_XYZ 
               read(cunit) filek
./pkg/ctrl/ctrl_set_unpack_xyz.F 207 CTRL_SET_UNPACK_XYZ 
               read(cunit) (cbuff(ii), ii=1,cbuffindex)
./pkg/ctrl/ctrl_set_unpack_xyz.F 36 CTRL_SET_UNPACK_XYZ 
      integer cunit
./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 188 CTRL_SET_PACK_XZ 
            write(cunit) ncvarindex(ivartype)
./pkg/ctrl/ctrl_set_pack_xz.F 189 CTRL_SET_PACK_XZ 
            write(cunit) 1
./pkg/ctrl/ctrl_set_pack_xz.F 190 CTRL_SET_PACK_XZ 
            write(cunit) 1
./pkg/ctrl/ctrl_set_pack_xz.F 231 CTRL_SET_PACK_XZ 
                write(cunit) cbuffindex
./pkg/ctrl/ctrl_set_pack_xz.F 232 CTRL_SET_PACK_XZ 
                write(cunit) k
./pkg/ctrl/ctrl_set_pack_xz.F 233 CTRL_SET_PACK_XZ 
                write(cunit) (cbuff(ii), ii=1,cbuffindex)
./pkg/ctrl/ctrl_set_pack_xz.F 272 CTRL_SET_PACK_XZ 
         write(cunit) ncvarindex(ivartype)
./pkg/ctrl/ctrl_set_pack_xz.F 273 CTRL_SET_PACK_XZ 
         write(cunit) 1
./pkg/ctrl/ctrl_set_pack_xz.F 274 CTRL_SET_PACK_XZ 
         write(cunit) 1
./pkg/ctrl/ctrl_set_pack_xz.F 313 CTRL_SET_PACK_XZ 
               write(cunit) cbuffindex
./pkg/ctrl/ctrl_set_pack_xz.F 314 CTRL_SET_PACK_XZ 
               write(cunit) k
./pkg/ctrl/ctrl_set_pack_xz.F 315 CTRL_SET_PACK_XZ 
               write(cunit) (cbuff(ii), ii=1,cbuffindex)
./pkg/ctrl/ctrl_set_pack_xz.F 39 CTRL_SET_PACK_XZ 
      integer cunit
./pkg/ctrl/ctrl_set_pack_xz.F 5 CTRL_SET_PACK_XZ 
     &     cunit, ivartype, fname, masktype,weighttype,
./pkg/ctrl/ctrl_set_pack_xyz.F 170 CTRL_SET_PACK_XYZ 
         write(cunit) ncvarindex(ivartype)
./pkg/ctrl/ctrl_set_pack_xyz.F 171 CTRL_SET_PACK_XYZ 
         write(cunit) 1
./pkg/ctrl/ctrl_set_pack_xyz.F 172 CTRL_SET_PACK_XYZ 
         write(cunit) 1
./pkg/ctrl/ctrl_set_pack_xyz.F 232 CTRL_SET_PACK_XYZ 
               write(cunit) cbuffindex
./pkg/ctrl/ctrl_set_pack_xyz.F 233 CTRL_SET_PACK_XYZ 
               write(cunit) k
./pkg/ctrl/ctrl_set_pack_xyz.F 235 CTRL_SET_PACK_XYZ 
               write(cunit) (cbuff(ii), ii=1,cbuffindex)
./pkg/ctrl/ctrl_set_pack_xyz.F 36 CTRL_SET_PACK_XYZ 
      integer cunit
./pkg/ctrl/ctrl_set_pack_xyz.F 5 CTRL_SET_PACK_XYZ 
     &     cunit, ivartype, fname, masktype, weighttype,
./pkg/ctrl/ctrl_unpack.F 173 CTRL_UNPACK 
          call MDSFINDUNIT( cunit, mythid )
./pkg/ctrl/ctrl_unpack.F 177 CTRL_UNPACK 
          open( cunit, file   = cfile,
./pkg/ctrl/ctrl_unpack.F 183 CTRL_UNPACK 
          read(cunit) filenvartype
./pkg/ctrl/ctrl_unpack.F 184 CTRL_UNPACK 
          read(cunit) filenvarlength
./pkg/ctrl/ctrl_unpack.F 185 CTRL_UNPACK 
          read(cunit) fileYctrlid
./pkg/ctrl/ctrl_unpack.F 186 CTRL_UNPACK 
          read(cunit) fileOptimCycle
./pkg/ctrl/ctrl_unpack.F 187 CTRL_UNPACK 
          read(cunit) filefc
./pkg/ctrl/ctrl_unpack.F 188 CTRL_UNPACK 
          read(cunit) fileIg
./pkg/ctrl/ctrl_unpack.F 189 CTRL_UNPACK 
          read(cunit) fileJg
./pkg/ctrl/ctrl_unpack.F 190 CTRL_UNPACK 
          read(cunit) filensx
./pkg/ctrl/ctrl_unpack.F 191 CTRL_UNPACK 
          read(cunit) filensy
./pkg/ctrl/ctrl_unpack.F 192 CTRL_UNPACK 
          read(cunit) (filenWetcGlobal(k),   k=1,nr)
./pkg/ctrl/ctrl_unpack.F 193 CTRL_UNPACK 
          read(cunit) (filenWetsGlobal(k),   k=1,nr)
./pkg/ctrl/ctrl_unpack.F 194 CTRL_UNPACK 
          read(cunit) (filenWetwGlobal(k),   k=1,nr)
./pkg/ctrl/ctrl_unpack.F 196 CTRL_UNPACK 
          read(cunit) (filenWetvGlobal(k),   k=1,nr)
./pkg/ctrl/ctrl_unpack.F 201 CTRL_UNPACK 
          read(cunit) ((filenWetobcsnGlo(k,iobcs),
./pkg/ctrl/ctrl_unpack.F 205 CTRL_UNPACK 
          read(cunit) ((filenWetobcssGlo(k,iobcs),
./pkg/ctrl/ctrl_unpack.F 209 CTRL_UNPACK 
          read(cunit) ((filenWetobcswGlo(k,iobcs),
./pkg/ctrl/ctrl_unpack.F 213 CTRL_UNPACK 
          read(cunit) ((filenWetobcseGlo(k,iobcs),
./pkg/ctrl/ctrl_unpack.F 217 CTRL_UNPACK 
          read(cunit) (filencvarindex(i), i=1,maxcvars)
./pkg/ctrl/ctrl_unpack.F 218 CTRL_UNPACK 
          read(cunit) (filencvarrecs(i),  i=1,maxcvars)
./pkg/ctrl/ctrl_unpack.F 219 CTRL_UNPACK 
          read(cunit) (filencvarxmax(i),  i=1,maxcvars)
./pkg/ctrl/ctrl_unpack.F 220 CTRL_UNPACK 
          read(cunit) (filencvarymax(i),  i=1,maxcvars)
./pkg/ctrl/ctrl_unpack.F 221 CTRL_UNPACK 
          read(cunit) (filencvarnrmax(i), i=1,maxcvars)
./pkg/ctrl/ctrl_unpack.F 222 CTRL_UNPACK 
          read(cunit) (filencvargrd(i),   i=1,maxcvars)
./pkg/ctrl/ctrl_unpack.F 223 CTRL_UNPACK 
          read(cunit)
./pkg/ctrl/ctrl_unpack.F 305 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 314 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 323 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 332 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 341 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 350 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 359 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 368 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 386 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 396 CTRL_UNPACK 
     &         cunit, ivartype, fname_obcsn(ictrlgrad), "maskobcsn",
./pkg/ctrl/ctrl_unpack.F 405 CTRL_UNPACK 
     &         cunit, ivartype, fname_obcss(ictrlgrad), "maskobcss",
./pkg/ctrl/ctrl_unpack.F 414 CTRL_UNPACK 
     &         cunit, ivartype, fname_obcsw(ictrlgrad), "maskobcsw",
./pkg/ctrl/ctrl_unpack.F 423 CTRL_UNPACK 
     &         cunit, ivartype, fname_obcse(ictrlgrad), "maskobcse",
./pkg/ctrl/ctrl_unpack.F 431 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 440 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 449 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 458 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 467 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 476 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 486 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 495 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 504 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 513 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 522 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 531 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 540 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 549 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 558 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 567 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 576 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 585 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 594 CTRL_UNPACK 
          call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype,
./pkg/ctrl/ctrl_unpack.F 599 CTRL_UNPACK 
         close ( cunit )
./pkg/ctrl/ctrl_unpack.F 77 CTRL_UNPACK 
      integer cunit
./pkg/ctrl/ctrl_set_unpack_xz.F 166 CTRL_SET_UNPACK_XZ 
            read(cunit) filencvarindex(ivartype)
./pkg/ctrl/ctrl_set_unpack_xz.F 173 CTRL_SET_UNPACK_XZ 
            read(cunit) filej
./pkg/ctrl/ctrl_set_unpack_xz.F 174 CTRL_SET_UNPACK_XZ 
            read(cunit) filei
./pkg/ctrl/ctrl_set_unpack_xz.F 178 CTRL_SET_UNPACK_XZ 
                  read(cunit) filencbuffindex
./pkg/ctrl/ctrl_set_unpack_xz.F 184 CTRL_SET_UNPACK_XZ 
                  read(cunit) filek
./pkg/ctrl/ctrl_set_unpack_xz.F 190 CTRL_SET_UNPACK_XZ 
                  read(cunit) (cbuff(ii), ii=1,cbuffindex)
./pkg/ctrl/ctrl_set_unpack_xz.F 241 CTRL_SET_UNPACK_XZ 
         read(cunit) filencvarindex(ivartype)
./pkg/ctrl/ctrl_set_unpack_xz.F 248 CTRL_SET_UNPACK_XZ 
         read(cunit) filej
./pkg/ctrl/ctrl_set_unpack_xz.F 249 CTRL_SET_UNPACK_XZ 
         read(cunit) filei
./pkg/ctrl/ctrl_set_unpack_xz.F 253 CTRL_SET_UNPACK_XZ 
               read(cunit) filencbuffindex
./pkg/ctrl/ctrl_set_unpack_xz.F 259 CTRL_SET_UNPACK_XZ 
               read(cunit) filek
./pkg/ctrl/ctrl_set_unpack_xz.F 265 CTRL_SET_UNPACK_XZ 
               read(cunit) (cbuff(ii), ii=1,cbuffindex)
./pkg/ctrl/ctrl_set_unpack_xz.F 38 CTRL_SET_UNPACK_XZ 
      integer cunit
./pkg/ctrl/ctrl_set_unpack_xz.F 5 CTRL_SET_UNPACK_XZ 
     &     cunit, ivartype, fname, masktype, weighttype,
./pkg/ctrl/ctrl_pack.F 164 CTRL_PACK 
       call MDSFINDUNIT( cunit, mythid )
./pkg/ctrl/ctrl_pack.F 165 CTRL_PACK 
       open( cunit, file   = cfile,
./pkg/ctrl/ctrl_pack.F 171 CTRL_PACK 
          write(cunit) nvartype
./pkg/ctrl/ctrl_pack.F 172 CTRL_PACK 
          write(cunit) nvarlength
./pkg/ctrl/ctrl_pack.F 173 CTRL_PACK 
          write(cunit) yctrlid
./pkg/ctrl/ctrl_pack.F 174 CTRL_PACK 
          write(cunit) optimCycle
./pkg/ctrl/ctrl_pack.F 175 CTRL_PACK 
          write(cunit) fc
./pkg/ctrl/ctrl_pack.F 177 CTRL_PACK 
          write(cunit) 1
./pkg/ctrl/ctrl_pack.F 179 CTRL_PACK 
          write(cunit) 1
./pkg/ctrl/ctrl_pack.F 180 CTRL_PACK 
          write(cunit) nsx
./pkg/ctrl/ctrl_pack.F 181 CTRL_PACK 
          write(cunit) nsy
./pkg/ctrl/ctrl_pack.F 182 CTRL_PACK 
          write(cunit) (nWetcGlobal(k), k=1,nr)
./pkg/ctrl/ctrl_pack.F 183 CTRL_PACK 
          write(cunit) (nWetsGlobal(k), k=1,nr)
./pkg/ctrl/ctrl_pack.F 184 CTRL_PACK 
          write(cunit) (nWetwGlobal(k), k=1,nr)
./pkg/ctrl/ctrl_pack.F 186 CTRL_PACK 
          write(cunit) (nWetvGlobal(k), k=1,nr)
./pkg/ctrl/ctrl_pack.F 190 CTRL_PACK 
          write(cunit) ((nWetobcsnGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs)
./pkg/ctrl/ctrl_pack.F 193 CTRL_PACK 
          write(cunit) ((nWetobcssGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs)
./pkg/ctrl/ctrl_pack.F 196 CTRL_PACK 
          write(cunit) ((nWetobcswGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs)
./pkg/ctrl/ctrl_pack.F 199 CTRL_PACK 
          write(cunit) ((nWetobcseGlo(k,