- Timestamp:
- 2019-06-11T16:10:28+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/OPA_SRC/DOM/domcfg.F90
r6486 r11101 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 ! … … 105 106 mj1(jj) = MAX( 0, MIN( jj - jpjzoom + 1 - njmpp + 1, jpj ) ) 106 107 END DO 107 IF(lwp ) THEN ! control print108 IF(lwp .AND. nprint > 0) THEN ! control print 108 109 WRITE(numout,*) 109 110 WRITE(numout,*) 'dom_glo : domain: data / local ' … … 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.