- Timestamp:
- 2019-02-12T17:42:50+01:00 (5 years ago)
- Location:
- NEMO/branches/UKMO/dev_r9950_GO8_package_write/src/OCE
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/dev_r9950_GO8_package_write/src/OCE/TRA/trabbl.F90
r10322 r10660 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 -
NEMO/branches/UKMO/dev_r9950_GO8_package_write/src/OCE/timing.F90
r10322 r10660 491 491 END DO 492 492 493 WRITE(*,*) 'ARPDBG: timing: done gathers'494 495 493 IF( narea == 1 ) THEN 496 494 ! Compute some stats … … 515 513 END DO 516 514 517 WRITE(*,*) 'ARPDBG: timing: done computing stats'518 519 515 ! reorder the averaged list by CPU time 520 516 s_wrk => NULL()
Note: See TracChangeset
for help on using the changeset viewer.