Changeset 12555 for branches/UKMO/dev_r5518_GO6_starthour_obsoper/NEMOGCM/NEMO/OPA_SRC/DYN/dynvor.F90
- Timestamp:
- 2020-03-13T17:33:02+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_starthour_obsoper/NEMOGCM/NEMO/OPA_SRC/DYN/dynvor.F90
r8280 r12555 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 … … 731 735 READ ( numnam_cfg, namdyn_vor, IOSTAT = ios, ERR = 902 ) 732 736 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn_vor in configuration namelist', lwp ) 733 IF(lwm ) WRITE ( numond, namdyn_vor )737 IF(lwm .AND. nprint >2) WRITE ( numond, namdyn_vor ) 734 738 735 739 IF(lwp) THEN ! Namelist print … … 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.