Ignore:
Timestamp:
2018-01-18T14:47:37+01:00 (3 years ago)
Author:
jpalmier
Message:

JPALM — GMED 364 — apply Richard review suggestion

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/NERC/dev_r5518_GO6_conserv_check_up/NEMOGCM/NEMO/TOP_SRC/trcrst.F90

    r9208 r9260  
    844844      zsum3d        = glob_sum( zvol(:,:,:) ) 
    845845      zsum2d        = glob_sum( zarea(:,:) ) 
    846       IF ( lwp ) WRITE(numout,*) 
    847       IF ( lwp ) WRITE(numout,*) ' check : cvol    : ', zsum3d 
    848       IF ( lwp ) WRITE(numout,*) ' check : carea   : ', zsum2d 
    849       IF ( lwp ) WRITE(numout,*) 
    850       IF ( lwp ) CALL flush(numout) 
     846      IF ( lwp ) THEN  
     847         WRITE(numout,*) 
     848         WRITE(numout,*) ' check : cvol    : ', zsum3d 
     849         WRITE(numout,*) ' check : carea   : ', zsum2d 
     850         WRITE(numout,*) 
     851      ENDIF 
    851852      ! 
    8528539010  FORMAT(' element:',a10,                     & 
Note: See TracChangeset for help on using the changeset viewer.