Changeset 2277 for palm/trunk/SOURCE/nudging_mod.f90

Timestamp:

Jun 12, 2017 10:47:51 AM (7 years ago)

Author:

kanani

Message:

code documentation and cleanup

File:

• palm/trunk/SOURCE/nudging_mod.f90 (modified) (3 diffs)

palm/trunk/SOURCE/nudging_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Removed unused variables lptnudge, lqnudge, lunudge, lvnudge, lwnudge
+! 
+! 2271 2017-06-09 12:34:55Z sward
 ! Error message changed
 ! 
@@ -130 +133 @@
 
        USE control_parameters,                                                 &
-           ONLY:  dt_3d, lptnudge, lqnudge, lunudge, lvnudge, lwnudge,         &
-                   message_string, ntnudge
+           ONLY:  dt_3d, message_string, ntnudge
 
        USE indices,                                                            &
@@ -266 +268 @@
        CLOSE ( finput )
 
-!
-!--    Prevent nudging if nudging profiles exhibt too small values
-!--    not used so far
-       lptnudge  = ANY( ABS( ptnudge ) > 1.0e-8_wp )
-       lqnudge   = ANY( ABS( qnudge )  > 1.0e-8_wp )
-       lunudge   = ANY( ABS( unudge )  > 1.0e-8_wp )
-       lvnudge   = ANY( ABS( vnudge )  > 1.0e-8_wp )
-       lwnudge   = ANY( ABS( wnudge )  > 1.0e-8_wp )
 
     END SUBROUTINE init_nudge