Ignore:
Timestamp:
Mar 22, 2018 3:05:23 PM (6 years ago)
Author:
Giersch
Message:

further inipar parameter has been added to restart data, bugfix in spinup mechanism

File:
1 edited

Legend:

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

    r2920 r2921  
    2828! -----------------
    2929! $Id$
     30! The activation of spinup has been moved to parin
     31!
     32! 2920 2018-03-22 11:22:01Z kanani
    3033! Remove unused pcbl, npcbl from ONLY list
    3134! moh.hefny:
     
    51775180       urban_surface = .TRUE.
    51785181
    5179 !
    5180 !--    Activate spinup
    5181        IF ( spinup_time > 0.0_wp )  THEN
    5182           coupling_start_time = spinup_time
    5183           IF ( spinup_pt_mean == 9999999.9_wp )  THEN
    5184              spinup_pt_mean = pt_surface
    5185           ENDIF
    5186           IF ( .NOT. spinup )  THEN
    5187              end_time = end_time + spinup_time
    5188              spinup = .TRUE.
    5189           ENDIF
    5190        ENDIF
    51915182
    51925183 10    CONTINUE
     5184
    51935185
    51945186    END SUBROUTINE usm_parin
Note: See TracChangeset for help on using the changeset viewer.