Changeset 11738 for branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/TRD/trdglo.F90
- Timestamp:
- 2019-10-21T09:34:11+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/TRD/trdglo.F90
r6486 r11738 31 31 USE wrk_nemo ! Memory allocation 32 32 33 USE yomhook, ONLY: lhook, dr_hook 34 USE parkind1, ONLY: jprb, jpim 35 33 36 IMPLICIT NONE 34 37 PRIVATE … … 79 82 REAL(wp):: zvm, zvt, zvs, z1_2rau0 ! local scalars 80 83 REAL(wp), POINTER, DIMENSION(:,:) :: ztswu, ztswv, z2dx, z2dy ! 2D workspace 84 INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 85 INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 86 REAL(KIND=jprb) :: zhook_handle 87 88 CHARACTER(LEN=*), PARAMETER :: RoutineName='TRD_GLO' 89 90 IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 91 81 92 !!---------------------------------------------------------------------- 82 93 … … 181 192 CALL wrk_dealloc( jpi, jpj, ztswu, ztswv, z2dx, z2dy ) 182 193 ! 194 IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 183 195 END SUBROUTINE trd_glo 184 196 … … 195 207 REAL(wp) :: zcof ! local scalar 196 208 REAL(wp), POINTER, DIMENSION(:,:,:) :: zkx, zky, zkz, zkepe 209 INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 210 INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 211 REAL(KIND=jprb) :: zhook_handle 212 213 CHARACTER(LEN=*), PARAMETER :: RoutineName='GLO_DYN_WRI' 214 215 IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 216 197 217 !!---------------------------------------------------------------------- 198 218 … … 375 395 CALL wrk_dealloc( jpi, jpj, jpk, zkx, zky, zkz, zkepe ) 376 396 ! 397 IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 377 398 END SUBROUTINE glo_dyn_wri 378 399 … … 387 408 ! 388 409 INTEGER :: jk ! loop indices 410 INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 411 INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 412 REAL(KIND=jprb) :: zhook_handle 413 414 CHARACTER(LEN=*), PARAMETER :: RoutineName='GLO_TRA_WRI' 415 416 IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 417 389 418 !!---------------------------------------------------------------------- 390 419 … … 508 537 ENDIF 509 538 ! 539 IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 510 540 END SUBROUTINE glo_tra_wri 511 541 … … 518 548 !!---------------------------------------------------------------------- 519 549 INTEGER :: ji, jj, jk ! dummy loop indices 550 INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 551 INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 552 REAL(KIND=jprb) :: zhook_handle 553 554 CHARACTER(LEN=*), PARAMETER :: RoutineName='TRD_GLO_INIT' 555 556 IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 557 520 558 !!---------------------------------------------------------------------- 521 559 … … 559 597 ENDIF 560 598 ! 599 IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 561 600 END SUBROUTINE trd_glo_init 562 601
Note: See TracChangeset
for help on using the changeset viewer.