Changeset 4339 for palm


Ignore:
Timestamp:
Dec 13, 2019 6:18:30 PM (15 months ago)
Author:
suehring
Message:

Bugfix, character strenght too short, caused crash on NEC

Location:
palm/trunk/SOURCE
Files:
2 edited

Legend:

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

    r4309 r4339  
    2525! -----------------
    2626! $Id$
     27! Bugfix, character length too short, caused crash on NEC.
     28!
     29! 4309 2019-11-26 18:49:59Z suehring
    2730! replaced recycling_yshift by y_shift
    2831!
     
    138141    CHARACTER (LEN=5)  ::  section_chr         !< string indicating grid information where to output 2D slices
    139142   
    140     CHARACTER (LEN=10) ::  coor_chr            !< string for subsidence velocities in large-scale forcing
    141143    CHARACTER (LEN=10) ::  host_chr            !< string for hostname
    142144   
    143145    CHARACTER (LEN=16) ::  begin_chr           !< string indication start time for the data output
     146    CHARACTER (LEN=16) ::  coor_chr            !< dummy string
    144147   
    145148    CHARACTER (LEN=26) ::  ver_rev             !< string for run identification
  • palm/trunk/SOURCE/land_surface_model_mod.f90

    r4338 r4339  
    2525! -----------------
    2626! $Id$
     27! Bugfix, character length too short, caused crash on NEC.
     28!
     29! 4338 2019-12-13 13:23:23Z suehring
    2730! To avoid divisions by zero, add security factor in calculation of roughness
    2831! length over water surfaces.
     
    22332236       CHARACTER (LEN=86) ::  m_soil_chr          !< String for soil moisture
    22342237       CHARACTER (LEN=86) ::  soil_depth_chr      !< String for soil depth
    2235        CHARACTER (LEN=10) ::  coor_chr            !< Temporary string
     2238       CHARACTER (LEN=20) ::  coor_chr            !< Temporary string
    22362239   
    22372240       INTEGER(iwp) ::  i                         !< Loop index over soil layers
Note: See TracChangeset for help on using the changeset viewer.