Changeset 10774 for branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/DOM/domcfg.F90
- Timestamp:
- 2019-03-19T12:32:19+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/DOM/domcfg.F90
r10770 r10774 56 56 IF( jperio == 5 ) WRITE(numout,*) ' jperio= 5, north fold with F-point pivot' 57 57 IF( jperio == 6 ) WRITE(numout,*) ' jperio= 6, cyclic east-west and north fold with F-point pivot' 58 IF(lflush) CALL flush(numout) 58 59 ENDIF 59 60 ! … … 136 137 WRITE(numout,*) ' ending index' 137 138 WRITE(numout,25) (mj1(jj),jj = 1,jpjdta) 139 IF(lflush) CALL flush(numout) 138 140 ENDIF 139 141 25 FORMAT( 100(10x,19i4,/) ) … … 195 197 ENDIF 196 198 ! 199 IF(lwp .AND. lflush) CALL flush(numout) 200 ! 197 201 END SUBROUTINE dom_glo 198 202
Note: See TracChangeset
for help on using the changeset viewer.