Changeset 11738 for branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DOM/domain.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/DOM/domain.F90
r6491 r11738 39 39 USE lbclnk ! ocean lateral boundary condition (or mpp link) 40 40 41 USE yomhook, ONLY: lhook, dr_hook 42 USE parkind1, ONLY: jprb, jpim 43 41 44 IMPLICIT NONE 42 45 PRIVATE … … 71 74 INTEGER :: jk ! dummy loop argument 72 75 INTEGER :: iconf = 0 ! local integers 76 INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 77 INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 78 REAL(KIND=jprb) :: zhook_handle 79 80 CHARACTER(LEN=*), PARAMETER :: RoutineName='DOM_INIT' 81 82 IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 83 73 84 !!---------------------------------------------------------------------- 74 85 ! … … 120 131 IF( nn_timing == 1 ) CALL timing_stop('dom_init') 121 132 ! 133 IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 122 134 END SUBROUTINE dom_init 123 135 … … 151 163 #endif 152 164 INTEGER :: ios ! Local integer output status for namelist read 165 INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 166 INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 167 REAL(KIND=jprb) :: zhook_handle 168 169 CHARACTER(LEN=*), PARAMETER :: RoutineName='DOM_NAM' 170 171 IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 172 153 173 !!---------------------------------------------------------------------- 154 174 … … 358 378 #endif 359 379 ! 380 IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 360 381 END SUBROUTINE dom_nam 361 382 … … 372 393 INTEGER, DIMENSION(2) :: iloc ! 373 394 REAL(wp) :: ze1min, ze1max, ze2min, ze2max 395 INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 396 INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 397 REAL(KIND=jprb) :: zhook_handle 398 399 CHARACTER(LEN=*), PARAMETER :: RoutineName='DOM_CTL' 400 401 IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 402 374 403 !!---------------------------------------------------------------------- 375 404 ! … … 408 437 ENDIF 409 438 ! 439 IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 410 440 END SUBROUTINE dom_ctl 411 441 … … 427 457 REAL(wp) :: zrxmax 428 458 REAL(wp), DIMENSION(4) :: zr1 459 INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 460 INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 461 REAL(KIND=jprb) :: zhook_handle 462 463 CHARACTER(LEN=*), PARAMETER :: RoutineName='DOM_STIFF' 464 465 IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 466 429 467 !!---------------------------------------------------------------------- 430 468 rx1(:,:) = 0.e0 … … 469 507 ENDIF 470 508 509 IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 471 510 END SUBROUTINE dom_stiff 472 511
Note: See TracChangeset
for help on using the changeset viewer.