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

Timestamp:

Jan 21, 2019 1:02:11 AM (5 years ago)

Author:

knoop

Message:

Some interface calls moved to module_interface + cleanup

File:

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

palm/trunk/SOURCE/plant_canopy_model_mod.f90

@@ -27 +27 @@
 ! -----------------
 ! $Id$
+! Some interface calls moved to module_interface + cleanup
+! 
+! 3655 2019-01-07 16:51:22Z knoop
 ! unused variables removed
 ! 
@@ -902 +905 @@
        REAL(wp) ::  canopy_height   !< canopy height for lad-profile construction
 
+       CALL location_message( 'initializing plant canopy model', .FALSE. )
 !
 !--    Allocate one-dimensional arrays for the computation of the 
@@ -1209 +1213 @@
        ENDIF
 
+       CALL location_message( 'finished', .TRUE. )
+
 
     END SUBROUTINE pcm_init