Ignore:
Timestamp:
Jan 7, 2020 11:25:50 AM (16 months 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:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/module_interface.f90

    r4331 r4360  
    1515! PALM. If not, see <http://www.gnu.org/licenses/>.
    1616!
    17 ! Copyright 1997-2019 Leibniz Universitaet Hannover
     17! Copyright 1997-2020 Leibniz Universitaet Hannover
    1818!------------------------------------------------------------------------------!
    1919!
     
    2525! -----------------
    2626! $Id$
     27! Add pcm_rrd_local and pcm_wrd_local
     28!
     29! 4331 2019-12-10 18:25:02Z suehring
    2730! Change interface for doq_check_data_output, in order to perform further
    2831! output checks.
     
    408411               pcm_header,                                                     &
    409412               pcm_3d_data_averaging,                                          &
    410                pcm_data_output_3d
     413               pcm_data_output_3d,                                             &
     414               pcm_rrd_local,                                                  &
     415               pcm_wrd_local
    411416
    412417    USE radiation_model_mod,                                                   &
     
    17781783                            ) ! ToDo: change interface to pass variable
    17791784
     1785     IF ( .NOT. found )  CALL pcm_rrd_local(                                   &
     1786                               map_index,                                      &
     1787                               nxlf, nxlc, nxl_on_file,                        &
     1788                               nxrf, nxrc, nxr_on_file,                        &
     1789                               nynf, nync, nyn_on_file,                        &
     1790                               nysf, nysc, nys_on_file,                        &
     1791                               tmp_2d, tmp_3d, found                           &
     1792                                           )
     1793
    17801794    IF ( .NOT. found )  CALL ocean_rrd_local(                                  &
    17811795                               map_index,                                      &
     
    18511865    IF ( particle_advection )   CALL lpm_wrd_local
    18521866    IF ( land_surface )         CALL lsm_wrd_local
     1867    IF ( plant_canopy )         CALL pcm_wrd_local
    18531868    IF ( ocean_mode )           CALL ocean_wrd_local
    18541869    IF ( radiation )            CALL radiation_wrd_local
Note: See TracChangeset for help on using the changeset viewer.