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/gust_mod.f90

    r3665 r3685  
    2525! -----------------
    2626! $Id$
     27! Some interface calls moved to module_interface + cleanup
     28!
     29! 3665 2019-01-10 08:28:24Z raasch
    2730! dummy statements added to avoid compiler warnings about unused variables
    2831!
     
    279282!> Initialization of the gust module
    280283!------------------------------------------------------------------------------!
    281     SUBROUTINE gust_init( dots_label, dots_unit, dots_num, dots_max )
    282 
    283 
    284        IMPLICIT NONE
    285 
    286        INTEGER(iwp) ::  dots_num
    287        INTEGER(iwp) ::  dots_max
    288        CHARACTER (LEN=13), DIMENSION(dots_max) :: dots_unit
    289        CHARACTER (LEN=13), DIMENSION(dots_max) :: dots_label
    290 
    291 !
    292 !--    Next line is just to avoid compiler warnings about unused variables. You may remove it.
    293        IF ( dummy_logical )  idum = dots_num + dots_max + LEN( dots_unit(1) ) + LEN( dots_label(1) )
     284    SUBROUTINE gust_init
     285
     286
     287       IMPLICIT NONE
     288
    294289
    295290    END SUBROUTINE gust_init
Note: See TracChangeset for help on using the changeset viewer.