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

Timestamp:

May 28, 2018 7:55:41 AM (6 years ago)

Author:

Giersch

Message:

Code adjusted according to coding standards, renamed namelists, error messages revised until PA0347, output CASE 108 disabled

File:

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

palm/trunk/SOURCE/subsidence_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Error message revised
+! 
+! 2718 2018-01-02 08:49:38Z maronga
 ! Corrected "Former revisions" section
 ! 
@@ -145 +148 @@
 
        IF ( ocean )  THEN
-          message_string = 'Applying large scale vertical motion is not ' // &
+          message_string = 'Applying large scale vertical motion is not ' //   &
                            'allowed for ocean runs'
           CALL message( 'init_w_subsidence', 'PA0324', 2, 2, 0, 6, 0 )