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

Timestamp:

Oct 29, 2013 10:11:53 AM (10 years ago)

Author:

heinze

Message:

routines for nudging and large scale forcing from external file added

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
@@ -285 +286 @@
              ENDIF
 
+!
+!--          Nudging
+             IF ( nudging )  CALL nudge( i, j, simulated_time, 'u' ) 
+
              CALL user_actions( i, j, 'u-tendency' )
 !
@@ -340 +345 @@
              ENDIF
 
+!
+!--          Nudging
+             IF ( nudging )  CALL nudge( i, j, simulated_time, 'v' ) 
+
              CALL user_actions( i, j, 'v-tendency' )
 !
@@ -471 +480 @@
                 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' )
@@ -594 +607 @@
                 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' )
@@ -847 +864 @@
     ENDIF
 
+!
+!-- Nudging
+    IF ( nudging )  CALL nudge( simulated_time, 'u' ) 
+
     CALL user_actions( 'u-tendency' )
 
@@ -919 +940 @@
     ENDIF
 
+!
+!-- Nudging
+    IF ( nudging )  CALL nudge( simulated_time, 'v' ) 
+
     CALL user_actions( 'v-tendency' )
 
@@ -1092 +1117 @@
           CALL subsidence( tend, pt, pt_init )
        ENDIF
+
+!
+!--    Nudging
+       IF ( nudging )  CALL nudge( simulated_time, 'pt' ) 
 
        CALL user_actions( 'pt-tendency' )
@@ -1278 +1307 @@
          CALL subsidence( tend, q, q_init )
        ENDIF
+
+!
+!--    Nudging
+       IF ( nudging )  CALL nudge( simulated_time, 'q' ) 
 
        CALL user_actions( 'q-tendency' )