Ignore:
Timestamp:
Sep 12, 2018 3:02:00 PM (3 years ago)
Author:
raasch
Message:

various changes to avoid compiler warnings (mainly removal of unused variables)

File:
1 edited

Legend:

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

    r3159 r3241  
    2525! -----------------
    2626! $Id$
     27! unused variables and format statements removed
     28!
     29! 3159 2018-07-20 11:20:01Z sward
    2730! Added multi agent system
    2831!
     
    172175 
    173176
    174     USE arrays_3d,                                                             &
    175         ONLY:  zu
    176 
    177177    USE control_parameters,                                                    &
    178178        ONLY:  coupling_char, data_output_2d_on_each_pe,                       &
    179179               max_masks, message_string, mid, nz_do3d, openfile,              &
    180                run_description_header, runnr
    181 
    182     USE grid_variables,                                                        &
    183         ONLY:  dx, dy
     180               run_description_header
    184181
    185182    USE indices,                                                               &
    186         ONLY:  nbgp, nx, nxl, nxr, ny, nyn, nyng, nys, nysg, nz, nzb, nzt
     183        ONLY:  nbgp, nx, nxl, nxr, ny, nyn, nys, nz, nzb, nzt
    187184
    188185    USE kinds
     
    193190
    194191    USE netcdf_interface,                                                      &
    195         ONLY:  id_set_agt, id_set_fl, id_set_mask, id_set_pr, id_set_prt,      &
     192        ONLY:  id_set_agt, id_set_fl, id_set_mask, id_set_pr,                  &
    196193               id_set_pts, id_set_sp, id_set_ts, id_set_xy, id_set_xz,         &
    197194               id_set_yz, id_set_3d, nc_stat, netcdf_create_file,              &
     
    212209
    213210    CHARACTER (LEN=4)   ::  mask_char               !<
    214     CHARACTER (LEN=2)   ::  suffix                  !<
    215211    CHARACTER (LEN=30)  ::  filename                !<
    216212    CHARACTER (LEN=80)  ::  rtext                   !<
    217     CHARACTER (LEN=100) ::  line                    !<
    218213
    219214    INTEGER(iwp) ::  av          !<
    220215    INTEGER(iwp) ::  file_id     !<
    221     INTEGER(iwp) ::  i           !<
    222216    INTEGER(iwp) ::  ioerr       !< IOSTAT flag for IO-commands ( 0 = no error )
    223     INTEGER(iwp) ::  j           !<
    224     INTEGER(iwp) ::  k           !<
    225217   
    226218    LOGICAL ::  netcdf_extend    !<
     
    12591251!
    12601252!-- Formats
    1261 3300 FORMAT ('#'/                                                              &
    1262              'coord 1  file=',A,'  filetype=unformatted'/                      &
    1263              'coord 2  file=',A,'  filetype=unformatted  skip=',I6/            &
    1264              'coord 3  file=',A,'  filetype=unformatted  skip=',I6/            &
    1265              '#')
    1266 4000 FORMAT ('# ',A)
    1267 5000 FORMAT ('# ',A/                                                           &
    1268              '#1 E'/'#2 E*'/'#3 dt'/'#4 u*'/'#5 th*'/'#6 umax'/'#7 vmax'/      &
    1269              '#8 wmax'/'#9 div_new'/'#10 div_old'/'#11 z_i_wpt'/'#12 z_i_pt'/  &
    1270              '#13 w*'/'#14 w''pt''0'/'#15 w''pt'''/'#16 wpt'/'#17 pt(0)'/      &
    1271              '#18 pt(zp)'/'#19 splptx'/'#20 splpty'/'#21 splptz')
    127212538000 FORMAT (A/                                                                &
    12731254             '  step    time    # of parts     lPE sent/recv  rPE sent/recv  ',&
Note: See TracChangeset for help on using the changeset viewer.