Changeset 3534 for palm/trunk/UTIL/inifor/src

Timestamp:

Nov 19, 2018 3:35:16 PM (5 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:

• inifor_defs.f90 (modified) (2 diffs)
• inifor_io.f90 (modified) (2 diffs)
• inifor_transform.f90 (modified) (2 diffs)

palm/trunk/UTIL/inifor/src/inifor_defs.f90

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! NEW_LINE intrinsic replaced by ACHAR to avoid compile time error
+! 
+! 3456 2018-10-30 14:29:54Z eckhard
 ! Bumped version number
 ! 
@@ -100 +103 @@
  CHARACTER(LEN=*), PARAMETER ::  VERSION = '1.4.1'            !< INIFOR version number
  CHARACTER(LEN=*), PARAMETER ::  COPYRIGHT = 'Copyright 2017-2018 Leibniz Universitaet Hannover' // &
-     NEW_LINE(' ') // ' Copyright 2017-2018 Deutscher Wetterdienst Offenbach' !< Copyright notice
+     ACHAR( 10 ) // ' Copyright 2017-2018 Deutscher Wetterdienst Offenbach' !< Copyright notice
 
  END MODULE defs

palm/trunk/UTIL/inifor/src/inifor_io.f90

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! bugfix: INTENT attribute changed
+! 
+! 3456 2018-10-30 14:29:54Z eckhard
 ! NetCDf output of internal arrays only with --debug option 
 ! 
@@ -172 +175 @@
     SUBROUTINE get_input_dimensions(in_var, ncid)
 
-       TYPE(nc_var), INTENT(INOUT)     ::  in_var
-       INTEGER, INTENT(OUT)            ::  ncid
+       TYPE(nc_var), INTENT(INOUT) ::  in_var
+       INTEGER, INTENT(IN)         ::  ncid
 
        INTEGER ::  i

palm/trunk/UTIL/inifor/src/inifor_transform.f90

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! bugfix: working precision added
+! 
+! 3447 2018-10-29 15:52:54Z eckhard
 ! Renamed source files for compatibilty with PALM build system
 ! 
@@ -348 +351 @@
 
        p(1) = constant_density_pressure(p(k_min), zk, rhok, drhodz,            &
-                                        0.0, G)
+                                        0.0_dp, G)
 
     END SUBROUTINE get_surface_pressure