Changeset 212 for palm/trunk/DOC/app/chapter_3.5.4.html
- Timestamp:
- Nov 11, 2008 9:09:24 AM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/DOC/app/chapter_3.5.4.html
r148 r212 27 27 following five parts of this chapter explains step-by-step how 28 28 to modify/extend the 29 default file user_interface.f90in order to generate the respective29 respective default user interface subroutines in order to generate the respective 30 30 output:<br><ol><li>(horizontally averaged) <a href="chapter_3.5.4.html#vertical_profiles">vertical profiles</a>, </li><li><a href="chapter_3.5.4.html#time_series">time series</a>, </li><li><a href="chapter_3.5.4.html#2D_and_3D">2d cross 31 31 section</a> or <a href="chapter_3.5.4.html#2D_and_3D">3d … … 305 305 'u2_av 306 306 '; WRITE ( 14 ) u2_av</span><br style="font-family: monospace;"><span style="font-family: monospace;"> 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 307 ENDIF</span><br><br>Otherwise, 308 the calculated 309 time-average may be wrong. In the restart run, this quantity has to be 310 read from the restart file by including the following code in 311 subroutine <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;"> IF ( initializing_actions == 'read_restart_data' ) THEN<br> READ ( 13 ) field_char<br> DO WHILE ( TRIM( field_char ) /= '*** end user ***' )<br><br> SELECT CASE ( TRIM( field_char ) )<br><br> CASE ( 'u2_av' )<br> IF ( .NOT. ALLOCATED( u2_av ) ) THEN<br> 312 ALLOCATE( u2_av(nzb:nzt+1,nys-1:nyn+1,nxl-1:nxr+1) )<br> ENDIF<br> READ ( 13 ) tmp_3d<br> 313 u2_av(:,nysc-1:nync+1,nxlc-1:nxrc+1) = &<br> 314 tmp_3d(:,nysf-1:nynf+1,nxlf-1:nxrf+1)<br><br> CASE DEFAULT<br> 315 PRINT*, '+++ user_init: unknown variable named "', &<br> 316 TRIM( field_char ), '" found in'<br> 317 PRINT*, 318 ' 319 data from prior run on PE ', myid<br> CALL local_stop<br><br> END SELECT<br><br> READ ( 13 ) field_char<br><br> ENDDO<br> ENDIF<br></span></li></ol><h4><a name="dvrp"></a>4. Output of user-defined DVRP objects</h4>This 309 320 example shows the output of the 310 321 quantity "square of the u-component", <span style="font-style: italic;">u<sup>2</sup></span>.
Note: See TracChangeset
for help on using the changeset viewer.