Ignore:
Timestamp:
Jan 21, 2019 1:02:11 AM (3 years ago)
Author:
knoop
Message:

Some interface calls moved to module_interface + cleanup

File:
1 edited

Legend:

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

    r3655 r3685  
    2626! -----------------
    2727! $Id$
     28! Some interface calls moved to module_interface + cleanup
     29!
     30! 3655 2019-01-07 16:51:22Z knoop
    2831! Replace degree symbol by 'degrees'
    2932!
     
    992995       INTEGER(iwp), DIMENSION(:), ALLOCATABLE :: index_nacr       !<
    993996       INTEGER(iwp), DIMENSION(:), ALLOCATABLE :: index_nact       !<
     997       
     998       CALL location_message( 'initializing wind turbine model', .FALSE. )
    994999       
    9951000       ALLOCATE( index_nacb(1:nturbines) )
     
    13471352
    13481353       CALL wtm_read_blade_tables
     1354
     1355       CALL location_message( 'finished', .TRUE. )
    13491356 
    13501357    END SUBROUTINE wtm_init
Note: See TracChangeset for help on using the changeset viewer.