| File |
Line number |
Procedure |
Code |
|
./model/src/open_copy_data_file.F |
43 |
OPEN_COPY_DATA_FILE |
LOGICAL exst |
|
./model/src/open_copy_data_file.F |
50 |
OPEN_COPY_DATA_FILE |
INQUIRE( FILE=data_file, EXIST=exst ) |
|
./model/src/open_copy_data_file.F |
51 |
OPEN_COPY_DATA_FILE |
IF (exst) THEN |
|
./pkg/mdsio/mdsio_slice.F |
102 |
MDSREADFIELDXZ |
inquire( file=dataFname, exist=exst ) |
|
./pkg/mdsio/mdsio_slice.F |
103 |
MDSREADFIELDXZ |
if (exst) then |
|
./pkg/mdsio/mdsio_slice.F |
116 |
MDSREADFIELDXZ |
inquire( file=dataFname, exist=exst ) |
|
./pkg/mdsio/mdsio_slice.F |
117 |
MDSREADFIELDXZ |
if (exst) then |
|
./pkg/mdsio/mdsio_slice.F |
145 |
MDSREADFIELDXZ |
inquire( file=dataFname, exist=exst ) |
|
./pkg/mdsio/mdsio_slice.F |
148 |
MDSREADFIELDXZ |
if (exst) then |
|
./pkg/mdsio/mdsio_slice.F |
298 |
MDSREADFIELDYZ |
logical exst |
|
./pkg/mdsio/mdsio_slice.F |
340 |
MDSREADFIELDYZ |
inquire( file=dataFname, exist=exst ) |
|
./pkg/mdsio/mdsio_slice.F |
341 |
MDSREADFIELDYZ |
if (exst) then |
|
./pkg/mdsio/mdsio_slice.F |
354 |
MDSREADFIELDYZ |
inquire( file=dataFname, exist=exst ) |
|
./pkg/mdsio/mdsio_slice.F |
355 |
MDSREADFIELDYZ |
if (exst) then |
|
./pkg/mdsio/mdsio_slice.F |
383 |
MDSREADFIELDYZ |
inquire( file=dataFname, exist=exst ) |
|
./pkg/mdsio/mdsio_slice.F |
386 |
MDSREADFIELDYZ |
if (exst) then |
|
./pkg/mdsio/mdsio_slice.F |
60 |
MDSREADFIELDXZ |
logical exst |
|
./pkg/mdsio/mdsio_slice_loc.F |
106 |
MDSREADFIELDXZ_LOC |
inquire( file=dataFname, exist=exst ) |
|
./pkg/mdsio/mdsio_slice_loc.F |
107 |
MDSREADFIELDXZ_LOC |
if (exst) then |
|
./pkg/mdsio/mdsio_slice_loc.F |
135 |
MDSREADFIELDXZ_LOC |
inquire( file=dataFname, exist=exst ) |
|
./pkg/mdsio/mdsio_slice_loc.F |
138 |
MDSREADFIELDXZ_LOC |
if (exst) then |
|
./pkg/mdsio/mdsio_slice_loc.F |
288 |
MDSREADFIELDYZ_LOC |
logical exst |
|
./pkg/mdsio/mdsio_slice_loc.F |
321 |
MDSREADFIELDYZ_LOC |
inquire( file=dataFname, exist=exst ) |
|
./pkg/mdsio/mdsio_slice_loc.F |
322 |
MDSREADFIELDYZ_LOC |
if (exst) then |
|
./pkg/mdsio/mdsio_slice_loc.F |
335 |
MDSREADFIELDYZ_LOC |
inquire( file=dataFname, exist=exst ) |
|
./pkg/mdsio/mdsio_slice_loc.F |
336 |
MDSREADFIELDYZ_LOC |
if (exst) then |
|
./pkg/mdsio/mdsio_slice_loc.F |
364 |
MDSREADFIELDYZ_LOC |
inquire( file=dataFname, exist=exst ) |
|
./pkg/mdsio/mdsio_slice_loc.F |
367 |
MDSREADFIELDYZ_LOC |
if (exst) then |
|
./pkg/mdsio/mdsio_slice_loc.F |
59 |
MDSREADFIELDXZ_LOC |
logical exst |
|
./pkg/mdsio/mdsio_slice_loc.F |
92 |
MDSREADFIELDXZ_LOC |
inquire( file=dataFname, exist=exst ) |
|
./pkg/mdsio/mdsio_slice_loc.F |
93 |
MDSREADFIELDXZ_LOC |
if (exst) then |
|
./pkg/mdsio/mdsio_readtile.F |
109 |
MDSIO_READTILE |
inquire( file=dataFname, exist=exst ) |
|
./pkg/mdsio/mdsio_readtile.F |
110 |
MDSIO_READTILE |
if (exst) then |
|
./pkg/mdsio/mdsio_readtile.F |
137 |
MDSIO_READTILE |
inquire( file=dataFname, exist=exst ) |
|
./pkg/mdsio/mdsio_readtile.F |
140 |
MDSIO_READTILE |
if (exst) then |
|
./pkg/mdsio/mdsio_readtile.F |
64 |
MDSIO_READTILE |
logical exst |
|
./pkg/mdsio/mdsio_readtile.F |
97 |
MDSIO_READTILE |
inquire( file=dataFname, exist=exst ) |
|
./pkg/mdsio/mdsio_readtile.F |
98 |
MDSIO_READTILE |
if (exst) then |
|
./pkg/mdsio/mdsio_readvector.F |
100 |
MDSREADVECTOR |
inquire( file=dataFname, exist=exst ) |
|
./pkg/mdsio/mdsio_readvector.F |
101 |
MDSREADVECTOR |
if (exst) then |
|
./pkg/mdsio/mdsio_readvector.F |
114 |
MDSREADVECTOR |
inquire( file=dataFname, exist=exst ) |
|
./pkg/mdsio/mdsio_readvector.F |
115 |
MDSREADVECTOR |
if (exst) then |
|
./pkg/mdsio/mdsio_readvector.F |
143 |
MDSREADVECTOR |
inquire( file=dataFname, exist=exst ) |
|
./pkg/mdsio/mdsio_readvector.F |
146 |
MDSREADVECTOR |
if (exst) then |
|
./pkg/mdsio/mdsio_readvector.F |
59 |
MDSREADVECTOR |
logical exst |
|
./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 |
177 |
MDSREADFIELD_3D_GL |
inquire( file=dataFname, exist=exst ) |
|
./pkg/mdsio/mdsio_gl.F |
178 |
MDSREADFIELD_3D_GL |
if (exst) then |
|
./pkg/mdsio/mdsio_gl.F |
188 |
MDSREADFIELD_3D_GL |
inquire( file=dataFname, exist=exst ) |
|
./pkg/mdsio/mdsio_gl.F |
189 |
MDSREADFIELD_3D_GL |
if (exst) then |
|
./pkg/mdsio/mdsio_gl.F |
225 |
MDSREADFIELD_3D_GL |
inquire( file=dataFname, exist=exst ) |
|
./pkg/mdsio/mdsio_gl.F |
228 |
MDSREADFIELD_3D_GL |
if (exst) then |
|
./pkg/mdsio/mdsio_gl.F |
796 |
MDSREADFIELD_2D_GL |
logical exst |
|
./pkg/mdsio/mdsio_gl.F |
850 |
MDSREADFIELD_2D_GL |
inquire( file=dataFname, exist=exst ) |
|
./pkg/mdsio/mdsio_gl.F |
851 |
MDSREADFIELD_2D_GL |
if (exst) globalFile = .TRUE. |
|
./pkg/mdsio/mdsio_gl.F |
856 |
MDSREADFIELD_2D_GL |
inquire( file=dataFname, exist=exst ) |
|
./pkg/mdsio/mdsio_gl.F |
857 |
MDSREADFIELD_2D_GL |
if (exst) globalFile = .TRUE. |
|
./pkg/mdsio/mdsio_gl.F |
87 |
MDSREADFIELD_3D_GL |
logical exst |
|
./pkg/mdsio/mdsio_gl.F |
886 |
MDSREADFIELD_2D_GL |
inquire( file=dataFname, exist=exst ) |
|
./pkg/mdsio/mdsio_gl.F |
887 |
MDSREADFIELD_2D_GL |
if (exst) then |
|
./pkg/mdsio/mdsio_gl.F |
897 |
MDSREADFIELD_2D_GL |
inquire( file=dataFname, exist=exst ) |
|
./pkg/mdsio/mdsio_gl.F |
898 |
MDSREADFIELD_2D_GL |
if (exst) then |
|
./pkg/mdsio/mdsio_gl.F |
934 |
MDSREADFIELD_2D_GL |
inquire( file=dataFname, exist=exst ) |
|
./pkg/mdsio/mdsio_gl.F |
937 |
MDSREADFIELD_2D_GL |
if (exst) then |
|
./pkg/mdsio/mdsio_gl_slice.F |
121 |
MDSREADFIELD_XZ_GL |
inquire( file=dataFname, exist=exst ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
122 |
MDSREADFIELD_XZ_GL |
if (exst) then |
|
./pkg/mdsio/mdsio_gl_slice.F |
132 |
MDSREADFIELD_XZ_GL |
inquire( file=dataFname, exist=exst ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
133 |
MDSREADFIELD_XZ_GL |
if (exst) then |
|
./pkg/mdsio/mdsio_gl_slice.F |
154 |
MDSREADFIELD_XZ_GL |
inquire( file=dataFname, exist=exst ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
157 |
MDSREADFIELD_XZ_GL |
if (exst) then |
|
./pkg/mdsio/mdsio_gl_slice.F |
310 |
MDSREADFIELD_YZ_GL |
logical exst |
|
./pkg/mdsio/mdsio_gl_slice.F |
344 |
MDSREADFIELD_YZ_GL |
inquire( file=dataFname, exist=exst ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
345 |
MDSREADFIELD_YZ_GL |
if (exst) then |
|
./pkg/mdsio/mdsio_gl_slice.F |
355 |
MDSREADFIELD_YZ_GL |
inquire( file=dataFname, exist=exst ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
356 |
MDSREADFIELD_YZ_GL |
if (exst) then |
|
./pkg/mdsio/mdsio_gl_slice.F |
376 |
MDSREADFIELD_YZ_GL |
inquire( file=dataFname, exist=exst ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
379 |
MDSREADFIELD_YZ_GL |
if (exst) then |
|
./pkg/mdsio/mdsio_gl_slice.F |
87 |
MDSREADFIELD_XZ_GL |
logical exst |
|
./pkg/mdsio/mdsio_readfield_loc.F |
109 |
MDSREADFIELD_LOC |
inquire( file=dataFname, exist=exst ) |
|
./pkg/mdsio/mdsio_readfield_loc.F |
110 |
MDSREADFIELD_LOC |
if (exst) then |
|
./pkg/mdsio/mdsio_readfield_loc.F |
138 |
MDSREADFIELD_LOC |
inquire( file=dataFname, exist=exst ) |
|
./pkg/mdsio/mdsio_readfield_loc.F |
141 |
MDSREADFIELD_LOC |
if (exst) then |
|
./pkg/mdsio/mdsio_readfield_loc.F |
62 |
MDSREADFIELD_LOC |
logical exst |
|
./pkg/mdsio/mdsio_readfield_loc.F |
95 |
MDSREADFIELD_LOC |
inquire( file=dataFname, exist=exst ) |
|
./pkg/mdsio/mdsio_readfield_loc.F |
96 |
MDSREADFIELD_LOC |
if (exst) then |
|
./pkg/mdsio/mdsio_readfield.F |
129 |
MDSREADFIELD |
inquire( file=dataFname, exist=exst ) |
|
./pkg/mdsio/mdsio_readfield.F |
130 |
MDSREADFIELD |
if (exst) then |
|
./pkg/mdsio/mdsio_readfield.F |
143 |
MDSREADFIELD |
inquire( file=dataFname, exist=exst ) |
|
./pkg/mdsio/mdsio_readfield.F |
144 |
MDSREADFIELD |
if (exst) then |
|
./pkg/mdsio/mdsio_readfield.F |
264 |
MDSREADFIELD |
inquire( file=dataFname, exist=exst ) |
|
./pkg/mdsio/mdsio_readfield.F |
267 |
MDSREADFIELD |
if (exst) then |
|
./pkg/mdsio/mdsio_readfield.F |
384 |
MDSREADFIELD |
inquire( file=dataFname, exist=exst ) |
|
./pkg/mdsio/mdsio_readfield.F |
385 |
MDSREADFIELD |
if (exst) globalFile = .TRUE. |
|
./pkg/mdsio/mdsio_readfield.F |
390 |
MDSREADFIELD |
inquire( file=dataFname, exist=exst ) |
|
./pkg/mdsio/mdsio_readfield.F |
391 |
MDSREADFIELD |
if (exst) globalFile = .TRUE. |
|
./pkg/mdsio/mdsio_readfield.F |
67 |
MDSREADFIELD |
logical exst |
|
./pkg/ecco/cost_xbt.F |
140 |
COST_XBT |
inquire( file=fnametmp, exist=exst ) |
|
./pkg/ecco/cost_xbt.F |
141 |
COST_XBT |
if (.NOT. exst) then |
|
./pkg/ecco/cost_xbt.F |
79 |
COST_XBT |
logical exst |
|
./pkg/ecco/cost_readtopex.F |
117 |
COST_READTOPEX |
inquire( file=fnametmp, exist=exst ) |
|
./pkg/ecco/cost_readtopex.F |
118 |
COST_READTOPEX |
if (.NOT. exst) then |
|
./pkg/ecco/cost_readtopex.F |
72 |
COST_READTOPEX |
logical exst |
|
./pkg/ecco/cost_readers.F |
117 |
COST_READERS |
inquire( file=fnametmp, exist=exst ) |
|
./pkg/ecco/cost_readers.F |
118 |
COST_READERS |
if (.NOT. exst) then |
|
./pkg/ecco/cost_readers.F |
72 |
COST_READERS |
logical exst |
|
./pkg/ecco/cost_argo_theta.F |
138 |
COST_ARGO_THETA |
inquire( file=fnametmp, exist=exst ) |
|
./pkg/ecco/cost_argo_theta.F |
139 |
COST_ARGO_THETA |
if (.NOT. exst) then |
|
./pkg/ecco/cost_argo_theta.F |
78 |
COST_ARGO_THETA |
logical exst |
|
./pkg/ecco/cost_readscatyfields.F |
108 |
COST_READSCATYFIELDS |
inquire( file=fnametmp, exist=exst ) |
|
./pkg/ecco/cost_readscatyfields.F |
109 |
COST_READSCATYFIELDS |
if (.NOT. exst) then |
|
./pkg/ecco/cost_readscatyfields.F |
66 |
COST_READSCATYFIELDS |
logical exst |
|
./pkg/ecco/cost_readsstfields.F |
108 |
COST_READSSTFIELDS |
inquire( file=fnametmp, exist=exst ) |
|
./pkg/ecco/cost_readsstfields.F |
109 |
COST_READSSTFIELDS |
if (.NOT. exst) then |
|
./pkg/ecco/cost_readsstfields.F |
66 |
COST_READSSTFIELDS |
logical exst |
|
./pkg/ecco/cost_argo_salt.F |
135 |
COST_ARGO_SALT |
inquire( file=fnametmp, exist=exst ) |
|
./pkg/ecco/cost_argo_salt.F |
136 |
COST_ARGO_SALT |
if (.NOT. exst) then |
|
./pkg/ecco/cost_argo_salt.F |
79 |
COST_ARGO_SALT |
logical exst |
|
./pkg/ecco/cost_ctdt.F |
135 |
COST_CTDT |
inquire( file=fnametmp, exist=exst ) |
|
./pkg/ecco/cost_ctdt.F |
136 |
COST_CTDT |
if (.NOT. exst) then |
|
./pkg/ecco/cost_ctdt.F |
80 |
COST_CTDT |
logical exst |
|
./pkg/ecco/cost_readsssfields.F |
108 |
COST_READSSSFIELDS |
inquire( file=fnametmp, exist=exst ) |
|
./pkg/ecco/cost_readsssfields.F |
109 |
COST_READSSSFIELDS |
if (.NOT. exst) then |
|
./pkg/ecco/cost_readsssfields.F |
66 |
COST_READSSSFIELDS |
logical exst |
|
./pkg/ecco/cost_readtmifields.F |
108 |
COST_READTMIFIELDS |
inquire( file=fnametmp, exist=exst ) |
|
./pkg/ecco/cost_readtmifields.F |
109 |
COST_READTMIFIELDS |
if (.NOT. exst) then |
|
./pkg/ecco/cost_readtmifields.F |
66 |
COST_READTMIFIELDS |
logical exst |
|
./pkg/ecco/cost_ctds.F |
134 |
COST_CTDS |
inquire( file=fnametmp, exist=exst ) |
|
./pkg/ecco/cost_ctds.F |
135 |
COST_CTDS |
if (.NOT. exst) then |
|
./pkg/ecco/cost_ctds.F |
79 |
COST_CTDS |
logical exst |
|
./pkg/ecco/cost_readscatxfields.F |
109 |
COST_READSCATXFIELDS |
inquire( file=fnametmp, exist=exst ) |
|
./pkg/ecco/cost_readscatxfields.F |
110 |
COST_READSCATXFIELDS |
if (.NOT. exst) then |
|
./pkg/ecco/cost_readscatxfields.F |
66 |
COST_READSCATXFIELDS |
logical exst |
|
./pkg/ecco/ecco_cost_init_fixed.F |
134 |
ECCO_COST_INIT_FIXED |
inquire( file='costfinal', exist=exst ) |
|
./pkg/ecco/ecco_cost_init_fixed.F |
135 |
ECCO_COST_INIT_FIXED |
if ( .NOT. exst) then |
|
./pkg/ecco/ecco_cost_init_fixed.F |
53 |
ECCO_COST_INIT_FIXED |
logical exst |
|
./pkg/ecco/ecco_cost_initvaria.F |
48 |
ECCO_COST_INITVARIA |
logical exst |
|
./pkg/flt/flt_mdsreadvector.F |
107 |
MDSREADVECTOR_FLT |
inquire( file=dataFname, exist=exst ) |
|
./pkg/flt/flt_mdsreadvector.F |
110 |
MDSREADVECTOR_FLT |
if (exst) then |
|
./pkg/flt/flt_mdsreadvector.F |
124 |
MDSREADVECTOR_FLT |
inquire( file=dataFname, exist=exst ) |
|
./pkg/flt/flt_mdsreadvector.F |
125 |
MDSREADVECTOR_FLT |
if (exst) then |
|
./pkg/flt/flt_mdsreadvector.F |
132 |
MDSREADVECTOR_FLT |
inquire( file=dataFname, exist=exst ) |
|
./pkg/flt/flt_mdsreadvector.F |
133 |
MDSREADVECTOR_FLT |
if (exst) then |
|
./pkg/flt/flt_mdsreadvector.F |
160 |
MDSREADVECTOR_FLT |
inquire( file=dataFname, exist=exst ) |
|
./pkg/flt/flt_mdsreadvector.F |
163 |
MDSREADVECTOR_FLT |
if (exst) then |
|
./pkg/flt/flt_mdsreadvector.F |
72 |
MDSREADVECTOR_FLT |
logical exst |
|
./pkg/flt/flt_up.F |
64 |
FLT_UP |
logical exst |
|
./pkg/flt/flt_up.F |
82 |
FLT_UP |
inquire( file=dataFname, exist=exst ) |
|
./pkg/flt/flt_up.F |
83 |
FLT_UP |
if (exst) then |
|
./pkg/flt/flt_traj.F |
63 |
FLT_TRAJ |
logical exst |
|
./pkg/flt/flt_traj.F |
81 |
FLT_TRAJ |
inquire( file=dataFname, exist=exst ) |
|
./pkg/flt/flt_traj.F |
82 |
FLT_TRAJ |
if (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/flt_example/extra/cvfloat.F |
128 |
NO PROCEDURE |
inquire( file=dataFname, exist=exst ) |
|
./verification/flt_example/extra/cvfloat.F |
129 |
NO PROCEDURE |
if (exst) iGmax = iGmax + 1 |
|
./verification/flt_example/extra/cvfloat.F |
136 |
NO PROCEDURE |
inquire( file=dataFname, exist=exst ) |
|
./verification/flt_example/extra/cvfloat.F |
137 |
NO PROCEDURE |
if (exst) jGmax = jGmax + 1 |
|
./verification/flt_example/extra/cvfloat.F |
27 |
NO PROCEDURE |
logical exst |
|
./model/src/the_model_main.F |
489 |
THE_MODEL_MAIN |
logical exst |
|
./model/src/the_model_main.F |
523 |
THE_MODEL_MAIN |
inquire( file='costfinal', exist=exst ) |
|
./model/src/the_model_main.F |
524 |
THE_MODEL_MAIN |
IF ( .NOT. exst ) THEN |
|
./model/src/the_model_main.F |
552 |
THE_MODEL_MAIN |
inquire( file='costfinal', exist=exst ) |
|
./model/src/the_model_main.F |
553 |
THE_MODEL_MAIN |
IF ( .NOT. exst) THEN |
|
./pkg/mnc/mnc_readparms.F |
43 |
MNC_READPARMS |
LOGICAL exst |
|
./pkg/mnc/mnc_readparms.F |
79 |
MNC_READPARMS |
INQUIRE( FILE=data_file, EXIST=exst ) |
|
./pkg/mnc/mnc_readparms.F |
80 |
MNC_READPARMS |
IF (exst) THEN |
|
./pkg/cost/cost_final_restore.F |
37 |
COST_FINAL_RESTORE |
logical exst |
|
./pkg/cost/cost_final_restore.F |
46 |
COST_FINAL_RESTORE |
inquire(file='divided.ctrl',exist=exst) |
|
./pkg/cost/cost_final_restore.F |
47 |
COST_FINAL_RESTORE |
if (exst) then |
|
./pkg/ctrl/ctrl_init_ctrlvar.F |
58 |
CTRL_INIT_CTRLVAR |
logical exst |
|
./pkg/ctrl/ctrl_init_ctrlvar.F |
73 |
CTRL_INIT_CTRLVAR |
inquire( file='costfinal', exist=exst ) |
|
./pkg/ctrl/ctrl_init_ctrlvar.F |
74 |
CTRL_INIT_CTRLVAR |
IF ( .NOT. exst) THEN |