Changeset 515b21c in flexpart.git for flexpart_code/fpgridcheck.F90

Timestamp:

Apr 16, 2017, 10:14:27 AM (7 years ago)

Author:

Don Morton <Don.Morton@…>

Branches:

fp9.3.1-20161214-nc4

Children:

b398fb6

Parents:

5f50284

Message:

Brang fp9.3.1-20161214-nc4,
Added check of preproc format string, started cleaning up

File:

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

flexpart_code/fpgridcheck.F90

@@ -45 +45 @@
     fpfname = TRIM(path(3)) // TRIM(wfname(ifn))
   endif
-  print *, 'fpgridcheck(): LOADING.... ',  TRIM(fpfname)
 
   ! The second argument of this call indicates which index (1 or 2) 
@@ -54 +53 @@
 
 
-PRINT *, 'fpgridcheck(): fpfname:', fpfname
   CALL fpmetbinary_load(TRIM(fpfname), 1)