Changeset 3633 for palm/trunk/SOURCE


Ignore:
Timestamp:
Dec 17, 2018 4:17:57 PM (6 years ago)
Author:
schwenkel
Message:

your commit message

File:
1 edited

Legend:

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

    r3630 r3633  
    2828! -----------------
    2929! $Id$
     30! Include check for rrtmg files
     31!
     32! 3630 2018-12-17 11:04:17Z knoop
    3033! - fix initialization of date and time after calling zenith
    3134! - fix a bug in radiation_solar_pos
     
    798801
    799802    LOGICAL :: snd_exists = .FALSE.      !< flag parameter to check whether a user-defined input files exists
     803    LOGICAL :: sw_exists = .FALSE.       !< flag parameter to check whether that required rrtmg sw file exists
     804    LOGICAL :: lw_exists = .FALSE.       !< flag parameter to check whether that required rrtmg lw file exists
     805
    800806
    801807    REAL(wp), PARAMETER :: mol_mass_air_d_wv = 1.607793_wp !< molecular weight dry air / water vapor
     
    25952601
    25962602!
    2597 !--       Initialize RRTMG
     2603!--       Initialize RRTMG, before check if files are existent
     2604          INQUIRE( FILE='rrtmg_lw.nc' // TRIM( coupling_char ), EXIST=lw_exists )
     2605          IF ( .NOT. lw_exists )  THEN
     2606             message_string = 'Input file rrtmg_lw.nc' //                &
     2607                            TRIM( coupling_char ) // ' for rrtmg missing. ' // &
     2608                            '&Please provide <jobname>_lsw file in the INPUT directory.'
     2609             CALL message( 'radiation_init', 'PA0583', 1, 2, 0, 6, 0 )
     2610          ENDIF         
     2611          INQUIRE( FILE='rrtmg_sw.nc' // TRIM( coupling_char ), EXIST=sw_exists )
     2612          IF ( .NOT. sw_exists )  THEN
     2613             message_string = 'Input file rrtmg_sw.nc' //                &
     2614                            TRIM( coupling_char ) // ' for rrtmg missing. ' // &
     2615                            '&Please provide <jobname>_rsw file in the INPUT directory.'
     2616             CALL message( 'radiation_init', 'PA0584', 1, 2, 0, 6, 0 )
     2617          ENDIF         
     2618         
    25982619          IF ( lw_radiation )  CALL rrtmg_lw_ini ( c_p )
    25992620          IF ( sw_radiation )  CALL rrtmg_sw_ini ( c_p )
    2600 
     2621         
    26012622!
    26022623!--       Set input files for RRTMG
Note: See TracChangeset for help on using the changeset viewer.