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/init_grid.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!
     
    359362               dz_stretch_level_start, ibc_uv_b, message_string,               &
    360363               momentum_advec, number_stretch_level_end,                       &
    361                number_stretch_level_start,ocean, psolver, scalar_advec,        &
     364               number_stretch_level_start, ocean_mode, psolver, scalar_advec,  &
    362365               topography, use_surface_fluxes
    363366         
     
    509512!
    510513!-- Define the vertical grid levels
    511     IF ( .NOT. ocean )  THEN
     514    IF ( .NOT. ocean_mode )  THEN
    512515   
    513516!
     
    12931296
    12941297    USE control_parameters,                                                    &
    1295         ONLY:  bc_lr_cyc, bc_ns_cyc, message_string, ocean
     1298        ONLY:  bc_lr_cyc, bc_ns_cyc, message_string, ocean_mode
    12961299
    12971300    USE indices,                                                               &
     
    13861389!-- In order to map topography on PALM grid also in case of ocean simulations,
    13871390!-- pre-calculate an offset value.
    1388     ocean_offset = MERGE( zw(0), 0.0_wp, ocean )
     1391    ocean_offset = MERGE( zw(0), 0.0_wp, ocean_mode )
    13891392!
    13901393!-- Reference buildings on top of orography. This is not necessary
     
    16381641!-- Topography input via ASCII format.
    16391642    ELSE
    1640        ocean_offset     = MERGE( zw(0), 0.0_wp, ocean )
     1643       ocean_offset     = MERGE( zw(0), 0.0_wp, ocean_mode )
    16411644       topo_3d          = IBSET( topo_3d, 0 )
    16421645       topo_3d(nzb,:,:) = IBCLR( topo_3d(nzb,:,:), 0 )
Note: See TracChangeset for help on using the changeset viewer.