Changeset 3035 for palm/trunk/SOURCE/init_3d_model.f90

Timestamp:

May 24, 2018 9:35:20 AM (6 years ago)

Author:

schwenkel

Message:

Add option to initialize warm air bubble close to surface

File:

• palm/trunk/SOURCE/init_3d_model.f90 (modified) (2 diffs)

palm/trunk/SOURCE/init_3d_model.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Add option to initialize warm air bubble close to surface
+! 
+! 3014 2018-05-09 08:42:38Z maronga
 ! Bugfix: initialization of ts_value missing
 ! 
@@ -1586 +1589 @@
 
 !
-!--    Impose temperature anomaly (advection test only)
-       IF ( INDEX( initializing_actions, 'initialize_ptanom' ) /= 0 )  THEN
+!--    Impose temperature anomaly (advection test only) or warm air bubble 
+!--    close to surface
+       IF ( INDEX( initializing_actions, 'initialize_ptanom' ) /= 0  .OR.  &
+            INDEX( initializing_actions, 'initialize_bubble' ) /= 0  )  THEN
           CALL init_pt_anomaly
        ENDIF
-
+       
 !
 !--    If required, change the surface temperature at the start of the 3D run