Changeset 11738 for branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/TRD/trdtra.F90

Timestamp:

2019-10-21T09:34:11+02:00 (5 years ago)

Author:

marc

Message:

The Dr Hook changes from my perl code.

File:

• branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/TRD/trdtra.F90 (modified) (11 diffs)

branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/TRD/trdtra.F90

@@ -34 +34 @@
    USE wrk_nemo       ! Memory allocation
 
+   USE yomhook, ONLY: lhook, dr_hook
+   USE parkind1, ONLY: jprb, jpim
+
    IMPLICIT NONE
    PRIVATE
@@ -56 +59 @@
 
    INTEGER FUNCTION trd_tra_alloc()
+   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0
+   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1
+   REAL(KIND=jprb)               :: zhook_handle
+
+   CHARACTER(LEN=*), PARAMETER :: RoutineName='TRD_TRA_ALLOC'
+
+   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle)
+
       !!---------------------------------------------------------------------
       !!                  ***  FUNCTION trd_tra_alloc  ***
@@ -63 +74 @@
       IF( lk_mpp             )   CALL mpp_sum ( trd_tra_alloc )
       IF( trd_tra_alloc /= 0 )   CALL ctl_warn('trd_tra_alloc: failed to allocate arrays')
+   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle)
    END FUNCTION trd_tra_alloc
 
@@ -89 +101 @@
       INTEGER  ::   jk   ! loop indices
       REAL(wp), POINTER, DIMENSION(:,:,:)  ::   zwt, zws, ztrdt, ztrds   ! 3D workspace
+      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0
+      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1
+      REAL(KIND=jprb)               :: zhook_handle
+
+      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRD_TRA'
+
+      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle)
+
       !!----------------------------------------------------------------------
       !
@@ -202 +222 @@
       CALL wrk_dealloc( jpi, jpj, jpk, ztrds )
       !
+      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle)
    END SUBROUTINE trd_tra
 
@@ -225 +246 @@
       INTEGER  ::   ji, jj, jk   ! dummy loop indices
       INTEGER  ::   ii, ij, ik   ! index shift as function of the direction
+      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0
+      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1
+      REAL(KIND=jprb)               :: zhook_handle
+
+      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRD_TRA_ADV'
+
+      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle)
+
       !!----------------------------------------------------------------------
       !
@@ -248 +277 @@
       END DO
       !
+      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle)
    END SUBROUTINE trd_tra_adv
 
@@ -263 +293 @@
       INTEGER                   , INTENT(in   ) ::   ktrd    ! tracer trend index
       INTEGER                   , INTENT(in   ) ::   kt      ! time step
+      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0
+      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1
+      REAL(KIND=jprb)               :: zhook_handle
+
+      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRD_TRA_MNG'
+
+      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle)
+
       !!----------------------------------------------------------------------
 
@@ -314 +352 @@
       ENDIF
       !
+      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle)
    END SUBROUTINE trd_tra_mng
 
@@ -331 +370 @@
      INTEGER ::   ikbu, ikbv   ! local integers
      REAL(wp), POINTER, DIMENSION(:,:)   ::   z2dx, z2dy   ! 2D workspace 
+     INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0
+     INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1
+     REAL(KIND=jprb)               :: zhook_handle
+
+     CHARACTER(LEN=*), PARAMETER :: RoutineName='TRD_TRA_IOM'
+
+     IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle)
+
      !!----------------------------------------------------------------------
      !
@@ -389 +436 @@
      END IF
      !
+     IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle)
    END SUBROUTINE trd_tra_iom