Ignore:
Timestamp:
Jan 2, 2019 4:35:46 PM (5 years ago)
Author:
suehring
Message:

Rename surface_output_mod into surface_data_output_mod, same with all corresponding subroutines

File:
1 edited

Legend:

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

    r3636 r3648  
    1515! PALM. If not, see <http://www.gnu.org/licenses/>.
    1616!
    17 ! Copyright 1997-2018 Leibniz Universitaet Hannover
     17! Copyright 1997-2019 Leibniz Universitaet Hannover
    1818!------------------------------------------------------------------------------!
    1919!
     
    2525! -----------------
    2626! $Id$
     27! Rename subroutines for surface-data output
     28!
     29! 3636 2018-12-19 13:48:34Z raasch
    2730! nopointer option removed
    2831!
     
    687690                surf_usm_h, get_topography_top_index_ji, vertical_surfaces_exist
    688691   
    689     USE surface_output_mod,                                                    &
    690         ONLY:  surface_output_init
     692    USE surface_data_output_mod,                                               &
     693        ONLY:  surface_data_output_init
    691694   
    692695    USE transpose_indices
     
    24462449!
    24472450!-- Initialize surface data output
    2448     IF ( surface_data_output )  THEN
    2449        CALL surface_output_init
     2451    IF ( surface_output )  THEN
     2452       CALL surface_data_output_init
    24502453    ENDIF
    24512454!
Note: See TracChangeset for help on using the changeset viewer.