Ignore:
Timestamp:
Nov 19, 2018 3:35:16 PM (3 years ago)
Author:
raasch
Message:

inifor integrated in build mechanism, some bugfixes in inifor to avoid compile time errors, batch_scp for sending back the job protocol file is called via login-node if a login-node has been set in the config-file, ssh-calls rearranged to avoid output of system/user-profile messages

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

Legend:

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

    r3456 r3534  
    2626! -----------------
    2727! $Id$
     28! NEW_LINE intrinsic replaced by ACHAR to avoid compile time error
     29!
     30! 3456 2018-10-30 14:29:54Z eckhard
    2831! Bumped version number
    2932!
     
    100103 CHARACTER(LEN=*), PARAMETER ::  VERSION = '1.4.1'            !< INIFOR version number
    101104 CHARACTER(LEN=*), PARAMETER ::  COPYRIGHT = 'Copyright 2017-2018 Leibniz Universitaet Hannover' // &
    102      NEW_LINE(' ') // ' Copyright 2017-2018 Deutscher Wetterdienst Offenbach' !< Copyright notice
     105     ACHAR( 10 ) // ' Copyright 2017-2018 Deutscher Wetterdienst Offenbach' !< Copyright notice
    103106
    104107 END MODULE defs
  • palm/trunk/UTIL/inifor/src/inifor_io.f90

    r3456 r3534  
    2626! -----------------
    2727! $Id$
     28! bugfix: INTENT attribute changed
     29!
     30! 3456 2018-10-30 14:29:54Z eckhard
    2831! NetCDf output of internal arrays only with --debug option
    2932!
     
    172175    SUBROUTINE get_input_dimensions(in_var, ncid)
    173176
    174        TYPE(nc_var), INTENT(INOUT)     ::  in_var
    175        INTEGER, INTENT(OUT)            ::  ncid
     177       TYPE(nc_var), INTENT(INOUT) ::  in_var
     178       INTEGER, INTENT(IN)         ::  ncid
    176179
    177180       INTEGER ::  i
  • palm/trunk/UTIL/inifor/src/inifor_transform.f90

    r3447 r3534  
    2626! -----------------
    2727! $Id$
     28! bugfix: working precision added
     29!
     30! 3447 2018-10-29 15:52:54Z eckhard
    2831! Renamed source files for compatibilty with PALM build system
    2932!
     
    348351
    349352       p(1) = constant_density_pressure(p(k_min), zk, rhok, drhodz,            &
    350                                         0.0, G)
     353                                        0.0_dp, G)
    351354
    352355    END SUBROUTINE get_surface_pressure
Note: See TracChangeset for help on using the changeset viewer.