Ignore:
Timestamp:
May 24, 2018 9:35:20 AM (4 years ago)
Author:
schwenkel
Message:

Add option to initialize warm air bubble close to surface

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/init_3d_model.f90

    r3014 r3035  
    2525! -----------------
    2626! $Id$
     27! Add option to initialize warm air bubble close to surface
     28!
     29! 3014 2018-05-09 08:42:38Z maronga
    2730! Bugfix: initialization of ts_value missing
    2831!
     
    15861589
    15871590!
    1588 !--    Impose temperature anomaly (advection test only)
    1589        IF ( INDEX( initializing_actions, 'initialize_ptanom' ) /= 0 )  THEN
     1591!--    Impose temperature anomaly (advection test only) or warm air bubble
     1592!--    close to surface
     1593       IF ( INDEX( initializing_actions, 'initialize_ptanom' ) /= 0  .OR.  &
     1594            INDEX( initializing_actions, 'initialize_bubble' ) /= 0  )  THEN
    15901595          CALL init_pt_anomaly
    15911596       ENDIF
    1592 
     1597       
    15931598!
    15941599!--    If required, change the surface temperature at the start of the 3D run
Note: See TracChangeset for help on using the changeset viewer.