- 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/DYN/divcur.F90
r6487 r11101 104 104 IF(lwp) WRITE(numout,*) 'div_cur : horizontal velocity divergence and relative vorticity' 105 105 IF(lwp) WRITE(numout,*) '~~~~~~~ NOT optimal for auto-tasking case' 106 IF(lwp .AND. lflush) CALL flush(numout) 106 107 ENDIF 107 108 … … 285 286 IF(lwp) WRITE(numout,*) 'div_cur : horizontal velocity divergence and' 286 287 IF(lwp) WRITE(numout,*) '~~~~~~~ relative vorticity' 288 IF(lwp .AND. lflush) CALL flush(numout) 287 289 ENDIF 288 290
Note: See TracChangeset
for help on using the changeset viewer.