Changeset 1992 for palm/trunk/SOURCE/close_file.f90

Timestamp:

Aug 12, 2016 3:14:59 PM (8 years ago)

Author:

suehring

Message:

Prescribing scalar flux at model top; several bugfixes concering data output of scalars and output of flight data

File:

• palm/trunk/SOURCE/close_file.f90 (modified) (4 diffs)

palm/trunk/SOURCE/close_file.f90

@@ -19 +19 @@
 ! Current revisions:
 ! -----------------
-! 
+! -Close file containing flight data
+! -Some tabs removed.
 !
 ! Former revisions:
@@ -85 +86 @@
     USE netcdf_interface,                                                      &
         ONLY:  id_set_mask, id_set_pr, id_set_prt, id_set_pts, id_set_sp,      &
-               id_set_ts, id_set_xy, id_set_xz, id_set_yz, id_set_3d, nc_stat, &
-               netcdf_data_format, netcdf_handle_error
+               id_set_ts, id_set_xy, id_set_xz, id_set_yz, id_set_3d,          &
+               id_set_fl, nc_stat, netcdf_data_format, netcdf_handle_error
                 
     USE pegrid                                           
@@ -223 +224 @@
                 ENDIF
 
+             CASE ( 199 )
+
+                IF ( myid == 0  .OR.  netcdf_data_format > 4 )  THEN
+                   nc_stat = NF90_CLOSE( id_set_fl )
+                   CALL netcdf_handle_error( 'close_file', 353 )
+                ENDIF
+
              CASE ( 201:200+2*max_masks )
-             
+
                 IF ( myid == 0  .OR.  netcdf_data_format > 4 )  THEN
 !
@@ -237 +245 @@
                    nc_stat = NF90_CLOSE( id_set_mask(mid,av) )
                    CALL netcdf_handle_error( 'close_file', 459 )
-                
+
                 ENDIF