Changeset 11738 for branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/TRP/trdmxl_trc_rst.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/TOP_SRC/TRP/trdmxl_trc_rst.F90 (modified) (6 diffs)

branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/TRP/trdmxl_trc_rst.F90

@@ -13 +13 @@
    USE trc             ! for nn_dttrc ctrcnm
    USE trdmxl_trc_oce  ! for lk_trdmxl_trc
+
+   USE yomhook, ONLY: lhook, dr_hook
+   USE parkind1, ONLY: jprb, jpim
 
    IMPLICIT NONE
@@ -43 +46 @@
       CHARACTER (len=35) :: charout
       INTEGER :: jl,  jk, jn               ! loop indice
+      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0
+      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1
+      REAL(KIND=jprb)               :: zhook_handle
+
+      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRD_MXL_TRC_RST_WRITE'
+
+      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle)
+
       !!--------------------------------------------------------------------------------
 
@@ -121 +132 @@
       ENDIF
 
+      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle)
     END SUBROUTINE trd_mxl_trc_rst_write
 
@@ -137 +149 @@
       LOGICAL ::  llok
       CHARACTER(LEN=256)  ::   clpath   ! full path to restart file
+      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0
+      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1
+      REAL(KIND=jprb)               :: zhook_handle
+
+      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRD_MXL_TRC_RST_READ'
+
+      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle)
+
       !!-----------------------------------------------------------------------------
       
@@ -206 +226 @@
       ENDIF
       
+      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle)
     END SUBROUTINE trd_mxl_trc_rst_read
   
@@ -215 +236 @@
 CONTAINS
   SUBROUTINE trd_mxl_trc_rst_opn( kt )
+  INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0
+  INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1
+  REAL(KIND=jprb)               :: zhook_handle
+
+  CHARACTER(LEN=*), PARAMETER :: RoutineName='TRD_MXL_TRC_RST_OPN'
+
+  IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle)
+
     WRITE(*,*) 'trd_mxl_trc_rst_opn: You should not have seen this print! error?', kt
+  IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle)
   END SUBROUTINE trd_mxl_trc_rst_opn
   SUBROUTINE trd_mxl_trc_rst_write( kt )           !  No ML diags ==> empty routine
+  INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0
+  INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1
+  REAL(KIND=jprb)               :: zhook_handle
+
+  CHARACTER(LEN=*), PARAMETER :: RoutineName='TRD_MXL_TRC_RST_WRITE'
+
+  IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle)
+
     WRITE(*,*) 'trd_mxl_trc_rst_wri: You should not have seen this print! error?', kt
+  IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle)
   END SUBROUTINE trd_mxl_trc_rst_write
   SUBROUTINE trd_mxl_trc_rst_read                  !  No ML Diags ==> empty routine
+  INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0
+  INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1
+  REAL(KIND=jprb)               :: zhook_handle
+
+  CHARACTER(LEN=*), PARAMETER :: RoutineName='TRD_MXL_TRC_RST_READ'
+
+  IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle)
+
+  IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle)
   END SUBROUTINE trd_mxl_trc_rst_read
 #endif