Changeset 48a5c5c in flexpart.git for flexpart_code/fpgridcheck.F90

Timestamp:

Aug 22, 2016, 3:52:53 PM (8 years ago)

Author:

Don Morton <Don.Morton@…>

Branches:

FPv9.3.1, FPv9.3.1b_testing, FPv9.3.2, fp9.3.1-20161214-nc4, grib2nc4_repair

Children:

f155f96

Parents:

87d9684

Message:

Added in AWST mods for extensionless FP filenames and
new CTBTO message for GRIB2FLEXPART

File:

• flexpart_code/fpgridcheck.F90 (modified) (2 diffs)

flexpart_code/fpgridcheck.F90

@@ -29 +29 @@
     if ( ifn.eq.0 ) then
       if ( ldirect.eq.1 ) then
-        inquire(file=TRIM(path(3)) // TRIM(wfname(i)) // '_fwd.fp', exist=exists)
+        inquire(file=TRIM(path(3)) // TRIM(wfname(i)), exist=exists)
       else
-        inquire(file=TRIM(path(3)) // TRIM(wfname(i)) // '_bwd.fp', exist=exists)
+        inquire(file=TRIM(path(3)) // TRIM(wfname(i)), exist=exists)
       endif
       if ( exists ) then
@@ -41 +41 @@
   ! Create the file name and load her up
   if ( ldirect.eq.1 ) then
-    fpfname = TRIM(path(3)) // TRIM(wfname(ifn)) // '_fwd.fp'
+    fpfname = TRIM(path(3)) // TRIM(wfname(ifn))
   else
-    fpfname = TRIM(path(3)) // TRIM(wfname(ifn)) // '_bwd.fp'
+    fpfname = TRIM(path(3)) // TRIM(wfname(ifn))
   endif
   print *, 'fpgridcheck(): LOADING.... ',  TRIM(fpfname)