Changeset 3294 for palm/trunk/SOURCE/large_scale_forcing_nudging_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/large_scale_forcing_nudging_mod.f90 (modified) (3 diffs)

palm/trunk/SOURCE/large_scale_forcing_nudging_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! ocean renamed ocean_mode
+! 
+! 3241 2018-09-12 15:02:00Z raasch
 ! unused variables removed
 ! 
@@ -92 +95 @@
                large_scale_forcing, large_scale_subsidence, lsf_surf, lsf_vert,&
                lsf_exception, message_string, nesting_offline, neutral,        &
-               nudging, passive_scalar, pt_surface, ocean, q_surface,          &
+               nudging, passive_scalar, pt_surface, ocean_mode, q_surface,     &
                surface_heatflux, surface_pressure, surface_waterflux,          &
                topography, use_subsidence_tendencies
@@ -696 +699 @@
        ENDIF
 
-       IF ( large_scale_forcing  .AND.  ocean )  THEN
+       IF ( large_scale_forcing  .AND.  ocean_mode )  THEN
           message_string = 'The usage of large scale forcing from external &'//&
-                        'file LSF_DATA is not implemented for ocean runs'
+                        'file LSF_DATA is not implemented for ocean mode'
           CALL message( 'check_parameters', 'PA0378', 1, 2, 0, 6, 0 )
        ENDIF