Changeset 2163 for palm/trunk/SOURCE


Ignore:
Timestamp:
Mar 1, 2017 1:23:15 PM (7 years ago)
Author:
schwenkel
Message:

Bugfix in radiation_check_data_output

File:
1 edited

Legend:

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

    r2158 r2163  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! Bugfix in radiation_check_data_output
    2323!
    2424! Former revisions:
     
    555555                CALL message( 'check_parameters', 'PA0406', 1, 2, 0, 6, 0 )
    556556             ENDIF
    557              unit = 'W/m2'     
     557             unit = 'K/h'     
     558
     559         CASE ( 'rad_lw_in', 'rad_lw_out', 'rad_sw_in', 'rad_sw_out' )
     560             IF (  .NOT.  radiation  .OR.  radiation_scheme /= 'rrtmg' )  THEN
     561                message_string = '"output of "' // TRIM( var ) // '" requi' // &
     562                                 'res radiation = .TRUE. and ' //              &
     563                                 'radiation_scheme = "rrtmg"'
     564                CALL message( 'check_parameters', 'PA0406', 1, 2, 0, 6, 0 )
     565             ENDIF
     566             unit = 'W/m2'   
    558567
    559568          CASE ( 'rad_net*', 'rrtm_aldif*', 'rrtm_aldir*', 'rrtm_asdif*',      &
Note: See TracChangeset for help on using the changeset viewer.