Changeset 9260 for branches/NERC/dev_r5518_GO6_conserv_check_up/NEMOGCM/NEMO/TOP_SRC/trcrst.F90

Timestamp:

2018-01-18T14:47:37+01:00 (6 years ago)

Author:

jpalmier

Message:

JPALM -- GMED 364 -- apply Richard review suggestion

File:

• branches/NERC/dev_r5518_GO6_conserv_check_up/NEMOGCM/NEMO/TOP_SRC/trcrst.F90 (modified) (1 diff)

branches/NERC/dev_r5518_GO6_conserv_check_up/NEMOGCM/NEMO/TOP_SRC/trcrst.F90

@@ -844 +844 @@
       zsum3d        = glob_sum( zvol(:,:,:) )
       zsum2d        = glob_sum( zarea(:,:) )
-      IF ( lwp ) WRITE(numout,*)
-      IF ( lwp ) WRITE(numout,*) ' check : cvol    : ', zsum3d
-      IF ( lwp ) WRITE(numout,*) ' check : carea   : ', zsum2d
-      IF ( lwp ) WRITE(numout,*)
-      IF ( lwp ) CALL flush(numout)
+      IF ( lwp ) THEN 
+         WRITE(numout,*)
+         WRITE(numout,*) ' check : cvol    : ', zsum3d
+         WRITE(numout,*) ' check : carea   : ', zsum2d
+         WRITE(numout,*)
+      ENDIF
       !
 9010  FORMAT(' element:',a10,                     &