Changeset 3774 for palm


Ignore:
Timestamp:
Mar 4, 2019 10:52:49 AM (5 years ago)
Author:
moh.hefny
Message:

bugfix: avoid unallocated array in case ofinitialize simulated_time before calculating solar position

File:
1 edited

Legend:

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

    r3761 r3774  
    2525! -----------------
    2626! $Id$
     27! rephrase if statement to avoid unallocated array in case of
     28! nesting_offline is false (crashing during debug mode)
     29!
     30! 3761 2019-02-25 15:31:42Z raasch $
    2731! module section re-formatted and openacc required variables moved to separate section,
    2832! re-formatting to 100 char line width
     
    846850!--    If forcing by larger-scale models is applied, check if new data
    847851!--    at domain boundaries need to be read.
    848        IF ( nesting_offline .AND. nest_offl%time(nest_offl%tind_p) <= time_since_reference_point ) &
    849        THEN
    850              CALL netcdf_data_input_offline_nesting
     852       IF ( nesting_offline ) THEN
     853          IF ( nest_offl%time(nest_offl%tind_p) <= time_since_reference_point ) &
     854               CALL netcdf_data_input_offline_nesting
    851855       ENDIF
    852856
Note: See TracChangeset for help on using the changeset viewer.