Changeset 10681
- Timestamp:
- 2019-02-14T15:03:40+01:00 (6 years ago)
- Location:
- branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/OPA_SRC
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/OPA_SRC/TRA/trabbl.F90
r8615 r10681 535 535 IF( tra_bbl_alloc() /= 0 ) CALL ctl_stop( 'STOP', 'tra_bbl_init : unable to allocate arrays' ) 536 536 537 IF( nn_bbl_adv == 1 ) WRITE(numout,*) ' * Advective BBL using upper velocity' 538 IF( nn_bbl_adv == 2 ) WRITE(numout,*) ' * Advective BBL using velocity = F( delta rho)' 537 IF(lwp) THEN 538 IF( nn_bbl_adv == 1 ) WRITE(numout,*) ' * Advective BBL using upper velocity' 539 IF( nn_bbl_adv == 2 ) WRITE(numout,*) ' * Advective BBL using velocity = F( delta rho)' 540 ENDIF 539 541 540 542 ! !* vertical index of "deep" bottom u- and v-points -
branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/OPA_SRC/timing.F90
r6486 r10681 492 492 END DO 493 493 494 WRITE(*,*) 'ARPDBG: timing: done gathers'495 496 494 IF( narea == 1 ) THEN 497 495 ! Compute some stats … … 516 514 END DO 517 515 518 WRITE(*,*) 'ARPDBG: timing: done computing stats'519 520 516 ! reorder the averaged list by CPU time 521 517 s_wrk => NULL()
Note: See TracChangeset
for help on using the changeset viewer.