Ignore:
Timestamp:
May 28, 2018 7:55:41 AM (3 years ago)
Author:
Giersch
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/check_open.f90

    r2964 r3045  
    2525! -----------------
    2626! $Id$
     27! Output case 108 disabled
     28!
     29! 2964 2018-04-12 16:04:03Z Giersch
    2730! Error message moved to radiation_model_mod
    2831!
     
    971974          ENDIF
    972975
    973 
    974        CASE ( 108 )
    975 
    976           IF ( myid_char == '' )  THEN
    977              filename = 'DATA_PRT_NETCDF' // TRIM( coupling_char )
    978           ELSE
    979              filename = 'DATA_PRT_NETCDF' // TRIM( coupling_char ) // '/' //   &
    980                         myid_char
    981           ENDIF
     976!
     977!--     Currently disabled
     978!       CASE ( 108 )
     979
     980!          IF ( myid_char == '' )  THEN
     981!             filename = 'DATA_PRT_NETCDF' // TRIM( coupling_char )
     982!          ELSE
     983!             filename = 'DATA_PRT_NETCDF' // TRIM( coupling_char ) // '/' //   &
     984!                        myid_char
     985!          ENDIF
    982986!
    983987!--       Inquire, if there is a netCDF file from a previuos run. This should
    984988!--       be opened for extension, if its variables match the actual run.
    985           INQUIRE( FILE=filename, EXIST=netcdf_extend )
    986 
    987           IF ( netcdf_extend )  THEN
     989!          INQUIRE( FILE=filename, EXIST=netcdf_extend )
     990
     991!          IF ( netcdf_extend )  THEN
    988992!
    989993!--          Open an existing netCDF file for output
    990              CALL netcdf_open_write_file( filename, id_set_prt, .FALSE., 41 )
     994!             CALL netcdf_open_write_file( filename, id_set_prt, .FALSE., 41 )
    991995!
    992996!--          Read header information and set all ids. If there is a mismatch
    993997!--          between the previuos and the actual run, netcdf_extend is returned
    994998!--          as .FALSE.
    995              CALL netcdf_define_header( 'pt', netcdf_extend, 0 )
     999!             CALL netcdf_define_header( 'pt', netcdf_extend, 0 )
    9961000
    9971001!
    9981002!--          Remove the local file, if it can not be extended
    999              IF ( .NOT. netcdf_extend )  THEN
    1000                 nc_stat = NF90_CLOSE( id_set_prt )
    1001                 CALL netcdf_handle_error( 'check_open', 42 )
    1002                 CALL local_system( 'rm ' // TRIM( filename ) )
    1003              ENDIF
    1004 
    1005           ENDIF         
    1006 
    1007           IF ( .NOT. netcdf_extend )  THEN
     1003!             IF ( .NOT. netcdf_extend )  THEN
     1004!                nc_stat = NF90_CLOSE( id_set_prt )
     1005!                CALL netcdf_handle_error( 'check_open', 42 )
     1006!                CALL local_system( 'rm ' // TRIM( filename ) )
     1007!             ENDIF
     1008
     1009!          ENDIF         
     1010
     1011!          IF ( .NOT. netcdf_extend )  THEN
    10081012
    10091013!
    10101014!--          For runs on multiple processors create the subdirectory
    1011              IF ( myid_char /= '' )  THEN
    1012                 IF ( myid == 0  .AND. .NOT. openfile(file_id)%opened_before )  &
    1013                 THEN    ! needs modification in case of non-extendable sets
    1014                    CALL local_system( 'mkdir  DATA_PRT_NETCDF' //              &
    1015                                        TRIM( coupling_char ) // '/' )
    1016                 ENDIF
     1015!             IF ( myid_char /= '' )  THEN
     1016!                IF ( myid == 0  .AND. .NOT. openfile(file_id)%opened_before )  &
     1017!                THEN    ! needs modification in case of non-extendable sets
     1018!                   CALL local_system( 'mkdir  DATA_PRT_NETCDF' //              &
     1019!                                       TRIM( coupling_char ) // '/' )
     1020!                ENDIF
    10171021#if defined( __parallel )
    10181022!
    10191023!--             Set a barrier in order to allow that all other processors in the
    10201024!--             directory created by PE0 can open their file
    1021                 CALL MPI_BARRIER( comm2d, ierr )
     1025!                CALL MPI_BARRIER( comm2d, ierr )
    10221026#endif
    1023              ENDIF
     1027!             ENDIF
    10241028
    10251029!
    10261030!--          Create a new netCDF output file with requested netCDF format
    1027              CALL netcdf_create_file( filename, id_set_prt, .FALSE., 43 )
     1031!             CALL netcdf_create_file( filename, id_set_prt, .FALSE., 43 )
    10281032
    10291033!
    10301034!--          Define the header
    1031              CALL netcdf_define_header( 'pt', netcdf_extend, 0 )
    1032 
    1033           ENDIF
     1035!             CALL netcdf_define_header( 'pt', netcdf_extend, 0 )
     1036
     1037!          ENDIF
    10341038
    10351039       CASE ( 109 )
Note: See TracChangeset for help on using the changeset viewer.