Changeset 4635 for palm


Ignore:
Timestamp:
Aug 5, 2020 4:44:15 PM (6 weeks ago)
Author:
suehring
Message:

Bugfix in calling radiation_control, was called every dt_spinup rather than only dt_radiation

File:
1 edited

Legend:

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

    r4631 r4635  
    2525! -----------------
    2626! $Id$
     27! Bugfix in calling radiation_control, was called every dt_spinup rather than only dt_radiation
     28!
     29! 4631 2020-08-03 13:48:14Z suehring
    2730! Set pt1 attribute only element-wise
    2831!
     
    161164
    162165    USE radiation_model_mod,                                                                       &
    163         ONLY:  force_radiation_call,                                                               &
     166        ONLY:  dt_radiation,                                                                       &
     167               force_radiation_call,                                                               &
    164168               radiation,                                                                          &
    165169               radiation_control,                                                                  &
     
    444448       IF ( radiation )  THEN
    445449
    446             time_radiation = time_radiation + dt_3d
    447 
    448           IF ( time_radiation >= dt_3d .OR. force_radiation_call )  THEN
     450          time_radiation = time_radiation + dt_3d
     451
     452          IF ( time_radiation >= dt_radiation .OR. force_radiation_call )  THEN
    449453
    450454             IF ( .NOT. force_radiation_call )  THEN
    451                 time_radiation = time_radiation - dt_3d
     455                time_radiation = time_radiation - dt_radiation
    452456             ENDIF
    453457
Note: See TracChangeset for help on using the changeset viewer.