Symbol Description Uses
irec record number to be written. 944


File Line number Procedure Code
./pkg/fizhi/fizhi_readwrite_vegtiles.F 170 FIZHI_WRITE_VEGTILES 
        irec = 4 + 0*Nrphys + k
./pkg/fizhi/fizhi_readwrite_vegtiles.F 171 FIZHI_WRITE_VEGTILES 
        write(iunit,rec=irec) r8seg
./pkg/fizhi/fizhi_readwrite_vegtiles.F 181 FIZHI_WRITE_VEGTILES 
        irec = 4 + 1*Nrphys + k
./pkg/fizhi/fizhi_readwrite_vegtiles.F 182 FIZHI_WRITE_VEGTILES 
        write(iunit,rec=irec) r8seg
./pkg/fizhi/fizhi_readwrite_vegtiles.F 192 FIZHI_WRITE_VEGTILES 
        irec = 4 + 2*Nrphys + k
./pkg/fizhi/fizhi_readwrite_vegtiles.F 193 FIZHI_WRITE_VEGTILES 
        write(iunit,rec=irec) r8seg
./pkg/fizhi/fizhi_readwrite_vegtiles.F 203 FIZHI_WRITE_VEGTILES 
       irec = 4 + 3*Nrphys + 1
./pkg/fizhi/fizhi_readwrite_vegtiles.F 204 FIZHI_WRITE_VEGTILES 
       write(iunit,rec=irec) r8seg
./pkg/fizhi/fizhi_readwrite_vegtiles.F 212 FIZHI_WRITE_VEGTILES 
       irec = 4 + 3*Nrphys + 2
./pkg/fizhi/fizhi_readwrite_vegtiles.F 213 FIZHI_WRITE_VEGTILES 
       write(iunit,rec=irec) r8seg
./pkg/fizhi/fizhi_readwrite_vegtiles.F 221 FIZHI_WRITE_VEGTILES 
       irec = 4 + 3*Nrphys + 3
./pkg/fizhi/fizhi_readwrite_vegtiles.F 222 FIZHI_WRITE_VEGTILES 
       write(iunit,rec=irec) r8seg
./pkg/fizhi/fizhi_readwrite_vegtiles.F 230 FIZHI_WRITE_VEGTILES 
       irec = 4 + 3*Nrphys + 4
./pkg/fizhi/fizhi_readwrite_vegtiles.F 231 FIZHI_WRITE_VEGTILES 
       write(iunit,rec=irec) r8seg
./pkg/fizhi/fizhi_readwrite_vegtiles.F 239 FIZHI_WRITE_VEGTILES 
       irec = 4 + 3*Nrphys + 5
./pkg/fizhi/fizhi_readwrite_vegtiles.F 240 FIZHI_WRITE_VEGTILES 
       write(iunit,rec=irec) r8seg
./pkg/fizhi/fizhi_readwrite_vegtiles.F 248 FIZHI_WRITE_VEGTILES 
       irec = 4 + 3*Nrphys + 6
./pkg/fizhi/fizhi_readwrite_vegtiles.F 249 FIZHI_WRITE_VEGTILES 
       write(iunit,rec=irec) r8seg
./pkg/fizhi/fizhi_readwrite_vegtiles.F 257 FIZHI_WRITE_VEGTILES 
       irec = 4 + 3*Nrphys + 7
./pkg/fizhi/fizhi_readwrite_vegtiles.F 258 FIZHI_WRITE_VEGTILES 
       write(iunit,rec=irec) r8seg
./pkg/fizhi/fizhi_readwrite_vegtiles.F 266 FIZHI_WRITE_VEGTILES 
       irec = 4 + 3*Nrphys + 8
./pkg/fizhi/fizhi_readwrite_vegtiles.F 267 FIZHI_WRITE_VEGTILES 
       write(iunit,rec=irec) r8seg
./pkg/fizhi/fizhi_readwrite_vegtiles.F 323 FIZHI_READ_VEGTILES 
      integer bi,bj,irec,fileprec
./pkg/fizhi/fizhi_readwrite_vegtiles.F 385 FIZHI_READ_VEGTILES 
       irec = 0
./pkg/fizhi/fizhi_readwrite_vegtiles.F 421 FIZHI_READ_VEGTILES 
        irec = 4 + 0*Nrphys + k
./pkg/fizhi/fizhi_readwrite_vegtiles.F 422 FIZHI_READ_VEGTILES 
        read(iunit,rec=irec) r8seg
./pkg/fizhi/fizhi_readwrite_vegtiles.F 432 FIZHI_READ_VEGTILES 
        irec = 4 + 1*Nrphys + k
./pkg/fizhi/fizhi_readwrite_vegtiles.F 433 FIZHI_READ_VEGTILES 
        read(iunit,rec=irec) r8seg
./pkg/fizhi/fizhi_readwrite_vegtiles.F 443 FIZHI_READ_VEGTILES 
        irec = 4 + 2*Nrphys + k
./pkg/fizhi/fizhi_readwrite_vegtiles.F 444 FIZHI_READ_VEGTILES 
        read(iunit,rec=irec) r8seg
./pkg/fizhi/fizhi_readwrite_vegtiles.F 454 FIZHI_READ_VEGTILES 
       irec = 4 + 3*Nrphys + 1
./pkg/fizhi/fizhi_readwrite_vegtiles.F 455 FIZHI_READ_VEGTILES 
       read(iunit,rec=irec) r8seg
./pkg/fizhi/fizhi_readwrite_vegtiles.F 463 FIZHI_READ_VEGTILES 
       irec = 4 + 3*Nrphys + 2
./pkg/fizhi/fizhi_readwrite_vegtiles.F 464 FIZHI_READ_VEGTILES 
       read(iunit,rec=irec) r8seg
./pkg/fizhi/fizhi_readwrite_vegtiles.F 472 FIZHI_READ_VEGTILES 
       irec = 4 + 3*Nrphys + 3
./pkg/fizhi/fizhi_readwrite_vegtiles.F 473 FIZHI_READ_VEGTILES 
       read(iunit,rec=irec) r8seg
./pkg/fizhi/fizhi_readwrite_vegtiles.F 481 FIZHI_READ_VEGTILES 
       irec = 4 + 3*Nrphys + 4
./pkg/fizhi/fizhi_readwrite_vegtiles.F 482 FIZHI_READ_VEGTILES 
       read(iunit,rec=irec) r8seg
./pkg/fizhi/fizhi_readwrite_vegtiles.F 490 FIZHI_READ_VEGTILES 
       irec = 4 + 3*Nrphys + 5
./pkg/fizhi/fizhi_readwrite_vegtiles.F 491 FIZHI_READ_VEGTILES 
       read(iunit,rec=irec) r8seg
./pkg/fizhi/fizhi_readwrite_vegtiles.F 499 FIZHI_READ_VEGTILES 
       irec = 4 + 3*Nrphys + 6
./pkg/fizhi/fizhi_readwrite_vegtiles.F 500 FIZHI_READ_VEGTILES 
       read(iunit,rec=irec) r8seg
./pkg/fizhi/fizhi_readwrite_vegtiles.F 508 FIZHI_READ_VEGTILES 
       irec = 4 + 3*Nrphys + 7
./pkg/fizhi/fizhi_readwrite_vegtiles.F 509 FIZHI_READ_VEGTILES 
       read(iunit,rec=irec) r8seg
./pkg/fizhi/fizhi_readwrite_vegtiles.F 517 FIZHI_READ_VEGTILES 
       irec = 4 + 3*Nrphys + 8
./pkg/fizhi/fizhi_readwrite_vegtiles.F 518 FIZHI_READ_VEGTILES 
       read(iunit,rec=irec) r8seg
./pkg/fizhi/fizhi_readwrite_vegtiles.F 51 FIZHI_WRITE_VEGTILES 
      integer bi,bj,irec,fileprec
./pkg/grdchk/grdchk_get_obcs_mask.F 42 GRDCHK_GET_OBCS_MASK 
      integer irec,iobcs
./pkg/grdchk/grdchk_get_position.F 125 GRDCHK_GET_POSITION 
        do irec = irecwrk, ncvarrecs(grdchkvarindex)
./pkg/grdchk/grdchk_get_position.F 126 GRDCHK_GET_POSITION 
         iobcs = MOD((irec-1),nobcsmax) + 1
./pkg/grdchk/grdchk_get_position.F 138 GRDCHK_GET_POSITION 
               icvrec = irec
./pkg/grdchk/grdchk_get_position.F 208 GRDCHK_GET_POSITION 
     &                 irec  .EQ. icvrec ) then
./pkg/grdchk/grdchk_get_position.F 65 GRDCHK_GET_POSITION 
      integer irec, irecwrk
./pkg/grdchk/grdchk_init.F 44 GRDCHK_INIT 
      integer irec
./pkg/grdchk/grdchk_loc.F 152 GRDCHK_LOC 
        do irec = irecwrk, ncvarrecs(grdchkvarindex)
./pkg/grdchk/grdchk_loc.F 154 GRDCHK_LOC 
         iobcs = MOD((irec-1),nobcsmax) + 1
./pkg/grdchk/grdchk_loc.F 182 GRDCHK_LOC 
               icvrec = irec
./pkg/grdchk/grdchk_loc.F 80 GRDCHK_LOC 
      integer irec, irecwrk
./pkg/mdsio/mdsio_facef_read.F 122 MDS_FACEF_READ_RS 
        READ(dUnit, rec=irec) ioBuf4
./pkg/mdsio/mdsio_facef_read.F 132 MDS_FACEF_READ_RS 
        READ(dUnit, rec=irec) ioBuf8
./pkg/mdsio/mdsio_facef_read.F 17 MDS_FACEF_READ_RS 
     I                    fName, fPrec, irec,
./pkg/mdsio/mdsio_facef_read.F 43 MDS_FACEF_READ_RS 
      INTEGER irec
./pkg/mdsio/mdsio_facef_read.F 84 MDS_FACEF_READ_RS 
      jBase=(irec-1)*(dNy+1)
./pkg/mdsio/mdsio_gl.F 1058 MDSREADFIELD_2D_GL 
            irec=1 + INT(iG/sNx) + nSx*nPx*(jG+j-1) + nSx*nPx*Ny*(k-1)
./pkg/mdsio/mdsio_gl.F 1063 MDSREADFIELD_2D_GL 
            irec=j + sNy*(k-1) + sNy*nLocz*(irecord-1)
./pkg/mdsio/mdsio_gl.F 1066 MDSREADFIELD_2D_GL 
            read(dUnit,rec=irec) r4seg
./pkg/mdsio/mdsio_gl.F 1083 MDSREADFIELD_2D_GL 
            read(dUnit,rec=irec) r8seg
./pkg/mdsio/mdsio_gl.F 1144 MDSREADFIELD_2D_GL 
          irec = k+nNz*(irecord-1)
./pkg/mdsio/mdsio_gl.F 1146 MDSREADFIELD_2D_GL 
           read(dUnit,rec=irec) xy_buffer_r4
./pkg/mdsio/mdsio_gl.F 1156 MDSREADFIELD_2D_GL 
           read(dUnit,rec=irec) xy_buffer_r8
./pkg/mdsio/mdsio_gl.F 1280 MDSWRITEFIELD_2D_GL 
      integer ip,jp,iG,jG,irec,bi,bj,i,j,k,dUnit,IL
./pkg/mdsio/mdsio_gl.F 1394 MDSWRITEFIELD_2D_GL 
          irec=k+nLocz*(irecord-1)
./pkg/mdsio/mdsio_gl.F 1404 MDSWRITEFIELD_2D_GL 
           write(dUnit,rec=irec) xy_buffer_r4
./pkg/mdsio/mdsio_gl.F 1414 MDSWRITEFIELD_2D_GL 
           write(dUnit,rec=irec) xy_buffer_r8
./pkg/mdsio/mdsio_gl.F 1487 MDSWRITEFIELD_2D_GL 
            irec=j + sNy*(k-1) + sNy*nLocz*(irecord-1)
./pkg/mdsio/mdsio_gl.F 1504 MDSWRITEFIELD_2D_GL 
            write(dUnit,rec=irec) r4seg
./pkg/mdsio/mdsio_gl.F 1521 MDSWRITEFIELD_2D_GL 
            write(dUnit,rec=irec) r8seg
./pkg/mdsio/mdsio_gl.F 271 MDSREADFIELD_3D_GL 
            irec=1 + INT(iG/sNx) + nSx*nPx*(jG+j-1) + nSx*nPx*Ny*(k-1)
./pkg/mdsio/mdsio_gl.F 276 MDSREADFIELD_3D_GL 
            irec=j + sNy*(k-1) + sNy*Nr*(irecord-1)
./pkg/mdsio/mdsio_gl.F 279 MDSREADFIELD_3D_GL 
            read(dUnit,rec=irec) r4seg
./pkg/mdsio/mdsio_gl.F 296 MDSREADFIELD_3D_GL 
            read(dUnit,rec=irec) r8seg
./pkg/mdsio/mdsio_gl.F 357 MDSREADFIELD_3D_GL 
          irec = k+nNz*(irecord-1)
./pkg/mdsio/mdsio_gl.F 359 MDSREADFIELD_3D_GL 
           read(dUnit,rec=irec) xy_buffer_r4
./pkg/mdsio/mdsio_gl.F 369 MDSREADFIELD_3D_GL 
           read(dUnit,rec=irec) xy_buffer_r8
./pkg/mdsio/mdsio_gl.F 492 MDSWRITEFIELD_3D_GL 
      integer ip,jp,iG,jG,irec,bi,bj,i,j,k,dUnit,IL
./pkg/mdsio/mdsio_gl.F 605 MDSWRITEFIELD_3D_GL 
          irec=k+nNz*(irecord-1)
./pkg/mdsio/mdsio_gl.F 615 MDSWRITEFIELD_3D_GL 
           write(dUnit,rec=irec) xy_buffer_r4
./pkg/mdsio/mdsio_gl.F 625 MDSWRITEFIELD_3D_GL 
           write(dUnit,rec=irec) xy_buffer_r8
./pkg/mdsio/mdsio_gl.F 698 MDSWRITEFIELD_3D_GL 
            irec=j + sNy*(k-1) + sNy*Nr*(irecord-1)
./pkg/mdsio/mdsio_gl.F 715 MDSWRITEFIELD_3D_GL 
            write(dUnit,rec=irec) r4seg
./pkg/mdsio/mdsio_gl.F 732 MDSWRITEFIELD_3D_GL 
            write(dUnit,rec=irec) r8seg
./pkg/mdsio/mdsio_gl.F 73 MDSREADFIELD_3D_GL 
      integer ip,jp,iG,jG,irec,bi,bj,i,j,k,dUnit,IL
./pkg/mdsio/mdsio_gl.F 860 MDSREADFIELD_2D_GL 
      integer ip,jp,iG,jG,irec,bi,bj,i,j,k,dUnit,IL
./pkg/mdsio/mdsio_gl_slice.F 180 MDSREADFIELD_XZ_GL 
            irec=k + Nr*(irecord-1)
./pkg/mdsio/mdsio_gl_slice.F 182 MDSREADFIELD_XZ_GL 
            read(dUnit,rec=irec) r4seg
./pkg/mdsio/mdsio_gl_slice.F 199 MDSREADFIELD_XZ_GL 
            read(dUnit,rec=irec) r8seg
./pkg/mdsio/mdsio_gl_slice.F 313 MDSREADFIELD_YZ_GL 
      integer ip,jp,iG,jG,irec,bi,bj,jj,k,dUnit,IL
./pkg/mdsio/mdsio_gl_slice.F 420 MDSREADFIELD_YZ_GL 
            irec=k + Nr*(irecord-1)
./pkg/mdsio/mdsio_gl_slice.F 422 MDSREADFIELD_YZ_GL 
            read(dUnit,rec=irec) r4seg
./pkg/mdsio/mdsio_gl_slice.F 439 MDSREADFIELD_YZ_GL 
            read(dUnit,rec=irec) r8seg
./pkg/mdsio/mdsio_gl_slice.F 567 MDSWRITEFIELD_XZ_GL 
      integer ip,jp,iG,jG,irec,bi,bj,ii,k,dUnit,IL
./pkg/mdsio/mdsio_gl_slice.F 643 MDSWRITEFIELD_XZ_GL 
            irec=k + Nr*(irecord-1)
./pkg/mdsio/mdsio_gl_slice.F 660 MDSWRITEFIELD_XZ_GL 
            write(dUnit,rec=irec) r4seg
./pkg/mdsio/mdsio_gl_slice.F 677 MDSWRITEFIELD_XZ_GL 
            write(dUnit,rec=irec) r8seg
./pkg/mdsio/mdsio_gl_slice.F 72 MDSREADFIELD_XZ_GL 
      integer ip,jp,iG,jG,irec,bi,bj,ii,k,dUnit,IL
./pkg/mdsio/mdsio_gl_slice.F 808 MDSWRITEFIELD_YZ_GL 
      integer ip,jp,iG,jG,irec,bi,bj,jj,k,dUnit,IL
./pkg/mdsio/mdsio_gl_slice.F 884 MDSWRITEFIELD_YZ_GL 
            irec=k + Nr*(irecord-1)
./pkg/mdsio/mdsio_gl_slice.F 901 MDSWRITEFIELD_YZ_GL 
            write(dUnit,rec=irec) r4seg
./pkg/mdsio/mdsio_gl_slice.F 918 MDSWRITEFIELD_YZ_GL 
            write(dUnit,rec=irec) r8seg
./pkg/mdsio/mdsio_read_field.F 112 MDS_READ_FIELD 
      INTEGER irec,dUnit,IL,pIL
./pkg/mdsio/mdsio_read_field.F 295 MDS_READ_FIELD 
          irec = 1 + k-kLo + (irecord-1)*nNz
./pkg/mdsio/mdsio_read_field.F 297 MDS_READ_FIELD 
           READ(dUnit,rec=irec) ( xy_buffer_r4(i),i=1,xSize*ySize )
./pkg/mdsio/mdsio_read_field.F 302 MDS_READ_FIELD 
           READ(dUnit,rec=irec) ( xy_buffer_r8(i),i=1,xSize*ySize )
./pkg/mdsio/mdsio_read_field.F 432 MDS_READ_FIELD 
             irec = 1 + ( tBx + (j-1)*iGjLoc )/sNx
./pkg/mdsio/mdsio_read_field.F 438 MDS_READ_FIELD 
              READ(dUnit,rec=irec) (shared3dBuf_r4(i),i=i1,i2)
./pkg/mdsio/mdsio_read_field.F 440 MDS_READ_FIELD 
              READ(dUnit,rec=irec) (shared3dBuf_r8(i),i=i1,i2)
./pkg/mdsio/mdsio_read_field.F 486 MDS_READ_FIELD 
           irec = irecord
./pkg/mdsio/mdsio_read_field.F 490 MDS_READ_FIELD 
             READ(dUnit,rec=irec) (shared3dBuf_r4(i),i=i1,i2)
./pkg/mdsio/mdsio_read_field.F 492 MDS_READ_FIELD 
             READ(dUnit,rec=irec) (shared3dBuf_r8(i),i=i1,i2)
./pkg/mdsio/mdsio_read_section.F 211 MDS_READ_SEC_XZ 
            irec = 1 + ( tGx-1
./pkg/mdsio/mdsio_read_section.F 217 MDS_READ_SEC_XZ 
            irec=1 + INT(iG/sNx) + nSx*nPx*(k-1)
./pkg/mdsio/mdsio_read_section.F 223 MDS_READ_SEC_XZ 
            irec=k + kSize*(irecord-1)
./pkg/mdsio/mdsio_read_section.F 226 MDS_READ_SEC_XZ 
            READ(dUnit,rec=irec) r4seg
./pkg/mdsio/mdsio_read_section.F 243 MDS_READ_SEC_XZ 
            READ(dUnit,rec=irec) r8seg
./pkg/mdsio/mdsio_read_section.F 361 MDS_READ_SEC_YZ 
      INTEGER iG,jG,irec,bi,bj,k,dUnit,IL,pIL
./pkg/mdsio/mdsio_read_section.F 489 MDS_READ_SEC_YZ 
            irec = 1 + ( tGy-1
./pkg/mdsio/mdsio_read_section.F 495 MDS_READ_SEC_YZ 
            irec=1 + INT(jG/sNy) + nSy*nPy*(k-1)
./pkg/mdsio/mdsio_read_section.F 501 MDS_READ_SEC_YZ 
            irec=k + kSize*(irecord-1)
./pkg/mdsio/mdsio_read_section.F 504 MDS_READ_SEC_YZ 
            READ(dUnit,rec=irec) r4seg
./pkg/mdsio/mdsio_read_section.F 521 MDS_READ_SEC_YZ 
            READ(dUnit,rec=irec) r8seg
./pkg/mdsio/mdsio_read_section.F 84 MDS_READ_SEC_XZ 
      INTEGER iG,jG,irec,bi,bj,k,dUnit,IL,pIL
./pkg/mdsio/mdsio_read_whalos.F 152 MDS_READ_WHALOS 
          irec2d=i2d+n2d*(irec-1)
./pkg/mdsio/mdsio_read_whalos.F 16 MDS_READ_WHALOS 
     I                   irec,
./pkg/mdsio/mdsio_read_whalos.F 196 MDS_READ_WHALOS 
          irec2d=i2d+n2d*(irec-1)
./pkg/mdsio/mdsio_read_whalos.F 61 MDS_READ_WHALOS 
      integer irec
./pkg/mdsio/mdsio_write_field.F 129 MDS_WRITE_FIELD 
      INTEGER irec,dUnit,IL,pIL
./pkg/mdsio/mdsio_write_field.F 345 MDS_WRITE_FIELD 
          irec = 1 + k-kLo + (irecord-1)*nNz
./pkg/mdsio/mdsio_write_field.F 350 MDS_WRITE_FIELD 
           WRITE(dUnit,rec=irec) ( xy_buffer_r4(i),i=1,xSize*ySize )
./pkg/mdsio/mdsio_write_field.F 355 MDS_WRITE_FIELD 
           WRITE(dUnit,rec=irec) ( xy_buffer_r8(i),i=1,xSize*ySize )
./pkg/mdsio/mdsio_write_field.F 479 MDS_WRITE_FIELD 
             irec = 1 + ( tBx + (j-1)*iGjLoc )/tNx
./pkg/mdsio/mdsio_write_field.F 485 MDS_WRITE_FIELD 
              WRITE(dUnit,rec=irec) (shared3dBuf_r4(i),i=i1,i2)
./pkg/mdsio/mdsio_write_field.F 487 MDS_WRITE_FIELD 
              WRITE(dUnit,rec=irec) (shared3dBuf_r8(i),i=i1,i2)
./pkg/mdsio/mdsio_write_field.F 511 MDS_WRITE_FIELD 
           irec = irecord
./pkg/mdsio/mdsio_write_field.F 515 MDS_WRITE_FIELD 
             WRITE(dUnit,rec=irec) (shared3dBuf_r4(i),i=i1,i2)
./pkg/mdsio/mdsio_write_field.F 517 MDS_WRITE_FIELD 
             WRITE(dUnit,rec=irec) (shared3dBuf_r8(i),i=i1,i2)
./pkg/mdsio/mdsio_write_section.F 182 MDS_WRITE_SEC_XZ 
            irec = 1 + ( tGx-1
./pkg/mdsio/mdsio_write_section.F 188 MDS_WRITE_SEC_XZ 
            irec=1 + INT(iG/sNx) + nSx*nPx*(k-1)
./pkg/mdsio/mdsio_write_section.F 194 MDS_WRITE_SEC_XZ 
            irec=k + kSize*(irecord-1)
./pkg/mdsio/mdsio_write_section.F 212 MDS_WRITE_SEC_XZ 
            WRITE(dUnit,rec=irec) r4seg
./pkg/mdsio/mdsio_write_section.F 229 MDS_WRITE_SEC_XZ 
            WRITE(dUnit,rec=irec) r8seg
./pkg/mdsio/mdsio_write_section.F 345 MDS_WRITE_SEC_YZ 
      INTEGER iG,jG,irec,bi,bj,k,dUnit,IL,pIL
./pkg/mdsio/mdsio_write_section.F 435 MDS_WRITE_SEC_YZ 
            irec = 1 + ( tGy-1
./pkg/mdsio/mdsio_write_section.F 441 MDS_WRITE_SEC_YZ 
            irec=1 + INT(jG/sNy) + nSy*nPy*(k-1)
./pkg/mdsio/mdsio_write_section.F 447 MDS_WRITE_SEC_YZ 
            irec=k + kSize*(irecord-1)
./pkg/mdsio/mdsio_write_section.F 465 MDS_WRITE_SEC_YZ 
            WRITE(dUnit,rec=irec) r4seg
./pkg/mdsio/mdsio_write_section.F 482 MDS_WRITE_SEC_YZ 
            WRITE(dUnit,rec=irec) r8seg
./pkg/mdsio/mdsio_write_section.F 91 MDS_WRITE_SEC_XZ 
      INTEGER iG,jG,irec,bi,bj,k,dUnit,IL,pIL
./pkg/mdsio/mdsio_write_whalos.F 16 MDS_WRITE_WHALOS 
     I                    irec,
./pkg/mdsio/mdsio_write_whalos.F 176 MDS_WRITE_WHALOS 
          irec2d=i2d+n2d*(irec-1)
./pkg/mdsio/mdsio_write_whalos.F 220 MDS_WRITE_WHALOS 
          irec2d=i2d+n2d*(irec-1)
./pkg/mdsio/mdsio_write_whalos.F 61 MDS_WRITE_WHALOS 
      integer irec
./pkg/mdsio/mdsio_writelocal.F 116 MDS_WRITELOCAL 
      INTEGER irec,dUnit,IL
./pkg/mdsio/mdsio_writelocal.F 333 MDS_WRITELOCAL 
             irec = 1 + ( tBx + (j-1)*iGjLoc )/tNx
./pkg/mdsio/mdsio_writelocal.F 339 MDS_WRITELOCAL 
               WRITE(dUnit,rec=irec) (shared3dBuf_r4(i),i=i1,i2)
./pkg/mdsio/mdsio_writelocal.F 341 MDS_WRITELOCAL 
               WRITE(dUnit,rec=irec) (shared3dBuf_r8(i),i=i1,i2)
./pkg/mdsio/mdsio_writelocal.F 365 MDS_WRITELOCAL 
            irec = irecord
./pkg/mdsio/mdsio_writelocal.F 369 MDS_WRITELOCAL 
              WRITE(dUnit,rec=irec) (shared3dBuf_r4(i),i=i1,i2)
./pkg/mdsio/mdsio_writelocal.F 371 MDS_WRITELOCAL 
              WRITE(dUnit,rec=irec) (shared3dBuf_r8(i),i=i1,i2)
./pkg/profiles/active_file_control_profiles.F 126 ACTIVE_READ_PROFILE_RL 
      vec_start(2)=irec
./pkg/profiles/active_file_control_profiles.F 140 ACTIVE_READ_PROFILE_RL 
      vec_start(2)=irec
./pkg/profiles/active_file_control_profiles.F 156 ACTIVE_READ_PROFILE_RL 
      read(fid,rec=( (irec-1)*prof_num_var_tot(active_num_file,bi,bj)
./pkg/profiles/active_file_control_profiles.F 178 ACTIVE_READ_PROFILE_RL 
      write(fid,rec=( (irec-1)*prof_num_var_tot(active_num_file,bi,bj)
./pkg/profiles/active_file_control_profiles.F 204 ACTIVE_READ_PROFILE_RL 
      vec_start(2)=irec
./pkg/profiles/active_file_control_profiles.F 214 ACTIVE_READ_PROFILE_RL 
      read(fid,rec=( (irec-1)*prof_num_var_tot(active_num_file,bi,bj)
./pkg/profiles/active_file_control_profiles.F 21 ACTIVE_READ_PROFILE_RL 
     I                                irec,
./pkg/profiles/active_file_control_profiles.F 245 ACTIVE_WRITE_PROFILE_RL 
     I                                 irec,
./pkg/profiles/active_file_control_profiles.F 275 ACTIVE_WRITE_PROFILE_RL 
      integer  ivar, irec, irecglob,active_varnum
./pkg/profiles/active_file_control_profiles.F 303 ACTIVE_WRITE_PROFILE_RL 
      vec_start(2)=irec
./pkg/profiles/active_file_control_profiles.F 330 ACTIVE_WRITE_PROFILE_RL 
      write(fid,rec=( (irec-1)*prof_num_var_tot(active_num_file,bi,bj)
./pkg/profiles/active_file_control_profiles.F 340 ACTIVE_WRITE_PROFILE_RL 
      write(fid,rec=( (irec-1)*prof_num_var_tot(active_num_file,bi,bj)
./pkg/profiles/active_file_control_profiles.F 362 ACTIVE_WRITE_PROFILE_RL 
      vec_start(2)=irec
./pkg/profiles/active_file_control_profiles.F 376 ACTIVE_WRITE_PROFILE_RL 
      vec_start(2)=irec
./pkg/profiles/active_file_control_profiles.F 387 ACTIVE_WRITE_PROFILE_RL 
      read(fid,rec=( (irec-1)*prof_num_var_tot(active_num_file,bi,bj)
./pkg/profiles/active_file_control_profiles.F 410 ACTIVE_WRITE_PROFILE_RL 
      write(fid,rec=( (irec-1)*prof_num_var_tot(active_num_file,bi,bj)
./pkg/profiles/active_file_control_profiles.F 432 ACTIVE_WRITE_PROFILE_RL 
      vec_start(2)=irec
./pkg/profiles/active_file_control_profiles.F 450 ACTIVE_WRITE_PROFILE_RL 
      write(fid,rec=( (irec-1)*prof_num_var_tot(active_num_file,bi,bj)
./pkg/profiles/active_file_control_profiles.F 53 ACTIVE_READ_PROFILE_RL 
      integer  irec, irecglob,active_varnum
./pkg/profiles/active_file_control_profiles.F 75 ACTIVE_READ_PROFILE_RL 
      vec_start(2)=irec
./pkg/profiles/active_file_control_profiles.F 90 ACTIVE_READ_PROFILE_RL 
      read(fid,rec=( (irec-1)*prof_num_var_tot(active_num_file,bi,bj)
./pkg/profiles/active_file_control_profiles.F 99 ACTIVE_READ_PROFILE_RL 
      read(fid,rec=( (irec-1)*prof_num_var_tot(active_num_file,bi,bj)
./pkg/profiles/active_file_profiles.F 129 ACTIVE_WRITE_PROFILE 
      integer  irec
./pkg/profiles/active_file_profiles.F 139 ACTIVE_WRITE_PROFILE 
     &     irec, prof_ind_glob(active_num_file,irec,bi,bj),
./pkg/profiles/active_file_profiles.F 29 ACTIVE_READ_PROFILE 
     I                           irec,
./pkg/profiles/active_file_profiles.F 64 ACTIVE_READ_PROFILE 
      integer  irec,active_varnum
./pkg/profiles/active_file_profiles.F 75 ACTIVE_READ_PROFILE 
     &     irec, prof_ind_glob(active_num_file,irec,bi,bj),
./pkg/profiles/active_file_profiles.F 94 ACTIVE_WRITE_PROFILE 
     I                           irec,
./pkg/profiles/active_file_profiles_ad.F 126 ADACTIVE_WRITE_PROFILE 
      integer irec,active_varnum
./pkg/profiles/active_file_profiles_ad.F 139 ADACTIVE_WRITE_PROFILE 
     &     irec, prof_ind_glob(active_num_file,irec,bi,bj),
./pkg/profiles/active_file_profiles_ad.F 26 ADACTIVE_READ_PROFILE 
     I                              irec,
./pkg/profiles/active_file_profiles_ad.F 62 ADACTIVE_READ_PROFILE 
      integer irec,active_varnum
./pkg/profiles/active_file_profiles_ad.F 72 ADACTIVE_READ_PROFILE 
     &     irec, prof_ind_glob(active_num_file,irec,bi,bj),
./pkg/profiles/active_file_profiles_ad.F 89 ADACTIVE_WRITE_PROFILE 
     I                              irec,
./pkg/profiles/active_file_profiles_g.F 101 G_ACTIVE_WRITE_PROFILE 
     I                           irec,
./pkg/profiles/active_file_profiles_g.F 137 G_ACTIVE_WRITE_PROFILE 
      integer irec,active_varnum
./pkg/profiles/active_file_profiles_g.F 148 G_ACTIVE_WRITE_PROFILE 
     &     irec, prof_ind_glob(active_num_file,irec,bi,bj),
./pkg/profiles/active_file_profiles_g.F 154 G_ACTIVE_WRITE_PROFILE 
     &     irec, prof_ind_glob(active_num_file,irec,bi,bj),
./pkg/profiles/active_file_profiles_g.F 26 G_ACTIVE_READ_PROFILE 
     I                           irec,
./pkg/profiles/active_file_profiles_g.F 66 G_ACTIVE_READ_PROFILE 
      integer irec,active_varnum,active_num_file
./pkg/profiles/active_file_profiles_g.F 77 G_ACTIVE_READ_PROFILE 
     &     irec, prof_ind_glob(active_num_file,irec,bi,bj),
./pkg/profiles/active_file_profiles_g.F 83 G_ACTIVE_READ_PROFILE 
     &     irec, prof_ind_glob(active_num_file,irec,bi,bj),
./pkg/profiles/profiles_init_ncfile.F 31 PROFILES_INIT_NCFILE 
      integer irec, num_var,num_file
./pkg/profiles/profiles_init_ncfile.F 76 PROFILES_INIT_NCFILE 
       do irec=1,Zlength+1
./pkg/profiles/profiles_init_ncfile.F 77 PROFILES_INIT_NCFILE 
       tmp_vec(irec)=0
./pkg/profiles/profiles_init_ncfile.F 82 PROFILES_INIT_NCFILE 
       do irec=length,1,-1
./pkg/profiles/profiles_init_ncfile.F 84 PROFILES_INIT_NCFILE 
       write(fid2,rec=((irec-1)*prof_num_var_tot(num_file,bi,bj)
./pkg/profiles/profiles_init_ncfile.F 86 PROFILES_INIT_NCFILE 
       write(fid2,rec=((irec-1)*prof_num_var_tot(num_file,bi,bj)
./pkg/profiles/profiles_readvector.F 106 PROFILES_READVECTOR 
     & (k,irec-profiles_minind_buff(bi,bj)+1,-vNb,bi,bj)
./pkg/profiles/profiles_readvector.F 112 PROFILES_READVECTOR 
     & (k,irec-profiles_minind_buff(bi,bj)+1,vNb,bi,bj)
./pkg/profiles/profiles_readvector.F 12 PROFILES_READVECTOR 
      SUBROUTINE PROFILES_READVECTOR(fNb, vNb, irec,
./pkg/profiles/profiles_readvector.F 28 PROFILES_READVECTOR 
      integer irec, fNb, myThid,err,varid1,tmpprofno
./pkg/profiles/profiles_readvector.F 40 PROFILES_READVECTOR 
      if ( (irec.LT.profiles_minind_buff(bi,bj)).OR.
./pkg/profiles/profiles_readvector.F 41 PROFILES_READVECTOR 
     &  (irec.GT.profiles_maxind_buff(bi,bj)).OR.
./pkg/profiles/profiles_readvector.F 48 PROFILES_READVECTOR 
      profiles_minind_buff(bi,bj)=max(1,irec-500+1)
./pkg/profiles/profiles_readvector.F 49 PROFILES_READVECTOR 
      profiles_maxind_buff(bi,bj)=min(tmpprofno,irec+500)
./pkg/profiles/profiles_readvector.F 50 PROFILES_READVECTOR 
      elseif (irec.LT.profiles_minind_buff(bi,bj)) then
./pkg/profiles/profiles_readvector.F 52 PROFILES_READVECTOR 
      profiles_minind_buff(bi,bj)=max(1,irec-999)
./pkg/profiles/profiles_readvector.F 53 PROFILES_READVECTOR 
      profiles_maxind_buff(bi,bj)=irec
./pkg/profiles/profiles_readvector.F 56 PROFILES_READVECTOR 
      profiles_minind_buff(bi,bj)=irec
./pkg/profiles/profiles_readvector.F 57 PROFILES_READVECTOR 
      profiles_maxind_buff(bi,bj)=min(tmpprofno,irec+999)
./pkg/profiles/profiles_readvector.F 63 PROFILES_READVECTOR 
     &   irec, profNo(fNb,bi,bj), tmpprofno
./pkg/seaice/seaice_cost_concentration.F 154 SEAICE_COST_CONCENTRATION 
      do irec = 1, nrecloc
./pkg/seaice/seaice_cost_concentration.F 157 SEAICE_COST_CONCENTRATION 
           call ACTIVE_READ_XY( fname1, localbar, irec, doglobalread,
./pkg/seaice/seaice_cost_concentration.F 161 SEAICE_COST_CONCENTRATION 
           call ACTIVE_READ_XYZ( fname1, localbar, irec, doglobalread,
./pkg/seaice/seaice_cost_concentration.F 167 SEAICE_COST_CONCENTRATION 
      obsrec = irec
./pkg/seaice/seaice_cost_concentration.F 169 SEAICE_COST_CONCENTRATION 
      daytime = FLOAT(secondsperday*(irec-1)) + modelstart
./pkg/seaice/seaice_cost_concentration.F 170 SEAICE_COST_CONCENTRATION 
      dayiter = hoursperday*(irec-1)+modeliter0
./pkg/seaice/seaice_cost_concentration.F 79 SEAICE_COST_CONCENTRATION 
      integer irec
./pkg/seaice/seaice_cost_sss.F 161 SEAICE_COST_SSS 
      do irec = 1, nrecloc
./pkg/seaice/seaice_cost_sss.F 164 SEAICE_COST_SSS 
           call ACTIVE_READ_XY( fname1, localbar, irec, doglobalread,
./pkg/seaice/seaice_cost_sss.F 168 SEAICE_COST_SSS 
           call ACTIVE_READ_XYZ( fname1, localbar, irec, doglobalread,
./pkg/seaice/seaice_cost_sss.F 175 SEAICE_COST_SSS 
           call ACTIVE_READ_XY( fname3, areabar, irec, doglobalread,
./pkg/seaice/seaice_cost_sss.F 179 SEAICE_COST_SSS 
           call ACTIVE_READ_XYZ( fname3, areabar, irec, doglobalread,
./pkg/seaice/seaice_cost_sss.F 185 SEAICE_COST_SSS 
      obsrec = irec
./pkg/seaice/seaice_cost_sss.F 187 SEAICE_COST_SSS 
      daytime = FLOAT(secondsperday*(irec-1)) + modelstart
./pkg/seaice/seaice_cost_sss.F 188 SEAICE_COST_SSS 
      dayiter = hoursperday*(irec-1)+modeliter0
./pkg/seaice/seaice_cost_sss.F 80 SEAICE_COST_SSS 
      integer irec
./pkg/seaice/seaice_cost_sst.F 162 SEAICE_COST_SST 
      do irec = 1, nrecloc
./pkg/seaice/seaice_cost_sst.F 165 SEAICE_COST_SST 
           call ACTIVE_READ_XY( fname1, localbar, irec, doglobalread,
./pkg/seaice/seaice_cost_sst.F 169 SEAICE_COST_SST 
           call ACTIVE_READ_XYZ( fname1, localbar, irec, doglobalread,
./pkg/seaice/seaice_cost_sst.F 175 SEAICE_COST_SST 
           call ACTIVE_READ_XY( fname3, areabar, irec, doglobalread,
./pkg/seaice/seaice_cost_sst.F 179 SEAICE_COST_SST 
           call ACTIVE_READ_XYZ( fname3, areabar, irec, doglobalread,
./pkg/seaice/seaice_cost_sst.F 185 SEAICE_COST_SST 
      obsrec = irec
./pkg/seaice/seaice_cost_sst.F 187 SEAICE_COST_SST 
      daytime = FLOAT(secondsperday*(irec-1)) + modelstart
./pkg/seaice/seaice_cost_sst.F 188 SEAICE_COST_SST 
      dayiter = hoursperday*(irec-1)+modeliter0
./pkg/seaice/seaice_cost_sst.F 78 SEAICE_COST_SST 
      integer irec
./pkg/seaice/seaice_cost_weights.F 102 SEAICE_COST_WEIGHTS 
     &                          wsmrarea, irec, 0, mythid )
./pkg/seaice/seaice_cost_weights.F 48 SEAICE_COST_WEIGHTS 
      integer irec,nnz
./pkg/seaice/seaice_cost_weights.F 97 SEAICE_COST_WEIGHTS 
      irec  = 1
./pkg/shelfice/shelfice_cost_shifwflx.F 130 SHELFICE_COST_SHIFWFLX 
      do irec = 1,nrec
./pkg/shelfice/shelfice_cost_shifwflx.F 133 SHELFICE_COST_SHIFWFLX 
     &      fnamefld, tmpfld2d, irec, doglobalread,
./pkg/shelfice/shelfice_cost_shifwflx.F 169 SHELFICE_COST_SHIFWFLX 
     &     ' shelfice_cost_shifwflx: irec = ',irec
./pkg/shelfice/shelfice_cost_shifwflx.F 62 SHELFICE_COST_SHIFWFLX 
      integer irec
./verification/flt_example/extra/cvprofiles.F 268 NO PROCEDURE 
            do irec=2,imaxrecord+1
./verification/flt_example/extra/cvprofiles.F 270 NO PROCEDURE 
               read(1,rec=irec) tmp
./verification/flt_example/extra/cvprofiles.F 553 NO PROCEDURE 
            do irec=2,imaxrecord+1
./verification/flt_example/extra/cvprofiles.F 555 NO PROCEDURE 
               read(1,rec=irec) tmp
./verification/flt_example/extra/cvprofiles.F 583 NO PROCEDURE 
            do irec=2,imaxrecord+1
./verification/flt_example/extra/cvprofiles.F 585 NO PROCEDURE 
               read(1,rec=irec) tmp
./verification/flt_example/extra/cvprofiles.F 613 NO PROCEDURE 
            do irec=2,imaxrecord+1
./verification/flt_example/extra/cvprofiles.F 615 NO PROCEDURE 
               read(1,rec=irec) tmp
./verification/natl_box/results/comp_orig.F 15 NO PROCEDURE 
      integer lbuffer1, lbuffer2, i, j, k, irec
./verification/natl_box/results/comp_orig.F 26 NO PROCEDURE 
      irec=0
./verification/natl_box/results/comp_orig.F 29 NO PROCEDURE 
         irec=irec+1
./verification/natl_box/results/comp_orig.F 30 NO PROCEDURE 
         read(1,rec=irec) ((fld1(i,j),i=1,nx),j=1,ny)
./verification/natl_box/results/comp_orig.F 31 NO PROCEDURE 
         read(2,rec=irec) ((fld2(i,j),i=1,nx),j=1,ny)
./pkg/admtlm/admtlm_dsvd2model.F 75 ADMTLM_DSVD2MODEL 
      integer irec
./pkg/admtlm/admtlm_model2dsvd.F 73 ADMTLM_MODEL2DSVD 
      integer irec
./pkg/autodiff/adread_adwrite.F 120 ADREAD 
      INTEGER irec
./pkg/autodiff/adread_adwrite.F 176 ADREAD 
     &    ' tid,vid, irec, length, prec(x2)=', tid, vid, irec,
./pkg/autodiff/adread_adwrite.F 189 ADREAD 
            jrec=irec
./pkg/autodiff/adread_adwrite.F 192 ADREAD 
            jrec=tapeFileCounter+tapeMaxCounter*(irec-1)
./pkg/autodiff/adread_adwrite.F 233 ADREAD 
     &                         useSingleCpuIO, irec, myThid )
./pkg/autodiff/adread_adwrite.F 239 ADREAD 
     &                         useSingleCpuIO, irec, myThid )
./pkg/autodiff/adread_adwrite.F 269 ADWRITE 
     I                    irec
./pkg/autodiff/adread_adwrite.F 318 ADWRITE 
      INTEGER irec
./pkg/autodiff/adread_adwrite.F 375 ADWRITE 
     &    ' tid,vid, irec, length, prec(x2)=', tid, vid, irec,
./pkg/autodiff/adread_adwrite.F 388 ADWRITE 
            jrec=irec
./pkg/autodiff/adread_adwrite.F 391 ADWRITE 
            jrec=tapeFileCounter+tapeMaxCounter*(irec-1)
./pkg/autodiff/adread_adwrite.F 429 ADWRITE 
     &                         useSingleCpuIO, irec, 0, myThid )
./pkg/autodiff/adread_adwrite.F 435 ADWRITE 
     &                         useSingleCpuIO, irec, 0, myThid )
./pkg/autodiff/adread_adwrite.F 72 ADREAD 
     I                   irec
./pkg/ctrl/ctrl_pack.F 82 CTRL_PACK 
      integer irec
./pkg/ctrl/ctrl_set_globfld_xy.F 100 CTRL_SET_GLOBFLD_XY 
     &        irec,   optimcycle,  mythid)
./pkg/ctrl/ctrl_set_globfld_xy.F 103 CTRL_SET_GLOBFLD_XY 
      do irec = nrec_nl*Nr+1, ncvarrecs(ivartype)
./pkg/ctrl/ctrl_set_globfld_xy.F 106 CTRL_SET_GLOBFLD_XY 
     &        irec,   optimcycle,  mythid)
./pkg/ctrl/ctrl_set_globfld_xy.F 52 CTRL_SET_GLOBFLD_XY 
      integer irec,nrec_nl
./pkg/ctrl/ctrl_set_globfld_xy.F 97 CTRL_SET_GLOBFLD_XY 
      do irec = 1,  nrec_nl
./pkg/ctrl/ctrl_set_globfld_xyz.F 47 CTRL_SET_GLOBFLD_XYZ 
      integer irec
./pkg/ctrl/ctrl_set_globfld_xyz.F 80 CTRL_SET_GLOBFLD_XYZ 
      do irec = 1, ncvarrecs(ivartype)
./pkg/ctrl/ctrl_set_globfld_xyz.F 83 CTRL_SET_GLOBFLD_XYZ 
     &        irec,   optimcycle,  mythid)
./pkg/ctrl/ctrl_set_globfld_xz.F 104 CTRL_SET_GLOBFLD_XZ 
      do irec = 1, nrec_nl
./pkg/ctrl/ctrl_set_globfld_xz.F 107 CTRL_SET_GLOBFLD_XZ 
     &      irec,   optimcycle,  mythid)
./pkg/ctrl/ctrl_set_globfld_xz.F 110 CTRL_SET_GLOBFLD_XZ 
      do irec = nrec_nl*Ny+1, ncvarrecs(ivartype)
./pkg/ctrl/ctrl_set_globfld_xz.F 113 CTRL_SET_GLOBFLD_XZ 
     &      irec,   optimcycle,  mythid)
./pkg/ctrl/ctrl_set_globfld_xz.F 52 CTRL_SET_GLOBFLD_XZ 
      integer irec,nrec_nl
./pkg/ctrl/ctrl_set_globfld_yz.F 105 CTRL_SET_GLOBFLD_YZ 
      do irec = 1, nrec_nl
./pkg/ctrl/ctrl_set_globfld_yz.F 108 CTRL_SET_GLOBFLD_YZ 
     &      irec,   optimcycle,  mythid)
./pkg/ctrl/ctrl_set_globfld_yz.F 112 CTRL_SET_GLOBFLD_YZ 
      do irec = nrec_nl*Nx+1, ncvarrecs(ivartype)
./pkg/ctrl/ctrl_set_globfld_yz.F 115 CTRL_SET_GLOBFLD_YZ 
     &      irec,   optimcycle,  mythid)
./pkg/ctrl/ctrl_set_globfld_yz.F 52 CTRL_SET_GLOBFLD_YZ 
      integer irec,nrec_nl
./pkg/ctrl/ctrl_set_pack_xy.F 174 CTRL_SET_PACK_XY 
      do irec = 1, nrec_nl
./pkg/ctrl/ctrl_set_pack_xy.F 177 CTRL_SET_PACK_XY 
     &        Nr, globfld3d, irec, mythid)
./pkg/ctrl/ctrl_set_pack_xy.F 179 CTRL_SET_PACK_XY 
         irectrue = (irec-1)*nr + k
./pkg/ctrl/ctrl_set_pack_xy.F 267 CTRL_SET_PACK_XY 
      do irec = nrec_nl*Nr+1, ncvarrecs(ivartype)
./pkg/ctrl/ctrl_set_pack_xy.F 270 CTRL_SET_PACK_XY 
     &        1, globfld3d(1,1,1,1,1,1,1), irec, mythid)
./pkg/ctrl/ctrl_set_pack_xy.F 278 CTRL_SET_PACK_XY 
            irectrue = irec
./pkg/ctrl/ctrl_set_pack_xy.F 376 CTRL_SET_PACK_XY 
      integer irec
./pkg/ctrl/ctrl_set_pack_xy.F 434 CTRL_SET_PACK_XY 
      do irec = 1, ncvarrecs(ivartype)
./pkg/ctrl/ctrl_set_pack_xy.F 438 CTRL_SET_PACK_XY 
     &        1, fld2dDim, irec, 0, mythid)
./pkg/ctrl/ctrl_set_pack_xy.F 487 CTRL_SET_PACK_XY 
     &        1, fld2dNodim, irec, 0, mythid)
./pkg/ctrl/ctrl_set_pack_xy.F 489 CTRL_SET_PACK_XY 
     &        1, fld2dDim, irec, 0, mythid)
./pkg/ctrl/ctrl_set_pack_xy.F 52 CTRL_SET_PACK_XY 
      integer irec,nrec_nl
./pkg/ctrl/ctrl_set_pack_xyz.F 184 CTRL_SET_PACK_XYZ 
      do irec = 1, ncvarrecs(ivartype)
./pkg/ctrl/ctrl_set_pack_xyz.F 187 CTRL_SET_PACK_XYZ 
     &        Nr, globfld3d, irec, mythid)
./pkg/ctrl/ctrl_set_pack_xyz.F 195 CTRL_SET_PACK_XYZ 
         irectrue = (irec-1)*nr + k
./pkg/ctrl/ctrl_set_pack_xyz.F 288 CTRL_SET_PACK_XYZ 
      integer irec
./pkg/ctrl/ctrl_set_pack_xyz.F 348 CTRL_SET_PACK_XYZ 
      do irec = 1, ncvarrecs(ivartype)
./pkg/ctrl/ctrl_set_pack_xyz.F 352 CTRL_SET_PACK_XYZ 
     &        Nr, fld3dDim, irec, 0, mythid)
./pkg/ctrl/ctrl_set_pack_xyz.F 405 CTRL_SET_PACK_XYZ 
     &        Nr, fld3dNodim, irec, 0, mythid)
./pkg/ctrl/ctrl_set_pack_xyz.F 407 CTRL_SET_PACK_XYZ 
     &        Nr, fld3dDim, irec, 0, mythid)
./pkg/ctrl/ctrl_set_pack_xyz.F 55 CTRL_SET_PACK_XYZ 
      integer irec
./pkg/ctrl/ctrl_set_pack_xz.F 184 CTRL_SET_PACK_XZ 
      do irec = 1, nrec_nl
./pkg/ctrl/ctrl_set_pack_xz.F 186 CTRL_SET_PACK_XZ 
     &        nr, globfld3d, irec, mythid)
./pkg/ctrl/ctrl_set_pack_xz.F 188 CTRL_SET_PACK_XZ 
            iobcs= mod((irec-1)*sny+j-1,nobcs)+1
./pkg/ctrl/ctrl_set_pack_xz.F 194 CTRL_SET_PACK_XZ 
             irectrue = (irec-1)*nobcs*nr + (iobcs-1)*nr + k
./pkg/ctrl/ctrl_set_pack_xz.F 258 CTRL_SET_PACK_XZ 
      do irec = nrec_nl*ny+1, ncvarrecs(ivartype)
./pkg/ctrl/ctrl_set_pack_xz.F 260 CTRL_SET_PACK_XZ 
         iobcs= mod(irec-1,nobcs)+1
./pkg/ctrl/ctrl_set_pack_xz.F 263 CTRL_SET_PACK_XZ 
     &        nr, globfldxz, irec, mythid)
./pkg/ctrl/ctrl_set_pack_xz.F 269 CTRL_SET_PACK_XZ 
            irectrue = (irec-1)*nobcs*nr + (iobcs-1)*nr + k
./pkg/ctrl/ctrl_set_pack_xz.F 57 CTRL_SET_PACK_XZ 
      integer irec,iobcs,nrec_nl
./pkg/ctrl/ctrl_set_pack_yz.F 184 CTRL_SET_PACK_YZ 
      do irec = 1, nrec_nl
./pkg/ctrl/ctrl_set_pack_yz.F 188 CTRL_SET_PACK_YZ 
     &        nr, globfld3D, irec, mythid)
./pkg/ctrl/ctrl_set_pack_yz.F 191 CTRL_SET_PACK_YZ 
            iobcs= mod((irec-1)*snx+i-1,nobcs)+1
./pkg/ctrl/ctrl_set_pack_yz.F 197 CTRL_SET_PACK_YZ 
             irectrue = (irec-1)*nobcs*nr + (iobcs-1)*nr + k
./pkg/ctrl/ctrl_set_pack_yz.F 262 CTRL_SET_PACK_YZ 
      do irec = nrec_nl*nx+1, ncvarrecs(ivartype)
./pkg/ctrl/ctrl_set_pack_yz.F 264 CTRL_SET_PACK_YZ 
         iobcs= mod(irec-1,nobcs)+1
./pkg/ctrl/ctrl_set_pack_yz.F 267 CTRL_SET_PACK_YZ 
     &        nr, globfldyz, irec, mythid)
./pkg/ctrl/ctrl_set_pack_yz.F 273 CTRL_SET_PACK_YZ 
            irectrue = (irec-1)*nobcs*nr + (iobcs-1)*nr + k
./pkg/ctrl/ctrl_set_pack_yz.F 57 CTRL_SET_PACK_YZ 
      integer irec,iobcs,nrec_nl
./pkg/ctrl/ctrl_set_unpack_xy.F 175 CTRL_SET_UNPACK_XY 
      do irec = 1, nrec_nl
./pkg/ctrl/ctrl_set_unpack_xy.F 177 CTRL_SET_UNPACK_XY 
         irectrue = (irec-1)*nr + k
./pkg/ctrl/ctrl_set_unpack_xy.F 281 CTRL_SET_UNPACK_XY 
     &                             irec,  optimcycle, mythid)
./pkg/ctrl/ctrl_set_unpack_xy.F 285 CTRL_SET_UNPACK_XY 
      do irec = nrec_nl*Nr+1,ncvarrecs(ivartype)
./pkg/ctrl/ctrl_set_unpack_xy.F 298 CTRL_SET_UNPACK_XY 
            irectrue = irec
./pkg/ctrl/ctrl_set_unpack_xy.F 391 CTRL_SET_UNPACK_XY 
     &                             irec,  optimcycle, mythid)
./pkg/ctrl/ctrl_set_unpack_xy.F 410 CTRL_SET_UNPACK_XY 
      integer irec
./pkg/ctrl/ctrl_set_unpack_xy.F 468 CTRL_SET_UNPACK_XY 
      do irec = 1, ncvarrecs(ivartype)
./pkg/ctrl/ctrl_set_unpack_xy.F 53 CTRL_SET_UNPACK_XY 
      integer irec,nrec_nl
./pkg/ctrl/ctrl_set_unpack_xy.F 595 CTRL_SET_UNPACK_XY 
     &        1, fld2dNodim, irec, 0, mythid)
./pkg/ctrl/ctrl_set_unpack_xy.F 597 CTRL_SET_UNPACK_XY 
     &        1, fld2dDim, irec, 0, mythid)
./pkg/ctrl/ctrl_set_unpack_xy.F 602 CTRL_SET_UNPACK_XY 
     &        1, fld2dDim, irec, 0, mythid)
./pkg/ctrl/ctrl_set_unpack_xyz.F 193 CTRL_SET_UNPACK_XYZ 
      do irec = 1, ncvarrecs(ivartype)
./pkg/ctrl/ctrl_set_unpack_xyz.F 206 CTRL_SET_UNPACK_XYZ 
         irectrue = (irec-1)*nr + k
./pkg/ctrl/ctrl_set_unpack_xyz.F 298 CTRL_SET_UNPACK_XYZ 
     &                             irec,  optimcycle, mythid)
./pkg/ctrl/ctrl_set_unpack_xyz.F 317 CTRL_SET_UNPACK_XYZ 
      integer irec
./pkg/ctrl/ctrl_set_unpack_xyz.F 377 CTRL_SET_UNPACK_XYZ 
      do irec = 1, ncvarrecs(ivartype)
./pkg/ctrl/ctrl_set_unpack_xyz.F 507 CTRL_SET_UNPACK_XYZ 
     &        Nr, fld3dNodim, irec, 0, mythid)
./pkg/ctrl/ctrl_set_unpack_xyz.F 509 CTRL_SET_UNPACK_XYZ 
     &        Nr, fld3dDim, irec, 0, mythid)
./pkg/ctrl/ctrl_set_unpack_xyz.F 514 CTRL_SET_UNPACK_XYZ 
     &        Nr, fld3dDim, irec, 0, mythid)
./pkg/ctrl/ctrl_set_unpack_xyz.F 55 CTRL_SET_UNPACK_XYZ 
      integer irec
./pkg/ctrl/ctrl_set_unpack_xz.F 189 CTRL_SET_UNPACK_XZ 
      do irec = 1, nrec_nl
./pkg/ctrl/ctrl_set_unpack_xz.F 192 CTRL_SET_UNPACK_XZ 
            iobcs= mod((irec-1)*sny+j-1,nobcs)+1
./pkg/ctrl/ctrl_set_unpack_xz.F 204 CTRL_SET_UNPACK_XZ 
               irectrue = (irec-1)*nobcs*nr + (iobcs-1)*nr + k
./pkg/ctrl/ctrl_set_unpack_xz.F 271 CTRL_SET_UNPACK_XZ 
     &                             Nr, globfld3d, irec,
./pkg/ctrl/ctrl_set_unpack_xz.F 277 CTRL_SET_UNPACK_XZ 
      do irec = nrec_nl*ny+1, ncvarrecs(ivartype)
./pkg/ctrl/ctrl_set_unpack_xz.F 279 CTRL_SET_UNPACK_XZ 
         iobcs= mod(irec-1,nobcs)+1
./pkg/ctrl/ctrl_set_unpack_xz.F 291 CTRL_SET_UNPACK_XZ 
            irectrue = (irec-1)*nobcs*nr + (iobcs-1)*nr + k
./pkg/ctrl/ctrl_set_unpack_xz.F 352 CTRL_SET_UNPACK_XZ 
     &                             Nr, globfldxz, irec,
./pkg/ctrl/ctrl_set_unpack_xz.F 58 CTRL_SET_UNPACK_XZ 
      integer irec,iobcs,nrec_nl
./pkg/ctrl/ctrl_set_unpack_yz.F 189 CTRL_SET_UNPACK_YZ 
      do irec = 1, nrec_nl
./pkg/ctrl/ctrl_set_unpack_yz.F 192 CTRL_SET_UNPACK_YZ 
            iobcs= mod((irec-1)*snx+i-1,nobcs)+1
./pkg/ctrl/ctrl_set_unpack_yz.F 204 CTRL_SET_UNPACK_YZ 
               irectrue = (irec-1)*nobcs*nr + (iobcs-1)*nr + k
./pkg/ctrl/ctrl_set_unpack_yz.F 271 CTRL_SET_UNPACK_YZ 
     &                             Nr, globfld3d, irec,
./pkg/ctrl/ctrl_set_unpack_yz.F 277 CTRL_SET_UNPACK_YZ 
      do irec = nrec_nl*nx+1,ncvarrecs(ivartype)
./pkg/ctrl/ctrl_set_unpack_yz.F 279 CTRL_SET_UNPACK_YZ 
         iobcs= mod(irec-1,nobcs)+1
./pkg/ctrl/ctrl_set_unpack_yz.F 291 CTRL_SET_UNPACK_YZ 
            irectrue = (irec-1)*nobcs*nr + (iobcs-1)*nr + k
./pkg/ctrl/ctrl_set_unpack_yz.F 346 CTRL_SET_UNPACK_YZ 
     &                             Nr, globfldyz, irec,
./pkg/ctrl/ctrl_set_unpack_yz.F 58 CTRL_SET_UNPACK_YZ 
      integer irec,iobcs,nrec_nl
./pkg/ctrl/ctrl_unpack.F 85 CTRL_UNPACK 
      integer irec
./pkg/ecco/cost_argo_salt.F 123 COST_ARGO_SALT 
      do irec = 1,nmonsrec
./pkg/ecco/cost_argo_salt.F 126 COST_ARGO_SALT 
        call ACTIVE_READ_XYZ( fnamesalt, sbar, irec,
./pkg/ecco/cost_argo_salt.F 132 COST_ARGO_SALT 
        iyear = mody + INT((modm-1+irec-1)/12)
./pkg/ecco/cost_argo_salt.F 133 COST_ARGO_SALT 
        imonth = 1 + MOD(modm-1+irec-1,12)
./pkg/ecco/cost_argo_salt.F 140 COST_ARGO_SALT 
           imonth = irec
./pkg/ecco/cost_argo_salt.F 189 COST_ARGO_SALT 
     &        ' COST_ARGO_SALT: irec,bi,bj   =  ',irec,bi,bj
./pkg/ecco/cost_argo_salt.F 211 COST_ARGO_SALT 
     &    ' cost_ARGOT: irec =  ',irec
./pkg/ecco/cost_argo_salt.F 57 COST_ARGO_SALT 
      integer irec
./pkg/ecco/cost_argo_theta.F 126 COST_ARGO_THETA 
      do irec = 1,nmonsrec
./pkg/ecco/cost_argo_theta.F 129 COST_ARGO_THETA 
        call ACTIVE_READ_XYZ( fnametheta, tbar, irec,
./pkg/ecco/cost_argo_theta.F 135 COST_ARGO_THETA 
        iyear = mody + INT((modm-1+irec-1)/12)
./pkg/ecco/cost_argo_theta.F 136 COST_ARGO_THETA 
        imonth = 1 + MOD(modm-1+irec-1,12)
./pkg/ecco/cost_argo_theta.F 143 COST_ARGO_THETA 
            imonth = irec
./pkg/ecco/cost_argo_theta.F 195 COST_ARGO_THETA 
     &        ' COST_ARGO_THETA: irec,bi,bj            =  ',irec,bi,bj
./pkg/ecco/cost_argo_theta.F 217 COST_ARGO_THETA 
     &    ' cost_ARGOT: irec =  ',irec
./pkg/ecco/cost_argo_theta.F 57 COST_ARGO_THETA 
      integer irec
./pkg/ecco/cost_averagesinit.F 275 COST_AVERAGESINIT 
          do irec = 1, ndaysrec
./pkg/ecco/cost_averagesinit.F 276 COST_AVERAGESINIT 
             transpbar(irec,bi,bj) = 0. _d 0
./pkg/ecco/cost_averagesinit.F 54 COST_AVERAGESINIT 
      integer irec
./pkg/ecco/cost_bottomdrag.F 128 COST_BOTTOMDRAG 
     &        ' cost_bottomdrag: irec,bi,bj          =  ',irec,bi,bj
./pkg/ecco/cost_bottomdrag.F 147 COST_BOTTOMDRAG 
     &    ' cost_bottomdrag:               irec =  ',irec
./pkg/ecco/cost_bottomdrag.F 47 COST_BOTTOMDRAG 
      integer irec
./pkg/ecco/cost_bottomdrag.F 81 COST_BOTTOMDRAG 
      irec = 1
./pkg/ecco/cost_bottomdrag.F 93 COST_BOTTOMDRAG 
      call ACTIVE_READ_XY( fnamefld, tmpfld2d, irec, doglobalread,
./pkg/ecco/cost_bp.F 122 COST_BP 
      do irec = 1, nmonsrec
./pkg/ecco/cost_bp.F 125 COST_BP 
        call ACTIVE_READ_XY( fname, bpbar, irec, doglobalread,
./pkg/ecco/cost_bp.F 129 COST_BP 
        call COST_BP_READ( irec, mythid )
./pkg/ecco/cost_bp.F 170 COST_BP 
      do irec = 1, nmonsrec
./pkg/ecco/cost_bp.F 172 COST_BP 
        call ACTIVE_READ_XY( fname, bpbar, irec, doglobalread,
./pkg/ecco/cost_bp.F 176 COST_BP 
        call COST_BP_READ( irec, mythid )
./pkg/ecco/cost_bp.F 239 COST_BP 
     & 1,bpdifanom,irec,1,mythid)
./pkg/ecco/cost_bp.F 242 COST_BP 
     & 1,bpdatanom,irec,1,mythid)
./pkg/ecco/cost_bp.F 258 COST_BP 
     & 1,bpdifanom,irec,1,mythid)
./pkg/ecco/cost_bp.F 261 COST_BP 
     & 1,bpdatanom,irec,1,mythid)
./pkg/ecco/cost_bp.F 59 COST_BP 
      integer irec
./pkg/ecco/cost_bp_read.F 38 COST_BP_READ 
      integer irec
./pkg/ecco/cost_bp_read.F 8 COST_BP_READ 
     I                               irec,
./pkg/ecco/cost_bp_read.F 94 COST_BP_READ 
     &         + irec
./pkg/ecco/cost_bp_read.F 98 COST_BP_READ 
      iyear = mody + INT((modm-1+irec-1)/12)
./pkg/ecco/cost_bp_read.F 99 COST_BP_READ 
      imonth = 1 + MOD(modm-1+irec-1,12)
./pkg/ecco/cost_ctds.F 123 COST_CTDS 
      do irec = 1,nmonsrec
./pkg/ecco/cost_ctds.F 126 COST_CTDS 
        call ACTIVE_READ_XYZ( fnamesalt, sbar, irec,
./pkg/ecco/cost_ctds.F 131 COST_CTDS 
        iyear = mody + INT((modm-1+irec-1)/12)
./pkg/ecco/cost_ctds.F 132 COST_CTDS 
        imonth = 1 + MOD(modm-1+irec-1,12)
./pkg/ecco/cost_ctds.F 139 COST_CTDS 
           imonth = irec
./pkg/ecco/cost_ctds.F 192 COST_CTDS 
     &        ' COST_CTDS: irec,bi,bj            =  ',irec,bi,bj
./pkg/ecco/cost_ctds.F 214 COST_CTDS 
     &    ' cost_CTDS: irec =  ',irec
./pkg/ecco/cost_ctds.F 56 COST_CTDS 
      integer irec
./pkg/ecco/cost_ctdsclim.F 122 COST_CTDSCLIM 
      do irec = 1,12
./pkg/ecco/cost_ctdsclim.F 123 COST_CTDSCLIM 
         nyears=int((nmonsrec-irec)/12)+1
./pkg/ecco/cost_ctdsclim.F 126 COST_CTDSCLIM 
            mrec=irec+(iyear-1)*12
./pkg/ecco/cost_ctdsclim.F 154 COST_CTDSCLIM 
      do irec = 1,nmonsrec
./pkg/ecco/cost_ctdsclim.F 157 COST_CTDSCLIM 
        call ACTIVE_READ_XYZ( fnamesalt, sbar, irec,
./pkg/ecco/cost_ctdsclim.F 164 COST_CTDSCLIM 
        levmon = (irec-1) + levoff
./pkg/ecco/cost_ctdsclim.F 216 COST_CTDSCLIM 
     &        ' cost_Ctdsclim: irec,bi,bj          =  ',irec,bi,bj
./pkg/ecco/cost_ctdsclim.F 239 COST_CTDSCLIM 
     &    ' cost_Ctdsclim: irec = ',irec
./pkg/ecco/cost_ctdsclim.F 67 COST_CTDSCLIM 
      integer irec
./pkg/ecco/cost_ctdt.F 124 COST_CTDT 
      do irec = 1,nmonsrec
./pkg/ecco/cost_ctdt.F 127 COST_CTDT 
        call ACTIVE_READ_XYZ( fnametheta, tbar, irec,
./pkg/ecco/cost_ctdt.F 132 COST_CTDT 
        iyear = mody + INT((modm-1+irec-1)/12)
./pkg/ecco/cost_ctdt.F 133 COST_CTDT 
        imonth = 1 + MOD(modm-1+irec-1,12)
./pkg/ecco/cost_ctdt.F 140 COST_CTDT 
           imonth = irec
./pkg/ecco/cost_ctdt.F 196 COST_CTDT 
     &        ' COST_CTDT: irec,bi,bj            =  ',irec,bi,bj
./pkg/ecco/cost_ctdt.F 218 COST_CTDT 
     &    ' cost_CTDT: irec =  ',irec
./pkg/ecco/cost_ctdt.F 57 COST_CTDT 
      integer irec
./pkg/ecco/cost_ctdtclim.F 121 COST_CTDTCLIM 
      do irec = 1,12
./pkg/ecco/cost_ctdtclim.F 122 COST_CTDTCLIM 
         nyears=int((nmonsrec-irec)/12)+1
./pkg/ecco/cost_ctdtclim.F 125 COST_CTDTCLIM 
            mrec=irec+(iyear-1)*12
./pkg/ecco/cost_ctdtclim.F 153 COST_CTDTCLIM 
      do irec = 1,nmonsrec
./pkg/ecco/cost_ctdtclim.F 156 COST_CTDTCLIM 
        call ACTIVE_READ_XYZ( fnametheta, tbar, irec,
./pkg/ecco/cost_ctdtclim.F 163 COST_CTDTCLIM 
        levmon = (irec-1) + levoff
./pkg/ecco/cost_ctdtclim.F 216 COST_CTDTCLIM 
     &        ' cost_Ctdtclim: irec,bi,bj          =  ',irec,bi,bj
./pkg/ecco/cost_ctdtclim.F 239 COST_CTDTCLIM 
     &    ' cost_Ctdtclim: irec = ',irec
./pkg/ecco/cost_ctdtclim.F 67 COST_CTDTCLIM 
      integer irec
./pkg/ecco/cost_curmtr.F 134 COST_CURMTR 
      do irec = 1,nmonsrec
./pkg/ecco/cost_curmtr.F 138 COST_CURMTR 
        call ACTIVE_READ_XYZ( fnameuvel, ubar, irec,
./pkg/ecco/cost_curmtr.F 144 COST_CURMTR 
        call ACTIVE_READ_XYZ( fnamevvel, vbar, irec,
./pkg/ecco/cost_curmtr.F 150 COST_CURMTR 
     &                           irec,   mythid)
./pkg/ecco/cost_curmtr.F 153 COST_CURMTR 
     &                           irec,   mythid)
./pkg/ecco/cost_curmtr.F 297 COST_CURMTR 
     &        ' COST_curmtr: irec,bi,bj            =  ',irec,bi,bj
./pkg/ecco/cost_curmtr.F 319 COST_CURMTR 
     &    ' cost_Curmtr: irec =  ',irec
./pkg/ecco/cost_curmtr.F 57 COST_CURMTR 
      integer irec
./pkg/ecco/cost_diffkr.F 133 COST_DIFFKR 
     &        ' cost_diffkr: irec,bi,bj          =  ',irec,bi,bj
./pkg/ecco/cost_diffkr.F 152 COST_DIFFKR 
     &    ' cost_diffkr:                     irec =  ',irec
./pkg/ecco/cost_diffkr.F 47 COST_DIFFKR 
      integer irec
./pkg/ecco/cost_diffkr.F 81 COST_DIFFKR 
      irec = 1
./pkg/ecco/cost_diffkr.F 93 COST_DIFFKR 
      call ACTIVE_READ_XYZ( fnamefld, tmpfld3d, irec, doglobalread,
./pkg/ecco/cost_drift.F 139 COST_DRIFT 
      do irec = 1,minrec
./pkg/ecco/cost_drift.F 142 COST_DRIFT 
        call ACTIVE_READ_XYZ( fnametheta, tbar, irec,
./pkg/ecco/cost_drift.F 147 COST_DRIFT 
        call ACTIVE_READ_XYZ( fnamesalt, sbar, irec,
./pkg/ecco/cost_drift.F 170 COST_DRIFT 
      do irec = nmonsrec-minrec+1, nmonsrec
./pkg/ecco/cost_drift.F 173 COST_DRIFT 
        call ACTIVE_READ_XYZ( fnametheta, tbar, irec,
./pkg/ecco/cost_drift.F 178 COST_DRIFT 
        call ACTIVE_READ_XYZ( fnamesalt, sbar, irec,
./pkg/ecco/cost_drift.F 61 COST_DRIFT 
      integer irec
./pkg/ecco/cost_drifter.F 148 COST_DRIFTER 
         do irec = 1,nmonsrec
./pkg/ecco/cost_drifter.F 151 COST_DRIFTER 
          call ACTIVE_READ_XYZ( fnameud, ubar, irec,
./pkg/ecco/cost_drifter.F 156 COST_DRIFTER 
          call ACTIVE_READ_XYZ( fnamevd, vbar, irec,
./pkg/ecco/cost_drifter.F 163 COST_DRIFTER 
            if(irec.eq.1)then
./pkg/ecco/cost_drifter.F 166 COST_DRIFTER 
            elseif(irec.eq.nmonsrec)then
./pkg/ecco/cost_drifter.F 332 COST_DRIFTER 
     &        ' cost_drifter: irec,bi,bj          =  ',irec,bi,bj
./pkg/ecco/cost_drifter.F 352 COST_DRIFTER 
     &    ' cost_drift: irec = ',irec
./pkg/ecco/cost_drifter.F 72 COST_DRIFTER 
      integer irec
./pkg/ecco/cost_driftw.F 127 COST_DRIFTW 
      do irec = 1,minrec
./pkg/ecco/cost_driftw.F 130 COST_DRIFTW 
        call ACTIVE_READ_XYZ( fnamew, wbar, irec,
./pkg/ecco/cost_driftw.F 151 COST_DRIFTW 
      do irec = nmonsrec-minrec+1, nmonsrec
./pkg/ecco/cost_driftw.F 154 COST_DRIFTW 
        call ACTIVE_READ_XYZ( fnamew, wbar, irec,
./pkg/ecco/cost_driftw.F 212 COST_DRIFTW 
     &        ' cost_Driftw: irec,bi,bj          =  ',irec,bi,bj
./pkg/ecco/cost_driftw.F 235 COST_DRIFTW 
     &    ' cost_Driftw: irec = ',irec
./pkg/ecco/cost_driftw.F 61 COST_DRIFTW 
      integer irec
./pkg/ecco/cost_etan0.F 106 COST_ETAN0 
     &     fnamefld, tmpfld2d, irec, doglobalread,
./pkg/ecco/cost_etan0.F 59 COST_ETAN0 
      integer irec
./pkg/ecco/cost_etan0.F 95 COST_ETAN0 
      irec = 1
./pkg/ecco/cost_forcing_gen.F 150 COST_FORCING_GEN 
      do irec = 1,nrec
./pkg/ecco/cost_forcing_gen.F 153 COST_FORCING_GEN 
     &        fnamefld, tmpfld2d, irec, doglobalread,
./pkg/ecco/cost_forcing_gen.F 164 COST_FORCING_GEN 
     &                    xx_gen_remo_slope*(irec-1)*xx_gen_period )
./pkg/ecco/cost_forcing_gen.F 199 COST_FORCING_GEN 
      do irec = 1,nrec
./pkg/ecco/cost_forcing_gen.F 202 COST_FORCING_GEN 
     &        fnamefld, tmpfld2d, irec, doglobalread,
./pkg/ecco/cost_forcing_gen.F 218 COST_FORCING_GEN 
     &                       xx_gen_remo_slope*(irec-1)*xx_gen_period )
./pkg/ecco/cost_forcing_gen.F 247 COST_FORCING_GEN 
      do irec = 1,nrec
./pkg/ecco/cost_forcing_gen.F 250 COST_FORCING_GEN 
     &        fnamefld, tmpfld2d, irec, doglobalread,
./pkg/ecco/cost_forcing_gen.F 82 COST_FORCING_GEN 
      integer irec
./pkg/ecco/cost_gen_transport.F 51 COST_GEN_TRANSPORT 
      integer irec
./pkg/ecco/cost_gen_transport.F 71 COST_GEN_TRANSPORT 
      do irec = 1, ndaysrec
./pkg/ecco/cost_gen_transport.F 76 COST_GEN_TRANSPORT 
             ftmp = ftmp + transpbar(irec,bi,bj)
./pkg/ecco/cost_gen_transport.F 87 COST_GEN_TRANSPORT 
        if ( ftmp.NE.0. .AND. wtransp(irec).NE.0. ) then
./pkg/ecco/cost_gen_transport.F 89 COST_GEN_TRANSPORT 
     &          wtransp(irec)*( ftmp - transpobs(irec) )**2
./pkg/ecco/cost_gencost_boxmean.F 110 COST_GENCOST_BOXMEAN 
      do irec = 1,nmonsrec
./pkg/ecco/cost_gencost_boxmean.F 113 COST_GENCOST_BOXMEAN 
     &                     nr, mymsk, irec, mythid)
./pkg/ecco/cost_gencost_boxmean.F 131 COST_GENCOST_BOXMEAN 
      do irec = 1,nmonsrec
./pkg/ecco/cost_gencost_boxmean.F 134 COST_GENCOST_BOXMEAN 
        call ACTIVE_READ_XYZ( myfname, mybar, irec,
./pkg/ecco/cost_gencost_boxmean.F 142 COST_GENCOST_BOXMEAN 
     &                     nr, mymsk, irec, mythid)
./pkg/ecco/cost_gencost_boxmean.F 190 COST_GENCOST_BOXMEAN 
     &    'boxmean :',irec,tmpMeanGlo
./pkg/ecco/cost_gencost_boxmean.F 207 COST_GENCOST_BOXMEAN 
     &    'boxmean fc :',irec,myMeanGlo
./pkg/ecco/cost_gencost_boxmean.F 55 COST_GENCOST_BOXMEAN 
      integer irec,il
./pkg/ecco/cost_gencost_seaicev4.F 252 COST_GENCOST_SEAICEV4 
      do irec = 1, nrecloc
./pkg/ecco/cost_gencost_seaicev4.F 254 COST_GENCOST_SEAICEV4 
           call ACTIVE_READ_XY( fname1, areabbbar, irec, doglobalread,
./pkg/ecco/cost_gencost_seaicev4.F 258 COST_GENCOST_SEAICEV4 
           call ACTIVE_READ_XY( fname2, exconcbbbar, irec,doglobalread,
./pkg/ecco/cost_gencost_seaicev4.F 262 COST_GENCOST_SEAICEV4 
           call ACTIVE_READ_XY( fname3, deconcbbbar, irec,doglobalread,
./pkg/ecco/cost_gencost_seaicev4.F 268 COST_GENCOST_SEAICEV4 
           obsrec = irec
./pkg/ecco/cost_gencost_seaicev4.F 269 COST_GENCOST_SEAICEV4 
           daytime = FLOAT(secondsperday*(irec-1))
./pkg/ecco/cost_gencost_seaicev4.F 270 COST_GENCOST_SEAICEV4 
           dayiter = hoursperday*(irec-1)
./pkg/ecco/cost_gencost_seaicev4.F 293 COST_GENCOST_SEAICEV4 
     &         + irec
./pkg/ecco/cost_gencost_seaicev4.F 296 COST_GENCOST_SEAICEV4 
           yday   = mody + INT((modm-1+irec-1)/12)
./pkg/ecco/cost_gencost_seaicev4.F 297 COST_GENCOST_SEAICEV4 
           localrec = 1 + MOD(modm-1+irec-1,12)
./pkg/ecco/cost_gencost_seaicev4.F 83 COST_GENCOST_SEAICEV4 
      integer irec
./pkg/ecco/cost_gencost_sshv4.F 1002 COST_GENCOST_SSHV4 
     & 1,anom_psMslaobs_SUB,irec,1,mythid)
./pkg/ecco/cost_gencost_sshv4.F 1006 COST_GENCOST_SSHV4 
     & 1,anom_slaobs_SUB,irec,1,mythid)
./pkg/ecco/cost_gencost_sshv4.F 1028 COST_GENCOST_SSHV4 
        krec = irec + (ndaysave/2)
./pkg/ecco/cost_gencost_sshv4.F 1109 COST_GENCOST_SSHV4 
     & 1,anom_psMtpobs,irec,1,mythid)
./pkg/ecco/cost_gencost_sshv4.F 1112 COST_GENCOST_SSHV4 
     & 1,anom_psMersobs,irec,1,mythid)
./pkg/ecco/cost_gencost_sshv4.F 1115 COST_GENCOST_SSHV4 
     & 1,anom_psMgfoobs,irec,1,mythid)
./pkg/ecco/cost_gencost_sshv4.F 1119 COST_GENCOST_SSHV4 
     & 1,anom_tpobs,irec,1,mythid)
./pkg/ecco/cost_gencost_sshv4.F 1122 COST_GENCOST_SSHV4 
     & 1,anom_ersobs,irec,1,mythid)
./pkg/ecco/cost_gencost_sshv4.F 1125 COST_GENCOST_SSHV4 
     & 1,anom_gfoobs,irec,1,mythid)
./pkg/ecco/cost_gencost_sshv4.F 403 COST_GENCOST_SSHV4 
      do irec = 1, ndaysrec
./pkg/ecco/cost_gencost_sshv4.F 405 COST_GENCOST_SSHV4 
        call ACTIVE_READ_XY( fname, psbar, irec, doglobalread,
./pkg/ecco/cost_gencost_sshv4.F 418 COST_GENCOST_SSHV4 
     &                irec, mythid )
./pkg/ecco/cost_gencost_sshv4.F 424 COST_GENCOST_SSHV4 
     &                irec, mythid )
./pkg/ecco/cost_gencost_sshv4.F 430 COST_GENCOST_SSHV4 
     &                irec, mythid )
./pkg/ecco/cost_gencost_sshv4.F 732 COST_GENCOST_SSHV4 
      do irec = 1, ndaysrec-ndaysave+1
./pkg/ecco/cost_gencost_sshv4.F 754 COST_GENCOST_SSHV4 
        krec=irec+jrec-1
./pkg/ecco/cost_gencost_sshv4.F 81 COST_GENCOST_SSHV4 
      integer irec,jrec,krec
./pkg/ecco/cost_gencost_sshv4.F 936 COST_GENCOST_SSHV4 
     & 1,anom_psMslaobs,irec,1,mythid)
./pkg/ecco/cost_gencost_sshv4.F 940 COST_GENCOST_SSHV4 
     & 1,anom_slaobs,irec,1,mythid)
./pkg/ecco/cost_gencost_sshv4.F 960 COST_GENCOST_SSHV4 
     & 1,anom_psMslaobs,irec,1,mythid)
./pkg/ecco/cost_gencost_sshv4.F 964 COST_GENCOST_SSHV4 
     & 1,anom_slaobs,irec,1,mythid)
./pkg/ecco/cost_gencost_sstv4.F 157 COST_GENCOST_SSTV4 
      do irec = 1, ndaysrec-ndaysave+1, 7
./pkg/ecco/cost_gencost_sstv4.F 177 COST_GENCOST_SSTV4 
           krec=irec+jrec-1
./pkg/ecco/cost_gencost_sstv4.F 277 COST_GENCOST_SSTV4 
     &     1,anom_sst,irec,1,mythid)
./pkg/ecco/cost_gencost_sstv4.F 281 COST_GENCOST_SSTV4 
     &     1,obs_sst,irec,1,mythid)
./pkg/ecco/cost_gencost_sstv4.F 295 COST_GENCOST_SSTV4 
     &     1,anom_sst,irec,1,mythid)
./pkg/ecco/cost_gencost_sstv4.F 299 COST_GENCOST_SSTV4 
     &     1,obs_sst,irec,1,mythid)
./pkg/ecco/cost_gencost_sstv4.F 329 COST_GENCOST_SSTV4 
      do irec = 1, ndaysrec
./pkg/ecco/cost_gencost_sstv4.F 332 COST_GENCOST_SSTV4 
        call ACTIVE_READ_XY( fname, sstbar, irec, doglobalread,
./pkg/ecco/cost_gencost_sstv4.F 337 COST_GENCOST_SSTV4 
             daytime = FLOAT(secondsperday*(irec-1)) + modelstart
./pkg/ecco/cost_gencost_sstv4.F 338 COST_GENCOST_SSTV4 
             dayiter = hoursperday*(irec-1)+modeliter0
./pkg/ecco/cost_gencost_sstv4.F 407 COST_GENCOST_SSTV4 
     &     1,anom_sst,irec,1,mythid)
./pkg/ecco/cost_gencost_sstv4.F 63 COST_GENCOST_SSTV4 
      integer irec,jrec,krec
./pkg/ecco/cost_generic.F 183 COST_GENERIC 
      do irec = 1, nrecloc
./pkg/ecco/cost_generic.F 186 COST_GENERIC 
           call ACTIVE_READ_XY( fname1, localbar, irec, doglobalread,
./pkg/ecco/cost_generic.F 190 COST_GENERIC 
           call ACTIVE_READ_XYZ( fname1, localbar, irec, doglobalread,
./pkg/ecco/cost_generic.F 198 COST_GENERIC 
           obsrec = irec
./pkg/ecco/cost_generic.F 199 COST_GENERIC 
           daytime = FLOAT(secondsperday*(irec-1)) + modelstart
./pkg/ecco/cost_generic.F 200 COST_GENERIC 
           dayiter = hoursperday*(irec-1) + modeliter0
./pkg/ecco/cost_generic.F 225 COST_GENERIC 
     &         + irec
./pkg/ecco/cost_generic.F 228 COST_GENERIC 
           yday   = mody + INT((modm-1+irec-1)/12)
./pkg/ecco/cost_generic.F 229 COST_GENERIC 
           localrec = 1 + MOD(modm-1+irec-1,12)
./pkg/ecco/cost_generic.F 79 COST_GENERIC 
      integer irec
./pkg/ecco/cost_ies.F 118 COST_IES 
      do irec = 1,ndaysrec
./pkg/ecco/cost_ies.F 121 COST_IES 
        call ACTIVE_READ_XY( fname, iestaubar, irec, doglobalread,
./pkg/ecco/cost_ies.F 125 COST_IES 
        call COST_IES_READ( irec, mythid )
./pkg/ecco/cost_ies.F 180 COST_IES 
      do irec = 1, ndaysrec
./pkg/ecco/cost_ies.F 182 COST_IES 
        call ACTIVE_READ_XY( fname, iestaubar, irec, doglobalread,
./pkg/ecco/cost_ies.F 186 COST_IES 
        call COST_IES_READ( irec, mythid )
./pkg/ecco/cost_ies.F 61 COST_IES 
      integer irec
./pkg/ecco/cost_ies_read.F 101 COST_IES_READ 
     &                   iesdat, irec, mythid )
./pkg/ecco/cost_ies_read.F 38 COST_IES_READ 
      integer irec
./pkg/ecco/cost_ies_read.F 8 COST_IES_READ 
     I                               irec,
./pkg/ecco/cost_kapgm.F 134 COST_KAPGM 
     &        ' cost_kapgm: irec,bi,bj          =  ',irec,bi,bj
./pkg/ecco/cost_kapgm.F 153 COST_KAPGM 
     &    ' cost_kapgm:                       irec =  ',irec
./pkg/ecco/cost_kapgm.F 50 COST_KAPGM 
      integer irec
./pkg/ecco/cost_kapgm.F 84 COST_KAPGM 
      irec = 1
./pkg/ecco/cost_kapgm.F 96 COST_KAPGM 
      call ACTIVE_READ_XYZ( fnamefld, tmpfld3d, irec, doglobalread,
./pkg/ecco/cost_kapredi.F 134 COST_KAPREDI 
     &        ' cost_kapredi: irec,bi,bj          =  ',irec,bi,bj
./pkg/ecco/cost_kapredi.F 153 COST_KAPREDI 
     &    ' cost_kapredi:                       irec =  ',irec
./pkg/ecco/cost_kapredi.F 50 COST_KAPREDI 
      integer irec
./pkg/ecco/cost_kapredi.F 84 COST_KAPREDI 
      irec = 1
./pkg/ecco/cost_kapredi.F 96 COST_KAPREDI 
      call ACTIVE_READ_XYZ( fnamefld, tmpfld3d, irec, doglobalread,
./pkg/ecco/cost_mean_heatflux.F 101 COST_MEAN_HEATFLUX 
      do irec = 1, MAX(1,nyearsrec)
./pkg/ecco/cost_mean_heatflux.F 104 COST_MEAN_HEATFLUX 
        call ACTIVE_READ_XY( fnamehflux, tmpfld2d, irec,
./pkg/ecco/cost_mean_heatflux.F 143 COST_MEAN_HEATFLUX 
     &      ' --> bal_hfluxmm    =', irec,
./pkg/ecco/cost_mean_heatflux.F 56 COST_MEAN_HEATFLUX 
      integer irec
./pkg/ecco/cost_mean_saltflux.F 101 COST_MEAN_SALTFLUX 
      do irec = 1, MAX(1,nyearsrec)
./pkg/ecco/cost_mean_saltflux.F 104 COST_MEAN_SALTFLUX 
        call ACTIVE_READ_XY( fnamesflux, tmpfld2d, irec,
./pkg/ecco/cost_mean_saltflux.F 143 COST_MEAN_SALTFLUX 
     &      ' --> bal_sfluxmm    =', irec,
./pkg/ecco/cost_mean_saltflux.F 56 COST_MEAN_SALTFLUX 
      integer irec
./pkg/ecco/cost_obcs_ageos.F 176 COST_OBCS_AGEOS 
      do irec = 1,nmonsrec
./pkg/ecco/cost_obcs_ageos.F 179 COST_OBCS_AGEOS 
        call ACTIVE_READ_XYZ( fnametheta, tbar, irec,
./pkg/ecco/cost_obcs_ageos.F 185 COST_OBCS_AGEOS 
        call ACTIVE_READ_XYZ( fnamesalt, sbar, irec,
./pkg/ecco/cost_obcs_ageos.F 191 COST_OBCS_AGEOS 
        call ACTIVE_READ_XYZ( fnameuvel, ubar, irec,
./pkg/ecco/cost_obcs_ageos.F 197 COST_OBCS_AGEOS 
        call ACTIVE_READ_XYZ( fnamevvel, vbar, irec,
./pkg/ecco/cost_obcs_ageos.F 493 COST_OBCS_AGEOS 
     &        ' cost_Theta: irec,bi,bj          =  ',irec,bi,bj
./pkg/ecco/cost_obcs_ageos.F 516 COST_OBCS_AGEOS 
     &    ' cost_Theta: irec = ',irec
./pkg/ecco/cost_obcs_ageos.F 57 COST_OBCS_AGEOS 
      integer irec
./pkg/ecco/cost_obcse.F 146 COST_OBCSE 
      do irec = 1,nrec
./pkg/ecco/cost_obcse.F 148 COST_OBCSE 
        call ACTIVE_READ_YZ( fnamefld, tmpfield, irec, doglobalread,
./pkg/ecco/cost_obcse.F 153 COST_OBCSE 
          gg    = (irec-1)/nobcs
./pkg/ecco/cost_obcse.F 155 COST_OBCSE 
          iobcs = irec - igg*nobcs
./pkg/ecco/cost_obcse.F 196 COST_OBCSE 
     &    ' cost_obcse: irec = ',irec
./pkg/ecco/cost_obcse.F 74 COST_OBCSE 
      integer irec
./pkg/ecco/cost_obcsn.F 144 COST_OBCSN 
      do irec = 1,nrec
./pkg/ecco/cost_obcsn.F 146 COST_OBCSN 
        call ACTIVE_READ_XZ( fnamefld, tmpfield, irec, doglobalread,
./pkg/ecco/cost_obcsn.F 151 COST_OBCSN 
          gg    = (irec-1)/nobcs
./pkg/ecco/cost_obcsn.F 153 COST_OBCSN 
          iobcs = irec - igg*nobcs
./pkg/ecco/cost_obcsn.F 195 COST_OBCSN 
     &    ' cost_obcsn: irec = ',irec
./pkg/ecco/cost_obcsn.F 74 COST_OBCSN 
      integer irec
./pkg/ecco/cost_obcss.F 144 COST_OBCSS 
      do irec = 1,nrec
./pkg/ecco/cost_obcss.F 146 COST_OBCSS 
        call ACTIVE_READ_XZ( fnamefld, tmpfield, irec, doglobalread,
./pkg/ecco/cost_obcss.F 151 COST_OBCSS 
          gg    = (irec-1)/nobcs
./pkg/ecco/cost_obcss.F 153 COST_OBCSS 
          iobcs = irec - igg*nobcs
./pkg/ecco/cost_obcss.F 197 COST_OBCSS 
     &    ' cost_obcss: irec = ',irec
./pkg/ecco/cost_obcss.F 74 COST_OBCSS 
      integer irec
./pkg/ecco/cost_obcsvol.F 173 COST_OBCSVOL 
      do irec = 1,nrec
./pkg/ecco/cost_obcsvol.F 177 COST_OBCSVOL 
        gg   = (irec-1)/nobcs
./pkg/ecco/cost_obcsvol.F 179 COST_OBCSVOL 
        iobcs = irec - igg*nobcs
./pkg/ecco/cost_obcsvol.F 185 COST_OBCSVOL 
          call ACTIVE_READ_XZ( fnamefldn, tmpfldxz, irec, doglobalread,
./pkg/ecco/cost_obcsvol.F 228 COST_OBCSVOL 
          call ACTIVE_READ_XZ( fnameflds, tmpfldxz, irec, doglobalread,
./pkg/ecco/cost_obcsvol.F 271 COST_OBCSVOL 
          call ACTIVE_READ_YZ( fnamefldw, tmpfldyz, irec, doglobalread,
./pkg/ecco/cost_obcsvol.F 314 COST_OBCSVOL 
          call ACTIVE_READ_YZ( fnameflde, tmpfldyz, irec, doglobalread,
./pkg/ecco/cost_obcsvol.F 59 COST_OBCSVOL 
      integer irec
./pkg/ecco/cost_obcsw.F 144 COST_OBCSW 
      do irec = 1,nrec
./pkg/ecco/cost_obcsw.F 146 COST_OBCSW 
        call ACTIVE_READ_YZ( fnamefld, tmpfield, irec, doglobalread,
./pkg/ecco/cost_obcsw.F 151 COST_OBCSW 
          gg    = (irec-1)/nobcs
./pkg/ecco/cost_obcsw.F 153 COST_OBCSW 
          iobcs = irec - igg*nobcs
./pkg/ecco/cost_obcsw.F 194 COST_OBCSW 
     &    ' cost_obcsw: irec = ',irec
./pkg/ecco/cost_obcsw.F 74 COST_OBCSW 
      integer irec
./pkg/ecco/cost_readargos.F 40 COST_READARGOS 
      integer irec
./pkg/ecco/cost_readargos.F 77 COST_READARGOS 
     &           mod(argosstartdate(1)/100,100) + irec
./pkg/ecco/cost_readargos.F 81 COST_READARGOS 
     &            1) + mod(modelstartdate(1)/100,100) - 1 + irec
./pkg/ecco/cost_readargos.F 8 COST_READARGOS 
     I                               irec,
./pkg/ecco/cost_readargot.F 40 COST_READARGOT 
      integer irec
./pkg/ecco/cost_readargot.F 77 COST_READARGOT 
     &           mod(argotstartdate(1)/100,100) + irec
./pkg/ecco/cost_readargot.F 81 COST_READARGOT 
     &            1) + mod(modelstartdate(1)/100,100) - 1 + irec
./pkg/ecco/cost_readargot.F 8 COST_READARGOT 
     I                               irec,
./pkg/ecco/cost_readers.F 172 COST_READERS 
     &               ( ersintercept + ersslope*irec*hoursperday ) )
./pkg/ecco/cost_readers.F 40 COST_READERS 
      integer irec
./pkg/ecco/cost_readers.F 7 COST_READERS 
      subroutine COST_READERS( irec, mythid )
./pkg/ecco/cost_readers.F 92 COST_READERS 
      daytime = FLOAT(secondsperday*(irec-1)) + modelstart
./pkg/ecco/cost_readers.F 93 COST_READERS 
      dayiter = hoursperday*(irec-1)+modeliter0
./pkg/ecco/cost_readgfo.F 171 COST_READGFO 
     &               ( gfointercept + gfoslope*irec*hoursperday ) )
./pkg/ecco/cost_readgfo.F 40 COST_READGFO 
      integer irec
./pkg/ecco/cost_readgfo.F 7 COST_READGFO 
      subroutine COST_READGFO( irec, mythid )
./pkg/ecco/cost_readgfo.F 92 COST_READGFO 
      daytime = FLOAT(secondsperday*(irec-1)) + modelstart
./pkg/ecco/cost_readgfo.F 93 COST_READGFO 
      dayiter = hoursperday*(irec-1)+modeliter0
./pkg/ecco/cost_readscatxfields.F 116 COST_READSCATXFIELDS 
     &         + irec
./pkg/ecco/cost_readscatxfields.F 119 COST_READSCATXFIELDS 
           yday   = mody + INT((modm-1+irec-1)/12)
./pkg/ecco/cost_readscatxfields.F 120 COST_READSCATXFIELDS 
           localrec = 1 + MOD(modm-1+irec-1,12)
./pkg/ecco/cost_readscatxfields.F 123 COST_READSCATXFIELDS 
           obsrec = irec
./pkg/ecco/cost_readscatxfields.F 124 COST_READSCATXFIELDS 
           daytime = FLOAT(secondsperday*(irec-1)) + modelstart
./pkg/ecco/cost_readscatxfields.F 125 COST_READSCATXFIELDS 
           dayiter = hoursperday*(irec-1) + modeliter0
./pkg/ecco/cost_readscatxfields.F 43 COST_READSCATXFIELDS 
      integer irec
./pkg/ecco/cost_readscatxfields.F 8 COST_READSCATXFIELDS 
     I                               irec,
./pkg/ecco/cost_readscatyfields.F 116 COST_READSCATYFIELDS 
     &         + irec
./pkg/ecco/cost_readscatyfields.F 119 COST_READSCATYFIELDS 
           yday   = mody + INT((modm-1+irec-1)/12)
./pkg/ecco/cost_readscatyfields.F 120 COST_READSCATYFIELDS 
           localrec = 1 + MOD(modm-1+irec-1,12)
./pkg/ecco/cost_readscatyfields.F 123 COST_READSCATYFIELDS 
           obsrec = irec
./pkg/ecco/cost_readscatyfields.F 124 COST_READSCATYFIELDS 
           daytime = FLOAT(secondsperday*(irec-1)) +modelstart
./pkg/ecco/cost_readscatyfields.F 125 COST_READSCATYFIELDS 
           dayiter = hoursperday*(irec-1) +modeliter0
./pkg/ecco/cost_readscatyfields.F 43 COST_READSCATYFIELDS 
      integer irec
./pkg/ecco/cost_readscatyfields.F 8 COST_READSCATYFIELDS 
     I                               irec,
./pkg/ecco/cost_readtopex.F 101 COST_READTOPEX 
      daytime = FLOAT(secondsperday*(irec-1)) + modelstart
./pkg/ecco/cost_readtopex.F 102 COST_READTOPEX 
      dayiter = hoursperday*(irec-1)+modeliter0
./pkg/ecco/cost_readtopex.F 199 COST_READTOPEX 
     &               ( topexintercept + topexslope*irec*hoursperday ) )
./pkg/ecco/cost_readtopex.F 40 COST_READTOPEX 
      integer irec
./pkg/ecco/cost_readtopex.F 7 COST_READTOPEX 
      subroutine COST_READTOPEX( irec, mythid )
./pkg/ecco/cost_salt.F 117 COST_SALT 
      do irec = 1,min(nmonsrec,12)
./pkg/ecco/cost_salt.F 118 COST_SALT 
         nyears=int((nmonsrec-irec)/12)+1
./pkg/ecco/cost_salt.F 131 COST_SALT 
            mrec=irec+(iyear-1)*12
./pkg/ecco/cost_salt.F 153 COST_SALT 
      do irec = 1,nmonsrec
./pkg/ecco/cost_salt.F 155 COST_SALT 
        irectmp=irec
./pkg/ecco/cost_salt.F 157 COST_SALT 
        call ACTIVE_READ_XYZ( fnamesalt, sbar, irec,
./pkg/ecco/cost_salt.F 64 COST_SALT 
      integer irec, irectmp
./pkg/ecco/cost_salt0.F 105 COST_SALT0 
      call ACTIVE_READ_XYZ( fnamefld, tmpfld3d, irec, doglobalread,
./pkg/ecco/cost_salt0.F 146 COST_SALT0 
     &     fnamefld, tmpfld3d, irec, doglobalread,
./pkg/ecco/cost_salt0.F 59 COST_SALT0 
      integer irec
./pkg/ecco/cost_salt0.F 95 COST_SALT0 
      irec = 1
./pkg/ecco/cost_salt_ini_fin.F 129 COST_SALT_INI_FIN 
     &        ' cost_salt_ini_fin: irec,bi,bj          =  ',irec,bi,bj
./pkg/ecco/cost_salt_ini_fin.F 148 COST_SALT_INI_FIN 
     &    ' cost_:                       irec =  ',irec
./pkg/ecco/cost_salt_ini_fin.F 51 COST_SALT_INI_FIN 
      integer irec
./pkg/ecco/cost_salt_ini_fin.F 85 COST_SALT_INI_FIN 
      irec = 1
./pkg/ecco/cost_salt_ini_fin.F 95 COST_SALT_INI_FIN 
      call ACTIVE_READ_XYZ( fnamefld, tmpfld3d, irec, doglobalread,
./pkg/ecco/cost_scat.F 116 COST_SCAT 
      do irec = 1,nmonsrec
./pkg/ecco/cost_scat.F 118 COST_SCAT 
      do irec = 1,ndaysrec
./pkg/ecco/cost_scat.F 121 COST_SCAT 
        call ACTIVE_READ_XY( fnametaux, tauxbar, irec,
./pkg/ecco/cost_scat.F 126 COST_SCAT 
        call ACTIVE_READ_XY( fnametauy, tauybar, irec,
./pkg/ecco/cost_scat.F 160 COST_SCAT 
            call COST_READSCATXFIELDS( irec, mythid )
./pkg/ecco/cost_scat.F 180 COST_SCAT 
            call COST_READSCATYFIELDS( irec, mythid )
./pkg/ecco/cost_scat.F 210 COST_SCAT 
     &        ' cost_scat: irec,bi,bj          =  ',irec,bi,bj
./pkg/ecco/cost_scat.F 230 COST_SCAT 
     &    ' cost_scatx: irec = ',irec
./pkg/ecco/cost_scat.F 55 COST_SCAT 
      integer irec
./pkg/ecco/cost_sigmar.F 119 COST_SIGMAR 
      do irec = 1,min(nmonsrec,12)
./pkg/ecco/cost_sigmar.F 120 COST_SIGMAR 
         nyears=int((nmonsrec-irec)/12)+1
./pkg/ecco/cost_sigmar.F 133 COST_SIGMAR 
            mrec=irec+(iyear-1)*12
./pkg/ecco/cost_sigmar.F 65 COST_SIGMAR 
      integer irec, irectmp
./pkg/ecco/cost_sla_read.F 10 COST_SLA_READ 
     I                irec, mythid )
./pkg/ecco/cost_sla_read.F 168 COST_SLA_READ 
     &               ( sla_intercept + sla_slope*irec*hoursperday ) )
./pkg/ecco/cost_sla_read.F 38 COST_SLA_READ 
      integer irec
./pkg/ecco/cost_sla_read.F 97 COST_SLA_READ 
      daytime = FLOAT(secondsperday*(irec-1)) + modelstart
./pkg/ecco/cost_sla_read.F 98 COST_SLA_READ 
      dayiter = hoursperday*(irec-1)+modeliter0
./pkg/ecco/cost_ssh.F 140 COST_SSH 
      do irec = 1, ndaysrec
./pkg/ecco/cost_ssh.F 143 COST_SSH 
        call ACTIVE_READ_XY( fname, psbar, irec, doglobalread,
./pkg/ecco/cost_ssh.F 240 COST_SSH 
      do irec = 1, ndaysrec
./pkg/ecco/cost_ssh.F 242 COST_SSH 
        call ACTIVE_READ_XY( fname, psbar, irec, doglobalread,
./pkg/ecco/cost_ssh.F 247 COST_SSH 
        call COST_READTOPEX( irec, mythid )
./pkg/ecco/cost_ssh.F 251 COST_SSH 
        call COST_READERS( irec, mythid )
./pkg/ecco/cost_ssh.F 255 COST_SSH 
        call COST_READGFO( irec, mythid )
./pkg/ecco/cost_ssh.F 68 COST_SSH 
      integer irec
./pkg/ecco/cost_ssh_new.F 155 COST_SSH_NEW 
      do irec = 1, ndaysrec
./pkg/ecco/cost_ssh_new.F 158 COST_SSH_NEW 
        call ACTIVE_READ_XY( fname, psbar, irec, doglobalread,
./pkg/ecco/cost_ssh_new.F 165 COST_SSH_NEW 
        call COST_READTOPEX( irec, mythid )
./pkg/ecco/cost_ssh_new.F 170 COST_SSH_NEW 
        call COST_READERS( irec, mythid )
./pkg/ecco/cost_ssh_new.F 175 COST_SSH_NEW 
        call COST_READGFO( irec, mythid )
./pkg/ecco/cost_ssh_new.F 186 COST_SSH_NEW 
     &               *tpTimeMask(irec) .NE. 0. ) then
./pkg/ecco/cost_ssh_new.F 194 COST_SSH_NEW 
     &               *ersTimeMask(irec) .NE. 0. ) then
./pkg/ecco/cost_ssh_new.F 202 COST_SSH_NEW 
     &               *gfoTimeMask(irec) .NE. 0. ) then
./pkg/ecco/cost_ssh_new.F 325 COST_SSH_NEW 
      do irec = 1, ndaysrec
./pkg/ecco/cost_ssh_new.F 327 COST_SSH_NEW 
        call ACTIVE_READ_XY( fname, psbar, irec, doglobalread,
./pkg/ecco/cost_ssh_new.F 332 COST_SSH_NEW 
        call COST_READTOPEX( irec, mythid )
./pkg/ecco/cost_ssh_new.F 335 COST_SSH_NEW 
        call COST_READERS( irec, mythid )
./pkg/ecco/cost_ssh_new.F 338 COST_SSH_NEW 
        call COST_READGFO( irec, mythid )
./pkg/ecco/cost_ssh_new.F 68 COST_SSH_NEW 
      integer irec
./pkg/ecco/cost_sshv4.F 363 COST_SSHV4 
      do irec = 1, ndaysrec
./pkg/ecco/cost_sshv4.F 365 COST_SSHV4 
        call ACTIVE_READ_XY( fname, psbar, irec, doglobalread,
./pkg/ecco/cost_sshv4.F 373 COST_SSHV4 
     &                irec, mythid )
./pkg/ecco/cost_sshv4.F 379 COST_SSHV4 
     &                irec, mythid )
./pkg/ecco/cost_sshv4.F 385 COST_SSHV4 
     &                irec, mythid )
./pkg/ecco/cost_sshv4.F 649 COST_SSHV4 
      do irec = 1, ndaysrec-ndaysave+1, 7
./pkg/ecco/cost_sshv4.F 674 COST_SSHV4 
        krec=irec+jrec-1
./pkg/ecco/cost_sshv4.F 74 COST_SSHV4 
      integer irec,jrec,krec
./pkg/ecco/cost_sshv4.F 809 COST_SSHV4 
     & 1,anom_psMslaobs,irec,1,mythid)
./pkg/ecco/cost_sshv4.F 813 COST_SSHV4 
     & 1,anom_slaobs,irec,1,mythid)
./pkg/ecco/cost_sshv4.F 831 COST_SSHV4 
     & 1,anom_psMslaobs,irec,1,mythid)
./pkg/ecco/cost_sshv4.F 835 COST_SSHV4 
     & 1,anom_slaobs,irec,1,mythid)
./pkg/ecco/cost_sshv4.F 871 COST_SSHV4 
      do irec = 1, ndaysrec
./pkg/ecco/cost_sshv4.F 873 COST_SSHV4 
        call ACTIVE_READ_XY( fname, psbar, irec, doglobalread,
./pkg/ecco/cost_sshv4.F 878 COST_SSHV4 
        call COST_READTOPEX( irec, mythid )
./pkg/ecco/cost_sshv4.F 881 COST_SSHV4 
        call COST_READERS( irec, mythid )
./pkg/ecco/cost_sshv4.F 884 COST_SSHV4 
        call COST_READGFO( irec, mythid )
./pkg/ecco/cost_sshv4.F 941 COST_SSHV4 
     & 1,anom_psMtpobs,irec,1,mythid)
./pkg/ecco/cost_sshv4.F 944 COST_SSHV4 
     & 1,anom_psMersobs,irec,1,mythid)
./pkg/ecco/cost_sshv4.F 947 COST_SSHV4 
     & 1,anom_psMgfoobs,irec,1,mythid)
./pkg/ecco/cost_sshv4.F 951 COST_SSHV4 
     & 1,anom_tpobs,irec,1,mythid)
./pkg/ecco/cost_sshv4.F 954 COST_SSHV4 
     & 1,anom_ersobs,irec,1,mythid)
./pkg/ecco/cost_sshv4.F 957 COST_SSHV4 
     & 1,anom_gfoobs,irec,1,mythid)
./pkg/ecco/cost_tau_eddy.F 102 COST_TAU_EDDY 
      call ACTIVE_READ_XYZ( fnamefld, tmpfld3d, irec, doglobalread,
./pkg/ecco/cost_tau_eddy.F 137 COST_TAU_EDDY 
      call ACTIVE_READ_XYZ( fnamefld, tmpfld3d, irec, doglobalread,
./pkg/ecco/cost_tau_eddy.F 171 COST_TAU_EDDY 
     &        ' cost_tau_eddy: irec,bi,bj          =  ',irec,bi,bj
./pkg/ecco/cost_tau_eddy.F 190 COST_TAU_EDDY 
     &    ' cost_:                       irec =  ',irec
./pkg/ecco/cost_tau_eddy.F 50 COST_TAU_EDDY 
      integer irec
./pkg/ecco/cost_tau_eddy.F 93 COST_TAU_EDDY 
      irec = 1
./pkg/ecco/cost_theta.F 117 COST_THETA 
      do irec = 1,min(nmonsrec,12)
./pkg/ecco/cost_theta.F 118 COST_THETA 
         nyears=int((nmonsrec-irec)/12)+1
./pkg/ecco/cost_theta.F 131 COST_THETA 
            mrec=irec+(iyear-1)*12
./pkg/ecco/cost_theta.F 153 COST_THETA 
      do irec = 1,nmonsrec
./pkg/ecco/cost_theta.F 155 COST_THETA 
        irectmp = irec
./pkg/ecco/cost_theta.F 157 COST_THETA 
        call ACTIVE_READ_XYZ( fnametheta, tbar, irec,
./pkg/ecco/cost_theta.F 65 COST_THETA 
      integer irec, irectmp
./pkg/ecco/cost_theta0.F 106 COST_THETA0 
     &     fnamefld, tmpfld3d, irec, doglobalread,
./pkg/ecco/cost_theta0.F 146 COST_THETA0 
     &     fnamefld, tmpfld3d, irec, doglobalread,
./pkg/ecco/cost_theta0.F 59 COST_THETA0 
      integer irec
./pkg/ecco/cost_theta0.F 95 COST_THETA0 
      irec = 1
./pkg/ecco/cost_theta_ini_fin.F 129 COST_THETA_INI_FIN 
     &        ' cost_theta_ini_fin: irec,bi,bj          =  ',irec,bi,bj
./pkg/ecco/cost_theta_ini_fin.F 148 COST_THETA_INI_FIN 
     &    ' cost_:                       irec =  ',irec
./pkg/ecco/cost_theta_ini_fin.F 51 COST_THETA_INI_FIN 
      integer irec
./pkg/ecco/cost_theta_ini_fin.F 85 COST_THETA_INI_FIN 
      irec = 1
./pkg/ecco/cost_theta_ini_fin.F 95 COST_THETA_INI_FIN 
      call ACTIVE_READ_XYZ( fnamefld, tmpfld3d, irec, doglobalread,
./pkg/ecco/cost_trans_merid.F 162 COST_TRANS_MERID 
      do irec = 1, nmonsrec
./pkg/ecco/cost_trans_merid.F 164 COST_TRANS_MERID 
        call ACTIVE_READ_XYZ( fnametheta, tbar, irec,
./pkg/ecco/cost_trans_merid.F 169 COST_TRANS_MERID 
        call ACTIVE_READ_XYZ( fnamesalt, sbar, irec,
./pkg/ecco/cost_trans_merid.F 174 COST_TRANS_MERID 
        call ACTIVE_READ_XYZ( fnameuvel, ubar, irec,
./pkg/ecco/cost_trans_merid.F 179 COST_TRANS_MERID 
        call ACTIVE_READ_XYZ( fnamevvel, vbar, irec,
./pkg/ecco/cost_trans_merid.F 249 COST_TRANS_MERID 
     &       'ECCO_TRANS_MER ', isect, irec, kmin(isect), kmax(isect),
./pkg/ecco/cost_trans_merid.F 260 COST_TRANS_MERID 
     &       isect, irec, kmin(isect), kmax(isect),
./pkg/ecco/cost_trans_merid.F 57 COST_TRANS_MERID 
      integer irec
./pkg/ecco/cost_trans_zonal.F 151 COST_TRANS_ZONAL 
      do irec = 1, nmonsrec
./pkg/ecco/cost_trans_zonal.F 153 COST_TRANS_ZONAL 
        call ACTIVE_READ_XYZ( fnametheta, tbar, irec,
./pkg/ecco/cost_trans_zonal.F 158 COST_TRANS_ZONAL 
        call ACTIVE_READ_XYZ( fnamesalt, sbar, irec,
./pkg/ecco/cost_trans_zonal.F 163 COST_TRANS_ZONAL 
        call ACTIVE_READ_XYZ( fnameuvel, ubar, irec,
./pkg/ecco/cost_trans_zonal.F 168 COST_TRANS_ZONAL 
        call ACTIVE_READ_XYZ( fnamevvel, vbar, irec,
./pkg/ecco/cost_trans_zonal.F 238 COST_TRANS_ZONAL 
     &       'ECCO_TRANS_ZON ', isect, irec, kmin(isect), kmax(isect),
./pkg/ecco/cost_trans_zonal.F 249 COST_TRANS_ZONAL 
     &       isect, irec, kmin(isect), kmax(isect),
./pkg/ecco/cost_trans_zonal.F 57 COST_TRANS_ZONAL 
      integer irec
./pkg/ecco/cost_uvel0.F 106 COST_UVEL0 
     &     fnamefld, tmpfld3d, irec, doglobalread,
./pkg/ecco/cost_uvel0.F 59 COST_UVEL0 
      integer irec
./pkg/ecco/cost_uvel0.F 95 COST_UVEL0 
      irec = 1
./pkg/ecco/cost_vvel0.F 106 COST_VVEL0 
     &     fnamefld, tmpfld3d, irec, doglobalread,
./pkg/ecco/cost_vvel0.F 59 COST_VVEL0 
      integer irec
./pkg/ecco/cost_vvel0.F 95 COST_VVEL0 
      irec = 1
./pkg/ecco/cost_xbt.F 128 COST_XBT 
      do irec = 1,nmonsrec
./pkg/ecco/cost_xbt.F 131 COST_XBT 
        call ACTIVE_READ_XYZ( fnametheta, tbar, irec,
./pkg/ecco/cost_xbt.F 137 COST_XBT 
        iyear = mody + INT((modm-1+irec-1)/12)
./pkg/ecco/cost_xbt.F 138 COST_XBT 
        imonth = 1 + MOD(modm-1+irec-1,12)
./pkg/ecco/cost_xbt.F 145 COST_XBT 
            imonth = irec
./pkg/ecco/cost_xbt.F 209 COST_XBT 
     &        ' COST_XBT: irec,bi,bj            =  ',irec,bi,bj
./pkg/ecco/cost_xbt.F 231 COST_XBT 
     &    ' cost_XBT: irec =  ',irec
./pkg/ecco/cost_xbt.F 57 COST_XBT 
      integer irec
./pkg/ecco/ecco_check.F 192 ECCO_CHECK_FILES 
      INTEGER irec, mody, modm, yday, locy, il
./pkg/ecco/ecco_check.F 228 ECCO_CHECK_FILES 
        DO irec = 1, nmonsrec
./pkg/ecco/ecco_check.F 231 ECCO_CHECK_FILES 
           yday   = mody + INT((modm-1+irec-1)/12)
./pkg/ecco/ecco_cost_init_barfiles.F 148 ECCO_COST_INIT_BARFILES 
      do irec = 1, ndaysrec
./pkg/ecco/ecco_cost_init_barfiles.F 150 ECCO_COST_INIT_BARFILES 
        call ACTIVE_WRITE_XY( adfnamepsbar, tmpfld2d, irec,
./pkg/ecco/ecco_cost_init_barfiles.F 166 ECCO_COST_INIT_BARFILES 
      do irec = 1, nmonsrec
./pkg/ecco/ecco_cost_init_barfiles.F 168 ECCO_COST_INIT_BARFILES 
        call ACTIVE_WRITE_XY( adfnamebpbar, tmpfld2d, irec,
./pkg/ecco/ecco_cost_init_barfiles.F 183 ECCO_COST_INIT_BARFILES 
      do irec = 1,nmonsrec
./pkg/ecco/ecco_cost_init_barfiles.F 185 ECCO_COST_INIT_BARFILES 
        call ACTIVE_WRITE_XYZ( adfnamesigmaRbar, tmpfld3d, irec,
./pkg/ecco/ecco_cost_init_barfiles.F 204 ECCO_COST_INIT_BARFILES 
      do irec = 1,nmonsrec
./pkg/ecco/ecco_cost_init_barfiles.F 206 ECCO_COST_INIT_BARFILES 
        call ACTIVE_WRITE_XYZ( adfnametbar, tmpfld3d, irec,
./pkg/ecco/ecco_cost_init_barfiles.F 218 ECCO_COST_INIT_BARFILES 
      do irec = 1,nmonsrec
./pkg/ecco/ecco_cost_init_barfiles.F 220 ECCO_COST_INIT_BARFILES 
        call ACTIVE_WRITE_XY( adfnametbar, tmpfld2d, irec,
./pkg/ecco/ecco_cost_init_barfiles.F 236 ECCO_COST_INIT_BARFILES 
      do irec = 1,ndaysrec
./pkg/ecco/ecco_cost_init_barfiles.F 238 ECCO_COST_INIT_BARFILES 
         call ACTIVE_WRITE_XY( adfnamesstbar, tmpfld2d, irec,
./pkg/ecco/ecco_cost_init_barfiles.F 257 ECCO_COST_INIT_BARFILES 
      do irec = 1,nmonsrec
./pkg/ecco/ecco_cost_init_barfiles.F 259 ECCO_COST_INIT_BARFILES 
        call ACTIVE_WRITE_XYZ( adfnamesbar, tmpfld3d, irec,
./pkg/ecco/ecco_cost_init_barfiles.F 272 ECCO_COST_INIT_BARFILES 
      do irec = 1,nmonsrec
./pkg/ecco/ecco_cost_init_barfiles.F 274 ECCO_COST_INIT_BARFILES 
        call ACTIVE_WRITE_XY( adfnamesbar, tmpfld2d, irec,
./pkg/ecco/ecco_cost_init_barfiles.F 299 ECCO_COST_INIT_BARFILES 
      do irec = 1,nmonsrec
./pkg/ecco/ecco_cost_init_barfiles.F 301 ECCO_COST_INIT_BARFILES 
        call ACTIVE_WRITE_XYZ( adfnameubar, tmpfld3d, irec,
./pkg/ecco/ecco_cost_init_barfiles.F 303 ECCO_COST_INIT_BARFILES 
        call ACTIVE_WRITE_XYZ( adfnamevbar, tmpfld3d, irec,
./pkg/ecco/ecco_cost_init_barfiles.F 317 ECCO_COST_INIT_BARFILES 
      do irec = 1,nmonsrec
./pkg/ecco/ecco_cost_init_barfiles.F 319 ECCO_COST_INIT_BARFILES 
        call ACTIVE_WRITE_XYZ( adfnamewbar, tmpfld3d, irec,
./pkg/ecco/ecco_cost_init_barfiles.F 341 ECCO_COST_INIT_BARFILES 
      do irec = 1, nmonsrec
./pkg/ecco/ecco_cost_init_barfiles.F 343 ECCO_COST_INIT_BARFILES 
      do irec = 1, ndaysrec
./pkg/ecco/ecco_cost_init_barfiles.F 346 ECCO_COST_INIT_BARFILES 
        call ACTIVE_WRITE_XY( adfnametauxbar, tmpfld2d, irec,
./pkg/ecco/ecco_cost_init_barfiles.F 348 ECCO_COST_INIT_BARFILES 
        call ACTIVE_WRITE_XY( adfnametauybar, tmpfld2d, irec,
./pkg/ecco/ecco_cost_init_barfiles.F 363 ECCO_COST_INIT_BARFILES 
      do irec = 1, nyearsrec
./pkg/ecco/ecco_cost_init_barfiles.F 365 ECCO_COST_INIT_BARFILES 
        call ACTIVE_WRITE_XY( adfnamehfluxmeanbar, tmpfld2d, irec,
./pkg/ecco/ecco_cost_init_barfiles.F 379 ECCO_COST_INIT_BARFILES 
      do irec = 1, nyearsrec
./pkg/ecco/ecco_cost_init_barfiles.F 381 ECCO_COST_INIT_BARFILES 
        call ACTIVE_WRITE_XY( adfnamesfluxmeanbar, tmpfld2d, irec,
./pkg/ecco/ecco_cost_init_barfiles.F 410 ECCO_COST_INIT_BARFILES 
      do irec = 1, ndaysrec
./pkg/ecco/ecco_cost_init_barfiles.F 412 ECCO_COST_INIT_BARFILES 
        call ACTIVE_WRITE_XY( adfnamesmrareabar, tmpfld2d, irec,
./pkg/ecco/ecco_cost_init_barfiles.F 414 ECCO_COST_INIT_BARFILES 
        call ACTIVE_WRITE_XY( adfnamesmrsstbar, tmpfld3d, irec,
./pkg/ecco/ecco_cost_init_barfiles.F 416 ECCO_COST_INIT_BARFILES 
        call ACTIVE_WRITE_XY( adfnamesmrsssbar, tmpfld3d, irec,
./pkg/ecco/ecco_cost_init_barfiles.F 435 ECCO_COST_INIT_BARFILES 
      do irec = 1,gencost_nrec(k)
./pkg/ecco/ecco_cost_init_barfiles.F 437 ECCO_COST_INIT_BARFILES 
        call ACTIVE_WRITE_XY( adfname_gencostbar, tmpfld2d, irec,
./pkg/ecco/ecco_cost_init_barfiles.F 451 ECCO_COST_INIT_BARFILES 
      do irec = 1, ndaysrec
./pkg/ecco/ecco_cost_init_barfiles.F 453 ECCO_COST_INIT_BARFILES 
        call ACTIVE_WRITE_XY( adfnameiestaubar, tmpfld2d, irec,
./pkg/ecco/ecco_cost_init_barfiles.F 54 ECCO_COST_INIT_BARFILES 
      integer ilps, ils, ilt, irec
./pkg/ecco/ecco_cost_init_fixed.F 196 ECCO_COST_INIT_FIXED 
      do irec = 1, ndaysrec
./pkg/ecco/ecco_cost_init_fixed.F 197 ECCO_COST_INIT_FIXED 
       wtransp(irec)   = 0. _d 0
./pkg/ecco/ecco_cost_init_fixed.F 198 ECCO_COST_INIT_FIXED 
       transpobs(irec) = 0. _d 0
./pkg/ecco/ecco_cost_init_fixed.F 210 ECCO_COST_INIT_FIXED 
      do irec = 1, ndaysrec
./pkg/ecco/ecco_cost_init_fixed.F 215 ECCO_COST_INIT_FIXED 
         read(gwunit,*) transpobs(irec), dummy, wtransp(irec)
./pkg/ecco/ecco_cost_init_fixed.F 217 ECCO_COST_INIT_FIXED 
         if ( wtransp(irec) .NE. 0. )
./pkg/ecco/ecco_cost_init_fixed.F 218 ECCO_COST_INIT_FIXED 
     &        wtransp(irec) =1.0/(wtransp(irec)*wtransp(irec))
./pkg/ecco/ecco_cost_init_fixed.F 220 ECCO_COST_INIT_FIXED 
         if ( transpobs(irec) .EQ. missingObsFlag )
./pkg/ecco/ecco_cost_init_fixed.F 221 ECCO_COST_INIT_FIXED 
     &        wtransp(irec) = 0. _d 0
./pkg/ecco/ecco_cost_init_fixed.F 231 ECCO_COST_INIT_FIXED 
      do irec = 1, ndaysrec
./pkg/ecco/ecco_cost_init_fixed.F 232 ECCO_COST_INIT_FIXED 
       tpTimeMask(irec)  = 1. _d 0
./pkg/ecco/ecco_cost_init_fixed.F 233 ECCO_COST_INIT_FIXED 
       ersTimeMask(irec) = 1. _d 0
./pkg/ecco/ecco_cost_init_fixed.F 234 ECCO_COST_INIT_FIXED 
       gfoTimeMask(irec) = 1. _d 0
./pkg/ecco/ecco_cost_init_fixed.F 248 ECCO_COST_INIT_FIXED 
       do irec = 1, ndaysrec
./pkg/ecco/ecco_cost_init_fixed.F 249 ECCO_COST_INIT_FIXED 
        read(gwunit,*) tpTimeMask(irec)
./pkg/ecco/ecco_cost_init_fixed.F 263 ECCO_COST_INIT_FIXED 
       do irec = 1, ndaysrec
./pkg/ecco/ecco_cost_init_fixed.F 264 ECCO_COST_INIT_FIXED 
        read(gwunit,*) ersTimeMask(irec)
./pkg/ecco/ecco_cost_init_fixed.F 278 ECCO_COST_INIT_FIXED 
       do irec = 1, ndaysrec
./pkg/ecco/ecco_cost_init_fixed.F 279 ECCO_COST_INIT_FIXED 
        read(gwunit,*) gfoTimeMask(irec)
./pkg/ecco/ecco_cost_init_fixed.F 284 ECCO_COST_INIT_FIXED 
       do irec = 1, ndaysrec
./pkg/ecco/ecco_cost_init_fixed.F 286 ECCO_COST_INIT_FIXED 
     &   ( tpTimeMask(irec).NE.0. .AND. tpTimeMask(irec).NE.1. ) .OR.
./pkg/ecco/ecco_cost_init_fixed.F 287 ECCO_COST_INIT_FIXED 
     &   ( ersTimeMask(irec).NE.0. .AND. ersTimeMask(irec).NE.1. ) .OR.
./pkg/ecco/ecco_cost_init_fixed.F 288 ECCO_COST_INIT_FIXED 
     &   ( ersTimeMask(irec).NE.0. .AND. ersTimeMask(irec).NE.1. ) )
./pkg/ecco/ecco_cost_init_fixed.F 292 ECCO_COST_INIT_FIXED 
     &        'for irec (=day) ', irec
./pkg/ecco/ecco_cost_init_fixed.F 56 ECCO_COST_INIT_FIXED 
      integer irec,k
./pkg/ecco/ecco_cost_weights.F 1001 ECCO_COST_WEIGHTS 
     &        wtauv, irec, mythid )
./pkg/ecco/ecco_cost_weights.F 1034 ECCO_COST_WEIGHTS 
      irec  = 1
./pkg/ecco/ecco_cost_weights.F 1039 ECCO_COST_WEIGHTS 
     &      nnz, wvwind, irec, mythid )
./pkg/ecco/ecco_cost_weights.F 1067 ECCO_COST_WEIGHTS 
      irec  = 1
./pkg/ecco/ecco_cost_weights.F 1071 ECCO_COST_WEIGHTS 
     &      nnz, whflux, irec, mythid )
./pkg/ecco/ecco_cost_weights.F 1102 ECCO_COST_WEIGHTS 
      irec  = 1
./pkg/ecco/ecco_cost_weights.F 1106 ECCO_COST_WEIGHTS 
     &      nnz, watemp, irec, mythid )
./pkg/ecco/ecco_cost_weights.F 1136 ECCO_COST_WEIGHTS 
      irec  = 1
./pkg/ecco/ecco_cost_weights.F 1140 ECCO_COST_WEIGHTS 
     &      nnz, wsflux, irec, mythid )
./pkg/ecco/ecco_cost_weights.F 1171 ECCO_COST_WEIGHTS 
      irec  = 1
./pkg/ecco/ecco_cost_weights.F 1175 ECCO_COST_WEIGHTS 
     &        waqh, irec, mythid )
./pkg/ecco/ecco_cost_weights.F 1203 ECCO_COST_WEIGHTS 
      irec  = 1
./pkg/ecco/ecco_cost_weights.F 1207 ECCO_COST_WEIGHTS 
     &      nnz, wprecip, irec, mythid )
./pkg/ecco/ecco_cost_weights.F 1235 ECCO_COST_WEIGHTS 
      irec  = 1
./pkg/ecco/ecco_cost_weights.F 1239 ECCO_COST_WEIGHTS 
     &      nnz, wswflux, irec, mythid )
./pkg/ecco/ecco_cost_weights.F 1267 ECCO_COST_WEIGHTS 
      irec  = 1
./pkg/ecco/ecco_cost_weights.F 1271 ECCO_COST_WEIGHTS 
     &      nnz, wswdown, irec, mythid )
./pkg/ecco/ecco_cost_weights.F 1299 ECCO_COST_WEIGHTS 
      irec  = 1
./pkg/ecco/ecco_cost_weights.F 1303 ECCO_COST_WEIGHTS 
     &      nnz, wlwflux, irec, mythid )
./pkg/ecco/ecco_cost_weights.F 1331 ECCO_COST_WEIGHTS 
      irec  = 1
./pkg/ecco/ecco_cost_weights.F 1335 ECCO_COST_WEIGHTS 
     &      nnz, wlwdown, irec, mythid )
./pkg/ecco/ecco_cost_weights.F 1363 ECCO_COST_WEIGHTS 
      irec  = 1
./pkg/ecco/ecco_cost_weights.F 1367 ECCO_COST_WEIGHTS 
     &      nnz, wsnowprecip, irec, mythid )
./pkg/ecco/ecco_cost_weights.F 1396 ECCO_COST_WEIGHTS 
      irec  = 1
./pkg/ecco/ecco_cost_weights.F 1400 ECCO_COST_WEIGHTS 
     &      nnz, wevap, irec, mythid )
./pkg/ecco/ecco_cost_weights.F 1428 ECCO_COST_WEIGHTS 
      irec  = 1
./pkg/ecco/ecco_cost_weights.F 1432 ECCO_COST_WEIGHTS 
     &      nnz, wapressure, irec, mythid )
./pkg/ecco/ecco_cost_weights.F 1461 ECCO_COST_WEIGHTS 
      irec  = 1
./pkg/ecco/ecco_cost_weights.F 1465 ECCO_COST_WEIGHTS 
     &      nnz, wrunoff, irec, mythid )
./pkg/ecco/ecco_cost_weights.F 1490 ECCO_COST_WEIGHTS 
     &      nnz, wbottomdrag, irec, mythid )
./pkg/ecco/ecco_cost_weights.F 56 ECCO_COST_WEIGHTS 
      integer irec,nnz
./pkg/ecco/ecco_cost_weights.F 617 ECCO_COST_WEIGHTS 
      irec  =  1
./pkg/ecco/ecco_cost_weights.F 619 ECCO_COST_WEIGHTS 
     &    nnz, wp, irec, mythid )
./pkg/ecco/ecco_cost_weights.F 654 ECCO_COST_WEIGHTS 
      irec  =   1
./pkg/ecco/ecco_cost_weights.F 657 ECCO_COST_WEIGHTS 
     &      nnz, wtp, irec, mythid )
./pkg/ecco/ecco_cost_weights.F 686 ECCO_COST_WEIGHTS 
     &     wtp, irec, mythid )
./pkg/ecco/ecco_cost_weights.F 691 ECCO_COST_WEIGHTS 
     &     wers, irec, mythid )
./pkg/ecco/ecco_cost_weights.F 696 ECCO_COST_WEIGHTS 
     &     wgfo, irec, mythid )
./pkg/ecco/ecco_cost_weights.F 857 ECCO_COST_WEIGHTS 
      irec  =   1
./pkg/ecco/ecco_cost_weights.F 859 ECCO_COST_WEIGHTS 
     &                   wscatx, irec, mythid )
./pkg/ecco/ecco_cost_weights.F 861 ECCO_COST_WEIGHTS 
     &                   wscaty, irec, mythid )
./pkg/ecco/ecco_cost_weights.F 894 ECCO_COST_WEIGHTS 
      irec  =   1
./pkg/ecco/ecco_cost_weights.F 927 ECCO_COST_WEIGHTS 
      irec  = 1
./pkg/ecco/ecco_cost_weights.F 931 ECCO_COST_WEIGHTS 
     &      nnz, wtauu, irec, mythid )
./pkg/ecco/ecco_cost_weights.F 965 ECCO_COST_WEIGHTS 
      irec  = 1
./pkg/ecco/ecco_cost_weights.F 969 ECCO_COST_WEIGHTS 
     &      nnz, wuwind, irec, mythid )
./pkg/ecco/ecco_cost_weights.F 996 ECCO_COST_WEIGHTS 
      irec  = 1