Ignore:
Timestamp:
Nov 30, 2016 2:34:05 PM (5 years ago)
Author:
raasch
Message:

mostly openmp related bugfixes

File:
1 edited

Legend:

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

    r2051 r2073  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! small bugfix concerning output of scalar profiles
    2323!
    2424! Former revisions:
     
    12211221       DO  WHILE ( s_vertical_gradient_level_ind(i) /= -9999 )
    12221222         
    1223           WRITE (coor_chr,'(E8.1,4X)')  s_init(q_vertical_gradient_level_ind(i))
     1223          WRITE (coor_chr,'(E8.1,4X)')  s_init(s_vertical_gradient_level_ind(i))
    12241224          temperatures = TRIM( temperatures ) // '  ' // TRIM( coor_chr )
    12251225
Note: See TracChangeset for help on using the changeset viewer.