Changeset 10774 for branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/DYN/dynvor.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/DYN/dynvor.F90
r10759 r10774 234 234 IF(lwp) WRITE(numout,*) 'dyn:vor_ene : vorticity term: energy conserving scheme' 235 235 IF(lwp) WRITE(numout,*) '~~~~~~~~~~~' 236 IF(lflush) CALL flush(numout) 236 237 ENDIF 237 238 … … 346 347 IF(lwp) WRITE(numout,*) 'dyn:vor_mix : vorticity term: mixed energy/enstrophy conserving scheme' 347 348 IF(lwp) WRITE(numout,*) '~~~~~~~~~~~' 349 IF(lflush) CALL flush(numout) 348 350 ENDIF 349 351 … … 463 465 IF(lwp) WRITE(numout,*) 'dyn:vor_ens : vorticity term: enstrophy conserving scheme' 464 466 IF(lwp) WRITE(numout,*) '~~~~~~~~~~~' 467 IF(lflush) CALL flush(numout) 465 468 ENDIF 466 469 … … 587 590 IF(lwp) WRITE(numout,*) 'dyn:vor_een : vorticity term: energy and enstrophy conserving scheme' 588 591 IF(lwp) WRITE(numout,*) '~~~~~~~~~~~' 592 IF(lflush) CALL flush(numout) 589 593 #if ! defined key_vvl 590 594 IF( .NOT.ALLOCATED(ze3f) ) THEN … … 743 747 WRITE(numout,*) ' enstrophy and energy conserving scheme ln_dynvor_een = ', ln_dynvor_een 744 748 WRITE(numout,*) ' enstrophy and energy conserving scheme (old) ln_dynvor_een_old= ', ln_dynvor_een_old 749 IF(lflush) CALL flush(numout) 745 750 ENDIF 746 751 … … 798 803 IF( nvor == 3 ) WRITE(numout,*) ' vorticity scheme : energy and enstrophy conserving scheme' 799 804 IF( nvor == -1 ) WRITE(numout,*) ' esopa test: use all lateral physics options' 805 IF(lflush) CALL flush(numout) 800 806 ENDIF 801 807 !
Note: See TracChangeset
for help on using the changeset viewer.