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

Timestamp:

Oct 1, 2018 2:37:10 AM (6 years ago)

Author:

raasch

Message:

modularization of the ocean code

File:

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

palm/trunk/SOURCE/subsidence_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! ocean renamed ocean_mode
+! 
+! 3045 2018-05-28 07:55:41Z Giersch
 ! Error message revised
 ! 
@@ -126 +129 @@
 
        USE control_parameters,                                                 &
-           ONLY:  message_string, ocean, subs_vertical_gradient,               &
+           ONLY:  message_string, ocean_mode, subs_vertical_gradient,          &
                   subs_vertical_gradient_level, subs_vertical_gradient_level_i
 
@@ -147 +150 @@
        ENDIF 
 
-       IF ( ocean )  THEN
+       IF ( ocean_mode )  THEN
           message_string = 'Applying large scale vertical motion is not ' //   &
-                           'allowed for ocean runs'
+                           'allowed for ocean mode'
           CALL message( 'init_w_subsidence', 'PA0324', 2, 2, 0, 6, 0 )
        ENDIF