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

The Dr Hook changes from my perl code.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/TRD/trdken.F90

    r10047 r11738  
    2929   USE ldfslp         ! Isopycnal slopes 
    3030 
     31   USE yomhook, ONLY: lhook, dr_hook 
     32   USE parkind1, ONLY: jprb, jpim 
     33 
    3134   IMPLICIT NONE 
    3235   PRIVATE 
     
    5356 
    5457   INTEGER FUNCTION trd_ken_alloc() 
     58   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     59   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     60   REAL(KIND=jprb)               :: zhook_handle 
     61 
     62   CHARACTER(LEN=*), PARAMETER :: RoutineName='TRD_KEN_ALLOC' 
     63 
     64   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     65 
    5566      !!--------------------------------------------------------------------- 
    5667      !!                  ***  FUNCTION trd_ken_alloc  *** 
     
    6071      IF( lk_mpp             )   CALL mpp_sum ( trd_ken_alloc ) 
    6172      IF( trd_ken_alloc /= 0 )   CALL ctl_warn('trd_ken_alloc: failed to allocate arrays') 
     73   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    6274   END FUNCTION trd_ken_alloc 
    6375 
     
    90102      REAL(wp), POINTER, DIMENSION(:,:)   ::   z2dx, z2dy, zke2d   ! 2D workspace  
    91103      REAL(wp), POINTER, DIMENSION(:,:,:) ::   zke                 ! 3D workspace  
     104      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     105      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     106      REAL(KIND=jprb)               :: zhook_handle 
     107 
     108      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRD_KEN' 
     109 
     110      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     111 
    92112      !!---------------------------------------------------------------------- 
    93113      ! 
     
    223243      CALL wrk_dealloc( jpi, jpj, jpk, zke ) 
    224244      ! 
     245      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    225246   END SUBROUTINE trd_ken 
    226247 
     
    244265      REAL(wp) ::   zcoef                            ! temporary scalars 
    245266      REAL(wp), POINTER, DIMENSION(:,:,:) ::  zconv  ! temporary conv on W-grid 
     267      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     268      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     269      REAL(KIND=jprb)               :: zhook_handle 
     270 
     271      CHARACTER(LEN=*), PARAMETER :: RoutineName='KEN_P2K' 
     272 
     273      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     274 
    246275      !!---------------------------------------------------------------------- 
    247276      ! 
     
    271300      CALL wrk_dealloc( jpi,jpj,jpk, zconv )       
    272301      ! 
     302      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    273303   END SUBROUTINE ken_p2k 
    274304 
     
    281311      !!---------------------------------------------------------------------- 
    282312      INTEGER  ::   ji, jj, jk   ! dummy loop indices 
     313      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     314      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     315      REAL(KIND=jprb)               :: zhook_handle 
     316 
     317      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRD_KEN_INIT' 
     318 
     319      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     320 
    283321      !!---------------------------------------------------------------------- 
    284322      ! 
     
    302340      ENDIF 
    303341      ! 
     342      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    304343   END SUBROUTINE trd_ken_init 
    305344 
Note: See TracChangeset for help on using the changeset viewer.