Changeset 4339

Timestamp:

Dec 13, 2019 6:18:30 PM (5 years ago)

Author:

suehring

Message:

Bugfix, character strenght too short, caused crash on NEC

Location:

palm/trunk/SOURCE

Files:

• header.f90 (modified) (2 diffs)
• land_surface_model_mod.f90 (modified) (2 diffs)

palm/trunk/SOURCE/header.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Bugfix, character length too short, caused crash on NEC.
+! 
+! 4309 2019-11-26 18:49:59Z suehring
 ! replaced recycling_yshift by y_shift
 ! 
@@ -138 +141 @@
     CHARACTER (LEN=5)  ::  section_chr         !< string indicating grid information where to output 2D slices
     
-    CHARACTER (LEN=10) ::  coor_chr            !< string for subsidence velocities in large-scale forcing
     CHARACTER (LEN=10) ::  host_chr            !< string for hostname
     
     CHARACTER (LEN=16) ::  begin_chr           !< string indication start time for the data output
+    CHARACTER (LEN=16) ::  coor_chr            !< dummy string
     
     CHARACTER (LEN=26) ::  ver_rev             !< string for run identification

palm/trunk/SOURCE/land_surface_model_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Bugfix, character length too short, caused crash on NEC.
+! 
+! 4338 2019-12-13 13:23:23Z suehring
 ! To avoid divisions by zero, add security factor in calculation of roughness 
 ! length over water surfaces.
@@ -2233 +2236 @@
        CHARACTER (LEN=86) ::  m_soil_chr          !< String for soil moisture
        CHARACTER (LEN=86) ::  soil_depth_chr      !< String for soil depth
-       CHARACTER (LEN=10) ::  coor_chr            !< Temporary string
+       CHARACTER (LEN=20) ::  coor_chr            !< Temporary string
     
        INTEGER(iwp) ::  i                         !< Loop index over soil layers