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

Timestamp:

May 4, 2020 3:44:28 PM (5 years ago)

Author:

suehring

Message:

Diagnostic output: Define arrays over ghost points in order to allow for standard mpi-io treatment. By this modularization of restart-data input is possible with the module interface. Move input of restart data to doq_rrd_local. Enable mpi-io for restart data. Bugfix: add missing restart input of wtheta_av, wq_av, wu_av, and wv_av.

File:

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

palm/trunk/SOURCE/module_interface.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Call of doq_rrd_local enabled
+! 
+! 4517 2020-05-03 14:29:30Z raasch
 ! added restart with MPI-IO for reading local arrays
 ! 
@@ -335 +338 @@
                doq_output_2d,                                                  &
                doq_output_3d,                                                  &
+               doq_rrd_local,                                                  &
                doq_wrd_local
-!                doq_rrd_local,                                                  &
 
     USE flight_mod,                                                            &
@@ -1878 +1881 @@
                             ) ! ToDo: change interface to pass variable
 
-!     IF ( .NOT. found )  CALL doq_rrd_local(                                    &
-!                                map_index,                                      &
-!                                nxlf, nxlc, nxl_on_file,                        &
-!                                nxrf, nxrc, nxr_on_file,                        &
-!                                nynf, nync, nyn_on_file,                        &
-!                                nysf, nysc, nys_on_file,                        &
-!                                tmp_3d_non_standard, found                      &
-!                             ) ! ToDo: change interface to pass variable CALL doq_wrd_local
+    IF ( .NOT. found )  CALL doq_rrd_local(                                    &
+                               map_index,                                      &
+                               nxlf, nxlc, nxl_on_file,                        &
+                               nxrf, nxrc, nxr_on_file,                        &
+                               nynf, nync, nyn_on_file,                        &
+                               nysf, nysc, nys_on_file,                        &
+                               tmp_2d, tmp_3d, found                           &
+                            ) ! ToDo: change interface to pass variable
 
     IF ( .NOT. found )  CALL gust_rrd_local(                                   &
@@ -1994 +1997 @@
     IF ( bulk_cloud_model )     CALL bcm_rrd_local
     IF ( air_chemistry )        CALL chem_rrd_local
-!    CALL doq_rrd_local
+    CALL doq_rrd_local
     IF ( gust_module_enabled )  CALL gust_rrd_local
     IF ( particle_advection )   CALL lpm_rrd_local