Changes between Version 58 and Version 59 of doc/app/userint/output

Timestamp:

Oct 11, 2010 11:22:33 AM (14 years ago)

Author:

heinze

Comment:

--

doc/app/userint/output

@@ -77 +77 @@
    3. The data array has to be allocated in subroutine [../int#user_init user_init]: \\
 
-   {{{ALLOCATE( u2(nzb:nzt+1,nys-1:nyn+1,nxl-1:nxr+1) ) }}} \\
-
-   In case that output of time averaged data is requested, the array containing the sum has possibly to be read from the restart file (local filename [../../iofiles#BININ BININ]) by executing the following code in [../int#user_init user_init]: 
-
-   {{{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' ) }}} \\
-              {{{     ALLOCATE( u2_av(nzb:nzt+1,nys-1:nyn+1,nxl-1:nxr+1) ) }}} \\
-              {{{     READ ( 13 )  u2_av }}} \\
-
-           {{{     CASE DEFAULT }}} \\
-              {{{     PRINT*, '+++ user_init: unknown variable named "', & }}} 
-                 [[span(   {{{TRIM( field_char ), '" found in' }}},style=color: black)]] \\
-              {{{     PRINT*, '               data from prior run on PE ', myid }}} \\
-              {{{     CALL local_stop }}} \\
-          {{{    END SELECT  }}} \\
-      {{{    ENDDO }}} \\
-   {{{    ENDIF }}} \\
+   {{{ALLOCATE( u2(nzb:nzt+1,nys-1:nyn+1,nxl-1:nxr+1) ) }}}
 
    4. The quantity has to be given a unit (subroutine [../int#user_check_data_output user_check_data_output]): \\
@@ -240 +219 @@
   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,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 }}}\\
+  {{{    IF ( initializing_actions == 'read_restart_data' )  THEN }}}\\
+      {{{      READ ( 13 )  field_char }}}\\
+      {{{      DO  WHILE ( TRIM( field_char ) /= '*** end user ***' ) }}}\\
+         {{{      DO  k = 1, overlap_count }}}\\
+             {{{       nxlf = nxlfa(i,k) }}}\\
+             {{{       nxlc = nxlfa(i,k) + offset_xa(i,k)}}}\\
+             {{{       nxrf = nxrfa(i,k)}}}\\
+             {{{       nxrc = nxrfa(i,k) + offset_xa(i,k)}}}\\
+             {{{       nysf = nysfa(i,k)}}}\\
+             {{{       nysc = nysfa(i,k) + offset_ya(i,k)}}}\\
+             {{{       nynf = nynfa(i,k)}}}\\
+             {{{       nync = nynfa(i,k) + offset_ya(i,k)}}}\\\\
+             {{{       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 }}}\\
+                    {{{        IF ( k == 1 ) 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 }}}\\
+                    {{{        WRITE( message_string, * ) 'unknown variable named "',  &}}}\\
+                    {{{             TRIM( field_char ), '" found in', &}}}\\
+                    {{{             '&data from prior run on PE ', myid}}}\\
+                    {{{         CALL message('user_read_restart_data', 'UI0012', 1, 2, 0, 6, 0) }}}\\
+             {{{       END SELECT }}}\\
+         {{{      ENDDO          }}}\\
+         {{{      READ ( 13 )  field_char }}}\\
+      {{{      ENDDO }}}\\
   {{{    ENDIF }}}
 \\\\