Ignore:
Timestamp:
May 23, 2018 10:27:23 AM (3 years ago)
Author:
knoop
Message:

added separate size specification for log_point and log_point_s

File:
1 edited

Legend:

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

    r2932 r3028  
    184184    TYPE(logpoint), DIMENSION(100) ::  log_point = logpoint( 0.0_wp, 0.0_wp,   &
    185185                                       0.0_wp, 0.0_wp, 0.0_wp, 0.0_wp, 0.0_wp, &
    186                                        0, ' ' ),                               &
    187                                        log_point_s = logpoint( 0.0_wp, 0.0_wp, &
     186                                       0, ' ' )
     187    TYPE(logpoint), DIMENSION(100) ::  log_point_s = logpoint( 0.0_wp, 0.0_wp, &
    188188                                       0.0_wp, 0.0_wp, 0.0_wp, 0.0_wp, 0.0_wp, &
    189189                                       0, ' ' )
Note: See TracChangeset for help on using the changeset viewer.