Ignore:
Timestamp:
Mar 26, 2013 6:16:16 PM (9 years ago)
Author:
hoffmann
Message:

optimization of two-moments cloud physics

File:
1 edited

Legend:

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

    r1054 r1115  
    2020! Current revisions:
    2121! -----------------
     22! +qc
    2223!
    2324! Former revisions:
     
    181182             ENDDO
    182183
     184          CASE ( 'qc' )
     185             DO  i = nxlg, nxrg
     186                DO  j = nysg, nyng
     187                   DO  k = nzb, nzt+1
     188                      qc_av(k,j,i) = qc_av(k,j,i) / REAL( average_count_3d )
     189                   ENDDO
     190                ENDDO
     191             ENDDO
     192
    183193          CASE ( 'ql' )
    184194             DO  i = nxlg, nxrg
Note: See TracChangeset for help on using the changeset viewer.