Changeset 11738 for branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DOM/closea.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/closea.F90
r6491 r11738 27 27 USE timing 28 28 29 USE yomhook, ONLY: lhook, dr_hook 30 USE parkind1, ONLY: jprb, jpim 31 29 32 IMPLICIT NONE 30 33 PRIVATE … … 73 76 INTEGER :: jc ! dummy loop indices 74 77 INTEGER :: isrow ! local index 78 INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 79 INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 80 REAL(KIND=jprb) :: zhook_handle 81 82 CHARACTER(LEN=*), PARAMETER :: RoutineName='DOM_CLO' 83 84 IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 85 75 86 !!---------------------------------------------------------------------- 76 87 … … 222 233 END DO 223 234 ! 235 IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 224 236 END SUBROUTINE dom_clo 225 237 … … 245 257 COMPLEX(wp) :: ctmp 246 258 REAL(wp), DIMENSION(jpncs) :: zfwf ! 1D workspace 259 INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 260 INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 261 REAL(KIND=jprb) :: zhook_handle 262 263 CHARACTER(LEN=*), PARAMETER :: RoutineName='SBC_CLO' 264 265 IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 266 247 267 !!---------------------------------------------------------------------- 248 268 ! … … 405 425 IF( nn_timing == 1 ) CALL timing_stop('sbc_clo') 406 426 ! 427 IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 407 428 END SUBROUTINE sbc_clo 408 429 … … 423 444 ! 424 445 INTEGER :: jc, jn, ji, jj ! dummy loop indices 446 INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 447 INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 448 REAL(KIND=jprb) :: zhook_handle 449 450 CHARACTER(LEN=*), PARAMETER :: RoutineName='CLO_RNF' 451 452 IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 453 425 454 !!---------------------------------------------------------------------- 426 455 ! … … 437 466 END DO 438 467 ! 468 IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 439 469 END SUBROUTINE clo_rnf 440 470 … … 455 485 ! 456 486 INTEGER :: jc, ji, jj ! dummy loop indices 487 INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 488 INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 489 REAL(KIND=jprb) :: zhook_handle 490 491 CHARACTER(LEN=*), PARAMETER :: RoutineName='CLO_UPS' 492 493 IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 494 457 495 !!---------------------------------------------------------------------- 458 496 ! … … 465 503 END DO 466 504 ! 505 IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 467 506 END SUBROUTINE clo_ups 468 507 … … 483 522 ! 484 523 INTEGER :: jc, ji, jj ! dummy loop indices 524 INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 525 INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 526 REAL(KIND=jprb) :: zhook_handle 527 528 CHARACTER(LEN=*), PARAMETER :: RoutineName='CLO_BAT' 529 530 IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 531 485 532 !!---------------------------------------------------------------------- 486 533 ! … … 494 541 END DO 495 542 ! 543 IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 496 544 END SUBROUTINE clo_bat 497 545
Note: See TracChangeset
for help on using the changeset viewer.