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

branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DYN/dynvor.F90

@@ -41 +41 @@
 
 
+   USE yomhook, ONLY: lhook, dr_hook
+   USE parkind1, ONLY: jprb, jpim
+
    IMPLICIT NONE
    PRIVATE
@@ -82 +85 @@
       !
       REAL(wp), POINTER, DIMENSION(:,:,:) ::  ztrdu, ztrdv
+      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0
+      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1
+      REAL(KIND=jprb)               :: zhook_handle
+
+      CHARACTER(LEN=*), PARAMETER :: RoutineName='DYN_VOR'
+
+      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle)
+
       !!----------------------------------------------------------------------
       !
@@ -187 +198 @@
       IF( nn_timing == 1 )  CALL timing_stop('dyn_vor')
       !
+      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle)
    END SUBROUTINE dyn_vor
 
@@ -224 +236 @@
       REAL(wp) ::   zx1, zy1, zfact2, zx2, zy2   ! local scalars
       REAL(wp), POINTER, DIMENSION(:,:) :: zwx, zwy, zwz
+      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0
+      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1
+      REAL(KIND=jprb)               :: zhook_handle
+
+      CHARACTER(LEN=*), PARAMETER :: RoutineName='VOR_ENE'
+
+      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle)
+
       !!----------------------------------------------------------------------
       !
@@ -297 +317 @@
       IF( nn_timing == 1 )  CALL timing_stop('vor_ene')
       !
+      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle)
    END SUBROUTINE vor_ene
 
@@ -336 +357 @@
       REAL(wp) ::   zfact2, zva, zcva, zx2, zy2   !   -      -
       REAL(wp), POINTER, DIMENSION(:,:) :: zwx, zwy, zwz, zww
+      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0
+      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1
+      REAL(KIND=jprb)               :: zhook_handle
+
+      CHARACTER(LEN=*), PARAMETER :: RoutineName='VOR_MIX'
+
+      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle)
+
       !!----------------------------------------------------------------------
       !
@@ -416 +445 @@
       IF( nn_timing == 1 )  CALL timing_stop('vor_mix')
       !
+      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle)
    END SUBROUTINE vor_mix
 
@@ -453 +483 @@
       REAL(wp) ::   zfact1, zuav, zvau   ! temporary scalars
       REAL(wp), POINTER, DIMENSION(:,:) :: zwx, zwy, zwz, zww
+      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0
+      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1
+      REAL(KIND=jprb)               :: zhook_handle
+
+      CHARACTER(LEN=*), PARAMETER :: RoutineName='VOR_ENS'
+
+      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle)
+
       !!----------------------------------------------------------------------
       !
@@ -534 +572 @@
       IF( nn_timing == 1 )  CALL timing_stop('vor_ens')
       !
+      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle)
    END SUBROUTINE vor_ens
 
@@ -570 +609 @@
 #if defined key_vvl
       REAL(wp), POINTER    , DIMENSION(:,:,:)         :: ze3f     !  3D workspace (lk_vvl=T)
+      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0
+      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1
+      REAL(KIND=jprb)               :: zhook_handle
+
+      CHARACTER(LEN=*), PARAMETER :: RoutineName='VOR_EEN'
+
+      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle)
+
 #else
       REAL(wp), ALLOCATABLE, DIMENSION(:,:,:), SAVE   :: ze3f     ! lk_vvl=F, ze3f=1/e3f saved one for all
@@ -707 +754 @@
       IF( nn_timing == 1 )  CALL timing_stop('vor_een')
       !
+      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle)
    END SUBROUTINE vor_een
 
@@ -722 +770 @@
       !!
       NAMELIST/namdyn_vor/ ln_dynvor_ens, ln_dynvor_ene, ln_dynvor_mix, ln_dynvor_een, ln_dynvor_een_old
+      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0
+      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1
+      REAL(KIND=jprb)               :: zhook_handle
+
+      CHARACTER(LEN=*), PARAMETER :: RoutineName='DYN_VOR_INIT'
+
+      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle)
+
       !!----------------------------------------------------------------------
 
@@ -800 +856 @@
       ENDIF
       !
+      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle)
    END SUBROUTINE dyn_vor_init