Ignore:
Timestamp:
Oct 24, 2018 6:39:32 PM (3 years ago)
Author:
gronemeier
Message:

new surface-data output; renamed output variables (pt to theta, rho_air to rho, rho_ocean to rho_sea_water)

File:
1 edited

Legend:

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

    r3404 r3421  
    2525! -----------------
    2626! $Id$
     27! Initialize surface data output
     28!
     29! 3415 2018-10-24 11:57:50Z suehring
    2730! Set bottom boundary condition for geostrophic wind components in inifor
    2831! initialization
     
    625628        ONLY :  init_surface_arrays, init_surfaces, surf_def_h, surf_lsm_h,    &
    626629                surf_usm_h, get_topography_top_index_ji, vertical_surfaces_exist
     630               
     631    USE surface_output_mod,                                                    &
     632        ONLY:  surface_output_init
    627633   
    628634    USE transpose_indices
     
    24002406       CALL gust_init( dots_label, dots_unit, dots_num, dots_max )
    24012407    ENDIF
     2408!
     2409!-- Initialize surface data output
     2410    IF ( surface_data_output )  THEN
     2411       CALL surface_output_init
     2412    ENDIF
    24022413
    24032414!
Note: See TracChangeset for help on using the changeset viewer.