- Timestamp:
- 2019-04-05T16:01:32+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/dev_r10037_GPU/src/OCE/TRA/trabbl.F90
r9950 r10843 71 71 !! NEMO/OCE 4.0 , NEMO Consortium (2018) 72 72 !! $Id$ 73 !! Software governed by the CeCILL licen ce (./LICENSE)73 !! Software governed by the CeCILL license (see ./LICENSE) 74 74 !!---------------------------------------------------------------------- 75 75 CONTAINS … … 513 513 IF( tra_bbl_alloc() /= 0 ) CALL ctl_stop( 'STOP', 'tra_bbl_init : unable to allocate arrays' ) 514 514 ! 515 IF( nn_bbl_adv == 1 ) WRITE(numout,*) ' * Advective BBL using upper velocity' 516 IF( nn_bbl_adv == 2 ) WRITE(numout,*) ' * Advective BBL using velocity = F( delta rho)' 515 IF(lwp) THEN 516 IF( nn_bbl_adv == 1 ) WRITE(numout,*) ' * Advective BBL using upper velocity' 517 IF( nn_bbl_adv == 2 ) WRITE(numout,*) ' * Advective BBL using velocity = F( delta rho)' 518 ENDIF 517 519 ! 518 520 ! !* vertical index of "deep" bottom u- and v-points
Note: See TracChangeset
for help on using the changeset viewer.