Changes between Version 16 and Version 17 of doc/app/userint/output


Ignore:
Timestamp:
Sep 15, 2010 2:47:04 PM (14 years ago)
Author:
suehring
Comment:

--

Legend:

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

    v16 v17  
    7474   {{{ALLOCATE( u2(nzb:nzt+1,nys-1:nyn+1,nxl-1:nxr+1) ) }}} \\
    7575
    76       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]:
    77 {{{
    78           IF ( initializing_actions == 'read_restart_data' )  THEN
    79              READ ( 13 )  field_char
    80              DO  WHILE ( TRIM( field_char ) /= '*** end user ***' )
    81 
    82                 SELECT CASE ( TRIM( field_char ) )
    83 
    84                    CASE ( 'u2_av' )
    85                       ALLOCATE( u2_av(nzb:nzt+1,nys-1:nyn+1,nxl-1:nxr+1) )
    86                       READ ( 13 )  u2_av
    87 
    88                    CASE DEFAULT
    89                       PRINT*, '+++ user_init: unknown variable named "', &
    90                               TRIM( field_char ), '" found in'
    91                       PRINT*, '               data from prior run on PE ', myid
    92                       CALL local_stop
    93 
    94                 END SELECT
    95              ENDDO
    96           ENDIF
    97 }}}
     76      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]: \\
     77
     78      {{{IF ( initializing_actions == 'read_restart_data' )  THEN }}} \\
     79         {{{    READ ( 13 )  field_char }}} \\
     80         {{{    DO  WHILE ( TRIM( field_char ) /= '*** end user ***' ) }}} \\
     81             
     82            {{{    SELECT CASE ( TRIM( field_char ) ) }}} \\
     83
     84              {{{     CASE ( 'u2_av' ) }}} \\
     85                 {{{     ALLOCATE( u2_av(nzb:nzt+1,nys-1:nyn+1,nxl-1:nxr+1) ) }}} \\
     86                 {{{     READ ( 13 )  u2_av }}} \\
     87
     88              {{{     CASE DEFAULT }}} \\
     89                 {{{     PRINT*, '+++ user_init: unknown variable named "', & }}} \\
     90                 {{{             TRIM( field_char ), '" found in' }}} \\
     91                 {{{     PRINT*, '               data from prior run on PE ', myid }}} \\
     92                 {{{     CALL local_stop }}} \\
     93
     94            {{{    END SELECT  }}} \\
     95         {{{    ENDDO }}} \\
     96      {{{    ENDIF }}} \\
    9897
    9998   4. The quantity has to be given a unit (subroutine user_check_data_output):