Changeset 3241 for palm/trunk/SOURCE/check_open.f90

Timestamp:

Sep 12, 2018 3:02:00 PM (6 years ago)

Author:

raasch

Message:

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

File:

• palm/trunk/SOURCE/check_open.f90 (modified) (5 diffs)

palm/trunk/SOURCE/check_open.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! unused variables and format statements removed
+! 
+! 3159 2018-07-20 11:20:01Z sward
 ! Added multi agent system
 ! 
@@ -172 +175 @@
  
 
-    USE arrays_3d,                                                             &
-        ONLY:  zu
-
     USE control_parameters,                                                    &
         ONLY:  coupling_char, data_output_2d_on_each_pe,                       &
                max_masks, message_string, mid, nz_do3d, openfile,              &
-               run_description_header, runnr
-
-    USE grid_variables,                                                        &
-        ONLY:  dx, dy
+               run_description_header
 
     USE indices,                                                               &
-        ONLY:  nbgp, nx, nxl, nxr, ny, nyn, nyng, nys, nysg, nz, nzb, nzt 
+        ONLY:  nbgp, nx, nxl, nxr, ny, nyn, nys, nz, nzb, nzt
 
     USE kinds
@@ -193 +190 @@
 
     USE netcdf_interface,                                                      &
-        ONLY:  id_set_agt, id_set_fl, id_set_mask, id_set_pr, id_set_prt,      &
+        ONLY:  id_set_agt, id_set_fl, id_set_mask, id_set_pr,                  &
                id_set_pts, id_set_sp, id_set_ts, id_set_xy, id_set_xz,         &
                id_set_yz, id_set_3d, nc_stat, netcdf_create_file,              &
@@ -212 +209 @@
 
     CHARACTER (LEN=4)   ::  mask_char               !<
-    CHARACTER (LEN=2)   ::  suffix                  !<
     CHARACTER (LEN=30)  ::  filename                !<
     CHARACTER (LEN=80)  ::  rtext                   !<
-    CHARACTER (LEN=100) ::  line                    !<
 
     INTEGER(iwp) ::  av          !<
     INTEGER(iwp) ::  file_id     !<
-    INTEGER(iwp) ::  i           !<
     INTEGER(iwp) ::  ioerr       !< IOSTAT flag for IO-commands ( 0 = no error )
-    INTEGER(iwp) ::  j           !<
-    INTEGER(iwp) ::  k           !<
     
     LOGICAL ::  netcdf_extend    !<
@@ -1259 +1251 @@
 !
 !-- Formats
-3300 FORMAT ('#'/                                                              &
-             'coord 1  file=',A,'  filetype=unformatted'/                      &
-             'coord 2  file=',A,'  filetype=unformatted  skip=',I6/            &
-             'coord 3  file=',A,'  filetype=unformatted  skip=',I6/            &
-             '#')
-4000 FORMAT ('# ',A)
-5000 FORMAT ('# ',A/                                                           &
-             '#1 E'/'#2 E*'/'#3 dt'/'#4 u*'/'#5 th*'/'#6 umax'/'#7 vmax'/      &
-             '#8 wmax'/'#9 div_new'/'#10 div_old'/'#11 z_i_wpt'/'#12 z_i_pt'/  &
-             '#13 w*'/'#14 w''pt''0'/'#15 w''pt'''/'#16 wpt'/'#17 pt(0)'/      &
-             '#18 pt(zp)'/'#19 splptx'/'#20 splpty'/'#21 splptz')
 8000 FORMAT (A/                                                                &
              '  step    time    # of parts     lPE sent/recv  rPE sent/recv  ',&