Changeset 11738 for branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/ICB/icbtrj.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/icbtrj.F90
r7733 r11738 24 24 USE icbutl ! iceberg utility routines 25 25 26 USE yomhook, ONLY: lhook, dr_hook 27 USE parkind1, ONLY: jprb, jpim 28 26 29 IMPLICIT NONE 27 30 PRIVATE … … 67 70 TYPE(point) , POINTER :: pt 68 71 CHARACTER(LEN=20) :: cldate_ini, cldate_end 72 INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 73 INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 74 REAL(KIND=jprb) :: zhook_handle 75 76 CHARACTER(LEN=*), PARAMETER :: RoutineName='ICB_TRJ_INIT' 77 78 IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 79 69 80 !!---------------------------------------------------------------------- 70 81 … … 185 196 iret = NF90_ENDDEF(ntrajid) 186 197 ! 198 IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 187 199 END SUBROUTINE icb_trj_init 188 200 … … 203 215 TYPE(iceberg), POINTER :: this 204 216 TYPE(point) , POINTER :: pt 217 INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 218 INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 219 REAL(KIND=jprb) :: zhook_handle 220 221 CHARACTER(LEN=*), PARAMETER :: RoutineName='ICB_TRJ_WRITE' 222 223 IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 224 205 225 !!---------------------------------------------------------------------- 206 226 … … 249 269 num_traj = jn 250 270 ! 271 IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 251 272 END SUBROUTINE icb_trj_write 252 273 … … 260 281 !!---------------------------------------------------------------------- 261 282 INTEGER :: iret 283 INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 284 INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 285 REAL(KIND=jprb) :: zhook_handle 286 287 CHARACTER(LEN=*), PARAMETER :: RoutineName='ICB_TRJ_SYNC' 288 289 IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 290 262 291 !!---------------------------------------------------------------------- 263 292 ! flush to file … … 265 294 IF(iret /= NF90_NOERR) CALL ctl_stop( 'icebergs, icb_trj_sync: nf_sync failed' ) 266 295 ! 296 IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 267 297 END SUBROUTINE icb_trj_sync 268 298 … … 271 301 ! Local variables 272 302 INTEGER :: iret 303 INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 304 INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 305 REAL(KIND=jprb) :: zhook_handle 306 307 CHARACTER(LEN=*), PARAMETER :: RoutineName='ICB_TRJ_END' 308 309 IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 310 273 311 !!---------------------------------------------------------------------- 274 312 ! Finish up … … 276 314 IF (iret /= NF90_NOERR) CALL ctl_stop( 'icebergs, icb_trj_end: nf_close failed' ) 277 315 ! 316 IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 278 317 END SUBROUTINE icb_trj_end 279 318
Note: See TracChangeset
for help on using the changeset viewer.