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

Timestamp:

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

Author:

raasch

Message:

modularization of the ocean code

File:

• palm/trunk/SOURCE/init_grid.f90 (modified) (6 diffs)

palm/trunk/SOURCE/init_grid.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! ocean renamed ocean_mode
+! 
+! 3241 2018-09-12 15:02:00Z raasch
 ! unused variables removed
 ! 
@@ -359 +362 @@
                dz_stretch_level_start, ibc_uv_b, message_string,               &
                momentum_advec, number_stretch_level_end,                       &
-               number_stretch_level_start,ocean, psolver, scalar_advec,        &
+               number_stretch_level_start, ocean_mode, psolver, scalar_advec,  &
                topography, use_surface_fluxes
          
@@ -509 +512 @@
 !
 !-- Define the vertical grid levels
-    IF ( .NOT. ocean )  THEN
+    IF ( .NOT. ocean_mode )  THEN
     
 !
@@ -1293 +1296 @@
 
     USE control_parameters,                                                    &
-        ONLY:  bc_lr_cyc, bc_ns_cyc, message_string, ocean
+        ONLY:  bc_lr_cyc, bc_ns_cyc, message_string, ocean_mode
 
     USE indices,                                                               &
@@ -1386 +1389 @@
 !-- In order to map topography on PALM grid also in case of ocean simulations,
 !-- pre-calculate an offset value.
-    ocean_offset = MERGE( zw(0), 0.0_wp, ocean )
+    ocean_offset = MERGE( zw(0), 0.0_wp, ocean_mode )
 !
 !-- Reference buildings on top of orography. This is not necessary
@@ -1638 +1641 @@
 !-- Topography input via ASCII format. 
     ELSE
-       ocean_offset     = MERGE( zw(0), 0.0_wp, ocean )
+       ocean_offset     = MERGE( zw(0), 0.0_wp, ocean_mode )
        topo_3d          = IBSET( topo_3d, 0 )
        topo_3d(nzb,:,:) = IBCLR( topo_3d(nzb,:,:), 0 )