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

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

@@ -22 +22 @@
       USE in_out_manager  ! I/O manager
 
+      USE yomhook, ONLY: lhook, dr_hook
+      USE parkind1, ONLY: jprb, jpim
+
       IMPLICIT NONE
       PRIVATE
@@ -85 +88 @@
       !!
 !=======================================================================
+
+      USE yomhook, ONLY: lhook, dr_hook
+      USE parkind1, ONLY: jprb, jpim
 
       IMPLICIT NONE
@@ -104 +110 @@
       !! temporary variables
       REAL(wp) ::    fq1,fq2,fq3
+      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0
+      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1
+      REAL(KIND=jprb)               :: zhook_handle
+
+      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_DMS_MEDUSA'
+
+      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle)
+
 ! 
 !=======================================================================
@@ -172 +186 @@
         endif
 
+      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle)
    END SUBROUTINE trc_dms_medusa
 
@@ -234 +249 @@
 !---------------------------------------------------------------------
 
+      USE yomhook, ONLY: lhook, dr_hook
+      USE parkind1, ONLY: jprb, jpim
+
       IMPLICIT NONE
 !
@@ -252 +270 @@
       REAL     :: n      ! Schmidt number exponent
       REAL, PARAMETER :: t_max = 47.0  !! Max T to avoid breaking the Sc fit (C)
+      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0
+      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1
+      REAL(KIND=jprb)               :: zhook_handle
+
+      CHARACTER(LEN=*), PARAMETER :: RoutineName='DMS_FLUX_OCN'
+
+      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle)
+
 
 ! Calculate the Schmidt number (Sc):
@@ -300 +326 @@
       f_dms = (k_dms / 3.6e5) * (dms_conc * 32.0e-9)
 
+      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle)
    END SUBROUTINE dms_flux_ocn
 
@@ -320 +347 @@
 !
       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_DMS_MEDUSA'
+
+      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle)
+
 !
 
       WRITE(*,*) 'trc_dms_medusa: You should not have seen this print! error?'
 
+      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle)
    END SUBROUTINE trc_dms_medusa
 #endif