Changeset 3774 for palm/trunk/SOURCE

Timestamp:

Mar 4, 2019 10:52:49 AM (6 years ago)

Author:

moh.hefny

Message:

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

File:

• palm/trunk/SOURCE/time_integration.f90 (modified) (2 diffs)

palm/trunk/SOURCE/time_integration.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! rephrase if statement to avoid unallocated array in case of
+! nesting_offline is false (crashing during debug mode)
+!
+! 3761 2019-02-25 15:31:42Z raasch $
 ! module section re-formatted and openacc required variables moved to separate section,
 ! re-formatting to 100 char line width
@@ -846 +850 @@
 !--    If forcing by larger-scale models is applied, check if new data
 !--    at domain boundaries need to be read.
-       IF ( nesting_offline .AND. nest_offl%time(nest_offl%tind_p) <= time_since_reference_point ) &
-       THEN
-             CALL netcdf_data_input_offline_nesting
+       IF ( nesting_offline ) THEN
+          IF ( nest_offl%time(nest_offl%tind_p) <= time_since_reference_point ) &
+               CALL netcdf_data_input_offline_nesting
        ENDIF