Home


About us
PALM
PALM-4U
Installation
Release notes
Documentation
Getting Help
Gallery
Developers area

Changes between Version 65 and Version 66 of doc/app/userint/output


Ignore:
Timestamp:
Jan 3, 2011 12:40:35 PM (14 years ago)
Author:
suehring
Comment:

--

Legend:

Unmodified
Added
Removed
Modified

  • doc/app/userint/output

    v65 v66  
    105105   {{{!--    data output) }}} \\
    106106   {{{!--    Sample for user-defined output: }}} \\
    107    {{{       DO  i = nxld, nxrd }}} \\
    108       {{{       DO  j = nysd, nynd }}} \\
     107   {{{       DO  i = nxlg, nxrg }}} \\
     108      {{{       DO  j = nysg, nyng }}} \\
    109109         {{{       DO  k = nzb, nzt+1 }}} \\
    110110            {{{       u2(k,j,i) = u(k,j,i)**2 }}} \\
    … …  
    119119      {{{       CASE ( 'u2' ) }}} \\
    120120         {{{       IF ( .NOT. ALLOCATED( u2_av ) )  THEN  }}} \\
    121             {{{       ALLOCATE( u2_av(nzb:nzt+1,nysd:nynd,nxld:nxrd) )   }}} \\
     121            {{{       ALLOCATE( u2_av(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )   }}} \\
    122122         {{{       ENDIF }}} \\
    123123         {{{       u2_av = 0.0 }}} \\
    … …  
    126126      {{{    ... }}} \\
    127127      {{{       CASE ( 'u2' ) }}} \\
    128          {{{       DO  i = nxld, nxrd }}} \\
    129             {{{       DO  j = nysd, nynd }}} \\
     128         {{{       DO  i = nxlg, nxrg }}} \\
     129            {{{       DO  j = nysg, nyng }}} \\
    130130               {{{       DO  k = nzb, nzt+1 }}} \\
    131131                  {{{       u2_av(k,j,i) = u2_av(k,j,i) + u2(k,j,i) }}} \\
    … …  
    137137      {{{ ... }}} \\
    138138      {{{    CASE ( 'u2' ) }}} \\
    139          {{{    DO  i = nxld, nxrd }}} \\
    140             {{{    DO  j = nysd, nynd }}} \\
     139         {{{    DO  i = nxlg, nxrg }}} \\
     140            {{{    DO  j = nysg, nyng }}} \\
    141141               {{{    DO  k = nzb, nzt+1 }}} \\
    142142                  {{{    u2_av(k,j,i) = u2_av(k,j,i) / REAL( average_count_3d ) }}} \\
    … …  
    149149   {{{ CASE ( 'u2_xy', 'u2_xz', 'u2_yz' ) }}} \\
    150150      {{{    IF ( av == 0 )  THEN }}} \\
    151          {{{    DO  i = nxld, nxrd }}} \\
    152             {{{    DO  j = nysd, nynd }}} \\
     151         {{{    DO  i = nxlg, nxrg }}} \\
     152            {{{    DO  j = nysg, nyng }}} \\
    153153               {{{    DO  k = nzb, nzt+1 }}} \\
    154154                  {{{    local_pf(i,j,k) = u2(k,j,i) }}} \\
    … …  
    157157         {{{    ENDDO }}} \\
    158158      {{{    ELSE }}} \\
    159          {{{    DO  i = nxld, nxrd }}} \\
    160             {{{    DO  j = nysd, nynd }}} \\
     159         {{{    DO  i = nxlg, nxrg }}} \\
     160            {{{    DO  j = nysg, nyng }}} \\
    161161               {{{    DO  k = nzb, nzt+1 }}} \\
    162162                  {{{    local_pf(i,j,k) = u2_av(k,j,i) }}} \\
    … …  
    173173      {{{ CASE ( 'u2_xy' ) }}} \\
    174174         {{{ IF ( av == 0 )  THEN }}} \\
    175             {{{    DO  i = nxld, nxrd }}} \\
    176                {{{    DO  j = nysd, nynd }}} \\
     175            {{{    DO  i = nxlg, nxrg }}} \\
     176               {{{    DO  j = nysg, nyng }}} \\
    177177                  {{{     local_pf(i,j,nzb+1) = u2(j,i) }}} \\
    178178               {{{ ENDDO }}} \\
    179179            {{{ ENDDO }}} \\
    180180         {{{ ELSE }}} \\
    181             {{{ DO  i = nxld, nxrd }}} \\
    182                {{{    DO  j = nysd, nynd }}} \\
     181            {{{ DO  i = nxlg, nxrg }}} \\
     182               {{{    DO  j = nysg, nyng }}} \\
    183183                  {{{     local_pf(i,j,nzb+1) = u2_av(j,i) }}} \\
    184184               {{{ ENDDO }}} \\
    … …  
    195195   {{{ CASE ( 'u2' ) }}} \\
    196196      {{{    IF ( av == 0 )  THEN }}} \\
    197          {{{    DO  i = nxld, nxrd }}} \\
    198             {{{    DO  j = nysd, nynd }}} \\
     197         {{{    DO  i = nxlg, nxrg }}} \\
     198            {{{    DO  j = nysg, nyng }}} \\
    199199               {{{    DO  k = nzb, nz_do }}} \\
    200200                  {{{    local_pf(i,j,k) = u2(k,j,i) }}} \\
    … …  
    203203         {{{    ENDDO }}} \\
    204204      {{{    ELSE }}} \\
    205          {{{    DO  i = nxld, nxrd }}} \\
    206             {{{    DO  j = nysd, nynd }}} \\
     205         {{{    DO  i = nxlg, nxrg }}} \\
     206            {{{    DO  j = nysg, nyng }}} \\
    207207               {{{    DO  k = nzb, nz_do }}} \\
    208208                  {{{    local_pf(i,j,k) = u2_av(k,j,i) }}} \\
    … …  
    263263                 {{{        CASE ( 'u2_av' ) }}}\\
    264264                    {{{        IF ( .NOT. ALLOCATED( u2_av ) ) THEN }}}\\
    265                        {{{        ALLOCATE( u2_av(nzb:nzt+1,nysd:nynd,nxld:nxrd) ) }}}\\
     265                       {{{        ALLOCATE( u2_av(nzb:nzt+1,nysg:nyng,nxlg:nxrg) ) }}}\\
    266266                    {{{        ENDIF }}}\\
    267267                    {{{        IF ( k == 1 ) READ ( 13 )  tmp_3d }}}\\
                                                                                                                                                                                                                                                                                                                                                                               
  | Impressum | ©Leibniz Universität Hannover |