Changeset 11738 for branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/ICB/icbthm.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/ICB/icbthm.F90
r6491 r11738 27 27 USE icbdia ! iceberg budget routines 28 28 29 USE yomhook, ONLY: lhook, dr_hook 30 USE parkind1, ONLY: jprb, jpim 31 29 32 IMPLICIT NONE 30 33 PRIVATE … … 53 56 TYPE(iceberg), POINTER :: this, next 54 57 TYPE(point) , POINTER :: pt 58 INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 59 INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 60 REAL(KIND=jprb) :: zhook_handle 61 62 CHARACTER(LEN=*), PARAMETER :: RoutineName='ICB_THM' 63 64 IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 65 55 66 !!---------------------------------------------------------------------- 56 67 ! … … 213 224 ENDIF 214 225 ! 226 IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 215 227 END SUBROUTINE icb_thm 216 228
Note: See TracChangeset
for help on using the changeset viewer.