| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_check.F |
56 |
EXF_CHECK |
& (exf_iprec.EQ.precFloat32 .OR. exf_iprec.EQ.precFloat64) |
|
./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 |
104 |
FLT_INIT_VARIA |
fp = precFloat64 |
|
./pkg/flt/flt_write_pickup.F |
75 |
FLT_WRITE_PICKUP |
CALL MDS_WRITEVEC_LOC( fn, precFloat64, ioUnit, |
|
./pkg/flt/flt_write_pickup.F |
94 |
FLT_WRITE_PICKUP |
CALL MDS_WRITEVEC_LOC( fn, precFloat64, ioUnit, |
|
./pkg/generic_advdiff/gad_read_pickup.F |
149 |
GAD_READ_PICKUP |
prec = precFloat64 |
|
./pkg/generic_advdiff/gad_read_pickup.F |
98 |
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_read_pickup.F |
54 |
GGL90_READ_PICKUP |
prec = precFloat64 |
|
./pkg/ggl90/ggl90_write_pickup.F |
49 |
GGL90_WRITE_PICKUP |
prec = precFloat64 |
|
./pkg/gmredi/gmredi_output.F |
166 |
GMREDI_OUTPUT |
IF ( writeBinaryPrec .EQ. precFloat64 ) THEN |
|
./pkg/gmredi/gmredi_output.F |
84 |
GMREDI_OUTPUT |
IF ( writeBinaryPrec .EQ. precFloat64 ) THEN |
|
./pkg/gmredi/gmredi_read_pickup.F |
68 |
GMREDI_READ_PICKUP |
fp = precFloat64 |
|
./pkg/gmredi/gmredi_write_pickup.F |
74 |
GMREDI_WRITE_PICKUP |
fp = precFloat64 |
|
./pkg/kpp/kpp_output.F |
175 |
KPP_OUTPUT |
IF ( writeBinaryPrec .EQ. precFloat64 ) THEN |
|
./pkg/kpp/kpp_output.F |
333 |
KPP_OUTPUT |
IF ( writeBinaryPrec .EQ. precFloat64 ) THEN |
|
./pkg/land/land_output.F |
120 |
LAND_OUTPUT |
IF ( writeBinaryPrec .EQ. precFloat64 ) THEN |
|
./pkg/land/land_output.F |
238 |
LAND_OUTPUT |
IF ( writeBinaryPrec .EQ. precFloat64 ) THEN |
|
./pkg/land/land_read_pickup.F |
55 |
LAND_READ_PICKUP |
prec = precFloat64 |
|
./pkg/land/land_write_pickup.F |
64 |
LAND_WRITE_PICKUP |
prec = precFloat64 |
|
./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 |
1082 |
MDSREADFIELD_2D_GL |
elseif (filePrec .eq. precFloat64) then |
|
./pkg/mdsio/mdsio_gl.F |
1155 |
MDSREADFIELD_2D_GL |
elseif (filePrec .eq. precFloat64) then |
|
./pkg/mdsio/mdsio_gl.F |
1405 |
MDSWRITEFIELD_2D_GL |
elseif (filePrec .eq. precFloat64) then |
|
./pkg/mdsio/mdsio_gl.F |
1505 |
MDSWRITEFIELD_2D_GL |
elseif (filePrec .eq. precFloat64) then |
|
./pkg/mdsio/mdsio_gl.F |
295 |
MDSREADFIELD_3D_GL |
elseif (filePrec .eq. precFloat64) then |
|
./pkg/mdsio/mdsio_gl.F |
368 |
MDSREADFIELD_3D_GL |
elseif (filePrec .eq. precFloat64) then |
|
./pkg/mdsio/mdsio_gl.F |
616 |
MDSWRITEFIELD_3D_GL |
elseif (filePrec .eq. precFloat64) then |
|
./pkg/mdsio/mdsio_gl.F |
716 |
MDSWRITEFIELD_3D_GL |
elseif (filePrec .eq. precFloat64) then |
|
./pkg/mdsio/mdsio_gl_slice.F |
198 |
MDSREADFIELD_XZ_GL |
elseif (filePrec .eq. precFloat64) then |
|
./pkg/mdsio/mdsio_gl_slice.F |
438 |
MDSREADFIELD_YZ_GL |
elseif (filePrec .eq. precFloat64) then |
|
./pkg/mdsio/mdsio_gl_slice.F |
661 |
MDSWRITEFIELD_XZ_GL |
elseif (filePrec .eq. precFloat64) then |
|
./pkg/mdsio/mdsio_gl_slice.F |
902 |
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 |
335 |
MDS_READ_FIELD |
ELSEIF ( filePrec.EQ.precFloat64 ) THEN |
|
./pkg/mdsio/mdsio_read_field.F |
543 |
MDS_READ_FIELD |
ELSEIF ( filePrec.EQ.precFloat64 ) THEN |
|
./pkg/mdsio/mdsio_read_meta.F |
278 |
MDS_READ_META |
filePrec = precFloat64 |
|
./pkg/mdsio/mdsio_read_meta.F |
293 |
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_read_tape.F |
158 |
MDS_READ_TAPE |
ELSEIF ( filePrec.EQ.precFloat64 ) THEN |
|
./pkg/mdsio/mdsio_read_tape.F |
173 |
MDS_READ_TAPE |
ELSEIF ( filePrec.EQ.precFloat64 ) THEN |
|
./pkg/mdsio/mdsio_read_tape.F |
244 |
MDS_READ_TAPE |
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 |
312 |
MDS_WRITE_FIELD |
ELSEIF ( filePrec.EQ.precFloat64 ) THEN |
|
./pkg/mdsio/mdsio_write_field.F |
390 |
MDS_WRITE_FIELD |
ELSEIF ( filePrec.EQ.precFloat64 ) THEN |
|
./pkg/mdsio/mdsio_write_meta.F |
148 |
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_write_tape.F |
168 |
MDS_WRITE_TAPE |
ELSEIF ( filePrec.EQ.precFloat64 ) THEN |
|
./pkg/mdsio/mdsio_write_tape.F |
196 |
MDS_WRITE_TAPE |
ELSEIF ( filePrec.EQ.precFloat64 ) THEN |
|
./pkg/mdsio/mdsio_write_tape.F |
274 |
MDS_WRITE_TAPE |
ELSEIF ( filePrec.EQ.precFloat64 ) THEN |
|
./pkg/mdsio/mdsio_writelocal.F |
236 |
MDS_WRITELOCAL |
ELSEIF ( filePrec.EQ.precFloat64 ) THEN |
|
./pkg/mom_vecinv/mom_vecinv.F |
168 |
MOM_VECINV |
IF ( writeBinaryPrec .EQ. precFloat64 ) THEN |
|
./pkg/my82/my82_output.F |
109 |
MY82_OUTPUT |
IF ( writeBinaryPrec .EQ. precFloat64 ) THEN |
|
./pkg/my82/my82_output.F |
198 |
MY82_OUTPUT |
IF ( writeBinaryPrec .EQ. precFloat64 ) THEN |
|
./pkg/mypackage/mypackage_read_pickup.F |
67 |
MYPACKAGE_READ_PICKUP |
fp = precFloat64 |
|
./pkg/mypackage/mypackage_write_pickup.F |
71 |
MYPACKAGE_WRITE_PICKUP |
fp = precFloat64 |
|
./pkg/obcs/obcs_read_pickup.F |
52 |
OBCS_READ_PICKUP |
prec = precFloat64 |
|
./pkg/obcs/obcs_write_pickup.F |
53 |
OBCS_WRITE_PICKUP |
prec = precFloat64 |
|
./pkg/ocn_compon_interf/cpl_output.F |
120 |
CPL_OUTPUT |
IF ( writeBinaryPrec .EQ. precFloat64 ) THEN |
|
./pkg/ocn_compon_interf/cpl_write_pickup.F |
54 |
CPL_WRITE_PICKUP |
prec = precFloat64 |
|
./pkg/ocn_compon_interf/ocn_cpl_read_pickup.F |
60 |
OCN_CPL_READ_PICKUP |
prec = precFloat64 |
|
./pkg/openad/ad_s_mds_reclen.F |
34 |
OAD_S_MDS_RECLEN |
elseif (filePrec .EQ. precFloat64) then |
|
./pkg/ptracers/ptracers_read_pickup.F |
117 |
PTRACERS_READ_PICKUP |
prec = precFloat64 |
|
./pkg/ptracers/ptracers_read_pickup.F |
280 |
PTRACERS_READ_PICKUP |
prec = precFloat64 |
|
./pkg/ptracers/ptracers_write_pickup.F |
127 |
PTRACERS_WRITE_PICKUP |
prec = precFloat64 |
|
./pkg/ptracers/ptracers_write_pickup.F |
204 |
PTRACERS_WRITE_PICKUP |
prec = precFloat64 |
|
./pkg/ptracers/ptracers_write_state.F |
63 |
PTRACERS_WRITE_STATE |
IF ( writeBinaryPrec .EQ. precFloat64 ) THEN |
|
./pkg/ptracers/ptracers_write_timeave.F |
82 |
PTRACERS_WRITE_TIMEAVE |
IF ( writeBinaryPrec .EQ. precFloat64 ) THEN |
|
./pkg/sbo/sbo_output.F |
100 |
SBO_OUTPUT |
I fName, precFloat64, ioUnit, |
|
./pkg/seaice/seaice_output.F |
280 |
SEAICE_OUTPUT |
IF ( writeBinaryPrec .EQ. precFloat64 ) THEN |
|
./pkg/seaice/seaice_output.F |
81 |
SEAICE_OUTPUT |
IF ( writeBinaryPrec .EQ. precFloat64 ) THEN |
|
./pkg/seaice/seaice_read_pickup.F |
76 |
SEAICE_READ_PICKUP |
fp = precFloat64 |
|
./pkg/seaice/seaice_write_pickup.F |
75 |
SEAICE_WRITE_PICKUP |
fp = precFloat64 |
|
./model/src/ini_curvilinear_grid.F |
251 |
INI_CURVILINEAR_GRID |
fp = precFloat64 |
|
./pkg/shelfice/shelfice_output.F |
158 |
SHELFICE_OUTPUT |
IF ( writeBinaryPrec .EQ. precFloat64 ) THEN |
|
./pkg/shelfice/shelfice_output.F |
63 |
SHELFICE_OUTPUT |
IF ( writeBinaryPrec .EQ. precFloat64 ) THEN |
|
./pkg/shelfice/shelfice_read_pickup.F |
63 |
SHELFICE_READ_PICKUP |
fp = precFloat64 |
|
./pkg/shelfice/shelfice_write_pickup.F |
69 |
SHELFICE_WRITE_PICKUP |
fp = precFloat64 |
|
./pkg/streamice/streamice_read_pickup.F |
59 |
STREAMICE_READ_PICKUP |
fp = precFloat64 |
|
./pkg/streamice/streamice_write_pickup.F |
69 |
STREAMICE_WRITE_PICKUP |
fp = precFloat64 |
|
./pkg/thsice/thsice_output.F |
188 |
THSICE_OUTPUT |
IF ( writeBinaryPrec .EQ. precFloat64 ) THEN |
|
./pkg/thsice/thsice_output.F |
316 |
THSICE_OUTPUT |
IF ( writeBinaryPrec .EQ. precFloat64 ) THEN |
|
./pkg/thsice/thsice_read_pickup.F |
43 |
THSICE_READ_PICKUP |
prec = precFloat64 |
|
./pkg/thsice/thsice_write_pickup.F |
54 |
THSICE_WRITE_PICKUP |
prec = precFloat64 |
|
./pkg/timeave/timeave_statv_write.F |
226 |
TIMEAVE_STATV_WRITE |
IF ( writeBinaryPrec .EQ. precFloat64 ) THEN |
|
./model/src/read_pickup.F |
104 |
READ_PICKUP |
fp = precFloat64 |
|
./model/src/set_defaults.F |
355 |
SET_DEFAULTS |
writeStatePrec = precFloat64 |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
118 |
COST_WEIGHTS |
CALL READ_REC_3D_RL( 'Err_hflux.bin', precFloat64, 1, |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
85 |
COST_WEIGHTS |
length_of_rec = MDS_RECLEN( precFloat64, Nr, myThid ) |
|
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F |
118 |
COST_WEIGHTS |
CALL READ_REC_3D_RL( 'Err_hflux.bin', precFloat64, 1, |
|
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F |
85 |
COST_WEIGHTS |
length_of_rec = MDS_RECLEN( precFloat64, Nr, myThid ) |
|
./model/src/write_pickup.F |
106 |
WRITE_PICKUP |
fp = precFloat64 |
|
./model/src/write_state.F |
180 |
WRITE_STATE |
IF ( writeBinaryPrec .EQ. precFloat64 ) THEN |
|
./pkg/aim_v23/aim_diagnostics.F |
129 |
AIM_DIAGNOSTICS |
IF ( writeBinaryPrec .EQ. precFloat64 ) THEN |
|
./pkg/aim_v23/aim_diagnostics.F |
235 |
AIM_DIAGNOSTICS |
IF ( writeBinaryPrec .EQ. precFloat64 ) THEN |
|
./pkg/aim_v23/aim_do_co2.F |
115 |
AIM_DO_CO2 |
CALL MDS_READVEC_LOC( fn, precFloat64, iUnit, 'RL', 2, |
|
./pkg/aim_v23/aim_do_co2.F |
173 |
AIM_DO_CO2 |
CALL MDS_WRITEVEC_LOC( fn, precFloat64, iUnit, 'RL', 2, |
|
./pkg/aim_v23/aim_write_tave.F |
123 |
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/atm_compon_interf/atm_cpl_read_pickup.F |
72 |
ATM_CPL_READ_PICKUP |
fp = precFloat64 |
|
./pkg/atm_compon_interf/cpl_write_pickup.F |
73 |
CPL_WRITE_PICKUP |
fp = precFloat64 |
|
./pkg/atm_phys/atm_phys_init_fixed.F |
93 |
ATM_PHYS_INIT_FIXED |
I precFloat32, precFloat64, |
|
./pkg/atm_phys/atm_phys_read_pickup.F |
70 |
ATM_PHYS_READ_PICKUP |
fp = precFloat64 |
|
./pkg/atm_phys/atm_phys_write_pickup.F |
74 |
ATM_PHYS_WRITE_PICKUP |
fp = precFloat64 |
|
./pkg/bbl/bbl_read_pickup.F |
66 |
BBL_READ_PICKUP |
fp = precFloat64 |
|
./pkg/bbl/bbl_write_pickup.F |
69 |
BBL_WRITE_PICKUP |
fp = precFloat64 |
|
./pkg/bling/bling_read_pickup.F |
56 |
BLING_READ_PICKUP |
fp = precFloat64 |
|
./pkg/bling/bling_write_pickup.F |
54 |
BLING_WRITE_PICKUP |
prec = precFloat64 |
|
./eesupp/src/mds_reclen.F |
33 |
NO PROCEDURE |
ELSEIF (filePrec .EQ. precFloat64) THEN |
|
./pkg/cd_code/cd_code_read_pickup.F |
48 |
CD_CODE_READ_PICKUP |
prec = precFloat64 |
|
./pkg/cd_code/cd_code_write_pickup.F |
75 |
CD_CODE_WRITE_PICKUP |
prec = precFloat64 |
|
./pkg/cheapaml/cheapaml_read_pickup.F |
69 |
CHEAPAML_READ_PICKUP |
fp = precFloat64 |
|
./pkg/cheapaml/cheapaml_write_pickup.F |
71 |
CHEAPAML_WRITE_PICKUP |
fp = precFloat64 |
|
./pkg/debug/write_fullarray_rl.F |
69 |
WRITE_FULLARRAY_RL |
filePrec = precFloat64 |
|
./pkg/debug/write_fullarray_rs.F |
69 |
WRITE_FULLARRAY_RS |
filePrec = precFloat64 |
|
./pkg/diagnostics/diagnostics_mnc_out.F |
398 |
DIAGNOSTICS_MNC_OUT |
ELSEIF ( (writeBinaryPrec .EQ. precFloat64) |
|
./pkg/diagnostics/diagnostics_out.F |
401 |
DIAGNOSTICS_OUT |
IF ( fflags(listId)(1:1).EQ.'D' ) prec = precFloat64 |
|
./pkg/diagnostics/diagnostics_read_pickup.F |
138 |
DIAGNOSTICS_READ_PICKUP |
prec = precFloat64 |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
177 |
DIAGNOSTICS_WRITE_PICKUP |
prec = precFloat64 |
|
./eesupp/inc/EEPARAMS.h |
73 |
NO PROCEDURE |
INTEGER precFloat64 |
|
./eesupp/inc/EEPARAMS.h |
74 |
NO PROCEDURE |
PARAMETER ( precFloat64 = 64 ) |
|
./pkg/dic/dic_biotic_diags.F |
107 |
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 |
50 |
DIC_READ_PICKUP |
fp = precFloat64 |
|
./pkg/dic/dic_write_pickup.F |
58 |
DIC_WRITE_PICKUP |
prec = precFloat64 |