Changeset 11738 for branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/trcsub.F90
- Timestamp:
- 2019-10-21T09:34:11+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/trcsub.F90
r6486 r11738 33 33 #endif 34 34 35 USE yomhook, ONLY: lhook, dr_hook 36 USE parkind1, ONLY: jprb, jpim 37 35 38 IMPLICIT NONE 36 39 … … 65 68 INTEGER :: ji,jj,jk ! dummy loop indices 66 69 REAL(wp) :: z1_ne3t, z1_ne3u, z1_ne3v, z1_ne3w 70 INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 71 INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 72 REAL(KIND=jprb) :: zhook_handle 73 74 CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_SUB_STP' 75 76 IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 77 67 78 !!------------------------------------------------------------------- 68 79 ! … … 275 286 IF( nn_timing == 1 ) CALL timing_start('trc_sub_stp') 276 287 ! 288 IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 277 289 END SUBROUTINE trc_sub_stp 278 290 … … 287 299 !!------------------------------------------------------------------- 288 300 INTEGER :: ierr 301 INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 302 INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 303 REAL(KIND=jprb) :: zhook_handle 304 305 CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_SUB_INI' 306 307 IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 308 289 309 !!------------------------------------------------------------------- 290 310 ! … … 338 358 IF( nn_timing == 1 ) CALL timing_stop('trc_sub_ini') 339 359 ! 360 IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 340 361 END SUBROUTINE trc_sub_ini 341 362 … … 351 372 INTEGER, INTENT( in ) :: kt ! ocean time-step index 352 373 INTEGER :: jk ! dummy loop indices 374 INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 375 INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 376 REAL(KIND=jprb) :: zhook_handle 377 378 CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_SUB_RESET' 379 380 IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 381 353 382 !!------------------------------------------------------------------- 354 383 ! … … 443 472 IF( nn_timing == 1 ) CALL timing_stop('trc_sub_reset') 444 473 ! 474 IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 445 475 END SUBROUTINE trc_sub_reset 446 476 … … 470 500 REAL(wp) :: zcoefu, zcoefv, zcoeff, z2dt, z1_2dt, z1_rau0 ! local scalars 471 501 REAL(wp), POINTER, DIMENSION(:,:) :: zhdiv 502 INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 503 INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 504 REAL(KIND=jprb) :: zhook_handle 505 506 CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_SUB_SSH' 507 508 IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 509 472 510 !!--------------------------------------------------------------------- 473 511 ! … … 536 574 IF( nn_timing == 1 ) CALL timing_stop('trc_sub_ssh') 537 575 ! 576 IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 538 577 END SUBROUTINE trc_sub_ssh 539 578 … … 544 583 USE lib_mpp, ONLY: ctl_warn 545 584 INTEGER :: ierr 585 INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 586 INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 587 REAL(KIND=jprb) :: zhook_handle 588 589 CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_SUB_ALLOC' 590 591 IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 592 546 593 !!------------------------------------------------------------------- 547 594 ! … … 590 637 591 638 ! 639 IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 592 640 END FUNCTION trc_sub_alloc 593 641 … … 598 646 CONTAINS 599 647 SUBROUTINE trc_sub_stp( kt ) ! Empty routine 648 INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 649 INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 650 REAL(KIND=jprb) :: zhook_handle 651 652 CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_SUB_STP' 653 654 IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 655 600 656 WRITE(*,*) 'trc_sub_stp: You should not have seen this print! error?', kt 657 IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 601 658 END SUBROUTINE trc_sub_stp 602 659 SUBROUTINE trc_sub_ini ! Empty routine 660 INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 661 INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 662 REAL(KIND=jprb) :: zhook_handle 663 664 CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_SUB_INI' 665 666 IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 667 603 668 WRITE(*,*) 'trc_sub_ini: You should not have seen this print! error?', kt 669 IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 604 670 END SUBROUTINE trc_sub_ini 605 671
Note: See TracChangeset
for help on using the changeset viewer.