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

branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcbio_medusa.F90

@@ -130 +130 @@
       USE trcstat,                    ONLY: trc_rst_dia_stat
 
+      USE yomhook, ONLY: lhook, dr_hook
+      USE parkind1, ONLY: jprb, jpim
+
       IMPLICIT NONE
       PRIVATE
@@ -203 +206 @@
       INTEGER  ::    summask
       CHARACTER(40) :: charout, charout2, charout3, charout4, charout5
+      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0
+      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1
+      REAL(KIND=jprb)               :: zhook_handle
+
+      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_BIO_MEDUSA'
+
+      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle)
+
       !!
       !!------------------------------------------------------------------
@@ -824 +835 @@
 # endif
 
+      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle)
    END SUBROUTINE trc_bio_medusa
 
@@ -848 +860 @@
       CHARACTER(60) :: charout3, charout4
       INTEGER       :: ii,ij
+      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0
+      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1
+      REAL(KIND=jprb)               :: zhook_handle
+
+      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_BIO_EXCEPTIONNAL_FIX'
+
+      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle)
+
     
       !! point to the center of the 3*3 zoom-grid, to check around
@@ -913 +933 @@
 9200  FORMAT(e16.6)
 
+      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle)
    END SUBROUTINE trc_bio_exceptionnal_fix 
 
@@ -930 +951 @@
       INTEGER, DIMENSION(2) :: ilocs         ! 
       INTEGER, INTENT( in ) :: kt, jk
+      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0
+      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1
+      REAL(KIND=jprb)               :: zhook_handle
+
+      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_BIO_CHECK'
+
+      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle)
+
       !!
       !!==========================
@@ -1035 +1064 @@
 9900  FORMAT ('trc_bio:tracer anomaly: kt=',i6,' min ALK: ',f16.10,', i j k: ',3i5)
 
+      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle)
    END SUBROUTINE trc_bio_check
 
@@ -1044 +1074 @@
 CONTAINS
    SUBROUTINE trc_bio_medusa( kt )                   ! Empty routine
+      USE yomhook, ONLY: lhook, dr_hook
+      USE parkind1, ONLY: jprb, jpim
+
       IMPLICIT NONE
       INTEGER, INTENT( in ) ::   kt
+      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0
+      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1
+      REAL(KIND=jprb)               :: zhook_handle
+
+      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_BIO_MEDUSA'
+
+      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle)
+
       WRITE(*,*) 'trc_bio_medusa: You should not have seen this print! error?', kt
+      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle)
    END SUBROUTINE trc_bio_medusa
 #endif