Changeset 1240 for palm/trunk/SOURCE/prognostic_equations.f90

Timestamp:

Oct 29, 2013 1:21:31 PM (10 years ago)

Author:

heinze

Message:

Undoing commit 1239

File:

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

palm/trunk/SOURCE/prognostic_equations.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-! usage of nudging enabled (not for accelerator version so far)
+!
 !
 ! Former revisions:
@@ -182 +182 @@
     USE impact_of_latent_heat_mod
     USE microphysics_mod
-    USE nudge_mod
     USE plant_canopy_model_mod
     USE production_e_mod
@@ -286 +285 @@
              ENDIF
 
-!
-!--          Nudging
-             IF ( nudging )  CALL nudge( i, j, simulated_time, 'u' ) 
-
              CALL user_actions( i, j, 'u-tendency' )
 !
@@ -345 +340 @@
              ENDIF
 
-!
-!--          Nudging
-             IF ( nudging )  CALL nudge( i, j, simulated_time, 'v' ) 
-
              CALL user_actions( i, j, 'v-tendency' )
 !
@@ -480 +471 @@
                 CALL subsidence( i, j, tend, pt, pt_init )
              ENDIF
-
-!
-!--          Nudging
-             IF ( nudging )  CALL nudge( i, j, simulated_time, 'pt' ) 
 
              CALL user_actions( i, j, 'pt-tendency' )
@@ -607 +594 @@
                 CALL subsidence( i, j, tend, q, q_init )
              ENDIF
-
-!
-!--          Nudging
-             IF ( nudging )  CALL nudge( i, j, simulated_time, 'q' ) 
 
              CALL user_actions( i, j, 'q-tendency' )
@@ -864 +847 @@
     ENDIF
 
-!
-!-- Nudging
-    IF ( nudging )  CALL nudge( simulated_time, 'u' ) 
-
     CALL user_actions( 'u-tendency' )
 
@@ -940 +919 @@
     ENDIF
 
-!
-!-- Nudging
-    IF ( nudging )  CALL nudge( simulated_time, 'v' ) 
-
     CALL user_actions( 'v-tendency' )
 
@@ -1117 +1092 @@
           CALL subsidence( tend, pt, pt_init )
        ENDIF
-
-!
-!--    Nudging
-       IF ( nudging )  CALL nudge( simulated_time, 'pt' ) 
 
        CALL user_actions( 'pt-tendency' )
@@ -1307 +1278 @@
          CALL subsidence( tend, q, q_init )
        ENDIF
-
-!
-!--    Nudging
-       IF ( nudging )  CALL nudge( simulated_time, 'q' ) 
 
        CALL user_actions( 'q-tendency' )