Symbol Description Uses
fname 1004



File Line number Procedure Code
./pkg/grdchk/grdchk_get_obcs_mask.F 116 GRDCHK_GET_OBCS_MASK
      write(fname(1:80),'(80a)') ' '
./pkg/grdchk/grdchk_get_obcs_mask.F 117 GRDCHK_GET_OBCS_MASK
      write(fname(1:80),'(a)') 'maskobcsw'
./pkg/grdchk/grdchk_get_obcs_mask.F 120 GRDCHK_GET_OBCS_MASK
         call ACTIVE_READ_YZ(  fname, tmpfldyz, iobcs,
./pkg/grdchk/grdchk_get_obcs_mask.F 139 GRDCHK_GET_OBCS_MASK
      write(fname(1:80),'(80a)') ' '
./pkg/grdchk/grdchk_get_obcs_mask.F 140 GRDCHK_GET_OBCS_MASK
      write(fname(1:80),'(a)') 'maskobcse'
./pkg/grdchk/grdchk_get_obcs_mask.F 143 GRDCHK_GET_OBCS_MASK
         call ACTIVE_READ_YZ(  fname, tmpfldyz, iobcs,
./pkg/grdchk/grdchk_get_obcs_mask.F 48 GRDCHK_GET_OBCS_MASK
      character*( 80) fname
./pkg/grdchk/grdchk_get_obcs_mask.F 70 GRDCHK_GET_OBCS_MASK
      write(fname(1:80),'(80a)') ' '
./pkg/grdchk/grdchk_get_obcs_mask.F 71 GRDCHK_GET_OBCS_MASK
      write(fname(1:80),'(a)') 'maskobcsn'
./pkg/grdchk/grdchk_get_obcs_mask.F 74 GRDCHK_GET_OBCS_MASK
         call ACTIVE_READ_XZ(  fname, tmpfldxz, iobcs,
./pkg/grdchk/grdchk_get_obcs_mask.F 93 GRDCHK_GET_OBCS_MASK
      write(fname(1:80),'(80a)') ' '
./pkg/grdchk/grdchk_get_obcs_mask.F 94 GRDCHK_GET_OBCS_MASK
      write(fname(1:80),'(a)') 'maskobcss'
./pkg/grdchk/grdchk_get_obcs_mask.F 97 GRDCHK_GET_OBCS_MASK
         call ACTIVE_READ_XZ(  fname, tmpfldxz, iobcs,
./pkg/grdchk/grdchk_getadxx.F 101 GRDCHK_GETADXX
         call ACTIVE_READ_XYZ( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_getadxx.F 111 GRDCHK_GETADXX
         write(fname(1:80),'(80a)') ' '
./pkg/grdchk/grdchk_getadxx.F 112 GRDCHK_GETADXX
         write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_getadxx.F 114 GRDCHK_GETADXX
         call ACTIVE_READ_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_getadxx.F 123 GRDCHK_GETADXX
         write(fname(1:80),'(80a)') ' '
./pkg/grdchk/grdchk_getadxx.F 124 GRDCHK_GETADXX
         write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_getadxx.F 126 GRDCHK_GETADXX
         call ACTIVE_READ_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_getadxx.F 135 GRDCHK_GETADXX
         write(fname(1:80),'(80a)') ' '
./pkg/grdchk/grdchk_getadxx.F 136 GRDCHK_GETADXX
         write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_getadxx.F 138 GRDCHK_GETADXX
         call ACTIVE_READ_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_getadxx.F 147 GRDCHK_GETADXX
         write(fname(1:80),'(80a)') ' '
./pkg/grdchk/grdchk_getadxx.F 148 GRDCHK_GETADXX
         write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_getadxx.F 150 GRDCHK_GETADXX
         call ACTIVE_READ_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_getadxx.F 159 GRDCHK_GETADXX
         write(fname(1:80),'(80a)') ' '
./pkg/grdchk/grdchk_getadxx.F 160 GRDCHK_GETADXX
         write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_getadxx.F 162 GRDCHK_GETADXX
         call ACTIVE_READ_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_getadxx.F 171 GRDCHK_GETADXX
         write(fname(1:80),'(80a)') ' '
./pkg/grdchk/grdchk_getadxx.F 172 GRDCHK_GETADXX
         write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_getadxx.F 174 GRDCHK_GETADXX
         call ACTIVE_READ_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_getadxx.F 183 GRDCHK_GETADXX
         write(fname(1:80),'(80a)') ' '
./pkg/grdchk/grdchk_getadxx.F 184 GRDCHK_GETADXX
         write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_getadxx.F 186 GRDCHK_GETADXX
         call ACTIVE_READ_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_getadxx.F 195 GRDCHK_GETADXX
         write(fname(1:80),'(80a)') ' '
./pkg/grdchk/grdchk_getadxx.F 196 GRDCHK_GETADXX
         write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_getadxx.F 198 GRDCHK_GETADXX
         call ACTIVE_READ_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_getadxx.F 207 GRDCHK_GETADXX
         write(fname(1:80),'(80a)') ' '
./pkg/grdchk/grdchk_getadxx.F 208 GRDCHK_GETADXX
         write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_getadxx.F 211 GRDCHK_GETADXX
         call ACTIVE_READ_XZ( fname, tmpfldxz, icvrec,
./pkg/grdchk/grdchk_getadxx.F 222 GRDCHK_GETADXX
         write(fname(1:80),'(80a)') ' '
./pkg/grdchk/grdchk_getadxx.F 223 GRDCHK_GETADXX
         write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_getadxx.F 226 GRDCHK_GETADXX
         call ACTIVE_READ_XZ( fname, tmpfldxz, icvrec,
./pkg/grdchk/grdchk_getadxx.F 237 GRDCHK_GETADXX
         write(fname(1:80),'(80a)') ' '
./pkg/grdchk/grdchk_getadxx.F 238 GRDCHK_GETADXX
         write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_getadxx.F 241 GRDCHK_GETADXX
         call ACTIVE_READ_YZ( fname, tmpfldyz, icvrec,
./pkg/grdchk/grdchk_getadxx.F 252 GRDCHK_GETADXX
         write(fname(1:80),'(80a)') ' '
./pkg/grdchk/grdchk_getadxx.F 253 GRDCHK_GETADXX
         write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_getadxx.F 256 GRDCHK_GETADXX
         call ACTIVE_READ_YZ( fname, tmpfldyz, icvrec,
./pkg/grdchk/grdchk_getadxx.F 267 GRDCHK_GETADXX
         write(fname(1:80),'(80a)') ' '
./pkg/grdchk/grdchk_getadxx.F 268 GRDCHK_GETADXX
         write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_getadxx.F 271 GRDCHK_GETADXX
         call ACTIVE_READ_XYZ( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_getadxx.F 282 GRDCHK_GETADXX
         write(fname(1:80),'(80a)') ' '
./pkg/grdchk/grdchk_getadxx.F 283 GRDCHK_GETADXX
         write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_getadxx.F 286 GRDCHK_GETADXX
         call ACTIVE_READ_XYZ( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_getadxx.F 297 GRDCHK_GETADXX
         write(fname(1:80),'(80a)') ' '
./pkg/grdchk/grdchk_getadxx.F 298 GRDCHK_GETADXX
         write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_getadxx.F 301 GRDCHK_GETADXX
         call ACTIVE_READ_XYZ( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_getadxx.F 312 GRDCHK_GETADXX
         write(fname(1:80),'(80a)') ' '
./pkg/grdchk/grdchk_getadxx.F 313 GRDCHK_GETADXX
         write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_getadxx.F 316 GRDCHK_GETADXX
         call ACTIVE_READ_XYZ( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_getadxx.F 327 GRDCHK_GETADXX
         write(fname(1:80),'(80a)') ' '
./pkg/grdchk/grdchk_getadxx.F 328 GRDCHK_GETADXX
         write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_getadxx.F 330 GRDCHK_GETADXX
         call ACTIVE_READ_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_getadxx.F 339 GRDCHK_GETADXX
         write(fname(1:80),'(80a)') ' '
./pkg/grdchk/grdchk_getadxx.F 340 GRDCHK_GETADXX
         write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_getadxx.F 342 GRDCHK_GETADXX
         call ACTIVE_READ_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_getadxx.F 351 GRDCHK_GETADXX
         write(fname(1:80),'(80a)') ' '
./pkg/grdchk/grdchk_getadxx.F 352 GRDCHK_GETADXX
         write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_getadxx.F 354 GRDCHK_GETADXX
         call ACTIVE_READ_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_getadxx.F 363 GRDCHK_GETADXX
         write(fname(1:80),'(80a)') ' '
./pkg/grdchk/grdchk_getadxx.F 364 GRDCHK_GETADXX
         write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_getadxx.F 367 GRDCHK_GETADXX
         call ACTIVE_READ_XYZ( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_getadxx.F 378 GRDCHK_GETADXX
         write(fname(1:80),'(80a)') ' '
./pkg/grdchk/grdchk_getadxx.F 379 GRDCHK_GETADXX
         write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_getadxx.F 382 GRDCHK_GETADXX
         call ACTIVE_READ_XYZ( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_getadxx.F 393 GRDCHK_GETADXX
         write(fname(1:80),'(80a)') ' '
./pkg/grdchk/grdchk_getadxx.F 394 GRDCHK_GETADXX
         write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_getadxx.F 396 GRDCHK_GETADXX
         call ACTIVE_READ_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_getadxx.F 405 GRDCHK_GETADXX
         write(fname(1:80),'(80a)') ' '
./pkg/grdchk/grdchk_getadxx.F 406 GRDCHK_GETADXX
         write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_getadxx.F 408 GRDCHK_GETADXX
         call ACTIVE_READ_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_getadxx.F 417 GRDCHK_GETADXX
         write(fname(1:80),'(80a)') ' '
./pkg/grdchk/grdchk_getadxx.F 418 GRDCHK_GETADXX
         write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_getadxx.F 421 GRDCHK_GETADXX
         call ACTIVE_READ_XYZ( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_getadxx.F 430 GRDCHK_GETADXX
         write(fname(1:80),'(80a)') ' '
./pkg/grdchk/grdchk_getadxx.F 431 GRDCHK_GETADXX
         write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_getadxx.F 433 GRDCHK_GETADXX
         call ACTIVE_READ_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_getadxx.F 442 GRDCHK_GETADXX
         write(fname(1:80),'(80a)') ' '
./pkg/grdchk/grdchk_getadxx.F 443 GRDCHK_GETADXX
         write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_getadxx.F 445 GRDCHK_GETADXX
         call ACTIVE_READ_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_getadxx.F 454 GRDCHK_GETADXX
         write(fname(1:80),'(80a)') ' '
./pkg/grdchk/grdchk_getadxx.F 455 GRDCHK_GETADXX
         write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_getadxx.F 457 GRDCHK_GETADXX
         call ACTIVE_READ_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_getadxx.F 466 GRDCHK_GETADXX
         write(fname(1:80),'(80a)') ' '
./pkg/grdchk/grdchk_getadxx.F 467 GRDCHK_GETADXX
         write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_getadxx.F 469 GRDCHK_GETADXX
         call ACTIVE_READ_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_getadxx.F 478 GRDCHK_GETADXX
         write(fname(1:80),'(80a)') ' '
./pkg/grdchk/grdchk_getadxx.F 479 GRDCHK_GETADXX
         write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_getadxx.F 481 GRDCHK_GETADXX
         call ACTIVE_READ_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_getadxx.F 490 GRDCHK_GETADXX
         write(fname(1:80),'(80a)') ' '
./pkg/grdchk/grdchk_getadxx.F 491 GRDCHK_GETADXX
         write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_getadxx.F 493 GRDCHK_GETADXX
         call ACTIVE_READ_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_getadxx.F 502 GRDCHK_GETADXX
         write(fname(1:80),'(80a)') ' '
./pkg/grdchk/grdchk_getadxx.F 503 GRDCHK_GETADXX
         write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_getadxx.F 505 GRDCHK_GETADXX
         call ACTIVE_READ_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_getadxx.F 514 GRDCHK_GETADXX
         write(fname(1:80),'(80a)') ' '
./pkg/grdchk/grdchk_getadxx.F 515 GRDCHK_GETADXX
         write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_getadxx.F 518 GRDCHK_GETADXX
         call ACTIVE_READ_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_getadxx.F 527 GRDCHK_GETADXX
         write(fname(1:80),'(80a)') ' '
./pkg/grdchk/grdchk_getadxx.F 528 GRDCHK_GETADXX
         write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_getadxx.F 530 GRDCHK_GETADXX
         call ACTIVE_READ_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_getadxx.F 539 GRDCHK_GETADXX
         write(fname(1:80),'(80a)') ' '
./pkg/grdchk/grdchk_getadxx.F 540 GRDCHK_GETADXX
         write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_getadxx.F 542 GRDCHK_GETADXX
         call ACTIVE_READ_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_getadxx.F 551 GRDCHK_GETADXX
         write(fname(1:80),'(80a)') ' '
./pkg/grdchk/grdchk_getadxx.F 552 GRDCHK_GETADXX
         write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_getadxx.F 554 GRDCHK_GETADXX
         call ACTIVE_READ_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_getadxx.F 563 GRDCHK_GETADXX
         write(fname(1:80),'(80a)') ' '
./pkg/grdchk/grdchk_getadxx.F 564 GRDCHK_GETADXX
         write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_getadxx.F 566 GRDCHK_GETADXX
         call ACTIVE_READ_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_getadxx.F 575 GRDCHK_GETADXX
         write(fname(1:80),'(80a)') ' '
./pkg/grdchk/grdchk_getadxx.F 576 GRDCHK_GETADXX
         write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_getadxx.F 578 GRDCHK_GETADXX
         call ACTIVE_READ_XY( fname, tmpfld2d, 1,
./pkg/grdchk/grdchk_getadxx.F 63 GRDCHK_GETADXX
      character*(80) fname
./pkg/grdchk/grdchk_getadxx.F 85 GRDCHK_GETADXX
         write(fname(1:80),'(80a)') ' '
./pkg/grdchk/grdchk_getadxx.F 86 GRDCHK_GETADXX
         write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_getadxx.F 89 GRDCHK_GETADXX
         call ACTIVE_READ_XYZ( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_getadxx.F 98 GRDCHK_GETADXX
         write(fname(1:80),'(80a)') ' '
./pkg/grdchk/grdchk_getadxx.F 99 GRDCHK_GETADXX
         write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_getxx.F 103 GRDCHK_GETXX
         call ACTIVE_WRITE_XYZ( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_getxx.F 112 GRDCHK_GETXX
            write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_getxx.F 115 GRDCHK_GETXX
            write(fname(1:80),'(2a,i10.10)')
./pkg/grdchk/grdchk_getxx.F 118 GRDCHK_GETXX
         call ACTIVE_READ_XYZ( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_getxx.F 124 GRDCHK_GETXX
         call ACTIVE_WRITE_XYZ( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_getxx.F 133 GRDCHK_GETXX
            write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_getxx.F 136 GRDCHK_GETXX
            write(fname(1:80),'(2a,i10.10)')
./pkg/grdchk/grdchk_getxx.F 139 GRDCHK_GETXX
         call ACTIVE_READ_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_getxx.F 145 GRDCHK_GETXX
         call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_getxx.F 154 GRDCHK_GETXX
            write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_getxx.F 157 GRDCHK_GETXX
            write(fname(1:80),'(2a,i10.10)')
./pkg/grdchk/grdchk_getxx.F 160 GRDCHK_GETXX
         call ACTIVE_READ_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_getxx.F 166 GRDCHK_GETXX
         call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_getxx.F 175 GRDCHK_GETXX
            write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_getxx.F 178 GRDCHK_GETXX
            write(fname(1:80),'(2a,i10.10)')
./pkg/grdchk/grdchk_getxx.F 181 GRDCHK_GETXX
         call ACTIVE_READ_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_getxx.F 187 GRDCHK_GETXX
         call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_getxx.F 196 GRDCHK_GETXX
            write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_getxx.F 199 GRDCHK_GETXX
            write(fname(1:80),'(2a,i10.10)')
./pkg/grdchk/grdchk_getxx.F 202 GRDCHK_GETXX
         call ACTIVE_READ_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_getxx.F 208 GRDCHK_GETXX
         call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_getxx.F 217 GRDCHK_GETXX
            write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_getxx.F 220 GRDCHK_GETXX
            write(fname(1:80),'(2a,i10.10)')
./pkg/grdchk/grdchk_getxx.F 223 GRDCHK_GETXX
         call ACTIVE_READ_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_getxx.F 229 GRDCHK_GETXX
         call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_getxx.F 238 GRDCHK_GETXX
            write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_getxx.F 241 GRDCHK_GETXX
            write(fname(1:80),'(2a,i10.10)')
./pkg/grdchk/grdchk_getxx.F 244 GRDCHK_GETXX
         call ACTIVE_READ_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_getxx.F 250 GRDCHK_GETXX
         call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_getxx.F 259 GRDCHK_GETXX
            write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_getxx.F 262 GRDCHK_GETXX
            write(fname(1:80),'(2a,i10.10)')
./pkg/grdchk/grdchk_getxx.F 265 GRDCHK_GETXX
         call ACTIVE_READ_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_getxx.F 271 GRDCHK_GETXX
         call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_getxx.F 280 GRDCHK_GETXX
            write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_getxx.F 283 GRDCHK_GETXX
            write(fname(1:80),'(2a,i10.10)')
./pkg/grdchk/grdchk_getxx.F 286 GRDCHK_GETXX
         call ACTIVE_READ_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_getxx.F 292 GRDCHK_GETXX
         call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_getxx.F 301 GRDCHK_GETXX
            write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_getxx.F 304 GRDCHK_GETXX
            write(fname(1:80),'(2a,i10.10)')
./pkg/grdchk/grdchk_getxx.F 308 GRDCHK_GETXX
         call ACTIVE_READ_XZ( fname, tmpfldxz, icvrec,
./pkg/grdchk/grdchk_getxx.F 316 GRDCHK_GETXX
         call ACTIVE_WRITE_XZ( fname, tmpfldxz, icvrec,
./pkg/grdchk/grdchk_getxx.F 326 GRDCHK_GETXX
            write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_getxx.F 329 GRDCHK_GETXX
            write(fname(1:80),'(2a,i10.10)')
./pkg/grdchk/grdchk_getxx.F 333 GRDCHK_GETXX
         call ACTIVE_READ_XZ( fname, tmpfldxz, icvrec,
./pkg/grdchk/grdchk_getxx.F 341 GRDCHK_GETXX
         call ACTIVE_WRITE_XZ( fname, tmpfldxz, icvrec,
./pkg/grdchk/grdchk_getxx.F 351 GRDCHK_GETXX
            write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_getxx.F 354 GRDCHK_GETXX
            write(fname(1:80),'(2a,i10.10)')
./pkg/grdchk/grdchk_getxx.F 358 GRDCHK_GETXX
         call ACTIVE_READ_YZ( fname, tmpfldyz, icvrec,
./pkg/grdchk/grdchk_getxx.F 366 GRDCHK_GETXX
         call ACTIVE_WRITE_YZ( fname, tmpfldyz, icvrec,
./pkg/grdchk/grdchk_getxx.F 376 GRDCHK_GETXX
            write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_getxx.F 379 GRDCHK_GETXX
            write(fname(1:80),'(2a,i10.10)')
./pkg/grdchk/grdchk_getxx.F 383 GRDCHK_GETXX
         call ACTIVE_READ_YZ( fname, tmpfldyz, icvrec,
./pkg/grdchk/grdchk_getxx.F 391 GRDCHK_GETXX
         call ACTIVE_WRITE_YZ( fname, tmpfldyz, icvrec,
./pkg/grdchk/grdchk_getxx.F 401 GRDCHK_GETXX
            write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_getxx.F 404 GRDCHK_GETXX
            write(fname(1:80),'(2a,i10.10)')
./pkg/grdchk/grdchk_getxx.F 408 GRDCHK_GETXX
         call ACTIVE_READ_XYZ( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_getxx.F 416 GRDCHK_GETXX
         call ACTIVE_WRITE_XYZ( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_getxx.F 426 GRDCHK_GETXX
            write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_getxx.F 429 GRDCHK_GETXX
            write(fname(1:80),'(2a,i10.10)')
./pkg/grdchk/grdchk_getxx.F 433 GRDCHK_GETXX
         call ACTIVE_READ_XYZ( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_getxx.F 441 GRDCHK_GETXX
         call ACTIVE_WRITE_XYZ( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_getxx.F 451 GRDCHK_GETXX
            write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_getxx.F 454 GRDCHK_GETXX
            write(fname(1:80),'(2a,i10.10)')
./pkg/grdchk/grdchk_getxx.F 458 GRDCHK_GETXX
         call ACTIVE_READ_XYZ( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_getxx.F 466 GRDCHK_GETXX
         call ACTIVE_WRITE_XYZ( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_getxx.F 477 GRDCHK_GETXX
            write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_getxx.F 480 GRDCHK_GETXX
            write(fname(1:80),'(2a,i10.10)')
./pkg/grdchk/grdchk_getxx.F 484 GRDCHK_GETXX
         call ACTIVE_READ_XYZ( fname, tmpfld3d, icvrec,
./pkg/grdchk/grdchk_getxx.F 492 GRDCHK_GETXX
         call ACTIVE_WRITE_XYZ( fname, tmpfld3d, icvrec,
./pkg/grdchk/grdchk_getxx.F 502 GRDCHK_GETXX
            write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_getxx.F 505 GRDCHK_GETXX
            write(fname(1:80),'(2a,i10.10)')
./pkg/grdchk/grdchk_getxx.F 508 GRDCHK_GETXX
         call ACTIVE_READ_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_getxx.F 514 GRDCHK_GETXX
         call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_getxx.F 523 GRDCHK_GETXX
            write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_getxx.F 526 GRDCHK_GETXX
            write(fname(1:80),'(2a,i10.10)')
./pkg/grdchk/grdchk_getxx.F 529 GRDCHK_GETXX
         call ACTIVE_READ_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_getxx.F 535 GRDCHK_GETXX
         call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_getxx.F 544 GRDCHK_GETXX
            write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_getxx.F 547 GRDCHK_GETXX
            write(fname(1:80),'(2a,i10.10)')
./pkg/grdchk/grdchk_getxx.F 550 GRDCHK_GETXX
         call ACTIVE_READ_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_getxx.F 556 GRDCHK_GETXX
         call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_getxx.F 564 GRDCHK_GETXX
         write(fname(1:80),'(80a)') ' '
./pkg/grdchk/grdchk_getxx.F 566 GRDCHK_GETXX
            write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_getxx.F 569 GRDCHK_GETXX
            write(fname(1:80),'(2a,i10.10)')
./pkg/grdchk/grdchk_getxx.F 573 GRDCHK_GETXX
         call ACTIVE_READ_XYZ( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_getxx.F 581 GRDCHK_GETXX
         call ACTIVE_WRITE_XYZ( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_getxx.F 590 GRDCHK_GETXX
         write(fname(1:80),'(80a)') ' '
./pkg/grdchk/grdchk_getxx.F 592 GRDCHK_GETXX
            write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_getxx.F 595 GRDCHK_GETXX
            write(fname(1:80),'(2a,i10.10)')
./pkg/grdchk/grdchk_getxx.F 599 GRDCHK_GETXX
         call ACTIVE_READ_XYZ( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_getxx.F 607 GRDCHK_GETXX
         call ACTIVE_WRITE_XYZ( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_getxx.F 617 GRDCHK_GETXX
            write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_getxx.F 620 GRDCHK_GETXX
            write(fname(1:80),'(2a,i10.10)')
./pkg/grdchk/grdchk_getxx.F 623 GRDCHK_GETXX
         call ACTIVE_READ_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_getxx.F 629 GRDCHK_GETXX
         call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_getxx.F 638 GRDCHK_GETXX
            write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_getxx.F 641 GRDCHK_GETXX
            write(fname(1:80),'(2a,i10.10)')
./pkg/grdchk/grdchk_getxx.F 644 GRDCHK_GETXX
         call ACTIVE_READ_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_getxx.F 650 GRDCHK_GETXX
         call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_getxx.F 659 GRDCHK_GETXX
            write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_getxx.F 662 GRDCHK_GETXX
            write(fname(1:80),'(2a,i10.10)')
./pkg/grdchk/grdchk_getxx.F 666 GRDCHK_GETXX
         call ACTIVE_READ_XYZ( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_getxx.F 674 GRDCHK_GETXX
         call ACTIVE_WRITE_XYZ( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_getxx.F 683 GRDCHK_GETXX
            write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_getxx.F 686 GRDCHK_GETXX
            write(fname(1:80),'(2a,i10.10)')
./pkg/grdchk/grdchk_getxx.F 689 GRDCHK_GETXX
         call ACTIVE_READ_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_getxx.F 695 GRDCHK_GETXX
         call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_getxx.F 69 GRDCHK_GETXX
      character*(80) fname
./pkg/grdchk/grdchk_getxx.F 704 GRDCHK_GETXX
            write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_getxx.F 707 GRDCHK_GETXX
            write(fname(1:80),'(2a,i10.10)')
./pkg/grdchk/grdchk_getxx.F 710 GRDCHK_GETXX
         call ACTIVE_READ_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_getxx.F 716 GRDCHK_GETXX
         call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_getxx.F 725 GRDCHK_GETXX
            write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_getxx.F 728 GRDCHK_GETXX
            write(fname(1:80),'(2a,i10.10)')
./pkg/grdchk/grdchk_getxx.F 731 GRDCHK_GETXX
         call ACTIVE_READ_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_getxx.F 737 GRDCHK_GETXX
         call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_getxx.F 746 GRDCHK_GETXX
            write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_getxx.F 749 GRDCHK_GETXX
            write(fname(1:80),'(2a,i10.10)')
./pkg/grdchk/grdchk_getxx.F 752 GRDCHK_GETXX
         call ACTIVE_READ_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_getxx.F 758 GRDCHK_GETXX
         call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_getxx.F 767 GRDCHK_GETXX
            write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_getxx.F 770 GRDCHK_GETXX
            write(fname(1:80),'(2a,i10.10)')
./pkg/grdchk/grdchk_getxx.F 773 GRDCHK_GETXX
         call ACTIVE_READ_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_getxx.F 779 GRDCHK_GETXX
         call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_getxx.F 788 GRDCHK_GETXX
            write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_getxx.F 791 GRDCHK_GETXX
            write(fname(1:80),'(2a,i10.10)')
./pkg/grdchk/grdchk_getxx.F 794 GRDCHK_GETXX
         call ACTIVE_READ_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_getxx.F 800 GRDCHK_GETXX
         call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_getxx.F 809 GRDCHK_GETXX
            write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_getxx.F 812 GRDCHK_GETXX
            write(fname(1:80),'(2a,i10.10)')
./pkg/grdchk/grdchk_getxx.F 815 GRDCHK_GETXX
         call ACTIVE_READ_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_getxx.F 821 GRDCHK_GETXX
         call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_getxx.F 82 GRDCHK_GETXX
      write(fname(1:80),'(80a)') ' '
./pkg/grdchk/grdchk_getxx.F 830 GRDCHK_GETXX
            write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_getxx.F 833 GRDCHK_GETXX
            write(fname(1:80),'(2a,i10.10)')
./pkg/grdchk/grdchk_getxx.F 836 GRDCHK_GETXX
         call ACTIVE_READ_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_getxx.F 842 GRDCHK_GETXX
         call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_getxx.F 851 GRDCHK_GETXX
            write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_getxx.F 854 GRDCHK_GETXX
            write(fname(1:80),'(2a,i10.10)')
./pkg/grdchk/grdchk_getxx.F 857 GRDCHK_GETXX
         call ACTIVE_READ_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_getxx.F 863 GRDCHK_GETXX
         call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_getxx.F 872 GRDCHK_GETXX
            write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_getxx.F 875 GRDCHK_GETXX
            write(fname(1:80),'(2a,i10.10)')
./pkg/grdchk/grdchk_getxx.F 878 GRDCHK_GETXX
         call ACTIVE_READ_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_getxx.F 884 GRDCHK_GETXX
         call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_getxx.F 893 GRDCHK_GETXX
            write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_getxx.F 896 GRDCHK_GETXX
            write(fname(1:80),'(2a,i10.10)')
./pkg/grdchk/grdchk_getxx.F 899 GRDCHK_GETXX
         call ACTIVE_READ_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_getxx.F 905 GRDCHK_GETXX
         call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_getxx.F 914 GRDCHK_GETXX
            write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_getxx.F 917 GRDCHK_GETXX
            write(fname(1:80),'(2a,i10.10)')
./pkg/grdchk/grdchk_getxx.F 91 GRDCHK_GETXX
            write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_getxx.F 920 GRDCHK_GETXX
         call ACTIVE_READ_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_getxx.F 926 GRDCHK_GETXX
         call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_getxx.F 935 GRDCHK_GETXX
            write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_getxx.F 938 GRDCHK_GETXX
            write(fname(1:80),'(2a,i10.10)')
./pkg/grdchk/grdchk_getxx.F 941 GRDCHK_GETXX
         call ACTIVE_READ_XY( fname, tmpfld2d, 1,
./pkg/grdchk/grdchk_getxx.F 947 GRDCHK_GETXX
         call ACTIVE_WRITE_XY( fname, tmpfld2d, 1,
./pkg/grdchk/grdchk_getxx.F 94 GRDCHK_GETXX
            write(fname(1:80),'(2a,i10.10)')
./pkg/grdchk/grdchk_getxx.F 97 GRDCHK_GETXX
         call ACTIVE_READ_XYZ( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_setxx.F 107 GRDCHK_SETXX
            write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_setxx.F 110 GRDCHK_SETXX
            write(fname(1:80),'(2a,i10.10)')
./pkg/grdchk/grdchk_setxx.F 113 GRDCHK_SETXX
         call ACTIVE_READ_XYZ( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_setxx.F 117 GRDCHK_SETXX
         call ACTIVE_WRITE_XYZ( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_setxx.F 126 GRDCHK_SETXX
            write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_setxx.F 129 GRDCHK_SETXX
            write(fname(1:80),'(2a,i10.10)')
./pkg/grdchk/grdchk_setxx.F 132 GRDCHK_SETXX
         call ACTIVE_READ_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_setxx.F 136 GRDCHK_SETXX
         call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_setxx.F 145 GRDCHK_SETXX
            write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_setxx.F 148 GRDCHK_SETXX
            write(fname(1:80),'(2a,i10.10)')
./pkg/grdchk/grdchk_setxx.F 151 GRDCHK_SETXX
         call ACTIVE_READ_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_setxx.F 155 GRDCHK_SETXX
         call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_setxx.F 164 GRDCHK_SETXX
            write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_setxx.F 167 GRDCHK_SETXX
            write(fname(1:80),'(2a,i10.10)')
./pkg/grdchk/grdchk_setxx.F 170 GRDCHK_SETXX
         call ACTIVE_READ_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_setxx.F 174 GRDCHK_SETXX
         call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_setxx.F 183 GRDCHK_SETXX
            write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_setxx.F 186 GRDCHK_SETXX
            write(fname(1:80),'(2a,i10.10)')
./pkg/grdchk/grdchk_setxx.F 189 GRDCHK_SETXX
         call ACTIVE_READ_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_setxx.F 193 GRDCHK_SETXX
         call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_setxx.F 202 GRDCHK_SETXX
            write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_setxx.F 205 GRDCHK_SETXX
            write(fname(1:80),'(2a,i10.10)')
./pkg/grdchk/grdchk_setxx.F 208 GRDCHK_SETXX
         call ACTIVE_READ_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_setxx.F 212 GRDCHK_SETXX
         call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_setxx.F 221 GRDCHK_SETXX
            write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_setxx.F 224 GRDCHK_SETXX
            write(fname(1:80),'(2a,i10.10)')
./pkg/grdchk/grdchk_setxx.F 227 GRDCHK_SETXX
         call ACTIVE_READ_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_setxx.F 231 GRDCHK_SETXX
         call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_setxx.F 240 GRDCHK_SETXX
            write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_setxx.F 243 GRDCHK_SETXX
            write(fname(1:80),'(2a,i10.10)')
./pkg/grdchk/grdchk_setxx.F 246 GRDCHK_SETXX
         call ACTIVE_READ_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_setxx.F 250 GRDCHK_SETXX
         call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_setxx.F 259 GRDCHK_SETXX
            write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_setxx.F 262 GRDCHK_SETXX
            write(fname(1:80),'(2a,i10.10)')
./pkg/grdchk/grdchk_setxx.F 265 GRDCHK_SETXX
         call ACTIVE_READ_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_setxx.F 269 GRDCHK_SETXX
         call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_setxx.F 278 GRDCHK_SETXX
            write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_setxx.F 281 GRDCHK_SETXX
            write(fname(1:80),'(2a,i10.10)')
./pkg/grdchk/grdchk_setxx.F 285 GRDCHK_SETXX
         call ACTIVE_READ_XZ( fname, tmpfldxz, icvrec,
./pkg/grdchk/grdchk_setxx.F 291 GRDCHK_SETXX
         call ACTIVE_WRITE_XZ( fname, tmpfldxz, icvrec,
./pkg/grdchk/grdchk_setxx.F 301 GRDCHK_SETXX
            write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_setxx.F 304 GRDCHK_SETXX
            write(fname(1:80),'(2a,i10.10)')
./pkg/grdchk/grdchk_setxx.F 308 GRDCHK_SETXX
         call ACTIVE_READ_XZ( fname, tmpfldxz, icvrec,
./pkg/grdchk/grdchk_setxx.F 314 GRDCHK_SETXX
         call ACTIVE_WRITE_XZ( fname, tmpfldxz, icvrec,
./pkg/grdchk/grdchk_setxx.F 324 GRDCHK_SETXX
            write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_setxx.F 327 GRDCHK_SETXX
            write(fname(1:80),'(2a,i10.10)')
./pkg/grdchk/grdchk_setxx.F 331 GRDCHK_SETXX
         call ACTIVE_READ_YZ( fname, tmpfldyz, icvrec,
./pkg/grdchk/grdchk_setxx.F 337 GRDCHK_SETXX
         call ACTIVE_WRITE_YZ( fname, tmpfldyz, icvrec,
./pkg/grdchk/grdchk_setxx.F 347 GRDCHK_SETXX
            write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_setxx.F 350 GRDCHK_SETXX
            write(fname(1:80),'(2a,i10.10)')
./pkg/grdchk/grdchk_setxx.F 354 GRDCHK_SETXX
         call ACTIVE_READ_YZ( fname, tmpfldyz, icvrec,
./pkg/grdchk/grdchk_setxx.F 360 GRDCHK_SETXX
         call ACTIVE_WRITE_YZ( fname, tmpfldyz, icvrec,
./pkg/grdchk/grdchk_setxx.F 370 GRDCHK_SETXX
            write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_setxx.F 373 GRDCHK_SETXX
            write(fname(1:80),'(2a,i10.10)')
./pkg/grdchk/grdchk_setxx.F 377 GRDCHK_SETXX
         call ACTIVE_READ_XYZ( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_setxx.F 383 GRDCHK_SETXX
         call ACTIVE_WRITE_XYZ( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_setxx.F 393 GRDCHK_SETXX
            write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_setxx.F 396 GRDCHK_SETXX
            write(fname(1:80),'(2a,i10.10)')
./pkg/grdchk/grdchk_setxx.F 400 GRDCHK_SETXX
         call ACTIVE_READ_XYZ( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_setxx.F 406 GRDCHK_SETXX
         call ACTIVE_WRITE_XYZ( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_setxx.F 416 GRDCHK_SETXX
            write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_setxx.F 419 GRDCHK_SETXX
            write(fname(1:80),'(2a,i10.10)')
./pkg/grdchk/grdchk_setxx.F 423 GRDCHK_SETXX
         call ACTIVE_READ_XYZ( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_setxx.F 429 GRDCHK_SETXX
         call ACTIVE_WRITE_XYZ( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_setxx.F 439 GRDCHK_SETXX
            write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_setxx.F 442 GRDCHK_SETXX
            write(fname(1:80),'(2a,i10.10)')
./pkg/grdchk/grdchk_setxx.F 446 GRDCHK_SETXX
         call ACTIVE_READ_XYZ( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_setxx.F 452 GRDCHK_SETXX
         call ACTIVE_WRITE_XYZ( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_setxx.F 462 GRDCHK_SETXX
            write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_setxx.F 465 GRDCHK_SETXX
            write(fname(1:80),'(2a,i10.10)')
./pkg/grdchk/grdchk_setxx.F 468 GRDCHK_SETXX
         call ACTIVE_READ_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_setxx.F 472 GRDCHK_SETXX
         call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_setxx.F 481 GRDCHK_SETXX
            write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_setxx.F 484 GRDCHK_SETXX
            write(fname(1:80),'(2a,i10.10)')
./pkg/grdchk/grdchk_setxx.F 487 GRDCHK_SETXX
         call ACTIVE_READ_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_setxx.F 491 GRDCHK_SETXX
         call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_setxx.F 500 GRDCHK_SETXX
            write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_setxx.F 503 GRDCHK_SETXX
            write(fname(1:80),'(2a,i10.10)')
./pkg/grdchk/grdchk_setxx.F 506 GRDCHK_SETXX
         call ACTIVE_READ_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_setxx.F 510 GRDCHK_SETXX
         call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_setxx.F 518 GRDCHK_SETXX
         write(fname(1:80),'(80a)') ' '
./pkg/grdchk/grdchk_setxx.F 520 GRDCHK_SETXX
            write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_setxx.F 523 GRDCHK_SETXX
            write(fname(1:80),'(2a,i10.10)')
./pkg/grdchk/grdchk_setxx.F 526 GRDCHK_SETXX
         call ACTIVE_READ_XYZ( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_setxx.F 530 GRDCHK_SETXX
         call ACTIVE_WRITE_XYZ( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_setxx.F 538 GRDCHK_SETXX
         write(fname(1:80),'(80a)') ' '
./pkg/grdchk/grdchk_setxx.F 540 GRDCHK_SETXX
            write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_setxx.F 543 GRDCHK_SETXX
            write(fname(1:80),'(2a,i10.10)')
./pkg/grdchk/grdchk_setxx.F 546 GRDCHK_SETXX
         call ACTIVE_READ_XYZ( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_setxx.F 550 GRDCHK_SETXX
         call ACTIVE_WRITE_XYZ( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_setxx.F 559 GRDCHK_SETXX
            write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_setxx.F 562 GRDCHK_SETXX
            write(fname(1:80),'(2a,i10.10)')
./pkg/grdchk/grdchk_setxx.F 565 GRDCHK_SETXX
         call ACTIVE_READ_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_setxx.F 569 GRDCHK_SETXX
         call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_setxx.F 578 GRDCHK_SETXX
            write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_setxx.F 581 GRDCHK_SETXX
            write(fname(1:80),'(2a,i10.10)')
./pkg/grdchk/grdchk_setxx.F 584 GRDCHK_SETXX
         call ACTIVE_READ_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_setxx.F 588 GRDCHK_SETXX
         call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_setxx.F 597 GRDCHK_SETXX
            write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_setxx.F 600 GRDCHK_SETXX
            write(fname(1:80),'(2a,i10.10)')
./pkg/grdchk/grdchk_setxx.F 604 GRDCHK_SETXX
         call ACTIVE_READ_XYZ( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_setxx.F 610 GRDCHK_SETXX
         call ACTIVE_WRITE_XYZ( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_setxx.F 619 GRDCHK_SETXX
            write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_setxx.F 622 GRDCHK_SETXX
            write(fname(1:80),'(2a,i10.10)')
./pkg/grdchk/grdchk_setxx.F 625 GRDCHK_SETXX
         call ACTIVE_READ_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_setxx.F 629 GRDCHK_SETXX
         call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_setxx.F 638 GRDCHK_SETXX
            write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_setxx.F 641 GRDCHK_SETXX
            write(fname(1:80),'(2a,i10.10)')
./pkg/grdchk/grdchk_setxx.F 644 GRDCHK_SETXX
         call ACTIVE_READ_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_setxx.F 648 GRDCHK_SETXX
         call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_setxx.F 657 GRDCHK_SETXX
            write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_setxx.F 660 GRDCHK_SETXX
            write(fname(1:80),'(2a,i10.10)')
./pkg/grdchk/grdchk_setxx.F 663 GRDCHK_SETXX
         call ACTIVE_READ_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_setxx.F 667 GRDCHK_SETXX
         call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_setxx.F 66 GRDCHK_SETXX
      character*(80) fname
./pkg/grdchk/grdchk_setxx.F 676 GRDCHK_SETXX
            write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_setxx.F 679 GRDCHK_SETXX
            write(fname(1:80),'(2a,i10.10)')
./pkg/grdchk/grdchk_setxx.F 682 GRDCHK_SETXX
         call ACTIVE_READ_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_setxx.F 686 GRDCHK_SETXX
         call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_setxx.F 695 GRDCHK_SETXX
            write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_setxx.F 698 GRDCHK_SETXX
            write(fname(1:80),'(2a,i10.10)')
./pkg/grdchk/grdchk_setxx.F 701 GRDCHK_SETXX
         call ACTIVE_READ_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_setxx.F 705 GRDCHK_SETXX
         call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_setxx.F 714 GRDCHK_SETXX
            write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_setxx.F 717 GRDCHK_SETXX
            write(fname(1:80),'(2a,i10.10)')
./pkg/grdchk/grdchk_setxx.F 720 GRDCHK_SETXX
         call ACTIVE_READ_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_setxx.F 724 GRDCHK_SETXX
         call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_setxx.F 733 GRDCHK_SETXX
            write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_setxx.F 736 GRDCHK_SETXX
            write(fname(1:80),'(2a,i10.10)')
./pkg/grdchk/grdchk_setxx.F 739 GRDCHK_SETXX
         call ACTIVE_READ_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_setxx.F 743 GRDCHK_SETXX
         call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_setxx.F 752 GRDCHK_SETXX
            write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_setxx.F 755 GRDCHK_SETXX
            write(fname(1:80),'(2a,i10.10)')
./pkg/grdchk/grdchk_setxx.F 758 GRDCHK_SETXX
         call ACTIVE_READ_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_setxx.F 762 GRDCHK_SETXX
         call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_setxx.F 771 GRDCHK_SETXX
            write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_setxx.F 774 GRDCHK_SETXX
            write(fname(1:80),'(2a,i10.10)')
./pkg/grdchk/grdchk_setxx.F 777 GRDCHK_SETXX
         call ACTIVE_READ_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_setxx.F 781 GRDCHK_SETXX
         call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_setxx.F 790 GRDCHK_SETXX
            write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_setxx.F 793 GRDCHK_SETXX
            write(fname(1:80),'(2a,i10.10)')
./pkg/grdchk/grdchk_setxx.F 796 GRDCHK_SETXX
         call ACTIVE_READ_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_setxx.F 79 GRDCHK_SETXX
      write(fname(1:80),'(80a)') ' '
./pkg/grdchk/grdchk_setxx.F 800 GRDCHK_SETXX
         call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_setxx.F 809 GRDCHK_SETXX
            write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_setxx.F 812 GRDCHK_SETXX
            write(fname(1:80),'(2a,i10.10)')
./pkg/grdchk/grdchk_setxx.F 815 GRDCHK_SETXX
         call ACTIVE_READ_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_setxx.F 819 GRDCHK_SETXX
         call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_setxx.F 828 GRDCHK_SETXX
            write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_setxx.F 831 GRDCHK_SETXX
            write(fname(1:80),'(2a,i10.10)')
./pkg/grdchk/grdchk_setxx.F 834 GRDCHK_SETXX
         call ACTIVE_READ_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_setxx.F 838 GRDCHK_SETXX
         call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec,
./pkg/grdchk/grdchk_setxx.F 848 GRDCHK_SETXX
            write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_setxx.F 851 GRDCHK_SETXX
            write(fname(1:80),'(2a,i10.10)')
./pkg/grdchk/grdchk_setxx.F 854 GRDCHK_SETXX
         call ACTIVE_READ_XY( fname, tmpfld2d, 1,
./pkg/grdchk/grdchk_setxx.F 858 GRDCHK_SETXX
         print*,"fname etc.",fname,itilepos,jtilepos,itile,jtile,
./pkg/grdchk/grdchk_setxx.F 860 GRDCHK_SETXX
         call ACTIVE_WRITE_XY( fname, tmpfld2d, 1,
./pkg/grdchk/grdchk_setxx.F 88 GRDCHK_SETXX
            write(fname(1:80),'(3a,i10.10)')
./pkg/grdchk/grdchk_setxx.F 91 GRDCHK_SETXX
            write(fname(1:80),'(2a,i10.10)')
./pkg/grdchk/grdchk_setxx.F 94 GRDCHK_SETXX
         call ACTIVE_READ_XYZ( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_setxx.F 98 GRDCHK_SETXX
         call ACTIVE_WRITE_XYZ( fname, tmpfld3d, 1,
./pkg/mnc/mnc_cw_cvars.F 12 MNC_CW_WRITE_CVAR
     I     fname,
./pkg/mnc/mnc_cw_cvars.F 40 MNC_CW_WRITE_CVAR
      character*(*) fname
./pkg/mnc/mnc_cw_cvars.F 411 MNC_CW_WRITE_CVAR
        CALL MNC_FILE_REDEF(fname, myThid)
./pkg/mnc/mnc_cw_cvars.F 419 MNC_CW_WRITE_CVAR
        i = ILNBLNK( fname )
./pkg/mnc/mnc_cw_cvars.F 421 MNC_CW_WRITE_CVAR
     &       cvname(nnf:nnl), ''' in file ''', fname(1:i), ''''
./pkg/mnc/mnc_cw_cvars.F 429 MNC_CW_WRITE_CVAR
     &     cvname(nnf:nnl), ''' in file ''', fname(1:i), ''''
./pkg/mnc/mnc_cw_cvars.F 437 MNC_CW_WRITE_CVAR
     &     cvname(nnf:nnl), ''' in file ''', fname(1:i), ''''
./pkg/mnc/mnc_cw_cvars.F 445 MNC_CW_WRITE_CVAR
     &     cvname(nnf:nnl), ''' in file ''', fname(1:i), ''''
./pkg/mnc/mnc_cw_cvars.F 449 MNC_CW_WRITE_CVAR
        CALL MNC_FILE_ENDDEF(fname, myThid)
./pkg/mnc/mnc_cw_cvars.F 458 MNC_CW_WRITE_CVAR
     &       cvname(nnf:nnl), ''' in file ''', fname(1:i), ''''
./pkg/mnc/mnc_cw_model_attr.F 101 MNC_CW_SET_GATTR
      CALL MNC_FILE_ADD_ATTR_INT(fname, 'exch2_pij',
./pkg/mnc/mnc_cw_model_attr.F 103 MNC_CW_SET_GATTR
      CALL MNC_FILE_ADD_ATTR_INT(fname, 'exch2_oi',
./pkg/mnc/mnc_cw_model_attr.F 105 MNC_CW_SET_GATTR
      CALL MNC_FILE_ADD_ATTR_INT(fname, 'exch2_oj',
./pkg/mnc/mnc_cw_model_attr.F 108 MNC_CW_SET_GATTR
      CALL MNC_FILE_ADD_ATTR_INT(fname,
./pkg/mnc/mnc_cw_model_attr.F 110 MNC_CW_SET_GATTR
      CALL MNC_FILE_ADD_ATTR_INT(fname,
./pkg/mnc/mnc_cw_model_attr.F 112 MNC_CW_SET_GATTR
      CALL MNC_FILE_ADD_ATTR_INT(fname,
./pkg/mnc/mnc_cw_model_attr.F 114 MNC_CW_SET_GATTR
      CALL MNC_FILE_ADD_ATTR_INT(fname,
./pkg/mnc/mnc_cw_model_attr.F 117 MNC_CW_SET_GATTR
      CALL MNC_FILE_ADD_ATTR_INT(fname,
./pkg/mnc/mnc_cw_model_attr.F 119 MNC_CW_SET_GATTR
      CALL MNC_FILE_ADD_ATTR_INT(fname,
./pkg/mnc/mnc_cw_model_attr.F 121 MNC_CW_SET_GATTR
      CALL MNC_FILE_ADD_ATTR_INT(fname,
./pkg/mnc/mnc_cw_model_attr.F 123 MNC_CW_SET_GATTR
      CALL MNC_FILE_ADD_ATTR_INT(fname,
./pkg/mnc/mnc_cw_model_attr.F 125 MNC_CW_SET_GATTR
      CALL MNC_FILE_ADD_ATTR_INT(fname,
./pkg/mnc/mnc_cw_model_attr.F 12 MNC_CW_SET_GATTR
     I     fname,
./pkg/mnc/mnc_cw_model_attr.F 130 MNC_CW_SET_GATTR
      CALL MNC_FILE_ADD_ATTR_INT(fname, 'sNx', 1, sNx, myThid)
./pkg/mnc/mnc_cw_model_attr.F 131 MNC_CW_SET_GATTR
      CALL MNC_FILE_ADD_ATTR_INT(fname, 'sNy', 1, sNy, myThid)
./pkg/mnc/mnc_cw_model_attr.F 132 MNC_CW_SET_GATTR
      CALL MNC_FILE_ADD_ATTR_INT(fname, 'OLx', 1, OLx, myThid)
./pkg/mnc/mnc_cw_model_attr.F 133 MNC_CW_SET_GATTR
      CALL MNC_FILE_ADD_ATTR_INT(fname, 'OLy', 1, OLy, myThid)
./pkg/mnc/mnc_cw_model_attr.F 134 MNC_CW_SET_GATTR
      CALL MNC_FILE_ADD_ATTR_INT(fname, 'nSx', 1, nSx, myThid)
./pkg/mnc/mnc_cw_model_attr.F 135 MNC_CW_SET_GATTR
      CALL MNC_FILE_ADD_ATTR_INT(fname, 'nSy', 1, nSy, myThid)
./pkg/mnc/mnc_cw_model_attr.F 136 MNC_CW_SET_GATTR
      CALL MNC_FILE_ADD_ATTR_INT(fname, 'nPx', 1, nPx, myThid)
./pkg/mnc/mnc_cw_model_attr.F 137 MNC_CW_SET_GATTR
      CALL MNC_FILE_ADD_ATTR_INT(fname, 'nPy', 1, nPy, myThid)
./pkg/mnc/mnc_cw_model_attr.F 138 MNC_CW_SET_GATTR
      CALL MNC_FILE_ADD_ATTR_INT(fname, 'Nx', 1, Nx, myThid)
./pkg/mnc/mnc_cw_model_attr.F 139 MNC_CW_SET_GATTR
      CALL MNC_FILE_ADD_ATTR_INT(fname, 'Ny', 1, Ny, myThid)
./pkg/mnc/mnc_cw_model_attr.F 140 MNC_CW_SET_GATTR
      CALL MNC_FILE_ADD_ATTR_INT(fname, 'Nr', 1, Nr, myThid)
./pkg/mnc/mnc_cw_model_attr.F 39 MNC_CW_SET_GATTR
      character*(*) fname
./pkg/mnc/mnc_cw_model_attr.F 45 MNC_CW_SET_GATTR
      CALL MNC_FILE_REDEF(fname, myThid)
./pkg/mnc/mnc_cw_model_attr.F 50 MNC_CW_SET_GATTR
        CALL MNC_FILE_ADD_ATTR_STR(fname, 'the_run_name',
./pkg/mnc/mnc_cw_model_attr.F 55 MNC_CW_SET_GATTR
      CALL MNC_FILE_ADD_ATTR_STR(fname, 'MITgcm_version',
./pkg/mnc/mnc_cw_model_attr.F 60 MNC_CW_SET_GATTR
      CALL MNC_FILE_ADD_ATTR_STR(fname, 'build_user',
./pkg/mnc/mnc_cw_model_attr.F 65 MNC_CW_SET_GATTR
      CALL MNC_FILE_ADD_ATTR_STR(fname, 'build_host',
./pkg/mnc/mnc_cw_model_attr.F 70 MNC_CW_SET_GATTR
      CALL MNC_FILE_ADD_ATTR_STR(fname, 'build_date',
./pkg/mnc/mnc_cw_model_attr.F 75 MNC_CW_SET_GATTR
      CALL MNC_FILE_ADD_ATTR_STR(fname, 'MITgcm_URL',
./pkg/mnc/mnc_cw_model_attr.F 77 MNC_CW_SET_GATTR
      CALL MNC_FILE_ADD_ATTR_STR(fname, 'MITgcm_tag_id',
./pkg/mnc/mnc_cw_model_attr.F 79 MNC_CW_SET_GATTR
      CALL MNC_FILE_ADD_ATTR_DBL(fname, 'MITgcm_mnc_ver',
./pkg/mnc/mnc_cw_model_attr.F 83 MNC_CW_SET_GATTR
      CALL MNC_FILE_ADD_ATTR_INT(fname,'tile_number', 1, tnum, myThid)
./pkg/mnc/mnc_cw_model_attr.F 84 MNC_CW_SET_GATTR
      CALL MNC_FILE_ADD_ATTR_INT(fname,'bi', 1, bi, myThid)
./pkg/mnc/mnc_cw_model_attr.F 85 MNC_CW_SET_GATTR
      CALL MNC_FILE_ADD_ATTR_INT(fname,'bj', 1, bj, myThid)
./pkg/mnc/mnc_cw_model_attr.F 95 MNC_CW_SET_GATTR
      CALL MNC_FILE_ADD_ATTR_INT(fname,
./pkg/mnc/mnc_cw_model_attr.F 97 MNC_CW_SET_GATTR
      CALL MNC_FILE_ADD_ATTR_INT(fname,
./pkg/mnc/mnc_cw_write_grid_info.F 168 MNC_CW_WRITE_GRID_COORD
     I     fname,
./pkg/mnc/mnc_cw_write_grid_info.F 182 MNC_CW_WRITE_GRID_COORD
      character*(*) fname
./pkg/mnc/mnc_cw_write_grid_info.F 187 MNC_CW_WRITE_GRID_COORD
      CALL MNC_CW_SET_UDIM(fname, 0, myThid)
./pkg/mnc/mnc_cw_write_grid_info.F 188 MNC_CW_WRITE_GRID_COORD
      CALL MNC_CW_RS_W('R',fname,0,0,'XC',xC, myThid)
./pkg/mnc/mnc_cw_write_grid_info.F 189 MNC_CW_WRITE_GRID_COORD
      CALL MNC_CW_RS_W('R',fname,0,0,'YC',yC, myThid)
./pkg/mnc/mnc_cw_write_grid_info.F 190 MNC_CW_WRITE_GRID_COORD
      CALL MNC_CW_RS_W('R',fname,0,0,'XG',xG, myThid)
./pkg/mnc/mnc_cw_write_grid_info.F 191 MNC_CW_WRITE_GRID_COORD
      CALL MNC_CW_RS_W('R',fname,0,0,'YG',yG, myThid)
./pkg/mnc/mnc_cwrapper.F 745 MNC_CW_FILE_AORC
     I     fname,
./pkg/mnc/mnc_cwrapper.F 762 MNC_CW_FILE_AORC
      character*(*) fname
./pkg/mnc/mnc_cwrapper.F 769 MNC_CW_FILE_AORC
      CALL MNC_GET_IND(MNC_MAX_FID, fname, mnc_f_names, indf, myThid)
./pkg/mnc/mnc_cwrapper.F 775 MNC_CW_FILE_AORC
      CALL MNC_FILE_TRY_READ(fname, ierr, indf, myThid)
./pkg/mnc/mnc_cwrapper.F 778 MNC_CW_FILE_AORC
        CALL MNC_FILE_OPEN(fname, 0, indf, myThid)
./pkg/mnc/mnc_cwrapper.F 782 MNC_CW_FILE_AORC
      CALL MNC_CW_SET_GATTR(fname, lbi,lbj, uniq_tnum, myThid)
./pkg/mnc/mnc_dim.F 101 MNC_DIM_INIT_ALL_CV
      CALL MNC_GET_IND(MNC_MAX_FID, fname, mnc_f_names, indf, myThid)
./pkg/mnc/mnc_dim.F 103 MNC_DIM_INIT_ALL_CV
        write(msgbuf,'(3a)') 'MNC ERROR: file ''', fname(1:nf),
./pkg/mnc/mnc_dim.F 120 MNC_DIM_INIT_ALL_CV
     &             fname(1:nf), ''' and its size cannot be changed'
./pkg/mnc/mnc_dim.F 12 MNC_DIM_INIT
     I     fname, 
./pkg/mnc/mnc_dim.F 144 MNC_DIM_INIT_ALL_CV
        CALL MNC_FILE_REDEF(fname, myThid)
./pkg/mnc/mnc_dim.F 147 MNC_DIM_INIT_ALL_CV
     &       'dim ''', dname(dnf:dnl), ''' in file ''', fname(1:nf)
./pkg/mnc/mnc_dim.F 153 MNC_DIM_INIT_ALL_CV
          CALL MNC_CW_WRITE_CVAR(fname, dname(dnf:dnl), 
./pkg/mnc/mnc_dim.F 175 MNC_DIM_UNLIM_SIZE
     I     fname, 
./pkg/mnc/mnc_dim.F 190 MNC_DIM_UNLIM_SIZE
      character*(*) fname
./pkg/mnc/mnc_dim.F 200 MNC_DIM_UNLIM_SIZE
      nf = ILNBLNK(fname)
./pkg/mnc/mnc_dim.F 203 MNC_DIM_UNLIM_SIZE
      CALL MNC_GET_IND(MNC_MAX_FID, fname, mnc_f_names, indf, myThid)
./pkg/mnc/mnc_dim.F 205 MNC_DIM_UNLIM_SIZE
        write(msgbuf,'(3a)') 'MNC ERROR: file ''', fname(1:nf),
./pkg/mnc/mnc_dim.F 220 MNC_DIM_UNLIM_SIZE
     &         'determine unlimited dim size in file ''', fname(1:nf)
./pkg/mnc/mnc_dim.F 22 MNC_DIM_INIT
      character*(*) fname, dname
./pkg/mnc/mnc_dim.F 25 MNC_DIM_INIT
      CALL MNC_DIM_INIT_ALL(fname, dname, dlen, 'Y', myThid)
./pkg/mnc/mnc_dim.F 36 MNC_DIM_INIT_ALL
     I     fname, 
./pkg/mnc/mnc_dim.F 50 MNC_DIM_INIT_ALL
      character*(*) fname, dname
./pkg/mnc/mnc_dim.F 54 MNC_DIM_INIT_ALL
      CALL MNC_DIM_INIT_ALL_CV(fname,dname,dlen,doWrite,-1,-1,myThid)
./pkg/mnc/mnc_dim.F 65 MNC_DIM_INIT_ALL_CV
     I     fname, 
./pkg/mnc/mnc_dim.F 83 MNC_DIM_INIT_ALL_CV
      character*(*) fname, dname
./pkg/mnc/mnc_dim.F 95 MNC_DIM_INIT_ALL_CV
      nf = ILNBLNK(fname)
./pkg/mnc/mnc_file.F 100 MNC_FILE_OPEN
      n = ILNBLNK(fname)
./pkg/mnc/mnc_file.F 101 MNC_FILE_OPEN
      mnc_f_names(indf)(1:n) = fname(1:n)
./pkg/mnc/mnc_file.F 117 MNC_FILE_ADD_ATTR_STR
     I     fname, 
./pkg/mnc/mnc_file.F 12 MNC_FILE_CREATE
     I     fname, 
./pkg/mnc/mnc_file.F 130 MNC_FILE_ADD_ATTR_STR
      character*(*) fname, atname, sval
./pkg/mnc/mnc_file.F 135 MNC_FILE_ADD_ATTR_STR
      CALL MNC_FILE_ADD_ATTR_ANY(fname,atname, 1, 
./pkg/mnc/mnc_file.F 146 MNC_FILE_ADD_ATTR_DBL
     I     fname, 
./pkg/mnc/mnc_file.F 160 MNC_FILE_ADD_ATTR_DBL
      character*(*) fname, atname
./pkg/mnc/mnc_file.F 166 MNC_FILE_ADD_ATTR_DBL
      CALL MNC_FILE_ADD_ATTR_ANY(fname,atname, 2, 
./pkg/mnc/mnc_file.F 177 MNC_FILE_ADD_ATTR_REAL
     I     fname, 
./pkg/mnc/mnc_file.F 191 MNC_FILE_ADD_ATTR_REAL
      character*(*) fname, atname
./pkg/mnc/mnc_file.F 195 MNC_FILE_ADD_ATTR_REAL
      CALL MNC_FILE_ADD_ATTR_ANY(fname,atname, 3, 
./pkg/mnc/mnc_file.F 206 MNC_FILE_ADD_ATTR_INT
     I     fname, 
./pkg/mnc/mnc_file.F 220 MNC_FILE_ADD_ATTR_INT
      character*(*) fname, atname
./pkg/mnc/mnc_file.F 225 MNC_FILE_ADD_ATTR_INT
      CALL MNC_FILE_ADD_ATTR_ANY(fname,atname, 4, 
./pkg/mnc/mnc_file.F 236 MNC_FILE_ADD_ATTR_ANY
     I     fname, 
./pkg/mnc/mnc_file.F 23 MNC_FILE_CREATE
      character*(*) fname
./pkg/mnc/mnc_file.F 252 MNC_FILE_ADD_ATTR_ANY
      character*(*) fname, atname, sv
./pkg/mnc/mnc_file.F 266 MNC_FILE_ADD_ATTR_ANY
      CALL MNC_GET_IND(MNC_MAX_FID, fname, mnc_f_names, ind, myThid)
./pkg/mnc/mnc_file.F 268 MNC_FILE_ADD_ATTR_ANY
        nf = ILNBLNK( fname )
./pkg/mnc/mnc_file.F 270 MNC_FILE_ADD_ATTR_ANY
     &       fname(1:nf), ''' must be opened first'
./pkg/mnc/mnc_file.F 277 MNC_FILE_ADD_ATTR_ANY
      CALL MNC_FILE_REDEF(fname, myThid)
./pkg/mnc/mnc_file.F 29 MNC_FILE_CREATE
      CALL MNC_FILE_OPEN(fname, 0, indf, myThid)
./pkg/mnc/mnc_file.F 321 MNC_FILE_CLOSE
     I     fname, 
./pkg/mnc/mnc_file.F 335 MNC_FILE_CLOSE
      character*(*) fname
./pkg/mnc/mnc_file.F 345 MNC_FILE_CLOSE
      nf = ILNBLNK(fname)
./pkg/mnc/mnc_file.F 348 MNC_FILE_CLOSE
      CALL MNC_GET_IND(MNC_MAX_FID, fname, mnc_f_names, indf, myThid)
./pkg/mnc/mnc_file.F 350 MNC_FILE_CLOSE
        write(msgbuf,'(3a)') 'MNC Warning: file ''', fname(1:nf), 
./pkg/mnc/mnc_file.F 357 MNC_FILE_CLOSE
      write(msgbuf,'(3a)') ' cannot close file ''', fname(1:nf), ''''
./pkg/mnc/mnc_file.F 40 MNC_FILE_OPEN
     I     fname, 
./pkg/mnc/mnc_file.F 410 MNC_FILE_CLOSE_ALL_MATCHING
     I     fname, 
./pkg/mnc/mnc_file.F 424 MNC_FILE_CLOSE_ALL_MATCHING
      character*(*) fname
./pkg/mnc/mnc_file.F 433 MNC_FILE_CLOSE_ALL_MATCHING
      n = ILNBLNK(fname)
./pkg/mnc/mnc_file.F 437 MNC_FILE_CLOSE_ALL_MATCHING
        IF (fname(1:n) .EQ. mnc_f_names(i)(1:n)) THEN
./pkg/mnc/mnc_file.F 494 MNC_FILE_REDEF
     I     fname, 
./pkg/mnc/mnc_file.F 508 MNC_FILE_REDEF
      character*(*) fname
./pkg/mnc/mnc_file.F 519 MNC_FILE_REDEF
      CALL MNC_GET_IND(MNC_MAX_FID, fname, mnc_f_names, ind, myThid)
./pkg/mnc/mnc_file.F 521 MNC_FILE_REDEF
        n = ILNBLNK(fname)
./pkg/mnc/mnc_file.F 523 MNC_FILE_REDEF
     &       fname(1:n), ''' must be opened first'
./pkg/mnc/mnc_file.F 547 MNC_FILE_ENDDEF
     I     fname, 
./pkg/mnc/mnc_file.F 561 MNC_FILE_ENDDEF
      character*(*) fname
./pkg/mnc/mnc_file.F 56 MNC_FILE_OPEN
      character*(*) fname
./pkg/mnc/mnc_file.F 572 MNC_FILE_ENDDEF
      CALL MNC_GET_IND(MNC_MAX_FID, fname, mnc_f_names, ind, myThid)
./pkg/mnc/mnc_file.F 574 MNC_FILE_ENDDEF
        n = ILNBLNK(fname)
./pkg/mnc/mnc_file.F 576 MNC_FILE_ENDDEF
     &       fname(1:n), ''' must be opened first'
./pkg/mnc/mnc_file.F 600 MNC_FILE_READALL
     I     fname, 
./pkg/mnc/mnc_file.F 613 MNC_FILE_READALL
      character*(*) fname
./pkg/mnc/mnc_file.F 623 MNC_FILE_READALL
      nff = IFNBLNK(fname)
./pkg/mnc/mnc_file.F 624 MNC_FILE_READALL
      nlf = ILNBLNK(fname)
./pkg/mnc/mnc_file.F 625 MNC_FILE_READALL
      CALL MNC_FILE_TRY_READ(fname, ierr, indf, myThid)
./pkg/mnc/mnc_file.F 627 MNC_FILE_READALL
     &     fname(nff:nlf), ''' for read/write access'
./pkg/mnc/mnc_file.F 639 MNC_FILE_TRY_READ
     I     fname, 
./pkg/mnc/mnc_file.F 655 MNC_FILE_TRY_READ
      character*(*) fname
./pkg/mnc/mnc_file.F 670 MNC_FILE_TRY_READ
      nff = IFNBLNK(fname)
./pkg/mnc/mnc_file.F 671 MNC_FILE_TRY_READ
      nlf = ILNBLNK(fname)
./pkg/mnc/mnc_file.F 672 MNC_FILE_TRY_READ
      err = NF_OPEN(fname, NF_WRITE, fid)
./pkg/mnc/mnc_file.F 680 MNC_FILE_TRY_READ
      mnc_f_names(indf)(1:(nlf-nff+1)) = fname(nff:nlf)
./pkg/mnc/mnc_file.F 686 MNC_FILE_TRY_READ
     &     ' in file ''', fname(nff:nlf), ''''
./pkg/mnc/mnc_file.F 694 MNC_FILE_TRY_READ
     &       fname(nff:nlf), ''''
./pkg/mnc/mnc_file.F 69 MNC_FILE_OPEN
      nf = ILNBLNK(fname)
./pkg/mnc/mnc_file.F 702 MNC_FILE_TRY_READ
        CALL MNC_DIM_INIT_ALL(fname,name(ns:ne),dlen,'N', myThid)
./pkg/mnc/mnc_file.F 70 MNC_FILE_OPEN
      CALL MNC_GET_IND(MNC_MAX_FID, fname,mnc_f_names,indf,myThid)
./pkg/mnc/mnc_file.F 721 MNC_FILE_TRY_READ
     &       fname(nff:nlf), ''''
./pkg/mnc/mnc_file.F 72 MNC_FILE_OPEN
        write(msgbuf,'(3a)') 'MNC_FILE_OPEN ERROR: ''', fname(1:nf), 
./pkg/mnc/mnc_file.F 732 MNC_FILE_TRY_READ
        CALL MNC_GRID_INIT_ALL(fname, name, ndv, dnames, indg, myThid)
./pkg/mnc/mnc_file.F 78 MNC_FILE_OPEN
      write(msgbuf,'(3a)') 'opening ''', fname(1:nf), ''''
./pkg/mnc/mnc_file.F 82 MNC_FILE_OPEN
        err = NF_CREATE(fname, NF_CLOBBER, fid)
./pkg/mnc/mnc_file.F 88 MNC_FILE_OPEN
        CALL MNC_FILE_READALL(fname, myThid)
./pkg/mnc/mnc_grid.F 116 MNC_GRID_INIT_ALL
      CALL MNC_FILE_REDEF(fname, myThid)
./pkg/mnc/mnc_grid.F 12 MNC_GRID_INIT
     I     fname, 
./pkg/mnc/mnc_grid.F 198 MNC_GRID_INIT_ALL
     &         fname(1:nf), ''''
./pkg/mnc/mnc_grid.F 26 MNC_GRID_INIT
      character*(*) fname,gname
./pkg/mnc/mnc_grid.F 33 MNC_GRID_INIT
      CALL MNC_GRID_INIT_ALL(fname, gname, ndim, dnames, ind, myThid)
./pkg/mnc/mnc_grid.F 44 MNC_GRID_INIT_ALL
     I     fname, 
./pkg/mnc/mnc_grid.F 67 MNC_GRID_INIT_ALL
      character*(*) fname,gname
./pkg/mnc/mnc_grid.F 85 MNC_GRID_INIT_ALL
      nf = ILNBLNK(fname)
./pkg/mnc/mnc_grid.F 87 MNC_GRID_INIT_ALL
      file_name(1:nf) = fname(1:nf)
./pkg/mnc/mnc_utils.F 190 MNC_GET_FVINDS
     I     fname,
./pkg/mnc/mnc_utils.F 206 MNC_GET_FVINDS
      character*(*) fname
./pkg/mnc/mnc_utils.F 220 MNC_GET_FVINDS
      CALL MNC_GET_IND(MNC_MAX_FID, fname, mnc_f_names, indf, myThid)
./pkg/mnc/mnc_var.F 103 MNC_VAR_INIT_INT
      CHARACTER*(*) fname,gname,vname
./pkg/mnc/mnc_var.F 107 MNC_VAR_INIT_INT
      CALL MNC_VAR_INIT_ANY( fname,gname,vname, NF_INT, irv,myThid )
./pkg/mnc/mnc_var.F 118 MNC_VAR_INIT_ANY
     I     fname,
./pkg/mnc/mnc_var.F 135 MNC_VAR_INIT_ANY
      CHARACTER*(*) fname,gname,vname
./pkg/mnc/mnc_var.F 152 MNC_VAR_INIT_ANY
      lenf = ILNBLNK(fname)
./pkg/mnc/mnc_var.F 157 MNC_VAR_INIT_ANY
      CALL MNC_GET_IND(MNC_MAX_FID, fname, mnc_f_names, indf, myThid)
./pkg/mnc/mnc_var.F 159 MNC_VAR_INIT_ANY
        nf = ILNBLNK( fname )
./pkg/mnc/mnc_var.F 160 MNC_VAR_INIT_ANY
        WRITE(msgBuf,'(3A)') 'MNC ERROR: file ''', fname(1:nf),
./pkg/mnc/mnc_var.F 180 MNC_VAR_INIT_ANY
        WRITE(msgBuf,'(3A)') 'MNC ERROR: file ''', fname(1:lenf),
./pkg/mnc/mnc_var.F 202 MNC_VAR_INIT_ANY
      WRITE(msgBuf,'(5A)') 'MNC ERROR: file ''', fname(1:lenf),
./pkg/mnc/mnc_var.F 217 MNC_VAR_INIT_ANY
     &           fname(1:lenf), ''' but using a different grid shape'
./pkg/mnc/mnc_var.F 231 MNC_VAR_INIT_ANY
      CALL MNC_FILE_REDEF(fname, myThid)
./pkg/mnc/mnc_var.F 244 MNC_VAR_INIT_ANY
     &     ''' in file ''', fname(1:lenf), ''''
./pkg/mnc/mnc_var.F 268 MNC_VAR_ADD_ATTR_STR
     I     fname,
./pkg/mnc/mnc_var.F 281 MNC_VAR_ADD_ATTR_STR
      CHARACTER*(*) fname,vname,atname,sval
./pkg/mnc/mnc_var.F 291 MNC_VAR_ADD_ATTR_STR
      CALL MNC_VAR_ADD_ATTR_ANY( fname,vname,atname,
./pkg/mnc/mnc_var.F 302 MNC_VAR_ADD_ATTR_DBL
     I     fname,
./pkg/mnc/mnc_var.F 316 MNC_VAR_ADD_ATTR_DBL
      CHARACTER*(*) fname,vname,atname
./pkg/mnc/mnc_var.F 31 MNC_VAR_INIT_DBL
     I     fname,
./pkg/mnc/mnc_var.F 326 MNC_VAR_ADD_ATTR_DBL
      CALL MNC_VAR_ADD_ATTR_ANY( fname,vname,atname,
./pkg/mnc/mnc_var.F 338 MNC_VAR_ADD_ATTR_REAL
     I     fname,
./pkg/mnc/mnc_var.F 352 MNC_VAR_ADD_ATTR_REAL
      CHARACTER*(*) fname,vname,atname
./pkg/mnc/mnc_var.F 362 MNC_VAR_ADD_ATTR_REAL
      CALL MNC_VAR_ADD_ATTR_ANY( fname,vname,atname,
./pkg/mnc/mnc_var.F 373 MNC_VAR_ADD_ATTR_INT
     I     fname,
./pkg/mnc/mnc_var.F 387 MNC_VAR_ADD_ATTR_INT
      CHARACTER*(*) fname,vname,atname
./pkg/mnc/mnc_var.F 397 MNC_VAR_ADD_ATTR_INT
      CALL MNC_VAR_ADD_ATTR_ANY( fname,vname,atname,
./pkg/mnc/mnc_var.F 409 MNC_VAR_ADD_ATTR_ANY
     I     fname,
./pkg/mnc/mnc_var.F 425 MNC_VAR_ADD_ATTR_ANY
      CHARACTER*(*) fname,vname,atname
./pkg/mnc/mnc_var.F 445 MNC_VAR_ADD_ATTR_ANY
      lenf = ILNBLNK(fname)
./pkg/mnc/mnc_var.F 450 MNC_VAR_ADD_ATTR_ANY
      CALL MNC_GET_FVINDS(fname, vname, indf, ind_fv_ids, myThid)
./pkg/mnc/mnc_var.F 452 MNC_VAR_ADD_ATTR_ANY
        WRITE(msgBuf,'(5A)') 'MNC ERROR: file ''', fname(1:lenf),
./pkg/mnc/mnc_var.F 45 MNC_VAR_INIT_DBL
      CHARACTER*(*) fname,gname,vname
./pkg/mnc/mnc_var.F 462 MNC_VAR_ADD_ATTR_ANY
      CALL MNC_FILE_REDEF(fname, myThid)
./pkg/mnc/mnc_var.F 479 MNC_VAR_ADD_ATTR_ANY
     &     ''' to file ''', fname(1:lenf), ''''
./pkg/mnc/mnc_var.F 488 MNC_VAR_WRITE_DBL
     I     fname,
./pkg/mnc/mnc_var.F 495 MNC_VAR_WRITE_DBL
      CHARACTER*(*) fname, vname
./pkg/mnc/mnc_var.F 49 MNC_VAR_INIT_DBL
      CALL MNC_VAR_INIT_ANY( fname,gname,vname, NF_DOUBLE, irv,myThid )
./pkg/mnc/mnc_var.F 506 MNC_VAR_WRITE_DBL
      CALL MNC_VAR_WRITE_ANY( fname, vname, 1, 0,
./pkg/mnc/mnc_var.F 515 MNC_VAR_WRITE_REAL
     I     fname,
./pkg/mnc/mnc_var.F 522 MNC_VAR_WRITE_REAL
      CHARACTER*(*) fname, vname
./pkg/mnc/mnc_var.F 533 MNC_VAR_WRITE_REAL
      CALL MNC_VAR_WRITE_ANY( fname, vname, 2, 0,
./pkg/mnc/mnc_var.F 542 MNC_VAR_WRITE_INT
     I     fname,
./pkg/mnc/mnc_var.F 549 MNC_VAR_WRITE_INT
      CHARACTER*(*) fname, vname
./pkg/mnc/mnc_var.F 560 MNC_VAR_WRITE_INT
      CALL MNC_VAR_WRITE_ANY( fname, vname, 3, 0,
./pkg/mnc/mnc_var.F 569 MNC_VAR_APPEND_DBL
     I     fname,
./pkg/mnc/mnc_var.F 577 MNC_VAR_APPEND_DBL
      CHARACTER*(*) fname, vname
./pkg/mnc/mnc_var.F 588 MNC_VAR_APPEND_DBL
      CALL MNC_VAR_WRITE_ANY( fname, vname, 1, append,
./pkg/mnc/mnc_var.F 597 MNC_VAR_APPEND_REAL
     I     fname,
./pkg/mnc/mnc_var.F 605 MNC_VAR_APPEND_REAL
      CHARACTER*(*) fname, vname
./pkg/mnc/mnc_var.F 60 MNC_VAR_INIT_REAL
     I     fname,
./pkg/mnc/mnc_var.F 616 MNC_VAR_APPEND_REAL
      CALL MNC_VAR_WRITE_ANY( fname, vname, 2, append,
./pkg/mnc/mnc_var.F 625 MNC_VAR_APPEND_INT
     I     fname,
./pkg/mnc/mnc_var.F 633 MNC_VAR_APPEND_INT
      CHARACTER*(*) fname, vname
./pkg/mnc/mnc_var.F 644 MNC_VAR_APPEND_INT
      CALL MNC_VAR_WRITE_ANY( fname, vname, 3, append,
./pkg/mnc/mnc_var.F 653 MNC_VAR_WRITE_ANY
     I     fname,
./pkg/mnc/mnc_var.F 668 MNC_VAR_WRITE_ANY
      CHARACTER*(*) fname, vname
./pkg/mnc/mnc_var.F 686 MNC_VAR_WRITE_ANY
      lenf = ILNBLNK(fname)
./pkg/mnc/mnc_var.F 689 MNC_VAR_WRITE_ANY
      CALL MNC_GET_FVINDS(fname, vname, indf, ind_fv_ids, myThid)
./pkg/mnc/mnc_var.F 691 MNC_VAR_WRITE_ANY
        WRITE(msgBuf,'(5A)') 'MNC ERROR: file ''', fname(1:lenf),
./pkg/mnc/mnc_var.F 726 MNC_VAR_WRITE_ANY
      CALL MNC_FILE_ENDDEF(fname, myThid)
./pkg/mnc/mnc_var.F 741 MNC_VAR_WRITE_ANY
     &     ''' to file ''', fname(1:lenf), ''''
./pkg/mnc/mnc_var.F 74 MNC_VAR_INIT_REAL
      CHARACTER*(*) fname,gname,vname
./pkg/mnc/mnc_var.F 78 MNC_VAR_INIT_REAL
      CALL MNC_VAR_INIT_ANY( fname,gname,vname, NF_FLOAT, irv,myThid )
./pkg/mnc/mnc_var.F 89 MNC_VAR_INIT_INT
     I     fname,
./pkg/regrid/regrid_init_varia.F 128 REGRID_INIT_VARIA
              fname(k:k) = ' '
./pkg/regrid/regrid_init_varia.F 131 REGRID_INIT_VARIA
            write(fname,'(a,i3.3,a)')
./pkg/regrid/regrid_init_varia.F 133 REGRID_INIT_VARIA
            nnb = ILNBLNK(fname)
./pkg/regrid/regrid_init_varia.F 134 REGRID_INIT_VARIA
            INQUIRE( FILE=fname, EXIST=exst )
./pkg/regrid/regrid_init_varia.F 139 REGRID_INIT_VARIA
     &             fname(1:nnb), '" does not exist'
./pkg/regrid/regrid_init_varia.F 145 REGRID_INIT_VARIA
            open(unit=iUnit, file=fname, status='old', iostat=errIO)
./pkg/regrid/regrid_init_varia.F 151 REGRID_INIT_VARIA
     &             fname(1:nnb), '"'
./pkg/regrid/regrid_init_varia.F 156 REGRID_INIT_VARIA
              WRITE(msgBuf,'(3a)') 'Reading file "', fname(1:nnb),'"'
./pkg/regrid/regrid_init_varia.F 42 REGRID_INIT_VARIA
      CHARACTER*(MAX_LEN_FNAM) fname
./verification/flt_example/extra/cvprofiles.F 324 NO PROCEDURE
      IL=ILNBLNK( fname )
./verification/flt_example/extra/cvprofiles.F 325 NO PROCEDURE
      outname2=fname(1:IL)//'.cdf'
./optim/optim_initmod.F 46 OPTIM_INITMOD
      character*(80) fname
./optim/optim_initmod.F 52 OPTIM_INITMOD
      write(fname(1:80),'(80a)') ' '
./optim/optim_initmod.F 53 OPTIM_INITMOD
      write(fname(1:80),'(4a,i10.10,a)')
./optim/optim_readdata.F 132 OPTIM_READDATA
      write(fname(1:128),'(4a,i4.4)')
./optim/optim_readdata.F 134 OPTIM_READDATA
      open( funit, file   = fname,
./optim/optim_readdata.F 138 OPTIM_READDATA
      print*, 'opened file ', fname
./optim/optim_readdata.F 79 OPTIM_READDATA
      character*(128) fname
./optim/optim_writedata.F 100 OPTIM_WRITEDATA
      open( funit, file   = fname,
./optim/optim_writedata.F 66 OPTIM_WRITEDATA
      character*(128) fname
./optim/optim_writedata.F 98 OPTIM_WRITEDATA
      write(fname(1:128),'(4a,i4.4)')
./pkg/autodiff/active_file_ad.F 100 ADACTIVE_READ_XY
      character*(80) fname
./pkg/autodiff/active_file_ad.F 110 ADACTIVE_READ_XY
      write(fname(1:80),'(a)') ' '
./pkg/autodiff/active_file_ad.F 114 ADACTIVE_READ_XY
      write(fname(1:2),'(a)') adpref
./pkg/autodiff/active_file_ad.F 115 ADACTIVE_READ_XY
      write(fname(3:2+il),'(a)') active_var_file(1:il)
./pkg/autodiff/active_file_ad.F 117 ADACTIVE_READ_XY
      call ACTIVE_READ_RL( fname, adactive_var,
./pkg/autodiff/active_file_ad.F 187 ADACTIVE_READ_XYZ
      character*(80) fname
./pkg/autodiff/active_file_ad.F 197 ADACTIVE_READ_XYZ
      write(fname(1:80),'(a)') ' '
./pkg/autodiff/active_file_ad.F 201 ADACTIVE_READ_XYZ
      write(fname(1:2),'(a)') adpref
./pkg/autodiff/active_file_ad.F 202 ADACTIVE_READ_XYZ
      write(fname(3:2+il),'(a)') active_var_file(1:il)
./pkg/autodiff/active_file_ad.F 204 ADACTIVE_READ_XYZ
      call ACTIVE_READ_RL( fname, adactive_var,
./pkg/autodiff/active_file_ad.F 274 ADACTIVE_READ_XZ
      character*(80) fname
./pkg/autodiff/active_file_ad.F 284 ADACTIVE_READ_XZ
      write(fname(1:80),'(a)') ' '
./pkg/autodiff/active_file_ad.F 288 ADACTIVE_READ_XZ
      write(fname(1:2),'(a)') adpref
./pkg/autodiff/active_file_ad.F 289 ADACTIVE_READ_XZ
      write(fname(3:2+il),'(a)') active_var_file(1:il)
./pkg/autodiff/active_file_ad.F 291 ADACTIVE_READ_XZ
      call ACTIVE_READ_XZ_RL( fname, adactive_var,
./pkg/autodiff/active_file_ad.F 361 ADACTIVE_READ_YZ
      character*(80) fname
./pkg/autodiff/active_file_ad.F 371 ADACTIVE_READ_YZ
      write(fname(1:80),'(a)') ' '
./pkg/autodiff/active_file_ad.F 375 ADACTIVE_READ_YZ
      write(fname(1:2),'(a)') adpref
./pkg/autodiff/active_file_ad.F 376 ADACTIVE_READ_YZ
      write(fname(3:2+il),'(a)') active_var_file(1:il)
./pkg/autodiff/active_file_ad.F 378 ADACTIVE_READ_YZ
      call ACTIVE_READ_YZ_RL( fname, adactive_var,
./pkg/autodiff/active_file_ad.F 442 ADACTIVE_WRITE_XY
      character*(80) fname
./pkg/autodiff/active_file_ad.F 453 ADACTIVE_WRITE_XY
      write(fname(1:80),'(a)') ' '
./pkg/autodiff/active_file_ad.F 457 ADACTIVE_WRITE_XY
      write(fname(1:2),'(a)') adpref
./pkg/autodiff/active_file_ad.F 458 ADACTIVE_WRITE_XY
      write(fname(3:2+il),'(a)') active_var_file(1:il)
./pkg/autodiff/active_file_ad.F 462 ADACTIVE_WRITE_XY
      call ACTIVE_WRITE_RL( fname, adactive_var,
./pkg/autodiff/active_file_ad.F 526 ADACTIVE_WRITE_XYZ
      character*(80) fname
./pkg/autodiff/active_file_ad.F 537 ADACTIVE_WRITE_XYZ
      write(fname(1:80),'(a)') ' '
./pkg/autodiff/active_file_ad.F 541 ADACTIVE_WRITE_XYZ
      write(fname(1:2),'(a)') adpref
./pkg/autodiff/active_file_ad.F 542 ADACTIVE_WRITE_XYZ
      write(fname(3:2+il),'(a)') active_var_file(1:il)
./pkg/autodiff/active_file_ad.F 546 ADACTIVE_WRITE_XYZ
      call ACTIVE_WRITE_RL( fname, adactive_var,
./pkg/autodiff/active_file_ad.F 609 ADACTIVE_WRITE_XZ
      character*(80) fname
./pkg/autodiff/active_file_ad.F 620 ADACTIVE_WRITE_XZ
      write(fname(1:80),'(a)') ' '
./pkg/autodiff/active_file_ad.F 624 ADACTIVE_WRITE_XZ
      write(fname(1:2),'(a)') adpref
./pkg/autodiff/active_file_ad.F 625 ADACTIVE_WRITE_XZ
      write(fname(3:2+il),'(a)') active_var_file(1:il)
./pkg/autodiff/active_file_ad.F 629 ADACTIVE_WRITE_XZ
      call ACTIVE_WRITE_XZ_RL( fname, adactive_var,
./pkg/autodiff/active_file_ad.F 693 ADACTIVE_WRITE_YZ
      character*(80) fname
./pkg/autodiff/active_file_ad.F 704 ADACTIVE_WRITE_YZ
      write(fname(1:80),'(a)') ' '
./pkg/autodiff/active_file_ad.F 708 ADACTIVE_WRITE_YZ
      write(fname(1:2),'(a)') adpref
./pkg/autodiff/active_file_ad.F 709 ADACTIVE_WRITE_YZ
      write(fname(3:2+il),'(a)') active_var_file(1:il)
./pkg/autodiff/active_file_ad.F 713 ADACTIVE_WRITE_YZ
      call ACTIVE_WRITE_YZ_RL( fname, adactive_var,
./pkg/autodiff/active_file_g.F 106 G_ACTIVE_READ_XY
      write(fname(1:80),'(a)') ' '
./pkg/autodiff/active_file_g.F 108 G_ACTIVE_READ_XY
      write(fname(1:2),'(a)') pref
./pkg/autodiff/active_file_g.F 109 G_ACTIVE_READ_XY
      write(fname(3:2+il),'(a)') active_var_file(1:il)
./pkg/autodiff/active_file_g.F 115 G_ACTIVE_READ_XY
      call ACTIVE_READ_RL( fname, g_active_var, doglobalread,
./pkg/autodiff/active_file_g.F 184 G_ACTIVE_READ_XYZ
      character*(80) fname
./pkg/autodiff/active_file_g.F 191 G_ACTIVE_READ_XYZ
      write(fname(1:80),'(a)') ' '
./pkg/autodiff/active_file_g.F 193 G_ACTIVE_READ_XYZ
      write(fname(1:2),'(a)') pref
./pkg/autodiff/active_file_g.F 194 G_ACTIVE_READ_XYZ
      write(fname(3:2+il),'(a)') active_var_file(1:il)
./pkg/autodiff/active_file_g.F 200 G_ACTIVE_READ_XYZ
      call ACTIVE_READ_RL( fname, g_active_var, doglobalread,
./pkg/autodiff/active_file_g.F 270 G_ACTIVE_READ_XZ
      character*(80) fname
./pkg/autodiff/active_file_g.F 277 G_ACTIVE_READ_XZ
      write(fname(1:80),'(a)') ' '
./pkg/autodiff/active_file_g.F 279 G_ACTIVE_READ_XZ
      write(fname(1:2),'(a)') pref
./pkg/autodiff/active_file_g.F 280 G_ACTIVE_READ_XZ
      write(fname(3:2+il),'(a)') active_var_file(1:il)
./pkg/autodiff/active_file_g.F 286 G_ACTIVE_READ_XZ
      call ACTIVE_READ_XZ_RL( fname, g_active_var, doglobalread,
./pkg/autodiff/active_file_g.F 356 G_ACTIVE_READ_YZ
      character*(80) fname
./pkg/autodiff/active_file_g.F 363 G_ACTIVE_READ_YZ
      write(fname(1:80),'(a)') ' '
./pkg/autodiff/active_file_g.F 365 G_ACTIVE_READ_YZ
      write(fname(1:2),'(a)') pref
./pkg/autodiff/active_file_g.F 366 G_ACTIVE_READ_YZ
      write(fname(3:2+il),'(a)') active_var_file(1:il)
./pkg/autodiff/active_file_g.F 372 G_ACTIVE_READ_YZ
      call ACTIVE_READ_YZ_RL( fname, g_active_var, doglobalread,
./pkg/autodiff/active_file_g.F 435 G_ACTIVE_WRITE_XY
      character*(80) fname
./pkg/autodiff/active_file_g.F 443 G_ACTIVE_WRITE_XY
      write(fname(1:80),'(a)') ' '
./pkg/autodiff/active_file_g.F 445 G_ACTIVE_WRITE_XY
      write(fname(1:2),'(a)') pref
./pkg/autodiff/active_file_g.F 446 G_ACTIVE_WRITE_XY
      write(fname(3:2+il),'(a)') active_var_file(1:il)
./pkg/autodiff/active_file_g.F 452 G_ACTIVE_WRITE_XY
      call ACTIVE_WRITE_RL( fname, g_active_var, globalfile,
./pkg/autodiff/active_file_g.F 515 G_ACTIVE_WRITE_XYZ
      character*(80) fname
./pkg/autodiff/active_file_g.F 523 G_ACTIVE_WRITE_XYZ
      write(fname(1:80),'(a)') ' '
./pkg/autodiff/active_file_g.F 525 G_ACTIVE_WRITE_XYZ
      write(fname(1:2),'(a)') pref
./pkg/autodiff/active_file_g.F 526 G_ACTIVE_WRITE_XYZ
      write(fname(3:2+il),'(a)') active_var_file(1:il)
./pkg/autodiff/active_file_g.F 532 G_ACTIVE_WRITE_XYZ
      call ACTIVE_WRITE_RL( fname, g_active_var, globalfile,
./pkg/autodiff/active_file_g.F 595 G_ACTIVE_WRITE_XZ
      character*(80) fname
./pkg/autodiff/active_file_g.F 603 G_ACTIVE_WRITE_XZ
      write(fname(1:80),'(a)') ' '
./pkg/autodiff/active_file_g.F 605 G_ACTIVE_WRITE_XZ
      write(fname(1:2),'(a)') pref
./pkg/autodiff/active_file_g.F 606 G_ACTIVE_WRITE_XZ
      write(fname(3:2+il),'(a)') active_var_file(1:il)
./pkg/autodiff/active_file_g.F 612 G_ACTIVE_WRITE_XZ
      call ACTIVE_WRITE_XZ_RL( fname, g_active_var, globalfile,
./pkg/autodiff/active_file_g.F 675 G_ACTIVE_WRITE_YZ
      character*(80) fname
./pkg/autodiff/active_file_g.F 683 G_ACTIVE_WRITE_YZ
      write(fname(1:80),'(a)') ' '
./pkg/autodiff/active_file_g.F 685 G_ACTIVE_WRITE_YZ
      write(fname(1:2),'(a)') pref
./pkg/autodiff/active_file_g.F 686 G_ACTIVE_WRITE_YZ
      write(fname(3:2+il),'(a)') active_var_file(1:il)
./pkg/autodiff/active_file_g.F 692 G_ACTIVE_WRITE_YZ
      call ACTIVE_WRITE_YZ_RL( fname, g_active_var, globalfile,
./pkg/autodiff/active_file_g.F 99 G_ACTIVE_READ_XY
      character*(80) fname
./pkg/autodiff/active_file_loc_ad.F 100 ADACTIVE_READ_XY_LOC
      character*(80) fname
./pkg/autodiff/active_file_loc_ad.F 110 ADACTIVE_READ_XY_LOC
      write(fname(1:80),'(a)') ' '
./pkg/autodiff/active_file_loc_ad.F 114 ADACTIVE_READ_XY_LOC
      write(fname(1:2),'(a)') adpref
./pkg/autodiff/active_file_loc_ad.F 115 ADACTIVE_READ_XY_LOC
      write(fname(3:2+il),'(a)') active_var_file(1:il)
./pkg/autodiff/active_file_loc_ad.F 117 ADACTIVE_READ_XY_LOC
      call ACTIVE_READ_RL_LOC( fname, adactive_var,
./pkg/autodiff/active_file_loc_ad.F 187 ADACTIVE_READ_XYZ_LOC
      character*(80) fname
./pkg/autodiff/active_file_loc_ad.F 197 ADACTIVE_READ_XYZ_LOC
      write(fname(1:80),'(a)') ' '
./pkg/autodiff/active_file_loc_ad.F 201 ADACTIVE_READ_XYZ_LOC
      write(fname(1:2),'(a)') adpref
./pkg/autodiff/active_file_loc_ad.F 202 ADACTIVE_READ_XYZ_LOC
      write(fname(3:2+il),'(a)') active_var_file(1:il)
./pkg/autodiff/active_file_loc_ad.F 204 ADACTIVE_READ_XYZ_LOC
      call ACTIVE_READ_RL_LOC( fname, adactive_var,
./pkg/autodiff/active_file_loc_ad.F 274 ADACTIVE_READ_XZ_LOC
      character*(80) fname
./pkg/autodiff/active_file_loc_ad.F 284 ADACTIVE_READ_XZ_LOC
      write(fname(1:80),'(a)') ' '
./pkg/autodiff/active_file_loc_ad.F 288 ADACTIVE_READ_XZ_LOC
      write(fname(1:2),'(a)') adpref
./pkg/autodiff/active_file_loc_ad.F 289 ADACTIVE_READ_XZ_LOC
      write(fname(3:2+il),'(a)') active_var_file(1:il)
./pkg/autodiff/active_file_loc_ad.F 291 ADACTIVE_READ_XZ_LOC
      call ACTIVE_READ_XZ_RL_LOC( fname, adactive_var,
./pkg/autodiff/active_file_loc_ad.F 361 ADACTIVE_READ_YZ_LOC
      character*(80) fname
./pkg/autodiff/active_file_loc_ad.F 371 ADACTIVE_READ_YZ_LOC
      write(fname(1:80),'(a)') ' '
./pkg/autodiff/active_file_loc_ad.F 375 ADACTIVE_READ_YZ_LOC
      write(fname(1:2),'(a)') adpref
./pkg/autodiff/active_file_loc_ad.F 376 ADACTIVE_READ_YZ_LOC
      write(fname(3:2+il),'(a)') active_var_file(1:il)
./pkg/autodiff/active_file_loc_ad.F 378 ADACTIVE_READ_YZ_LOC
      call ACTIVE_READ_YZ_RL_LOC( fname, adactive_var,
./pkg/autodiff/active_file_loc_ad.F 441 ADACTIVE_WRITE_XY_LOC
      character*(80) fname
./pkg/autodiff/active_file_loc_ad.F 452 ADACTIVE_WRITE_XY_LOC
      write(fname(1:80),'(a)') ' '
./pkg/autodiff/active_file_loc_ad.F 456 ADACTIVE_WRITE_XY_LOC
      write(fname(1:2),'(a)') adpref
./pkg/autodiff/active_file_loc_ad.F 457 ADACTIVE_WRITE_XY_LOC
      write(fname(3:2+il),'(a)') active_var_file(1:il)
./pkg/autodiff/active_file_loc_ad.F 461 ADACTIVE_WRITE_XY_LOC
      call ACTIVE_WRITE_RL_LOC( fname, adactive_var,
./pkg/autodiff/active_file_loc_ad.F 524 ADACTIVE_WRITE_XYZ_LOC
      character*(80) fname
./pkg/autodiff/active_file_loc_ad.F 535 ADACTIVE_WRITE_XYZ_LOC
      write(fname(1:80),'(a)') ' '
./pkg/autodiff/active_file_loc_ad.F 539 ADACTIVE_WRITE_XYZ_LOC
      write(fname(1:2),'(a)') adpref
./pkg/autodiff/active_file_loc_ad.F 540 ADACTIVE_WRITE_XYZ_LOC
      write(fname(3:2+il),'(a)') active_var_file(1:il)
./pkg/autodiff/active_file_loc_ad.F 544 ADACTIVE_WRITE_XYZ_LOC
      call ACTIVE_WRITE_RL_LOC( fname, adactive_var,
./pkg/autodiff/active_file_loc_ad.F 607 ADACTIVE_WRITE_XZ_LOC
      character*(80) fname
./pkg/autodiff/active_file_loc_ad.F 618 ADACTIVE_WRITE_XZ_LOC
      write(fname(1:80),'(a)') ' '
./pkg/autodiff/active_file_loc_ad.F 622 ADACTIVE_WRITE_XZ_LOC
      write(fname(1:2),'(a)') adpref
./pkg/autodiff/active_file_loc_ad.F 623 ADACTIVE_WRITE_XZ_LOC
      write(fname(3:2+il),'(a)') active_var_file(1:il)
./pkg/autodiff/active_file_loc_ad.F 627 ADACTIVE_WRITE_XZ_LOC
      call ACTIVE_WRITE_XZ_RL_LOC( fname, adactive_var,
./pkg/autodiff/active_file_loc_ad.F 690 ADACTIVE_WRITE_YZ_LOC
      character*(80) fname
./pkg/autodiff/active_file_loc_ad.F 701 ADACTIVE_WRITE_YZ_LOC
      write(fname(1:80),'(a)') ' '
./pkg/autodiff/active_file_loc_ad.F 705 ADACTIVE_WRITE_YZ_LOC
      write(fname(1:2),'(a)') adpref
./pkg/autodiff/active_file_loc_ad.F 706 ADACTIVE_WRITE_YZ_LOC
      write(fname(3:2+il),'(a)') active_var_file(1:il)
./pkg/autodiff/active_file_loc_ad.F 710 ADACTIVE_WRITE_YZ_LOC
      call ACTIVE_WRITE_YZ_RL_LOC( fname, adactive_var,
./pkg/autodiff/active_file_loc_g.F 105 G_ACTIVE_READ_XY_LOC
      write(fname(1:80),'(a)') ' '
./pkg/autodiff/active_file_loc_g.F 107 G_ACTIVE_READ_XY_LOC
      write(fname(1:2),'(a)') pref
./pkg/autodiff/active_file_loc_g.F 108 G_ACTIVE_READ_XY_LOC
      write(fname(3:2+il),'(a)') active_var_file(1:il)
./pkg/autodiff/active_file_loc_g.F 114 G_ACTIVE_READ_XY_LOC
      call ACTIVE_READ_RL_LOC( fname, g_active_var,
./pkg/autodiff/active_file_loc_g.F 181 G_ACTIVE_READ_XYZ_LOC
      character*(80) fname
./pkg/autodiff/active_file_loc_g.F 188 G_ACTIVE_READ_XYZ_LOC
      write(fname(1:80),'(a)') ' '
./pkg/autodiff/active_file_loc_g.F 190 G_ACTIVE_READ_XYZ_LOC
      write(fname(1:2),'(a)') pref
./pkg/autodiff/active_file_loc_g.F 191 G_ACTIVE_READ_XYZ_LOC
      write(fname(3:2+il),'(a)') active_var_file(1:il)
./pkg/autodiff/active_file_loc_g.F 197 G_ACTIVE_READ_XYZ_LOC
      call ACTIVE_READ_RL_LOC( fname, g_active_var,
./pkg/autodiff/active_file_loc_g.F 265 G_ACTIVE_READ_XZ_LOC
      character*(80) fname
./pkg/autodiff/active_file_loc_g.F 272 G_ACTIVE_READ_XZ_LOC
      write(fname(1:80),'(a)') ' '
./pkg/autodiff/active_file_loc_g.F 274 G_ACTIVE_READ_XZ_LOC
      write(fname(1:2),'(a)') pref
./pkg/autodiff/active_file_loc_g.F 275 G_ACTIVE_READ_XZ_LOC
      write(fname(3:2+il),'(a)') active_var_file(1:il)
./pkg/autodiff/active_file_loc_g.F 281 G_ACTIVE_READ_XZ_LOC
      call ACTIVE_READ_XZ_RL_LOC( fname, g_active_var,
./pkg/autodiff/active_file_loc_g.F 349 G_ACTIVE_READ_YZ_LOC
      character*(80) fname
./pkg/autodiff/active_file_loc_g.F 356 G_ACTIVE_READ_YZ_LOC
      write(fname(1:80),'(a)') ' '
./pkg/autodiff/active_file_loc_g.F 358 G_ACTIVE_READ_YZ_LOC
      write(fname(1:2),'(a)') pref
./pkg/autodiff/active_file_loc_g.F 359 G_ACTIVE_READ_YZ_LOC
      write(fname(3:2+il),'(a)') active_var_file(1:il)
./pkg/autodiff/active_file_loc_g.F 365 G_ACTIVE_READ_YZ_LOC
      call ACTIVE_READ_YZ_RL_LOC( fname, g_active_var,
./pkg/autodiff/active_file_loc_g.F 426 G_ACTIVE_WRITE_XY_LOC
      character*(80) fname
./pkg/autodiff/active_file_loc_g.F 434 G_ACTIVE_WRITE_XY_LOC
      write(fname(1:80),'(a)') ' '
./pkg/autodiff/active_file_loc_g.F 436 G_ACTIVE_WRITE_XY_LOC
      write(fname(1:2),'(a)') pref
./pkg/autodiff/active_file_loc_g.F 437 G_ACTIVE_WRITE_XY_LOC
      write(fname(3:2+il),'(a)') active_var_file(1:il)
./pkg/autodiff/active_file_loc_g.F 443 G_ACTIVE_WRITE_XY_LOC
      call ACTIVE_WRITE_RL_LOC( fname, g_active_var,
./pkg/autodiff/active_file_loc_g.F 504 G_ACTIVE_WRITE_XYZ_LOC
      character*(80) fname
./pkg/autodiff/active_file_loc_g.F 512 G_ACTIVE_WRITE_XYZ_LOC
      write(fname(1:80),'(a)') ' '
./pkg/autodiff/active_file_loc_g.F 514 G_ACTIVE_WRITE_XYZ_LOC
      write(fname(1:2),'(a)') pref
./pkg/autodiff/active_file_loc_g.F 515 G_ACTIVE_WRITE_XYZ_LOC
      write(fname(3:2+il),'(a)') active_var_file(1:il)
./pkg/autodiff/active_file_loc_g.F 521 G_ACTIVE_WRITE_XYZ_LOC
      call ACTIVE_WRITE_RL_LOC( fname, g_active_var,
./pkg/autodiff/active_file_loc_g.F 582 G_ACTIVE_WRITE_XZ_LOC
      character*(80) fname
./pkg/autodiff/active_file_loc_g.F 590 G_ACTIVE_WRITE_XZ_LOC
      write(fname(1:80),'(a)') ' '
./pkg/autodiff/active_file_loc_g.F 592 G_ACTIVE_WRITE_XZ_LOC
      write(fname(1:2),'(a)') pref
./pkg/autodiff/active_file_loc_g.F 593 G_ACTIVE_WRITE_XZ_LOC
      write(fname(3:2+il),'(a)') active_var_file(1:il)
./pkg/autodiff/active_file_loc_g.F 599 G_ACTIVE_WRITE_XZ_LOC
      call ACTIVE_WRITE_XZ_RL_LOC( fname, g_active_var,
./pkg/autodiff/active_file_loc_g.F 660 G_ACTIVE_WRITE_YZ_LOC
      character*(80) fname
./pkg/autodiff/active_file_loc_g.F 668 G_ACTIVE_WRITE_YZ_LOC
      write(fname(1:80),'(a)') ' '
./pkg/autodiff/active_file_loc_g.F 670 G_ACTIVE_WRITE_YZ_LOC
      write(fname(1:2),'(a)') pref
./pkg/autodiff/active_file_loc_g.F 671 G_ACTIVE_WRITE_YZ_LOC
      write(fname(3:2+il),'(a)') active_var_file(1:il)
./pkg/autodiff/active_file_loc_g.F 677 G_ACTIVE_WRITE_YZ_LOC
      call ACTIVE_WRITE_YZ_RL_LOC( fname, g_active_var,
./pkg/autodiff/active_file_loc_g.F 98 G_ACTIVE_READ_XY_LOC
      character*(80) fname
./pkg/autodiff/adread_adwrite.F 128 ADREAD
      character*(MAX_LEN_FNAM) fname
./pkg/autodiff/adread_adwrite.F 156 ADREAD
      write(fname(1:MAX_LEN_FNAM),'(a)') ' '
./pkg/autodiff/adread_adwrite.F 159 ADREAD
      write(fname(1:lenLoc),'(a,a)') adTapeDir(1:jl),name(1:il)
./pkg/autodiff/adread_adwrite.F 163 ADREAD
      write(fname(1:lenLoc),'(a,a,a)') 
./pkg/autodiff/adread_adwrite.F 174 ADREAD
      call MDS_READ_WHALOS(fname,lenLoc,sizetmp,
./pkg/autodiff/adread_adwrite.F 211 ADREAD
       call MDSREADVECTOR( fname, sizetmp, 'RL',
./pkg/autodiff/adread_adwrite.F 295 ADWRITE
      character*(MAX_LEN_FNAM) fname
./pkg/autodiff/adread_adwrite.F 324 ADWRITE
      write(fname(1:MAX_LEN_FNAM),'(a)') ' '
./pkg/autodiff/adread_adwrite.F 327 ADWRITE
      write(fname(1:lenLoc),'(a,a)') adTapeDir(1:jl),name(1:il)
./pkg/autodiff/adread_adwrite.F 331 ADWRITE
      write(fname(1:lenLoc),'(a,a,a)') 
./pkg/autodiff/adread_adwrite.F 338 ADWRITE
     &      sizetmp, ', ', fname(1:lenLoc)
./pkg/autodiff/adread_adwrite.F 350 ADWRITE
       call MDS_WRITE_WHALOS(fname,lenLoc,sizetmp,
./pkg/autodiff/adread_adwrite.F 354 ADWRITE
     &      'ADWRITE: ',fname(1:lenLoc),'was not read from tape.'
./pkg/autodiff/adread_adwrite.F 374 ADWRITE
       call MDSWRITEVECTOR( fname, sizetmp, globalfile, 'RL',
./pkg/ctrl/ctrl_init_ctrlvar.F 101 CTRL_INIT_CTRLVAR
     &           call CTRL_SET_GLOBFLD_YZ( fname(1), ivarindex, mythid )
./pkg/ctrl/ctrl_init_ctrlvar.F 57 CTRL_INIT_CTRLVAR
      character*( 80) fname(2)
./pkg/ctrl/ctrl_init_ctrlvar.F 74 CTRL_INIT_CTRLVAR
      call CTRL_SET_FNAME( xx_fname, fname, mythid )
./pkg/ctrl/ctrl_init_ctrlvar.F 84 CTRL_INIT_CTRLVAR
     &           call CTRL_SET_GLOBFLD_XYZ( fname(2), ivarindex, mythid)
./pkg/ctrl/ctrl_init_ctrlvar.F 86 CTRL_INIT_CTRLVAR
     &           call CTRL_SET_GLOBFLD_XYZ( fname(1), ivarindex, mythid)
./pkg/ctrl/ctrl_init_ctrlvar.F 89 CTRL_INIT_CTRLVAR
     &           call CTRL_SET_GLOBFLD_XY( fname(2), ivarindex, mythid)
./pkg/ctrl/ctrl_init_ctrlvar.F 91 CTRL_INIT_CTRLVAR
     &           call CTRL_SET_GLOBFLD_XY( fname(1), ivarindex, mythid )
./pkg/ctrl/ctrl_init_ctrlvar.F 94 CTRL_INIT_CTRLVAR
     &           call CTRL_SET_GLOBFLD_XZ( fname(2), ivarindex, mythid)
./pkg/ctrl/ctrl_init_ctrlvar.F 96 CTRL_INIT_CTRLVAR
     &           call CTRL_SET_GLOBFLD_XZ( fname(1), ivarindex, mythid )
./pkg/ctrl/ctrl_init_ctrlvar.F 99 CTRL_INIT_CTRLVAR
     &           call CTRL_SET_GLOBFLD_YZ( fname(2), ivarindex, mythid)
./pkg/ctrl/ctrl_mask_set_xz.F 127 CTRL_MASK_SET_XZ
      write(fname(1:80),'(80a)') ' '
./pkg/ctrl/ctrl_mask_set_xz.F 128 CTRL_MASK_SET_XZ
      write(fname(1:80),'(a)') ymaskobcs
./pkg/ctrl/ctrl_mask_set_xz.F 140 CTRL_MASK_SET_XZ
        call ACTIVE_WRITE_XZ( fname, gg, iobcs, 0, mythid, dummy )
./pkg/ctrl/ctrl_mask_set_xz.F 64 CTRL_MASK_SET_XZ
      character*( 80)   fname
./pkg/ctrl/ctrl_mask_set_yz.F 128 CTRL_MASK_SET_YZ
      write(fname(1:80),'(80a)') ' '
./pkg/ctrl/ctrl_mask_set_yz.F 129 CTRL_MASK_SET_YZ
      write(fname(1:80),'(a)') ymaskobcs
./pkg/ctrl/ctrl_mask_set_yz.F 141 CTRL_MASK_SET_YZ
        call ACTIVE_WRITE_YZ( fname, gg, iobcs, 0, mythid, dummy)
./pkg/ctrl/ctrl_mask_set_yz.F 64 CTRL_MASK_SET_YZ
      character*( 80)   fname
./pkg/ctrl/ctrl_set_fname.F 35 CTRL_SET_FNAME
      character*( 80)   fname(2)
./pkg/ctrl/ctrl_set_fname.F 55 CTRL_SET_FNAME
      write(fname(1)(1:80),'(80a)') ' '
./pkg/ctrl/ctrl_set_fname.F 56 CTRL_SET_FNAME
      write(fname(2)(1:80),'(80a)') ' '
./pkg/ctrl/ctrl_set_fname.F 59 CTRL_SET_FNAME
         write(fname(1)(1:80),'(2a,i10.10)')
./pkg/ctrl/ctrl_set_fname.F 61 CTRL_SET_FNAME
         write(fname(2)(1:80),'(3a,i10.10)')
./pkg/ctrl/ctrl_set_fname.F 7 CTRL_SET_FNAME
      subroutine CTRL_SET_FNAME( xx_fname, fname, mythid )
./pkg/ctrl/ctrl_set_globfld_xy.F 107 CTRL_SET_GLOBFLD_XY
         call MDSWRITEFIELD( fname, ctrlprec, .FALSE., 'RL',
./pkg/ctrl/ctrl_set_globfld_xy.F 39 CTRL_SET_GLOBFLD_XY
      character*( 80)   fname
./pkg/ctrl/ctrl_set_globfld_xy.F 8 CTRL_SET_GLOBFLD_XY
     I     fname, ivartype, mythid )
./pkg/ctrl/ctrl_set_globfld_xy.F 98 CTRL_SET_GLOBFLD_XY
         call MDSWRITEFIELD( fname, ctrlprec, .FALSE., 'RL',
./pkg/ctrl/ctrl_set_globfld_xyz.F 34 CTRL_SET_GLOBFLD_XYZ
      character*( 80)   fname
./pkg/ctrl/ctrl_set_globfld_xyz.F 81 CTRL_SET_GLOBFLD_XYZ
         call MDSWRITEFIELD( fname, ctrlprec,.FALSE., 'RL',
./pkg/ctrl/ctrl_set_globfld_xyz.F 8 CTRL_SET_GLOBFLD_XYZ
     I     fname, ivartype, mythid )
./pkg/ctrl/ctrl_set_globfld_xz.F 105 CTRL_SET_GLOBFLD_XZ
       call MDSWRITEFIELD( fname, ctrlprec,.FALSE., 'RL',
./pkg/ctrl/ctrl_set_globfld_xz.F 114 CTRL_SET_GLOBFLD_XZ
       call MDSWRITEFIELDXZ( fname, ctrlprec,.FALSE., 'RL',
./pkg/ctrl/ctrl_set_globfld_xz.F 39 CTRL_SET_GLOBFLD_XZ
      character*( 80)   fname
./pkg/ctrl/ctrl_set_globfld_xz.F 8 CTRL_SET_GLOBFLD_XZ
     I     fname, ivartype, mythid )
./pkg/ctrl/ctrl_set_globfld_yz.F 106 CTRL_SET_GLOBFLD_YZ
       call MDSWRITEFIELD( fname, ctrlprec,.FALSE., 'RL',
./pkg/ctrl/ctrl_set_globfld_yz.F 116 CTRL_SET_GLOBFLD_YZ
       call MDSWRITEFIELDYZ( fname, ctrlprec,.FALSE., 'RL',
./pkg/ctrl/ctrl_set_globfld_yz.F 39 CTRL_SET_GLOBFLD_YZ
      character*( 80)   fname
./pkg/ctrl/ctrl_set_globfld_yz.F 8 CTRL_SET_GLOBFLD_YZ
     I     fname, ivartype, mythid )
./pkg/ctrl/ctrl_set_pack_xy.F 161 CTRL_SET_PACK_XY
         call MDSREADFIELD_3D_GL( fname, ctrlprec, 'RL',
./pkg/ctrl/ctrl_set_pack_xy.F 246 CTRL_SET_PACK_XY
         call MDSREADFIELD_2D_GL( fname, ctrlprec, 'RL',
./pkg/ctrl/ctrl_set_pack_xy.F 388 CTRL_SET_PACK_XY
         il = ilnblnk( fname )
./pkg/ctrl/ctrl_set_pack_xy.F 390 CTRL_SET_PACK_XY
            write(cfile2(1:80),'(2a)') fname(1:il),'.pack_ctrl_adim'
./pkg/ctrl/ctrl_set_pack_xy.F 391 CTRL_SET_PACK_XY
            write(cfile3(1:80),'(2a)') fname(1:il),'.pack_ctrl_dim'
./pkg/ctrl/ctrl_set_pack_xy.F 393 CTRL_SET_PACK_XY
            write(cfile2(1:80),'(2a)') fname(1:il),'.pack_grad_adim'
./pkg/ctrl/ctrl_set_pack_xy.F 394 CTRL_SET_PACK_XY
            write(cfile3(1:80),'(2a)') fname(1:il),'.pack_grad_dim'
./pkg/ctrl/ctrl_set_pack_xy.F 403 CTRL_SET_PACK_XY
      call READ_REC_3D_RL( fname, ctrlprec,
./pkg/ctrl/ctrl_set_pack_xy.F 40 CTRL_SET_PACK_XY
      character*( 80) fname, fnameGlobal
./pkg/ctrl/ctrl_set_pack_xy.F 7 CTRL_SET_PACK_XY
     &     cunit, ivartype, fname, masktype, weighttype,
./pkg/ctrl/ctrl_set_pack_xyz.F 170 CTRL_SET_PACK_XYZ
         call MDSREADFIELD_3D_GL( fname, ctrlprec, 'RL',
./pkg/ctrl/ctrl_set_pack_xyz.F 319 CTRL_SET_PACK_XYZ
         il = ilnblnk( fname )
./pkg/ctrl/ctrl_set_pack_xyz.F 321 CTRL_SET_PACK_XYZ
            write(cfile2(1:80),'(2a)') fname(1:il),'.pack_ctrl_adim'
./pkg/ctrl/ctrl_set_pack_xyz.F 322 CTRL_SET_PACK_XYZ
            write(cfile3(1:80),'(2a)') fname(1:il),'.pack_ctrl_dim'
./pkg/ctrl/ctrl_set_pack_xyz.F 324 CTRL_SET_PACK_XYZ
            write(cfile2(1:80),'(2a)') fname(1:il),'.pack_grad_adim'
./pkg/ctrl/ctrl_set_pack_xyz.F 325 CTRL_SET_PACK_XYZ
            write(cfile3(1:80),'(2a)') fname(1:il),'.pack_grad_dim'
./pkg/ctrl/ctrl_set_pack_xyz.F 334 CTRL_SET_PACK_XYZ
      call READ_REC_3D_RL( fname, ctrlprec,
./pkg/ctrl/ctrl_set_pack_xyz.F 40 CTRL_SET_PACK_XYZ
      character*( 80) fname
./pkg/ctrl/ctrl_set_pack_xyz.F 7 CTRL_SET_PACK_XYZ
     &     cunit, ivartype, fname, masktype, weighttype,
./pkg/ctrl/ctrl_set_pack_xz.F 206 CTRL_SET_PACK_XZ
         call MDSREADFIELD_3D_GL( fname, ctrlprec, 'RL',
./pkg/ctrl/ctrl_set_pack_xz.F 306 CTRL_SET_PACK_XZ
         call MDSREADFIELD_XZ_GL( fname, ctrlprec, 'RL',
./pkg/ctrl/ctrl_set_pack_xz.F 43 CTRL_SET_PACK_XZ
      character*( 80) fname
./pkg/ctrl/ctrl_set_pack_xz.F 7 CTRL_SET_PACK_XZ
     &     cunit, ivartype, fname, masktype,weighttype,
./pkg/ctrl/ctrl_set_pack_yz.F 207 CTRL_SET_PACK_YZ
         call MDSREADFIELD_3D_GL( fname, ctrlprec, 'RL',
./pkg/ctrl/ctrl_set_pack_yz.F 311 CTRL_SET_PACK_YZ
         call MDSREADFIELD_YZ_GL( fname, ctrlprec, 'RL',
./pkg/ctrl/ctrl_set_pack_yz.F 43 CTRL_SET_PACK_YZ
      character*( 80) fname
./pkg/ctrl/ctrl_set_pack_yz.F 7 CTRL_SET_PACK_YZ
     &     cunit, ivartype, fname, masktype, weighttype,
./pkg/ctrl/ctrl_set_unpack_xy.F 263 CTRL_SET_UNPACK_XY
         call MDSWRITEFIELD_3D_GL( fname, ctrlprec, 'RL',
./pkg/ctrl/ctrl_set_unpack_xy.F 371 CTRL_SET_UNPACK_XY
         call MDSWRITEFIELD_2D_GL( fname, ctrlprec, 'RL',
./pkg/ctrl/ctrl_set_unpack_xy.F 41 CTRL_SET_UNPACK_XY
      character*( 80)   fname, fnameGlobal
./pkg/ctrl/ctrl_set_unpack_xy.F 435 CTRL_SET_UNPACK_XY
         il = ilnblnk( fname )
./pkg/ctrl/ctrl_set_unpack_xy.F 437 CTRL_SET_UNPACK_XY
            write(cfile2(1:80),'(2a)') fname(1:il),'.unpack_ctrl_adim'
./pkg/ctrl/ctrl_set_unpack_xy.F 438 CTRL_SET_UNPACK_XY
            write(cfile3(1:80),'(2a)') fname(1:il),'.unpack_ctrl_dim'
./pkg/ctrl/ctrl_set_unpack_xy.F 440 CTRL_SET_UNPACK_XY
            write(cfile2(1:80),'(2a)') fname(1:il),'.unpack_grad_adim'
./pkg/ctrl/ctrl_set_unpack_xy.F 441 CTRL_SET_UNPACK_XY
            write(cfile3(1:80),'(2a)') fname(1:il),'.unpack_grad_dim'
./pkg/ctrl/ctrl_set_unpack_xy.F 574 CTRL_SET_UNPACK_XY
      call WRITE_REC_3D_RL( fname, ctrlprec,
./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 279 CTRL_SET_UNPACK_XYZ
         call MDSWRITEFIELD_3D_GL( fname, ctrlprec, 'RL',
./pkg/ctrl/ctrl_set_unpack_xyz.F 347 CTRL_SET_UNPACK_XYZ
         il = ilnblnk( fname )
./pkg/ctrl/ctrl_set_unpack_xyz.F 349 CTRL_SET_UNPACK_XYZ
            write(cfile2(1:80),'(2a)') fname(1:il),'.unpack_ctrl_adim'
./pkg/ctrl/ctrl_set_unpack_xyz.F 350 CTRL_SET_UNPACK_XYZ
            write(cfile3(1:80),'(2a)') fname(1:il),'.unpack_ctrl_dim'
./pkg/ctrl/ctrl_set_unpack_xyz.F 352 CTRL_SET_UNPACK_XYZ
            write(cfile2(1:80),'(2a)') fname(1:il),'.unpack_grad_adim'
./pkg/ctrl/ctrl_set_unpack_xyz.F 353 CTRL_SET_UNPACK_XYZ
            write(cfile3(1:80),'(2a)') fname(1:il),'.unpack_grad_dim'
./pkg/ctrl/ctrl_set_unpack_xyz.F 40 CTRL_SET_UNPACK_XYZ
      character*( 80)   fname
./pkg/ctrl/ctrl_set_unpack_xyz.F 495 CTRL_SET_UNPACK_XYZ
      call WRITE_REC_3D_RL( fname, ctrlprec,
./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 290 CTRL_SET_UNPACK_XZ
         call MDSWRITEFIELD_3D_GL( fname, ctrlprec, 'RL',
./pkg/ctrl/ctrl_set_unpack_xz.F 374 CTRL_SET_UNPACK_XZ
         call MDSWRITEFIELD_XZ_GL( fname, ctrlprec, 'RL',
./pkg/ctrl/ctrl_set_unpack_xz.F 42 CTRL_SET_UNPACK_XZ
      character*( 80)   fname
./pkg/ctrl/ctrl_set_unpack_xz.F 7 CTRL_SET_UNPACK_XZ
     &     cunit, ivartype, fname, masktype, weighttype,
./pkg/ctrl/ctrl_set_unpack_yz.F 290 CTRL_SET_UNPACK_YZ
         call MDSWRITEFIELD_3D_GL( fname, ctrlprec, 'RL',
./pkg/ctrl/ctrl_set_unpack_yz.F 366 CTRL_SET_UNPACK_YZ
         call MDSWRITEFIELD_YZ_GL( fname, ctrlprec, 'RL',
./pkg/ctrl/ctrl_set_unpack_yz.F 42 CTRL_SET_UNPACK_YZ
      character*( 80)   fname
./pkg/ctrl/ctrl_set_unpack_yz.F 7 CTRL_SET_UNPACK_YZ
     &     cunit, ivartype, fname, masktype, weighttype,
./pkg/ecco/cost_averagesgeneric.F 115 COST_AVERAGESGENERIC
        write(fname(1:128),'(80a)') ' '
./pkg/ecco/cost_averagesgeneric.F 117 COST_AVERAGESGENERIC
        write(fname,'(2a,i10.10)')
./pkg/ecco/cost_averagesgeneric.F 120 COST_AVERAGESGENERIC
           call ACTIVE_WRITE_XY( fname, localbar, locrec, optimcycle,
./pkg/ecco/cost_averagesgeneric.F 123 COST_AVERAGESGENERIC
           call ACTIVE_WRITE_XYZ( fname, localbar, locrec, optimcycle,
./pkg/ecco/cost_averagesgeneric.F 66 COST_AVERAGESGENERIC
      character*(128) fname
./pkg/ecco/cost_bp.F 113 COST_BP
      write(fname(1:80),'(80a)') ' '
./pkg/ecco/cost_bp.F 115 COST_BP
      write(fname(1:80),'(2a,i10.10)')
./pkg/ecco/cost_bp.F 125 COST_BP
        call ACTIVE_READ_XY( fname, bpbar, irec, doglobalread,
./pkg/ecco/cost_bp.F 172 COST_BP
        call ACTIVE_READ_XY( fname, bpbar, irec, doglobalread,
./pkg/ecco/cost_bp.F 72 COST_BP
      character*(80) fname
./pkg/ecco/cost_gencost_sshv4.F 136 COST_GENCOST_SSHV4
      character*(80) fname
./pkg/ecco/cost_gencost_sshv4.F 174 COST_GENCOST_SSHV4
      write(fname(1:80),'(80a)') ' '
./pkg/ecco/cost_gencost_sshv4.F 176 COST_GENCOST_SSHV4
      write(fname(1:80),'(2a,i10.10)')
./pkg/ecco/cost_gencost_sshv4.F 358 COST_GENCOST_SSHV4
        call ACTIVE_READ_XY( fname, psbar, irec, doglobalread,
./pkg/ecco/cost_gencost_sshv4.F 662 COST_GENCOST_SSHV4
        call ACTIVE_READ_XY( fname, psbar, krec, doglobalread,
./pkg/ecco/cost_gencost_sshv4.F 853 COST_GENCOST_SSHV4
        call ACTIVE_READ_XY( fname, psbar, irec, doglobalread,
./pkg/ecco/cost_gencost_sstv4.F 126 COST_GENCOST_SSTV4
      write(fname(1:80),'(80a)') ' '
./pkg/ecco/cost_gencost_sstv4.F 128 COST_GENCOST_SSTV4
      write(fname(1:80),'(2a,i10.10)')
./pkg/ecco/cost_gencost_sstv4.F 164 COST_GENCOST_SSTV4
             call ACTIVE_READ_XY( fname, sstbar, krec, doglobalread,
./pkg/ecco/cost_gencost_sstv4.F 302 COST_GENCOST_SSTV4
        call ACTIVE_READ_XY( fname, sstbar, irec, doglobalread,
./pkg/ecco/cost_gencost_sstv4.F 81 COST_GENCOST_SSTV4
      character*(80) fname
./pkg/ecco/cost_ssh.F 116 COST_SSH
      write(fname(1:80),'(80a)') ' '
./pkg/ecco/cost_ssh.F 118 COST_SSH
      write(fname(1:80),'(2a,i10.10)')
./pkg/ecco/cost_ssh.F 142 COST_SSH
        call ACTIVE_READ_XY( fname, psbar, irec, doglobalread,
./pkg/ecco/cost_ssh.F 239 COST_SSH
        call ACTIVE_READ_XY( fname, psbar, irec, doglobalread,
./pkg/ecco/cost_ssh.F 82 COST_SSH
      character*(80) fname
./pkg/ecco/cost_ssh_new.F 119 COST_SSH_NEW
      write(fname(1:80),'(80a)') ' '
./pkg/ecco/cost_ssh_new.F 121 COST_SSH_NEW
      write(fname(1:80),'(2a,i10.10)')
./pkg/ecco/cost_ssh_new.F 157 COST_SSH_NEW
        call ACTIVE_READ_XY( fname, psbar, irec, doglobalread,
./pkg/ecco/cost_ssh_new.F 324 COST_SSH_NEW
        call ACTIVE_READ_XY( fname, psbar, irec, doglobalread,
./pkg/ecco/cost_ssh_new.F 93 COST_SSH_NEW
      character*(80) fname
./pkg/ecco/cost_sshv4.F 130 COST_SSHV4
      character*(80) fname
./pkg/ecco/cost_sshv4.F 154 COST_SSHV4
      write(fname(1:80),'(80a)') ' '
./pkg/ecco/cost_sshv4.F 156 COST_SSHV4
      write(fname(1:80),'(2a,i10.10)')
./pkg/ecco/cost_sshv4.F 338 COST_SSHV4
        call ACTIVE_READ_XY( fname, psbar, irec, doglobalread,
./pkg/ecco/cost_sshv4.F 641 COST_SSHV4
        call ACTIVE_READ_XY( fname, psbar, krec, doglobalread,
./pkg/ecco/cost_sshv4.F 832 COST_SSHV4
        call ACTIVE_READ_XY( fname, psbar, irec, doglobalread,