Changeset 3936 for palm/trunk


Ignore:
Timestamp:
Apr 26, 2019 3:38:02 PM (2 years ago)
Author:
kanani
Message:

Enable time-averaged output of theta_2m* with restarts

Location:
palm/trunk/SOURCE
Files:
2 edited

Legend:

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

    r3767 r3936  
    2525! -----------------
    2626! $Id$
     27! Enable time-averaged output of theta_2m* with restarts
     28!
     29! 3767 2019-02-27 08:18:02Z raasch
    2730! unused variables removed from rrd-subroutines parameter list
    2831!
     
    14321435                      tmp_3d(:,nysf-nbgp:nynf+nbgp,nxlf-nbgp:nxrf+nbgp)
    14331436
     1437                CASE ( 'pt_2m_av' )
     1438                   IF ( .NOT. ALLOCATED( pt_2m_av ) )  THEN
     1439                      ALLOCATE( pt_2m_av(nysg:nyng,nxlg:nxrg) )
     1440                   ENDIF
     1441                   IF ( k == 1 )  READ ( 13 )  tmp_2d
     1442                   pt_2m_av(nysc-nbgp:nync+nbgp,nxlc-nbgp:nxrc+nbgp)  =        &
     1443                      tmp_2d(nysf-nbgp:nynf+nbgp,nxlf-nbgp:nxrf+nbgp)
     1444
    14341445                CASE ( 'q' )
    14351446                   IF ( k == 1 )  READ ( 13 )  tmp_3d
  • palm/trunk/SOURCE/write_restart_data_mod.f90

    r3668 r3936  
    2525! -----------------
    2626! $Id$
     27! Enable time-averaged output of theta_2m* with restarts
     28!
     29! 3668 2019-01-14 12:49:24Z maronga
    2730! Implementation of the PALM module interface
    2831!
     
    973976       ENDIF
    974977
     978       IF ( ALLOCATED( pt_2m_av ) )  THEN
     979          CALL wrd_write_string( 'pt_2m_av' )
     980          WRITE ( 14 )  pt_2m_av
     981       ENDIF
     982
    975983       IF ( humidity )  THEN
    976984
Note: See TracChangeset for help on using the changeset viewer.