Changes between Version 14 and Version 15 of doc/app/userint/subd


Ignore:
Timestamp:
Jan 3, 2011 12:38:45 PM (14 years ago)
Author:
suehring
Comment:

--

Legend:

Unmodified
Added
Removed
Modified
  • doc/app/userint/subd

    v14 v15  
    55The exact definition of these domains has to be made by the user within the user-defined routine [../int#user_init user_init]. The domains are defined with a mask array named {{{rmask}}}, which has to be given the value ''1.0'' for all horizontal grid points belonging to the user-defined domain and the value ''0.0'', where grid points do not belong to the user-defined domain. In the model {{{rmask}}} is declared as:
    66{{{
    7 REAL :: rmask(nysd:nynd,nxld:nxrd,0:9) .
     7REAL :: rmask(nysg:nyng,nxlg:nxrg,0:9) .
    88}}}
    99The first two indices denote the array bounds (including the ghost points) in y and x-direction for each domain (see the corresponding description of [../../parallel#parallelization Parallelization]; don't confuse this with the user-defined domain!). The third index determines the user-defined domain, where 0 indicates the total model domain and ''1'' to ''9'' the user-defined domains.\\\\
     
    1919disc_center_y = dy * (ny + 1)/2
    2020disc_radius = 0.5 * disc_center_x
    21 DO  i = nxld, nxrd
     21DO  i = nxlg, nxrg
    2222   x = i * dx
    23    DO  j = nysd, nynd
     23   DO  j = nysg, nyng
    2424      y = j * dy
    2525      radial_distance = SQRT( ( x - disc_center_x )**2 + &