Ignore:
Timestamp:
Jan 5, 2018 9:27:03 AM (4 years ago)
Author:
maronga
Message:

bugfixes for spinup mechanism to work with lsm+usm+radiation

File:
1 edited

Legend:

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

    r2720 r2723  
    2626! -----------------
    2727! $Id$
     28! Bugfix for spinups (end_time was increased twice in case of LSM + USM runs)
     29!
     30! 2720 2018-01-02 16:27:15Z kanani
    2831! Correction of comment
    2932!
     
    51075110       IF ( spinup_time > 0.0_wp )  THEN
    51085111          coupling_start_time = spinup_time
    5109           end_time = end_time + spinup_time
    51105112          IF ( spinup_pt_mean == 9999999.9_wp )  THEN
    51115113             spinup_pt_mean = pt_surface
    51125114          ENDIF
    5113           spinup = .TRUE.
     5115          IF ( .NOT. spinup )  THEN
     5116             end_time = end_time + spinup_time
     5117             spinup = .TRUE.
     5118          ENDIF
    51145119       ENDIF
    51155120
Note: See TracChangeset for help on using the changeset viewer.