Changeset 11738 for branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DIA/diahth.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/DIA/diahth.F90
r10047 r11738 25 25 USE timing ! preformance summary 26 26 27 USE yomhook, ONLY: lhook, dr_hook 28 USE parkind1, ONLY: jprb, jpim 29 27 30 IMPLICIT NONE 28 31 PRIVATE … … 50 53 !!--------------------------------------------------------------------- 51 54 INTEGER :: dia_hth_alloc 55 INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 56 INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 57 REAL(KIND=jprb) :: zhook_handle 58 59 CHARACTER(LEN=*), PARAMETER :: RoutineName='DIA_HTH_ALLOC' 60 61 IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 62 52 63 !!--------------------------------------------------------------------- 53 64 ! … … 57 68 IF(dia_hth_alloc /= 0) CALL ctl_warn('dia_hth_alloc: failed to allocate arrays.') 58 69 ! 70 IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 59 71 END FUNCTION dia_hth_alloc 60 72 … … 103 115 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:) :: zthick ! vertical integration thickness 104 116 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:) :: zdelr ! delta rho equivalent to deltaT = 0.2 117 INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 118 INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 119 REAL(KIND=jprb) :: zhook_handle 120 121 CHARACTER(LEN=*), PARAMETER :: RoutineName='DIA_HTH' 122 123 IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 124 105 125 !!---------------------------------------------------------------------- 106 126 IF( nn_timing == 1 ) CALL timing_start('dia_hth') … … 334 354 IF( nn_timing == 1 ) CALL timing_stop('dia_hth') 335 355 ! 356 IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 336 357 END SUBROUTINE dia_hth 337 358 … … 343 364 CONTAINS 344 365 SUBROUTINE dia_hth( kt ) ! Empty routine 366 USE yomhook, ONLY: lhook, dr_hook 367 USE parkind1, ONLY: jprb, jpim 368 345 369 IMPLICIT NONE 346 370 INTEGER, INTENT( in ) :: kt ! ocean time-step index 371 INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 372 INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 373 REAL(KIND=jprb) :: zhook_handle 374 375 CHARACTER(LEN=*), PARAMETER :: RoutineName='DIA_HTH' 376 377 IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 378 347 379 WRITE(*,*) 'dia_hth: You should not have seen this print! error?', kt 380 IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 348 381 END SUBROUTINE dia_hth 349 382 #endif
Note: See TracChangeset
for help on using the changeset viewer.