Ignore:
Timestamp:
Nov 28, 2012 4:18:43 PM (9 years ago)
Author:
maronga
Message:

allow usage of topography in combination with cloud physics, allow usage of topography in coupled ocean model, minor changes in mbuild and mrun

File:
1 edited

Legend:

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

    r1037 r1069  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! bugfix: added coupling_char to TOPOGRAPHY_DATA to allow topography in the ocean
     23!          model in case of coupled runs
    2324!
    2425! Former revisions:
     
    587588!--             Arbitrary irregular topography data in PALM format (exactly
    588589!--             matching the grid size and total domain size)
    589                 OPEN( 90, FILE='TOPOGRAPHY_DATA', STATUS='OLD', &
     590                OPEN( 90, FILE='TOPOGRAPHY_DATA'//coupling_char, STATUS='OLD', &
    590591                      FORM='FORMATTED', ERR=10 )
    591592                DO  j = ny, 0, -1
     
    595596                GOTO 12
    596597         
    597  10             message_string = 'file TOPOGRAPHY_DATA does not exist'
     598 10             message_string = 'file TOPOGRAPHY'//coupling_char//' does not exist'
    598599                CALL message( 'init_grid', 'PA0208', 1, 2, 0, 6, 0 )
    599600
    600  11             message_string = 'errors in file TOPOGRAPHY_DATA'
     601 11             message_string = 'errors in file TOPOGRAPHY_DATA'//coupling_char
    601602                CALL message( 'init_grid', 'PA0209', 1, 2, 0, 6, 0 )
    602603
Note: See TracChangeset for help on using the changeset viewer.