Ignore:
Timestamp:
Apr 11, 2016 9:00:35 AM (6 years ago)
Author:
maronga
Message:

bugfix: radiation_scheme = constant caused model crash when used in combination with land surface model

File:
1 edited

Legend:

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

    r1852 r1853  
    1919! Current revisions:
    2020! ------------------
    21 !
     21! Adjusted for use with radiation_scheme = constant
    2222!
    2323! Former revisions:
     
    295295    USE radiation_model_mod,                                                   &
    296296        ONLY: dt_radiation, force_radiation_call, radiation,                   &
    297               radiation_clearsky, radiation_rrtmg, radiation_scheme,           &
    298               skip_time_do_radiation, time_radiation
     297              radiation_clearsky, radiation_constant, radiation_rrtmg,         &
     298              radiation_scheme, skip_time_do_radiation, time_radiation
    299299
    300300    USE spectra_mod,                                                           &
     
    863863                ELSEIF ( radiation_scheme == 'rrtmg' )  THEN
    864864                   CALL radiation_rrtmg
     865                ELSE
     866                   CALL radiation_constant
    865867                ENDIF
    866868
Note: See TracChangeset for help on using the changeset viewer.