Changeset 3241 for palm/trunk/SOURCE/data_output_2d.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/data_output_2d.f90 (modified) (8 diffs)

palm/trunk/SOURCE/data_output_2d.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! unused variables removed
+! 
+! 3176 2018-07-26 17:12:48Z suehring
 ! Remove output of latent heat flux at urban-surfaces and set fill values 
 ! instead 
@@ -232 +235 @@
     USE arrays_3d,                                                             &
         ONLY:  dzw, e, heatflux_output_conversion, nc, nr, p, pt,              &
-               precipitation_amount, prr, q, qc, ql, ql_c, ql_v, ql_vp, qr,    &
+               precipitation_amount, prr, q, qc, ql, ql_c, ql_v, qr,           &
                rho_ocean, s, sa, tend, u, v, vpt, w, zu, zw,                   &
                waterflux_output_conversion
@@ -249 +252 @@
                ibc_uv_b, io_blocks, io_group, land_surface, message_string,    &
                ntdim_2d_xy, ntdim_2d_xz, ntdim_2d_yz,                          &
-               psolver, section, simulated_time, simulated_time_chr,           &
+               psolver, section, simulated_time,                               &
                time_since_reference_point, uv_exposure
         
@@ -255 +258 @@
         ONLY:  cpu_log, log_point 
         
-    USE grid_variables,                                                        &
-        ONLY:  dx, dy
-
     USE gust_mod,                                                              &
         ONLY:  gust_data_output_2d, gust_module_enabled
         
     USE indices,                                                               &
-        ONLY:  nbgp, nx, nxl, nxlg, nxr, nxrg, ny, nyn, nyng, nys, nysg, nz,   &
+        ONLY:  nbgp, nx, nxl, nxlg, nxr, nxrg, ny, nyn, nyng, nys, nysg,       &
                nzb, nzt, wall_flags_0
                
@@ -304 +304 @@
     CHARACTER (LEN=2)  ::  mode         !< 
     CHARACTER (LEN=4)  ::  grid         !< 
-    CHARACTER (LEN=25) ::  section_chr  !< 
     CHARACTER (LEN=50) ::  rtext        !< 
     
@@ -325 +324 @@
     INTEGER(iwp) ::  nzb_do    !< lower limit of the data field (usually nzb)
     INTEGER(iwp) ::  nzt_do    !< upper limit of the data field (usually nzt+1)
-    INTEGER(iwp) ::  psi       !< 
     INTEGER(iwp) ::  s_ind     !< 
     INTEGER(iwp) ::  sender    !< 
@@ -1399 +1397 @@
                 IF ( .NOT. found )  THEN
                    CALL tcm_data_output_2d( av, do2d(av,if), found, grid, mode,&
-                                             local_pf, two_d, nzb_do, nzt_do )
+                                             local_pf, nzb_do, nzt_do )
                 ENDIF
 
@@ -1420 +1418 @@
 !--             UV exposure model quantity
                 IF ( uv_exposure )  THEN
-                   CALL uvem_data_output_2d( av, do2d(av,if), found, grid, mode,&
+                   CALL uvem_data_output_2d( av, do2d(av,if), found, grid,     &
                                              local_pf, two_d, nzb_do, nzt_do )
                 ENDIF