Changeset 5b3cc42 in flexpart.git for flexpart_code/fpmetbinary_mod.F90

Timestamp:

Dec 14, 2016, 8:16:48 PM (7 years ago)

Author:

Don Morton <Don.Morton@…>

Branches:

fp9.3.1-20161214-nc4

Children:

b9970e3

Parents:

64c820a

Message:

Starting to code infrastructure for NC4

File:

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

flexpart_code/fpmetbinary_mod.F90

@@ -45 +45 @@
     USE conv_mod
     USE par_mod, ONLY : nxmax, nymax, nzmax, nuvzmax, nwzmax
+
+    USE netcdf
 
     IMPLICIT NONE
@@ -90 +92 @@
         INTEGER millisecs_start, millisecs_stop, count_rate, count_max
 
+        INTEGER ncretval, ncid
+
         CALL SYSTEM_CLOCK(millisecs_start, count_rate, count_max)
+
+        ! Create and open NC4 file for writing
+        PRINT *, 'Opening NC4 file...'
+        ncretval = nf90_create(filename // ".nc4", &
+&                              OR(NF90_CLOBBER, NF90_HDF5), &
+&                              ncid)
+
         OPEN(IOUNIT_DUMP, file=filename, action='WRITE', status='REPLACE', form="unformatted", access="stream")
+
+
+
+
+
+
         CALL fpio(IOUNIT_DUMP, 'DUMP', cm_index)
         CLOSE(IOUNIT_DUMP)
+
+        PRINT *, 'Closing NC4 file...'
+        ncretval = nf90_close(ncid)
+
         CALL SYSTEM_CLOCK(millisecs_stop, count_rate, count_max)