Changeset 3936 for palm/trunk/SOURCE

Timestamp:

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

Author:

kanani

Message:

Enable time-averaged output of theta_2m* with restarts

Location:

palm/trunk/SOURCE

Files:

• read_restart_data_mod.f90 (modified) (2 diffs)
• write_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

palm/trunk/SOURCE/write_restart_data_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Enable time-averaged output of theta_2m* with restarts
+! 
+! 3668 2019-01-14 12:49:24Z maronga
 ! Implementation of the PALM module interface
 ! 
@@ -973 +976 @@
        ENDIF
 
+       IF ( ALLOCATED( pt_2m_av ) )  THEN
+          CALL wrd_write_string( 'pt_2m_av' ) 
+          WRITE ( 14 )  pt_2m_av
+       ENDIF
+
        IF ( humidity )  THEN