Ignore:
Timestamp:
Jul 21, 2017 12:47:43 PM (4 years ago)
Author:
suehring
Message:

large-scale forcing and nudging modularized

File:
1 edited

Legend:

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

    r2292 r2320  
    2525! -----------------
    2626! $Id$
     27! Modularize large-scale forcing and nudging
     28!
     29! 2292 2017-06-20 09:51:42Z schwenkel
    2730! Implementation of new microphysic scheme: cloud_scheme = 'morrison'
    2831! includes two more prognostic equations for cloud drop concentration (nc) 
     
    372375        ONLY:  lsm_init, lsm_init_arrays
    373376 
    374     USE ls_forcing_mod
     377    USE lsf_nudging_mod,                                                       &
     378        ONLY:  lsf_init, ls_forcing_surf, nudge_init
    375379
    376380    USE microphysics_mod,                                                      &
     
    956960
    957961!
     962!-- Initialize nudging if required
     963    IF ( nudging )  THEN
     964       CALL nudge_init
     965    ENDIF
     966
     967!
     968!-- Initialize reading of large scale forcing from external file - if required
     969    IF ( large_scale_forcing )  THEN
     970       CALL lsf_init
     971    ENDIF
     972
     973!
    958974!-- Allocate arrays containing the RK coefficient for calculation of
    959975!-- perturbation pressure and turbulent fluxes. At this point values are
     
    10921108
    10931109          CALL location_message( 'initializing with constant profiles', .FALSE. )
    1094 !
    1095 !--       Overwrite initial profiles in case of nudging
    1096           IF ( nudging )  THEN
    1097              pt_init = ptnudge(:,1)
    1098              u_init  = unudge(:,1)
    1099              v_init  = vnudge(:,1)
    1100              IF ( humidity  )  THEN ! is passive_scalar correct???
    1101                 q_init = qnudge(:,1)
    1102              ENDIF
    1103 
    1104              WRITE( message_string, * ) 'Initial profiles of u, v and ',       &
    1105                  'scalars from NUDGING_DATA are used.'
    1106              CALL message( 'init_3d_model', 'PA0370', 0, 0, 0, 6, 0 )
    1107           ENDIF
    1108 
    11091110!
    11101111!--       Overwrite initial profiles in case of synthetic turbulence generator
Note: See TracChangeset for help on using the changeset viewer.