Ignore:
Timestamp:
Mar 6, 2019 4:58:03 PM (3 years ago)
Author:
raasch
Message:

unused variables removed, interoperable C datatypes introduced in particle type to avoid compiler warnings

File:
1 edited

Legend:

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

    r3767 r3786  
    2525! -----------------
    2626! $Id$
     27! unsed variables removed
     28!
     29! 3767 2019-02-27 08:18:02Z raasch
    2730! unused variable for file index removed from rrd-subroutines parameter list
    2831!
     
    723726
    724727       USE statistics,                                                         &
    725            ONLY: hom, statistic_regions, pr_palm
     728           ONLY: hom, statistic_regions
    726729
    727730       IMPLICIT NONE
     
    821824       IMPLICIT NONE
    822825
    823        INTEGER(iwp) ::  i !<
    824        INTEGER(iwp) ::  j !<
    825        INTEGER(iwp) ::  k !<
    826826!
    827827!--    Liquid water content
     
    893893       INTEGER(iwp) ::  i !<
    894894       INTEGER(iwp) ::  j !<
    895        INTEGER(iwp) ::  k !<
    896895
    897896       CALL location_message( 'initializing bulk cloud module', .FALSE. )
Note: See TracChangeset for help on using the changeset viewer.