Ignore:
Timestamp:
Mar 13, 2018 4:24:40 PM (3 years ago)
Author:
maronga
Message:

bugfix in land surface model and new option in spinup

File:
1 edited

Legend:

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

    r2818 r2881  
    2525! -----------------
    2626! $Id$
     27! Added flag for switching on/off calculation of soil moisture
     28!
     29! 2818 2018-02-19 16:42:36Z maronga
    2730! Velocity components near walls/ground are now set to the profiles stored in
    2831! u_init and v_init. Activated soil moisture calculation during spinup.
     
    8386
    8487    USE control_parameters,                                                    &
    85         ONLY:  averaging_interval_pr, constant_diffusion, constant_flux_layer, &
     88        ONLY:  averaging_interval_pr, calc_soil_moisture_during_spinup,        &
     89               constant_diffusion, constant_flux_layer,                        &
    8690               coupling_start_time, current_timestep_number,                   &
    8791               data_output_during_spinup, disturbance_created, dopr_n, do_sum, &
     
    348352!--             Call for horizontal upward-facing surfaces
    349353                CALL lsm_energy_balance( .TRUE., -1 )
    350                 CALL lsm_soil_model( .TRUE., -1, .TRUE. )
     354                CALL lsm_soil_model( .TRUE., -1, calc_soil_moisture_during_spinup )
    351355!
    352356!--             Call for northward-facing surfaces
    353357                CALL lsm_energy_balance( .FALSE., 0 )
    354                 CALL lsm_soil_model( .FALSE., 0, .TRUE. )
     358                CALL lsm_soil_model( .FALSE., 0, calc_soil_moisture_during_spinup )
    355359!
    356360!--             Call for southward-facing surfaces
    357361                CALL lsm_energy_balance( .FALSE., 1 )
    358                 CALL lsm_soil_model( .FALSE., 1, .TRUE. )
     362                CALL lsm_soil_model( .FALSE., 1, calc_soil_moisture_during_spinup )
    359363!
    360364!--             Call for eastward-facing surfaces
    361365                CALL lsm_energy_balance( .FALSE., 2 )
    362                 CALL lsm_soil_model( .FALSE., 2, .TRUE. )
     366                CALL lsm_soil_model( .FALSE., 2, calc_soil_moisture_during_spinup )
    363367!
    364368!--             Call for westward-facing surfaces
    365369                CALL lsm_energy_balance( .FALSE., 3 )
    366                 CALL lsm_soil_model( .FALSE., 3, .TRUE. )
     370                CALL lsm_soil_model( .FALSE., 3, calc_soil_moisture_during_spinup )
    367371
    368372                CALL cpu_log( log_point(54), 'land_surface', 'stop' )
Note: See TracChangeset for help on using the changeset viewer.