Changeset 7734 for branches/UKMO/dev_r5518_MEDUSA_stable_fixes_part2/NEMOGCM/NEMO/TOP_SRC/trcstp.F90

Timestamp:

2017-02-27T11:37:59+01:00 (7 years ago)

Author:

frrh

Message:

Correction to output of global tracer sums.
Previous condition was failing to restrict it to master PE, hence writing
to dud units. It is not clear why this works in some configurations
and not others. We must ensure that the output unit is valid!

File:

• branches/UKMO/dev_r5518_MEDUSA_stable_fixes_part2/NEMOGCM/NEMO/TOP_SRC/trcstp.F90 (modified) (1 diff)

branches/UKMO/dev_r5518_MEDUSA_stable_fixes_part2/NEMOGCM/NEMO/TOP_SRC/trcstp.F90

@@ -146 +146 @@
             ztrai = ztrai + glob_sum( trn(:,:,:,jn) * cvol(:,:,:)   )
          END DO
-         IF( lwp ) WRITE(numstr,9300) kt,  ztrai / areatot
+         IF( numstr /= 0 ) WRITE(numstr,9300) kt,  ztrai / areatot
 9300     FORMAT(i10,e18.10)
       ENDIF