Changeset 3614 for palm/trunk/UTIL


Ignore:
Timestamp:
Dec 10, 2018 7:05:46 AM (3 years ago)
Author:
raasch
Message:

unused variables removed, abort renamed inifor_abort to avoid intrinsic problem in Fortran

Location:
palm/trunk/UTIL/inifor/src
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/UTIL/inifor/src/inifor_control.f90

    r3557 r3614  
    2626! -----------------
    2727! $Id$
     28! abort renamed inifor_abort to avoid intrinsic problem in Fortran
     29!
     30! 3557 2018-11-22 16:01:22Z eckhard
    2831! Updated documentation
    2932!
     
    7881!> You can use this routine to log events across INIFOR's code to log. For
    7982!> warnings and abort messages, you may use the dedicated routines warn() and
    80 !> abort() in this module. Both use report() and add specific behaviour to it.
     83!> inifor_abort() in this module. Both use report() and add specific behaviour
     84!> to it.
    8185!------------------------------------------------------------------------------!
    8286    SUBROUTINE report(routine, message, debug)
     
    138142! ------------
    139143!>
    140 !> abort() prepends "ERROR:" the given 'message' and prints the result to the
    141 !> terminal, writes it to the INIFOR logfile, and exits INIFOR.
     144!> inifor_abort() prepends "ERROR:" the given 'message' and prints the result to
     145!> stdout, writes it to the INIFOR logfile, and exits INIFOR.
    142146!>
    143147!> You can use this routine for messaging issues, that are critical and prevent
    144148!> INIFOR from continueing.
    145149!------------------------------------------------------------------------------!
    146     SUBROUTINE abort(routine, message)
     150    SUBROUTINE inifor_abort(routine, message)
    147151
    148152       CHARACTER(LEN=*), INTENT(IN) ::  routine !< name of calling subroutine or function
     
    152156       STOP
    153157
    154     END SUBROUTINE abort
     158    END SUBROUTINE inifor_abort
    155159
    156160
     
    218222
    219223             CASE DEFAULT
    220                 CALL abort('run_control', "Time Budget '" // TRIM(mode) // "' is not supported.")
     224                CALL inifor_abort('run_control', "Time Budget '" // TRIM(mode) // "' is not supported.")
    221225
    222226          END SELECT
     
    248252
    249253       CASE DEFAULT
    250           CALL abort('run_control', "Mode '" // TRIM(mode) // "' is not supported.")
     254          CALL inifor_abort('run_control', "Mode '" // TRIM(mode) // "' is not supported.")
    251255
    252256       END SELECT
  • palm/trunk/UTIL/inifor/src/inifor_grid.f90

    r3613 r3614  
    2626! -----------------
    2727! $Id$
     28! unused variables removed
     29!
     30! 3613 2018-12-07 18:20:37Z eckhard
    2831! Average initial profiles only over PALM domain region, not the
    2932!     geostrophic-wind averaging region
     
    15201523       LOGICAL                              :: level_based_averaging
    15211524
    1522        INTEGER :: i, j
    1523 
    15241525       ALLOCATE( avg_grid % x(1) )
    15251526       ALLOCATE( avg_grid % y(1) )
  • palm/trunk/UTIL/inifor/src/inifor_transform.f90

    r3613 r3614  
    2626! -----------------
    2727! $Id$
     28! unused variables removed
     29!
     30! 3613 2018-12-07 18:20:37Z eckhard
    2831! Use averaged heights profile for level-based averaging instead of modified
    2932!    COSMO heights array
     
    398401
    399402       REAL(dp) ::  drhodz, dz, zk, rhok
    400        INTEGER  ::  k, k_min
     403       INTEGER  ::  k_min
    401404
    402405       k_min = avg_grid % k_min
Note: See TracChangeset for help on using the changeset viewer.