Ignore:
Timestamp:
Jul 1, 2019 5:33:33 AM (2 years ago)
Author:
gronemeier
Message:

Moved call to radiation module out of intermediate time loop (time_integration, time_integration_spinup)

File:
1 edited

Legend:

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

    r4023 r4064  
    2525! -----------------
    2626! $Id$
     27! Moved call to radiation module out of intermediate time loop
     28!
     29! 4023 2019-06-12 13:20:01Z maronga
    2730! Time stamps are now negative in run control output
    2831!
     
    426429          ENDIF
    427430
    428 !
    429 !--       If required, calculate radiative fluxes and heating rates
    430           IF ( radiation .AND. intermediate_timestep_count                     &
    431                == intermediate_timestep_count_max )  THEN
    432 
    433                time_radiation = time_radiation + dt_3d
    434 
    435              IF ( time_radiation >= dt_3d .OR. force_radiation_call )          &
    436              THEN
    437 
    438                 IF ( .NOT. force_radiation_call )  THEN
    439                    time_radiation = time_radiation - dt_3d
    440                 ENDIF
    441 
    442                 CALL radiation_control
    443 
    444                 IF ( radiation_interactions )  THEN
    445                    CALL radiation_interaction
    446                 ENDIF
     431       ENDDO   ! Intermediate step loop
     432
     433!
     434!--    If required, calculate radiative fluxes and heating rates
     435       IF ( radiation )  THEN
     436
     437            time_radiation = time_radiation + dt_3d
     438
     439          IF ( time_radiation >= dt_3d .OR. force_radiation_call )  THEN
     440
     441             IF ( .NOT. force_radiation_call )  THEN
     442                time_radiation = time_radiation - dt_3d
    447443             ENDIF
    448           ENDIF
    449 
    450        ENDDO   ! Intermediate step loop
     444
     445             CALL radiation_control
     446
     447             IF ( radiation_interactions )  THEN
     448                CALL radiation_interaction
     449             ENDIF
     450          ENDIF
     451       ENDIF
    451452
    452453!
Note: See TracChangeset for help on using the changeset viewer.