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

optimization of two-moments cloud physics

File:
1 edited

Legend:

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

    r1054 r1115  
    2020! Current revisions:
    2121! -----------------
     22! ql is calculated by calc_liquid_water_content
    2223!
    2324! Former revisions:
     
    164165                ENDIF
    165166                q_av = 0.0
     167
     168             CASE ( 'qc' )
     169                IF ( .NOT. ALLOCATED( qc_av ) )  THEN
     170                   ALLOCATE( qc_av(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
     171                ENDIF
     172                qc_av = 0.0
    166173
    167174             CASE ( 'ql' )
     
    411418             ENDDO
    412419
     420          CASE ( 'qc' )
     421             DO  i = nxlg, nxrg
     422                DO  j = nysg, nyng
     423                   DO  k = nzb, nzt+1
     424                      qc_av(k,j,i) = qc_av(k,j,i) + qc(k,j,i)
     425                   ENDDO
     426                ENDDO
     427             ENDDO
     428
    413429          CASE ( 'ql' )
    414430             DO  i = nxlg, nxrg
Note: See TracChangeset for help on using the changeset viewer.