Ignore:
Timestamp:
Oct 3, 2018 2:39:40 AM (3 years ago)
Author:
raasch
Message:

Craik-Leibovich force and wave breaking effects added to ocean mode, header output for ocean mode

File:
1 edited

Legend:

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

    r3294 r3302  
    2525! -----------------
    2626! $Id$
     27! small message change
     28!
     29! 3294 2018-10-01 02:37:10Z raasch
    2730! ocean renamed ocean_mode
    2831!
     
    151154
    152155       IF ( ocean_mode )  THEN
    153           message_string = 'Applying large scale vertical motion is not ' //   &
     156          message_string = 'applying large scale vertical motion is not ' //   &
    154157                           'allowed for ocean mode'
    155158          CALL message( 'init_w_subsidence', 'PA0324', 2, 2, 0, 6, 0 )
Note: See TracChangeset for help on using the changeset viewer.