Changeset 212


Ignore:
Timestamp:
Nov 11, 2008 9:09:24 AM (16 years ago)
Author:
raasch
Message:

manual updated for changes in the user interface

Location:
palm/trunk
Files:
7 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/DOC/app/chapter_3.5.1.html

    r144 r212  
    1313the
    1414names and possible arguments of the subroutines involved as well as
    15 actions which can be accomplished in these subroutines. <br>
     15actions which can be accomplished in these subroutines. The respective
     16name of a source code files is the&nbsp;subroutine name followed by "<span style="font-family: Courier New,Courier,monospace;">.f90</span>". Exception: the file containing the module<span style="font-family: Courier New,Courier,monospace;"> user </span>has the name <span style="font-family: Courier New,Courier,monospace;">user_module.f90</span>.<br>
    1617&nbsp; </p>
    1718<table style="width: 100%;" border="1" cellpadding="2" cellspacing="4"> <col width="211"> <col width="117"> <col width="862"> <tbody> <tr><td width="211"> <p><font size="4"><b>Call
    1819location</b></font></p> </td> <td width="117"> <p><font size="4"><b>Subroutine
    1920name and
    20 argument</b></font></p> </td> <td style="width: 862px;"> <p><font size="4"><b>Possible
    21 actions</b></font></p> </td> </tr> <tr><td>---</td><td><span style="font-family: monospace;"><a name="user"></a>MODULE
    22 user</span></td><td>All
     21argument(s)</b></font></p> </td> <td style="width: 862px;"> <p><font size="4"><b>Possible
     22actions</b></font></p> </td> </tr> <tr><td style="vertical-align: top;">---</td><td style="vertical-align: top;"><span style="font-family: monospace;"><a name="user"></a>MODULE
     23user</span></td><td style="vertical-align: top;">All
    2324user-defined variables which are used outside the respective local
    2425scopes of the user-defined subroutines have to be declared here.</td></tr><tr valign="top"> <td width="211"> <p>End
     
    8182within the category &ldquo;initialisation&rdquo;.</p><p>See
    8283also <tt><font style="font-size: 10pt;" size="2"><font face="Cumberland, monospace"><a href="#user_init_3d_model">user_init_3d_model</a>.</font></font></tt></p>
    83 </td> </tr> <tr><td><tt><font style="font-size: 10pt;" size="2">DEFAULT</font></tt>
     84</td> </tr> <tr><td style="vertical-align: top;">End of <span style="font-family: Courier New,Courier,monospace;">read_3d_binary.f90</span></td><td style="vertical-align: top;"><tt><font style="font-size: 10pt;" size="2"><font face="Cumberland, monospace"><a name="user_read_restart_data"></a>user_read_<br>restart_data( nxlc, nxlf,nxl_on_file, nxrc, nxrf, nxr_on_file, nync, nynf,nyn_on_file, nysc, nysf, nys_on_file, tmp_2d, tmp_3d )</font></font></tt></td><td style="vertical-align: top;">Reading of user-defined 2d- and 3d-arrays from the restart file.<br><br>In
     85case of restart runs, user-defined quantities may have to be read from
     86the restart file generated by the previous run. These quantities must
     87have been output by the user in the previous run using routine <a href="#user_last_actions"><span style="font-family: Courier New,Courier,monospace;">user_last_actions</span></a>.<br><br>For usage, see example contained in <span style="font-family: Courier New,Courier,monospace;">read_3d_binary.f90</span> and <span style="font-family: Courier New,Courier,monospace;">user_last_actions.f90</span>.</td></tr><tr><td style="vertical-align: top;"><tt><font style="font-size: 10pt;" size="2">DEFAULT</font></tt>
    8488case of <tt><font style="font-size: 10pt;" size="2">SELECT
    8589CASE( TRIM(canopy_mode) ) </font></tt>command in the
    86 middle&nbsp;of <tt><font style="font-size: 10pt;" size="2">init_3d_model.f90</font></tt></td><td><a name="user_init_plant_canopy"></a><code>user_init_plant_canopy</code></td><td>User-defined initilisation of the plant canopy model.<br><br>Here, the user can define the two three-dimensional arrays <code>lad_s and cdc </code>that
     90middle&nbsp;of <tt><font style="font-size: 10pt;" size="2">init_3d_model.f90</font></tt></td><td style="vertical-align: top;"><a name="user_init_plant_canopy"></a><code>user_init_plant_canopy</code></td><td style="vertical-align: top;">User-defined initilisation of the plant canopy model.<br><br>Here, the user can define the two three-dimensional arrays <code>lad_s and cdc </code>that
    8791stand for the leaf area density and the canopy drag coefficient. By
    8892this, the user can configure a&nbsp;plant canopy. This requires
     
    206210in the CASE
    207211structure of <tt><font style="font-size: 10pt;" size="2">user_actions_ij</font></tt>!</p> </td>
    208 </tr> <tr><td style="vertical-align: top;"><code>SUBROUTINE preprocess_spectra</code> in <code>calc_spectra.f90</code>, and <code>data_output_spectra.f90</code></td><td style="vertical-align: top;"><tt><font style="font-size: 10pt;" size="2"><font face="Cumberland, monospace"><a name="user_spectra"></a>user_spectra</font></font></tt></td><td style="vertical-align: top;"><p><a href="chapter_3.5.4.html#spectra">Spectra of user-defined
     212</tr> <tr><td style="vertical-align: top;"><code>SUBROUTINE preprocess_spectra</code> in <code>calc_spectra.f90</code>, and <code>data_output_spectra.f90</code></td><td style="vertical-align: top;"><p><tt><font style="font-size: 10pt;" size="2"><font face="Cumberland, monospace"><a name="user_spectra"></a>user_spectra</font></font></tt></p></td><td style="vertical-align: top;"><p><a href="chapter_3.5.4.html#spectra">Spectra of user-defined
    209213quantities</a> can be computed here.</p>The
    210214routine contains some simple examples (as comment lines) in order to
     
    224228profiles
    225229are further processed (e.g. temporally averaged), like the standard profiles, in <tt><font style="font-size: 10pt;" size="2">flow_statistics</font></tt>.</p> </td>
    226 </tr> <tr><td style="vertical-align: top;">End
     230</tr> <tr><td style="vertical-align: top;">Middle of <span style="font-family: Courier New,Courier,monospace;">advec_particles.f90</span>, after particle reflection from walls.</td><td style="vertical-align: top;"><tt><font style="font-size: 10pt;" size="2"><font face="Cumberland, monospace"><a name="user_advec_particles"></a>user_advec_<br>particles</font></font></tt></td><td style="vertical-align: top;">User-defined actions after the calculation of the new particle position.</td></tr><tr><td style="vertical-align: top;">End
    227231of <span style="font-family: monospace;">check_parameters.f90</span>
    228232where 2d/3d output quantities are checked</td><td style="vertical-align: top;"><span style="font-family: monospace;"><a name="user_check_data_output"></a>user_check_data_<br>output(
     
    318322creating user-defined output quantities.</td></tr><tr valign="top"> <td width="211"> <p>End
    319323of <tt><font style="font-size: 10pt;" size="2">palm.f90</font></tt></p>
    320 </td> <td width="117"> <p><tt><font style="font-size: 10pt;" size="2"><font face="Cumberland, monospace"><a name="user_last_action"></a>user_last_</font></font></tt><font style="font-size: 10pt;" size="2"><font face="Cumberland, monospace"> <br> </font></font><tt><font style="font-size: 10pt;" size="2"><font face="Cumberland, monospace">action</font></font></tt></p>
     324</td> <td width="117"> <p><tt><font style="font-size: 10pt;" size="2"><font face="Cumberland, monospace"><a name="user_last_action"></a>user_last_</font></font></tt><font style="font-size: 10pt;" size="2"><font face="Cumberland, monospace"> <br> </font></font><tt><font style="font-size: 10pt;" size="2"><font face="Cumberland, monospace">actions</font></font></tt></p>
    321325</td> <td width="862"> <p>User-defined
    322326actions which are to be executed at the end
     
    332336within the category &ldquo;last actions&rdquo; (the time
    333337necessary for <tt><font style="font-size: 10pt;" size="2">close_files</font></tt> is included).</p>
    334 </td> </tr> </tbody></table><hr>
     338</td> </tr><tr><td style="vertical-align: top;">Not called in the default PALM code</td><td style="vertical-align: top;"><p><tt><font style="font-size: 10pt;" size="2"><font face="Cumberland, monospace"><a name="user_additional_routines"></a>user_additional_</font></font></tt><font style="font-size: 10pt;" size="2"><font face="Cumberland, monospace"> <br> </font></font><span style="font-family: Cumberland,monospace;">routines</span></p></td><td style="vertical-align: top;">This routine may contain additional routines defined by the user to be called from other user interface routines.</td></tr> </tbody></table><hr>
    335339<p style="line-height: 100%;"><br><font color="#000080"><font color="#000080"><a href="chapter_3.5.html"><font color="#000080"><img src="left.gif" name="Grafik1" align="bottom" border="2" height="32" width="32"></font></a><a href="index.html"><font color="#000080"><img src="up.gif" name="Grafik2" align="bottom" border="2" height="32" width="32"></font></a><a href="chapter_3.5.2.html"><font color="#000080"><img src="right.gif" name="Grafik3" align="bottom" border="2" height="32" width="32"></font></a></font></font></p><p style="line-height: 100%;"><i>Last
    336340change: </i>$Id$</p>
  • palm/trunk/DOC/app/chapter_3.5.2.html

    r62 r212  
    11<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
    22<html><head>
    3 <meta http-equiv="CONTENT-TYPE" content="text/html; charset=windows-1252"><title>PALM
    4 chapter 3.5.2</title> <meta name="GENERATOR" content="StarOffice 7 (Win32)"> <meta name="AUTHOR" content="Siegfried Raasch"> <meta name="CREATED" content="20040802;13321506"> <meta name="CHANGED" content="20041112;14455666"> <meta name="KEYWORDS" content="parallel LES model"> <style>
     3<meta http-equiv="CONTENT-TYPE" content="text/html; charset=windows-1252"><title>PALM chapter 3.5.2</title> <meta name="GENERATOR" content="StarOffice 7 (Win32)"> <meta name="AUTHOR" content="Siegfried Raasch"> <meta name="CREATED" content="20040802;13321506"> <meta name="CHANGED" content="20041112;14455666"> <meta name="KEYWORDS" content="parallel LES model"> <style>
    54<!--
    65@page { size: 21cm 29.7cm }
     
    1615parameters. The declaration of user-defined parameters takes place in
    1716the user-defined module <tt><font style="font-size: 10pt;" size="2">user</font></tt>
    18 (located at the beginning of the file <tt><font style="font-size: 10pt;" size="2">user_interface.f90</font></tt>).
     17(file <tt><font style="font-size: 10pt;" size="2">user_module.f90</font></tt>).
    1918This module must be declared in all relevant user-defined routines via
    2019a USE statement, in order to make the parameters available. </p>
  • palm/trunk/DOC/app/chapter_3.5.4.html

    r148 r212  
    2727following five parts of&nbsp;this chapter explains step-by-step how
    2828to modify/extend the
    29 default file user_interface.f90 in order to generate the respective
     29respective default user interface subroutines in order to generate the respective
    3030output:<br><ol><li>(horizontally averaged) <a href="chapter_3.5.4.html#vertical_profiles">vertical profiles</a>,&nbsp;</li><li><a href="chapter_3.5.4.html#time_series">time series</a>,&nbsp;</li><li><a href="chapter_3.5.4.html#2D_and_3D">2d cross
    3131section</a> or <a href="chapter_3.5.4.html#2D_and_3D">3d
     
    305305'u2_av&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
    306306';&nbsp; WRITE ( 14 )&nbsp; u2_av</span><br style="font-family: monospace;"><span style="font-family: monospace;">&nbsp;&nbsp;&nbsp;
    307 ENDIF</span><br><br>Otherwise, the calculated
    308 time-average may be wrong.</li></ol><br><h4><a name="dvrp"></a>4. Output of user-defined DVRP objects</h4>This
     307ENDIF</span><br><br>Otherwise,
     308the calculated
     309time-average may be wrong. In the restart run, this quantity has to be
     310read from the restart file by including the following code in
     311subroutine <a href="chapter_3.5.1.html#user_read_restart_data"><span style="font-family: monospace;">user_read_restart_data</span></a>:<br><br><span style="font-family: monospace;">&nbsp;&nbsp;&nbsp; IF ( initializing_actions == 'read_restart_data' )&nbsp; THEN<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; READ ( 13 )&nbsp; field_char<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; DO&nbsp; WHILE ( TRIM( field_char ) /= '*** end user ***' )<br><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SELECT CASE ( TRIM( field_char ) )<br><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; CASE ( 'u2_av' )<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; IF ( .NOT. ALLOCATED( u2_av ) ) THEN<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
     312ALLOCATE( u2_av(nzb:nzt+1,nys-1:nyn+1,nxl-1:nxr+1) )<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ENDIF<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; READ ( 13 )&nbsp; tmp_3d<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
     313u2_av(:,nysc-1:nync+1,nxlc-1:nxrc+1) = &amp;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
     314tmp_3d(:,nysf-1:nynf+1,nxlf-1:nxrf+1)<br><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; CASE DEFAULT<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
     315PRINT*, '+++ user_init: unknown variable named "', &amp;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
     316TRIM( field_char ), '" found in'<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
     317PRINT*,
     318'&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
     319data from prior run on PE ', myid<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; CALL local_stop<br><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; END SELECT<br><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; READ ( 13 )&nbsp; field_char<br><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ENDDO<br>&nbsp;&nbsp;&nbsp; ENDIF<br></span></li></ol><h4><a name="dvrp"></a>4. Output of user-defined DVRP objects</h4>This
    309320example shows the output of the
    310321quantity "square of the u-component", <span style="font-style: italic;">u<sup>2</sup></span>.
  • palm/trunk/DOC/app/chapter_3.5.5.html

    r62 r212  
    11<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
    22<html><head>
    3 <meta http-equiv="CONTENT-TYPE" content="text/html; charset=windows-1252"><title>PALM
    4 chapter 3.5.5</title> <meta name="GENERATOR" content="StarOffice 7 (Win32)"> <meta name="AUTHOR" content="Siegfried Raasch"> <meta name="CREATED" content="20040802;14050943"> <meta name="CHANGED" content="20041117;12180008"> <meta name="KEYWORDS" content="parallel LES model"> <style>
     3<meta http-equiv="CONTENT-TYPE" content="text/html; charset=windows-1252"><title>PALM chapter 3.5.5</title> <meta name="GENERATOR" content="StarOffice 7 (Win32)"> <meta name="AUTHOR" content="Siegfried Raasch"> <meta name="CREATED" content="20040802;14050943"> <meta name="CHANGED" content="20041117;12180008"> <meta name="KEYWORDS" content="parallel LES model"> <style>
    54<!--
    65@page { size: 21cm 29.7cm }
     
    1211</font></h3><p style="line-height: 100%;">Users
    1312can add their own (modified) user-interface to a PALM-run by carrying
    14 out the following steps:</p><ol><li>Copy the default
    15 (empty) user-interface (file<span style="font-family: Courier New,Courier,monospace;">
    16 user_interface.f90</span>) to a directory of your choice, e.g.:<br><br><span style="font-family: Courier New,Courier,monospace;">&nbsp;
     13out the following steps:</p><ol><li>Copy the appropriate default
     14(empty) user-interface&nbsp;files<span style="font-family: Courier New,Courier,monospace;">
     15user_***.f90</span> to a directory of your choice, e.g.:<br><br><span style="font-family: Courier New,Courier,monospace;">&nbsp;
    1716&nbsp;cd ~/palm/current_version</span><br style="font-family: Courier New,Courier,monospace;"><span style="font-family: Courier New,Courier,monospace;">&nbsp;
    1817&nbsp;mkdir -p USER_CODE/example</span><br style="font-family: Courier New,Courier,monospace;"><span style="font-family: Courier New,Courier,monospace;">&nbsp;
    19 &nbsp;cp trunk/SOURCE/user_interface.f90&nbsp;
    20 USER_CODE/example/user_example.f90</span><br></li><li>Set
     18&nbsp;cp trunk/SOURCE/user_***.f90&nbsp;
     19USER_CODE/example<br><br><span style="font-family: Times New Roman,Times,serif; font-weight: bold;">Attention: do not change the filenames!</span><br></span><br></li><li>Set
    2120an additional path in the configuration file<span style="font-family: Courier New,Courier,monospace;">
    2221.mrun.config </span>to allow <span style="font-weight: bold;">mrun
    23 </span>to find and include this file:<br><br><span style="font-family: Courier New,Courier,monospace;">&nbsp;
     22</span>to find and include these files:<br><br><span style="font-family: Courier New,Courier,monospace;">&nbsp;
    2423&nbsp;%add_source_path&nbsp;&nbsp;
    2524$base_directory/USER_CODE/$fname</span><br><br>The
    2625default configuration file (<span style="font-family: Courier New,Courier,monospace;">trunk/SCRIPTS/.mrun.config.default</span>)
    27 already includes this setting.</li><li>Modify the interface
    28 routines according to your needs.</li><li>Start a PALM run
     26already includes this setting.<br></li><li>Modify the interface
     27routines according to your needs.<br></li><li>Start a PALM run
    2928by executing<br><br><span style="font-family: Courier New,Courier,monospace;">&nbsp;
    30 &nbsp;mrun -d example ...</span><br><br>The file<span style="font-family: Courier New,Courier,monospace;">
    31 user_example.f90 </span>will be automatically compiled within
    32 the job and will replace PALM&lsquo;s default user-interface.<br></li></ol>The
     29&nbsp;mrun -d example ...</span><br><br>The files<span style="font-family: Courier New,Courier,monospace;">
     30user_***.f90 </span>will be automatically compiled within
     31the job and will replace the respective PALM&lsquo;s default user-interface routines.<br></li></ol>The
    3332above method with including<span style="font-family: Courier New,Courier,monospace;"> $fname </span>in
    3433the additional source path allows to use different user-interfaces for
     
    3938&ldquo;<span style="font-family: Courier New,Courier,monospace;">-d
    4039abcd</span>&ldquo;, &ldquo;<span style="font-family: Courier New,Courier,monospace;">-d cdef</span>&ldquo;,
    41 etc.<br><br><span style="font-weight: bold;">The
    42 modified user-interface file cannot be pre-compiled by using mbuild!</span><br><br>While
     40etc.<br><br>If the user wants to add additional routines, he/she can a) put them into the default user-interface file <span style="font-family: Courier New,Courier,monospace;">user_additional_routines.f90</span>
     41or b) can create new files in the additional source directory. These
     42files must have names different from the default PALM source code
     43files. In case of b), the user must also copy the default makefile into
     44the additional source directory:<br><br><span style="font-family: Courier New,Courier,monospace;">&nbsp; &nbsp;cp trunk/SOURCE/Makefile&nbsp;
     45USER_CODE/example</span><br><br>The makefile must be modified appropriately followinf the "make"-rules in order to allow the new files to be compiled.<br><br><span style="font-weight: bold;">The
     46modified user-interface files cannot be pre-compiled by using mbuild!</span><br><br>While
    4347programming user-defined code,
    4448errors are frequently made. Possible ways of error
  • palm/trunk/DOC/app/chapter_3.5.html

    r62 r212  
    16162.0</a> and the technical documentation are usually not
    1717sufficient
    18 and must be supplemented by the rigorous study of the source code of
    19 the model. Programming experiences with FORTRAN95 and if necessary
     18and must be supplemented by a rigorous study of the model's source code. Programming experiences with FORTRAN95 and if necessary
    2019experiences with the parallelization tool MPI are absolutely
    21 neccessary! </p>
     20necessary! </p>
    2221<p style="line-height: 100%;">Changes of the standard
    2322model code by the
     
    4342pre-defined names, which must not be changed by the user. Their basic
    4443versions are a component of the standard model
    45 code and they are all included in the source code file
    46 <tt><font style="font-size: 10pt;" size="2">user_interface.f90</font></tt><font style="font-size: 10pt;" size="2">.</font>
     44code and can be found in the source code files
     45<tt><font style="font-size: 10pt;" size="2">user_***.f90</font></tt><font style="font-size: 10pt;" size="2">.</font>
    4746<font color="#000000">The</font> basic versions
    4847accomplish nearly no
     
    5049user as required. Actions which are already accomplished in these
    5150basic versions by default should not be changed. Here is an example
    52 of such a basic version: </p>
     51of such a basic version (file <span style="font-family: Courier New,Courier,monospace;">user_init.f90</span>): </p>
    5352<p style="line-height: 100%;">&nbsp; </p>
    5453<pre style="line-height: 100%;"><font color="#000000"><font style="font-size: 10pt;" size="2">SUBROUTINE user_init</font></font><br><br><font color="#000000"><font style="font-size: 10pt;" size="2">!------------------------------------------------------------------------------</font></font><br><font color="#000000"><font style="font-size: 10pt;" size="2">!</font></font><br><font color="#000000"><font style="font-size: 10pt;" size="2">!</font></font><br><font color="#000000"><font style="font-size: 10pt;" size="2">! Description:</font></font><br><font color="#000000"><font style="font-size: 10pt;" size="2">! -----------</font></font><br><font color="#000000"><font style="font-size: 10pt;" size="2">! Execution of user-defined initializing actions</font></font><br><font color="#000000"><font style="font-size: 10pt;" size="2">!------------------------------------------------------------------------------</font></font><br><font color="#000000"><font style="font-size: 10pt;" size="2">!</font></font><br><br><font color="#000000"> <font style="font-size: 10pt;" size="2">USE control_parameters</font></font><br><font color="#000000"> <font style="font-size: 10pt;" size="2">USE user</font></font><br><br><font color="#000000"> <font style="font-size: 10pt;" size="2">IMPLICIT NONE</font></font><br><br><font color="#000000"><font style="font-size: 10pt;" size="2">!</font></font><br><font color="#000000"><font style="font-size: 10pt;" size="2">!-- Here the user defined initializing actions follow:</font></font><br><br><br><font color="#000000"><font style="font-size: 10pt;" size="2">END SUBROUTINE user_init</font></font></pre><p style="line-height: 100%;">The communication (handling of
     
    6766appears in the example
    6867above. This is a
    69 user-defined module (it is located at
    70 the beginning of the file <tt><font style="font-size: 10pt;" size="2">user_interface.f90</font></tt>)
     68user-defined module (it can be found in file <tt><font style="font-size: 10pt;" size="2">user_module.f90</font></tt>)
    7169and can be used for communication between the user-defined routines. In
    7270this module own variables can be declared as desired. It
    73 is not used outside of the user code. </p>
     71is not used (and should not be used!) outside of the user code. </p>
    7472<p style="line-height: 100%;">A very typical request of
    7573users is the
     
    7977for calculating and output of such quantities (see <a href="chapter_3.5.4.html">3.5.4</a>).</p><p style="line-height: 100%;">As already mentioned, the
    8078contents of
    81 the file <tt><font style="font-size: 10pt;" size="2">user_interface.f90</font></tt>
    82 can be used as a basis for extensions. However the file should not be
    83 manipulated directly (it is anyway write protected by default), but it
    84 should be
    85 copied to another file. User write permits for this new file must be
    86 declared by means of the unix command <tt><font style="font-size: 10pt;" size="2">chmod</font></tt>.
     79the files <tt><font style="font-size: 10pt;" size="2">user_***.f90</font></tt>
     80can be used as a basis for extensions. However these files should not be
     81manipulated directly. Instead, a copy should be used.
    8782</p>
    8883<p style="line-height: 100%;">The following sections
  • palm/trunk/SOURCE/CURRENT_MODIFICATIONS

    r211 r212  
    4242dwdy, dvdx and dwdx. (production_e)
    4343
    44 combine_plot_fields, header, production_e
     44Bugfix in calculating k index in case of oceans runs. (sort_particles)
     45
     46advec_particles, combine_plot_fields, header, production_e
  • palm/trunk/SOURCE/advec_particles.f90

    r198 r212  
    44! Actual revisions:
    55! -----------------
     6! Bugfix in calculating k index in case of oceans runs (sort_particles)
    67! TEST: PRINT statements on unit 9 (commented out)
    78!
     
    18751876
    18761877!
    1877 !--    User-defined actions after the evaluation of the new particle position
     1878!--    User-defined actions after the calculation of the new particle position
    18781879       CALL user_advec_particles
    18791880
     
    38903891       i = ( particles(n)%x + 0.5 * dx ) * ddx
    38913892       j = ( particles(n)%y + 0.5 * dy ) * ddy
    3892        k = particles(n)%z / dz + 1 + offset_ocean_nzt_m1
     3893       k = particles(n)%z / dz + 1 + offset_ocean_nzt
    38933894           ! only exact if equidistant
    38943895
     
    39253926       i = ( particles(n)%x + 0.5 * dx ) * ddx
    39263927       j = ( particles(n)%y + 0.5 * dy ) * ddy
    3927        k = particles(n)%z / dz + 1 + offset_ocean_nzt_m1
     3928       k = particles(n)%z / dz + 1 + offset_ocean_nzt
    39283929           ! only exact if equidistant
    39293930
Note: See TracChangeset for help on using the changeset viewer.