Ignore:
Timestamp:
Jun 12, 2018 7:03:02 AM (3 years ago)
Author:
Giersch
Message:

New vertical stretching procedure has been introduced

File:
1 edited

Legend:

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

    r2718 r3065  
    2525! -----------------
    2626! $Id$
     27! dz was replaced by dz(1)
     28!
     29! 2718 2018-01-02 08:49:38Z maronga
    2730! Corrected "Former revisions" section
    2831!
     
    108111!--       topography, bit is 1 for atmospheric grid point.
    109112!--       The following example shows how to prescribe sine-like topography
    110 !--       along x-direction with amplitude of 10 * dz and wavelength 10 * dy.
     113!--       along x-direction with amplitude of 10 * dz(1) and wavelength 10 * dy.
    111114!           DO  i = nxlg, nxrg
    112 !              h_topo = 10.0_wp * dz * (SIN(3.14_wp*0.5_wp)*i*dx / ( 5.0_wp * dy ) )**2
     115!              h_topo = 10.0_wp * dz(1) * (SIN(3.14_wp*0.5_wp)*i*dx / ( 5.0_wp * dy ) )**2
    113116!
    114117!              k_topo = MINLOC( ABS( zw - h_topo ), 1 ) - 1
Note: See TracChangeset for help on using the changeset viewer.