Changeset 7735 for branches

Timestamp:

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

Author:

frrh

Message:

Correct test condition. It's a toss up between checking for
numstr /= -1 and narea == 1. I've used numstr just because
it's more directly relevant to the write statment.

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( numstr /= 0 ) WRITE(numstr,9300) kt,  ztrai / areatot
+         IF( numstr /= -1 ) WRITE(numstr,9300) kt,  ztrai / areatot
 9300     FORMAT(i10,e18.10)
       ENDIF