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/close_file.f90

    r3045 r3241  
    2525! -----------------
    2626! $Id$
     27! unused variables and format statements removed
     28!
     29! 3045 2018-05-28 07:55:41Z Giersch
    2730! z_max_do2d removed and output case 108 disabled
    2831!
     
    9194
    9295    USE control_parameters,                                                    &
    93         ONLY:  max_masks, mid, nz_do3d, openfile, run_description_header
     96        ONLY:  max_masks, mid, openfile
    9497               
    95     USE grid_variables,                                                        &
    96         ONLY:  dy
    97        
    98     USE indices,                                                               &
    99         ONLY:  nx, ny, nz
    100        
    10198    USE kinds
    10299   
     
    106103
    107104    USE netcdf_interface,                                                      &
    108         ONLY:  id_set_mask, id_set_pr, id_set_prt, id_set_pts, id_set_sp,      &
     105        ONLY:  id_set_mask, id_set_pr, id_set_pts, id_set_sp,                  &
    109106               id_set_ts, id_set_xy, id_set_xz, id_set_yz, id_set_3d,          &
    110107               id_set_fl, nc_stat, netcdf_data_format, netcdf_handle_error
     
    127124    LOGICAL ::  datleg = .TRUE.   !<
    128125    LOGICAL ::  dbp = .FALSE.     !<
    129 
    130     REAL(wp) ::  sizex            !<
    131     REAL(wp) ::  sizey            !<
    132     REAL(wp) ::  yright           !<
    133126
    134127    NAMELIST /GLOBAL/  checkuf, datform, dimx, dimy, dbp, planz,               &
     
    282275    ENDDO
    283276
    284 !
    285 !-- Formats
    286 3200 FORMAT ('# AVS',A,'field file'/                                           &
    287              '#'/                                                              &
    288              '# ',A/                                                           &
    289              'ndim=3'/                                                         &
    290              'dim1=',I5/                                                       &
    291              'dim2=',I5/                                                       &
    292              'dim3=',I5/                                                       &
    293              'nspace=3'/                                                       &
    294              'veclen=',I5/                                                     &
    295              'data=xdr_float'/                                                 &
    296              'field=rectilinear')
    297 4000 FORMAT ('time averaged over',F7.1,' s')
    298 
    299 
    300277 END SUBROUTINE close_file
Note: See TracChangeset for help on using the changeset viewer.