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/DYN/dynbfr.F90 – NEMO

Ignore:
Timestamp:
2019-10-21T09:34:11+02:00 (4 years 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/DYN/dynbfr.F90

    r6486 r11738  
    2222   USE timing         ! Timing 
    2323   USE wrk_nemo       ! Memory Allocation 
     24 
     25   USE yomhook, ONLY: lhook, dr_hook 
     26   USE parkind1, ONLY: jprb, jpim 
    2427 
    2528   IMPLICIT NONE 
     
    5356      REAL(wp) ::   zm1_2dt      ! local scalar 
    5457      REAL(wp), POINTER, DIMENSION(:,:,:) ::  ztrdu, ztrdv 
     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='DYN_BFR' 
     63 
     64      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     65 
    5566      !!--------------------------------------------------------------------- 
    5667      ! 
     
    115126      IF( nn_timing == 1 )  CALL timing_stop('dyn_bfr') 
    116127      ! 
     128      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    117129   END SUBROUTINE dyn_bfr 
    118130 
Note: See TracChangeset for help on using the changeset viewer.