Symbol Description Uses
ictrlgrad 146


File Line number Procedure Code
./pkg/admtlm/admtlm_dsvd2model.F 169 ADMTLM_DSVD2MODEL 
          ictrlgrad = 1
./pkg/admtlm/admtlm_dsvd2model.F 177 ADMTLM_DSVD2MODEL 
          ictrlgrad = 2
./pkg/admtlm/admtlm_dsvd2model.F 336 ADMTLM_DSVD2MODEL 
     &         fname_theta(ictrlgrad), "maskCtrlC",
./pkg/admtlm/admtlm_dsvd2model.F 345 ADMTLM_DSVD2MODEL 
     &         fname_salt(ictrlgrad), "maskCtrlC",
./pkg/admtlm/admtlm_dsvd2model.F 354 ADMTLM_DSVD2MODEL 
     &         fname_hflux(ictrlgrad), "maskCtrlC",
./pkg/admtlm/admtlm_dsvd2model.F 363 ADMTLM_DSVD2MODEL 
     &         fname_sflux(ictrlgrad), "maskCtrlC",
./pkg/admtlm/admtlm_dsvd2model.F 372 ADMTLM_DSVD2MODEL 
     &         fname_tauu(ictrlgrad), "maskCtrlW",
./pkg/admtlm/admtlm_dsvd2model.F 381 ADMTLM_DSVD2MODEL 
     &         fname_tauv(ictrlgrad), "maskCtrlS",
./pkg/admtlm/admtlm_dsvd2model.F 390 ADMTLM_DSVD2MODEL 
     &         fname_atemp(ictrlgrad), "maskCtrlC",
./pkg/admtlm/admtlm_dsvd2model.F 399 ADMTLM_DSVD2MODEL 
     &         fname_aqh(ictrlgrad), "maskCtrlC",
./pkg/admtlm/admtlm_dsvd2model.F 408 ADMTLM_DSVD2MODEL 
     &         fname_uwind(ictrlgrad), "maskCtrlC",
./pkg/admtlm/admtlm_dsvd2model.F 417 ADMTLM_DSVD2MODEL 
     &         fname_vwind(ictrlgrad), "maskCtrlC",
./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 462 ADMTLM_DSVD2MODEL 
     &         fname_diffkr(ictrlgrad), "maskCtrlC",
./pkg/admtlm/admtlm_dsvd2model.F 471 ADMTLM_DSVD2MODEL 
     &         fname_kapgm(ictrlgrad), "maskCtrlC",
./pkg/admtlm/admtlm_dsvd2model.F 480 ADMTLM_DSVD2MODEL 
     &         fname_tr1(ictrlgrad), "maskCtrlC",
./pkg/admtlm/admtlm_dsvd2model.F 489 ADMTLM_DSVD2MODEL 
     &         fname_sst(ictrlgrad), "maskCtrlC",
./pkg/admtlm/admtlm_dsvd2model.F 498 ADMTLM_DSVD2MODEL 
     &         fname_sss(ictrlgrad), "maskCtrlC",
./pkg/admtlm/admtlm_dsvd2model.F 508 ADMTLM_DSVD2MODEL 
     &         fname_hfacc(ictrlgrad), "maskCtrlC",
./pkg/admtlm/admtlm_dsvd2model.F 512 ADMTLM_DSVD2MODEL 
     &         fname_hfacc(ictrlgrad), "maskCtrlC",
./pkg/admtlm/admtlm_dsvd2model.F 522 ADMTLM_DSVD2MODEL 
     &         fname_efluxy(ictrlgrad), "maskCtrlS",
./pkg/admtlm/admtlm_dsvd2model.F 531 ADMTLM_DSVD2MODEL 
     &         fname_efluxp(ictrlgrad), "maskhFacV",
./pkg/admtlm/admtlm_dsvd2model.F 540 ADMTLM_DSVD2MODEL 
     &         fname_bottomdrag(ictrlgrad), "maskCtrlC",
./pkg/admtlm/admtlm_dsvd2model.F 549 ADMTLM_DSVD2MODEL 
     &         fname_edtaux(ictrlgrad), "maskCtrlW",
./pkg/admtlm/admtlm_dsvd2model.F 558 ADMTLM_DSVD2MODEL 
     &         fname_edtauy(ictrlgrad), "maskCtrlS",
./pkg/admtlm/admtlm_dsvd2model.F 567 ADMTLM_DSVD2MODEL 
     &         fname_uvel(ictrlgrad), "maskCtrlW",
./pkg/admtlm/admtlm_dsvd2model.F 576 ADMTLM_DSVD2MODEL 
     &         fname_vvel(ictrlgrad), "maskCtrlS",
./pkg/admtlm/admtlm_dsvd2model.F 585 ADMTLM_DSVD2MODEL 
     &         fname_etan(ictrlgrad), "maskCtrlC",
./pkg/admtlm/admtlm_dsvd2model.F 594 ADMTLM_DSVD2MODEL 
     &         fname_relaxsst(ictrlgrad), "maskCtrlC",
./pkg/admtlm/admtlm_dsvd2model.F 603 ADMTLM_DSVD2MODEL 
     &         fname_relaxsss(ictrlgrad), "maskCtrlC",
./pkg/admtlm/admtlm_dsvd2model.F 612 ADMTLM_DSVD2MODEL 
     &         fname_precip(ictrlgrad), "maskCtrlC",
./pkg/admtlm/admtlm_dsvd2model.F 621 ADMTLM_DSVD2MODEL 
     &         fname_swflux(ictrlgrad), "maskCtrlC",
./pkg/admtlm/admtlm_dsvd2model.F 630 ADMTLM_DSVD2MODEL 
     &         fname_swdown(ictrlgrad), "maskCtrlC",
./pkg/admtlm/admtlm_dsvd2model.F 76 ADMTLM_DSVD2MODEL 
      integer ictrlgrad
./pkg/admtlm/admtlm_model2dsvd.F 158 ADMTLM_MODEL2DSVD 
          ictrlgrad = 1
./pkg/admtlm/admtlm_model2dsvd.F 167 ADMTLM_MODEL2DSVD 
          ictrlgrad = 2
./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 82 ADMTLM_MODEL2DSVD 
      integer ictrlgrad
./pkg/ctrl/ctrl_unpack.F 158 CTRL_UNPACK 
          ictrlgrad = 1
./pkg/ctrl/ctrl_unpack.F 166 CTRL_UNPACK 
          ictrlgrad = 2
./pkg/ctrl/ctrl_unpack.F 306 CTRL_UNPACK 
     &         fname_theta(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_unpack.F 315 CTRL_UNPACK 
     &         fname_salt(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_unpack.F 324 CTRL_UNPACK 
     &         fname_hflux(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_unpack.F 333 CTRL_UNPACK 
     &         fname_sflux(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_unpack.F 342 CTRL_UNPACK 
     &         fname_tauu(ictrlgrad), "maskCtrlW",
./pkg/ctrl/ctrl_unpack.F 351 CTRL_UNPACK 
     &         fname_tauv(ictrlgrad), "maskCtrlS",
./pkg/ctrl/ctrl_unpack.F 360 CTRL_UNPACK 
     &         fname_atemp(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_unpack.F 369 CTRL_UNPACK 
     &         fname_aqh(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_unpack.F 378 CTRL_UNPACK 
     &         fname_uwind(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_unpack.F 387 CTRL_UNPACK 
     &         fname_vwind(ictrlgrad), "maskCtrlC",
./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 432 CTRL_UNPACK 
     &         fname_diffkr(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_unpack.F 441 CTRL_UNPACK 
     &         fname_kapgm(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_unpack.F 450 CTRL_UNPACK 
     &         fname_tr1(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_unpack.F 459 CTRL_UNPACK 
     &         fname_sst(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_unpack.F 468 CTRL_UNPACK 
     &         fname_sss(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_unpack.F 477 CTRL_UNPACK 
     &         fname_depth(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_unpack.F 487 CTRL_UNPACK 
     &         fname_efluxy(ictrlgrad), "maskCtrlS",
./pkg/ctrl/ctrl_unpack.F 496 CTRL_UNPACK 
     &         fname_efluxp(ictrlgrad), "maskhFacV",
./pkg/ctrl/ctrl_unpack.F 505 CTRL_UNPACK 
     &         fname_bottomdrag(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_unpack.F 514 CTRL_UNPACK 
     &         fname_edtaux(ictrlgrad), "maskCtrlW",
./pkg/ctrl/ctrl_unpack.F 523 CTRL_UNPACK 
     &         fname_edtauy(ictrlgrad), "maskCtrlS",
./pkg/ctrl/ctrl_unpack.F 532 CTRL_UNPACK 
     &         fname_uvel(ictrlgrad), "maskCtrlW",
./pkg/ctrl/ctrl_unpack.F 541 CTRL_UNPACK 
     &         fname_vvel(ictrlgrad), "maskCtrlS",
./pkg/ctrl/ctrl_unpack.F 550 CTRL_UNPACK 
     &         fname_etan(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_unpack.F 559 CTRL_UNPACK 
     &         fname_relaxsst(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_unpack.F 568 CTRL_UNPACK 
     &         fname_relaxsss(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_unpack.F 577 CTRL_UNPACK 
     &         fname_precip(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_unpack.F 586 CTRL_UNPACK 
     &         fname_swflux(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_unpack.F 595 CTRL_UNPACK 
     &         fname_swdown(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_unpack.F 74 CTRL_UNPACK 
      integer ictrlgrad
./pkg/ctrl/ctrl_pack.F 147 CTRL_PACK 
          ictrlgrad = 1
./pkg/ctrl/ctrl_pack.F 156 CTRL_PACK 
          ictrlgrad = 2
./pkg/ctrl/ctrl_pack.F 214 CTRL_PACK 
     &         cunit, ivartype, fname_theta(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_pack.F 223 CTRL_PACK 
     &         cunit, ivartype, fname_salt(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_pack.F 232 CTRL_PACK 
     &         cunit, ivartype, fname_hflux(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_pack.F 241 CTRL_PACK 
     &         cunit, ivartype, fname_sflux(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_pack.F 250 CTRL_PACK 
     &         cunit, ivartype, fname_tauu(ictrlgrad), "maskCtrlW",
./pkg/ctrl/ctrl_pack.F 259 CTRL_PACK 
     &         cunit, ivartype, fname_tauv(ictrlgrad), "maskCtrlS",
./pkg/ctrl/ctrl_pack.F 268 CTRL_PACK 
     &         cunit, ivartype, fname_atemp(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_pack.F 277 CTRL_PACK 
     &         cunit, ivartype, fname_aqh(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_pack.F 286 CTRL_PACK 
     &         cunit, ivartype, fname_uwind(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_pack.F 295 CTRL_PACK 
     &         cunit, ivartype, fname_vwind(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_pack.F 304 CTRL_PACK 
     &         cunit, ivartype, fname_obcsn(ictrlgrad), "maskobcsn",
./pkg/ctrl/ctrl_pack.F 313 CTRL_PACK 
     &         cunit, ivartype, fname_obcss(ictrlgrad), "maskobcss",
./pkg/ctrl/ctrl_pack.F 322 CTRL_PACK 
     &         cunit, ivartype, fname_obcsw(ictrlgrad), "maskobcsw",
./pkg/ctrl/ctrl_pack.F 331 CTRL_PACK 
     &         cunit, ivartype, fname_obcse(ictrlgrad), "maskobcse",
./pkg/ctrl/ctrl_pack.F 340 CTRL_PACK 
     &         cunit, ivartype, fname_diffkr(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_pack.F 349 CTRL_PACK 
     &         cunit, ivartype, fname_kapgm(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_pack.F 358 CTRL_PACK 
     &         cunit, ivartype, fname_tr1(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_pack.F 367 CTRL_PACK 
     &         cunit, ivartype, fname_sst(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_pack.F 376 CTRL_PACK 
     &         cunit, ivartype, fname_sss(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_pack.F 385 CTRL_PACK 
     &         cunit, ivartype, fname_depth(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_pack.F 394 CTRL_PACK 
     &         cunit, ivartype, fname_efluxy(ictrlgrad), "maskCtrlS",
./pkg/ctrl/ctrl_pack.F 403 CTRL_PACK 
     &         cunit, ivartype, fname_efluxp(ictrlgrad), "maskhFacV",
./pkg/ctrl/ctrl_pack.F 412 CTRL_PACK 
     &      cunit, ivartype, fname_bottomdrag(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_pack.F 421 CTRL_PACK 
     &         cunit, ivartype, fname_edtaux(ictrlgrad), "maskCtrlW",
./pkg/ctrl/ctrl_pack.F 430 CTRL_PACK 
     &         cunit, ivartype, fname_edtauy(ictrlgrad), "maskCtrlS",
./pkg/ctrl/ctrl_pack.F 439 CTRL_PACK 
     &         cunit, ivartype, fname_uvel(ictrlgrad), "maskCtrlW",
./pkg/ctrl/ctrl_pack.F 448 CTRL_PACK 
     &         cunit, ivartype, fname_vvel(ictrlgrad), "maskCtrlS",
./pkg/ctrl/ctrl_pack.F 457 CTRL_PACK 
     &         cunit, ivartype, fname_etan(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_pack.F 466 CTRL_PACK 
     &         cunit, ivartype, fname_relaxsst(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_pack.F 475 CTRL_PACK 
     &         cunit, ivartype, fname_relaxsss(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_pack.F 484 CTRL_PACK 
     &         cunit, ivartype, fname_precip(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_pack.F 493 CTRL_PACK 
     &         cunit, ivartype, fname_swflux(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_pack.F 502 CTRL_PACK 
     &         cunit, ivartype, fname_swdown(ictrlgrad), "maskCtrlC",
./pkg/ctrl/ctrl_pack.F 80 CTRL_PACK 
      integer ictrlgrad