New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 11738 for branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/ZDF – NEMO

Ignore:
Timestamp:
2019-10-21T09:34:11+02:00 (5 years ago)
Author:
marc
Message:

The Dr Hook changes from my perl code.

Location:
branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/ZDF
Files:
11 edited

Legend:

Unmodified
Added
Removed

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/ZDF/zdf_oce.F90

    r6487 r11738  
    1010   USE in_out_manager ! I/O manager 
    1111   USE lib_mpp        ! MPP library 
     12 
     13   USE yomhook, ONLY: lhook, dr_hook 
     14   USE parkind1, ONLY: jprb, jpim 
    1215 
    1316   IMPLICIT NONE 
    … …  
    5558 
    5659   INTEGER FUNCTION zdf_oce_alloc() 
     60   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     61   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     62   REAL(KIND=jprb)               :: zhook_handle 
     63 
     64   CHARACTER(LEN=*), PARAMETER :: RoutineName='ZDF_OCE_ALLOC' 
     65 
     66   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     67 
    5768      !!---------------------------------------------------------------------- 
    5869      !!            *** FUNCTION zdf_oce_alloc *** 
    … …  
    7081      IF( zdf_oce_alloc /= 0 )   CALL ctl_warn('zdf_oce_alloc: failed to allocate arrays') 
    7182      ! 
     83   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    7284   END FUNCTION zdf_oce_alloc 
    7385 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfbfr.F90

    r6486 r11738  
    2727   USE phycst, ONLY: vkarmn 
    2828 
     29   USE yomhook, ONLY: lhook, dr_hook 
     30   USE parkind1, ONLY: jprb, jpim 
     31 
    2932   IMPLICIT NONE 
    3033   PRIVATE 
    … …  
    6568 
    6669   INTEGER FUNCTION zdf_bfr_alloc() 
     70   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     71   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     72   REAL(KIND=jprb)               :: zhook_handle 
     73 
     74   CHARACTER(LEN=*), PARAMETER :: RoutineName='ZDF_BFR_ALLOC' 
     75 
     76   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     77 
    6778      !!---------------------------------------------------------------------- 
    6879      !!                ***  FUNCTION zdf_bfr_alloc  *** 
    … …  
    7283      IF( lk_mpp             )   CALL mpp_sum ( zdf_bfr_alloc ) 
    7384      IF( zdf_bfr_alloc /= 0 )   CALL ctl_warn('zdf_bfr_alloc: failed to allocate arrays.') 
     85   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    7486   END FUNCTION zdf_bfr_alloc 
    7587 
    … …  
    97109      REAL(wp) ::   zvu, zuv, zecu, zecv, ztmp   ! temporary scalars 
    98110      REAL(wp), POINTER, DIMENSION(:,:) ::  zbfrt, ztfrt 
     111      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     112      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     113      REAL(KIND=jprb)               :: zhook_handle 
     114 
     115      CHARACTER(LEN=*), PARAMETER :: RoutineName='ZDF_BFR' 
     116 
     117      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     118 
    99119      !!---------------------------------------------------------------------- 
    100120      ! 
    … …  
    215235      IF( nn_timing == 1 )  CALL timing_stop('zdf_bfr') 
    216236      ! 
     237      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    217238   END SUBROUTINE zdf_bfr 
    218239 
    … …  
    241262                    &          rn_tfri1, rn_tfri2, rn_tfri2_max, rn_tfeb2, rn_tfrz0, ln_tfr2d, & 
    242263                    &  rn_bfrien, rn_tfrien, ln_bfrimp, ln_loglayer 
     264                    INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     265                    INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     266                    REAL(KIND=jprb)               :: zhook_handle 
     267 
     268                    CHARACTER(LEN=*), PARAMETER :: RoutineName='ZDF_BFR_INIT' 
     269 
     270                    IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     271 
    243272      !!---------------------------------------------------------------------- 
    244273      ! 
    … …  
    488517      IF( nn_timing == 1 )  CALL timing_stop('zdf_bfr_init') 
    489518      ! 
     519                    IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    490520   END SUBROUTINE zdf_bfr_init 
    491521 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfddm.F90

    r6498 r11738  
    2828   USE timing          ! Timing 
    2929 
     30   USE yomhook, ONLY: lhook, dr_hook 
     31   USE parkind1, ONLY: jprb, jpim 
     32 
    3033   IMPLICIT NONE 
    3134   PRIVATE 
    … …  
    5457 
    5558   INTEGER FUNCTION zdf_ddm_alloc() 
     59   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     60   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     61   REAL(KIND=jprb)               :: zhook_handle 
     62 
     63   CHARACTER(LEN=*), PARAMETER :: RoutineName='ZDF_DDM_ALLOC' 
     64 
     65   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     66 
    5667      !!---------------------------------------------------------------------- 
    5768      !!                ***  ROUTINE zdf_ddm_alloc  *** 
    … …  
    6071      IF( lk_mpp             )   CALL mpp_sum ( zdf_ddm_alloc ) 
    6172      IF( zdf_ddm_alloc /= 0 )   CALL ctl_warn('zdf_ddm_alloc: failed to allocate arrays') 
     73   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    6274   END FUNCTION zdf_ddm_alloc 
    6375 
    … …  
    102114      REAL(wp) ::   zavdt, zavds    !   -      - 
    103115      REAL(wp), POINTER, DIMENSION(:,:) ::   zrau, zmsks, zmskf, zmskd1, zmskd2, zmskd3 
     116      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     117      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     118      REAL(KIND=jprb)               :: zhook_handle 
     119 
     120      CHARACTER(LEN=*), PARAMETER :: RoutineName='ZDF_DDM' 
     121 
     122      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     123 
    104124      !!---------------------------------------------------------------------- 
    105125      ! 
    … …  
    222242      IF( nn_timing == 1 )  CALL timing_stop('zdf_ddm') 
    223243      ! 
     244      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    224245   END SUBROUTINE zdf_ddm 
    225246    
    … …  
    237258      !! 
    238259      NAMELIST/namzdf_ddm/ rn_avts, rn_hsbfr 
     260      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     261      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     262      REAL(KIND=jprb)               :: zhook_handle 
     263 
     264      CHARACTER(LEN=*), PARAMETER :: RoutineName='ZDF_DDM_INIT' 
     265 
     266      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     267 
    239268      !!---------------------------------------------------------------------- 
    240269      ! 
    … …  
    262291      avs(:,:,:) = rn_avt0 * wmask(:,:,:)  
    263292      ! 
     293      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    264294   END SUBROUTINE zdf_ddm_init 
    265295 
    … …  
    271301CONTAINS 
    272302   SUBROUTINE zdf_ddm( kt )           ! Dummy routine 
     303   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     304   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     305   REAL(KIND=jprb)               :: zhook_handle 
     306 
     307   CHARACTER(LEN=*), PARAMETER :: RoutineName='ZDF_DDM' 
     308 
     309   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     310 
    273311      WRITE(*,*) 'zdf_ddm: You should not have seen this print! error?', kt 
     312   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    274313   END SUBROUTINE zdf_ddm 
    275314   SUBROUTINE zdf_ddm_init            ! Dummy routine 
     315   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     316   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     317   REAL(KIND=jprb)               :: zhook_handle 
     318 
     319   CHARACTER(LEN=*), PARAMETER :: RoutineName='ZDF_DDM_INIT' 
     320 
     321   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     322 
     323   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    276324   END SUBROUTINE zdf_ddm_init 
    277325#endif 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfevd.F90

    r7061 r11738  
    2525   USE lbclnk          ! ocean lateral boundary conditions (or mpp link) 
    2626   USE timing          ! Timing 
     27 
     28   USE yomhook, ONLY: lhook, dr_hook 
     29   USE parkind1, ONLY: jprb, jpim 
    2730 
    2831   IMPLICIT NONE 
    … …  
    6063      ! 
    6164      INTEGER ::   ji, jj, jk   ! dummy loop indices 
     65      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     66      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     67      REAL(KIND=jprb)               :: zhook_handle 
     68 
     69      CHARACTER(LEN=*), PARAMETER :: RoutineName='ZDF_EVD' 
     70 
     71      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     72 
    6273      !!---------------------------------------------------------------------- 
    6374      ! 
    … …  
    128139      IF( nn_timing == 1 )  CALL timing_stop('zdf_evd') 
    129140      ! 
     141      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    130142   END SUBROUTINE zdf_evd 
    131143 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfgls.F90

    r10047 r11738  
    3232   USE timing         ! Timing 
    3333   USE lib_fortran    ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined)   
     34 
     35   USE yomhook, ONLY: lhook, dr_hook 
     36   USE parkind1, ONLY: jprb, jpim 
    3437 
    3538   IMPLICIT NONE 
    … …  
    112115 
    113116   INTEGER FUNCTION zdf_gls_alloc() 
     117   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     118   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     119   REAL(KIND=jprb)               :: zhook_handle 
     120 
     121   CHARACTER(LEN=*), PARAMETER :: RoutineName='ZDF_GLS_ALLOC' 
     122 
     123   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     124 
    114125      !!---------------------------------------------------------------------- 
    115126      !!                ***  FUNCTION zdf_gls_alloc  *** 
    … …  
    120131      IF( lk_mpp             )   CALL mpp_sum ( zdf_gls_alloc ) 
    121132      IF( zdf_gls_alloc /= 0 )   CALL ctl_warn('zdf_gls_alloc: failed to allocate arrays') 
     133   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    122134   END FUNCTION zdf_gls_alloc 
    123135 
    … …  
    150162      REAL(wp), POINTER, DIMENSION(:,:,:) ::   z_elem_b    ! element of the second matrix diagonal 
    151163      REAL(wp), POINTER, DIMENSION(:,:,:) ::   z_elem_c    ! element of the third  matrix diagonal 
     164      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     165      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     166      REAL(KIND=jprb)               :: zhook_handle 
     167 
     168      CHARACTER(LEN=*), PARAMETER :: RoutineName='ZDF_GLS' 
     169 
     170      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     171 
    152172      !!-------------------------------------------------------------------- 
    153173      ! 
    … …  
    840860      ! 
    841861      ! 
     862      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    842863   END SUBROUTINE zdf_gls 
    843864 
    … …  
    870891         &            nn_bc_surf, nn_bc_bot, nn_z0_met,      & 
    871892         &            nn_stab_func, nn_clos 
     893         INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     894         INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     895         REAL(KIND=jprb)               :: zhook_handle 
     896 
     897         CHARACTER(LEN=*), PARAMETER :: RoutineName='ZDF_GLS_INIT' 
     898 
     899         IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     900 
    872901      !!---------------------------------------------------------- 
    873902      ! 
    … …  
    11511180      IF( nn_timing == 1 )  CALL timing_stop('zdf_gls_init') 
    11521181      ! 
     1182         IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    11531183   END SUBROUTINE zdf_gls_init 
    11541184 
    … …  
    11711201      INTEGER ::   ji, jj, ikbu, ikbv 
    11721202      REAL(wp)::   cbx, cby 
     1203      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     1204      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     1205      REAL(KIND=jprb)               :: zhook_handle 
     1206 
     1207      CHARACTER(LEN=*), PARAMETER :: RoutineName='GLS_RST' 
     1208 
     1209      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     1210 
    11731211      !!---------------------------------------------------------------------- 
    11741212      ! 
    … …  
    12221260      ENDIF 
    12231261      ! 
     1262      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    12241263   END SUBROUTINE gls_rst 
    12251264 
    … …  
    12311270CONTAINS 
    12321271   SUBROUTINE zdf_gls_init           ! Empty routine 
     1272   USE yomhook, ONLY: lhook, dr_hook 
     1273   USE parkind1, ONLY: jprb, jpim 
     1274 
    12331275   IMPLICIT NONE 
     1276   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     1277   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     1278   REAL(KIND=jprb)               :: zhook_handle 
     1279 
     1280   CHARACTER(LEN=*), PARAMETER :: RoutineName='ZDF_GLS_INIT' 
     1281 
     1282   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     1283 
    12341284      WRITE(*,*) 'zdf_gls_init: You should not have seen this print! error?' 
     1285   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    12351286   END SUBROUTINE zdf_gls_init 
    12361287    
    12371288   SUBROUTINE zdf_gls( kt )          ! Empty routine 
     1289   USE yomhook, ONLY: lhook, dr_hook 
     1290   USE parkind1, ONLY: jprb, jpim 
     1291 
    12381292   IMPLICIT NONE 
    12391293      INTEGER, INTENT(in) ::   kt ! ocean time step    
     1294      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     1295      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     1296      REAL(KIND=jprb)               :: zhook_handle 
     1297 
     1298      CHARACTER(LEN=*), PARAMETER :: RoutineName='ZDF_GLS' 
     1299 
     1300      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     1301 
    12401302      WRITE(*,*) 'zdf_gls: You should not have seen this print! error?', kt 
     1303      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    12411304   END SUBROUTINE zdf_gls 
    12421305    
    12431306   SUBROUTINE gls_rst( kt, cdrw )          ! Empty routine 
     1307   USE yomhook, ONLY: lhook, dr_hook 
     1308   USE parkind1, ONLY: jprb, jpim 
     1309 
    12441310   IMPLICIT NONE 
    12451311      INTEGER         , INTENT(in) ::   kt         ! ocean time-step 
    12461312      CHARACTER(len=*), INTENT(in) ::   cdrw       ! "READ"/"WRITE" flag 
     1313      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     1314      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     1315      REAL(KIND=jprb)               :: zhook_handle 
     1316 
     1317      CHARACTER(LEN=*), PARAMETER :: RoutineName='GLS_RST' 
     1318 
     1319      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     1320 
    12471321      WRITE(*,*) 'gls_rst: You should not have seen this print! error?', kt, cdrw 
     1322      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    12481323   END SUBROUTINE gls_rst 
    12491324#endif 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfini.F90

    r6486 r11738  
    3030   USE iom             ! IOM library 
    3131 
     32   USE yomhook, ONLY: lhook, dr_hook 
     33   USE parkind1, ONLY: jprb, jpim 
     34 
    3235   IMPLICIT NONE 
    3336   PRIVATE 
    … …  
    5558      NAMELIST/namzdf/ rn_avm0, rn_avt0, nn_avb, nn_havtb, ln_zdfexp, nn_zdfexp,   & 
    5659         &              ln_zdfevd, nn_evdm, rn_avevd, ln_zdfnpc, nn_npc, nn_npcp 
     60         INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     61         INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     62         REAL(KIND=jprb)               :: zhook_handle 
     63 
     64         CHARACTER(LEN=*), PARAMETER :: RoutineName='ZDF_INIT' 
     65 
     66         IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     67 
    5768      !!---------------------------------------------------------------------- 
    5869 
    … …  
    186197      ENDIF 
    187198      ! 
     199         IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    188200   END SUBROUTINE zdf_init 
    189201 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfkpp.F90

    r10047 r11738  
    3838   USE lib_fortran    ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 
    3939 
     40   USE yomhook, ONLY: lhook, dr_hook 
     41   USE parkind1, ONLY: jprb, jpim 
     42 
    4043   IMPLICIT NONE 
    4144   PRIVATE 
    … …  
    155158 
    156159   INTEGER FUNCTION zdf_kpp_alloc() 
     160   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     161   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     162   REAL(KIND=jprb)               :: zhook_handle 
     163 
     164   CHARACTER(LEN=*), PARAMETER :: RoutineName='ZDF_KPP_ALLOC' 
     165 
     166   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     167 
    157168      !!---------------------------------------------------------------------- 
    158169      !!                 ***  FUNCTION zdf_kpp_alloc  *** 
    … …  
    172183      IF( lk_mpp             )   CALL mpp_sum ( zdf_kpp_alloc ) 
    173184      IF( zdf_kpp_alloc /= 0 )   CALL ctl_warn('zdf_kpp_alloc: failed to allocate arrays') 
     185   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    174186   END FUNCTION zdf_kpp_alloc 
    175187 
    … …  
    256268      REAL(wp), POINTER, DIMENSION(:,:) ::   zBo, zBosol, zustar         ! Surface buoyancy forcing, friction velocity 
    257269      REAL(wp), POINTER, DIMENSION(:,:) ::   zmask, zblcm, zblct 
     270      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     271      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     272      REAL(KIND=jprb)               :: zhook_handle 
     273 
     274      CHARACTER(LEN=*), PARAMETER :: RoutineName='ZDF_KPP' 
     275 
     276      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     277 
    258278      !!-------------------------------------------------------------------- 
    259279      ! 
    … …  
    11921212      IF( nn_timing == 1 )  CALL timing_stop('zdf_kpp') 
    11931213      ! 
     1214      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    11941215   END SUBROUTINE zdf_kpp 
    11951216 
    … …  
    12071228      INTEGER, INTENT(in) :: kt 
    12081229      INTEGER :: ji, jj, jk 
     1230      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     1231      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     1232      REAL(KIND=jprb)               :: zhook_handle 
     1233 
     1234      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRA_KPP' 
     1235 
     1236      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     1237 
    12091238      ! 
    12101239      IF( nn_timing == 1 )  CALL timing_start('tra_kpp') 
    … …  
    12521281      IF( nn_timing == 1 )  CALL timing_stop('tra_kpp') 
    12531282      ! 
     1283      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    12541284   END SUBROUTINE tra_kpp 
    12551285 
    … …  
    12801310      REAL(wp) ::   ztra, zflx 
    12811311      REAL(wp), DIMENSION(:,:,:), ALLOCATABLE ::   ztrtrd 
     1312      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     1313      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     1314      REAL(KIND=jprb)               :: zhook_handle 
     1315 
     1316      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_KPP' 
     1317 
     1318      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     1319 
    12821320      !!---------------------------------------------------------------------- 
    12831321 
    … …  
    13201358      ENDIF 
    13211359      ! 
     1360      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    13221361   END SUBROUTINE trc_kpp 
    13231362 
    … …  
    13281367   SUBROUTINE trc_kpp( kt )         ! Dummy routine 
    13291368      INTEGER, INTENT(in) ::   kt   ! ocean time-step index 
     1369      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     1370      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     1371      REAL(KIND=jprb)               :: zhook_handle 
     1372 
     1373      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_KPP' 
     1374 
     1375      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     1376 
    13301377      WRITE(*,*) 'tra_kpp: You should not have seen this print! error?', kt 
     1378      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    13311379   END SUBROUTINE trc_kpp 
    13321380#endif 
    … …  
    13581406      !! 
    13591407      NAMELIST/namzdf_kpp/ ln_kpprimix, rn_difmiw, rn_difsiw, rn_riinfty, rn_difri, rn_bvsqcon, rn_difcon, nn_ave 
     1408      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     1409      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     1410      REAL(KIND=jprb)               :: zhook_handle 
     1411 
     1412      CHARACTER(LEN=*), PARAMETER :: RoutineName='ZDF_KPP_INIT' 
     1413 
     1414      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     1415 
    13601416      !!---------------------------------------------------------------------- 
    13611417      ! 
    … …  
    15671623      IF( nn_timing == 1 )  CALL timing_stop('zdf_kpp_init') 
    15681624      ! 
     1625      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    15691626   END SUBROUTINE zdf_kpp_init 
    15701627 
    … …  
    15761633CONTAINS 
    15771634   SUBROUTINE zdf_kpp_init           ! Dummy routine 
     1635   USE yomhook, ONLY: lhook, dr_hook 
     1636   USE parkind1, ONLY: jprb, jpim 
     1637 
    15781638   IMPLICIT NONE 
     1639   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     1640   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     1641   REAL(KIND=jprb)               :: zhook_handle 
     1642 
     1643   CHARACTER(LEN=*), PARAMETER :: RoutineName='ZDF_KPP_INIT' 
     1644 
     1645   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     1646 
    15791647      WRITE(*,*) 'zdf_kpp_init: You should not have seen this print! error?' 
     1648   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    15801649   END SUBROUTINE zdf_kpp_init 
    15811650   SUBROUTINE zdf_kpp( kt )          ! Dummy routine 
     1651   USE yomhook, ONLY: lhook, dr_hook 
     1652   USE parkind1, ONLY: jprb, jpim 
     1653 
    15821654   IMPLICIT NONE 
    15831655      INTEGER, INTENT( in  ) ::   kt   ! ocean time step 
     1656      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     1657      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     1658      REAL(KIND=jprb)               :: zhook_handle 
     1659 
     1660      CHARACTER(LEN=*), PARAMETER :: RoutineName='ZDF_KPP' 
     1661 
     1662      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     1663 
    15841664      WRITE(*,*) 'zdf_kpp: You should not have seen this print! error?', kt 
     1665      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    15851666   END SUBROUTINE zdf_kpp 
    15861667   SUBROUTINE tra_kpp( kt )          ! Dummy routine 
     1668   USE yomhook, ONLY: lhook, dr_hook 
     1669   USE parkind1, ONLY: jprb, jpim 
     1670 
    15871671   IMPLICIT NONE 
    15881672      INTEGER, INTENT( in  ) ::   kt   ! ocean time step 
     1673      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     1674      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     1675      REAL(KIND=jprb)               :: zhook_handle 
     1676 
     1677      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRA_KPP' 
     1678 
     1679      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     1680 
    15891681      WRITE(*,*) 'tra_kpp: You should not have seen this print! error?', kt 
     1682      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    15901683   END SUBROUTINE tra_kpp 
    15911684   SUBROUTINE trc_kpp( kt )          ! Dummy routine 
     1685   USE yomhook, ONLY: lhook, dr_hook 
     1686   USE parkind1, ONLY: jprb, jpim 
     1687 
    15921688   IMPLICIT NONE 
    15931689      INTEGER, INTENT( in  ) ::   kt   ! ocean time step 
     1690      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     1691      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     1692      REAL(KIND=jprb)               :: zhook_handle 
     1693 
     1694      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_KPP' 
     1695 
     1696      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     1697 
    15941698      WRITE(*,*) 'trc_kpp: You should not have seen this print! error?', kt 
     1699      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    15951700   END SUBROUTINE trc_kpp 
    15961701#endif 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfmxl.F90

    r7560 r11738  
    2424   USE trc_oce, ONLY : lk_offline ! offline flag 
    2525 
     26   USE yomhook, ONLY: lhook, dr_hook 
     27   USE parkind1, ONLY: jprb, jpim 
     28 
    2629   IMPLICIT NONE 
    2730   PRIVATE 
    … …  
    5962 
    6063   INTEGER FUNCTION zdf_mxl_alloc() 
     64   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     65   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     66   REAL(KIND=jprb)               :: zhook_handle 
     67 
     68   CHARACTER(LEN=*), PARAMETER :: RoutineName='ZDF_MXL_ALLOC' 
     69 
     70   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     71 
    6172      !!---------------------------------------------------------------------- 
    6273      !!               ***  FUNCTION zdf_mxl_alloc  *** 
    … …  
    7283         ! 
    7384      ENDIF 
     85   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    7486   END FUNCTION zdf_mxl_alloc 
    7587 
    … …  
    98110      REAL(wp) ::   zN2_c           ! local scalar 
    99111      INTEGER, POINTER, DIMENSION(:,:) ::   imld   ! 2D workspace 
     112      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     113      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     114      REAL(KIND=jprb)               :: zhook_handle 
     115 
     116      CHARACTER(LEN=*), PARAMETER :: RoutineName='ZDF_MXL' 
     117 
     118      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     119 
    100120      !!---------------------------------------------------------------------- 
    101121      ! 
    … …  
    172192      IF( nn_timing == 1 )  CALL timing_stop('zdf_mxl') 
    173193      ! 
     194      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    174195   END SUBROUTINE zdf_mxl 
    175196 
    … …  
    220241      REAL, POINTER, DIMENSION(:,:)    :: zRHO1, zRHO2  ! Densities  
    221242      INTEGER :: ji, jj, jk                             ! loop counter  
     243      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     244      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     245      REAL(KIND=jprb)               :: zhook_handle 
     246 
     247      CHARACTER(LEN=*), PARAMETER :: RoutineName='ZDF_MXL_ZINT_MLD' 
     248 
     249      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     250 
    222251 
    223252      !!-------------------------------------------------------------------------------------  
    … …  
    356385      CALL wrk_dealloc( jpi,jpj, jpk, zT, zdTdz, zmoddT )  
    357386      !  
     387      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    358388   END SUBROUTINE zdf_mxl_zint_mld 
    359389 
    … …  
    375405      INTEGER,  ALLOCATABLE, DIMENSION(:,:) ::   ilevel 
    376406      REAL(wp), ALLOCATABLE, DIMENSION(:,:) ::   zthick_0, zthick 
     407      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     408      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     409      REAL(KIND=jprb)               :: zhook_handle 
     410 
     411      CHARACTER(LEN=*), PARAMETER :: RoutineName='ZDF_MXL_ZINT_HTC' 
     412 
     413      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     414 
    377415 
    378416      !!---------------------------------------------------------------------- 
    … …  
    435473      htc_mld(:,:) = zcoef * htc_mld(:,:) 
    436474 
     475      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    437476   END SUBROUTINE zdf_mxl_zint_htc 
    438477 
    … …  
    459498 
    460499      NAMELIST/namzdf_mldzint/ nn_mld_diag, sn_mld1, sn_mld2, sn_mld3, sn_mld4, sn_mld5 
     500      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     501      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     502      REAL(KIND=jprb)               :: zhook_handle 
     503 
     504      CHARACTER(LEN=*), PARAMETER :: RoutineName='ZDF_MXL_ZINT' 
     505 
     506      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     507 
    461508 
    462509      !!---------------------------------------------------------------------- 
    … …  
    512559      ENDIF 
    513560 
     561      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    514562   END SUBROUTINE zdf_mxl_zint 
    515563 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfric.F90

    r10047 r11738  
    3333   USE eosbn2, ONLY : nn_eos 
    3434 
     35   USE yomhook, ONLY: lhook, dr_hook 
     36   USE parkind1, ONLY: jprb, jpim 
     37 
    3538   IMPLICIT NONE 
    3639   PRIVATE 
    … …  
    6467 
    6568   INTEGER FUNCTION zdf_ric_alloc() 
     69   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     70   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     71   REAL(KIND=jprb)               :: zhook_handle 
     72 
     73   CHARACTER(LEN=*), PARAMETER :: RoutineName='ZDF_RIC_ALLOC' 
     74 
     75   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     76 
    6677      !!---------------------------------------------------------------------- 
    6778      !!                 ***  FUNCTION zdf_ric_alloc  *** 
    … …  
    7182      IF( lk_mpp             )   CALL mpp_sum ( zdf_ric_alloc ) 
    7283      IF( zdf_ric_alloc /= 0 )   CALL ctl_warn('zdf_ric_alloc: failed to allocate arrays') 
     84   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    7385   END FUNCTION zdf_ric_alloc 
    7486 
    … …  
    122134      REAL(wp) ::   zrhos, zustar 
    123135      REAL(wp), POINTER, DIMENSION(:,:) ::   zwx, ekm_dep   
     136      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     137      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     138      REAL(KIND=jprb)               :: zhook_handle 
     139 
     140      CHARACTER(LEN=*), PARAMETER :: RoutineName='ZDF_RIC' 
     141 
     142      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     143 
    124144      !!---------------------------------------------------------------------- 
    125145      ! 
    … …  
    230250      IF( nn_timing == 1 )  CALL timing_stop('zdf_ric') 
    231251      ! 
     252      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    232253   END SUBROUTINE zdf_ric 
    233254 
    … …  
    251272      NAMELIST/namzdf_ric/ rn_avmri, rn_alp   , nn_ric  , rn_ekmfc,  & 
    252273         &                rn_mldmin, rn_mldmax, rn_wtmix, rn_wvmix, ln_mldw 
     274         INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     275         INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     276         REAL(KIND=jprb)               :: zhook_handle 
     277 
     278         CHARACTER(LEN=*), PARAMETER :: RoutineName='ZDF_RIC_INIT' 
     279 
     280         IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     281 
    253282      !!---------------------------------------------------------------------- 
    254283      ! 
    … …  
    298327      END DO 
    299328      ! 
     329         IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    300330   END SUBROUTINE zdf_ric_init 
    301331 
    … …  
    307337CONTAINS 
    308338   SUBROUTINE zdf_ric_init         ! Dummy routine 
     339   USE yomhook, ONLY: lhook, dr_hook 
     340   USE parkind1, ONLY: jprb, jpim 
     341 
    309342   IMPLICIT NONE 
     343   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     344   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     345   REAL(KIND=jprb)               :: zhook_handle 
     346 
     347   CHARACTER(LEN=*), PARAMETER :: RoutineName='ZDF_RIC_INIT' 
     348 
     349   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     350 
     351   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    310352   END SUBROUTINE zdf_ric_init 
    311353   SUBROUTINE zdf_ric( kt )        ! Dummy routine 
     354   USE yomhook, ONLY: lhook, dr_hook 
     355   USE parkind1, ONLY: jprb, jpim 
     356 
    312357   IMPLICIT NONE 
    313358      INTEGER, INTENT( in ) ::   kt                           ! ocean time-step 
     359      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     360      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     361      REAL(KIND=jprb)               :: zhook_handle 
     362 
     363      CHARACTER(LEN=*), PARAMETER :: RoutineName='ZDF_RIC' 
     364 
     365      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     366 
    314367      WRITE(*,*) 'zdf_ric: You should not have seen this print! error?', kt 
     368      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    315369   END SUBROUTINE zdf_ric 
    316370#endif 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftke.F90

    r9321 r11738  
    6060 
    6161 
     62   USE yomhook, ONLY: lhook, dr_hook 
     63   USE parkind1, ONLY: jprb, jpim 
     64 
    6265   IMPLICIT NONE 
    6366   PRIVATE 
    … …  
    114117 
    115118   INTEGER FUNCTION zdf_tke_alloc() 
     119   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     120   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     121   REAL(KIND=jprb)               :: zhook_handle 
     122 
     123   CHARACTER(LEN=*), PARAMETER :: RoutineName='ZDF_TKE_ALLOC' 
     124 
     125   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     126 
    116127      !!---------------------------------------------------------------------- 
    117128      !!                ***  FUNCTION zdf_tke_alloc  *** 
    … …  
    128139      IF( zdf_tke_alloc /= 0 )   CALL ctl_warn('zdf_tke_alloc: failed to allocate arrays') 
    129140      ! 
     141   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    130142   END FUNCTION zdf_tke_alloc 
    131143 
    … …  
    177189      !!---------------------------------------------------------------------- 
    178190      INTEGER, INTENT(in) ::   kt   ! ocean time step 
     191      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     192      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     193      REAL(KIND=jprb)               :: zhook_handle 
     194 
     195      CHARACTER(LEN=*), PARAMETER :: RoutineName='ZDF_TKE' 
     196 
     197      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     198 
    179199      !!---------------------------------------------------------------------- 
    180200      ! 
    … …  
    200220#endif       
    201221     !  
     222      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    202223   END SUBROUTINE zdf_tke 
    203224 
    … …  
    235256      REAL(wp), POINTER, DIMENSION(:,:  ) :: zhlc 
    236257      REAL(wp), POINTER, DIMENSION(:,:,:) :: zpelc, zdiag, zd_up, zd_lw 
     258      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     259      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     260      REAL(KIND=jprb)               :: zhook_handle 
     261 
     262      CHARACTER(LEN=*), PARAMETER :: RoutineName='TKE_TKE' 
     263 
     264      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     265 
    237266      !!-------------------------------------------------------------------- 
    238267      ! 
    … …  
    520549      IF( nn_timing == 1 )  CALL timing_stop('tke_tke') 
    521550      ! 
     551      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    522552   END SUBROUTINE tke_tke 
    523553 
    … …  
    563593      REAL(wp) ::   zdkv, zemxl, zemlm, zemlp   !   -      - 
    564594      REAL(wp), POINTER, DIMENSION(:,:,:) :: zmpdl, zmxlm, zmxld 
     595      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     596      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     597      REAL(KIND=jprb)               :: zhook_handle 
     598 
     599      CHARACTER(LEN=*), PARAMETER :: RoutineName='TKE_AVN' 
     600 
     601      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     602 
    565603      !!-------------------------------------------------------------------- 
    566604      ! 
    … …  
    753791      IF( nn_timing == 1 )  CALL timing_stop('tke_avn') 
    754792      ! 
     793      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    755794   END SUBROUTINE tke_avn 
    756795 
    … …  
    777816         &                 rn_mxl0 , nn_pdl   , ln_lc  , rn_lc    ,   & 
    778817         &                 nn_etau , nn_htau  , rn_efr , rn_c    
     818         INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     819         INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     820         REAL(KIND=jprb)               :: zhook_handle 
     821 
     822         CHARACTER(LEN=*), PARAMETER :: RoutineName='ZDF_TKE_INIT' 
     823 
     824         IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     825 
    779826      !!---------------------------------------------------------------------- 
    780827 
    … …  
    904951      CALL tke_rst( nit000, 'READ' )  !* read or initialize all required files 
    905952      ! 
     953         IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    906954   END SUBROUTINE zdf_tke_init 
    907955 
    … …  
    922970     INTEGER ::   jit, jk   ! dummy loop indices 
    923971     INTEGER ::   id1, id2, id3, id4, id5, id6   ! local integers 
     972     INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     973     INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     974     REAL(KIND=jprb)               :: zhook_handle 
     975 
     976     CHARACTER(LEN=*), PARAMETER :: RoutineName='TKE_RST' 
     977 
     978     IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     979 
    924980     !!---------------------------------------------------------------------- 
    925981     ! 
    … …  
    9831039     ENDIF 
    9841040     ! 
     1041     IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    9851042   END SUBROUTINE tke_rst 
    9861043 
    … …  
    9921049CONTAINS 
    9931050   SUBROUTINE zdf_tke_init           ! Dummy routine 
     1051   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     1052   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     1053   REAL(KIND=jprb)               :: zhook_handle 
     1054 
     1055   CHARACTER(LEN=*), PARAMETER :: RoutineName='ZDF_TKE_INIT' 
     1056 
     1057   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     1058 
     1059   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    9941060   END SUBROUTINE zdf_tke_init 
    9951061   SUBROUTINE zdf_tke( kt )          ! Dummy routine 
     1062   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     1063   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     1064   REAL(KIND=jprb)               :: zhook_handle 
     1065 
     1066   CHARACTER(LEN=*), PARAMETER :: RoutineName='ZDF_TKE' 
     1067 
     1068   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     1069 
    9961070      WRITE(*,*) 'zdf_tke: You should not have seen this print! error?', kt 
     1071   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    9971072   END SUBROUTINE zdf_tke 
    9981073   SUBROUTINE tke_rst( kt, cdrw ) 
    9991074     CHARACTER(len=*) ::   cdrw 
     1075     INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     1076     INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     1077     REAL(KIND=jprb)               :: zhook_handle 
     1078 
     1079     CHARACTER(LEN=*), PARAMETER :: RoutineName='TKE_RST' 
     1080 
     1081     IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     1082 
    10001083     WRITE(*,*) 'tke_rst: You should not have seen this print! error?', kt, cdwr 
     1084     IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    10011085   END SUBROUTINE tke_rst 
    10021086#endif 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftmx.F90

    r7179 r11738  
    2929   USE lib_fortran    ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined)   
    3030 
     31   USE yomhook, ONLY: lhook, dr_hook 
     32   USE parkind1, ONLY: jprb, jpim 
     33 
    3134   IMPLICIT NONE 
    3235   PRIVATE 
    … …  
    6164 
    6265   INTEGER FUNCTION zdf_tmx_alloc() 
     66   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     67   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     68   REAL(KIND=jprb)               :: zhook_handle 
     69 
     70   CHARACTER(LEN=*), PARAMETER :: RoutineName='ZDF_TMX_ALLOC' 
     71 
     72   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     73 
    6374      !!---------------------------------------------------------------------- 
    6475      !!                ***  FUNCTION zdf_tmx_alloc  *** 
    … …  
    6879      IF( lk_mpp             )   CALL mpp_sum ( zdf_tmx_alloc ) 
    6980      IF( zdf_tmx_alloc /= 0 )   CALL ctl_warn('zdf_tmx_alloc: failed to allocate arrays') 
     81   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    7082   END FUNCTION zdf_tmx_alloc 
    7183 
    … …  
    112124      REAL(wp) ::   ztpc         ! scalar workspace 
    113125      REAL(wp), POINTER, DIMENSION(:,:) ::   zkz 
     126      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     127      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     128      REAL(KIND=jprb)               :: zhook_handle 
     129 
     130      CHARACTER(LEN=*), PARAMETER :: RoutineName='ZDF_TMX' 
     131 
     132      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     133 
    114134      !!---------------------------------------------------------------------- 
    115135      ! 
    … …  
    194214      IF( nn_timing == 1 )  CALL timing_stop('zdf_tmx') 
    195215      ! 
     216      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    196217   END SUBROUTINE zdf_tmx 
    197218 
    … …  
    227248      REAL(wp), DIMENSION(:,:,:), POINTER ::   zempba_3d  , zdn2dz        !  -      - 
    228249      REAL(wp), DIMENSION(:,:,:), POINTER ::   zavt_itf                   !  -      - 
     250      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     251      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     252      REAL(KIND=jprb)               :: zhook_handle 
     253 
     254      CHARACTER(LEN=*), PARAMETER :: RoutineName='TMX_ITF' 
     255 
     256      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     257 
    229258      !!---------------------------------------------------------------------- 
    230259      ! 
    … …  
    323352      IF( nn_timing == 1 )  CALL timing_stop('tmx_itf') 
    324353      ! 
     354      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    325355   END SUBROUTINE tmx_itf 
    326356 
    … …  
    374404      !! 
    375405      NAMELIST/namzdf_tmx/ rn_htmx, rn_n2min, rn_tfe, rn_me, ln_tmx_itf, rn_tfe_itf 
     406      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     407      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     408      REAL(KIND=jprb)               :: zhook_handle 
     409 
     410      CHARACTER(LEN=*), PARAMETER :: RoutineName='ZDF_TMX_INIT' 
     411 
     412      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     413 
    376414      !!---------------------------------------------------------------------- 
    377415      ! 
    … …  
    559597      IF( nn_timing == 1 )  CALL timing_stop('zdf_tmx_init') 
    560598      ! 
     599      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    561600   END SUBROUTINE zdf_tmx_init 
    562601 
    … …  
    583622   USE lib_fortran    ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined)   
    584623 
     624   USE yomhook, ONLY: lhook, dr_hook 
     625   USE parkind1, ONLY: jprb, jpim 
     626 
    585627   IMPLICIT NONE 
    586628   PRIVATE 
    … …  
    622664 
    623665   INTEGER FUNCTION zdf_tmx_alloc() 
     666   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     667   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     668   REAL(KIND=jprb)               :: zhook_handle 
     669 
     670   CHARACTER(LEN=*), PARAMETER :: RoutineName='ZDF_TMX_ALLOC' 
     671 
     672   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     673 
    624674      !!---------------------------------------------------------------------- 
    625675      !!                ***  FUNCTION zdf_tmx_alloc  *** 
    … …  
    632682      IF( lk_mpp             )   CALL mpp_sum ( zdf_tmx_alloc ) 
    633683      IF( zdf_tmx_alloc /= 0 )   CALL ctl_warn('zdf_tmx_alloc: failed to allocate arrays') 
     684   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    634685   END FUNCTION zdf_tmx_alloc 
    635686 
    … …  
    697748      REAL(wp), DIMENSION(:,:,:), POINTER ::  znu_w     ! Molecular kinematic viscosity (W grid) 
    698749      REAL(wp), DIMENSION(:,:,:), POINTER ::  zReb      ! Turbulence intensity parameter 
     750      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     751      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     752      REAL(KIND=jprb)               :: zhook_handle 
     753 
     754      CHARACTER(LEN=*), PARAMETER :: RoutineName='ZDF_TMX' 
     755 
     756      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     757 
    699758      !!---------------------------------------------------------------------- 
    700759      ! 
    … …  
    927986      IF( nn_timing == 1 )   CALL timing_stop('zdf_tmx') 
    928987      ! 
     988      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    929989   END SUBROUTINE zdf_tmx 
    930990 
    … …  
    9621022      !! 
    9631023      NAMELIST/namzdf_tmx_new/ nn_zpyc, ln_mevar, ln_tsdiff 
     1024      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     1025      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     1026      REAL(KIND=jprb)               :: zhook_handle 
     1027 
     1028      CHARACTER(LEN=*), PARAMETER :: RoutineName='ZDF_TMX_INIT' 
     1029 
     1030      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     1031 
    9641032      !!---------------------------------------------------------------------- 
    9651033      ! 
    … …  
    10461114      IF( nn_timing == 1 )  CALL timing_stop('zdf_tmx_init') 
    10471115      ! 
     1116      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    10481117   END SUBROUTINE zdf_tmx_init 
    10491118 
    … …  
    10551124CONTAINS 
    10561125   SUBROUTINE zdf_tmx_init           ! Dummy routine 
     1126   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     1127   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     1128   REAL(KIND=jprb)               :: zhook_handle 
     1129 
     1130   CHARACTER(LEN=*), PARAMETER :: RoutineName='ZDF_TMX_INIT' 
     1131 
     1132   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     1133 
    10571134      WRITE(*,*) 'zdf_tmx: You should not have seen this print! error?' 
     1135   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    10581136   END SUBROUTINE zdf_tmx_init 
    10591137   SUBROUTINE zdf_tmx( kt )          ! Dummy routine 
     1138   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     1139   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     1140   REAL(KIND=jprb)               :: zhook_handle 
     1141 
     1142   CHARACTER(LEN=*), PARAMETER :: RoutineName='ZDF_TMX' 
     1143 
     1144   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     1145 
    10601146      WRITE(*,*) 'zdf_tmx: You should not have seen this print! error?', kt 
     1147   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    10611148   END SUBROUTINE zdf_tmx 
    10621149#endif 
Note: See TracChangeset for help on using the changeset viewer.