Changeset 10774 for branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/TRA/trabbl.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/TRA/trabbl.F90
r10759 r10774 358 358 IF(lwp) WRITE(numout,*) 'trabbl:bbl : Compute bbl velocities and diffusive coefficients in ', cdtype 359 359 IF(lwp) WRITE(numout,*) '~~~~~~~~~~' 360 IF(lflush) CALL flush(numout) 360 361 ENDIF 361 362 ! !* bottom variables (T, S, alpha, beta, depth, velocity) … … 530 531 WRITE(numout,*) ' diffusive bbl coefficient rn_ahtbbl = ', rn_ahtbbl, ' m2/s' 531 532 WRITE(numout,*) ' advective bbl coefficient rn_gambbl = ', rn_gambbl, ' s' 533 IF(lflush) CALL flush(numout) 532 534 ENDIF 533 535 … … 538 540 IF( nn_bbl_adv == 1 ) WRITE(numout,*) ' * Advective BBL using upper velocity' 539 541 IF( nn_bbl_adv == 2 ) WRITE(numout,*) ' * Advective BBL using velocity = F( delta rho)' 542 IF(lflush) CALL flush(numout) 540 543 ENDIF 541 544
Note: See TracChangeset
for help on using the changeset viewer.