Home


About us
PALM
PALM-4U
Installation
Release notes
Documentation
Getting Help
Gallery
Developers area

Ignore:
Timestamp:
Feb 27, 2019 2:35:58 PM (5 years ago)
Author:
raasch
Message:

variables commented out + statement added to avoid compiler warnings about unused variables

File:
1 edited

Legend:

Unmodified
Added
Removed

  • palm/trunk/SOURCE/exchange_horiz_2d.f90

    r3761 r3768  
    2525! -----------------
    2626! $Id$
     27! further variables moved to serial branch to avoid compiler warnings about unused variables
     28!
     29! 3761 2019-02-25 15:31:42Z raasch
    2730! variables moved to serial branch to avoid compiler warnings about unused variables
    2831!
    … …  
    235238
    236239    USE control_parameters,                                                    &
    237         ONLY:  bc_dirichlet_l, bc_dirichlet_n, bc_dirichlet_r,                 &
    238                bc_dirichlet_s, bc_radiation_l, bc_radiation_n, bc_radiation_r, &
    239                bc_radiation_s, bc_lr_cyc, bc_ns_cyc, bc_radiation_l,           &
    240                bc_radiation_n, bc_radiation_r, bc_radiation_s
     240        ONLY:  bc_dirichlet_l, bc_dirichlet_n, bc_dirichlet_r, bc_dirichlet_s, &
     241               bc_radiation_l, bc_radiation_n, bc_radiation_r, bc_radiation_s, &
     242               bc_radiation_l, bc_radiation_n, bc_radiation_r, bc_radiation_s
    241243       
    242244    USE cpulog,                                                                &
    … …  
    247249    USE pegrid
    248250
     251#if ! defined( __parallel )
     252    USE control_parameters,                                                    &
     253        ONLY:  bc_lr_cyc, bc_ns_cyc
     254#endif
     255
    249256    IMPLICIT NONE
    250257
    … …  
    371378
    372379    USE control_parameters,                                                    &
    373         ONLY:  bc_dirichlet_l, bc_dirichlet_n, bc_dirichlet_r,                 &
    374                bc_dirichlet_s, bc_radiation_l, bc_radiation_n, bc_radiation_r, &
    375                bc_radiation_s, bc_lr_cyc, bc_ns_cyc, bc_radiation_l,          &
    376                bc_radiation_n, bc_radiation_r, bc_radiation_s, grid_level
     380        ONLY:  bc_dirichlet_l, bc_dirichlet_n, bc_dirichlet_r, bc_dirichlet_s, &
     381               bc_radiation_l, bc_radiation_n, bc_radiation_r, bc_radiation_s, &
     382               bc_radiation_l, bc_radiation_n, bc_radiation_r, bc_radiation_s, &
     383               grid_level
    377384       
    378385    USE cpulog,                                                                &
    … …  
    383390    USE pegrid
    384391
     392#if ! defined( __parallel )
     393    USE control_parameters,                                                    &
     394        ONLY:  bc_lr_cyc, bc_ns_cyc
     395#endif
     396
    385397    IMPLICIT NONE
    386398
Note: See TracChangeset for help on using the changeset viewer.
                                                                                                                                                                                                                                                                                                                                                                               
  | Impressum | ©Leibniz Universität Hannover |