Ignore:
Timestamp:
Aug 21, 2014 7:31:51 AM (10 years ago)
Author:
heinze
Message:

bugfixes for large_scale forcing and nudging

File:
1 edited

Legend:

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

    r1397 r1450  
    2121! Current revisions:
    2222! -----------------
    23 !
     23! bugfix: calculate fac only for simulated_time >= 0.0
    2424!
    2525! Former revisions:
     
    10121012!--    Collect current large scale advection and subsidence tendencies for
    10131013!--    data output
    1014        IF ( large_scale_forcing )  THEN
     1014       IF ( large_scale_forcing  .AND.  ( simulated_time .GT. 0.0_wp ) )  THEN
    10151015!
    10161016!--       Interpolation in time of LSF_DATA
     
    27682768!--    Collect current large scale advection and subsidence tendencies for
    27692769!--    data output
    2770        IF ( large_scale_forcing )  THEN
     2770       IF ( large_scale_forcing  .AND.  ( simulated_time .GT. 0.0_wp ) )  THEN
    27712771!
    27722772!--       Interpolation in time of LSF_DATA
Note: See TracChangeset for help on using the changeset viewer.