Changeset 48a5c5c in flexpart.git for flexpart_code/getfpfields.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/getfpfields.F90 (modified) (3 diffs)

flexpart_code/getfpfields.F90

@@ -120 +120 @@
            ! Read in a single .fp file, placing contents at index 2
            if ( ldirect.eq.1 ) then 
-             fpfname = TRIM(path(3)) // TRIM(wfname(indj+1)) // '_fwd.fp'
+             fpfname = TRIM(path(3)) // TRIM(wfname(indj+1))
            else
-             fpfname = TRIM(path(3)) // TRIM(wfname(indj+1)) // '_bwd.fp'
+             fpfname = TRIM(path(3)) // TRIM(wfname(indj+1))
            endif
            print *, 'loading... ',  TRIM(fpfname)
@@ -158 +158 @@
             ! Read in first .fp file
             if ( ldirect.eq.1 ) then
-              fpfname = TRIM(path(3)) // TRIM(wfname(indj)) // '_fwd.fp'
+              fpfname = TRIM(path(3)) // TRIM(wfname(indj))
             else
-              fpfname = TRIM(path(3)) // TRIM(wfname(indj)) // '_bwd.fp'
+              fpfname = TRIM(path(3)) // TRIM(wfname(indj))
             endif
             print *, 'loading... ',  TRIM(fpfname)
@@ -177 +177 @@
             ! Read in second .fp file
             if ( ldirect.eq.1 ) then
-              fpfname = TRIM(path(3)) // TRIM(wfname(indj+1)) // '_fwd.fp'
+              fpfname = TRIM(path(3)) // TRIM(wfname(indj+1))
             else
-              fpfname = TRIM(path(3)) // TRIM(wfname(indj+1)) // '_bwd.fp'
+              fpfname = TRIM(path(3)) // TRIM(wfname(indj+1))
             endif
             print *, 'loading... ',  TRIM(fpfname)