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/large_scale_forcing_nudging_mod.f90

    r3241 r3294  
    2525! -----------------
    2626! $Id$
     27! ocean renamed ocean_mode
     28!
     29! 3241 2018-09-12 15:02:00Z raasch
    2730! unused variables removed
    2831!
     
    9295               large_scale_forcing, large_scale_subsidence, lsf_surf, lsf_vert,&
    9396               lsf_exception, message_string, nesting_offline, neutral,        &
    94                nudging, passive_scalar, pt_surface, ocean, q_surface,          &
     97               nudging, passive_scalar, pt_surface, ocean_mode, q_surface,     &
    9598               surface_heatflux, surface_pressure, surface_waterflux,          &
    9699               topography, use_subsidence_tendencies
     
    696699       ENDIF
    697700
    698        IF ( large_scale_forcing  .AND.  ocean )  THEN
     701       IF ( large_scale_forcing  .AND.  ocean_mode )  THEN
    699702          message_string = 'The usage of large scale forcing from external &'//&
    700                         'file LSF_DATA is not implemented for ocean runs'
     703                        'file LSF_DATA is not implemented for ocean mode'
    701704          CALL message( 'check_parameters', 'PA0378', 1, 2, 0, 6, 0 )
    702705       ENDIF
Note: See TracChangeset for help on using the changeset viewer.