Changeset 4514 for palm/trunk/SOURCE/write_restart_data_mod.f90

Timestamp:

Apr 30, 2020 4:29:59 PM (4 years ago)

Author:

suehring

Message:

Bugfix in plant-canopy model for output of averaged transpiration rate after a restart; Revise check for output for plant heating rate and rename error message number; Surface-data output: enable output of mixing ratio and passive scalar concentration at the surface; Surface-data input: Add possibility to prescribe surface sensible and latent heat fluxes via static input file

File:

• palm/trunk/SOURCE/write_restart_data_mod.f90 (modified) (5 diffs)

palm/trunk/SOURCE/write_restart_data_mod.f90

@@ -24 +24 @@
 ! -----------------
 ! $Id$
+! qsurf and ssurf added
+! 
+! 4495 2020-04-13 20:11:20Z raasch
 ! restart data handling with MPI-IO added
 ! 
@@ -1254 +1257 @@
           ENDIF
 
+          IF ( ALLOCATED( qsurf_av ) )  THEN
+             CALL wrd_write_string( 'qsurf_av' )
+             WRITE ( 14 )  qsurf_av
+          ENDIF
+
           IF ( ALLOCATED( qsws_av ) )  THEN
              CALL wrd_write_string( 'qsws_av' )
@@ -1269 +1277 @@
              CALL wrd_write_string( 's_av' )
              WRITE ( 14 )  s_av
+          ENDIF
+
+          IF ( ALLOCATED( ssurf_av ) )  THEN
+             CALL wrd_write_string( 'ssurf_av' )
+             WRITE ( 14 )  ssurf_av
           ENDIF
 
@@ -1491 +1504 @@
           ENDIF
 
+          IF ( ALLOCATED( qsurf_av ) )  CALL wrd_mpi_io( 'qsurf_av', qsurf_av )
           IF ( ALLOCATED( qsws_av ) )  CALL wrd_mpi_io( 'qsws_av', qsws_av )
 
@@ -1499 +1513 @@
           CALL wrd_mpi_io( 's', s )
           IF ( ALLOCATED( s_av ) )  CALL wrd_mpi_io( 's_av',  s_av )
+          IF ( ALLOCATED( ssurf_av ) )  CALL wrd_mpi_io( 'ssurf_av', ssurf_av )
           IF ( ALLOCATED( ssws_av ) )  CALL wrd_mpi_io( 'ssws_av', ssws_av )