Ignore:
Timestamp:
Oct 30, 2013 11:36:58 AM (8 years ago)
Author:
heinze
Message:

Nudging and large scale forcing from external file implemented

File:
1 edited

Legend:

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

    r1240 r1241  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! initialization of nuding and large scale forcing from external file
    2323!
    2424! Former revisions:
     
    110110    USE indices
    111111    USE interfaces
     112    USE ls_forcing_mod
    112113    USE model_1d
     114    USE nudge_mod
    113115    USE particle_attributes
    114116    USE pegrid
     
    217219
    218220!
     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!
    219233!-- Check control parameters and deduce further quantities
    220234    CALL check_parameters
    221 
    222235
    223236!
Note: See TracChangeset for help on using the changeset viewer.