Ignore:
Timestamp:
Apr 27, 2018 12:33:25 PM (3 years ago)
Author:
Giersch
Message:

precipitation_rate removed, further allocation checks for data output of averaged quantities implemented, double CALL of flow_statistics at the beginning of time_integration removed, further minor bugfixes, comments added

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/user_3d_data_averaging.f90

    r2718 r3004  
    2525! -----------------
    2626! $Id$
     27! Further allocation checks implemented
     28!
     29! 2718 2018-01-02 08:49:38Z maronga
    2730! Corrected "Former revisions" section
    2831!
     
    112115!--       Sample for user-defined output:
    113116!          CASE ( 'u2' )
    114 !             DO  i = nxlg, nxrg
    115 !                DO  j = nysg, nyng
    116 !                   DO  k = nzb, nzt+1
    117 !                      u2_av(k,j,i) = u2_av(k,j,i) + u2(k,j,i)
     117!             IF ( ALLOCATED( u2_av ) ) THEN
     118!                DO  i = nxlg, nxrg
     119!                   DO  j = nysg, nyng
     120!                      DO  k = nzb, nzt+1
     121!                         u2_av(k,j,i) = u2_av(k,j,i) + u2(k,j,i)
     122!                      ENDDO
    118123!                   ENDDO
    119124!                ENDDO
    120 !             ENDDO
     125!             ENDIF
    121126
    122127          CASE DEFAULT
     
    135140!--       Sample for user-defined output:
    136141!          CASE ( 'u2' )
    137 !             DO  i = nxlg, nxrg
    138 !                DO  j = nysg, nyng
    139 !                   DO  k = nzb, nzt+1
    140 !                      u2_av(k,j,i) = u2_av(k,j,i) / REAL( average_count_3d, KIND=wp )
     142!             IF ( ALLOCATED( u2_av ) ) THEN
     143!                DO  i = nxlg, nxrg
     144!                   DO  j = nysg, nyng
     145!                      DO  k = nzb, nzt+1
     146!                         u2_av(k,j,i) = u2_av(k,j,i) / REAL( average_count_3d, KIND=wp )
     147!                      ENDDO
    141148!                   ENDDO
    142149!                ENDDO
    143 !             ENDDO
     150!             ENDIF
    144151
    145152       END SELECT
Note: See TracChangeset for help on using the changeset viewer.