Changeset 4008 for palm/trunk/SOURCE/module_interface.f90

Timestamp:

May 30, 2019 9:50:11 AM (6 years ago)

Author:

moh.hefny

Message:

Bugfix in check radiation related variables

File:

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

palm/trunk/SOURCE/module_interface.f90

@@ -1231 +1231 @@
     ENDIF
 
+    IF ( .NOT. found  .AND.  radiation )  THEN
+       CALL radiation_data_output_2d(                                          &
+               av, variable, found, grid, mode, local_pf, two_d, nzb_do, nzt_do&
+            )
+    ENDIF
+
     IF ( .NOT. found  .AND.  salsa )  THEN
        CALL salsa_data_output_2d(                                              &
-               av, variable, found, grid, mode, local_pf, two_d, nzb_do, nzt_do&
-            )
-    ENDIF
-
-    IF ( .NOT. found  .AND.  radiation )  THEN
-       CALL radiation_data_output_2d(                                          &
                av, variable, found, grid, mode, local_pf, two_d, nzb_do, nzt_do&
             )
@@ -1313 +1313 @@
     ENDIF
 
+    IF ( .NOT. found  .AND.  radiation )  THEN
+       CALL radiation_data_output_3d( av, variable, found, local_pf, nzb_do, nzt_do )
+       resorted = .TRUE.
+    ENDIF
+
     IF ( .NOT. found  .AND.  salsa )  THEN
        CALL salsa_data_output_3d( av, variable, found, local_pf, nzb_do, nzt_do )
-       resorted = .TRUE.
-    ENDIF
-
-    IF ( .NOT. found  .AND.  radiation )  THEN
-       CALL radiation_data_output_3d( av, variable, found, local_pf, nzb_do, nzt_do )
        resorted = .TRUE.
     ENDIF