Changeset 11738 for branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.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/OPA_SRC/SBC/sbcmod.F90
r9321 r11738 55 55 USE bdy_par ! Require lk_bdy 56 56 57 USE yomhook, ONLY: lhook, dr_hook 58 USE parkind1, ONLY: jprb, jpim 59 57 60 IMPLICIT NONE 58 61 PRIVATE … … 93 96 INTEGER :: ierr, ierr0, ierr1, ierr2, ierr3, jpm 94 97 LOGICAL :: ll_purecpl 98 INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 99 INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 100 REAL(KIND=jprb) :: zhook_handle 101 102 CHARACTER(LEN=*), PARAMETER :: RoutineName='SBC_INIT' 103 104 IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 105 95 106 !!---------------------------------------------------------------------- 96 107 … … 309 320 IF( nn_ice == 4 ) CALL cice_sbc_init( nsbc ) ! CICE initialisation 310 321 322 IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 311 323 END SUBROUTINE sbc_init 312 324 … … 329 341 !!---------------------------------------------------------------------- 330 342 INTEGER, INTENT(in) :: kt ! ocean time step 343 INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 344 INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 345 REAL(KIND=jprb) :: zhook_handle 346 347 CHARACTER(LEN=*), PARAMETER :: RoutineName='SBC' 348 349 IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 350 331 351 !!--------------------------------------------------------------------- 332 352 ! … … 501 521 IF( nn_timing == 1 ) CALL timing_stop('sbc') 502 522 ! 523 IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 503 524 END SUBROUTINE sbc 504 525 505 526 506 527 SUBROUTINE sbc_final 528 INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 529 INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 530 REAL(KIND=jprb) :: zhook_handle 531 532 CHARACTER(LEN=*), PARAMETER :: RoutineName='SBC_FINAL' 533 534 IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 535 507 536 !!--------------------------------------------------------------------- 508 537 !! *** ROUTINE sbc_final *** … … 513 542 IF( nn_ice == 4 ) CALL cice_sbc_final 514 543 ! 544 IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 515 545 END SUBROUTINE sbc_final 516 546
Note: See TracChangeset
for help on using the changeset viewer.