Changeset 5f50284 in flexpart.git for flexpart_code/fpgridcheck.F90


Ignore:
Timestamp:
Apr 15, 2017, 5:36:41 PM (7 years ago)
Author:
Don Morton <Don.Morton@…>
Branches:
fp9.3.1-20161214-nc4
Children:
515b21c
Parents:
89ad9c3
Message:

In fp9.3.1-20161214-nc4 branch, decoupled the NC4 FP format from
raw binary (just commented that out for now) and tested
successfully.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • flexpart_code/fpgridcheck.F90

    r48a5c5c r5f50284  
    1313  integer :: i
    1414  logical :: exists
    15   character(len=512) fpfname    ! .fp filename
     15  character(len=512) fpfname    !  .fp filename
    1616
    1717
    … …  
    5252  ! load the other stuff in index 1.  It will be overwritten in subsequent
    5353  ! loads.
     54
     55
     56PRINT *, 'fpgridcheck(): fpfname:', fpfname
    5457  CALL fpmetbinary_load(TRIM(fpfname), 1)
    5558
Note: See TracChangeset for help on using the changeset viewer.
hosted by ZAMG