Changeset 3045 for palm/trunk/SOURCE/check_open.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/check_open.f90 (modified) (2 diffs)

palm/trunk/SOURCE/check_open.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Output case 108 disabled
+! 
+! 2964 2018-04-12 16:04:03Z Giersch
 ! Error message moved to radiation_model_mod
 ! 
@@ -971 +974 @@
           ENDIF
 
-
-       CASE ( 108 )
-
-          IF ( myid_char == '' )  THEN
-             filename = 'DATA_PRT_NETCDF' // TRIM( coupling_char )
-          ELSE
-             filename = 'DATA_PRT_NETCDF' // TRIM( coupling_char ) // '/' //   &
-                        myid_char
-          ENDIF
+!
+!--     Currently disabled
+!       CASE ( 108 )
+
+!          IF ( myid_char == '' )  THEN
+!             filename = 'DATA_PRT_NETCDF' // TRIM( coupling_char )
+!          ELSE
+!             filename = 'DATA_PRT_NETCDF' // TRIM( coupling_char ) // '/' //   &
+!                        myid_char
+!          ENDIF
 !
 !--       Inquire, if there is a netCDF file from a previuos run. This should
 !--       be opened for extension, if its variables match the actual run.
-          INQUIRE( FILE=filename, EXIST=netcdf_extend )
-
-          IF ( netcdf_extend )  THEN
+!          INQUIRE( FILE=filename, EXIST=netcdf_extend )
+
+!          IF ( netcdf_extend )  THEN
 !
 !--          Open an existing netCDF file for output
-             CALL netcdf_open_write_file( filename, id_set_prt, .FALSE., 41 )
+!             CALL netcdf_open_write_file( filename, id_set_prt, .FALSE., 41 )
 !
 !--          Read header information and set all ids. If there is a mismatch
 !--          between the previuos and the actual run, netcdf_extend is returned
 !--          as .FALSE.
-             CALL netcdf_define_header( 'pt', netcdf_extend, 0 )
+!             CALL netcdf_define_header( 'pt', netcdf_extend, 0 )
 
 !
 !--          Remove the local file, if it can not be extended
-             IF ( .NOT. netcdf_extend )  THEN
-                nc_stat = NF90_CLOSE( id_set_prt )
-                CALL netcdf_handle_error( 'check_open', 42 )
-                CALL local_system( 'rm ' // TRIM( filename ) )
-             ENDIF
-
-          ENDIF          
-
-          IF ( .NOT. netcdf_extend )  THEN
+!             IF ( .NOT. netcdf_extend )  THEN
+!                nc_stat = NF90_CLOSE( id_set_prt )
+!                CALL netcdf_handle_error( 'check_open', 42 )
+!                CALL local_system( 'rm ' // TRIM( filename ) )
+!             ENDIF
+
+!          ENDIF          
+
+!          IF ( .NOT. netcdf_extend )  THEN
 
 !
 !--          For runs on multiple processors create the subdirectory
-             IF ( myid_char /= '' )  THEN
-                IF ( myid == 0  .AND. .NOT. openfile(file_id)%opened_before )  &
-                THEN    ! needs modification in case of non-extendable sets
-                   CALL local_system( 'mkdir  DATA_PRT_NETCDF' //              &
-                                       TRIM( coupling_char ) // '/' )
-                ENDIF
+!             IF ( myid_char /= '' )  THEN
+!                IF ( myid == 0  .AND. .NOT. openfile(file_id)%opened_before )  &
+!                THEN    ! needs modification in case of non-extendable sets
+!                   CALL local_system( 'mkdir  DATA_PRT_NETCDF' //              &
+!                                       TRIM( coupling_char ) // '/' )
+!                ENDIF
 #if defined( __parallel )
 ! 
 !--             Set a barrier in order to allow that all other processors in the
 !--             directory created by PE0 can open their file
-                CALL MPI_BARRIER( comm2d, ierr )
+!                CALL MPI_BARRIER( comm2d, ierr )
 #endif
-             ENDIF
+!             ENDIF
 
 !
 !--          Create a new netCDF output file with requested netCDF format
-             CALL netcdf_create_file( filename, id_set_prt, .FALSE., 43 )
+!             CALL netcdf_create_file( filename, id_set_prt, .FALSE., 43 )
 
 !
 !--          Define the header
-             CALL netcdf_define_header( 'pt', netcdf_extend, 0 )
-
-          ENDIF
+!             CALL netcdf_define_header( 'pt', netcdf_extend, 0 )
+
+!          ENDIF
 
        CASE ( 109 )