Changeset 3828 for palm/trunk/SOURCE

Timestamp:

Mar 27, 2019 7:36:23 PM (6 years ago)

Author:

raasch

Message:

further gfortran warnings activated on testserver, unused variables removed

File:

• palm/trunk/SOURCE/flow_statistics.f90 (modified) (2 diffs)

palm/trunk/SOURCE/flow_statistics.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! unused variables removed
+! 
+! 3676 2019-01-16 15:07:05Z knoop
 ! Bugfix, terminate OMP Parallel block
 ! 
@@ -362 +365 @@
                rad_sw_in, rad_sw_out, rad_sw_cs_hr, rad_sw_hr
 
-#if defined ( __rrtmg )
-    USE radiation_model_mod,                                                   &
-        ONLY:  rrtm_aldif, rrtm_aldir, rrtm_asdif, rrtm_asdir
-#endif
-  
     USE statistics
 
-       USE surface_mod,                                                        &
-          ONLY :  surf_def_h, surf_lsm_h, surf_usm_h
+    USE surface_mod,                                                           &
+        ONLY :  surf_def_h, surf_lsm_h, surf_usm_h