Changes between Version 27 and Version 28 of doc/app/userint/output

Timestamp:

Sep 16, 2010 7:13:31 AM (14 years ago)

Author:

suehring

Comment:

--

doc/app/userint/output

@@ -239 +239 @@
   Otherwise, the calculated time-average may be wrong. In the restart run, this quantity has to be read from the restart file by including the following code in subroutine [../#user_read_restart_data user_read_restart_data]:
 
-   {{{   IF ( initializing_actions == 'read_restart_data' )  THEN
-      {{{       READ ( 13 )  field_char
-      {{{       DO  WHILE ( TRIM( field_char ) /= '*** end user ***' )
-         {{{       SELECT CASE ( TRIM( field_char ) )
-            {{{       CASE ( 'u2_av' )
-               {{{       IF ( .NOT. ALLOCATED( u2_av ) ) THEN
-                  {{{       ALLOCATE( u2_av(nzb:nzt+1,nys-1:nyn+1,nxl-1:nxr+1) )
-               {{{       ENDIF
-               {{{       READ ( 13 )  tmp_3d
-                  {{{    u2_av(:,nysc-1:nync+1,nxlc-1:nxrc+1) = &
-                  {{{                           tmp_3d(:,nysf-1:nynf+1,nxlf-1:nxrf+1)
-
-            {{{       CASE DEFAULT
-               {{{       PRINT*, '+++ user_init: unknown variable named "', &
-               {{{               TRIM( field_char ), '" found in'
-               {{{       PRINT*, '               data from prior run on PE ', myid
-               {{{       CALL local_stop
-
-         {{{       END SELECT
-
-         {{{       READ ( 13 )  field_char
-
-      {{{    ENDDO
-   {{{    ENDIF
+   {{{   IF ( initializing_actions == 'read_restart_data' )  THEN }}}\\
+      {{{       READ ( 13 )  field_char }}}\\
+      {{{       DO  WHILE ( TRIM( field_char ) /= '*** end user ***' ) }}}\\
+         {{{       SELECT CASE ( TRIM( field_char ) ) }}}\\
+            {{{       CASE ( 'u2_av' ) }}}\\
+               {{{       IF ( .NOT. ALLOCATED( u2_av ) ) THEN }}}\\
+                  {{{       ALLOCATE( u2_av(nzb:nzt+1,nysd:nynd,nxld:nxrd) ) }}}\\
+               {{{       ENDIF }}}\\
+               {{{       READ ( 13 )  tmp_3d }}}\\
+                  {{{    u2_av(:,nysc-1:nync+1,nxlc-1:nxrc+1) = & }}}\\
+                  {{{                           tmp_3d(:,nysf-1:nynf+1,nxlf-1:nxrf+1) }}}\\
+
+            {{{       CASE DEFAULT }}}\\
+               {{{       PRINT*, '+++ user_init: unknown variable named "', & }}}\\
+               {{{               TRIM( field_char ), '" found in' }}}\\
+               {{{       PRINT*, '               data from prior run on PE ', myid }}}\\
+               {{{       CALL local_stop }}}\\
+         {{{       END SELECT }}}\\
+         {{{       READ ( 13 )  field_char }}}\\
+      {{{    ENDDO }}}\\
+   {{{    ENDIF }}}\\
 
 [=#part_4 '''4. Output of user-defined DVRP objects'''] \\\\
-This example shows the output of the quantity "square of the u-component", u2. If more than one user-defined quantity shall be output, the following steps have to be carried out in the same way for each of the quantities. First, steps 1 - 6 of part 3. (2d cross section or 3d volume data) are required. Second, the gridpoint data of the quantity has to be resorted to array local_pf in subroutine user_data_output_dvrp as follows:
-
-       CASE ( 'u2', 'u2_xy', 'u2_xz', 'u2_yz'  )
-          DO  i = nxl, nxr+1
-             DO  j = nys, nyn+1
-                DO  k = nzb, nz_do3d
-                   local_pf(i,j,k) = u2(k,j,i)
-                ENDDO
-             ENDDO
-          ENDDO
+This example shows the output of the quantity "square of the u-component", u^2^. If more than one user-defined quantity shall be output, the following steps have to be carried out in the same way for each of the quantities. First, steps 1 - 6 of part [#part_3. (2d cross section or 3d volume data)] are required. Second, the gridpoint data of the quantity has to be resorted to array {{{local_pf}}} in subroutine [../int#user_data_output_dvrp user_data_output_dvrp] as follows:
+
+   {{{ CASE ( '}}}[[span(u2,style=color: red)]]', '[[span(u2,style=color: red)]]_xy', '[[span(u2,style=color: red)]]_xz', '[[span(u2,style=color: red)]]_yz'  ) \\
+      {{{    DO  i = nxl, nxr+1 }}}\\
+         {{{    DO  j = nys, nyn+1 }}}\\
+            {{{    DO  k = nzb, nz_do3d }}}\\
+               {{{    local_pf(i,j,k) =}}} [[span(u2,style=color: red)]]{{{(k,j,i) }}}\\
+            {{{    ENDDO }}}\\
+            {{{ ENDDO }}}\\
+         {{{ ENDDO }}}\\
 
 Only those parts in red have to be adjusted by the user.