Changeset 4694 for palm/trunk/SOURCE/radiation_model_mod.f90

Timestamp:

Sep 23, 2020 3:09:19 PM (4 years ago)

Author:

pavelkrc

Message:

Fix writing and reading of surface data to/from MPI restart file + small fixes

File:

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

palm/trunk/SOURCE/radiation_model_mod.f90

@@ -28 +28 @@
 ! -----------------
 ! $Id$
+! Bugfix for tracing of maximum radiative fluxes
+!
+! 4686 2020-09-18 11:59:57Z pavelkrc
 ! Silence compiler warning about unused variable in serial build
 !
@@ -6421 +6424 @@
             CALL radiation_print_debug_surf( 'surfinl after reflected pass', surfinl, refstep )
             CALL radiation_print_debug_surf( 'surfins after reflected pass', surfins, refstep )
-            CALL radiation_print_debug_pcb( 'pcbinlw after reflected pass', pcbinlw, refstep )
-            CALL radiation_print_debug_pcb( 'pcbinsw after reflected pass', pcbinsw, refstep )
+            IF ( npcbl > 0 )  THEN
+               CALL radiation_print_debug_pcb( 'pcbinlw after reflected pass', pcbinlw, refstep )
+               CALL radiation_print_debug_pcb( 'pcbinsw after reflected pass', pcbinsw, refstep )
+            ENDIF
          ENDIF