Changeset 3936 for palm/trunk/SOURCE/read_restart_data_mod.f90

Timestamp:

Apr 26, 2019 3:38:02 PM (5 years ago)

Author:

kanani

Message:

Enable time-averaged output of theta_2m* with restarts

File:

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

palm/trunk/SOURCE/read_restart_data_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Enable time-averaged output of theta_2m* with restarts
+! 
+! 3767 2019-02-27 08:18:02Z raasch
 ! unused variables removed from rrd-subroutines parameter list
 ! 
@@ -1432 +1435 @@
                       tmp_3d(:,nysf-nbgp:nynf+nbgp,nxlf-nbgp:nxrf+nbgp)
 
+                CASE ( 'pt_2m_av' )
+                   IF ( .NOT. ALLOCATED( pt_2m_av ) )  THEN
+                      ALLOCATE( pt_2m_av(nysg:nyng,nxlg:nxrg) )
+                   ENDIF
+                   IF ( k == 1 )  READ ( 13 )  tmp_2d
+                   pt_2m_av(nysc-nbgp:nync+nbgp,nxlc-nbgp:nxrc+nbgp)  =        &
+                      tmp_2d(nysf-nbgp:nynf+nbgp,nxlf-nbgp:nxrf+nbgp)
+
                 CASE ( 'q' )
                    IF ( k == 1 )  READ ( 13 )  tmp_3d