Changeset 3302 for palm/trunk/SOURCE/subsidence_mod.f90

Timestamp:

Oct 3, 2018 2:39:40 AM (6 years ago)

Author:

raasch

Message:

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

File:

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

palm/trunk/SOURCE/subsidence_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! small message change
+! 
+! 3294 2018-10-01 02:37:10Z raasch
 ! ocean renamed ocean_mode
 ! 
@@ -151 +154 @@
 
        IF ( ocean_mode )  THEN
-          message_string = 'Applying large scale vertical motion is not ' //   &
+          message_string = 'applying large scale vertical motion is not ' //   &
                            'allowed for ocean mode'
           CALL message( 'init_w_subsidence', 'PA0324', 2, 2, 0, 6, 0 )