Symbol Description Uses
precFloat64 115


File Line number Procedure Code
./pkg/fizhi/fizhi_read_pickup.F 51 FIZHI_READ_PICKUP 
      prec = precFloat64
./pkg/fizhi/fizhi_write_pickup.F 69 FIZHI_WRITE_PICKUP 
      prec = precFloat64
./pkg/flt/flt_init_varia.F 91 FLT_INIT_VARIA 
        fp = precFloat64
./pkg/flt/flt_write_pickup.F 74 FLT_WRITE_PICKUP 
          CALL MDS_WRITEVEC_LOC( fn, precFloat64, ioUnit,
./pkg/flt/flt_write_pickup.F 93 FLT_WRITE_PICKUP 
            CALL MDS_WRITEVEC_LOC( fn, precFloat64, ioUnit,
./pkg/generic_advdiff/gad_read_pickup.F 128 GAD_READ_PICKUP 
          prec = precFloat64
./pkg/generic_advdiff/gad_read_pickup.F 87 GAD_READ_PICKUP 
          prec = precFloat64
./pkg/generic_advdiff/gad_write_pickup.F 80 GAD_WRITE_PICKUP 
        prec = precFloat64
./pkg/generic_advdiff/gad_write_pickup.F 97 GAD_WRITE_PICKUP 
        prec = precFloat64
./pkg/ggl90/ggl90_checkpoint.F 38 GGL90_READ_PICKUP 
      prec = precFloat64
./pkg/ggl90/ggl90_checkpoint.F 85 GGL90_WRITE_PICKUP 
      prec = precFloat64
./pkg/gmredi/gmredi_output.F 159 GMREDI_OUTPUT 
         IF ( writeBinaryPrec .EQ. precFloat64 ) THEN
./pkg/gmredi/gmredi_output.F 80 GMREDI_OUTPUT 
          IF ( writeBinaryPrec .EQ. precFloat64 ) THEN
./pkg/kpp/kpp_output.F 162 KPP_OUTPUT 
          IF ( writeBinaryPrec .EQ. precFloat64 ) THEN
./pkg/kpp/kpp_output.F 316 KPP_OUTPUT 
          IF ( writeBinaryPrec .EQ. precFloat64 ) THEN
./pkg/land/land_output.F 117 LAND_OUTPUT 
          IF ( writeBinaryPrec .EQ. precFloat64 ) THEN
./pkg/land/land_output.F 234 LAND_OUTPUT 
         IF ( writeBinaryPrec .EQ. precFloat64 ) THEN
./pkg/land/land_read_pickup.F 49 LAND_READ_PICKUP 
      prec = precFloat64
./pkg/land/land_write_pickup.F 64 LAND_WRITE_PICKUP 
        prec = precFloat64
./pkg/layers/layers_output.F 58 LAYERS_OUTPUT 
      IF ( writeBinaryPrec .EQ. precFloat64 ) THEN
./pkg/mdsio/mdsio_facef_read.F 131 MDS_FACEF_READ_RS 
      ELSEIF ( fPrec.EQ.precFloat64 ) THEN
./pkg/mdsio/mdsio_facef_read.F 96 MDS_FACEF_READ_RS 
      ELSEIF ( fPrec.EQ.precFloat64 ) THEN
./pkg/mdsio/mdsio_gl.F 1045 MDSREADFIELD_2D_GL 
           elseif (filePrec .eq. precFloat64) then
./pkg/mdsio/mdsio_gl.F 1116 MDSREADFIELD_2D_GL 
          elseif (filePrec .eq. precFloat64) then
./pkg/mdsio/mdsio_gl.F 1357 MDSWRITEFIELD_2D_GL 
          elseif (filePrec .eq. precFloat64) then
./pkg/mdsio/mdsio_gl.F 1455 MDSWRITEFIELD_2D_GL 
           elseif (filePrec .eq. precFloat64) then
./pkg/mdsio/mdsio_gl.F 284 MDSREADFIELD_3D_GL 
           elseif (filePrec .eq. precFloat64) then
./pkg/mdsio/mdsio_gl.F 355 MDSREADFIELD_3D_GL 
          elseif (filePrec .eq. precFloat64) then
./pkg/mdsio/mdsio_gl.F 594 MDSWRITEFIELD_3D_GL 
          elseif (filePrec .eq. precFloat64) then
./pkg/mdsio/mdsio_gl.F 692 MDSWRITEFIELD_3D_GL 
           elseif (filePrec .eq. precFloat64) then
./pkg/mdsio/mdsio_gl_slice.F 187 MDSREADFIELD_XZ_GL 
           elseif (filePrec .eq. precFloat64) then
./pkg/mdsio/mdsio_gl_slice.F 414 MDSREADFIELD_YZ_GL 
           elseif (filePrec .eq. precFloat64) then
./pkg/mdsio/mdsio_gl_slice.F 624 MDSWRITEFIELD_XZ_GL 
           elseif (filePrec .eq. precFloat64) then
./pkg/mdsio/mdsio_gl_slice.F 852 MDSWRITEFIELD_YZ_GL 
           elseif (filePrec .eq. precFloat64) then
./pkg/mdsio/mdsio_rd_rec_rl.F 65 MDS_RD_REC_RL 
      ELSEIF ( fPrec.EQ.precFloat64 ) THEN
./pkg/mdsio/mdsio_rd_rec_rs.F 65 MDS_RD_REC_RS 
      ELSEIF ( fPrec.EQ.precFloat64 ) THEN
./pkg/mdsio/mdsio_read_field.F 320 MDS_READ_FIELD 
        ELSEIF ( filePrec.EQ.precFloat64 ) THEN
./pkg/mdsio/mdsio_read_field.F 528 MDS_READ_FIELD 
        ELSEIF ( filePrec.EQ.precFloat64 ) THEN
./pkg/mdsio/mdsio_read_meta.F 277 MDS_READ_META 
            filePrec = precFloat64
./pkg/mdsio/mdsio_read_meta.F 292 MDS_READ_META 
            filePrec = precFloat64
./pkg/mdsio/mdsio_read_section.F 242 MDS_READ_SEC_XZ 
           ELSEIF (filePrec .EQ. precFloat64) THEN
./pkg/mdsio/mdsio_read_section.F 520 MDS_READ_SEC_YZ 
           ELSEIF (filePrec .EQ. precFloat64) THEN
./pkg/mdsio/mdsio_readvector.F 298 MDSREADVECTOR 
          ELSEIF (filePrec .EQ. precFloat64) THEN
./pkg/mdsio/mdsio_wr_rec_rl.F 65 MDS_WR_REC_RL 
      ELSEIF ( fPrec.EQ.precFloat64 ) THEN
./pkg/mdsio/mdsio_wr_rec_rs.F 65 MDS_WR_REC_RS 
      ELSEIF ( fPrec.EQ.precFloat64 ) THEN
./pkg/mdsio/mdsio_write_field.F 286 MDS_WRITE_FIELD 
        ELSEIF ( filePrec.EQ.precFloat64 ) THEN
./pkg/mdsio/mdsio_write_field.F 364 MDS_WRITE_FIELD 
        ELSEIF ( filePrec.EQ.precFloat64 ) THEN
./pkg/mdsio/mdsio_write_meta.F 146 MDS_WRITE_META 
      ELSEIF (filePrec .EQ. precFloat64) THEN
./pkg/mdsio/mdsio_write_section.F 213 MDS_WRITE_SEC_XZ 
           ELSEIF (filePrec .EQ. precFloat64) THEN
./pkg/mdsio/mdsio_write_section.F 466 MDS_WRITE_SEC_YZ 
           ELSEIF (filePrec .EQ. precFloat64) THEN
./pkg/mdsio/mdsio_writelocal.F 234 MDS_WRITELOCAL 
      ELSEIF ( filePrec.EQ.precFloat64 ) THEN
./pkg/mdsio/mdsio_writevector.F 188 MDSWRITEVECTOR 
          ELSEIF (filePrec .EQ. precFloat64) THEN
./pkg/mom_vecinv/mom_vecinv.F 144 MOM_VECINV 
        IF ( writeBinaryPrec .EQ. precFloat64 ) THEN
./pkg/my82/my82_output.F 105 MY82_OUTPUT 
        IF ( writeBinaryPrec .EQ. precFloat64 ) THEN
./pkg/my82/my82_output.F 190 MY82_OUTPUT 
         IF ( writeBinaryPrec .EQ. precFloat64 ) THEN
./pkg/mypackage/mypackage_read_pickup.F 61 MYPACKAGE_READ_PICKUP 
       fp = precFloat64
./pkg/mypackage/mypackage_write_pickup.F 70 MYPACKAGE_WRITE_PICKUP 
        fp = precFloat64
./pkg/obcs/obcs_read_pickup.F 47 OBCS_READ_PICKUP 
      prec = precFloat64
./pkg/obcs/obcs_write_pickup.F 52 OBCS_WRITE_PICKUP 
      prec = precFloat64
./pkg/ocn_compon_interf/cpl_output.F 117 CPL_OUTPUT 
          IF ( writeBinaryPrec .EQ. precFloat64 ) THEN
./pkg/ocn_compon_interf/cpl_write_pickup.F 55 CPL_WRITE_PICKUP 
      prec = precFloat64
./pkg/ocn_compon_interf/ocn_cpl_read_pickup.F 56 OCN_CPL_READ_PICKUP 
       prec = precFloat64
./pkg/ptracers/ptracers_read_pickup.F 109 PTRACERS_READ_PICKUP 
       prec = precFloat64
./pkg/ptracers/ptracers_read_pickup.F 278 PTRACERS_READ_PICKUP 
         prec = precFloat64
./pkg/ptracers/ptracers_write_pickup.F 127 PTRACERS_WRITE_PICKUP 
        prec = precFloat64
./pkg/ptracers/ptracers_write_pickup.F 195 PTRACERS_WRITE_PICKUP 
          prec = precFloat64
./pkg/ptracers/ptracers_write_state.F 62 PTRACERS_WRITE_STATE 
        IF ( writeBinaryPrec .EQ. precFloat64 ) THEN
./pkg/ptracers/ptracers_write_timeave.F 81 PTRACERS_WRITE_TIMEAVE 
          IF ( writeBinaryPrec .EQ. precFloat64 ) THEN
./pkg/sbo/sbo_output.F 89 SBO_OUTPUT 
     I           fName, precFloat64, ioUnit,
./pkg/seaice/seaice_output.F 224 SEAICE_OUTPUT 
         IF ( writeBinaryPrec .EQ. precFloat64 ) THEN
./pkg/seaice/seaice_output.F 73 SEAICE_OUTPUT 
            IF ( writeBinaryPrec .EQ. precFloat64 ) THEN
./pkg/seaice/seaice_read_pickup.F 63 SEAICE_READ_PICKUP 
      fp = precFloat64
./pkg/seaice/seaice_write_pickup.F 68 SEAICE_WRITE_PICKUP 
       fp = precFloat64
./pkg/shelfice/shelfice_output.F 154 SHELFICE_OUTPUT 
         IF ( writeBinaryPrec .EQ. precFloat64 ) THEN
./pkg/shelfice/shelfice_output.F 63 SHELFICE_OUTPUT 
         IF ( writeBinaryPrec .EQ. precFloat64 ) THEN
./pkg/thsice/thsice_ini_vars.F 116 THSICE_INI_VARS 
        prec=precFloat64
./pkg/thsice/thsice_output.F 221 THSICE_OUTPUT 
         IF ( writeBinaryPrec .EQ. precFloat64 ) THEN
./pkg/thsice/thsice_output.F 345 THSICE_OUTPUT 
          IF ( writeBinaryPrec .EQ. precFloat64 ) THEN
./pkg/thsice/thsice_write_pickup.F 49 THSICE_WRITE_PICKUP 
        prec = precFloat64
./pkg/timeave/timeave_statv_write.F 222 TIMEAVE_STATV_WRITE 
          IF ( writeBinaryPrec .EQ. precFloat64 ) THEN
./verification/OpenAD/code_oad_all/ad_s_mds_reclen.F 31 OAD_S_MDS_RECLEN 
      elseif (filePrec .EQ. precFloat64) then
./model/src/ini_curvilinear_grid.F 272 INI_CURVILINEAR_GRID 
      fp = precFloat64
./verification/OpenAD/code_oad_all/write_state.F 160 WRITE_STATE 
          IF ( writeBinaryPrec .EQ. precFloat64 ) THEN
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F 115 COST_WEIGHTS 
      CALL READ_REC_3D_RL( 'Err_hflux.bin', precFloat64, 1,
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F 82 COST_WEIGHTS 
       length_of_rec = MDS_RECLEN( precFloat64, Nr, myThid )
./model/src/read_pickup.F 99 READ_PICKUP 
       fp = precFloat64
./model/src/set_defaults.F 298 SET_DEFAULTS 
      writeStatePrec    = precFloat64
./model/src/write_pickup.F 106 WRITE_PICKUP 
        fp = precFloat64
./model/src/write_state.F 160 WRITE_STATE 
          IF ( writeBinaryPrec .EQ. precFloat64 ) THEN
./pkg/aim_compon_interf/atm_cpl_read_pickup.F 45 ATM_CPL_READ_PICKUP 
      prec = precFloat64
./pkg/aim_compon_interf/cpl_write_pickup.F 48 CPL_WRITE_PICKUP 
      prec = precFloat64
./pkg/aim_v23/aim_diagnostics.F 122 AIM_DIAGNOSTICS 
         IF ( writeBinaryPrec .EQ. precFloat64 ) THEN
./pkg/aim_v23/aim_diagnostics.F 224 AIM_DIAGNOSTICS 
         IF ( writeBinaryPrec .EQ. precFloat64 ) THEN
./pkg/aim_v23/aim_do_co2.F 110 AIM_DO_CO2 
          length_of_rec = MDS_RECLEN( precFloat64, 2, myThid )
./pkg/aim_v23/aim_do_co2.F 158 AIM_DO_CO2 
          length_of_rec = MDS_RECLEN( precFloat64, 2, myThid )
./pkg/aim_v23/aim_write_tave.F 124 AIM_WRITE_TAVE 
         IF ( writeBinaryPrec .EQ. precFloat64 ) THEN
./pkg/atm2d/atm2d_read_pickup.F 39 ATM2D_READ_PICKUP 
        prec=precFloat64
./pkg/atm2d/atm2d_write_pickup.F 144 ATM2D_WRITE_PICKUP_NOW 
      prec = precFloat64
./pkg/cd_code/cd_code_read_pickup.F 44 CD_CODE_READ_PICKUP 
      prec = precFloat64
./eesupp/src/mds_reclen.F 33 NO PROCEDURE 
      ELSEIF (filePrec .EQ. precFloat64) THEN
./pkg/cd_code/cd_code_write_pickup.F 75 CD_CODE_WRITE_PICKUP 
        prec = precFloat64
./pkg/cheapaml/cheapaml_read_pickup.F 62 CHEAPAML_READ_PICKUP 
       fp = precFloat64
./pkg/cheapaml/cheapaml_write_pickup.F 69 CHEAPAML_WRITE_PICKUP 
        fp = precFloat64
./eesupp/inc/EEPARAMS.h 73 NO PROCEDURE 
      INTEGER precFloat64
./eesupp/inc/EEPARAMS.h 74 NO PROCEDURE 
      PARAMETER ( precFloat64 = 64 )
./pkg/debug/write_fullarray_rl.F 68 WRITE_FULLARRAY_RL 
      filePrec = precFloat64
./pkg/diagnostics/diagnostics_out.F 469 DIAGNOSTICS_OUT 
            IF ( fflags(listId)(1:1).EQ.'D' ) prec = precFloat64
./pkg/diagnostics/diagnostics_out.F 597 DIAGNOSTICS_OUT 
            ELSEIF ( (writeBinaryPrec .EQ. precFloat64)
./pkg/diagnostics/diagnostics_read_pickup.F 139 DIAGNOSTICS_READ_PICKUP 
          prec = precFloat64
./pkg/diagnostics/diagnostics_write_pickup.F 178 DIAGNOSTICS_WRITE_PICKUP 
          prec = precFloat64
./pkg/dic/dic_biotic_diags.F 104 DIC_BIOTIC_DIAGS 
         IF ( writeBinaryPrec .EQ. precFloat64 ) THEN
./pkg/dic/dic_read_co2_pickup.F 51 DIC_READ_CO2_PICKUP 
        fp = precFloat64
./pkg/dic/dic_read_pickup.F 45 DIC_READ_PICKUP 
      fp = precFloat64
./pkg/dic/dic_write_pickup.F 60 DIC_WRITE_PICKUP 
        prec = precFloat64
./pkg/exf/exf_check.F 40 EXF_CHECK 
     &     (exf_iprec.EQ.precFloat32 .OR. exf_iprec.EQ.precFloat64)