Changeset 10774 for branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/DOM/domvvl.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/domvvl.F90
r10770 r10774 133 133 IF(lwp) WRITE(numout,*) 'dom_vvl_init : Variable volume activated' 134 134 IF(lwp) WRITE(numout,*) '~~~~~~~~~~~~' 135 IF(lwp .AND. lflush) CALL flush(numout) 135 136 136 137 ! choose vertical coordinate (z_star, z_tilde or layer) … … 292 293 IF(lwp) WRITE(numout,*) 'dom_vvl_sf_nxt : compute after scale factors' 293 294 IF(lwp) WRITE(numout,*) '~~~~~~~~~~~~~~' 295 IF(lflush) CALL flush(numout) 294 296 ENDIF 295 297 … … 525 527 IF( lk_mpp ) CALL mpp_max( z_tmax ) ! max over the global domain 526 528 IF( lwp ) WRITE(numout, *) kt,' MAXVAL(abs(ssha))) =', z_tmax 529 IF(lflush) CALL flush(numout) 527 530 END IF 528 531 … … 593 596 IF(lwp) WRITE(numout,*) 'dom_vvl_sf_swp : - time filter and swap of scale factors' 594 597 IF(lwp) WRITE(numout,*) '~~~~~~~~~~~~~~ - interpolate scale factors and compute depths for next time step' 598 IF(lflush) CALL flush(numout) 595 599 ENDIF 596 600 … … 866 870 neuler = 0 867 871 ENDIF 872 ! 873 IF(lwp .AND. lflush) CALL flush(numout) 868 874 ! ! ----------- ! 869 875 IF( ln_vvl_zstar ) THEN ! z_star case ! … … 1008 1014 ! IF( ln_vvl_kepe ) WRITE(numout,*) ' kinetic to potential energy transfer : option used' 1009 1015 ! IF( .NOT. ln_vvl_kepe ) WRITE(numout,*) ' kinetic to potential energy transfer : option not used' 1016 IF(lflush) CALL flush(numout) 1010 1017 ENDIF 1011 1018
Note: See TracChangeset
for help on using the changeset viewer.