Ignore:
Timestamp:
Oct 27, 2011 10:56:21 AM (10 years ago)
Author:
heinze
Message:

Output of liquid water potential temperature in case of cloud_physics=.T. enabled

File:
1 edited

Legend:

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

    r668 r771  
    44! Current revisions:
    55! -----------------
     6! +lpt_av
    67!
    78! Former revisions:
     
    395396                                tmp_3d(:,nysf-nbgp:nynf+nbgp,nxlf-nbgp:nxrf+nbgp)
    396397
     398                CASE ( 'lpt_av' )
     399                   IF ( .NOT. ALLOCATED( lpt_av ) )  THEN
     400                      ALLOCATE( lpt_av(nzb:nzt+1,nysg:nyng,nxlg:nxrg ))
     401                   ENDIF
     402                   IF ( k == 1 )  READ ( 13 )  tmp_3d
     403                   lpt_av(:,nysc-nbgp:nync+nbgp,nxlc-nbgp:nxrc+nbgp) = &
     404                                tmp_3d(:,nysf-nbgp:nynf+nbgp,nxlf-nbgp:nxrf+nbgp)
     405
    397406                CASE ( 'lwp_av' )
    398407                   IF ( .NOT. ALLOCATED( lwp_av ) )  THEN
Note: See TracChangeset for help on using the changeset viewer.