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

palm/trunk/SOURCE/coriolis.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! unused variables removed
+! 
+! 3183 2018-07-27 14:25:55Z suehring
 ! Remove masking of geostrophic wind forcing in offline nesting case
 ! 
@@ -112 +115 @@
            
        USE control_parameters,                                                 &
-           ONLY:  f, fs, message_string, nesting_offline
+           ONLY:  f, fs, message_string
            
        USE indices,                                                            &
@@ -211 +214 @@
            
        USE control_parameters,                                                 &
-           ONLY:  f, fs, message_string, nesting_offline
+           ONLY:  f, fs, message_string
            
        USE indices,                                                            &