Changeset 11738 for branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/LDF/ldfdyn_smag.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/LDF/ldfdyn_smag.F90 (modified) (4 diffs)

branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/LDF/ldfdyn_smag.F90

@@ -24 +24 @@
    USE iom
    USE wrk_nemo
+   USE yomhook, ONLY: lhook, dr_hook
+   USE parkind1, ONLY: jprb, jpim
+
    IMPLICIT NONE
    PRIVATE
@@ -95 +98 @@
       REAL (wp), POINTER, DIMENSION (:,:) ::   zux, zuy , zvx ,zvy, zue1, zue2, zve1, zve2 
       REAL (wp)::  zcmsmag_1, zcmsmag_2 , zcmsh
+      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0
+      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1
+      REAL(KIND=jprb)               :: zhook_handle
+
+      CHARACTER(LEN=*), PARAMETER :: RoutineName='LDF_DYN_SMAG'
+
+      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle)
+
 
 
@@ -287 +298 @@
       !
 
+      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle)
 END SUBROUTINE ldf_dyn_smag
 #else
@@ -294 +306 @@
 CONTAINS
    SUBROUTINE ldf_dyn_smag( kt )       ! Empty routine
+   USE yomhook, ONLY: lhook, dr_hook
+   USE parkind1, ONLY: jprb, jpim
+
    IMPLICIT NONE
       INTEGER :: kt                    ! timestep   
+      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0
+      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1
+      REAL(KIND=jprb)               :: zhook_handle
+
+      CHARACTER(LEN=*), PARAMETER :: RoutineName='LDF_DYN_SMAG'
+
+      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle)
+
       WRITE(*,*) 'ldf_dyn_smag: You should not have seen this print! error? check keys ldf:c3d+smag', kt
+      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle)
    END SUBROUTINE ldf_dyn_smag
 #endif