Ignore:
Timestamp:
Oct 1, 2018 2:37:10 AM (3 years ago)
Author:
raasch
Message:

modularization of the ocean code

File:
1 edited

Legend:

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

    r3045 r3294  
    2525! -----------------
    2626! $Id$
     27! ocean renamed ocean_mode
     28!
     29! 3045 2018-05-28 07:55:41Z Giersch
    2730! Error message revised
    2831!
     
    126129
    127130       USE control_parameters,                                                 &
    128            ONLY:  message_string, ocean, subs_vertical_gradient,               &
     131           ONLY:  message_string, ocean_mode, subs_vertical_gradient,          &
    129132                  subs_vertical_gradient_level, subs_vertical_gradient_level_i
    130133
     
    147150       ENDIF
    148151
    149        IF ( ocean )  THEN
     152       IF ( ocean_mode )  THEN
    150153          message_string = 'Applying large scale vertical motion is not ' //   &
    151                            'allowed for ocean runs'
     154                           'allowed for ocean mode'
    152155          CALL message( 'init_w_subsidence', 'PA0324', 2, 2, 0, 6, 0 )
    153156       ENDIF
Note: See TracChangeset for help on using the changeset viewer.