Changeset 3685 for palm/trunk/SOURCE/biometeorology_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/biometeorology_mod.f90 (modified) (3 diffs)

palm/trunk/SOURCE/biometeorology_mod.f90

@@ -27 +27 @@
 ! -----------------
 ! $Id$
+! Some interface calls moved to module_interface + cleanup
+! 
+! 3650 2019-01-04 13:01:33Z kanani
 ! Bugfixes and additions for enabling restarts with biometeorology 
 ! 
@@ -1114 +1117 @@
 !-- Internal vriables
     REAL ( wp )  :: height  !< current height in meters
+
+    CALL location_message( 'initializing biometeorology module', .FALSE. )
 !
 !-- Determine cell level corresponding to 1.1 m above ground level
@@ -1136 +1141 @@
 !-- Init UVEM and load lookup tables
     IF ( uv_exposure )  CALL netcdf_data_input_uvem
+    
+    CALL location_message( 'finished', .TRUE. )
 
  END SUBROUTINE bio_init