Changeset 3828 for palm/trunk/SOURCE


Ignore:
Timestamp:
Mar 27, 2019 7:36:23 PM (3 years ago)
Author:
raasch
Message:

further gfortran warnings activated on testserver, unused variables removed

File:
1 edited

Legend:

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

    r3676 r3828  
    2525! -----------------
    2626! $Id$
     27! unused variables removed
     28!
     29! 3676 2019-01-16 15:07:05Z knoop
    2730! Bugfix, terminate OMP Parallel block
    2831!
     
    362365               rad_sw_in, rad_sw_out, rad_sw_cs_hr, rad_sw_hr
    363366
    364 #if defined ( __rrtmg )
    365     USE radiation_model_mod,                                                   &
    366         ONLY:  rrtm_aldif, rrtm_aldir, rrtm_asdif, rrtm_asdir
    367 #endif
    368  
    369367    USE statistics
    370368
    371        USE surface_mod,                                                        &
    372           ONLY :  surf_def_h, surf_lsm_h, surf_usm_h
     369    USE surface_mod,                                                           &
     370        ONLY :  surf_def_h, surf_lsm_h, surf_usm_h
    373371
    374372
Note: See TracChangeset for help on using the changeset viewer.