Changeset 771 for palm/trunk/SOURCE/read_3d_binary.f90

Timestamp:

Oct 27, 2011 10:56:21 AM (14 years ago)

Author:

heinze

Message:

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

File:

• palm/trunk/SOURCE/read_3d_binary.f90 (modified) (2 diffs)

palm/trunk/SOURCE/read_3d_binary.f90

@@ -4 +4 @@
 ! Current revisions:
 ! -----------------
+! +lpt_av
 !
 ! Former revisions:
@@ -395 +396 @@
                                 tmp_3d(:,nysf-nbgp:nynf+nbgp,nxlf-nbgp:nxrf+nbgp)
 
+                CASE ( 'lpt_av' )
+                   IF ( .NOT. ALLOCATED( lpt_av ) )  THEN
+                      ALLOCATE( lpt_av(nzb:nzt+1,nysg:nyng,nxlg:nxrg ))
+                   ENDIF
+                   IF ( k == 1 )  READ ( 13 )  tmp_3d
+                   lpt_av(:,nysc-nbgp:nync+nbgp,nxlc-nbgp:nxrc+nbgp) = &
+                                tmp_3d(:,nysf-nbgp:nynf+nbgp,nxlf-nbgp:nxrf+nbgp)
+
                 CASE ( 'lwp_av' )
                    IF ( .NOT. ALLOCATED( lwp_av ) )  THEN