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/palm.f90

    r2298 r2320  
    2525! -----------------
    2626! $Id$
     27! Modularize large-scale forcing and nudging
     28!
     29! 2298 2017-06-29 09:28:18Z raasch
    2730! type of write_binary changed from CHARACTER to LOGICAL,
    2831! user interface required revision updated, MPI2 related part removed
     
    207210        ONLY:  lsm_last_actions
    208211
    209     USE ls_forcing_mod,                                                        &
    210         ONLY:  init_ls_forcing
    211 
    212     USE nudge_mod,                                                             &
    213         ONLY:  init_nudge
    214 
    215212    USE particle_attributes,                                                   &
    216213        ONLY:  particle_advection
     
    330327!-- Generate grid parameters
    331328    CALL init_grid
    332 
    333 !
    334 !-- Initialize nudging if required
    335     IF ( nudging )  THEN
    336        CALL init_nudge
    337     ENDIF
    338 
    339 !
    340 !-- Initialize reading of large scale forcing from external file - if required
    341     IF ( large_scale_forcing )  THEN
    342        CALL init_ls_forcing
    343     ENDIF
    344329
    345330!
Note: See TracChangeset for help on using the changeset viewer.