Ignore:
Timestamp:
Oct 29, 2013 1:21:31 PM (8 years ago)
Author:
heinze
Message:

Undoing commit 1239

File:
1 edited

Legend:

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

    r1239 r1240  
    2020! Current revisions:
    2121! -----------------
    22 ! initialization of nudging and large scale forcing from external file
     22!
    2323!
    2424! Former revisions:
     
    110110    USE indices
    111111    USE interfaces
    112     USE ls_forcing_mod
    113112    USE model_1d
    114     USE nudge_mod
    115113    USE particle_attributes
    116114    USE pegrid
     
    219217
    220218!
    221 !-- Initialize Nudging if required
    222     IF ( nudging )  THEN
    223        CALL init_nudge
    224     ENDIF
    225 
    226 !
    227 !-- Initialize reading of large scale forcing from external file - if required
    228     IF ( large_scale_forcing )  THEN
    229        CALL init_ls_forcing
    230     ENDIF
    231 
    232 !
    233219!-- Check control parameters and deduce further quantities
    234220    CALL check_parameters
     221
    235222
    236223!
Note: See TracChangeset for help on using the changeset viewer.