Ignore:
Timestamp:
Jan 5, 2018 12:12:38 PM (7 years ago)
Author:
maronga
Message:

some changes in spinup mechanism and additional check in land surface model

File:
1 edited

Legend:

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

    r2723 r2724  
    2525! -----------------
    2626! $Id$
     27! Use dt_spinup for all active components during spinup
     28!
     29! 2723 2018-01-05 09:27:03Z maronga
    2730! Bugfix: array rad_sw_in no longer exists and is thus removed from RUN_CONTROL
    2831! output.
     
    99102
    100103    USE radiation_model_mod,                                                   &
    101         ONLY:  dt_radiation, force_radiation_call, radiation,                  &
     104        ONLY:  force_radiation_call, radiation,                                &
    102105               radiation_control, rad_sw_in, time_radiation,                   &
    103106               radiation_interaction, radiation_interactions
     
    311314               time_radiation = time_radiation + dt_3d
    312315
    313              IF ( time_radiation >= dt_radiation .OR. force_radiation_call )   &
     316             IF ( time_radiation >= dt_3d .OR. force_radiation_call )          &
    314317             THEN
    315318
     
    317320
    318321                IF ( .NOT. force_radiation_call )  THEN
    319                    time_radiation = time_radiation - dt_radiation
     322                   time_radiation = time_radiation - dt_3d
    320323                ENDIF
    321324
Note: See TracChangeset for help on using the changeset viewer.