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

Timestamp:

Jan 7, 2020 11:25:50 AM (4 years ago)

Author:

suehring

Message:

Bugfix in output of time-averaged plant-canopy quanities; Output of plant-canopy data only where tall canopy is defined; land-surface model: fix wrong location strings; tests: update urban test case; all source code files: copyright update

File:

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

palm/trunk/SOURCE/module_interface.f90

@@ -15 +15 @@
 ! PALM. If not, see <http://www.gnu.org/licenses/>.
 !
-! Copyright 1997-2019 Leibniz Universitaet Hannover
+! Copyright 1997-2020 Leibniz Universitaet Hannover
 !------------------------------------------------------------------------------!
 !
@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Add pcm_rrd_local and pcm_wrd_local
+! 
+! 4331 2019-12-10 18:25:02Z suehring
 ! Change interface for doq_check_data_output, in order to perform further 
 ! output checks.
@@ -408 +411 @@
                pcm_header,                                                     &
                pcm_3d_data_averaging,                                          &
-               pcm_data_output_3d
+               pcm_data_output_3d,                                             &
+               pcm_rrd_local,                                                  &
+               pcm_wrd_local
 
     USE radiation_model_mod,                                                   &
@@ -1778 +1783 @@
                             ) ! ToDo: change interface to pass variable
 
+     IF ( .NOT. found )  CALL pcm_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                           &
+                                           )
+
     IF ( .NOT. found )  CALL ocean_rrd_local(                                  &
                                map_index,                                      &
@@ -1851 +1865 @@
     IF ( particle_advection )   CALL lpm_wrd_local
     IF ( land_surface )         CALL lsm_wrd_local
+    IF ( plant_canopy )         CALL pcm_wrd_local
     IF ( ocean_mode )           CALL ocean_wrd_local
     IF ( radiation )            CALL radiation_wrd_local