Symbol Description Uses
weighttype 216


File Line number Procedure Code
./pkg/ctrl/ctrl_set_pack_yz.F 133 CTRL_SET_PACK_YZ 
         il=ilnblnk( weighttype)
./pkg/ctrl/ctrl_set_pack_yz.F 135 CTRL_SET_PACK_YZ 
         write(weightname(1:80),'(a)') weighttype(1:il)
./pkg/ctrl/ctrl_set_pack_yz.F 43 CTRL_SET_PACK_YZ 
      character*( 80) weighttype
./pkg/ctrl/ctrl_set_pack_yz.F 5 CTRL_SET_PACK_YZ 
     &     cunit, ivartype, fname, masktype, weighttype,
./pkg/ctrl/ctrl_set_unpack_xy.F 144 CTRL_SET_UNPACK_XY 
      il=ilnblnk( weighttype)
./pkg/ctrl/ctrl_set_unpack_xy.F 146 CTRL_SET_UNPACK_XY 
      write(weightname(1:80),'(a)') weighttype(1:il)
./pkg/ctrl/ctrl_set_unpack_xy.F 41 CTRL_SET_UNPACK_XY 
      character*( 80) weighttype
./pkg/ctrl/ctrl_set_unpack_xy.F 5 CTRL_SET_UNPACK_XY 
     &     lxxadxx, cunit, ivartype, fname, masktype, weighttype,
./pkg/ctrl/ctrl_set_pack_xy.F 142 CTRL_SET_PACK_XY 
      il=ilnblnk( weighttype)
./pkg/ctrl/ctrl_set_pack_xy.F 144 CTRL_SET_PACK_XY 
      write(weightname(1:80),'(a)') weighttype(1:il)
./pkg/ctrl/ctrl_set_pack_xy.F 40 CTRL_SET_PACK_XY 
      character*( 80) weighttype
./pkg/ctrl/ctrl_set_pack_xy.F 5 CTRL_SET_PACK_XY 
     &     cunit, ivartype, fname, masktype, weighttype,
./pkg/ctrl/ctrl_set_unpack_xz.F 134 CTRL_SET_UNPACK_XZ 
         il=ilnblnk( weighttype)
./pkg/ctrl/ctrl_set_unpack_xz.F 136 CTRL_SET_UNPACK_XZ 
         write(weightname(1:80),'(a)') weighttype(1:il)
./pkg/ctrl/ctrl_set_unpack_xz.F 42 CTRL_SET_UNPACK_XZ 
      character*( 80) weighttype
./pkg/ctrl/ctrl_set_unpack_xz.F 5 CTRL_SET_UNPACK_XZ 
     &     cunit, ivartype, fname, masktype, weighttype,
./pkg/ctrl/ctrl_pack.F 208 CTRL_PACK 
          write(weighttype(1:80),'(80a)') ' '
./pkg/ctrl/ctrl_pack.F 209 CTRL_PACK 
          write(weighttype(1:80),'(a)') "wtheta"
./pkg/ctrl/ctrl_pack.F 212 CTRL_PACK 
     &         weighttype, wtheta, lxxadxx, mythid)
./pkg/ctrl/ctrl_pack.F 217 CTRL_PACK 
          write(weighttype(1:80),'(80a)') ' '
./pkg/ctrl/ctrl_pack.F 218 CTRL_PACK 
          write(weighttype(1:80),'(a)') "wsalt"
./pkg/ctrl/ctrl_pack.F 221 CTRL_PACK 
     &         weighttype, wsalt, lxxadxx, mythid)
./pkg/ctrl/ctrl_pack.F 227 CTRL_PACK 
          write(weighttype(1:80),'(80a)') ' '
./pkg/ctrl/ctrl_pack.F 228 CTRL_PACK 
          write(weighttype(1:80),'(a)') "whflux"
./pkg/ctrl/ctrl_pack.F 231 CTRL_PACK 
     &         weighttype, lxxadxx, mythid)
./pkg/ctrl/ctrl_pack.F 237 CTRL_PACK 
          write(weighttype(1:80),'(80a)') ' '
./pkg/ctrl/ctrl_pack.F 238 CTRL_PACK 
          write(weighttype(1:80),'(a)') "wsflux"
./pkg/ctrl/ctrl_pack.F 241 CTRL_PACK 
     &         weighttype, lxxadxx, mythid)
./pkg/ctrl/ctrl_pack.F 247 CTRL_PACK 
          write(weighttype(1:80),'(80a)') ' '
./pkg/ctrl/ctrl_pack.F 248 CTRL_PACK 
          write(weighttype(1:80),'(a)') "wtauu"
./pkg/ctrl/ctrl_pack.F 251 CTRL_PACK 
     &         weighttype, lxxadxx, mythid)
./pkg/ctrl/ctrl_pack.F 257 CTRL_PACK 
          write(weighttype(1:80),'(80a)') ' '
./pkg/ctrl/ctrl_pack.F 258 CTRL_PACK 
          write(weighttype(1:80),'(a)') "wtauv"
./pkg/ctrl/ctrl_pack.F 261 CTRL_PACK 
     &         weighttype, lxxadxx, mythid)
./pkg/ctrl/ctrl_pack.F 266 CTRL_PACK 
          write(weighttype(1:80),'(80a)') ' '
./pkg/ctrl/ctrl_pack.F 267 CTRL_PACK 
          write(weighttype(1:80),'(a)') "watemp"
./pkg/ctrl/ctrl_pack.F 270 CTRL_PACK 
     &         weighttype, lxxadxx, mythid)
./pkg/ctrl/ctrl_pack.F 275 CTRL_PACK 
          write(weighttype(1:80),'(80a)') ' '
./pkg/ctrl/ctrl_pack.F 276 CTRL_PACK 
          write(weighttype(1:80),'(a)') "waqh"
./pkg/ctrl/ctrl_pack.F 279 CTRL_PACK 
     &         weighttype, lxxadxx, mythid)
./pkg/ctrl/ctrl_pack.F 284 CTRL_PACK 
          write(weighttype(1:80),'(80a)') ' '
./pkg/ctrl/ctrl_pack.F 285 CTRL_PACK 
          write(weighttype(1:80),'(a)') "wuwind"
./pkg/ctrl/ctrl_pack.F 288 CTRL_PACK 
     &         weighttype, lxxadxx, mythid)
./pkg/ctrl/ctrl_pack.F 293 CTRL_PACK 
          write(weighttype(1:80),'(80a)') ' '
./pkg/ctrl/ctrl_pack.F 294 CTRL_PACK 
          write(weighttype(1:80),'(a)') "wvwind"
./pkg/ctrl/ctrl_pack.F 297 CTRL_PACK 
     &         weighttype, lxxadxx, mythid)
./pkg/ctrl/ctrl_pack.F 302 CTRL_PACK 
          write(weighttype(1:80),'(80a)') ' '
./pkg/ctrl/ctrl_pack.F 303 CTRL_PACK 
          write(weighttype(1:80),'(a)') "wobcsn"
./pkg/ctrl/ctrl_pack.F 306 CTRL_PACK 
     &         weighttype, wobcsn, lxxadxx, mythid)
./pkg/ctrl/ctrl_pack.F 311 CTRL_PACK 
          write(weighttype(1:80),'(80a)') ' '
./pkg/ctrl/ctrl_pack.F 312 CTRL_PACK 
          write(weighttype(1:80),'(a)') "wobcss"
./pkg/ctrl/ctrl_pack.F 315 CTRL_PACK 
     &         weighttype, wobcss, lxxadxx, mythid)
./pkg/ctrl/ctrl_pack.F 320 CTRL_PACK 
          write(weighttype(1:80),'(80a)') ' '
./pkg/ctrl/ctrl_pack.F 321 CTRL_PACK 
          write(weighttype(1:80),'(a)') "wobcsw"
./pkg/ctrl/ctrl_pack.F 324 CTRL_PACK 
     &         weighttype, wobcsw, lxxadxx, mythid)
./pkg/ctrl/ctrl_pack.F 329 CTRL_PACK 
          write(weighttype(1:80),'(80a)') ' '
./pkg/ctrl/ctrl_pack.F 330 CTRL_PACK 
          write(weighttype(1:80),'(a)') "wobcse"
./pkg/ctrl/ctrl_pack.F 333 CTRL_PACK 
     &         weighttype, wobcse, lxxadxx, mythid)
./pkg/ctrl/ctrl_pack.F 338 CTRL_PACK 
          write(weighttype(1:80),'(80a)') ' '
./pkg/ctrl/ctrl_pack.F 339 CTRL_PACK 
          write(weighttype(1:80),'(a)') "wdiffkr"
./pkg/ctrl/ctrl_pack.F 342 CTRL_PACK 
     &         weighttype, wunit, lxxadxx, mythid)
./pkg/ctrl/ctrl_pack.F 347 CTRL_PACK 
          write(weighttype(1:80),'(80a)') ' '
./pkg/ctrl/ctrl_pack.F 348 CTRL_PACK 
          write(weighttype(1:80),'(a)') "wkapgm"
./pkg/ctrl/ctrl_pack.F 351 CTRL_PACK 
     &         weighttype, wunit, lxxadxx, mythid)
./pkg/ctrl/ctrl_pack.F 356 CTRL_PACK 
          write(weighttype(1:80),'(80a)') ' '
./pkg/ctrl/ctrl_pack.F 357 CTRL_PACK 
          write(weighttype(1:80),'(a)') "wtr1"
./pkg/ctrl/ctrl_pack.F 360 CTRL_PACK 
     &         weighttype, wunit, lxxadxx, mythid)
./pkg/ctrl/ctrl_pack.F 365 CTRL_PACK 
          write(weighttype(1:80),'(80a)') ' '
./pkg/ctrl/ctrl_pack.F 366 CTRL_PACK 
          write(weighttype(1:80),'(a)') "wsst0"
./pkg/ctrl/ctrl_pack.F 369 CTRL_PACK 
     &         weighttype, lxxadxx, mythid)
./pkg/ctrl/ctrl_pack.F 374 CTRL_PACK 
          write(weighttype(1:80),'(80a)') ' '
./pkg/ctrl/ctrl_pack.F 375 CTRL_PACK 
          write(weighttype(1:80),'(a)') "wsss0"
./pkg/ctrl/ctrl_pack.F 378 CTRL_PACK 
     &         weighttype, lxxadxx, mythid)
./pkg/ctrl/ctrl_pack.F 383 CTRL_PACK 
          write(weighttype(1:80),'(80a)') ' '
./pkg/ctrl/ctrl_pack.F 384 CTRL_PACK 
          write(weighttype(1:80),'(a)') "whfacc"
./pkg/ctrl/ctrl_pack.F 388 CTRL_PACK 
     &         weighttype, wunit, lxxadxx, mythid)
./pkg/ctrl/ctrl_pack.F 392 CTRL_PACK 
     &         weighttype, lxxadxx, mythid)
./pkg/ctrl/ctrl_pack.F 398 CTRL_PACK 
          write(weighttype(1:80),'(80a)') ' '
./pkg/ctrl/ctrl_pack.F 399 CTRL_PACK 
          write(weighttype(1:80),'(a)') "wefluxy0"
./pkg/ctrl/ctrl_pack.F 402 CTRL_PACK 
     &         weighttype, wunit, lxxadxx, mythid)
./pkg/ctrl/ctrl_pack.F 407 CTRL_PACK 
          write(weighttype(1:80),'(80a)') ' '
./pkg/ctrl/ctrl_pack.F 408 CTRL_PACK 
          write(weighttype(1:80),'(a)') "wefluxp0"
./pkg/ctrl/ctrl_pack.F 411 CTRL_PACK 
     &         weighttype, wunit, lxxadxx, mythid)
./pkg/ctrl/ctrl_pack.F 416 CTRL_PACK 
          write(weighttype(1:80),'(80a)') ' '
./pkg/ctrl/ctrl_pack.F 417 CTRL_PACK 
          write(weighttype(1:80),'(a)') "wbottomdrag"
./pkg/ctrl/ctrl_pack.F 420 CTRL_PACK 
     &      weighttype, lxxadxx, mythid)
./pkg/ctrl/ctrl_pack.F 425 CTRL_PACK 
          write(weighttype(1:80),'(80a)') ' '
./pkg/ctrl/ctrl_pack.F 426 CTRL_PACK 
          write(weighttype(1:80),'(a)') "wedtaux"
./pkg/ctrl/ctrl_pack.F 429 CTRL_PACK 
     &         weighttype, wunit, lxxadxx, mythid)
./pkg/ctrl/ctrl_pack.F 434 CTRL_PACK 
          write(weighttype(1:80),'(80a)') ' '
./pkg/ctrl/ctrl_pack.F 435 CTRL_PACK 
          write(weighttype(1:80),'(a)') "wedtauy"
./pkg/ctrl/ctrl_pack.F 438 CTRL_PACK 
     &         weighttype, wunit, lxxadxx, mythid)
./pkg/ctrl/ctrl_pack.F 443 CTRL_PACK 
          write(weighttype(1:80),'(80a)') ' '
./pkg/ctrl/ctrl_pack.F 444 CTRL_PACK 
          write(weighttype(1:80),'(a)') "wuvel"
./pkg/ctrl/ctrl_pack.F 447 CTRL_PACK 
     &         weighttype, wunit, lxxadxx, mythid)
./pkg/ctrl/ctrl_pack.F 452 CTRL_PACK 
          write(weighttype(1:80),'(80a)') ' '
./pkg/ctrl/ctrl_pack.F 453 CTRL_PACK 
          write(weighttype(1:80),'(a)') "wvvel"
./pkg/ctrl/ctrl_pack.F 456 CTRL_PACK 
     &         weighttype, wunit, lxxadxx, mythid)
./pkg/ctrl/ctrl_pack.F 461 CTRL_PACK 
          write(weighttype(1:80),'(80a)') ' '
./pkg/ctrl/ctrl_pack.F 462 CTRL_PACK 
          write(weighttype(1:80),'(a)') "wetan"
./pkg/ctrl/ctrl_pack.F 465 CTRL_PACK 
     &         weighttype, lxxadxx, mythid)
./pkg/ctrl/ctrl_pack.F 470 CTRL_PACK 
          write(weighttype(1:80),'(80a)') ' '
./pkg/ctrl/ctrl_pack.F 471 CTRL_PACK 
          write(weighttype(1:80),'(a)') "wrelaxsst"
./pkg/ctrl/ctrl_pack.F 474 CTRL_PACK 
     &         weighttype, lxxadxx, mythid)
./pkg/ctrl/ctrl_pack.F 479 CTRL_PACK 
          write(weighttype(1:80),'(80a)') ' '
./pkg/ctrl/ctrl_pack.F 480 CTRL_PACK 
          write(weighttype(1:80),'(a)') "wrelaxsss"
./pkg/ctrl/ctrl_pack.F 483 CTRL_PACK 
     &         weighttype, lxxadxx, mythid)
./pkg/ctrl/ctrl_pack.F 83 CTRL_PACK 
      character*( 80) weighttype
./pkg/ctrl/ctrl_set_unpack_yz.F 134 CTRL_SET_UNPACK_YZ 
         il=ilnblnk( weighttype)
./pkg/ctrl/ctrl_set_unpack_yz.F 136 CTRL_SET_UNPACK_YZ 
         write(weightname(1:80),'(a)') weighttype(1:il)
./pkg/ctrl/ctrl_set_unpack_yz.F 42 CTRL_SET_UNPACK_YZ 
      character*( 80) weighttype
./pkg/ctrl/ctrl_set_unpack_yz.F 5 CTRL_SET_UNPACK_YZ 
     &     cunit, ivartype, fname, masktype, weighttype,
./pkg/ctrl/ctrl_set_unpack_xyz.F 159 CTRL_SET_UNPACK_XYZ 
      il=ilnblnk( weighttype)
./pkg/ctrl/ctrl_set_unpack_xyz.F 161 CTRL_SET_UNPACK_XYZ 
      write(weightname(1:80),'(a)') weighttype(1:il)
./pkg/ctrl/ctrl_set_unpack_xyz.F 40 CTRL_SET_UNPACK_XYZ 
      character*( 80) weighttype
./pkg/ctrl/ctrl_set_unpack_xyz.F 5 CTRL_SET_UNPACK_XYZ 
     &     lxxadxx, cunit, ivartype, fname, masktype, weighttype,
./pkg/ctrl/ctrl_set_pack_xyz.F 151 CTRL_SET_PACK_XYZ 
      il=ilnblnk( weighttype)
./pkg/ctrl/ctrl_set_pack_xyz.F 153 CTRL_SET_PACK_XYZ 
      write(weightname(1:80),'(a)') weighttype(1:il)
./pkg/ctrl/ctrl_set_pack_xyz.F 40 CTRL_SET_PACK_XYZ 
      character*( 80) weighttype
./pkg/ctrl/ctrl_set_pack_xyz.F 5 CTRL_SET_PACK_XYZ 
     &     cunit, ivartype, fname, masktype, weighttype,
./pkg/ctrl/ctrl_set_pack_xz.F 134 CTRL_SET_PACK_XZ 
         il=ilnblnk( weighttype)
./pkg/ctrl/ctrl_set_pack_xz.F 136 CTRL_SET_PACK_XZ 
         write(weightname(1:80),'(a)') weighttype(1:il)
./pkg/ctrl/ctrl_set_pack_xz.F 43 CTRL_SET_PACK_XZ 
      character*( 80) weighttype
./pkg/ctrl/ctrl_set_pack_xz.F 5 CTRL_SET_PACK_XZ 
     &     cunit, ivartype, fname, masktype,weighttype,
./pkg/ctrl/ctrl_unpack.F 300 CTRL_UNPACK 
          write(weighttype(1:80),'(80a)') ' '
./pkg/ctrl/ctrl_unpack.F 301 CTRL_UNPACK 
          write(weighttype(1:80),'(a)') "wtheta"
./pkg/ctrl/ctrl_unpack.F 304 CTRL_UNPACK 
     &         weighttype, wtheta, nwetcglobal, mythid)
./pkg/ctrl/ctrl_unpack.F 309 CTRL_UNPACK 
          write(weighttype(1:80),'(80a)') ' '
./pkg/ctrl/ctrl_unpack.F 310 CTRL_UNPACK 
          write(weighttype(1:80),'(a)') "wsalt"
./pkg/ctrl/ctrl_unpack.F 313 CTRL_UNPACK 
     &         weighttype, wsalt, nwetcglobal, mythid)
./pkg/ctrl/ctrl_unpack.F 319 CTRL_UNPACK 
          write(weighttype(1:80),'(80a)') ' '
./pkg/ctrl/ctrl_unpack.F 320 CTRL_UNPACK 
          write(weighttype(1:80),'(a)') "whflux"
./pkg/ctrl/ctrl_unpack.F 323 CTRL_UNPACK 
     &         weighttype, nwetcglobal, mythid)
./pkg/ctrl/ctrl_unpack.F 329 CTRL_UNPACK 
          write(weighttype(1:80),'(80a)') ' '
./pkg/ctrl/ctrl_unpack.F 330 CTRL_UNPACK 
          write(weighttype(1:80),'(a)') "wsflux"
./pkg/ctrl/ctrl_unpack.F 333 CTRL_UNPACK 
     &         weighttype, nwetcglobal, mythid)
./pkg/ctrl/ctrl_unpack.F 339 CTRL_UNPACK 
          write(weighttype(1:80),'(80a)') ' '
./pkg/ctrl/ctrl_unpack.F 340 CTRL_UNPACK 
          write(weighttype(1:80),'(a)') "wtauu"
./pkg/ctrl/ctrl_unpack.F 343 CTRL_UNPACK 
     &         weighttype, nwetwglobal, mythid)
./pkg/ctrl/ctrl_unpack.F 349 CTRL_UNPACK 
          write(weighttype(1:80),'(80a)') ' '
./pkg/ctrl/ctrl_unpack.F 350 CTRL_UNPACK 
          write(weighttype(1:80),'(a)') "wtauv"
./pkg/ctrl/ctrl_unpack.F 353 CTRL_UNPACK 
     &         weighttype, nwetsglobal, mythid)
./pkg/ctrl/ctrl_unpack.F 358 CTRL_UNPACK 
          write(weighttype(1:80),'(80a)') ' '
./pkg/ctrl/ctrl_unpack.F 359 CTRL_UNPACK 
          write(weighttype(1:80),'(a)') "watemp"
./pkg/ctrl/ctrl_unpack.F 362 CTRL_UNPACK 
     &         weighttype, nwetcglobal, mythid)
./pkg/ctrl/ctrl_unpack.F 367 CTRL_UNPACK 
          write(weighttype(1:80),'(80a)') ' '
./pkg/ctrl/ctrl_unpack.F 368 CTRL_UNPACK 
          write(weighttype(1:80),'(a)') "waqh"
./pkg/ctrl/ctrl_unpack.F 371 CTRL_UNPACK 
     &         weighttype, nwetcglobal, mythid)
./pkg/ctrl/ctrl_unpack.F 376 CTRL_UNPACK 
          write(weighttype(1:80),'(80a)') ' '
./pkg/ctrl/ctrl_unpack.F 377 CTRL_UNPACK 
          write(weighttype(1:80),'(a)') "wuwind"
./pkg/ctrl/ctrl_unpack.F 380 CTRL_UNPACK 
     &         weighttype, nwetcglobal, mythid)
./pkg/ctrl/ctrl_unpack.F 385 CTRL_UNPACK 
          write(weighttype(1:80),'(80a)') ' '
./pkg/ctrl/ctrl_unpack.F 386 CTRL_UNPACK 
          write(weighttype(1:80),'(a)') "wvwind"
./pkg/ctrl/ctrl_unpack.F 389 CTRL_UNPACK 
     &         weighttype, nwetcglobal, mythid)
./pkg/ctrl/ctrl_unpack.F 394 CTRL_UNPACK 
          write(weighttype(1:80),'(80a)') ' '
./pkg/ctrl/ctrl_unpack.F 395 CTRL_UNPACK 
          write(weighttype(1:80),'(a)') "wobcsn"
./pkg/ctrl/ctrl_unpack.F 398 CTRL_UNPACK 
     &         weighttype, wobcsn, nWetobcsnGlo, mythid)
./pkg/ctrl/ctrl_unpack.F 403 CTRL_UNPACK 
          write(weighttype(1:80),'(80a)') ' '
./pkg/ctrl/ctrl_unpack.F 404 CTRL_UNPACK 
          write(weighttype(1:80),'(a)') "wobcss"
./pkg/ctrl/ctrl_unpack.F 407 CTRL_UNPACK 
     &         weighttype, wobcss, nWetobcssGlo, mythid)
./pkg/ctrl/ctrl_unpack.F 412 CTRL_UNPACK 
          write(weighttype(1:80),'(80a)') ' '
./pkg/ctrl/ctrl_unpack.F 413 CTRL_UNPACK 
          write(weighttype(1:80),'(a)') "wobcsw"
./pkg/ctrl/ctrl_unpack.F 416 CTRL_UNPACK 
     &         weighttype, wobcsw, nWetobcswGlo, mythid)
./pkg/ctrl/ctrl_unpack.F 421 CTRL_UNPACK 
          write(weighttype(1:80),'(80a)') ' '
./pkg/ctrl/ctrl_unpack.F 422 CTRL_UNPACK 
          write(weighttype(1:80),'(a)') "wobcse"
./pkg/ctrl/ctrl_unpack.F 425 CTRL_UNPACK 
     &         weighttype, wobcse, nWetobcseGlo, mythid)
./pkg/ctrl/ctrl_unpack.F 430 CTRL_UNPACK 
          write(weighttype(1:80),'(80a)') ' '
./pkg/ctrl/ctrl_unpack.F 431 CTRL_UNPACK 
          write(weighttype(1:80),'(a)') "wdiffkr"
./pkg/ctrl/ctrl_unpack.F 434 CTRL_UNPACK 
     &         weighttype, wunit, nwetcglobal, mythid)
./pkg/ctrl/ctrl_unpack.F 439 CTRL_UNPACK 
          write(weighttype(1:80),'(80a)') ' '
./pkg/ctrl/ctrl_unpack.F 440 CTRL_UNPACK 
          write(weighttype(1:80),'(a)') "wkapgm"
./pkg/ctrl/ctrl_unpack.F 443 CTRL_UNPACK 
     &         weighttype, wunit, nwetcglobal, mythid)
./pkg/ctrl/ctrl_unpack.F 448 CTRL_UNPACK 
          write(weighttype(1:80),'(80a)') ' '
./pkg/ctrl/ctrl_unpack.F 449 CTRL_UNPACK 
          write(weighttype(1:80),'(a)') "wtr1"
./pkg/ctrl/ctrl_unpack.F 452 CTRL_UNPACK 
     &         weighttype, wunit, nwetcglobal, mythid)
./pkg/ctrl/ctrl_unpack.F 457 CTRL_UNPACK 
          write(weighttype(1:80),'(80a)') ' '
./pkg/ctrl/ctrl_unpack.F 458 CTRL_UNPACK 
          write(weighttype(1:80),'(a)') "wsst"
./pkg/ctrl/ctrl_unpack.F 461 CTRL_UNPACK 
     &         weighttype, nwetcglobal, mythid)
./pkg/ctrl/ctrl_unpack.F 466 CTRL_UNPACK 
          write(weighttype(1:80),'(80a)') ' '
./pkg/ctrl/ctrl_unpack.F 467 CTRL_UNPACK 
          write(weighttype(1:80),'(a)') "wsss"
./pkg/ctrl/ctrl_unpack.F 470 CTRL_UNPACK 
     &         weighttype, nwetcglobal, mythid)
./pkg/ctrl/ctrl_unpack.F 475 CTRL_UNPACK 
          write(weighttype(1:80),'(80a)') ' '
./pkg/ctrl/ctrl_unpack.F 476 CTRL_UNPACK 
          write(weighttype(1:80),'(a)') "whfacc"
./pkg/ctrl/ctrl_unpack.F 484 CTRL_UNPACK 
     &         weighttype, weighttype, nwetcglobal, mythid)
./pkg/ctrl/ctrl_unpack.F 490 CTRL_UNPACK 
          write(weighttype(1:80),'(80a)') ' '
./pkg/ctrl/ctrl_unpack.F 491 CTRL_UNPACK 
          write(weighttype(1:80),'(a)') "wefluxy0"
./pkg/ctrl/ctrl_unpack.F 494 CTRL_UNPACK 
     &         weighttype, wefluxy, nwetsglobal, mythid)
./pkg/ctrl/ctrl_unpack.F 499 CTRL_UNPACK 
          write(weighttype(1:80),'(80a)') ' '
./pkg/ctrl/ctrl_unpack.F 500 CTRL_UNPACK 
          write(weighttype(1:80),'(a)') "wefluxp0"
./pkg/ctrl/ctrl_unpack.F 503 CTRL_UNPACK 
     &         weighttype, wefluxp, nwetvglobal, mythid)
./pkg/ctrl/ctrl_unpack.F 508 CTRL_UNPACK 
          write(weighttype(1:80),'(80a)') ' '
./pkg/ctrl/ctrl_unpack.F 509 CTRL_UNPACK 
          write(weighttype(1:80),'(a)') "wbottomdrag"
./pkg/ctrl/ctrl_unpack.F 512 CTRL_UNPACK 
     &         weighttype, nwetcglobal, mythid)
./pkg/ctrl/ctrl_unpack.F 517 CTRL_UNPACK 
          write(weighttype(1:80),'(80a)') ' '
./pkg/ctrl/ctrl_unpack.F 518 CTRL_UNPACK 
          write(weighttype(1:80),'(a)') "wedtaux"
./pkg/ctrl/ctrl_unpack.F 521 CTRL_UNPACK 
     &         weighttype, wunit, nwetwglobal, mythid)
./pkg/ctrl/ctrl_unpack.F 526 CTRL_UNPACK 
          write(weighttype(1:80),'(80a)') ' '
./pkg/ctrl/ctrl_unpack.F 527 CTRL_UNPACK 
          write(weighttype(1:80),'(a)') "wedtauy"
./pkg/ctrl/ctrl_unpack.F 530 CTRL_UNPACK 
     &         weighttype, wunit, nwetsglobal, mythid)
./pkg/ctrl/ctrl_unpack.F 535 CTRL_UNPACK 
          write(weighttype(1:80),'(80a)') ' '
./pkg/ctrl/ctrl_unpack.F 536 CTRL_UNPACK 
          write(weighttype(1:80),'(a)') "wuvel"
./pkg/ctrl/ctrl_unpack.F 539 CTRL_UNPACK 
     &         weighttype, wunit, nwetwglobal, mythid)
./pkg/ctrl/ctrl_unpack.F 544 CTRL_UNPACK 
          write(weighttype(1:80),'(80a)') ' '
./pkg/ctrl/ctrl_unpack.F 545 CTRL_UNPACK 
          write(weighttype(1:80),'(a)') "wvvel"
./pkg/ctrl/ctrl_unpack.F 548 CTRL_UNPACK 
     &         weighttype, wunit, nwetsglobal, mythid)
./pkg/ctrl/ctrl_unpack.F 553 CTRL_UNPACK 
          write(weighttype(1:80),'(80a)') ' '
./pkg/ctrl/ctrl_unpack.F 554 CTRL_UNPACK 
          write(weighttype(1:80),'(a)') "wetan"
./pkg/ctrl/ctrl_unpack.F 557 CTRL_UNPACK 
     &         weighttype, nwetcglobal, mythid)
./pkg/ctrl/ctrl_unpack.F 562 CTRL_UNPACK 
          write(weighttype(1:80),'(80a)') ' '
./pkg/ctrl/ctrl_unpack.F 563 CTRL_UNPACK 
          write(weighttype(1:80),'(a)') "wrelaxsst"
./pkg/ctrl/ctrl_unpack.F 566 CTRL_UNPACK 
     &         weighttype, nwetcglobal, mythid)
./pkg/ctrl/ctrl_unpack.F 571 CTRL_UNPACK 
          write(weighttype(1:80),'(80a)') ' '
./pkg/ctrl/ctrl_unpack.F 572 CTRL_UNPACK 
          write(weighttype(1:80),'(a)') "wrelaxsss"
./pkg/ctrl/ctrl_unpack.F 575 CTRL_UNPACK 
     &         weighttype, nwetcglobal, mythid)
./pkg/ctrl/ctrl_unpack.F 80 CTRL_UNPACK 
      character*( 80) weighttype