Symbol Description Uses
fp pickup-file precision 460


File Line number Procedure Code
./pkg/fizhi/fizhi_lwrad.F 2517 TABLUP 
      _RL x1,x2,x3,we,pe,fw,fp,pa,pb,pc,ax,ba,bb,t1,ca,cb,t2
./pkg/fizhi/fizhi_lwrad.F 2547 TABLUP 
        fp=pe-float(ip-1)
./pkg/fizhi/fizhi_lwrad.F 2551 TABLUP 
        pa = coef1(ip,iw-1,nn)*(1.-fp)+coef1(ip+1,iw-1,nn)*fp
./pkg/fizhi/fizhi_lwrad.F 2552 TABLUP 
        pb = coef1(ip,iw,  nn)*(1.-fp)+coef1(ip+1,iw,  nn)*fp
./pkg/fizhi/fizhi_lwrad.F 2553 TABLUP 
        pc = coef1(ip,iw+1,nn)*(1.-fp)+coef1(ip+1,iw+1,nn)*fp
./pkg/fizhi/fizhi_lwrad.F 2561 TABLUP 
        ba = coef2(ip,iw,  nn)*(1.-fp)+coef2(ip+1,iw,  nn)*fp
./pkg/fizhi/fizhi_lwrad.F 2562 TABLUP 
        bb = coef2(ip,iw+1,nn)*(1.-fp)+coef2(ip+1,iw+1,nn)*fp
./pkg/fizhi/fizhi_lwrad.F 2565 TABLUP 
        ca = coef3(ip,iw,  nn)*(1.-fp)+coef3(ip+1,iw,  nn)*fp
./pkg/fizhi/fizhi_lwrad.F 2566 TABLUP 
        cb = coef3(ip,iw+1,nn)*(1.-fp)+coef3(ip+1,iw+1,nn)*fp
./pkg/flt/flt_init_varia.F 115 FLT_INIT_VARIA 
        CALL MDS_READVEC_LOC( fn, fp, ioUnit,
./pkg/flt/flt_init_varia.F 130 FLT_INIT_VARIA 
          CALL MDS_READVEC_LOC( fn, fp, ioUnit,
./pkg/flt/flt_init_varia.F 177 FLT_INIT_VARIA 
           CALL MDS_READVEC_LOC( fn, fp, ioUnit,
./pkg/flt/flt_init_varia.F 190 FLT_INIT_VARIA 
             CALL MDS_READVEC_LOC( fn, fp, ioUnit,
./pkg/flt/flt_init_varia.F 55 FLT_INIT_VARIA 
      INTEGER fp, ioUnit
./pkg/flt/flt_init_varia.F 88 FLT_INIT_VARIA 
        fp = readBinaryPrec
./pkg/flt/flt_init_varia.F 91 FLT_INIT_VARIA 
        fp = precFloat64
./pkg/flt/flt_traj.F 172 FLT_TRAJ 
      fp = writeBinaryPrec
./pkg/flt/flt_traj.F 179 FLT_TRAJ 
         CALL MDS_READVEC_LOC(  fn, fp, ioUnit, 'RL', nFlds,
./pkg/flt/flt_traj.F 227 FLT_TRAJ 
         CALL MDS_WRITEVEC_LOC( fn, fp, ioUnit, 'RL', nFlds,
./pkg/flt/flt_traj.F 235 FLT_TRAJ 
            CALL MDS_WRITEVEC_LOC( fn, fp, ioUnit, 'RL', nFlds,
./pkg/flt/flt_traj.F 57 FLT_TRAJ 
      INTEGER fp, ioUnit, irecord
./pkg/flt/flt_up.F 170 FLT_UP 
      fp = writeBinaryPrec
./pkg/flt/flt_up.F 177 FLT_UP 
         CALL MDS_READVEC_LOC(  fn, fp, ioUnit, 'RL', nFlds,
./pkg/flt/flt_up.F 225 FLT_UP 
         CALL MDS_WRITEVEC_LOC( fn, fp, ioUnit, 'RL', nFlds,
./pkg/flt/flt_up.F 233 FLT_UP 
           CALL MDS_WRITEVEC_LOC( fn, fp, ioUnit, 'RL', nFlds,
./pkg/flt/flt_up.F 54 FLT_UP 
      INTEGER fp, ioUnit, irecord
./pkg/gmredi/gmredi_read_pickup.F 135 GMREDI_READ_PICKUP 
     &                         nm, fp, Nr, myIter, myThid )
./pkg/gmredi/gmredi_read_pickup.F 153 GMREDI_READ_PICKUP 
     &        nm, fp, Nr, myIter, myThid )
./pkg/gmredi/gmredi_read_pickup.F 172 GMREDI_READ_PICKUP 
     &        nm, fp, Nr, myIter, myThid )
./pkg/gmredi/gmredi_read_pickup.F 193 GMREDI_READ_PICKUP 
     &       nm, fp, 1, myIter, myThid )
./pkg/gmredi/gmredi_read_pickup.F 43 GMREDI_READ_PICKUP 
      INTEGER fp
./pkg/gmredi/gmredi_read_pickup.F 62 GMREDI_READ_PICKUP 
       fp = precFloat64
./pkg/gmredi/gmredi_read_pickup.F 70 GMREDI_READ_PICKUP 
       IF ( nbFields.GE.0 .AND. filePrec.NE.fp ) THEN
./pkg/gmredi/gmredi_read_pickup.F 75 GMREDI_READ_PICKUP 
     &    'file prec.=', filePrec, ' but expecting prec.=', fp
./pkg/gmredi/gmredi_write_pickup.F 111 GMREDI_WRITE_PICKUP 
       CALL WRITE_REC_3D_RL( fn, fp, Nr,
./pkg/gmredi/gmredi_write_pickup.F 131 GMREDI_WRITE_PICKUP 
       CALL WRITE_REC_3D_RL( fn, fp, Nr,
./pkg/gmredi/gmredi_write_pickup.F 144 GMREDI_WRITE_PICKUP 
      CALL WRITE_REC_3D_RL( fn, fp, 1,
./pkg/gmredi/gmredi_write_pickup.F 170 GMREDI_WRITE_PICKUP 
      CALL MDS_WR_METAFILES( fn, fp, glf, .FALSE.,
./pkg/gmredi/gmredi_write_pickup.F 54 GMREDI_WRITE_PICKUP 
      INTEGER i,j,k,bi,bj,m,n, nm, fp, lChar
./pkg/gmredi/gmredi_write_pickup.F 74 GMREDI_WRITE_PICKUP 
      fp = precFloat64
./pkg/gmredi/gmredi_write_pickup.F 92 GMREDI_WRITE_PICKUP 
      CALL WRITE_REC_3D_RL( fn, fp, Nr,
./pkg/mypackage/mypackage_read_pickup.F 132 MYPACKAGE_READ_PICKUP 
     &                                 nj, fp, Nr, myIter, myThid )
./pkg/mypackage/mypackage_read_pickup.F 134 MYPACKAGE_READ_PICKUP 
     &                                 nj, fp, Nr, myIter, myThid )
./pkg/mypackage/mypackage_read_pickup.F 136 MYPACKAGE_READ_PICKUP 
     &                                 nj, fp, Nr, myIter, myThid )
./pkg/mypackage/mypackage_read_pickup.F 138 MYPACKAGE_READ_PICKUP 
     &                                 nj, fp, Nr, myIter, myThid )
./pkg/mypackage/mypackage_read_pickup.F 144 MYPACKAGE_READ_PICKUP 
     &                                 nj, fp, 1 , myIter, myThid )
./pkg/mypackage/mypackage_read_pickup.F 146 MYPACKAGE_READ_PICKUP 
     &                                 nj, fp, 1 , myIter, myThid )
./pkg/mypackage/mypackage_read_pickup.F 44 MYPACKAGE_READ_PICKUP 
      INTEGER fp
./pkg/mypackage/mypackage_read_pickup.F 61 MYPACKAGE_READ_PICKUP 
       fp = precFloat64
./pkg/mypackage/mypackage_read_pickup.F 69 MYPACKAGE_READ_PICKUP 
       IF ( nbFields.GE.0 .AND. filePrec.NE.fp ) THEN
./pkg/mypackage/mypackage_read_pickup.F 74 MYPACKAGE_READ_PICKUP 
     &    'file prec.=', filePrec, ' but expecting prec.=', fp
./pkg/mypackage/mypackage_write_pickup.F 104 MYPACKAGE_WRITE_PICKUP 
        CALL WRITE_REC_3D_RL( fn, fp, 1,
./pkg/mypackage/mypackage_write_pickup.F 110 MYPACKAGE_WRITE_PICKUP 
        CALL WRITE_REC_3D_RL( fn, fp, 1,
./pkg/mypackage/mypackage_write_pickup.F 137 MYPACKAGE_WRITE_PICKUP 
        CALL MDS_WR_METAFILES( fn, fp, glf, .FALSE.,
./pkg/mypackage/mypackage_write_pickup.F 55 MYPACKAGE_WRITE_PICKUP 
      INTEGER j, nj, fp, lChar
./pkg/mypackage/mypackage_write_pickup.F 71 MYPACKAGE_WRITE_PICKUP 
        fp = precFloat64
./pkg/mypackage/mypackage_write_pickup.F 79 MYPACKAGE_WRITE_PICKUP 
        CALL WRITE_REC_3D_RL( fn, fp, Nr,
./pkg/mypackage/mypackage_write_pickup.F 84 MYPACKAGE_WRITE_PICKUP 
        CALL WRITE_REC_3D_RL( fn, fp, Nr,
./pkg/mypackage/mypackage_write_pickup.F 89 MYPACKAGE_WRITE_PICKUP 
        CALL WRITE_REC_3D_RL( fn, fp, Nr,
./pkg/mypackage/mypackage_write_pickup.F 93 MYPACKAGE_WRITE_PICKUP 
        CALL WRITE_REC_3D_RL( fn, fp, Nr,
./pkg/obcs/obcs_fields_load.F 153 OBCS_FIELDS_LOAD 
       CALL READ_REC_YZ_RL( OBEuFile, fp,Nr,OBEu0,iRec0,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 154 OBCS_FIELDS_LOAD 
       CALL READ_REC_YZ_RL( OBEuFile, fp,Nr,OBEu1,iRec1,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 157 OBCS_FIELDS_LOAD 
       CALL READ_REC_YZ_RL( OBEvFile, fp,Nr,OBEv0,iRec0,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 158 OBCS_FIELDS_LOAD 
       CALL READ_REC_YZ_RL( OBEvFile, fp,Nr,OBEv1,iRec1,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 161 OBCS_FIELDS_LOAD 
       CALL READ_REC_YZ_RL( OBEtFile, fp,Nr,OBEt0,iRec0,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 162 OBCS_FIELDS_LOAD 
       CALL READ_REC_YZ_RL( OBEtFile, fp,Nr,OBEt1,iRec1,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 165 OBCS_FIELDS_LOAD 
       CALL READ_REC_YZ_RL( OBEsFile, fp,Nr,OBEs0,iRec0,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 166 OBCS_FIELDS_LOAD 
       CALL READ_REC_YZ_RL( OBEsFile, fp,Nr,OBEs1,iRec1,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 170 OBCS_FIELDS_LOAD 
       CALL READ_REC_YZ_RL( OBEwFile, fp,Nr,OBEw0,iRec0,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 171 OBCS_FIELDS_LOAD 
       CALL READ_REC_YZ_RL( OBEwFile, fp,Nr,OBEw1,iRec1,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 176 OBCS_FIELDS_LOAD 
       CALL READ_REC_YZ_RL(OBEetaFile,fp,1,OBEeta0,iRec0,myIter,myThid)
./pkg/obcs/obcs_fields_load.F 177 OBCS_FIELDS_LOAD 
       CALL READ_REC_YZ_RL(OBEetaFile,fp,1,OBEeta1,iRec1,myIter,myThid)
./pkg/obcs/obcs_fields_load.F 184 OBCS_FIELDS_LOAD 
       CALL READ_REC_YZ_RL( OBWuFile, fp,Nr,OBWu0,iRec0,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 185 OBCS_FIELDS_LOAD 
       CALL READ_REC_YZ_RL( OBWuFile, fp,Nr,OBWu1,iRec1,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 188 OBCS_FIELDS_LOAD 
       CALL READ_REC_YZ_RL( OBWvFile, fp,Nr,OBWv0,iRec0,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 189 OBCS_FIELDS_LOAD 
       CALL READ_REC_YZ_RL( OBWvFile, fp,Nr,OBWv1,iRec1,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 192 OBCS_FIELDS_LOAD 
       CALL READ_REC_YZ_RL( OBWtFile, fp,Nr,OBWt0,iRec0,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 193 OBCS_FIELDS_LOAD 
       CALL READ_REC_YZ_RL( OBWtFile, fp,Nr,OBWt1,iRec1,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 196 OBCS_FIELDS_LOAD 
       CALL READ_REC_YZ_RL( OBWsFile, fp,Nr,OBWs0,iRec0,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 197 OBCS_FIELDS_LOAD 
       CALL READ_REC_YZ_RL( OBWsFile, fp,Nr,OBWs1,iRec1,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 201 OBCS_FIELDS_LOAD 
       CALL READ_REC_YZ_RL( OBWwFile, fp,Nr,OBWw0,iRec0,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 202 OBCS_FIELDS_LOAD 
       CALL READ_REC_YZ_RL( OBWwFile, fp,Nr,OBWw1,iRec1,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 207 OBCS_FIELDS_LOAD 
       CALL READ_REC_YZ_RL(OBWetaFile,fp,1,OBWeta0,iRec0,myIter,myThid)
./pkg/obcs/obcs_fields_load.F 208 OBCS_FIELDS_LOAD 
       CALL READ_REC_YZ_RL(OBWetaFile,fp,1,OBWeta1,iRec1,myIter,myThid)
./pkg/obcs/obcs_fields_load.F 215 OBCS_FIELDS_LOAD 
       CALL READ_REC_XZ_RL( OBNuFile, fp,Nr,OBNu0,iRec0,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 216 OBCS_FIELDS_LOAD 
       CALL READ_REC_XZ_RL( OBNuFile, fp,Nr,OBNu1,iRec1,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 219 OBCS_FIELDS_LOAD 
       CALL READ_REC_XZ_RL( OBNvFile, fp,Nr,OBNv0,iRec0,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 220 OBCS_FIELDS_LOAD 
       CALL READ_REC_XZ_RL( OBNvFile, fp,Nr,OBNv1,iRec1,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 223 OBCS_FIELDS_LOAD 
       CALL READ_REC_XZ_RL( OBNtFile, fp,Nr,OBNt0,iRec0,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 224 OBCS_FIELDS_LOAD 
       CALL READ_REC_XZ_RL( OBNtFile, fp,Nr,OBNt1,iRec1,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 227 OBCS_FIELDS_LOAD 
       CALL READ_REC_XZ_RL( OBNsFile, fp,Nr,OBNs0,iRec0,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 228 OBCS_FIELDS_LOAD 
       CALL READ_REC_XZ_RL( OBNsFile, fp,Nr,OBNs1,iRec1,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 232 OBCS_FIELDS_LOAD 
       CALL READ_REC_XZ_RL( OBNwFile, fp,Nr,OBNw0,iRec0,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 233 OBCS_FIELDS_LOAD 
       CALL READ_REC_XZ_RL( OBNwFile, fp,Nr,OBNw1,iRec1,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 238 OBCS_FIELDS_LOAD 
       CALL READ_REC_XZ_RL(OBNetaFile,fp,1,OBNeta0,iRec0,myIter,myThid)
./pkg/obcs/obcs_fields_load.F 239 OBCS_FIELDS_LOAD 
       CALL READ_REC_XZ_RL(OBNetaFile,fp,1,OBNeta1,iRec1,myIter,myThid)
./pkg/obcs/obcs_fields_load.F 246 OBCS_FIELDS_LOAD 
       CALL READ_REC_XZ_RL( OBSuFile, fp,Nr,OBSu0,iRec0,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 247 OBCS_FIELDS_LOAD 
       CALL READ_REC_XZ_RL( OBSuFile, fp,Nr,OBSu1,iRec1,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 250 OBCS_FIELDS_LOAD 
       CALL READ_REC_XZ_RL( OBSvFile, fp,Nr,OBSv0,iRec0,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 251 OBCS_FIELDS_LOAD 
       CALL READ_REC_XZ_RL( OBSvFile, fp,Nr,OBSv1,iRec1,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 254 OBCS_FIELDS_LOAD 
       CALL READ_REC_XZ_RL( OBStFile, fp,Nr,OBSt0,iRec0,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 255 OBCS_FIELDS_LOAD 
       CALL READ_REC_XZ_RL( OBStFile, fp,Nr,OBSt1,iRec1,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 258 OBCS_FIELDS_LOAD 
       CALL READ_REC_XZ_RL( OBSsFile, fp,Nr,OBSs0,iRec0,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 259 OBCS_FIELDS_LOAD 
       CALL READ_REC_XZ_RL( OBSsFile, fp,Nr,OBSs1,iRec1,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 263 OBCS_FIELDS_LOAD 
       CALL READ_REC_XZ_RL( OBSwFile, fp,Nr,OBSw0,iRec0,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 264 OBCS_FIELDS_LOAD 
       CALL READ_REC_XZ_RL( OBSwFile, fp,Nr,OBSw1,iRec1,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 269 OBCS_FIELDS_LOAD 
       CALL READ_REC_XZ_RL(OBSetaFile,fp,1,OBSeta0,iRec0,myIter,myThid)
./pkg/obcs/obcs_fields_load.F 270 OBCS_FIELDS_LOAD 
       CALL READ_REC_XZ_RL(OBSetaFile,fp,1,OBSeta1,iRec1,myIter,myThid)
./pkg/obcs/obcs_fields_load.F 281 OBCS_FIELDS_LOAD 
         CALL READ_REC_YZ_RL( OBEptrFile(iTr), fp, Nr,
./pkg/obcs/obcs_fields_load.F 283 OBCS_FIELDS_LOAD 
         CALL READ_REC_YZ_RL( OBEptrFile(iTr), fp, Nr,
./pkg/obcs/obcs_fields_load.F 290 OBCS_FIELDS_LOAD 
         CALL READ_REC_YZ_RL( OBWptrFile(iTr), fp, Nr,
./pkg/obcs/obcs_fields_load.F 292 OBCS_FIELDS_LOAD 
         CALL READ_REC_YZ_RL( OBWptrFile(iTr), fp, Nr,
./pkg/obcs/obcs_fields_load.F 299 OBCS_FIELDS_LOAD 
         CALL READ_REC_XZ_RL( OBNptrFile(iTr), fp, Nr,
./pkg/obcs/obcs_fields_load.F 301 OBCS_FIELDS_LOAD 
         CALL READ_REC_XZ_RL( OBNptrFile(iTr), fp, Nr,
./pkg/obcs/obcs_fields_load.F 308 OBCS_FIELDS_LOAD 
         CALL READ_REC_XZ_RL( OBSptrFile(iTr), fp, Nr,
./pkg/obcs/obcs_fields_load.F 310 OBCS_FIELDS_LOAD 
         CALL READ_REC_XZ_RL( OBSptrFile(iTr), fp, Nr,
./pkg/obcs/obcs_fields_load.F 358 OBCS_FIELDS_LOAD 
         CALL READ_REC_YZ_RL( OBEuFile,fp,Nr,OBEu0,iRec0,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 361 OBCS_FIELDS_LOAD 
         CALL READ_REC_YZ_RL( OBEvFile,fp,Nr,OBEv0,iRec0,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 364 OBCS_FIELDS_LOAD 
         CALL READ_REC_YZ_RL( OBEtFile,fp,Nr,OBEt0,iRec0,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 367 OBCS_FIELDS_LOAD 
         CALL READ_REC_YZ_RL( OBEsFile,fp,Nr,OBEs0,iRec0,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 371 OBCS_FIELDS_LOAD 
         CALL READ_REC_YZ_RL( OBEwFile,fp,Nr,OBEw0,iRec0,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 376 OBCS_FIELDS_LOAD 
         CALL READ_REC_YZ_RL( OBEetaFile, fp, 1, OBEeta0, iRec0,
./pkg/obcs/obcs_fields_load.F 384 OBCS_FIELDS_LOAD 
         CALL READ_REC_YZ_RL( OBWuFile,fp,Nr,OBWu0,iRec0,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 387 OBCS_FIELDS_LOAD 
         CALL READ_REC_YZ_RL( OBWvFile,fp,Nr,OBWv0,iRec0,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 390 OBCS_FIELDS_LOAD 
         CALL READ_REC_YZ_RL( OBWtFile,fp,Nr,OBWt0,iRec0,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 393 OBCS_FIELDS_LOAD 
         CALL READ_REC_YZ_RL( OBWsFile,fp,Nr,OBWs0,iRec0,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 397 OBCS_FIELDS_LOAD 
         CALL READ_REC_YZ_RL( OBWwFile,fp,Nr,OBWw0,iRec0,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 402 OBCS_FIELDS_LOAD 
         CALL READ_REC_YZ_RL( OBWetaFile, fp, 1, OBWeta0, iRec0,
./pkg/obcs/obcs_fields_load.F 410 OBCS_FIELDS_LOAD 
         CALL READ_REC_XZ_RL( OBNuFile,fp,Nr,OBNu0,iRec0,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 413 OBCS_FIELDS_LOAD 
         CALL READ_REC_XZ_RL( OBNvFile,fp,Nr,OBNv0,iRec0,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 416 OBCS_FIELDS_LOAD 
         CALL READ_REC_XZ_RL( OBNtFile,fp,Nr,OBNt0,iRec0,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 419 OBCS_FIELDS_LOAD 
         CALL READ_REC_XZ_RL( OBNsFile,fp,Nr,OBNs0,iRec0,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 423 OBCS_FIELDS_LOAD 
         CALL READ_REC_XZ_RL( OBNwFile,fp,Nr,OBNw0,iRec0,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 428 OBCS_FIELDS_LOAD 
         CALL READ_REC_XZ_RL( OBNetaFile, fp, 1, OBNeta0, iRec0,
./pkg/obcs/obcs_fields_load.F 436 OBCS_FIELDS_LOAD 
         CALL READ_REC_XZ_RL( OBSuFile,fp,Nr,OBSu0,iRec0,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 439 OBCS_FIELDS_LOAD 
         CALL READ_REC_XZ_RL( OBSvFile,fp,Nr,OBSv0,iRec0,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 442 OBCS_FIELDS_LOAD 
         CALL READ_REC_XZ_RL( OBStFile,fp,Nr,OBSt0,iRec0,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 445 OBCS_FIELDS_LOAD 
         CALL READ_REC_XZ_RL( OBSsFile,fp,Nr,OBSs0,iRec0,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 449 OBCS_FIELDS_LOAD 
         CALL READ_REC_XZ_RL( OBSwFile,fp,Nr,OBSw0,iRec0,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 454 OBCS_FIELDS_LOAD 
         CALL READ_REC_XZ_RL( OBSetaFile, fp, 1, OBSeta0, iRec0,
./pkg/obcs/obcs_fields_load.F 466 OBCS_FIELDS_LOAD 
           CALL READ_REC_YZ_RL( OBEptrFile(iTr), fp, Nr,
./pkg/obcs/obcs_fields_load.F 473 OBCS_FIELDS_LOAD 
           CALL READ_REC_YZ_RL( OBWptrFile(iTr), fp, Nr,
./pkg/obcs/obcs_fields_load.F 480 OBCS_FIELDS_LOAD 
           CALL READ_REC_XZ_RL( OBNptrFile(iTr), fp, Nr,
./pkg/obcs/obcs_fields_load.F 487 OBCS_FIELDS_LOAD 
           CALL READ_REC_XZ_RL( OBSptrFile(iTr), fp, Nr,
./pkg/obcs/obcs_fields_load.F 84 OBCS_FIELDS_LOAD 
      INTEGER fp
./pkg/obcs/obcs_fields_load.F 97 OBCS_FIELDS_LOAD 
      fp = readBinaryPrec
./pkg/obcs/obcs_init_variables.F 389 OBCS_INIT_VARIABLES 
     &     (OBNamFile,fp,tidalComponents,OBNam,1,nIter0,myThid )
./pkg/obcs/obcs_init_variables.F 391 OBCS_INIT_VARIABLES 
     &     (OBNphFile,fp,tidalComponents,OBNph,1,nIter0,myThid )
./pkg/obcs/obcs_init_variables.F 395 OBCS_INIT_VARIABLES 
     &     (OBSamFile,fp,tidalComponents,OBSam,1,nIter0,myThid )
./pkg/obcs/obcs_init_variables.F 397 OBCS_INIT_VARIABLES 
     &     (OBSphFile,fp,tidalComponents,OBSph,1,nIter0,myThid )
./pkg/obcs/obcs_init_variables.F 401 OBCS_INIT_VARIABLES 
     &     (OBEamFile,fp,tidalComponents,OBEam,1,nIter0,myThid )
./pkg/obcs/obcs_init_variables.F 403 OBCS_INIT_VARIABLES 
     &     (OBEphFile,fp,tidalComponents,OBEph,1,nIter0,myThid )
./pkg/obcs/obcs_init_variables.F 407 OBCS_INIT_VARIABLES 
     &     (OBWamFile,fp,tidalComponents,OBWam,1,nIter0,myThid )
./pkg/obcs/obcs_init_variables.F 409 OBCS_INIT_VARIABLES 
     &     (OBWphFile,fp,tidalComponents,OBWph,1,nIter0,myThid )
./pkg/obcs/obcs_init_variables.F 48 OBCS_INIT_VARIABLES 
      INTEGER fp
./pkg/obcs/obcs_init_variables.F 57 OBCS_INIT_VARIABLES 
      fp = readBinaryPrec
./pkg/seaice/seaice_read_pickup.F 141 SEAICE_READ_PICKUP 
         CALL READ_REC_3D_RL( fn,fp,nITD, TICES, nj,nIter0,myThid )
./pkg/seaice/seaice_read_pickup.F 145 SEAICE_READ_PICKUP 
         CALL READ_REC_LEV_RL( fn, fp, nITD,1,1, TICES,
./pkg/seaice/seaice_read_pickup.F 150 SEAICE_READ_PICKUP 
        CALL READ_REC_3D_RL( fn, fp, 1, HSNOW    , nj, nIter0, myThid )
./pkg/seaice/seaice_read_pickup.F 152 SEAICE_READ_PICKUP 
        CALL READ_REC_3D_RL( fn, fp, 1, UICE    , nj, nIter0, myThid )
./pkg/seaice/seaice_read_pickup.F 154 SEAICE_READ_PICKUP 
        CALL READ_REC_3D_RL( fn, fp, 1, VICE    , nj, nIter0, myThid )
./pkg/seaice/seaice_read_pickup.F 156 SEAICE_READ_PICKUP 
        CALL READ_REC_3D_RL( fn, fp, 1, HEFF    , nj, nIter0, myThid )
./pkg/seaice/seaice_read_pickup.F 158 SEAICE_READ_PICKUP 
        CALL READ_REC_3D_RL( fn, fp, 1, AREA    , nj, nIter0, myThid )
./pkg/seaice/seaice_read_pickup.F 167 SEAICE_READ_PICKUP 
         CALL READ_REC_3D_RL(fn,fp,1,seaice_sigma1,nj, nIter0, myThid )
./pkg/seaice/seaice_read_pickup.F 169 SEAICE_READ_PICKUP 
         CALL READ_REC_3D_RL(fn,fp,1,seaice_sigma2,nj, nIter0, myThid )
./pkg/seaice/seaice_read_pickup.F 171 SEAICE_READ_PICKUP 
         CALL READ_REC_3D_RL(fn,fp,1,seaice_sigma12,nj,nIter0, myThid )
./pkg/seaice/seaice_read_pickup.F 176 SEAICE_READ_PICKUP 
        CALL READ_REC_3D_RL( fn, fp, 1, HSALT    , nj, nIter0, myThid )
./pkg/seaice/seaice_read_pickup.F 187 SEAICE_READ_PICKUP 
     &                                nj, fp, nITD, nIter0, myThid )
./pkg/seaice/seaice_read_pickup.F 192 SEAICE_READ_PICKUP 
     &                            nj, fp, nITD,1,1, nIter0, myThid )
./pkg/seaice/seaice_read_pickup.F 198 SEAICE_READ_PICKUP 
     &                            nj, fp, nITD,1,1, nIter0, myThid )
./pkg/seaice/seaice_read_pickup.F 201 SEAICE_READ_PICKUP 
     &                            nj, fp, nITD,1,1, nIter0, myThid )
./pkg/seaice/seaice_read_pickup.F 207 SEAICE_READ_PICKUP 
     &                                   nj, fp, nITD, nIter0, myThid )
./pkg/seaice/seaice_read_pickup.F 213 SEAICE_READ_PICKUP 
     &                                      nj, fp, 1, nIter0, myThid )
./pkg/seaice/seaice_read_pickup.F 215 SEAICE_READ_PICKUP 
     &                                      nj, fp, 1, nIter0, myThid )
./pkg/seaice/seaice_read_pickup.F 217 SEAICE_READ_PICKUP 
     &                                      nj, fp, 1, nIter0, myThid )
./pkg/seaice/seaice_read_pickup.F 226 SEAICE_READ_PICKUP 
     &                                   nj, fp, nITD, nIter0, myThid )
./pkg/seaice/seaice_read_pickup.F 228 SEAICE_READ_PICKUP 
     &                                   nj, fp, nITD, nIter0, myThid )
./pkg/seaice/seaice_read_pickup.F 239 SEAICE_READ_PICKUP 
     &                                      nj, fp, 1, nIter0, myThid )
./pkg/seaice/seaice_read_pickup.F 246 SEAICE_READ_PICKUP 
     &         nj, fp, 1, nIter0, myThid )
./pkg/seaice/seaice_read_pickup.F 255 SEAICE_READ_PICKUP 
     &                                      nj, fp, 1, nIter0, myThid )
./pkg/seaice/seaice_read_pickup.F 257 SEAICE_READ_PICKUP 
     &                                      nj, fp, 1, nIter0, myThid )
./pkg/seaice/seaice_read_pickup.F 260 SEAICE_READ_PICKUP 
     &                                      nj, fp, 1, nIter0, myThid )
./pkg/seaice/seaice_read_pickup.F 262 SEAICE_READ_PICKUP 
     &                                      nj, fp, 1, nIter0, myThid )
./pkg/seaice/seaice_read_pickup.F 267 SEAICE_READ_PICKUP 
     &                                      nj, fp, 1, nIter0, myThid )
./pkg/seaice/seaice_read_pickup.F 269 SEAICE_READ_PICKUP 
     &                                      nj, fp, 1, nIter0, myThid )
./pkg/seaice/seaice_read_pickup.F 271 SEAICE_READ_PICKUP 
     &                                      nj, fp, 1, nIter0, myThid )
./pkg/seaice/seaice_read_pickup.F 49 SEAICE_READ_PICKUP 
      INTEGER fp
./pkg/seaice/seaice_read_pickup.F 71 SEAICE_READ_PICKUP 
      fp = precFloat64
./pkg/seaice/seaice_read_pickup.F 86 SEAICE_READ_PICKUP 
       IF ( nbFields.GE.0 .AND. filePrec.NE.fp ) THEN
./pkg/seaice/seaice_read_pickup.F 91 SEAICE_READ_PICKUP 
     &    'file prec.=', filePrec, ' but expecting prec.=', fp
./pkg/seaice/seaice_write_pickup.F 105 SEAICE_WRITE_PICKUP 
         CALL WRITE_REC_3D_RL(fn,fp,nITD,TICES, nj, myIter, myThid )
./pkg/seaice/seaice_write_pickup.F 111 SEAICE_WRITE_PICKUP 
         CALL WRITE_REC_LEV_RL( fn, fp, nITD, 1, 1, TICES,
./pkg/seaice/seaice_write_pickup.F 119 SEAICE_WRITE_PICKUP 
        CALL WRITE_REC_3D_RL( fn, fp,  1, AREA , nj, myIter, myThid )
./pkg/seaice/seaice_write_pickup.F 123 SEAICE_WRITE_PICKUP 
        CALL WRITE_REC_3D_RL( fn, fp,  1, HEFF , nj, myIter, myThid )
./pkg/seaice/seaice_write_pickup.F 127 SEAICE_WRITE_PICKUP 
        CALL WRITE_REC_3D_RL( fn, fp,  1, HSNOW , nj, myIter, myThid )
./pkg/seaice/seaice_write_pickup.F 135 SEAICE_WRITE_PICKUP 
        CALL WRITE_REC_3D_RL( fn, fp,  1, HSALT , nj, myIter, myThid )
./pkg/seaice/seaice_write_pickup.F 143 SEAICE_WRITE_PICKUP 
          CALL WRITE_REC_3D_RL( fn, fp,  1,
./pkg/seaice/seaice_write_pickup.F 154 SEAICE_WRITE_PICKUP 
       CALL WRITE_REC_3D_RL( fn, fp,  1, UICE , nj, myIter, myThid )
./pkg/seaice/seaice_write_pickup.F 159 SEAICE_WRITE_PICKUP 
       CALL WRITE_REC_3D_RL( fn, fp,  1, VICE , nj, myIter, myThid )
./pkg/seaice/seaice_write_pickup.F 165 SEAICE_WRITE_PICKUP 
        CALL WRITE_REC_3D_RL( fn, fp,  1, uIceNm1 , nj, myIter, myThid )
./pkg/seaice/seaice_write_pickup.F 170 SEAICE_WRITE_PICKUP 
        CALL WRITE_REC_3D_RL( fn, fp,  1, vIceNm1 , nj, myIter, myThid )
./pkg/seaice/seaice_write_pickup.F 177 SEAICE_WRITE_PICKUP 
        CALL WRITE_REC_3D_RL( fn, fp,  1, seaice_sigma1,
./pkg/seaice/seaice_write_pickup.F 183 SEAICE_WRITE_PICKUP 
        CALL WRITE_REC_3D_RL( fn, fp,  1, seaice_sigma2,
./pkg/seaice/seaice_write_pickup.F 189 SEAICE_WRITE_PICKUP 
        CALL WRITE_REC_3D_RL( fn, fp,  1, seaice_sigma12,
./pkg/seaice/seaice_write_pickup.F 211 SEAICE_WRITE_PICKUP 
       CALL MDS_WR_METAFILES( fn, fp, glf, .FALSE.,
./pkg/seaice/seaice_write_pickup.F 55 SEAICE_WRITE_PICKUP 
      INTEGER fp
./pkg/seaice/seaice_write_pickup.F 75 SEAICE_WRITE_PICKUP 
       fp = precFloat64
./pkg/seaice/seaice_write_pickup.F 86 SEAICE_WRITE_PICKUP 
        CALL WRITE_REC_3D_RL( fn,fp, nITD, TICES,   -j, myIter,myThid )
./pkg/seaice/seaice_write_pickup.F 89 SEAICE_WRITE_PICKUP 
        CALL WRITE_REC_3D_RL( fn,fp, nITD, AREAITD, -j, myIter,myThid )
./pkg/seaice/seaice_write_pickup.F 92 SEAICE_WRITE_PICKUP 
        CALL WRITE_REC_3D_RL( fn,fp, nITD, HEFFITD, -j, myIter,myThid )
./pkg/seaice/seaice_write_pickup.F 95 SEAICE_WRITE_PICKUP 
        CALL WRITE_REC_3D_RL( fn,fp, nITD, HSNOWITD,-j, myIter,myThid )
./model/src/ini_curvilinear_grid.F 129 INI_CURVILINEAR_GRID 
      CALL READ_REC_3D_RS( 'DXV.bin', fp, 1, dxV, 1, 0, myThid )
./model/src/ini_curvilinear_grid.F 130 INI_CURVILINEAR_GRID 
      CALL READ_REC_3D_RS( 'DYU.bin', fp, 1, dyU, 1, 0, myThid )
./model/src/ini_curvilinear_grid.F 152 INI_CURVILINEAR_GRID 
      CALL READ_REC_3D_RS( 'RAZ.bin', fp, 1, rAz, 1, 0, myThid )
./model/src/ini_curvilinear_grid.F 166 INI_CURVILINEAR_GRID 
      CALL READ_REC_3D_RS( 'DXC.bin', fp, 1, dxC, 1, 0, myThid )
./model/src/ini_curvilinear_grid.F 167 INI_CURVILINEAR_GRID 
      CALL READ_REC_3D_RS( 'DYC.bin', fp, 1, dyC, 1, 0, myThid )
./model/src/ini_curvilinear_grid.F 170 INI_CURVILINEAR_GRID 
      CALL READ_REC_3D_RS( 'RAW.bin', fp, 1, rAw, 1, 0, myThid )
./model/src/ini_curvilinear_grid.F 171 INI_CURVILINEAR_GRID 
      CALL READ_REC_3D_RS( 'RAS.bin', fp, 1, rAs, 1, 0, myThid )
./model/src/ini_curvilinear_grid.F 174 INI_CURVILINEAR_GRID 
      CALL READ_REC_3D_RS( 'DXG.bin', fp, 1, dxG, 1, 0, myThid )
./model/src/ini_curvilinear_grid.F 175 INI_CURVILINEAR_GRID 
      CALL READ_REC_3D_RS( 'DYG.bin', fp, 1, dyG, 1, 0, myThid )
./model/src/ini_curvilinear_grid.F 241 INI_CURVILINEAR_GRID 
      fp = precFloat64
./model/src/ini_curvilinear_grid.F 281 INI_CURVILINEAR_GRID 
        CALL MDS_FACEF_READ_RS( fName, fp, 1,  xC, bi, bj, myThid )
./model/src/ini_curvilinear_grid.F 284 INI_CURVILINEAR_GRID 
        CALL MDS_FACEF_READ_RS( fName, fp, 2,  yC, bi, bj, myThid )
./model/src/ini_curvilinear_grid.F 287 INI_CURVILINEAR_GRID 
        CALL MDS_FACEF_READ_RS( fName, fp, 3, dxF, bi, bj, myThid )
./model/src/ini_curvilinear_grid.F 290 INI_CURVILINEAR_GRID 
        CALL MDS_FACEF_READ_RS( fName, fp, 4, dyF, bi, bj, myThid )
./model/src/ini_curvilinear_grid.F 293 INI_CURVILINEAR_GRID 
        CALL MDS_FACEF_READ_RS( fName, fp, 5,  rA, bi, bj, myThid )
./model/src/ini_curvilinear_grid.F 296 INI_CURVILINEAR_GRID 
        CALL MDS_FACEF_READ_RS( fName, fp, 6,  xG, bi, bj, myThid )
./model/src/ini_curvilinear_grid.F 299 INI_CURVILINEAR_GRID 
        CALL MDS_FACEF_READ_RS( fName, fp, 7,  yG, bi, bj, myThid )
./model/src/ini_curvilinear_grid.F 302 INI_CURVILINEAR_GRID 
        CALL MDS_FACEF_READ_RS( fName, fp, 8, dxV, bi, bj, myThid )
./model/src/ini_curvilinear_grid.F 305 INI_CURVILINEAR_GRID 
        CALL MDS_FACEF_READ_RS( fName, fp, 9, dyU, bi, bj, myThid )
./model/src/ini_curvilinear_grid.F 308 INI_CURVILINEAR_GRID 
        CALL MDS_FACEF_READ_RS( fName, fp,10, rAz, bi, bj, myThid )
./model/src/ini_curvilinear_grid.F 311 INI_CURVILINEAR_GRID 
        CALL MDS_FACEF_READ_RS( fName, fp,11, dxC, bi, bj, myThid )
./model/src/ini_curvilinear_grid.F 314 INI_CURVILINEAR_GRID 
        CALL MDS_FACEF_READ_RS( fName, fp,12, dyC, bi, bj, myThid )
./model/src/ini_curvilinear_grid.F 317 INI_CURVILINEAR_GRID 
        CALL MDS_FACEF_READ_RS( fName, fp,13, rAw, bi, bj, myThid )
./model/src/ini_curvilinear_grid.F 320 INI_CURVILINEAR_GRID 
        CALL MDS_FACEF_READ_RS( fName, fp,14, rAs, bi, bj, myThid )
./model/src/ini_curvilinear_grid.F 323 INI_CURVILINEAR_GRID 
        CALL MDS_FACEF_READ_RS( fName, fp,15, dxG, bi, bj, myThid )
./model/src/ini_curvilinear_grid.F 326 INI_CURVILINEAR_GRID 
        CALL MDS_FACEF_READ_RS( fName, fp,16, dyG, bi, bj, myThid )
./model/src/ini_curvilinear_grid.F 332 INI_CURVILINEAR_GRID 
         CALL MDS_FACEF_READ_RS(fName,fp,17,angleCosC,bi,bj,myThid)
./model/src/ini_curvilinear_grid.F 335 INI_CURVILINEAR_GRID 
         CALL MDS_FACEF_READ_RS(fName,fp,18,angleSinC,bi,bj,myThid)
./model/src/ini_curvilinear_grid.F 52 INI_CURVILINEAR_GRID 
      INTEGER fp
./model/src/ini_curvilinear_grid.F 75 INI_CURVILINEAR_GRID 
      fp = readBinaryPrec
./model/src/ini_curvilinear_grid.F 78 INI_CURVILINEAR_GRID 
      CALL READ_REC_3D_RS( 'LONC.bin', fp, 1, xC, 1, 0, myThid )
./model/src/ini_curvilinear_grid.F 79 INI_CURVILINEAR_GRID 
      CALL READ_REC_3D_RS( 'LATC.bin', fp, 1, yC, 1, 0, myThid )
./model/src/ini_curvilinear_grid.F 83 INI_CURVILINEAR_GRID 
      CALL READ_REC_3D_RS( 'DXF.bin', fp, 1, dxF, 1, 0, myThid )
./model/src/ini_curvilinear_grid.F 84 INI_CURVILINEAR_GRID 
      CALL READ_REC_3D_RS( 'DYF.bin', fp, 1, dyF, 1, 0, myThid )
./model/src/ini_curvilinear_grid.F 87 INI_CURVILINEAR_GRID 
      CALL READ_REC_3D_RS( 'RA.bin' , fp, 1, rA,  1, 0, myThid )
./model/src/ini_curvilinear_grid.F 95 INI_CURVILINEAR_GRID 
      CALL READ_REC_3D_RS( 'LONG.bin', fp, 1, xG, 1, 0, myThid )
./model/src/ini_curvilinear_grid.F 96 INI_CURVILINEAR_GRID 
      CALL READ_REC_3D_RS( 'LATG.bin', fp, 1, yG, 1, 0, myThid )
./pkg/streamice/adstreamice_invert_surf_forthick.F 23 ADSTRMICE_H_INV 
      _RL resid, f, fp, hf, htmp
./pkg/streamice/adstreamice_invert_surf_forthick.F 74 ADSTRMICE_H_INV 
              fp = ETA_GL_STREAMICE_PRIME (
./pkg/streamice/adstreamice_invert_surf_forthick.F 83 ADSTRMICE_H_INV 
     &          i_r * (fp-delta)/fp *
./pkg/streamice/streamice_invert_surf_forthick.F 31 STREAMICE_INVERT_SURF_FORTHICK 
      _RL resid, f, fp, hf, htmp
./pkg/streamice/streamice_read_pickup.F 130 STREAMICE_READ_PICKUP 
     &                                 nj, fp, Nr, myIter, myThid )
./pkg/streamice/streamice_read_pickup.F 136 STREAMICE_READ_PICKUP 
     &                                 nj, fp, 1 , myIter, myThid )
./pkg/streamice/streamice_read_pickup.F 138 STREAMICE_READ_PICKUP 
     &                            nj, fp, 1, 1, 1, myIter, myThid )
./pkg/streamice/streamice_read_pickup.F 140 STREAMICE_READ_PICKUP 
     &                                 nj, fp, 1 , myIter, myThid )
./pkg/streamice/streamice_read_pickup.F 142 STREAMICE_READ_PICKUP 
     &                                 nj, fp, 1 , myIter, myThid )
./pkg/streamice/streamice_read_pickup.F 144 STREAMICE_READ_PICKUP 
     &                                 nj, fp, 1 , myIter, myThid )
./pkg/streamice/streamice_read_pickup.F 146 STREAMICE_READ_PICKUP 
     &                                 nj, fp, 1 , myIter, myThid )
./pkg/streamice/streamice_read_pickup.F 148 STREAMICE_READ_PICKUP 
     &                                 nj, fp, 1 , myIter, myThid )
./pkg/streamice/streamice_read_pickup.F 152 STREAMICE_READ_PICKUP 
     &                                 nj, fp, 1 , myIter, myThid )
./pkg/streamice/streamice_read_pickup.F 154 STREAMICE_READ_PICKUP 
     &                                 nj, fp, 1 , myIter, myThid )
./pkg/streamice/streamice_read_pickup.F 42 STREAMICE_READ_PICKUP 
      INTEGER fp
./pkg/streamice/streamice_read_pickup.F 59 STREAMICE_READ_PICKUP 
       fp = precFloat64
./pkg/streamice/streamice_read_pickup.F 67 STREAMICE_READ_PICKUP 
       IF ( nbFields.GE.0 .AND. filePrec.NE.fp ) THEN
./pkg/streamice/streamice_read_pickup.F 72 STREAMICE_READ_PICKUP 
     &    'file prec.=', filePrec, ' but expecting prec.=', fp
./pkg/streamice/streamice_write_pickup.F 105 STREAMICE_WRITE_PICKUP 
        CALL WRITE_REC_3D_RL( fn, fp, 1, V_streamice,
./pkg/streamice/streamice_write_pickup.F 111 STREAMICE_WRITE_PICKUP 
        CALL WRITE_REC_3D_RL( fn, fp, 1, H_streamice,
./pkg/streamice/streamice_write_pickup.F 117 STREAMICE_WRITE_PICKUP 
        CALL WRITE_REC_3D_RL( fn, fp, 1, tau_beta_eff_streamice,
./pkg/streamice/streamice_write_pickup.F 123 STREAMICE_WRITE_PICKUP 
        CALL WRITE_REC_3D_RL( fn, fp, 1, visc_streamice,
./pkg/streamice/streamice_write_pickup.F 130 STREAMICE_WRITE_PICKUP 
        CALL WRITE_REC_3D_RL( fn, fp, 1, streamice_taubx,
./pkg/streamice/streamice_write_pickup.F 136 STREAMICE_WRITE_PICKUP 
        CALL WRITE_REC_3D_RL( fn, fp, 1, streamice_tauby,
./pkg/streamice/streamice_write_pickup.F 169 STREAMICE_WRITE_PICKUP 
        CALL MDS_WR_METAFILES( fn, fp, glf, .FALSE.,
./pkg/streamice/streamice_write_pickup.F 53 STREAMICE_WRITE_PICKUP 
      INTEGER j, nj, fp, lChar
./pkg/streamice/streamice_write_pickup.F 69 STREAMICE_WRITE_PICKUP 
        fp = precFloat64
./pkg/streamice/streamice_write_pickup.F 77 STREAMICE_WRITE_PICKUP 
        CALL WRITE_REC_3D_RL( fn, fp, Nr, visc_streamice_full,
./pkg/streamice/streamice_write_pickup.F 87 STREAMICE_WRITE_PICKUP 
        CALL WRITE_REC_3D_RL( fn, fp, 1, area_shelf_streamice,
./pkg/streamice/streamice_write_pickup.F 93 STREAMICE_WRITE_PICKUP 
        CALL WRITE_REC_3D_RS( fn, fp, 1, STREAMICE_hmask,
./pkg/streamice/streamice_write_pickup.F 99 STREAMICE_WRITE_PICKUP 
        CALL WRITE_REC_3D_RL( fn, fp, 1, U_streamice,
./model/src/read_pickup.F 105 READ_PICKUP 
       fp = precFloat64
./model/src/read_pickup.F 115 READ_PICKUP 
       IF ( nbFields.GE.0 .AND. filePrec.NE.fp ) THEN
./model/src/read_pickup.F 120 READ_PICKUP 
     &    'file prec.=', filePrec, ' but expecting prec.=', fp
./model/src/read_pickup.F 169 READ_PICKUP 
          CALL READ_REC_3D_RL( fn, fp, Nr, uVel,  1, myIter,myThid )
./model/src/read_pickup.F 170 READ_PICKUP 
          CALL READ_REC_3D_RL( fn, fp, Nr, gU,    2, myIter,myThid )
./model/src/read_pickup.F 171 READ_PICKUP 
          CALL READ_REC_3D_RL( fn, fp, Nr, guNm1, 3, myIter,myThid )
./model/src/read_pickup.F 172 READ_PICKUP 
          CALL READ_REC_3D_RL( fn, fp, Nr, vVel,  4, myIter,myThid )
./model/src/read_pickup.F 173 READ_PICKUP 
          CALL READ_REC_3D_RL( fn, fp, Nr, gV,    5, myIter,myThid )
./model/src/read_pickup.F 174 READ_PICKUP 
          CALL READ_REC_3D_RL( fn, fp, Nr, gvNm1, 6, myIter,myThid )
./model/src/read_pickup.F 175 READ_PICKUP 
          CALL READ_REC_3D_RL( fn, fp, Nr, theta, 7, myIter,myThid )
./model/src/read_pickup.F 177 READ_PICKUP 
          CALL READ_REC_3D_RL( fn, fp, Nr, gtNm1, 9, myIter,myThid )
./model/src/read_pickup.F 178 READ_PICKUP 
          CALL READ_REC_3D_RL( fn, fp, Nr, salt, 10, myIter,myThid )
./model/src/read_pickup.F 180 READ_PICKUP 
          CALL READ_REC_3D_RL( fn, fp, Nr, gsNm1,12, myIter,myThid )
./model/src/read_pickup.F 182 READ_PICKUP 
          CALL READ_REC_3D_RL( fn, fp,  1, etaN,
./model/src/read_pickup.F 186 READ_PICKUP 
           CALL READ_REC_3D_RL(fn, fp,  1, etaH,
./model/src/read_pickup.F 195 READ_PICKUP 
          CALL READ_REC_3D_RL( fn, fp, Nr, uVel, nj+1, myIter,myThid )
./model/src/read_pickup.F 196 READ_PICKUP 
          CALL READ_REC_3D_RL( fn, fp, Nr, guNm(1-OLx,1-OLy,1,1,1,1),
./model/src/read_pickup.F 198 READ_PICKUP 
          CALL READ_REC_3D_RL( fn, fp, Nr, guNm(1-OLx,1-OLy,1,1,1,2),
./model/src/read_pickup.F 201 READ_PICKUP 
          CALL READ_REC_3D_RL( fn, fp, Nr, vVel, nj+1, myIter,myThid )
./model/src/read_pickup.F 202 READ_PICKUP 
          CALL READ_REC_3D_RL( fn, fp, Nr, gvNm(1-OLx,1-OLy,1,1,1,1),
./model/src/read_pickup.F 204 READ_PICKUP 
          CALL READ_REC_3D_RL( fn, fp, Nr, gvNm(1-OLx,1-OLy,1,1,1,2),
./model/src/read_pickup.F 207 READ_PICKUP 
          CALL READ_REC_3D_RL( fn, fp, Nr, theta,nj+1, myIter,myThid )
./model/src/read_pickup.F 208 READ_PICKUP 
          CALL READ_REC_3D_RL( fn, fp, Nr, gtNm(1-OLx,1-OLy,1,1,1,1),
./model/src/read_pickup.F 210 READ_PICKUP 
          CALL READ_REC_3D_RL( fn, fp, Nr, gtNm(1-OLx,1-OLy,1,1,1,2),
./model/src/read_pickup.F 213 READ_PICKUP 
          CALL READ_REC_3D_RL( fn, fp, Nr, salt, nj+1, myIter,myThid )
./model/src/read_pickup.F 214 READ_PICKUP 
          CALL READ_REC_3D_RL( fn, fp, Nr, gsNm(1-OLx,1-OLy,1,1,1,1),
./model/src/read_pickup.F 216 READ_PICKUP 
          CALL READ_REC_3D_RL( fn, fp, Nr, gsNm(1-OLx,1-OLy,1,1,1,2),
./model/src/read_pickup.F 220 READ_PICKUP 
          CALL READ_REC_3D_RL( fn, fp, Nr, uVel,  1, myIter,myThid )
./model/src/read_pickup.F 221 READ_PICKUP 
          CALL READ_REC_3D_RL( fn, fp, Nr, guNm1, 2, myIter,myThid )
./model/src/read_pickup.F 222 READ_PICKUP 
          CALL READ_REC_3D_RL( fn, fp, Nr, vVel,  3, myIter,myThid )
./model/src/read_pickup.F 223 READ_PICKUP 
          CALL READ_REC_3D_RL( fn, fp, Nr, gvNm1, 4, myIter,myThid )
./model/src/read_pickup.F 224 READ_PICKUP 
          CALL READ_REC_3D_RL( fn, fp, Nr, theta, 5, myIter,myThid )
./model/src/read_pickup.F 225 READ_PICKUP 
          CALL READ_REC_3D_RL( fn, fp, Nr, gtNm1, 6, myIter,myThid )
./model/src/read_pickup.F 226 READ_PICKUP 
          CALL READ_REC_3D_RL( fn, fp, Nr, salt,  7, myIter,myThid )
./model/src/read_pickup.F 227 READ_PICKUP 
          CALL READ_REC_3D_RL( fn, fp, Nr, gsNm1, 8, myIter,myThid )
./model/src/read_pickup.F 230 READ_PICKUP 
          CALL READ_REC_3D_RL( fn,fp,1, etaN, nj*Nr+1, myIter,myThid )
./model/src/read_pickup.F 233 READ_PICKUP 
           CALL READ_REC_3D_RL(fn,fp,1,dEtaHdt,nj*Nr+2,myIter,myThid )
./model/src/read_pickup.F 236 READ_PICKUP 
           CALL READ_REC_3D_RL(fn,fp,1, etaH, nj*Nr+3, myIter,myThid )
./model/src/read_pickup.F 243 READ_PICKUP 
          CALL READ_REC_3D_RL( fn, fp, Nr, totPhiHyd,1,myIter,myThid )
./model/src/read_pickup.F 248 READ_PICKUP 
          CALL READ_REC_3D_RL( fn, fp, Nr, phi_nh,  1, myIter,myThid )
./model/src/read_pickup.F 250 READ_PICKUP 
          CALL READ_REC_3D_RL( fn, fp, Nr, gwNm(1-OLx,1-OLy,1,1,1,1),
./model/src/read_pickup.F 252 READ_PICKUP 
          CALL READ_REC_3D_RL( fn, fp, Nr, gwNm(1-OLx,1-OLy,1,1,1,2),
./model/src/read_pickup.F 255 READ_PICKUP 
          CALL READ_REC_3D_RL( fn, fp, Nr, gwNm1,   2, myIter,myThid )
./model/src/read_pickup.F 264 READ_PICKUP 
     &                                     nj, fp, Nr, myIter, myThid )
./model/src/read_pickup.F 266 READ_PICKUP 
     &                                     nj, fp, Nr, myIter, myThid )
./model/src/read_pickup.F 270 READ_PICKUP 
     &                                      nj, fp, Nr, myIter, myThid )
./model/src/read_pickup.F 272 READ_PICKUP 
     &                                      nj, fp, Nr, myIter, myThid )
./model/src/read_pickup.F 276 READ_PICKUP 
     &                                     nj, fp, Nr, myIter, myThid )
./model/src/read_pickup.F 278 READ_PICKUP 
     &                                     nj, fp, Nr, myIter, myThid )
./model/src/read_pickup.F 287 READ_PICKUP 
     &                                     nj, fp, Nr, myIter, myThid )
./model/src/read_pickup.F 291 READ_PICKUP 
     &                                     nj, fp, Nr, myIter, myThid )
./model/src/read_pickup.F 296 READ_PICKUP 
     &                                     nj, fp, Nr, myIter, myThid )
./model/src/read_pickup.F 300 READ_PICKUP 
     &                                     nj, fp, Nr, myIter, myThid )
./model/src/read_pickup.F 307 READ_PICKUP 
     &                                     nj, fp, Nr, myIter, myThid )
./model/src/read_pickup.F 311 READ_PICKUP 
     &                                     nj, fp, Nr, myIter, myThid )
./model/src/read_pickup.F 316 READ_PICKUP 
     &                                     nj, fp, Nr, myIter, myThid )
./model/src/read_pickup.F 320 READ_PICKUP 
     &                                     nj, fp, Nr, myIter, myThid )
./model/src/read_pickup.F 327 READ_PICKUP 
     &                                     nj, fp, Nr, myIter, myThid )
./model/src/read_pickup.F 331 READ_PICKUP 
     &                                     nj, fp, Nr, myIter, myThid )
./model/src/read_pickup.F 336 READ_PICKUP 
     &                                     nj, fp, Nr, myIter, myThid )
./model/src/read_pickup.F 340 READ_PICKUP 
     &                                     nj, fp, Nr, myIter, myThid )
./model/src/read_pickup.F 348 READ_PICKUP 
     &                                     nj, fp, Nr, myIter, myThid )
./model/src/read_pickup.F 352 READ_PICKUP 
     &                                     nj, fp, Nr, myIter, myThid )
./model/src/read_pickup.F 360 READ_PICKUP 
     &                                     nj, fp, Nr, myIter, myThid )
./model/src/read_pickup.F 363 READ_PICKUP 
     &                                     nj, fp, Nr, myIter, myThid )
./model/src/read_pickup.F 368 READ_PICKUP 
     &                                     nj, fp, Nr, myIter, myThid )
./model/src/read_pickup.F 371 READ_PICKUP 
     &                                     nj, fp, Nr, myIter, myThid )
./model/src/read_pickup.F 376 READ_PICKUP 
     &                                     nj, fp, Nr, myIter, myThid )
./model/src/read_pickup.F 379 READ_PICKUP 
     &                                     nj, fp, Nr, myIter, myThid )
./model/src/read_pickup.F 384 READ_PICKUP 
     &                                     nj, fp, Nr, myIter, myThid )
./model/src/read_pickup.F 392 READ_PICKUP 
     &                                     nj, fp, Nr, myIter, myThid )
./model/src/read_pickup.F 397 READ_PICKUP 
     &                                     nj, fp, Nr, myIter, myThid )
./model/src/read_pickup.F 404 READ_PICKUP 
     &                                     nj, fp, Nr, myIter, myThid )
./model/src/read_pickup.F 411 READ_PICKUP 
     &                                     nj, fp, 1 , myIter, myThid )
./model/src/read_pickup.F 415 READ_PICKUP 
     &                                     nj, fp, 1 , myIter, myThid )
./model/src/read_pickup.F 421 READ_PICKUP 
     &                                     nj, fp, 1 , myIter, myThid )
./model/src/read_pickup.F 425 READ_PICKUP 
     &                                     nj, fp, 1 , myIter, myThid )
./model/src/read_pickup.F 65 READ_PICKUP 
      INTEGER fp
./model/src/write_pickup.F 113 WRITE_PICKUP 
        fp = precFloat64
./model/src/write_pickup.F 119 WRITE_PICKUP 
        CALL WRITE_REC_3D_RL( fn, fp, Nr, uVel,   -j, myIter, myThid )
./model/src/write_pickup.F 122 WRITE_PICKUP 
        CALL WRITE_REC_3D_RL( fn, fp, Nr, vVel,   -j, myIter, myThid )
./model/src/write_pickup.F 128 WRITE_PICKUP 
          CALL WRITE_REC_3D_RL( fn, fp, Nr, uMean,   -j, myIter, myThid)
./model/src/write_pickup.F 131 WRITE_PICKUP 
          CALL WRITE_REC_3D_RL( fn, fp, Nr, vMean,   -j, myIter, myThid)
./model/src/write_pickup.F 137 WRITE_PICKUP 
        CALL WRITE_REC_3D_RL( fn, fp, Nr, theta,  -j, myIter, myThid )
./model/src/write_pickup.F 140 WRITE_PICKUP 
        CALL WRITE_REC_3D_RL( fn, fp, Nr, salt,   -j, myIter, myThid )
./model/src/write_pickup.F 150 WRITE_PICKUP 
        CALL WRITE_REC_3D_RL( fn, fp, Nr, guNm(1-OLx,1-OLy,1,1,1,m1),
./model/src/write_pickup.F 156 WRITE_PICKUP 
        CALL WRITE_REC_3D_RL( fn, fp, Nr, guNm(1-OLx,1-OLy,1,1,1,m2),
./model/src/write_pickup.F 163 WRITE_PICKUP 
        CALL WRITE_REC_3D_RL( fn, fp, Nr, gvNm(1-OLx,1-OLy,1,1,1,m1),
./model/src/write_pickup.F 169 WRITE_PICKUP 
        CALL WRITE_REC_3D_RL( fn, fp, Nr, gvNm(1-OLx,1-OLy,1,1,1,m2),
./model/src/write_pickup.F 178 WRITE_PICKUP 
        CALL WRITE_REC_3D_RL( fn, fp, Nr, gtNm(1-OLx,1-OLy,1,1,1,m1),
./model/src/write_pickup.F 187 WRITE_PICKUP 
        CALL WRITE_REC_3D_RL( fn, fp, Nr, gtNm(1-OLx,1-OLy,1,1,1,m2),
./model/src/write_pickup.F 199 WRITE_PICKUP 
        CALL WRITE_REC_3D_RL( fn, fp, Nr, gsNm(1-OLx,1-OLy,1,1,1,m1),
./model/src/write_pickup.F 208 WRITE_PICKUP 
        CALL WRITE_REC_3D_RL( fn, fp, Nr, gsNm(1-OLx,1-OLy,1,1,1,m2),
./model/src/write_pickup.F 221 WRITE_PICKUP 
        CALL WRITE_REC_3D_RL( fn, fp, Nr, gwNm(1-OLx,1-OLy,1,1,1,m1),
./model/src/write_pickup.F 227 WRITE_PICKUP 
        CALL WRITE_REC_3D_RL( fn, fp, Nr, gwNm(1-OLx,1-OLy,1,1,1,m2),
./model/src/write_pickup.F 236 WRITE_PICKUP 
        CALL WRITE_REC_3D_RL( fn, fp, Nr, guNm1,  -j, myIter, myThid )
./model/src/write_pickup.F 239 WRITE_PICKUP 
        CALL WRITE_REC_3D_RL( fn, fp, Nr, gvNm1,  -j, myIter, myThid )
./model/src/write_pickup.F 244 WRITE_PICKUP 
        CALL WRITE_REC_3D_RL( fn, fp, Nr, gtNm1,  -j, myIter, myThid )
./model/src/write_pickup.F 252 WRITE_PICKUP 
        CALL WRITE_REC_3D_RL( fn, fp, Nr, gsNm1,  -j, myIter, myThid )
./model/src/write_pickup.F 261 WRITE_PICKUP 
        CALL WRITE_REC_3D_RL( fn, fp, Nr, gwNm1,  -j, myIter, myThid )
./model/src/write_pickup.F 270 WRITE_PICKUP 
        CALL WRITE_REC_3D_RL( fn, fp, Nr,totPhiHyd,-j,myIter, myThid )
./model/src/write_pickup.F 276 WRITE_PICKUP 
        CALL WRITE_REC_3D_RL( fn, fp, Nr, phi_nh, -j, myIter, myThid )
./model/src/write_pickup.F 284 WRITE_PICKUP 
        CALL WRITE_REC_3D_RL( fn, fp, Nr,addMass,-j,myIter, myThid )
./model/src/write_pickup.F 293 WRITE_PICKUP 
        CALL WRITE_REC_3D_RL( fn, fp, 1 , etaN,   nj, myIter, myThid )
./model/src/write_pickup.F 299 WRITE_PICKUP 
        CALL WRITE_REC_3D_RL( fn, fp, 1, dPhiNH,  nj, myIter, myThid )
./model/src/write_pickup.F 307 WRITE_PICKUP 
        CALL WRITE_REC_3D_RL( fn, fp, 1, dEtaHdt, nj, myIter, myThid )
./model/src/write_pickup.F 315 WRITE_PICKUP 
        CALL WRITE_REC_3D_RL( fn, fp, 1, etaHnm1, nj, myIter, myThid )
./model/src/write_pickup.F 337 WRITE_PICKUP 
        CALL MDS_WR_METAFILES( fn, fp, glf, .FALSE.,
./model/src/write_pickup.F 69 WRITE_PICKUP 
      INTEGER fp
./pkg/atm_phys/atm_phys_read_pickup.F 134 ATM_PHYS_READ_PICKUP 
     &                                 nj, fp, 1 , myIter, myThid )
./pkg/atm_phys/atm_phys_read_pickup.F 44 ATM_PHYS_READ_PICKUP 
      INTEGER fp
./pkg/atm_phys/atm_phys_read_pickup.F 61 ATM_PHYS_READ_PICKUP 
       fp = precFloat64
./pkg/atm_phys/atm_phys_read_pickup.F 69 ATM_PHYS_READ_PICKUP 
       IF ( nbFields.GE.0 .AND. filePrec.NE.fp ) THEN
./pkg/atm_phys/atm_phys_read_pickup.F 74 ATM_PHYS_READ_PICKUP 
     &    'file prec.=', filePrec, ' but expecting prec.=', fp
./pkg/atm_phys/atm_phys_write_pickup.F 107 ATM_PHYS_WRITE_PICKUP 
        CALL MDS_WR_METAFILES( fn, fp, glf, .FALSE.,
./pkg/atm_phys/atm_phys_write_pickup.F 55 ATM_PHYS_WRITE_PICKUP 
      INTEGER j, nj, fp, lChar
./pkg/atm_phys/atm_phys_write_pickup.F 71 ATM_PHYS_WRITE_PICKUP 
        fp = precFloat64
./pkg/atm_phys/atm_phys_write_pickup.F 81 ATM_PHYS_WRITE_PICKUP 
        CALL WRITE_REC_3D_RL( fn, fp, 1,
./pkg/bbl/bbl_read_pickup.F 120 BBL_READ_PICKUP 
     &                                 nj, fp, 1 , myIter, myThid )
./pkg/bbl/bbl_read_pickup.F 122 BBL_READ_PICKUP 
     &                                 nj, fp, 1 , myIter, myThid )
./pkg/bbl/bbl_read_pickup.F 124 BBL_READ_PICKUP 
     &                                 nj, fp, 1 , myIter, myThid )
./pkg/bbl/bbl_read_pickup.F 43 BBL_READ_PICKUP 
      INTEGER fp
./pkg/bbl/bbl_read_pickup.F 60 BBL_READ_PICKUP 
       fp = precFloat64
./pkg/bbl/bbl_read_pickup.F 68 BBL_READ_PICKUP 
       IF ( nbFields.GE.0 .AND. filePrec.NE.fp ) THEN
./pkg/bbl/bbl_read_pickup.F 73 BBL_READ_PICKUP 
     &    'file prec.=', filePrec, ' but expecting prec.=', fp
./pkg/bbl/bbl_write_pickup.F 105 BBL_WRITE_PICKUP 
        CALL MDS_WR_METAFILES( fn, fp, glf, .FALSE.,
./pkg/bbl/bbl_write_pickup.F 53 BBL_WRITE_PICKUP 
      INTEGER j, fp, lChar
./pkg/bbl/bbl_write_pickup.F 69 BBL_WRITE_PICKUP 
        fp = precFloat64
./pkg/bbl/bbl_write_pickup.F 76 BBL_WRITE_PICKUP 
        CALL WRITE_REC_3D_RL( fn, fp, 1,
./pkg/bbl/bbl_write_pickup.F 81 BBL_WRITE_PICKUP 
        CALL WRITE_REC_3D_RL( fn, fp, 1,
./pkg/bbl/bbl_write_pickup.F 86 BBL_WRITE_PICKUP 
        CALL WRITE_REC_3D_RL( fn, fp, 1,
./pkg/cheapaml/cheapaml_read_pickup.F 130 CHEAPAML_READ_PICKUP 
     &                                 nj, fp, 1 , myIter, myThid )
./pkg/cheapaml/cheapaml_read_pickup.F 132 CHEAPAML_READ_PICKUP 
     &                                 nj, fp, 1 , myIter, myThid )
./pkg/cheapaml/cheapaml_read_pickup.F 136 CHEAPAML_READ_PICKUP 
     &                                 nj, fp, 1 , myIter, myThid )
./pkg/cheapaml/cheapaml_read_pickup.F 138 CHEAPAML_READ_PICKUP 
     &                                 nj, fp, 1 , myIter, myThid )
./pkg/cheapaml/cheapaml_read_pickup.F 142 CHEAPAML_READ_PICKUP 
     &                                 nj, fp, 1 ,myIter, myThid )
./pkg/cheapaml/cheapaml_read_pickup.F 144 CHEAPAML_READ_PICKUP 
     &                                 nj, fp, 1 ,myIter, myThid )
./pkg/cheapaml/cheapaml_read_pickup.F 44 CHEAPAML_READ_PICKUP 
      INTEGER fp
./pkg/cheapaml/cheapaml_read_pickup.F 63 CHEAPAML_READ_PICKUP 
       fp = precFloat64
./pkg/cheapaml/cheapaml_read_pickup.F 71 CHEAPAML_READ_PICKUP 
       IF ( nbFields.GE.0 .AND. filePrec.NE.fp ) THEN
./pkg/cheapaml/cheapaml_read_pickup.F 76 CHEAPAML_READ_PICKUP 
     &    'file prec.=', filePrec, ' but expecting prec.=', fp
./pkg/cheapaml/cheapaml_write_pickup.F 100 CHEAPAML_WRITE_PICKUP 
        CALL WRITE_REC_3D_RL( fn, fp, 1,
./pkg/cheapaml/cheapaml_write_pickup.F 108 CHEAPAML_WRITE_PICKUP 
        CALL WRITE_REC_3D_RL( fn, fp, 1,
./pkg/cheapaml/cheapaml_write_pickup.F 113 CHEAPAML_WRITE_PICKUP 
        CALL WRITE_REC_3D_RL( fn, fp, 1,
./pkg/cheapaml/cheapaml_write_pickup.F 139 CHEAPAML_WRITE_PICKUP 
        CALL MDS_WR_METAFILES( fn, fp, glf, .FALSE.,
./pkg/cheapaml/cheapaml_write_pickup.F 55 CHEAPAML_WRITE_PICKUP 
      INTEGER j, nj, fp, lChar
./pkg/cheapaml/cheapaml_write_pickup.F 71 CHEAPAML_WRITE_PICKUP 
        fp = precFloat64
./pkg/cheapaml/cheapaml_write_pickup.F 83 CHEAPAML_WRITE_PICKUP 
        CALL WRITE_REC_3D_RL( fn, fp, 1,
./pkg/cheapaml/cheapaml_write_pickup.F 88 CHEAPAML_WRITE_PICKUP 
        CALL WRITE_REC_3D_RL( fn, fp, 1,
./pkg/cheapaml/cheapaml_write_pickup.F 95 CHEAPAML_WRITE_PICKUP 
        CALL WRITE_REC_3D_RL( fn, fp, 1,
./lsopt/cubic.F 20 CUBIC 
      z1 = dble(fp) + dble(fpa) - 3.d0*dble(fa-f)/dble(ta-t)
./lsopt/cubic.F 21 CUBIC 
      b  = z1 + dble(fp)
./lsopt/cubic.F 28 CUBIC 
         discri = z1*z1-dble(fp)*dble(fpa)
./lsopt/cubic.F 2 CUBIC 
      subroutine CUBIC( t, f, fp, ta, fa, fpa, tlower, tupper )
./lsopt/cubic.F 30 CUBIC 
            if (fp.lt.0.) t = tupper
./lsopt/cubic.F 31 CUBIC 
            if (fp.ge.0.) t = tlower
./lsopt/cubic.F 37 CUBIC 
         discri = dble(fp)/z1
./lsopt/cubic.F 45 CUBIC 
            if (fp.lt.0.) t = tupper
./lsopt/cubic.F 46 CUBIC 
            if (fp.ge.0.) t = tlower
./lsopt/cubic.F 61 CUBIC 
         t    = t + fp*(ta-t)/sngl(b+discri)
./lsopt/cubic.F 7 CUBIC 
      double precision    t, f, fp, ta, fa, fpa, tlower, tupper
./lsopt/lsline.F 131 LSLINE 
         fp = DDOT( nn, dd, 1, gg, 1 )
./lsopt/lsline.F 146 LSLINE 
         if (fp .gt. xpara2*dotdg) then
./lsopt/lsline.F 183 LSLINE 
         call CUBIC( tact, fnew, fp, ta, fa, fpa, left, right )
./lsopt/lsline.F 206 LSLINE 
         call CUBIC( tact, fnew, fp, ta, fa, fpa, left, right )
./lsopt/lsline.F 227 LSLINE 
         fpa = fp
./lsopt/lsline.F 83 LSLINE 
      double precision    fa, fpa, fp
./pkg/dic/dic_read_co2_pickup.F 36 DIC_READ_CO2_PICKUP 
      INTEGER fp, ioUnit
./pkg/dic/dic_read_co2_pickup.F 51 DIC_READ_CO2_PICKUP 
        fp = precFloat64
./pkg/dic/dic_read_co2_pickup.F 71 DIC_READ_CO2_PICKUP 
        length_of_rec = MDS_RECLEN( fp, 2, myThid )
./pkg/dic/dic_read_pickup.F 33 DIC_READ_PICKUP 
      INTEGER fp, ioUnit
./pkg/dic/dic_read_pickup.F 45 DIC_READ_PICKUP 
      fp = precFloat64
./pkg/dic/dic_read_pickup.F 60 DIC_READ_PICKUP 
        CALL READ_REC_3D_RL( fn, fp, 1, pH, 1, myIter, myThid )