Changeset 4457 for palm/trunk/SOURCE/plant_canopy_model_mod.f90

Timestamp:

Mar 11, 2020 2:20:43 PM (4 years ago)

Author:

raasch

Message:

ghost point exchange modularized, bugfix for wrong 2d-exchange

File:

• palm/trunk/SOURCE/plant_canopy_model_mod.f90 (modified) (3 diffs)

palm/trunk/SOURCE/plant_canopy_model_mod.f90

@@ -27 +27 @@
 ! -----------------
 !
+! use statement for exchange horiz added
+! 
+! 
 ! $Id$
 ! (salim) removed the error message PA0672 to consider PC 3d data via ascii file
@@ -972 +975 @@
     SUBROUTINE pcm_init
 
+       USE exchange_horiz_mod,                                                    &
+           ONLY:  exchange_horiz
+
        INTEGER(iwp) ::  i   !< running index
        INTEGER(iwp) ::  j   !< running index
@@ -1540 +1546 @@
     SUBROUTINE pcm_read_plant_canopy_3d
 
+       USE exchange_horiz_mod,                                                    &
+           ONLY:  exchange_horiz
+
        INTEGER(iwp)                        ::  dtype     !< type of input data (1=lad)
        INTEGER(iwp)                        ::  pctype    !< type of plant canopy (deciduous,non-deciduous,...)