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

palm/trunk/SOURCE/wind_turbine_model_mod.f90

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! Some interface calls moved to module_interface + cleanup
+! 
+! 3655 2019-01-07 16:51:22Z knoop
 ! Replace degree symbol by 'degrees'
 !
@@ -992 +995 @@
        INTEGER(iwp), DIMENSION(:), ALLOCATABLE :: index_nacr       !< 
        INTEGER(iwp), DIMENSION(:), ALLOCATABLE :: index_nact       !< 
+       
+       CALL location_message( 'initializing wind turbine model', .FALSE. )
        
        ALLOCATE( index_nacb(1:nturbines) )
@@ -1347 +1352 @@
 
        CALL wtm_read_blade_tables
+
+       CALL location_message( 'finished', .TRUE. )
  
     END SUBROUTINE wtm_init