Changeset 1246 for palm

Timestamp:

Nov 1, 2013 8:59:45 AM (11 years ago)

Author:

heinze

Message:

enable nudging also for accelerator version

File:

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

palm/trunk/SOURCE/prognostic_equations.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-! 
+! enable nudging also for accelerator version
 !
 ! Former revisions:
@@ -1524 +1524 @@
     ENDIF
 
+!
+!-- Nudging
+    IF ( nudging )  CALL nudge( simulated_time, 'u' ) 
+
     CALL user_actions( 'u-tendency' )
 
@@ -1585 +1589 @@
        ENDDO
     ENDIF
+
+!
+!-- Nudging
+    IF ( nudging )  CALL nudge( simulated_time, 'v' ) 
 
     CALL user_actions( 'v-tendency' )
@@ -1741 +1749 @@
        ENDIF
 
+!
+!--    Nudging
+       IF ( nudging )  CALL nudge( simulated_time, 'pt' ) 
+
        CALL user_actions( 'pt-tendency' )
 
@@ -1899 +1911 @@
          CALL subsidence( tend, q, q_init )
        ENDIF
+
+!
+!--    Nudging
+       IF ( nudging )  CALL nudge( simulated_time, 'q' ) 
 
        CALL user_actions( 'q-tendency' )