Ignore:
Timestamp:
Mar 6, 2016 6:36:17 PM (5 years ago)
Author:
raasch
Message:

NetCDF routines modularized; new parameter netcdf_deflate; further changes in the pmc

File:
1 edited

Legend:

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

    r1683 r1783  
    1919! Current revisions:
    2020! -----------------
    21 !
     21! name change of netcdf routines and module + related changes
    2222!
    2323! Former revisions:
     
    6565
    6666    USE control_parameters,                                                    &
    67         ONLY:  do2d_xz_n, do2d_xy_n, do2d_yz_n, do3d_avs_n,                    &
    68                host, max_masks, mid, netcdf_data_format,                       &
    69                nz_do3d, openfile, run_description_header,       &
    70                z_max_do2d
     67        ONLY:  do2d_xz_n, do2d_xy_n, do2d_yz_n, do3d_avs_n, host, max_masks,   &
     68               mid, nz_do3d, openfile, run_description_header, z_max_do2d
    7169               
    7270    USE grid_variables,                                                        &
     
    7876    USE kinds
    7977   
    80     USE netcdf_control
     78#if defined( __netcdf )
     79    USE NETCDF
     80#endif
     81
     82    USE netcdf_interface,                                                      &
     83        ONLY:  id_set_mask, id_set_pr, id_set_prt, id_set_pts, id_set_sp,      &
     84               id_set_ts, id_set_xy, id_set_xz, id_set_yz, id_set_3d, nc_stat, &
     85               netcdf_data_format, netcdf_handle_error
    8186               
    8287    USE pegrid                                           
     
    132137                IF ( myid == 0  .OR.  netcdf_data_format > 4 )  THEN
    133138                   nc_stat = NF90_CLOSE( id_set_xy(0) )
    134                    CALL handle_netcdf_error( 'close_file', 44 )
     139                   CALL netcdf_handle_error( 'close_file', 44 )
    135140                ENDIF
    136141
     
    139144                IF ( myid == 0  .OR.  netcdf_data_format > 4 )  THEN
    140145                   nc_stat = NF90_CLOSE( id_set_xz(0) )
    141                    CALL handle_netcdf_error( 'close_file', 45 )
     146                   CALL netcdf_handle_error( 'close_file', 45 )
    142147                ENDIF
    143148
     
    146151                IF ( myid == 0  .OR.  netcdf_data_format > 4 )  THEN
    147152                   nc_stat = NF90_CLOSE( id_set_yz(0) )
    148                    CALL handle_netcdf_error( 'close_file', 46 )
     153                   CALL netcdf_handle_error( 'close_file', 46 )
    149154                ENDIF
    150155
     
    153158                IF ( myid == 0 )  THEN
    154159                   nc_stat = NF90_CLOSE( id_set_pr )
    155                    CALL handle_netcdf_error( 'close_file', 47 )
     160                   CALL netcdf_handle_error( 'close_file', 47 )
    156161                ENDIF
    157162
     
    160165                IF ( myid == 0 )  THEN
    161166                   nc_stat = NF90_CLOSE( id_set_ts )
    162                    CALL handle_netcdf_error( 'close_file', 48 )
     167                   CALL netcdf_handle_error( 'close_file', 48 )
    163168                ENDIF
    164169
     
    167172                IF ( myid == 0  .OR.  netcdf_data_format > 4 )  THEN
    168173                   nc_stat = NF90_CLOSE( id_set_3d(0) )
    169                    CALL handle_netcdf_error( 'close_file', 49 )
     174                   CALL netcdf_handle_error( 'close_file', 49 )
    170175                ENDIF
    171176
     
    174179                IF ( myid == 0 )  THEN
    175180                   nc_stat = NF90_CLOSE( id_set_sp )
    176                    CALL handle_netcdf_error( 'close_file', 50 )
     181                   CALL netcdf_handle_error( 'close_file', 50 )
    177182                ENDIF
    178183
     
    180185
    181186                nc_stat = NF90_CLOSE( id_set_prt )
    182                 CALL handle_netcdf_error( 'close_file', 51 )
     187                CALL netcdf_handle_error( 'close_file', 51 )
    183188
    184189             CASE ( 109 )
    185190
    186191                nc_stat = NF90_CLOSE( id_set_pts )
    187                 CALL handle_netcdf_error( 'close_file', 412 )
     192                CALL netcdf_handle_error( 'close_file', 412 )
    188193
    189194             CASE ( 111 )
     
    191196                IF ( myid == 0  .OR.  netcdf_data_format > 4 )  THEN
    192197                   nc_stat = NF90_CLOSE( id_set_xy(1) )
    193                    CALL handle_netcdf_error( 'close_file', 52 )
     198                   CALL netcdf_handle_error( 'close_file', 52 )
    194199                ENDIF
    195200
     
    198203                IF ( myid == 0  .OR.  netcdf_data_format > 4 )  THEN
    199204                   nc_stat = NF90_CLOSE( id_set_xz(1) )
    200                    CALL handle_netcdf_error( 'close_file', 352 )
     205                   CALL netcdf_handle_error( 'close_file', 352 )
    201206                ENDIF
    202207
     
    205210                IF ( myid == 0  .OR.  netcdf_data_format > 4 )  THEN
    206211                   nc_stat = NF90_CLOSE( id_set_yz(1) )
    207                    CALL handle_netcdf_error( 'close_file', 353 )
     212                   CALL netcdf_handle_error( 'close_file', 353 )
    208213                ENDIF
    209214
     
    212217                IF ( myid == 0  .OR.  netcdf_data_format > 4 )  THEN
    213218                   nc_stat = NF90_CLOSE( id_set_3d(1) )
    214                    CALL handle_netcdf_error( 'close_file', 353 )
     219                   CALL netcdf_handle_error( 'close_file', 353 )
    215220                ENDIF
    216221
     
    228233                   ENDIF
    229234                   nc_stat = NF90_CLOSE( id_set_mask(mid,av) )
    230                    CALL handle_netcdf_error( 'close_file', 459 )
     235                   CALL netcdf_handle_error( 'close_file', 459 )
    231236               
    232237                ENDIF
Note: See TracChangeset for help on using the changeset viewer.