Ignore:
Timestamp:
Mar 26, 2020 4:28:19 PM (18 months ago)
Author:
gronemeier
Message:

bugfixes/changes to INIFOR:

  • c: revise output format in routine report (inifor_control)
  • b: check if namelist file was opened (inifor_grid)
  • b: use explicit loop in routine reverse (inifor_util)
File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/UTIL/inifor/src/inifor_grid.f90

    r4074 r4475  
    2626! -----------------
    2727! $Id$
     28! Bugfix: check if namelist file could be opened without error
     29!
     30! 4074 2019-07-05 13:05:19Z eckhard
    2831! Changed default initialization mode from 'volume' to 'profile'
    2932! Pass hhl_file to cosmo_grid() instead of entire INIFOR configuration
     
    491494!
    492495!-- Read in namelist parameters
    493     OPEN(10, FILE=cfg%namelist_file, STATUS='old')
     496    OPEN(10, FILE=cfg%namelist_file, STATUS='old', IOSTAT=iostat)
     497    IF ( iostat /= 0 )  THEN
     498       message = "Failed to open file '" //             &
     499                 TRIM( cfg%namelist_file ) // "'. "
     500       CALL inifor_abort( 'setup_parameters', message )
     501    ENDIF
     502
    494503    READ(10, NML=inipar, IOSTAT=iostat) ! nx, ny, nz, dx, dy, dz   
    495504    IF ( iostat > 0 )  THEN     
Note: See TracChangeset for help on using the changeset viewer.