| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/ecco_cost_init_varia.F |
61 |
ECCO_COST_INIT_VARIA |
logical exst |
|
./pkg/ecco/ecco_cost_weights.F |
283 |
ECCO_COST_WEIGHTS |
inquire( file=data_errfile, exist=exst ) |
|
./pkg/ecco/ecco_cost_weights.F |
284 |
ECCO_COST_WEIGHTS |
if (exst) then |
|
./pkg/ecco/ecco_cost_weights.F |
88 |
ECCO_COST_WEIGHTS |
logical exst |
|
./pkg/ecco/ecco_readparms.F |
55 |
ECCO_READPARMS |
LOGICAL exst |
|
./pkg/ecco/ecco_readparms.F |
736 |
ECCO_READPARMS |
inquire( file=tempfile(1:il+1), exist=exst ) |
|
./pkg/ecco/ecco_readparms.F |
737 |
ECCO_READPARMS |
if (exst.AND.(.NOT.gencost_msk_is3d(k))) then |
|
./pkg/ecco/ecco_readparms.F |
741 |
ECCO_READPARMS |
elseif (exst.AND.(gencost_msk_pointer3d(k).LE. |
|
./pkg/ecco/ecco_readparms.F |
750 |
ECCO_READPARMS |
inquire( file=tempfile(1:il+1), exist=exst ) |
|
./pkg/ecco/ecco_readparms.F |
751 |
ECCO_READPARMS |
if (exst.AND.(.NOT.gencost_msk_is3d(k))) then |
|
./pkg/ecco/ecco_readparms.F |
755 |
ECCO_READPARMS |
elseif (exst.AND.(gencost_msk_pointer3d(k).LE. |
|
./pkg/ecco/ecco_readparms.F |
764 |
ECCO_READPARMS |
inquire( file=tempfile(1:il+1), exist=exst ) |
|
./pkg/ecco/ecco_readparms.F |
765 |
ECCO_READPARMS |
if (exst.AND.(.NOT.gencost_msk_is3d(k))) then |
|
./pkg/ecco/ecco_readparms.F |
769 |
ECCO_READPARMS |
elseif (exst.AND.(gencost_msk_pointer3d(k).LE. |
|
./pkg/ecco/ecco_readparms.F |
778 |
ECCO_READPARMS |
inquire( file=tempfile(1:il+1), exist=exst ) |
|
./pkg/ecco/ecco_readparms.F |
779 |
ECCO_READPARMS |
if (exst) then |
|
./pkg/exf/exf_interp_read.F |
112 |
EXF_INTERP_READ |
INQUIRE( file=infile, exist=exst ) |
|
./pkg/exf/exf_interp_read.F |
113 |
EXF_INTERP_READ |
IF (exst) THEN |
|
./pkg/exf/exf_interp_read.F |
54 |
EXF_INTERP_READ |
LOGICAL exst |
|
./pkg/mdsio/mdsio_gl.F |
1022 |
MDSREADFIELD_2D_GL |
inquire( file=dataFname, exist=exst ) |
|
./pkg/mdsio/mdsio_gl.F |
1025 |
MDSREADFIELD_2D_GL |
if (exst) then |
|
./pkg/mdsio/mdsio_gl.F |
149 |
MDSREADFIELD_3D_GL |
inquire( file=dataFname, exist=exst ) |
|
./pkg/mdsio/mdsio_gl.F |
150 |
MDSREADFIELD_3D_GL |
if (exst) globalFile = .TRUE. |
|
./pkg/mdsio/mdsio_gl.F |
155 |
MDSREADFIELD_3D_GL |
inquire( file=dataFname, exist=exst ) |
|
./pkg/mdsio/mdsio_gl.F |
156 |
MDSREADFIELD_3D_GL |
if (exst) globalFile = .TRUE. |
|
./pkg/mdsio/mdsio_gl.F |
187 |
MDSREADFIELD_3D_GL |
inquire( file=dataFname, exist=exst ) |
|
./pkg/mdsio/mdsio_gl.F |
188 |
MDSREADFIELD_3D_GL |
if (exst) then |
|
./pkg/mdsio/mdsio_gl.F |
198 |
MDSREADFIELD_3D_GL |
inquire( file=dataFname, exist=exst ) |
|
./pkg/mdsio/mdsio_gl.F |
199 |
MDSREADFIELD_3D_GL |
if (exst) then |
|
./pkg/mdsio/mdsio_gl.F |
235 |
MDSREADFIELD_3D_GL |
inquire( file=dataFname, exist=exst ) |
|
./pkg/mdsio/mdsio_gl.F |
238 |
MDSREADFIELD_3D_GL |
if (exst) then |
|
./pkg/mdsio/mdsio_gl.F |
74 |
MDSREADFIELD_3D_GL |
logical exst |
|
./pkg/mdsio/mdsio_gl.F |
861 |
MDSREADFIELD_2D_GL |
logical exst |
|
./pkg/mdsio/mdsio_gl.F |
937 |
MDSREADFIELD_2D_GL |
inquire( file=dataFname, exist=exst ) |
|
./pkg/mdsio/mdsio_gl.F |
938 |
MDSREADFIELD_2D_GL |
if (exst) globalFile = .TRUE. |
|
./pkg/mdsio/mdsio_gl.F |
943 |
MDSREADFIELD_2D_GL |
inquire( file=dataFname, exist=exst ) |
|
./pkg/mdsio/mdsio_gl.F |
944 |
MDSREADFIELD_2D_GL |
if (exst) globalFile = .TRUE. |
|
./pkg/mdsio/mdsio_gl.F |
974 |
MDSREADFIELD_2D_GL |
inquire( file=dataFname, exist=exst ) |
|
./pkg/mdsio/mdsio_gl.F |
975 |
MDSREADFIELD_2D_GL |
if (exst) then |
|
./pkg/mdsio/mdsio_gl.F |
985 |
MDSREADFIELD_2D_GL |
inquire( file=dataFname, exist=exst ) |
|
./pkg/mdsio/mdsio_gl.F |
986 |
MDSREADFIELD_2D_GL |
if (exst) then |
|
./pkg/mdsio/mdsio_gl_slice.F |
116 |
MDSREADFIELD_XZ_GL |
inquire( file=dataFname, exist=exst ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
117 |
MDSREADFIELD_XZ_GL |
if (exst) then |
|
./pkg/mdsio/mdsio_gl_slice.F |
127 |
MDSREADFIELD_XZ_GL |
inquire( file=dataFname, exist=exst ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
128 |
MDSREADFIELD_XZ_GL |
if (exst) then |
|
./pkg/mdsio/mdsio_gl_slice.F |
149 |
MDSREADFIELD_XZ_GL |
inquire( file=dataFname, exist=exst ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
152 |
MDSREADFIELD_XZ_GL |
if (exst) then |
|
./pkg/mdsio/mdsio_gl_slice.F |
314 |
MDSREADFIELD_YZ_GL |
logical exst |
|
./pkg/mdsio/mdsio_gl_slice.F |
357 |
MDSREADFIELD_YZ_GL |
inquire( file=dataFname, exist=exst ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
358 |
MDSREADFIELD_YZ_GL |
if (exst) then |
|
./pkg/mdsio/mdsio_gl_slice.F |
368 |
MDSREADFIELD_YZ_GL |
inquire( file=dataFname, exist=exst ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
369 |
MDSREADFIELD_YZ_GL |
if (exst) then |
|
./pkg/mdsio/mdsio_gl_slice.F |
389 |
MDSREADFIELD_YZ_GL |
inquire( file=dataFname, exist=exst ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
392 |
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 |
234 |
MDS_READ_FIELD |
INQUIRE( file=dataFName, exist=exst ) |
|
./pkg/mdsio/mdsio_read_field.F |
235 |
MDS_READ_FIELD |
IF (exst) THEN |
|
./pkg/mdsio/mdsio_read_field.F |
248 |
MDS_READ_FIELD |
INQUIRE( file=dataFName, exist=exst ) |
|
./pkg/mdsio/mdsio_read_field.F |
249 |
MDS_READ_FIELD |
IF (exst) THEN |
|
./pkg/mdsio/mdsio_read_field.F |
457 |
MDS_READ_FIELD |
INQUIRE( file=dataFName, exist=exst ) |
|
./pkg/mdsio/mdsio_read_field.F |
460 |
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_read_tape.F |
122 |
MDS_READ_TAPE |
INQUIRE( file=dataFName, exist=exst ) |
|
./pkg/mdsio/mdsio_read_tape.F |
123 |
MDS_READ_TAPE |
IF (exst) globalFile = .TRUE. |
|
./pkg/mdsio/mdsio_read_tape.F |
188 |
MDS_READ_TAPE |
INQUIRE( file=dataFName, exist=exst ) |
|
./pkg/mdsio/mdsio_read_tape.F |
189 |
MDS_READ_TAPE |
IF (exst) THEN |
|
./pkg/mdsio/mdsio_read_tape.F |
210 |
MDS_READ_TAPE |
INQUIRE( file=dataFName, exist=exst ) |
|
./pkg/mdsio/mdsio_read_tape.F |
211 |
MDS_READ_TAPE |
IF (exst) THEN |
|
./pkg/mdsio/mdsio_read_tape.F |
64 |
MDS_READ_TAPE |
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/openad/the_model_main.F |
303 |
THE_MODEL_MAIN |
LOGICAL exst |
|
./pkg/openad/the_model_main.F |
326 |
THE_MODEL_MAIN |
exst = .TRUE. |
|
./pkg/openad/the_model_main.F |
381 |
THE_MODEL_MAIN |
inquire( file='costfinal', exist=exst ) |
|
./pkg/openad/the_model_main.F |
382 |
THE_MODEL_MAIN |
IF ( .NOT. exst ) THEN |
|
./pkg/openad/the_model_main.F |
412 |
THE_MODEL_MAIN |
inquire( file='costfinal', exist=exst ) |
|
./pkg/openad/the_model_main.F |
413 |
THE_MODEL_MAIN |
IF ( .NOT. exst) THEN |
|
./pkg/profiles/profiles_init_fixed.F |
59 |
PROFILES_INIT_FIXED |
logical exst |
|
./pkg/profiles/profiles_init_fixed.F |
681 |
PROFILES_INIT_FIXED |
inquire( file=fnameequinc, exist=exst ) |
|
./pkg/profiles/profiles_init_fixed.F |
682 |
PROFILES_INIT_FIXED |
if (.NOT.exst) then |
|
./pkg/profiles/profiles_init_fixed.F |
692 |
PROFILES_INIT_FIXED |
inquire( file=adfnameequinc, exist=exst ) |
|
./pkg/profiles/profiles_init_fixed.F |
693 |
PROFILES_INIT_FIXED |
if (.NOT.exst) then |
|
./pkg/profiles/profiles_init_fixed.F |
710 |
PROFILES_INIT_FIXED |
inquire( file=fnameequinc, exist=exst ) |
|
./pkg/profiles/profiles_init_fixed.F |
716 |
PROFILES_INIT_FIXED |
if (.NOT.exst) then |
|
./pkg/profiles/profiles_init_fixed.F |
727 |
PROFILES_INIT_FIXED |
inquire( file=adfnameequinc, exist=exst ) |
|
./pkg/profiles/profiles_init_fixed.F |
733 |
PROFILES_INIT_FIXED |
if (.NOT.exst) then |
|
./pkg/profiles/profiles_readparms.F |
189 |
PROFILES_READPARMS |
inquire( file=fname, exist=exst ) |
|
./pkg/profiles/profiles_readparms.F |
190 |
PROFILES_READPARMS |
if (.NOT.exst) then |
|
./pkg/profiles/profiles_readparms.F |
40 |
PROFILES_READPARMS |
LOGICAL exst, specifiedNames |
|
./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 |
122 |
SEAICE_COST_CONCENTRATION |
logical exst |
|
./pkg/seaice/seaice_cost_concentration.F |
230 |
SEAICE_COST_CONCENTRATION |
inquire( file=fname2, exist=exst ) |
|
./pkg/seaice/seaice_cost_concentration.F |
235 |
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 |
44 |
SEAICE_COST_INIT_FIXED |
logical exst |
|
./pkg/seaice/seaice_cost_init_varia.F |
48 |
SEAICE_COST_INIT_VARIA |
logical exst |
|
./pkg/seaice/seaice_cost_sss.F |
120 |
SEAICE_COST_SSS |
logical exst |
|
./pkg/seaice/seaice_cost_sss.F |
245 |
SEAICE_COST_SSS |
inquire( file=fname2, exist=exst ) |
|
./pkg/seaice/seaice_cost_sss.F |
250 |
SEAICE_COST_SSS |
if (.NOT. exst) then |
|
./pkg/seaice/seaice_cost_sst.F |
118 |
SEAICE_COST_SST |
logical exst |
|
./pkg/seaice/seaice_cost_sst.F |
245 |
SEAICE_COST_SST |
inquire( file=fname2, exist=exst ) |
|
./pkg/seaice/seaice_cost_sst.F |
250 |
SEAICE_COST_SST |
if (.NOT. exst) then |
|
./pkg/thsice/thsice_cost_init_varia.F |
38 |
THSICE_COST_INIT_VARIA |
logical exst |
|
./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 |
|
./model/src/the_model_main.F |
603 |
THE_MODEL_MAIN |
LOGICAL exst |
|
./model/src/the_model_main.F |
608 |
THE_MODEL_MAIN |
exst = .TRUE. |
|
./model/src/the_model_main.F |
641 |
THE_MODEL_MAIN |
inquire( file='costfinal', exist=exst ) |
|
./model/src/the_model_main.F |
642 |
THE_MODEL_MAIN |
IF ( .NOT. exst ) THEN |
|
./model/src/the_model_main.F |
672 |
THE_MODEL_MAIN |
inquire( file='costfinal', exist=exst ) |
|
./model/src/the_model_main.F |
673 |
THE_MODEL_MAIN |
IF ( .NOT. exst) THEN |
|
./pkg/autodiff/autodiff_whtapeio_sync.F |
106 |
AUTODIFF_WHTAPEIO_SYNC |
inquire( file=fName, exist=exst ) |
|
./pkg/autodiff/autodiff_whtapeio_sync.F |
117 |
AUTODIFF_WHTAPEIO_SYNC |
IF (.NOT.exst) then |
|
./pkg/autodiff/autodiff_whtapeio_sync.F |
53 |
AUTODIFF_WHTAPEIO_SYNC |
logical exst |
|
./eesupp/src/open_copy_data_file.F |
55 |
OPEN_COPY_DATA_FILE |
LOGICAL exst |
|
./eesupp/src/open_copy_data_file.F |
65 |
OPEN_COPY_DATA_FILE |
INQUIRE( FILE=data_file, EXIST=exst ) |
|
./eesupp/src/open_copy_data_file.F |
66 |
OPEN_COPY_DATA_FILE |
IF (exst) THEN |
|
./pkg/cfc/cfc_atmos.F |
41 |
CFC_ATMOS |
LOGICAL exst |
|
./pkg/cfc/cfc_atmos.F |
55 |
CFC_ATMOS |
INQUIRE( FILE=atmCFC_inpFile(1:iL), EXIST=exst ) |
|
./pkg/cfc/cfc_atmos.F |
56 |
CFC_ATMOS |
IF (exst) THEN |
|
./pkg/cost/cost_final_restore.F |
40 |
COST_FINAL_RESTORE |
logical exst |
|
./pkg/cost/cost_final_restore.F |
49 |
COST_FINAL_RESTORE |
inquire(file='divided.ctrl',exist=exst) |
|
./pkg/cost/cost_final_restore.F |
50 |
COST_FINAL_RESTORE |
if (exst) then |
|
./pkg/ctrl/ctrl_init_ctrlvar.F |
59 |
CTRL_INIT_CTRLVAR |
logical exst |
|
./pkg/ctrl/ctrl_init_ctrlvar.F |
78 |
CTRL_INIT_CTRLVAR |
inquire( file='costfinal', exist=exst ) |
|
./pkg/ctrl/ctrl_init_ctrlvar.F |
81 |
CTRL_INIT_CTRLVAR |
IF ( .NOT. exst) THEN |
|
./pkg/ecco/cost_bp_read.F |
112 |
COST_BP_READ |
inquire( file=fnametmp, exist=exst ) |
|
./pkg/ecco/cost_bp_read.F |
113 |
COST_BP_READ |
if (.NOT. exst) then |
|
./pkg/ecco/cost_bp_read.F |
74 |
COST_BP_READ |
logical exst |
|
./pkg/ecco/cost_gencal.F |
122 |
COST_GENCAL |
inquire( file=fname2, exist=exst ) |
|
./pkg/ecco/cost_gencal.F |
123 |
COST_GENCAL |
if (.NOT. exst) then |
|
./pkg/ecco/cost_gencal.F |
126 |
COST_GENCAL |
inquire( file=fname2, exist=exst ) |
|
./pkg/ecco/cost_gencal.F |
13 |
COST_GENCAL |
O fname1, fname2, localrec, obsrec, exst, |
|
./pkg/ecco/cost_gencal.F |
69 |
COST_GENCAL |
logical exst |
|
./pkg/ecco/cost_gencost_boxmean.F |
125 |
COST_GENCOST_BOXMEAN |
inquire( file=tempfile(1:il+1), exist=exst ) |
|
./pkg/ecco/cost_gencost_boxmean.F |
126 |
COST_GENCOST_BOXMEAN |
if ( (.NOT.exst).OR.(gencost_mask(kgen).EQ.' ') ) then |
|
./pkg/ecco/cost_gencost_boxmean.F |
58 |
COST_GENCOST_BOXMEAN |
LOGICAL exst |
|
./pkg/ecco/cost_gencost_seaicev4.F |
100 |
COST_GENCOST_SEAICEV4 |
logical exst |
|
./pkg/ecco/cost_gencost_seaicev4.F |
201 |
COST_GENCOST_SEAICEV4 |
exst=.FALSE. |
|
./pkg/ecco/cost_gencost_seaicev4.F |
206 |
COST_GENCOST_SEAICEV4 |
& fname0w, localrec, obsrec, exst, mythid) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
216 |
COST_GENCOST_SEAICEV4 |
if ( (localrec. GT. 0).AND.(obsrec .GT. 0).AND.(exst) ) then |
|
./pkg/ecco/cost_gencost_seaicev4.F |
233 |
COST_GENCOST_SEAICEV4 |
exst=.FALSE. |
|
./pkg/ecco/cost_gencost_seaicev4.F |
236 |
COST_GENCOST_SEAICEV4 |
& fname0,localrec,obsrec,exst,mythid) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
243 |
COST_GENCOST_SEAICEV4 |
exst=.FALSE. |
|
./pkg/ecco/cost_gencost_seaicev4.F |
246 |
COST_GENCOST_SEAICEV4 |
& fname0,localrec,obsrec,exst,mythid) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
254 |
COST_GENCOST_SEAICEV4 |
exst=.FALSE. |
|
./pkg/ecco/cost_gencost_seaicev4.F |
257 |
COST_GENCOST_SEAICEV4 |
& fname0,localrec,obsrec,exst,mythid) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
268 |
COST_GENCOST_SEAICEV4 |
if ( (localrec .GT. 0).AND.(obsrec .GT. 0).AND.(exst) ) then |
|
./pkg/ecco/cost_gencost_sstv4.F |
223 |
COST_GENCOST_SSTV4 |
inquire( file=fname2, exist=exst ) |
|
./pkg/ecco/cost_gencost_sstv4.F |
381 |
COST_GENCOST_SSTV4 |
inquire( file=fname2, exist=exst ) |
|
./pkg/ecco/cost_gencost_sstv4.F |
86 |
COST_GENCOST_SSTV4 |
logical exst |
|
./pkg/ecco/cost_gencost_transp.F |
211 |
COST_GENCOST_TRANSP |
exst=.FALSE. |
|
./pkg/ecco/cost_gencost_transp.F |
215 |
COST_GENCOST_TRANSP |
& fname0,localrec,obsrec,exst,mythid) |
|
./pkg/ecco/cost_gencost_transp.F |
85 |
COST_GENCOST_TRANSP |
logical exst |
|
./pkg/ecco/cost_generic.F |
263 |
COST_GENLOOP |
logical exst |
|
./pkg/ecco/cost_generic.F |
334 |
COST_GENLOOP |
exst=.FALSE. |
|
./pkg/ecco/cost_generic.F |
339 |
COST_GENLOOP |
& fname3, localrec, obsrec, exst, mythid ) |
|
./pkg/ecco/cost_generic.F |
341 |
COST_GENLOOP |
if ( (localrec .GT. 0).AND.(obsrec .GT. 0).AND.(exst) ) |
|
./pkg/ecco/cost_generic.F |
345 |
COST_GENLOOP |
exst=.FALSE. |
|
./pkg/ecco/cost_generic.F |
348 |
COST_GENLOOP |
& fname2, localrec, obsrec, exst, mythid ) |
|
./pkg/ecco/cost_generic.F |
358 |
COST_GENLOOP |
if ( (localrec .GT. 0).AND.(obsrec .GT. 0).AND.(exst) ) |
|
./pkg/ecco/cost_sla_read.F |
118 |
COST_SLA_READ |
inquire( file=fnametmp, exist=exst ) |
|
./pkg/ecco/cost_sla_read.F |
121 |
COST_SLA_READ |
if ( (sshrec .GT. 0).AND.(exst) ) then |
|
./pkg/ecco/cost_sla_read.F |
74 |
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/ecco_check.F |
355 |
ECCO_CHECK |
inquire( file=gencost_errfile(k)(1:il), exist=exst ) |
|
./pkg/ecco/ecco_check.F |
356 |
ECCO_CHECK |
if (.NOT.exst) then |
|
./pkg/ecco/ecco_check.F |
411 |
ECCO_CHECK |
inquire( file=gencost_errfile(k)(1:il), exist=exst ) |
|
./pkg/ecco/ecco_check.F |
412 |
ECCO_CHECK |
if (.NOT.exst) then |
|
./pkg/ecco/ecco_check.F |
464 |
ECCO_CHECK |
inquire( file=tempfile(1:il+1), exist=exst ) |
|
./pkg/ecco/ecco_check.F |
465 |
ECCO_CHECK |
if (.NOT.exst) then |
|
./pkg/ecco/ecco_check.F |
480 |
ECCO_CHECK |
inquire( file=tempfile(1:il+1), exist=exst ) |
|
./pkg/ecco/ecco_check.F |
481 |
ECCO_CHECK |
if (.NOT.exst) then |
|
./pkg/ecco/ecco_check.F |
48 |
ECCO_CHECK |
LOGICAL exst |
|
./pkg/ecco/ecco_check.F |
493 |
ECCO_CHECK |
inquire( file=tempfile(1:il+1), exist=exst ) |
|
./pkg/ecco/ecco_check.F |
494 |
ECCO_CHECK |
if (.NOT.exst) then |
|
./pkg/ecco/ecco_check.F |
544 |
ECCO_CHECK |
inquire( file=tempfile(1:il+1), exist=exst ) |
|
./pkg/ecco/ecco_check.F |
546 |
ECCO_CHECK |
& tempfile(1:il+1),exst |
|
./pkg/ecco/ecco_check.F |
549 |
ECCO_CHECK |
if (.NOT.exst) then |
|
./pkg/ecco/ecco_check.F |
578 |
ECCO_CHECK |
inquire( file=tempfile(1:il+1), exist=exst ) |
|
./pkg/ecco/ecco_check.F |
580 |
ECCO_CHECK |
& tempfile(1:il+1),exst |
|
./pkg/ecco/ecco_check.F |
583 |
ECCO_CHECK |
if (.NOT.exst) then |
|
./pkg/ecco/ecco_check.F |
713 |
ECCO_CHECK_FILES |
LOGICAL exst, singleFileTest, yearlyFileTest |
|
./pkg/ecco/ecco_check.F |
742 |
ECCO_CHECK_FILES |
inquire( file=localobsfile, exist=exst ) |
|
./pkg/ecco/ecco_check.F |
743 |
ECCO_CHECK_FILES |
IF ( exst ) singleFileTest=.TRUE. |
|
./pkg/ecco/ecco_check.F |
758 |
ECCO_CHECK_FILES |
inquire( file=fname, exist=exst ) |
|
./pkg/ecco/ecco_check.F |
760 |
ECCO_CHECK_FILES |
IF ( (.NOT.exst).AND.(yday.GE.locy) ) THEN |
|
./pkg/ecco/ecco_check.F |
769 |
ECCO_CHECK_FILES |
ELSEIF ( (exst).AND.(yday.GE.locy) ) THEN |
|
./pkg/ecco/ecco_cost_init_fixed.F |
292 |
ECCO_COST_INIT_FIXED |
inquire( file='costfinal', exist=exst ) |
|
./pkg/ecco/ecco_cost_init_fixed.F |
293 |
ECCO_COST_INIT_FIXED |
if ( .NOT. exst) then |
|
./pkg/ecco/ecco_cost_init_fixed.F |
62 |
ECCO_COST_INIT_FIXED |
logical exst |