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

Timestamp:

May 10, 2020 5:05:07 PM (5 years ago)

Author:

raasch

Message:

salsa: added reading/writing of global restart data + reading/writing restart data with MPI-IO, bugfix for MPI-IO in plant_canopy_model_mod, tutorial user-interface dispersion_eularian_and_lpm_extended updated

File:

• palm/trunk/SOURCE/module_interface.f90 (modified) (6 diffs)

palm/trunk/SOURCE/module_interface.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! added restart I/O for global salsa data,
+! added restart with MPI-IO for salsa
+! 
+! 4518 2020-05-04 15:44:28Z suehring
 ! Call of doq_rrd_local enabled
 ! 
@@ -489 +493 @@
                salsa_data_output_3d,                                           &
                salsa_statistics,                                               &
+               salsa_rrd_global,                                               &
                salsa_rrd_local,                                                &
+               salsa_wrd_global,                                               &
                salsa_wrd_local
 
@@ -1736 +1742 @@
     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 salsa_rrd_global( found )
     IF ( .NOT. found )  CALL stg_rrd_global ( found ) ! ToDo: change interface to pass variable
     IF ( .NOT. found )  CALL wtm_rrd_global( found ) ! ToDo: change interface to pass variable
@@ -1767 +1774 @@
     IF ( plant_canopy )         CALL pcm_rrd_global
     IF ( ocean_mode )           CALL ocean_rrd_global
+    IF ( salsa )                CALL salsa_rrd_global
     IF ( syn_turb_gen )         CALL stg_rrd_global
     IF ( wind_turbine )         CALL wtm_rrd_global
@@ -1798 +1806 @@
     IF ( plant_canopy )         CALL pcm_wrd_global
     IF ( ocean_mode )           CALL ocean_wrd_global
+    IF ( salsa )                CALL salsa_wrd_global
     IF ( syn_turb_gen )         CALL stg_wrd_global
     IF ( wind_turbine )         CALL wtm_wrd_global
@@ -2004 +2013 @@
     IF ( ocean_mode )           CALL ocean_rrd_local
     IF ( radiation )            CALL radiation_rrd_local
-!    IF ( salsa )                CALL salsa_rrd_local
+    IF ( salsa )                CALL salsa_rrd_local
     IF ( urban_surface )        CALL usm_rrd_local
     IF ( surface_output )       CALL surface_data_output_rrd_local