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

    r2311 r2320  
    343343               skip_time_do_lsm
    344344
    345     USE ls_forcing_mod,                                                        &
    346         ONLY:  ls_forcing_surf, ls_forcing_vert
     345    USE lsf_nudging_mod,                                                       &
     346        ONLY:  calc_tnudge, ls_forcing_surf, ls_forcing_vert, nudge_ref
    347347
    348348    USE microphysics_mod,                                                      &
    349349        ONLY: collision_turbulence
    350 
    351     USE nudge_mod,                                                             &
    352         ONLY:  calc_tnudge, nudge_ref
    353350
    354351    USE particle_attributes,                                                   &
     
    764761                 intermediate_timestep_count == intermediate_timestep_count_max )&
    765762             THEN
    766                 CALL ls_forcing_surf ( simulated_time )
     763                CALL ls_forcing_surf( simulated_time )
    767764             ENDIF
    768765
Note: See TracChangeset for help on using the changeset viewer.