Changeset 11738 for branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/TRD/trdvor.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/TRD/trdvor.F90
r6486 r11738 29 29 USE wrk_nemo ! Memory allocation 30 30 31 USE yomhook, ONLY: lhook, dr_hook 32 USE parkind1, ONLY: jprb, jpim 33 31 34 IMPLICIT NONE 32 35 PRIVATE … … 67 70 68 71 INTEGER FUNCTION trd_vor_alloc() 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='TRD_VOR_ALLOC' 77 78 IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 79 69 80 !!---------------------------------------------------------------------------- 70 81 !! *** ROUTINE trd_vor_alloc *** … … 77 88 IF( lk_mpp ) CALL mpp_sum ( trd_vor_alloc ) 78 89 IF( trd_vor_alloc /= 0 ) CALL ctl_warn('trd_vor_alloc: failed to allocate arrays') 90 IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 79 91 END FUNCTION trd_vor_alloc 80 92 … … 93 105 INTEGER :: ji, jj ! dummy loop indices 94 106 REAL(wp), POINTER, DIMENSION(:,:) :: ztswu, ztswv ! 2D workspace 107 INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 108 INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 109 REAL(KIND=jprb) :: zhook_handle 110 111 CHARACTER(LEN=*), PARAMETER :: RoutineName='TRD_VOR' 112 113 IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 114 95 115 !!---------------------------------------------------------------------- 96 116 … … 125 145 CALL wrk_dealloc( jpi, jpj, ztswu, ztswv ) 126 146 ! 147 IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 127 148 END SUBROUTINE trd_vor 128 149 … … 162 183 INTEGER :: ikbu, ikbv ! local integers 163 184 REAL(wp), POINTER, DIMENSION(:,:) :: zudpvor, zvdpvor ! total cmulative trends 185 INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 186 INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 187 REAL(KIND=jprb) :: zhook_handle 188 189 CHARACTER(LEN=*), PARAMETER :: RoutineName='TRD_VOR_ZINT_2D' 190 191 IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 192 164 193 !!---------------------------------------------------------------------- 165 194 … … 214 243 CALL wrk_dealloc( jpi, jpj, zudpvor, zvdpvor ) 215 244 ! 245 IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 216 246 END SUBROUTINE trd_vor_zint_2d 217 247 … … 252 282 REAL(wp), POINTER, DIMENSION(:,:) :: zubet , zvbet ! Beta.V 253 283 REAL(wp), POINTER, DIMENSION(:,:) :: zudpvor, zvdpvor ! total cmulative trends 284 INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 285 INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 286 REAL(KIND=jprb) :: zhook_handle 287 288 CHARACTER(LEN=*), PARAMETER :: RoutineName='TRD_VOR_ZINT_3D' 289 290 IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 291 254 292 !!---------------------------------------------------------------------- 255 293 … … 310 348 CALL wrk_dealloc( jpi,jpj, zubet, zvbet, zudpvor, zvdpvor ) 311 349 ! 350 IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 312 351 END SUBROUTINE trd_vor_zint_3d 313 352 … … 326 365 REAL(wp) :: zmean ! local scalars 327 366 REAL(wp), POINTER, DIMENSION(:,:) :: zun, zvn 367 INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 368 INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 369 REAL(KIND=jprb) :: zhook_handle 370 371 CHARACTER(LEN=*), PARAMETER :: RoutineName='TRD_VOR_IOM' 372 373 IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 374 328 375 !!---------------------------------------------------------------------- 329 376 … … 463 510 CALL wrk_dealloc( jpi, jpj, zun, zvn ) 464 511 ! 512 IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 465 513 END SUBROUTINE trd_vor_iom 466 514 … … 476 524 CHARACTER (len=40) :: clhstnam 477 525 CHARACTER (len=40) :: clop 526 INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 527 INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 528 REAL(KIND=jprb) :: zhook_handle 529 530 CHARACTER(LEN=*), PARAMETER :: RoutineName='TRD_VOR_INIT' 531 532 IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 533 478 534 !!---------------------------------------------------------------------- 479 535 … … 585 641 ENDIF 586 642 ! 643 IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 587 644 END SUBROUTINE trd_vor_init 588 645
Note: See TracChangeset
for help on using the changeset viewer.