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

Timestamp:

Apr 30, 2020 4:29:59 PM (5 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/module_interface.f90 (modified) (5 diffs)

palm/trunk/SOURCE/module_interface.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Added global restart routines for plant-canopy model
+! 
+! 4495 2020-04-13 20:11:20Z raasch
 ! restart data handling with MPI-IO added
 ! 
@@ -442 +445 @@
                pcm_3d_data_averaging,                                          &
                pcm_data_output_3d,                                             &
+               pcm_rrd_global,                                                 &
                pcm_rrd_local,                                                  &
+               pcm_wrd_global,                                                 &
                pcm_wrd_local
 
@@ -1722 +1727 @@
     IF ( .NOT. found )  CALL gust_rrd_global( found ) ! ToDo: change interface to pass variable
     IF ( .NOT. found )  CALL lpm_rrd_global( found ) ! ToDo: change interface to pass variable
+    IF ( .NOT. found )  CALL pcm_rrd_global( found )
     IF ( .NOT. found )  CALL ocean_rrd_global( found ) ! ToDo: change interface to pass variable
     IF ( .NOT. found )  CALL stg_rrd_global ( found ) ! ToDo: change interface to pass variable
@@ -1752 +1758 @@
     IF ( gust_module_enabled )  CALL gust_rrd_global
     IF ( particle_advection )   CALL lpm_rrd_global
+    IF ( plant_canopy )         CALL pcm_rrd_global
     IF ( ocean_mode )           CALL ocean_rrd_global
     IF ( syn_turb_gen )         CALL stg_rrd_global
@@ -1782 +1789 @@
     IF ( gust_module_enabled )  CALL gust_wrd_global
     IF ( particle_advection )   CALL lpm_wrd_global
+    IF ( plant_canopy )         CALL pcm_wrd_global
     IF ( ocean_mode )           CALL ocean_wrd_global
     IF ( syn_turb_gen )         CALL stg_wrd_global