Ignore:
Timestamp:
Mar 21, 2014 11:00:16 AM (7 years ago)
Author:
raasch
Message:

Changed:


-s real64 removed (.mrun.config.hlrnIII)
-r8 removed (.mrun.config.imuk)
deleted: .mrun.config.imuk_ice2_netcdf4 .mrun.config.imuk_hlrn

REAL constants defined as wp-kind in modules

"baroclinicity" renamed "baroclinity", "ocean version" replaced by
"ocean mode"

code parts concerning old output formats "iso2d" and "avs" removed.
netCDF is the only remaining output format.

Errors:


bugfix: duplicate error message 56 removed

File:
1 edited

Legend:

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

    r1321 r1327  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! parts concerning iso2d and avs output removed
    2323!
    2424! Former revisions:
     
    5858
    5959    USE control_parameters,                                                    &
    60         ONLY:  do2d_xz_n, do2d_xy_n, do2d_yz_n, do3d_avs_n, do3d_compress,     &
    61                host, iso2d_output, max_masks, mid, netcdf_data_format,         &
    62                netcdf_output, nz_do3d, openfile, run_description_header,       &
     60        ONLY:  do2d_xz_n, do2d_xy_n, do2d_yz_n, do3d_avs_n,                    &
     61               host, max_masks, mid, netcdf_data_format,                       &
     62               nz_do3d, openfile, run_description_header,       &
    6363               z_max_do2d
    6464               
     
    120120          SELECT CASE ( fid )
    121121
    122              CASE ( 21 )
    123 !
    124 !--             Write ISO2D global parameters
    125                 IF ( myid == 0  .AND.  iso2d_output )  THEN
    126                    planz  = do2d_xy_n
    127                    dimx   = nx + 2
    128                    dimy   = ny + 2
    129                    sizex  = 100.0
    130                    sizey  = 100.0
    131                    title  = run_description_header
    132                    yright = ( ny + 1.0 ) * dy
    133                    IF ( host(1:3) == 'ibm'  .OR.  host(1:3) == 't3e' )  THEN
    134                       checkuf = .FALSE.; dbp = .TRUE.
    135                    ENDIF
    136                    IF ( host(1:3) == 'ibm'  .OR.  host(1:3) == 'nec' )  THEN
    137                       datform = 'big_endian'
    138                    ENDIF
    139                    OPEN ( 90, FILE='PLOT2D_XY_GLOBAL', FORM='FORMATTED',       &
    140                               DELIM='APOSTROPHE' )
    141                    WRITE ( 90, GLOBAL )
    142                    CLOSE ( 90 )
    143                 ENDIF
    144 
    145              CASE ( 22 )
    146 !
    147 !--             Write ISO2D global parameters
    148                 IF ( myid == 0 )  THEN
    149                    planz  = do2d_xz_n
    150                    dimx   = nx + 2
    151                    dimy   = nz + 2
    152                    sizex  = 100.0
    153                    sizey  =  65.0
    154                    title  = run_description_header
    155                    yright = z_max_do2d
    156                    IF ( host(1:3) == 'ibm'  .OR.  host(1:3) == 't3e' )  THEN
    157                       checkuf = .FALSE.; dbp = .TRUE.
    158                    ENDIF
    159                    IF ( host(1:3) == 'ibm'  .OR.  host(1:3) == 'nec' )  THEN
    160                       datform = 'big_endian'
    161                    ENDIF
    162                    OPEN ( 90, FILE='PLOT2D_XZ_GLOBAL', FORM='FORMATTED',       &
    163                               DELIM='APOSTROPHE' )
    164                    WRITE ( 90, GLOBAL )
    165                    CLOSE ( 90 )
    166                 ENDIF
    167 
    168              CASE ( 23 )
    169 !
    170 !--             Write ISO2D global parameters
    171                 IF ( myid == 0 )  THEN
    172                    planz  = do2d_yz_n
    173                    dimx   = ny + 2
    174                    dimy   = nz + 2
    175                    sizex  = 100.0
    176                    sizey  =  65.0
    177                    title  = run_description_header
    178                    yright = z_max_do2d
    179                    IF ( host(1:3) == 'ibm'  .OR.  host(1:3) == 't3e' )  THEN
    180                       checkuf = .FALSE.; dbp = .TRUE.
    181                    ENDIF
    182                    IF ( host(1:3) == 'ibm'  .OR.  host(1:3) == 'nec' )  THEN
    183                       datform = 'big_endian'
    184                    ENDIF
    185                    OPEN ( 90, FILE='PLOT2D_YZ_GLOBAL', FORM='FORMATTED',       &
    186                               DELIM='APOSTROPHE' )
    187                    WRITE ( 90, GLOBAL )
    188                    CLOSE ( 90 )
    189                 ENDIF
    190 
    191              CASE ( 32 )
    192 !
    193 !--             Write header for FLD-file
    194                 IF ( do3d_compress )  THEN
    195                    WRITE ( 32, 3200)  ' compressed ',                          &
    196                                       TRIM( run_description_header ), nx+2,    &
    197                                       ny+2, nz_do3d+1, do3d_avs_n
    198                 ELSE
    199                    WRITE ( 32, 3200)  ' ', TRIM( run_description_header ),     &
    200                                       nx+2, ny+2, nz_do3d+1, do3d_avs_n
    201                 ENDIF
    202 
    203122#if defined( __netcdf )
    204123             CASE ( 101 )
    205124
    206                 IF ( netcdf_output  .AND.                                      &
    207                      ( myid == 0  .OR.  netcdf_data_format > 4 ) )  THEN
     125                IF ( myid == 0  .OR.  netcdf_data_format > 4 )  THEN
    208126                   nc_stat = NF90_CLOSE( id_set_xy(0) )
    209127                   CALL handle_netcdf_error( 'close_file', 44 )
     
    212130             CASE ( 102 )
    213131
    214                 IF ( netcdf_output  .AND.                                      &
    215                      ( myid == 0  .OR.  netcdf_data_format > 4 ) )  THEN
     132                IF ( myid == 0  .OR.  netcdf_data_format > 4 )  THEN
    216133                   nc_stat = NF90_CLOSE( id_set_xz(0) )
    217134                   CALL handle_netcdf_error( 'close_file', 45 )
     
    220137             CASE ( 103 )
    221138
    222                 IF ( netcdf_output  .AND.                                      &
    223                      ( myid == 0  .OR.  netcdf_data_format > 4 ) )  THEN
     139                IF ( myid == 0  .OR.  netcdf_data_format > 4 )  THEN
    224140                   nc_stat = NF90_CLOSE( id_set_yz(0) )
    225141                   CALL handle_netcdf_error( 'close_file', 46 )
     
    228144             CASE ( 104 )
    229145
    230                 IF ( myid == 0  .AND.  netcdf_output )  THEN
     146                IF ( myid == 0 )  THEN
    231147                   nc_stat = NF90_CLOSE( id_set_pr )
    232148                   CALL handle_netcdf_error( 'close_file', 47 )
     
    235151             CASE ( 105 )
    236152
    237                 IF ( myid == 0  .AND.  netcdf_output )  THEN
     153                IF ( myid == 0 )  THEN
    238154                   nc_stat = NF90_CLOSE( id_set_ts )
    239155                   CALL handle_netcdf_error( 'close_file', 48 )
     
    242158             CASE ( 106 )
    243159
    244                 IF ( netcdf_output  .AND.  &
    245                      ( myid == 0  .OR.  netcdf_data_format > 4 ) )  THEN
     160                IF ( myid == 0  .OR.  netcdf_data_format > 4 )  THEN
    246161                   nc_stat = NF90_CLOSE( id_set_3d(0) )
    247162                   CALL handle_netcdf_error( 'close_file', 49 )
     
    250165             CASE ( 107 )
    251166
    252                 IF ( myid == 0  .AND.  netcdf_output )  THEN
     167                IF ( myid == 0 )  THEN
    253168                   nc_stat = NF90_CLOSE( id_set_sp )
    254169                   CALL handle_netcdf_error( 'close_file', 50 )
     
    257172             CASE ( 108 )
    258173
    259                 IF (  netcdf_output )  THEN
    260                    nc_stat = NF90_CLOSE( id_set_prt )
    261                    CALL handle_netcdf_error( 'close_file', 51 )
    262                 ENDIF
     174                nc_stat = NF90_CLOSE( id_set_prt )
     175                CALL handle_netcdf_error( 'close_file', 51 )
    263176
    264177             CASE ( 109 )
    265178
    266                 IF (  netcdf_output )  THEN
    267                    nc_stat = NF90_CLOSE( id_set_pts )
    268                    CALL handle_netcdf_error( 'close_file', 412 )
    269                 ENDIF
     179                nc_stat = NF90_CLOSE( id_set_pts )
     180                CALL handle_netcdf_error( 'close_file', 412 )
    270181
    271182             CASE ( 111 )
    272183
    273                 IF ( netcdf_output  .AND.                                      &
    274                      ( myid == 0  .OR.  netcdf_data_format > 4 ) )  THEN
     184                IF ( myid == 0  .OR.  netcdf_data_format > 4 )  THEN
    275185                   nc_stat = NF90_CLOSE( id_set_xy(1) )
    276186                   CALL handle_netcdf_error( 'close_file', 52 )
     
    279189             CASE ( 112 )
    280190
    281                 IF ( netcdf_output  .AND.                                      &
    282                      ( myid == 0  .OR.  netcdf_data_format > 4 ) )  THEN
     191                IF ( myid == 0  .OR.  netcdf_data_format > 4 )  THEN
    283192                   nc_stat = NF90_CLOSE( id_set_xz(1) )
    284193                   CALL handle_netcdf_error( 'close_file', 352 )
     
    287196             CASE ( 113 )
    288197
    289                 IF ( netcdf_output  .AND.                                      &
    290                      ( myid == 0  .OR.  netcdf_data_format > 4 ) )  THEN
     198                IF ( myid == 0  .OR.  netcdf_data_format > 4 )  THEN
    291199                   nc_stat = NF90_CLOSE( id_set_yz(1) )
    292200                   CALL handle_netcdf_error( 'close_file', 353 )
     
    295203             CASE ( 116 )
    296204
    297                 IF ( netcdf_output  .AND.                                      &
    298                      ( myid == 0  .OR.  netcdf_data_format > 4 ) )  THEN
     205                IF ( myid == 0  .OR.  netcdf_data_format > 4 )  THEN
    299206                   nc_stat = NF90_CLOSE( id_set_3d(1) )
    300207                   CALL handle_netcdf_error( 'close_file', 353 )
     
    303210             CASE ( 201:200+2*max_masks )
    304211             
    305                 IF ( netcdf_output  .AND.                                      &
    306                      ( myid == 0  .OR.  netcdf_data_format > 4 ) )  THEN
     212                IF ( myid == 0  .OR.  netcdf_data_format > 4 )  THEN
    307213!
    308214!--                decompose fid into mid and av
Note: See TracChangeset for help on using the changeset viewer.