Ignore:
Timestamp:
Dec 4, 2018 8:40:18 AM (3 years ago)
Author:
maronga
Message:

revised calculation of near surface air potential temperature

File:
1 edited

Legend:

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

    r3467 r3597  
    2525! -----------------
    2626! $Id$
     27! Removed call to calculation of near air (10 cm) potential temperature (now in
     28! surface layer fluxes)
     29!
     30! 3467 2018-10-30 19:05:21Z suehring
    2731! call to material_heat_model now with check if spinup runs (rvtils)
    2832!
     
    129133    USE land_surface_model_mod,                                                &
    130134        ONLY:  lsm_energy_balance, lsm_soil_model, lsm_swap_timelevel
    131 
    132135    USE pegrid
    133136
     
    154157        ONLY:  usm_material_heat_model, usm_material_model,                    &
    155158               usm_surface_energy_balance, usm_swap_timelevel,                 &
    156                usm_green_heat_model, usm_temperature_near_surface
     159               usm_green_heat_model
    157160
    158161
     
    389392                CALL lsm_energy_balance( .FALSE., 3 )
    390393                CALL lsm_soil_model( .FALSE., 3, calc_soil_moisture_during_spinup )
    391 
     394               
    392395                CALL cpu_log( log_point(54), 'land_surface', 'stop' )
    393396             ENDIF
     
    403406                   CALL usm_material_heat_model( .TRUE. )
    404407                ENDIF
    405                 IF ( urban_surface ) THEN
    406                    CALL usm_temperature_near_surface
    407                 ENDIF
     408               
    408409                CALL cpu_log( log_point(74), 'urban_surface', 'stop' )
    409410             ENDIF
Note: See TracChangeset for help on using the changeset viewer.