Changeset 12555 for branches/UKMO/dev_r5518_GO6_starthour_obsoper/NEMOGCM/NEMO/OPA_SRC/TRA/trabbl.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/TRA/trabbl.F90
r12553 r12555 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) … … 517 518 READ ( numnam_cfg, nambbl, IOSTAT = ios, ERR = 902 ) 518 519 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambbl in configuration namelist', lwp ) 519 IF(lwm ) WRITE ( numond, nambbl )520 IF(lwm .AND. nprint > 2) WRITE ( numond, nambbl ) 520 521 ! 521 522 l_bbl = .TRUE. !* flag to compute bbl coef and transport … … 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.