Changeset 3667


Ignore:
Timestamp:
Jan 10, 2019 2:26:24 PM (6 years ago)
Author:
schwenkel
Message:

Modified rrtmg input files check

File:
1 edited

Legend:

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

    r3655 r3667  
    2828! -----------------
    2929! $Id$
     30! Modified check for rrtmg input files
     31!
     32! 3655 2019-01-07 16:51:22Z knoop
    3033! nopointer option removed
    3134!
     
    26052608!
    26062609!--       Initialize RRTMG, before check if files are existent
    2607           INQUIRE( FILE='rrtmg_lw.nc' // TRIM( coupling_char ), EXIST=lw_exists )
     2610          INQUIRE( FILE='rrtmg_lw.nc', EXIST=lw_exists )
    26082611          IF ( .NOT. lw_exists )  THEN
    26092612             message_string = 'Input file rrtmg_lw.nc' //                &
    2610                             TRIM( coupling_char ) // ' for rrtmg missing. ' // &
     2613                            '&for rrtmg missing. ' // &
    26112614                            '&Please provide <jobname>_lsw file in the INPUT directory.'
    26122615             CALL message( 'radiation_init', 'PA0583', 1, 2, 0, 6, 0 )
    26132616          ENDIF         
    2614           INQUIRE( FILE='rrtmg_sw.nc' // TRIM( coupling_char ), EXIST=sw_exists )
     2617          INQUIRE( FILE='rrtmg_sw.nc', EXIST=sw_exists )
    26152618          IF ( .NOT. sw_exists )  THEN
    26162619             message_string = 'Input file rrtmg_sw.nc' //                &
    2617                             TRIM( coupling_char ) // ' for rrtmg missing. ' // &
     2620                            '&for rrtmg missing. ' // &
    26182621                            '&Please provide <jobname>_rsw file in the INPUT directory.'
    26192622             CALL message( 'radiation_init', 'PA0584', 1, 2, 0, 6, 0 )
Note: See TracChangeset for help on using the changeset viewer.