| File |
Line number |
Procedure |
Code |
|
./pkg/mdsio/mdsio_gl.F |
140 |
MDSREADFIELD_3D_GL |
inquire( file=dataFname, exist=exst ) |
|
./pkg/mdsio/mdsio_gl.F |
141 |
MDSREADFIELD_3D_GL |
if (exst) globalFile = .TRUE. |
|
./pkg/mdsio/mdsio_gl.F |
146 |
MDSREADFIELD_3D_GL |
inquire( file=dataFname, exist=exst ) |
|
./pkg/mdsio/mdsio_gl.F |
147 |
MDSREADFIELD_3D_GL |
if (exst) globalFile = .TRUE. |
|
./pkg/mdsio/mdsio_gl.F |
178 |
MDSREADFIELD_3D_GL |
inquire( file=dataFname, exist=exst ) |
|
./pkg/mdsio/mdsio_gl.F |
179 |
MDSREADFIELD_3D_GL |
if (exst) then |
|
./pkg/mdsio/mdsio_gl.F |
189 |
MDSREADFIELD_3D_GL |
inquire( file=dataFname, exist=exst ) |
|
./pkg/mdsio/mdsio_gl.F |
190 |
MDSREADFIELD_3D_GL |
if (exst) then |
|
./pkg/mdsio/mdsio_gl.F |
226 |
MDSREADFIELD_3D_GL |
inquire( file=dataFname, exist=exst ) |
|
./pkg/mdsio/mdsio_gl.F |
229 |
MDSREADFIELD_3D_GL |
if (exst) then |
|
./pkg/mdsio/mdsio_gl.F |
74 |
MDSREADFIELD_3D_GL |
logical exst |
|
./pkg/mdsio/mdsio_gl.F |
835 |
MDSREADFIELD_2D_GL |
logical exst |
|
./pkg/mdsio/mdsio_gl.F |
902 |
MDSREADFIELD_2D_GL |
inquire( file=dataFname, exist=exst ) |
|
./pkg/mdsio/mdsio_gl.F |
903 |
MDSREADFIELD_2D_GL |
if (exst) globalFile = .TRUE. |
|
./pkg/mdsio/mdsio_gl.F |
908 |
MDSREADFIELD_2D_GL |
inquire( file=dataFname, exist=exst ) |
|
./pkg/mdsio/mdsio_gl.F |
909 |
MDSREADFIELD_2D_GL |
if (exst) globalFile = .TRUE. |
|
./pkg/mdsio/mdsio_gl.F |
939 |
MDSREADFIELD_2D_GL |
inquire( file=dataFname, exist=exst ) |
|
./pkg/mdsio/mdsio_gl.F |
940 |
MDSREADFIELD_2D_GL |
if (exst) then |
|
./pkg/mdsio/mdsio_gl.F |
950 |
MDSREADFIELD_2D_GL |
inquire( file=dataFname, exist=exst ) |
|
./pkg/mdsio/mdsio_gl.F |
951 |
MDSREADFIELD_2D_GL |
if (exst) then |
|
./pkg/mdsio/mdsio_gl.F |
987 |
MDSREADFIELD_2D_GL |
inquire( file=dataFname, exist=exst ) |
|
./pkg/mdsio/mdsio_gl.F |
990 |
MDSREADFIELD_2D_GL |
if (exst) then |
|
./pkg/mdsio/mdsio_gl_slice.F |
107 |
MDSREADFIELD_XZ_GL |
inquire( file=dataFname, exist=exst ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
108 |
MDSREADFIELD_XZ_GL |
if (exst) then |
|
./pkg/mdsio/mdsio_gl_slice.F |
118 |
MDSREADFIELD_XZ_GL |
inquire( file=dataFname, exist=exst ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
119 |
MDSREADFIELD_XZ_GL |
if (exst) then |
|
./pkg/mdsio/mdsio_gl_slice.F |
140 |
MDSREADFIELD_XZ_GL |
inquire( file=dataFname, exist=exst ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
143 |
MDSREADFIELD_XZ_GL |
if (exst) then |
|
./pkg/mdsio/mdsio_gl_slice.F |
301 |
MDSREADFIELD_YZ_GL |
logical exst |
|
./pkg/mdsio/mdsio_gl_slice.F |
335 |
MDSREADFIELD_YZ_GL |
inquire( file=dataFname, exist=exst ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
336 |
MDSREADFIELD_YZ_GL |
if (exst) then |
|
./pkg/mdsio/mdsio_gl_slice.F |
346 |
MDSREADFIELD_YZ_GL |
inquire( file=dataFname, exist=exst ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
347 |
MDSREADFIELD_YZ_GL |
if (exst) then |
|
./pkg/mdsio/mdsio_gl_slice.F |
367 |
MDSREADFIELD_YZ_GL |
inquire( file=dataFname, exist=exst ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
370 |
MDSREADFIELD_YZ_GL |
if (exst) then |
|
./pkg/mdsio/mdsio_gl_slice.F |
73 |
MDSREADFIELD_XZ_GL |
logical exst |
|
./pkg/mdsio/mdsio_read_field.F |
105 |
MDS_READ_FIELD |
LOGICAL exst |
|
./pkg/mdsio/mdsio_read_field.F |
215 |
MDS_READ_FIELD |
INQUIRE( file=dataFName, exist=exst ) |
|
./pkg/mdsio/mdsio_read_field.F |
216 |
MDS_READ_FIELD |
IF (exst) THEN |
|
./pkg/mdsio/mdsio_read_field.F |
231 |
MDS_READ_FIELD |
INQUIRE( file=dataFName, exist=exst ) |
|
./pkg/mdsio/mdsio_read_field.F |
232 |
MDS_READ_FIELD |
IF (exst) THEN |
|
./pkg/mdsio/mdsio_read_field.F |
442 |
MDS_READ_FIELD |
INQUIRE( file=dataFName, exist=exst ) |
|
./pkg/mdsio/mdsio_read_field.F |
445 |
MDS_READ_FIELD |
IF (exst) THEN |
|
./pkg/mdsio/mdsio_read_section.F |
130 |
MDS_READ_SEC_XZ |
INQUIRE( file=dataFName, exist=exst ) |
|
./pkg/mdsio/mdsio_read_section.F |
131 |
MDS_READ_SEC_XZ |
IF (exst) THEN |
|
./pkg/mdsio/mdsio_read_section.F |
144 |
MDS_READ_SEC_XZ |
INQUIRE( file=dataFName, exist=exst ) |
|
./pkg/mdsio/mdsio_read_section.F |
145 |
MDS_READ_SEC_XZ |
IF (exst) THEN |
|
./pkg/mdsio/mdsio_read_section.F |
173 |
MDS_READ_SEC_XZ |
INQUIRE( file=dataFName, exist=exst ) |
|
./pkg/mdsio/mdsio_read_section.F |
176 |
MDS_READ_SEC_XZ |
IF (exst) THEN |
|
./pkg/mdsio/mdsio_read_section.F |
362 |
MDS_READ_SEC_YZ |
LOGICAL exst |
|
./pkg/mdsio/mdsio_read_section.F |
408 |
MDS_READ_SEC_YZ |
INQUIRE( file=dataFName, exist=exst ) |
|
./pkg/mdsio/mdsio_read_section.F |
409 |
MDS_READ_SEC_YZ |
IF (exst) THEN |
|
./pkg/mdsio/mdsio_read_section.F |
422 |
MDS_READ_SEC_YZ |
INQUIRE( file=dataFName, exist=exst ) |
|
./pkg/mdsio/mdsio_read_section.F |
423 |
MDS_READ_SEC_YZ |
IF (exst) THEN |
|
./pkg/mdsio/mdsio_read_section.F |
451 |
MDS_READ_SEC_YZ |
INQUIRE( file=dataFName, exist=exst ) |
|
./pkg/mdsio/mdsio_read_section.F |
454 |
MDS_READ_SEC_YZ |
IF (exst) THEN |
|
./pkg/mdsio/mdsio_read_section.F |
85 |
MDS_READ_SEC_XZ |
LOGICAL exst |
|
./pkg/mdsio/mdsio_readvec_loc.F |
148 |
MDS_READVEC_LOC |
INQUIRE( file=dataFname, exist=exst ) |
|
./pkg/mdsio/mdsio_readvec_loc.F |
152 |
MDS_READVEC_LOC |
IF ( .NOT.exst ) THEN |
|
./pkg/mdsio/mdsio_readvec_loc.F |
156 |
MDS_READVEC_LOC |
INQUIRE( file=dataFname, exist=exst ) |
|
./pkg/mdsio/mdsio_readvec_loc.F |
168 |
MDS_READVEC_LOC |
INQUIRE( file=dataFname, exist=exst ) |
|
./pkg/mdsio/mdsio_readvec_loc.F |
174 |
MDS_READVEC_LOC |
IF ( exst ) THEN |
|
./pkg/mdsio/mdsio_readvec_loc.F |
80 |
MDS_READVEC_LOC |
LOGICAL exst |
|
./pkg/mdsio/mdsio_readvector.F |
115 |
MDSREADVECTOR |
INQUIRE( file=dataFName, exist=exst ) |
|
./pkg/mdsio/mdsio_readvector.F |
116 |
MDSREADVECTOR |
IF (exst) THEN |
|
./pkg/mdsio/mdsio_readvector.F |
129 |
MDSREADVECTOR |
INQUIRE( file=dataFName, exist=exst ) |
|
./pkg/mdsio/mdsio_readvector.F |
130 |
MDSREADVECTOR |
IF (exst) THEN |
|
./pkg/mdsio/mdsio_readvector.F |
158 |
MDSREADVECTOR |
INQUIRE( file=dataFName, exist=exst ) |
|
./pkg/mdsio/mdsio_readvector.F |
161 |
MDSREADVECTOR |
IF (exst) THEN |
|
./pkg/mdsio/mdsio_readvector.F |
243 |
MDSREADVECTOR |
INQUIRE( file=dataFName, exist=exst ) |
|
./pkg/mdsio/mdsio_readvector.F |
244 |
MDSREADVECTOR |
IF (exst) globalFile = .TRUE. |
|
./pkg/mdsio/mdsio_readvector.F |
249 |
MDSREADVECTOR |
INQUIRE( file=dataFName, exist=exst ) |
|
./pkg/mdsio/mdsio_readvector.F |
250 |
MDSREADVECTOR |
IF (exst) globalFile = .TRUE. |
|
./pkg/mdsio/mdsio_readvector.F |
60 |
MDSREADVECTOR |
LOGICAL exst |
|
./pkg/profiles/profiles_init_fixed.F |
43 |
PROFILES_INIT_FIXED |
logical exst |
|
./pkg/profiles/profiles_init_fixed.F |
499 |
PROFILES_INIT_FIXED |
inquire( file=fnameequinc, exist=exst ) |
|
./pkg/profiles/profiles_init_fixed.F |
500 |
PROFILES_INIT_FIXED |
if (.NOT.exst) then |
|
./pkg/profiles/profiles_init_fixed.F |
521 |
PROFILES_INIT_FIXED |
inquire( file=fnameequinc, exist=exst ) |
|
./pkg/profiles/profiles_init_fixed.F |
522 |
PROFILES_INIT_FIXED |
if (.NOT.exst) then |
|
./pkg/profiles/profiles_init_varia.F |
48 |
PROFILES_INIT_VARIA |
logical exst |
|
./pkg/regrid/regrid_init_varia.F |
134 |
REGRID_INIT_VARIA |
INQUIRE( FILE=fname, EXIST=exst ) |
|
./pkg/regrid/regrid_init_varia.F |
135 |
REGRID_INIT_VARIA |
IF (.NOT. exst) THEN |
|
./pkg/regrid/regrid_init_varia.F |
44 |
REGRID_INIT_VARIA |
LOGICAL exst |
|
./pkg/seaice/seaice_cost_concentration.F |
108 |
SEAICE_COST_CONCENTRATION |
logical exst |
|
./pkg/seaice/seaice_cost_concentration.F |
216 |
SEAICE_COST_CONCENTRATION |
inquire( file=fname2, exist=exst ) |
|
./pkg/seaice/seaice_cost_concentration.F |
221 |
SEAICE_COST_CONCENTRATION |
if (.NOT. exst) then |
|
./pkg/seaice/seaice_cost_init_fixed.F |
102 |
SEAICE_COST_INIT_FIXED |
inquire( file='costfinal', exist=exst ) |
|
./pkg/seaice/seaice_cost_init_fixed.F |
103 |
SEAICE_COST_INIT_FIXED |
if ( .NOT. exst) then |
|
./pkg/seaice/seaice_cost_init_fixed.F |
47 |
SEAICE_COST_INIT_FIXED |
logical exst |
|
./pkg/seaice/seaice_cost_init_varia.F |
46 |
SEAICE_COST_INIT_VARIA |
logical exst |
|
./pkg/seaice/seaice_cost_sss.F |
109 |
SEAICE_COST_SSS |
logical exst |
|
./pkg/seaice/seaice_cost_sss.F |
234 |
SEAICE_COST_SSS |
inquire( file=fname2, exist=exst ) |
|
./pkg/seaice/seaice_cost_sss.F |
239 |
SEAICE_COST_SSS |
if (.NOT. exst) then |
|
./pkg/seaice/seaice_cost_sst.F |
107 |
SEAICE_COST_SST |
logical exst |
|
./pkg/seaice/seaice_cost_sst.F |
229 |
SEAICE_COST_SST |
inquire( file=fname2, exist=exst ) |
|
./pkg/seaice/seaice_cost_sst.F |
234 |
SEAICE_COST_SST |
if (.NOT. exst) then |
|
./verification/OpenAD/code_oad_all/the_model_main.F |
496 |
THE_MODEL_MAIN |
logical exst |
|
./verification/OpenAD/code_oad_all/the_model_main.F |
553 |
THE_MODEL_MAIN |
inquire( file='costfinal', exist=exst ) |
|
./verification/OpenAD/code_oad_all/the_model_main.F |
554 |
THE_MODEL_MAIN |
IF ( .NOT. exst ) THEN |
|
./verification/OpenAD/code_oad_all/the_model_main.F |
582 |
THE_MODEL_MAIN |
inquire( file='costfinal', exist=exst ) |
|
./verification/OpenAD/code_oad_all/the_model_main.F |
583 |
THE_MODEL_MAIN |
IF ( .NOT. exst) THEN |
|
./verification/flt_example/extra/cvprofiles.F |
132 |
NO PROCEDURE |
inquire( file=dataFname, exist=exst ) |
|
./verification/flt_example/extra/cvprofiles.F |
133 |
NO PROCEDURE |
if (exst) iGmax = iGmax + 1 |
|
./verification/flt_example/extra/cvprofiles.F |
140 |
NO PROCEDURE |
inquire( file=dataFname, exist=exst ) |
|
./verification/flt_example/extra/cvprofiles.F |
141 |
NO PROCEDURE |
if (exst) jGmax = jGmax + 1 |
|
./verification/flt_example/extra/cvprofiles.F |
28 |
NO PROCEDURE |
logical exst |
|
./verification/natl_box_adjoint/code_pack/the_model_main.F |
490 |
THE_MODEL_MAIN |
logical exst |
|
./verification/natl_box_adjoint/code_pack/the_model_main.F |
512 |
THE_MODEL_MAIN |
inquire( file='costfinal', exist=exst ) |
|
./verification/natl_box_adjoint/code_pack/the_model_main.F |
513 |
THE_MODEL_MAIN |
IF ( .NOT. exst ) THEN |
|
./verification/offline_exf_seaice/code_ad/the_model_main.F |
490 |
THE_MODEL_MAIN |
logical exst |
|
./verification/offline_exf_seaice/code_ad/the_model_main.F |
527 |
THE_MODEL_MAIN |
inquire( file='costfinal', exist=exst ) |
|
./verification/offline_exf_seaice/code_ad/the_model_main.F |
528 |
THE_MODEL_MAIN |
IF ( .NOT. exst ) THEN |
|
./verification/offline_exf_seaice/code_ad/the_model_main.F |
556 |
THE_MODEL_MAIN |
inquire( file='costfinal', exist=exst ) |
|
./verification/offline_exf_seaice/code_ad/the_model_main.F |
557 |
THE_MODEL_MAIN |
IF ( .NOT. exst) THEN |
|
./model/src/the_model_main.F |
490 |
THE_MODEL_MAIN |
logical exst |
|
./model/src/the_model_main.F |
531 |
THE_MODEL_MAIN |
inquire( file='costfinal', exist=exst ) |
|
./model/src/the_model_main.F |
532 |
THE_MODEL_MAIN |
IF ( .NOT. exst ) THEN |
|
./model/src/the_model_main.F |
561 |
THE_MODEL_MAIN |
inquire( file='costfinal', exist=exst ) |
|
./model/src/the_model_main.F |
562 |
THE_MODEL_MAIN |
IF ( .NOT. exst) THEN |
|
./eesupp/src/open_copy_data_file.F |
52 |
OPEN_COPY_DATA_FILE |
LOGICAL exst |
|
./eesupp/src/open_copy_data_file.F |
58 |
OPEN_COPY_DATA_FILE |
INQUIRE( FILE=data_file, EXIST=exst ) |
|
./eesupp/src/open_copy_data_file.F |
59 |
OPEN_COPY_DATA_FILE |
IF (exst) THEN |
|
./pkg/cost/cost_final_restore.F |
38 |
COST_FINAL_RESTORE |
logical exst |
|
./pkg/cost/cost_final_restore.F |
47 |
COST_FINAL_RESTORE |
inquire(file='divided.ctrl',exist=exst) |
|
./pkg/cost/cost_final_restore.F |
48 |
COST_FINAL_RESTORE |
if (exst) then |
|
./pkg/ctrl/ctrl_init_ctrlvar.F |
58 |
CTRL_INIT_CTRLVAR |
logical exst |
|
./pkg/ctrl/ctrl_init_ctrlvar.F |
77 |
CTRL_INIT_CTRLVAR |
inquire( file='costfinal', exist=exst ) |
|
./pkg/ctrl/ctrl_init_ctrlvar.F |
80 |
CTRL_INIT_CTRLVAR |
IF ( .NOT. exst) THEN |
|
./pkg/ecco/cost_argo_salt.F |
136 |
COST_ARGO_SALT |
inquire( file=fnametmp, exist=exst ) |
|
./pkg/ecco/cost_argo_salt.F |
137 |
COST_ARGO_SALT |
if (.NOT. exst) then |
|
./pkg/ecco/cost_argo_salt.F |
80 |
COST_ARGO_SALT |
logical exst |
|
./pkg/ecco/cost_argo_theta.F |
139 |
COST_ARGO_THETA |
inquire( file=fnametmp, exist=exst ) |
|
./pkg/ecco/cost_argo_theta.F |
140 |
COST_ARGO_THETA |
if (.NOT. exst) then |
|
./pkg/ecco/cost_argo_theta.F |
79 |
COST_ARGO_THETA |
logical exst |
|
./pkg/ecco/cost_bp_read.F |
64 |
COST_BP_READ |
logical exst |
|
./pkg/ecco/cost_bp_read.F |
94 |
COST_BP_READ |
inquire( file=fnametmp, exist=exst ) |
|
./pkg/ecco/cost_bp_read.F |
95 |
COST_BP_READ |
if (.NOT. exst) then |
|
./pkg/ecco/cost_ctds.F |
135 |
COST_CTDS |
inquire( file=fnametmp, exist=exst ) |
|
./pkg/ecco/cost_ctds.F |
136 |
COST_CTDS |
if (.NOT. exst) then |
|
./pkg/ecco/cost_ctds.F |
80 |
COST_CTDS |
logical exst |
|
./pkg/ecco/cost_ctdt.F |
136 |
COST_CTDT |
inquire( file=fnametmp, exist=exst ) |
|
./pkg/ecco/cost_ctdt.F |
137 |
COST_CTDT |
if (.NOT. exst) then |
|
./pkg/ecco/cost_ctdt.F |
81 |
COST_CTDT |
logical exst |
|
./pkg/ecco/cost_generic.F |
112 |
COST_GENERIC |
logical exst |
|
./pkg/ecco/cost_generic.F |
233 |
COST_GENERIC |
inquire( file=fname2, exist=exst ) |
|
./pkg/ecco/cost_generic.F |
234 |
COST_GENERIC |
if (.NOT. exst) then |
|
./pkg/ecco/cost_readers.F |
113 |
COST_READERS |
inquire( file=fnametmp, exist=exst ) |
|
./pkg/ecco/cost_readers.F |
114 |
COST_READERS |
if (.NOT. exst) then |
|
./pkg/ecco/cost_readers.F |
68 |
COST_READERS |
logical exst |
|
./pkg/ecco/cost_readgfo.F |
113 |
COST_READGFO |
inquire( file=fnametmp, exist=exst ) |
|
./pkg/ecco/cost_readgfo.F |
114 |
COST_READGFO |
if (.NOT. exst) then |
|
./pkg/ecco/cost_readgfo.F |
68 |
COST_READGFO |
logical exst |
|
./pkg/ecco/cost_readscatxfields.F |
110 |
COST_READSCATXFIELDS |
inquire( file=fnametmp, exist=exst ) |
|
./pkg/ecco/cost_readscatxfields.F |
111 |
COST_READSCATXFIELDS |
if (.NOT. exst) then |
|
./pkg/ecco/cost_readscatxfields.F |
67 |
COST_READSCATXFIELDS |
logical exst |
|
./pkg/ecco/cost_readscatyfields.F |
109 |
COST_READSCATYFIELDS |
inquire( file=fnametmp, exist=exst ) |
|
./pkg/ecco/cost_readscatyfields.F |
110 |
COST_READSCATYFIELDS |
if (.NOT. exst) then |
|
./pkg/ecco/cost_readscatyfields.F |
67 |
COST_READSCATYFIELDS |
logical exst |
|
./pkg/ecco/cost_readtopex.F |
113 |
COST_READTOPEX |
inquire( file=fnametmp, exist=exst ) |
|
./pkg/ecco/cost_readtopex.F |
114 |
COST_READTOPEX |
if (.NOT. exst) then |
|
./pkg/ecco/cost_readtopex.F |
68 |
COST_READTOPEX |
logical exst |
|
./pkg/ecco/cost_sla_read.F |
118 |
COST_SLA_READ |
inquire( file=fnametmp, exist=exst ) |
|
./pkg/ecco/cost_sla_read.F |
119 |
COST_SLA_READ |
if (.NOT. exst) then |
|
./pkg/ecco/cost_sla_read.F |
73 |
COST_SLA_READ |
logical exst |
|
./pkg/ecco/cost_sla_read_yd.F |
107 |
COST_SLA_READ_YD |
inquire( file=fnametmp, exist=exst ) |
|
./pkg/ecco/cost_sla_read_yd.F |
108 |
COST_SLA_READ_YD |
if (.NOT. exst) then |
|
./pkg/ecco/cost_sla_read_yd.F |
74 |
COST_SLA_READ_YD |
logical exst |
|
./pkg/ecco/cost_xbt.F |
141 |
COST_XBT |
inquire( file=fnametmp, exist=exst ) |
|
./pkg/ecco/cost_xbt.F |
142 |
COST_XBT |
if (.NOT. exst) then |
|
./pkg/ecco/cost_xbt.F |
80 |
COST_XBT |
logical exst |
|
./pkg/ecco/ecco_cost_init_fixed.F |
176 |
ECCO_COST_INIT_FIXED |
inquire( file='costfinal', exist=exst ) |
|
./pkg/ecco/ecco_cost_init_fixed.F |
177 |
ECCO_COST_INIT_FIXED |
if ( .NOT. exst) then |
|
./pkg/ecco/ecco_cost_init_fixed.F |
58 |
ECCO_COST_INIT_FIXED |
logical exst |
|
./pkg/ecco/ecco_cost_init_varia.F |
49 |
ECCO_COST_INIT_VARIA |
logical exst |
|
./pkg/exf/exf_interp_read.F |
114 |
EXF_INTERP_READ |
INQUIRE( file=infile, exist=exst ) |
|
./pkg/exf/exf_interp_read.F |
115 |
EXF_INTERP_READ |
IF (exst) THEN |
|
./pkg/exf/exf_interp_read.F |
55 |
EXF_INTERP_READ |
LOGICAL exst |