Ignore:
Timestamp:
Feb 25, 2019 3:31:42 PM (2 years ago)
Author:
raasch
Message:

unused variables removed, OpenACC directives re-formatted, statements added to avoid compiler warnings

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/surface_mod.f90

    r3745 r3761  
    2626! -----------------
    2727! $Id$
     28! OpenACC directives added to avoid compiler warnings about unused variables,
     29! unused variable removed
     30!
     31! 3745 2019-02-15 18:57:56Z suehring
    2832! +waste_heat
    2933!
     
    617621    END INTERFACE init_surface_arrays
    618622
    619     INTERFACE enter_surface_arrays
    620        MODULE PROCEDURE enter_surface_arrays
    621     END INTERFACE
    622 
    623     INTERFACE exit_surface_arrays
    624        MODULE PROCEDURE exit_surface_arrays
    625     END INTERFACE
    626 
    627623    INTERFACE surface_rrd_local
    628624       MODULE PROCEDURE surface_rrd_local
     
    642638    END INTERFACE surface_restore_elements
    643639
     640#if defined( _OPENACC )
     641    INTERFACE enter_surface_arrays
     642       MODULE PROCEDURE enter_surface_arrays
     643    END INTERFACE
     644
     645    INTERFACE exit_surface_arrays
     646       MODULE PROCEDURE exit_surface_arrays
     647    END INTERFACE
     648#endif
     649
    644650!
    645651!-- Public variables
    646     PUBLIC bc_h, ind_pav_green, ind_veg_wall, ind_wat_win, ns_h_on_file,       &
    647            ns_v_on_file, surf_def_h, surf_def_v, surf_lsm_h, surf_lsm_v,       &
    648            surf_usm_h, surf_usm_v, surf_type, vertical_surfaces_exist,         &
    649            surf_bulk_cloud_model, surf_microphysics_morrison, surf_microphysics_seifert
     652    PUBLIC bc_h, ind_pav_green, ind_veg_wall, ind_wat_win, ns_h_on_file, ns_v_on_file, surf_def_h, &
     653           surf_def_v, surf_lsm_h, surf_lsm_v, surf_usm_h, surf_usm_v, surf_type,                  &
     654           vertical_surfaces_exist, surf_bulk_cloud_model, surf_microphysics_morrison,             &
     655           surf_microphysics_seifert
    650656!
    651657!-- Public subroutines and functions
    652     PUBLIC get_topography_top_index, get_topography_top_index_ji, init_bc,     &
    653            init_surfaces, init_surface_arrays, enter_surface_arrays,           &
    654            exit_surface_arrays, surface_rrd_local, surface_restore_elements,   &
    655            surface_wrd_local, surface_last_actions
    656 
     658    PUBLIC get_topography_top_index, get_topography_top_index_ji, init_bc, init_surfaces,          &
     659           init_surface_arrays, surface_rrd_local, surface_restore_elements, surface_wrd_local,    &
     660           surface_last_actions
     661
     662#if defined( _OPENACC )
     663    PUBLIC enter_surface_arrays, exit_surface_arrays
     664#endif
    657665
    658666 CONTAINS
     
    11091117!> Enter horizontal and vertical surfaces.
    11101118!------------------------------------------------------------------------------!
     1119#if defined( _OPENACC )
    11111120    SUBROUTINE enter_surface_arrays
    11121121
     
    11461155
    11471156    END SUBROUTINE enter_surface_arrays
    1148 
     1157#endif
    11491158
    11501159!------------------------------------------------------------------------------!
     
    11531162!> Exit horizontal and vertical surfaces.
    11541163!------------------------------------------------------------------------------!
     1164#if defined( _OPENACC )
    11551165    SUBROUTINE exit_surface_arrays
    11561166
     
    11901200
    11911201    END SUBROUTINE exit_surface_arrays
    1192 
     1202#endif
    11931203
    11941204!------------------------------------------------------------------------------!
     
    14371447!> except for top fluxes.
    14381448!------------------------------------------------------------------------------!
     1449#if defined( _OPENACC )
    14391450    SUBROUTINE exit_surface_attributes_h( surfaces )
    14401451
     
    14701481   
    14711482    END SUBROUTINE exit_surface_attributes_h
    1472 
     1483#endif
    14731484
    14741485!------------------------------------------------------------------------------!
     
    14781489!> except for top fluxes.
    14791490!------------------------------------------------------------------------------!
     1491#if defined( _OPENACC )
    14801492    SUBROUTINE enter_surface_attributes_h( surfaces )
    14811493
     
    15111523
    15121524    END SUBROUTINE enter_surface_attributes_h
    1513 
     1525#endif
    15141526
    15151527!------------------------------------------------------------------------------!
     
    16551667!> Exit memory for model-top fluxes.
    16561668!------------------------------------------------------------------------------!
     1669#if defined( _OPENACC )
    16571670    SUBROUTINE exit_surface_attributes_h_top( surfaces )
    16581671
     
    16781691   
    16791692    END SUBROUTINE exit_surface_attributes_h_top
    1680 
     1693#endif
    16811694
    16821695!------------------------------------------------------------------------------!
     
    16851698!> Enter memory for model-top fluxes.
    16861699!------------------------------------------------------------------------------!
     1700#if defined( _OPENACC )
    16871701    SUBROUTINE enter_surface_attributes_h_top( surfaces )
    16881702
     
    17081722
    17091723    END SUBROUTINE enter_surface_attributes_h_top
    1710 
     1724#endif
    17111725
    17121726!------------------------------------------------------------------------------!
     
    19581972!> Exit memory for vertical surface types.
    19591973!------------------------------------------------------------------------------!
     1974#if defined( _OPENACC )
    19601975    SUBROUTINE exit_surface_attributes_v( surfaces )
    19611976
     
    19821997
    19831998    END SUBROUTINE exit_surface_attributes_v
    1984 
     1999#endif
    19852000
    19862001!------------------------------------------------------------------------------!
     
    19892004!> Enter memory for vertical surface types.
    19902005!------------------------------------------------------------------------------!
     2006#if defined( _OPENACC )
    19912007    SUBROUTINE enter_surface_attributes_v( surfaces )
    19922008   
     
    20132029   
    20142030    END SUBROUTINE enter_surface_attributes_v
    2015 
     2031#endif
    20162032
    20172033!------------------------------------------------------------------------------!
     
    27732789             INTEGER(iwp)  ::  j               !< running index x-direction
    27742790             INTEGER(iwp)  ::  k               !< running index x-direction
    2775              INTEGER(iwp)  ::  l               !< index variable for the surface type, indicating the facing
    27762791             INTEGER(iwp)  ::  num_v           !< current number of surface element
    27772792             INTEGER(iwp)  ::  num_v_kji       !< current number of surface element at (j,i)
Note: See TracChangeset for help on using the changeset viewer.