Changeset 4548


Ignore:
Timestamp:
May 28, 2020 7:36:45 PM (4 years ago)
Author:
suehring
Message:

Bugfix, move call for lsf_forcing_surf after lsf_init is called

File:
1 edited

Legend:

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

    r4514 r4548  
    2525! -----------------
    2626! $Id$
     27! Bugfix, move call for lsf_forcing_surf after lsf_init is called
     28!
     29! 4514 2020-04-30 16:29:59Z suehring
    2730! Add possibility to initialize surface sensible and latent heat fluxes via
    2831! a static driver.
     
    18531856    DEALLOCATE( mean_surface_level_height_l, ngp_2dh_l, ngp_2dh_outer_l,       &
    18541857                ngp_3d_inner_l, ngp_3d_inner_tmp )
    1855 !
    1856 !-- Initialize surface forcing corresponding to large-scale forcing. Therein,
    1857 !-- initialize heat-fluxes, etc. via datatype. Revise it later!
    1858     IF ( large_scale_forcing .AND. lsf_surf )  THEN
    1859        IF ( use_surface_fluxes  .AND.  constant_heatflux )  THEN
    1860           CALL ls_forcing_surf ( simulated_time )
    1861        ENDIF
    1862     ENDIF
     1858
    18631859!
    18641860!-- Initializae 3D offline nesting in COSMO model and read data from
     
    19651961
    19661962!
     1963!-- Initialize surface forcing corresponding to large-scale forcing. Therein,
     1964!-- initialize heat-fluxes, etc. via datatype. Revise it later!
     1965    IF ( large_scale_forcing .AND. lsf_surf )  THEN
     1966       IF ( use_surface_fluxes  .AND.  constant_heatflux )  THEN
     1967          CALL ls_forcing_surf ( simulated_time )
     1968       ENDIF
     1969    ENDIF
     1970!
    19671971!-- Setting weighting factors for calculation of perturbation pressure
    19681972!-- and turbulent quantities from the RK substeps
Note: See TracChangeset for help on using the changeset viewer.