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

Timestamp:

May 28, 2018 7:55:41 AM (6 years ago)

Author:

Giersch

Message:

Code adjusted according to coding standards, renamed namelists, error messages revised until PA0347, output CASE 108 disabled

File:

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

palm/trunk/SOURCE/close_file.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! z_max_do2d removed and output case 108 disabled
+! 
+! 2718 2018-01-02 08:49:38Z maronga
 ! Corrected "Former revisions" section
 ! 
@@ -88 +91 @@
 
     USE control_parameters,                                                    &
-        ONLY:  max_masks, mid, nz_do3d, openfile, run_description_header,      &
-               z_max_do2d
+        ONLY:  max_masks, mid, nz_do3d, openfile, run_description_header
                 
     USE grid_variables,                                                        &
@@ -205 +207 @@
                 ENDIF
 
-             CASE ( 108 )
-
-                nc_stat = NF90_CLOSE( id_set_prt )
-                CALL netcdf_handle_error( 'close_file', 51 )
+!
+!--           Currently disabled
+!             CASE ( 108 )
+
+!                nc_stat = NF90_CLOSE( id_set_prt )
+!                CALL netcdf_handle_error( 'close_file', 51 )
 
              CASE ( 109 )