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 – 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/DYN
Files:
23 edited

Legend:

Unmodified
Added
Removed

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DYN/divcur.F90

    r6487 r11738  
    3636   USE timing          ! Timing 
    3737 
     38   USE yomhook, ONLY: lhook, dr_hook 
     39   USE parkind1, ONLY: jprb, jpim 
     40 
    3841   IMPLICIT NONE 
    3942   PRIVATE 
    … …  
    9396      REAL(wp), POINTER,  DIMENSION(:,:) ::   zwu   ! specific 2D workspace 
    9497      REAL(wp), POINTER,  DIMENSION(:,:) ::   zwv   ! specific 2D workspace 
     98      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     99      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     100      REAL(KIND=jprb)               :: zhook_handle 
     101 
     102      CHARACTER(LEN=*), PARAMETER :: RoutineName='DIV_CUR' 
     103 
     104      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     105 
    95106      !!---------------------------------------------------------------------- 
    96107      ! 
    … …  
    241252      IF( nn_timing == 1 )  CALL timing_stop('div_cur') 
    242253      ! 
     254      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    243255   END SUBROUTINE div_cur 
    244256    
    … …  
    277289      INTEGER  ::   ji, jj, jk    ! dummy loop indices 
    278290      REAL(wp) ::   zraur, zdep   ! local scalars 
     291      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     292      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     293      REAL(KIND=jprb)               :: zhook_handle 
     294 
     295      CHARACTER(LEN=*), PARAMETER :: RoutineName='DIV_CUR' 
     296 
     297      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     298 
    279299      !!---------------------------------------------------------------------- 
    280300      ! 
    … …  
    335355      IF( nn_timing == 1 )  CALL timing_stop('div_cur') 
    336356      ! 
     357      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    337358   END SUBROUTINE div_cur 
    338359    

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DYN/dynadv.F90

    r6486 r11738  
    2222   USE lib_mpp         ! MPP library 
    2323   USE timing          ! Timing 
     24 
     25   USE yomhook, ONLY: lhook, dr_hook 
     26   USE parkind1, ONLY: jprb, jpim 
    2427 
    2528   IMPLICIT NONE 
    … …  
    6164      !!---------------------------------------------------------------------- 
    6265      INTEGER, INTENT( in ) ::   kt   ! ocean time-step index 
     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='DYN_ADV' 
     71 
     72      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     73 
    6374      !!---------------------------------------------------------------------- 
    6475      ! 
    … …  
    8697      IF( nn_timing == 1 )  CALL timing_stop('dyn_adv') 
    8798      ! 
     99      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    88100   END SUBROUTINE dyn_adv 
    89101 
    … …  
    99111      ! 
    100112      NAMELIST/namdyn_adv/ ln_dynadv_vec, nn_dynkeg, ln_dynadv_cen2 , ln_dynadv_ubs, ln_dynzad_zts 
     113      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     114      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     115      REAL(KIND=jprb)               :: zhook_handle 
     116 
     117      CHARACTER(LEN=*), PARAMETER :: RoutineName='DYN_ADV_INIT' 
     118 
     119      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     120 
    101121      !!---------------------------------------------------------------------- 
    102122      ! 
    … …  
    154174      ENDIF 
    155175      ! 
     176      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    156177   END SUBROUTINE dyn_adv_init 
    157178 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DYN/dynadv_cen2.F90

    r6486 r11738  
    2323   USE wrk_nemo       ! Memory Allocation 
    2424   USE timing         ! Timing 
     25 
     26   USE yomhook, ONLY: lhook, dr_hook 
     27   USE parkind1, ONLY: jprb, jpim 
    2528 
    2629   IMPLICIT NONE 
    … …  
    5659      REAL(wp), POINTER, DIMENSION(:,:,:) ::  zfu_t, zfv_t, zfu_f, zfv_f, zfu_uw, zfv_vw, zfw 
    5760      REAL(wp), POINTER, DIMENSION(:,:,:) ::  zfu, zfv 
     61      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     62      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     63      REAL(KIND=jprb)               :: zhook_handle 
     64 
     65      CHARACTER(LEN=*), PARAMETER :: RoutineName='DYN_ADV_CEN2' 
     66 
     67      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     68 
    5869      !!---------------------------------------------------------------------- 
    5970      ! 
    … …  
    164175      IF( nn_timing == 1 )  CALL timing_stop('dyn_adv_cen2') 
    165176      ! 
     177      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    166178   END SUBROUTINE dyn_adv_cen2 
    167179 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DYN/dynadv_ubs.F90

    r6486 r11738  
    2525   USE wrk_nemo       ! Memory Allocation 
    2626   USE timing         ! Timing 
     27 
     28   USE yomhook, ONLY: lhook, dr_hook 
     29   USE parkind1, ONLY: jprb, jpim 
    2730 
    2831   IMPLICIT NONE 
    … …  
    7982      REAL(wp), POINTER, DIMENSION(:,:,:  ) ::  zfu_t, zfv_t, zfu_f, zfv_f, zfu_uw, zfv_vw, zfw 
    8083      REAL(wp), POINTER, DIMENSION(:,:,:,:) ::  zlu_uu, zlv_vv, zlu_uv, zlv_vu 
     84      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     85      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     86      REAL(KIND=jprb)               :: zhook_handle 
     87 
     88      CHARACTER(LEN=*), PARAMETER :: RoutineName='DYN_ADV_UBS' 
     89 
     90      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     91 
    8192      !!---------------------------------------------------------------------- 
    8293      ! 
    … …  
    254265      IF( nn_timing == 1 )  CALL timing_stop('dyn_adv_ubs') 
    255266      ! 
     267      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    256268   END SUBROUTINE dyn_adv_ubs 
    257269 

  • 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 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DYN/dynhpg.F90

    r8447 r11738  
    4646   USE biaspar         ! bias correction variables 
    4747 
     48   USE yomhook, ONLY: lhook, dr_hook 
     49   USE parkind1, ONLY: jprb, jpim 
     50 
    4851   IMPLICIT NONE 
    4952   PRIVATE 
    … …  
    8891      REAL(wp), ALLOCATABLE, DIMENSION(:,:)     ::   z_gru_st  ! tmp ua trends storage for pressure corr 
    8992      REAL(wp), ALLOCATABLE, DIMENSION(:,:)     ::   z_grv_st  ! tmp va trends storage for pressure corr 
     93      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     94      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     95      REAL(KIND=jprb)               :: zhook_handle 
     96 
     97      CHARACTER(LEN=*), PARAMETER :: RoutineName='DYN_HPG' 
     98 
     99      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     100 
    90101      !!---------------------------------------------------------------------- 
    91102      ! 
    … …  
    149160      IF( nn_timing == 1 )  CALL timing_stop('dyn_hpg') 
    150161      ! 
     162      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    151163   END SUBROUTINE dyn_hpg 
    152164 
    … …  
    167179      NAMELIST/namdyn_hpg/ ln_hpg_zco, ln_hpg_zps, ln_hpg_sco,     & 
    168180         &                 ln_hpg_djc, ln_hpg_prj, ln_hpg_isf, ln_dynhpg_imp 
     181         INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     182         INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     183         REAL(KIND=jprb)               :: zhook_handle 
     184 
     185         CHARACTER(LEN=*), PARAMETER :: RoutineName='DYN_HPG_INIT' 
     186 
     187         IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     188 
    169189      !!---------------------------------------------------------------------- 
    170190      ! 
    … …  
    228248      riceload(:,:)=0.0 
    229249      ! 
     250         IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    230251   END SUBROUTINE dyn_hpg_init 
    231252 
    … …  
    252273      REAL(wp) ::   zcoef0, zcoef1   ! temporary scalars 
    253274      REAL(wp), POINTER, DIMENSION(:,:,:) ::  zhpi, zhpj 
     275      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     276      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     277      REAL(KIND=jprb)               :: zhook_handle 
     278 
     279      CHARACTER(LEN=*), PARAMETER :: RoutineName='HPG_ZCO' 
     280 
     281      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     282 
    254283      !!---------------------------------------------------------------------- 
    255284      ! 
    … …  
    300329      CALL wrk_dealloc( jpi,jpj,jpk, zhpi, zhpj ) 
    301330      ! 
     331      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    302332   END SUBROUTINE hpg_zco 
    303333 
    … …  
    317347      REAL(wp) ::   zcoef0, zcoef1, zcoef2, zcoef3   ! temporary scalars 
    318348      REAL(wp), POINTER, DIMENSION(:,:,:) ::  zhpi, zhpj 
     349      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     350      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     351      REAL(KIND=jprb)               :: zhook_handle 
     352 
     353      CHARACTER(LEN=*), PARAMETER :: RoutineName='HPG_ZPS' 
     354 
     355      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     356 
    319357      !!---------------------------------------------------------------------- 
    320358      ! 
    … …  
    390428      CALL wrk_dealloc( jpi,jpj,jpk, zhpi, zhpj ) 
    391429      ! 
     430      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    392431   END SUBROUTINE hpg_zps 
    393432 
    … …  
    415454      REAL(wp) ::   zcoef0, zuap, zvap, znad   ! temporary scalars 
    416455      REAL(wp), POINTER, DIMENSION(:,:,:) ::  zhpi, zhpj 
     456      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     457      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     458      REAL(KIND=jprb)               :: zhook_handle 
     459 
     460      CHARACTER(LEN=*), PARAMETER :: RoutineName='HPG_SCO' 
     461 
     462      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     463 
    417464      !!---------------------------------------------------------------------- 
    418465      ! 
    … …  
    476523      CALL wrk_dealloc( jpi,jpj,jpk, zhpi, zhpj ) 
    477524      ! 
     525      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    478526   END SUBROUTINE hpg_sco 
    479527 
    … …  
    504552      REAL(wp), POINTER, DIMENSION(:,:,:)   ::  ztstop 
    505553      REAL(wp), POINTER, DIMENSION(:,:)     ::  ze3w, zp, zrhdtop_isf, zrhdtop_oce, ziceload, zdept, zpshpi, zpshpj 
     554      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     555      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     556      REAL(KIND=jprb)               :: zhook_handle 
     557 
     558      CHARACTER(LEN=*), PARAMETER :: RoutineName='HPG_ISF' 
     559 
     560      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     561 
    506562      !!---------------------------------------------------------------------- 
    507563      ! 
    … …  
    736792      CALL wrk_dealloc( jpi,jpj, ze3w, zp, zrhdtop_isf, zrhdtop_oce, ziceload, zdept, zpshpi, zpshpj) 
    737793      ! 
     794      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    738795   END SUBROUTINE hpg_isf 
    739796 
    … …  
    757814      REAL(wp), POINTER, DIMENSION(:,:,:) ::  drhox, drhoy, drhoz, drhou, drhov, drhow 
    758815      REAL(wp), POINTER, DIMENSION(:,:,:) ::  rho_i, rho_j, rho_k 
     816      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     817      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     818      REAL(KIND=jprb)               :: zhook_handle 
     819 
     820      CHARACTER(LEN=*), PARAMETER :: RoutineName='HPG_DJC' 
     821 
     822      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     823 
    759824      !!---------------------------------------------------------------------- 
    760825      ! 
    … …  
    9631028      CALL wrk_dealloc( jpi, jpj, jpk, rho_i, rho_j, rho_k,  zhpi,  zhpj        ) 
    9641029      ! 
     1030      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    9651031   END SUBROUTINE hpg_djc 
    9661032 
    … …  
    9911057      REAL(wp), POINTER, DIMENSION(:,:,:) ::   zhpi, zu, zv, fsp, xsp, asp, bsp, csp, dsp 
    9921058      REAL(wp), POINTER, DIMENSION(:,:)   ::   zsshu_n, zsshv_n 
     1059      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     1060      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     1061      REAL(KIND=jprb)               :: zhook_handle 
     1062 
     1063      CHARACTER(LEN=*), PARAMETER :: RoutineName='HPG_PRJ' 
     1064 
     1065      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     1066 
    9931067      !!---------------------------------------------------------------------- 
    9941068      ! 
    … …  
    12541328      CALL wrk_dealloc( jpi,jpj, zsshu_n, zsshv_n ) 
    12551329      ! 
     1330      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    12561331   END SUBROUTINE hpg_prj 
    12571332 
    … …  
    12671342      !! Reference: CJC Kruger, Constrained Cubic Spline Interpoltation 
    12681343      !!---------------------------------------------------------------------- 
     1344      USE yomhook, ONLY: lhook, dr_hook 
     1345      USE parkind1, ONLY: jprb, jpim 
     1346 
    12691347      IMPLICIT NONE 
    12701348      REAL(wp), DIMENSION(:,:,:), INTENT(in)  :: fsp, xsp           ! value and coordinate 
    … …  
    12791357      REAL(wp) ::   zdxtmp1, zdxtmp2, zalpha 
    12801358      REAL(wp) ::   zdf(size(fsp,3)) 
     1359      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     1360      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     1361      REAL(KIND=jprb)               :: zhook_handle 
     1362 
     1363      CHARACTER(LEN=*), PARAMETER :: RoutineName='CSPLINE' 
     1364 
     1365      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     1366 
    12811367      !!---------------------------------------------------------------------- 
    12821368 
    … …  
    13631449      ENDIF 
    13641450 
     1451      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    13651452   END SUBROUTINE cspline 
    13661453 
    … …  
    13751462      !!                extrapolation is also permitted (no value limit) 
    13761463      !!---------------------------------------------------------------------- 
     1464      USE yomhook, ONLY: lhook, dr_hook 
     1465      USE parkind1, ONLY: jprb, jpim 
     1466 
    13771467      IMPLICIT NONE 
    13781468      REAL(wp), INTENT(in) ::  x, xl, xr, fl, fr 
    13791469      REAL(wp)             ::  f ! result of the interpolation (extrapolation) 
    13801470      REAL(wp)             ::  zdeltx 
     1471      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     1472      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     1473      REAL(KIND=jprb)               :: zhook_handle 
     1474 
     1475      CHARACTER(LEN=*), PARAMETER :: RoutineName='INTERP1' 
     1476 
     1477      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     1478 
    13811479      !!---------------------------------------------------------------------- 
    13821480 
    … …  
    13881486      ENDIF 
    13891487 
     1488      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    13901489   END FUNCTION interp1 
    13911490 
    … …  
    14001499      !! 
    14011500      !!---------------------------------------------------------------------- 
     1501      USE yomhook, ONLY: lhook, dr_hook 
     1502      USE parkind1, ONLY: jprb, jpim 
     1503 
    14021504      IMPLICIT NONE 
    14031505      REAL(wp), INTENT(in) ::  x, a, b, c, d 
    14041506      REAL(wp)             ::  f ! value from the interpolation 
     1507      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     1508      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     1509      REAL(KIND=jprb)               :: zhook_handle 
     1510 
     1511      CHARACTER(LEN=*), PARAMETER :: RoutineName='INTERP2' 
     1512 
     1513      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     1514 
    14051515      !!---------------------------------------------------------------------- 
    14061516 
    14071517      f = a + x* ( b + x * ( c + d * x ) ) 
    14081518 
     1519      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    14091520   END FUNCTION interp2 
    14101521 
    … …  
    14201531      !! 
    14211532      !!---------------------------------------------------------------------- 
     1533      USE yomhook, ONLY: lhook, dr_hook 
     1534      USE parkind1, ONLY: jprb, jpim 
     1535 
    14221536      IMPLICIT NONE 
    14231537      REAL(wp), INTENT(in) ::  x, a, b, c, d 
    14241538      REAL(wp)             ::  f ! value from the interpolation 
     1539      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     1540      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     1541      REAL(KIND=jprb)               :: zhook_handle 
     1542 
     1543      CHARACTER(LEN=*), PARAMETER :: RoutineName='INTERP3' 
     1544 
     1545      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     1546 
    14251547      !!---------------------------------------------------------------------- 
    14261548 
    14271549      f = b + x * ( 2._wp * c + 3._wp * d * x) 
    14281550 
     1551      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    14291552   END FUNCTION interp3 
    14301553 
    … …  
    14391562      !! 
    14401563      !!---------------------------------------------------------------------- 
     1564      USE yomhook, ONLY: lhook, dr_hook 
     1565      USE parkind1, ONLY: jprb, jpim 
     1566 
    14411567      IMPLICIT NONE 
    14421568      REAL(wp), INTENT(in) ::  xl, xr, a, b, c, d 
    14431569      REAL(wp)             ::  za1, za2, za3 
    14441570      REAL(wp)             ::  f                   ! integration result 
     1571      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     1572      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     1573      REAL(KIND=jprb)               :: zhook_handle 
     1574 
     1575      CHARACTER(LEN=*), PARAMETER :: RoutineName='INTEG_SPLINE' 
     1576 
     1577      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     1578 
    14451579      !!---------------------------------------------------------------------- 
    14461580 
    … …  
    14521586         & xl * ( a + xl * ( za1 + xl * ( za2 + za3 * xl ) ) ) 
    14531587 
     1588      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    14541589   END FUNCTION integ_spline 
    14551590 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DYN/dynkeg.F90

    r6486 r11738  
    2424   USE wrk_nemo        ! Memory Allocation 
    2525   USE timing          ! Timing 
     26 
     27   USE yomhook, ONLY: lhook, dr_hook 
     28   USE parkind1, ONLY: jprb, jpim 
    2629 
    2730   IMPLICIT NONE 
    … …  
    7881      REAL(wp), POINTER, DIMENSION(:,:,:) :: zhke 
    7982      REAL(wp), POINTER, DIMENSION(:,:,:) :: ztrdu, ztrdv  
     83      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     84      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     85      REAL(KIND=jprb)               :: zhook_handle 
     86 
     87      CHARACTER(LEN=*), PARAMETER :: RoutineName='DYN_KEG' 
     88 
     89      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     90 
    8091      !!---------------------------------------------------------------------- 
    8192      ! 
    … …  
    157168      IF( nn_timing == 1 )   CALL timing_stop('dyn_keg') 
    158169      ! 
     170      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    159171   END SUBROUTINE dyn_keg 
    160172 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DYN/dynldf.F90

    r6486 r11738  
    3131   USE timing          ! Timing 
    3232 
     33   USE yomhook, ONLY: lhook, dr_hook 
     34   USE parkind1, ONLY: jprb, jpim 
     35 
    3336   IMPLICIT NONE 
    3437   PRIVATE 
    … …  
    5861      ! 
    5962      REAL(wp), POINTER, DIMENSION(:,:,:) ::  ztrdu, ztrdv 
     63      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     64      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     65      REAL(KIND=jprb)               :: zhook_handle 
     66 
     67      CHARACTER(LEN=*), PARAMETER :: RoutineName='DYN_LDF' 
     68 
     69      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     70 
    6071      !!---------------------------------------------------------------------- 
    6172      ! 
    … …  
    115126      IF( nn_timing == 1 )  CALL timing_stop('dyn_ldf') 
    116127      ! 
     128      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    117129   END SUBROUTINE dyn_ldf 
    118130 
    … …  
    125137      !!---------------------------------------------------------------------- 
    126138      INTEGER ::   ioptio, ierr         ! temporary integers  
     139      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     140      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     141      REAL(KIND=jprb)               :: zhook_handle 
     142 
     143      CHARACTER(LEN=*), PARAMETER :: RoutineName='DYN_LDF_INIT' 
     144 
     145      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     146 
    127147      !!---------------------------------------------------------------------- 
    128148     
    … …  
    231251      ENDIF 
    232252      ! 
     253      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    233254   END SUBROUTINE dyn_ldf_init 
    234255 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DYN/dynldf_bilap.F90

    r6486 r11738  
    2424   USE wrk_nemo        ! Memory Allocation 
    2525   USE timing          ! Timing 
     26 
     27   USE yomhook, ONLY: lhook, dr_hook 
     28   USE parkind1, ONLY: jprb, jpim 
    2629 
    2730   IMPLICIT NONE 
    … …  
    7982      REAL(wp), POINTER, DIMENSION(:,:  ) :: zcu, zcv 
    8083      REAL(wp), POINTER, DIMENSION(:,:,:) :: zuf, zut, zlu, zlv 
     84      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     85      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     86      REAL(KIND=jprb)               :: zhook_handle 
     87 
     88      CHARACTER(LEN=*), PARAMETER :: RoutineName='DYN_LDF_BILAP' 
     89 
     90      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     91 
    8192      !!---------------------------------------------------------------------- 
    8293      ! 
    … …  
    210221      IF( nn_timing == 1 )  CALL timing_stop('dyn_ldf_bilap') 
    211222      ! 
     223      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    212224   END SUBROUTINE dyn_ldf_bilap 
    213225 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DYN/dynldf_bilapg.F90

    r8280 r11738  
    3030   USE timing          ! Timing 
    3131 
     32   USE yomhook, ONLY: lhook, dr_hook 
     33   USE parkind1, ONLY: jprb, jpim 
     34 
    3235   IMPLICIT NONE 
    3336   PRIVATE 
    … …  
    4952 
    5053   INTEGER FUNCTION dyn_ldf_bilapg_alloc() 
     54   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     55   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     56   REAL(KIND=jprb)               :: zhook_handle 
     57 
     58   CHARACTER(LEN=*), PARAMETER :: RoutineName='DYN_LDF_BILAPG_ALLOC' 
     59 
     60   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     61 
    5162      !!---------------------------------------------------------------------- 
    5263      !!               ***  ROUTINE dyn_ldf_bilapg_alloc  *** 
    … …  
    5667         ! 
    5768      IF( dyn_ldf_bilapg_alloc /= 0 )   CALL ctl_warn('dyn_ldf_bilapg_alloc: failed to allocate arrays') 
     69   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    5870   END FUNCTION dyn_ldf_bilapg_alloc 
    5971 
    … …  
    88100      INTEGER ::   ji, jj, jk                 ! dummy loop indices 
    89101      REAL(wp), POINTER, DIMENSION(:,:,:) ::  zwk1, zwk2, zwk3, zwk4 
     102      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     103      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     104      REAL(KIND=jprb)               :: zhook_handle 
     105 
     106      CHARACTER(LEN=*), PARAMETER :: RoutineName='DYN_LDF_BILAPG' 
     107 
     108      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     109 
    90110      !!---------------------------------------------------------------------- 
    91111      ! 
    … …  
    156176      IF( nn_timing == 1 )  CALL timing_stop('dyn_ldf_bilapg') 
    157177      ! 
     178      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    158179   END SUBROUTINE dyn_ldf_bilapg 
    159180 
    … …  
    213234      ! 
    214235      REAL(wp), POINTER, DIMENSION(:,:) :: ziut, zjuf, zjvt, zivf, zdku, zdk1u, zdkv, zdk1v 
     236      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     237      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     238      REAL(KIND=jprb)               :: zhook_handle 
     239 
     240      CHARACTER(LEN=*), PARAMETER :: RoutineName='LDFGUV' 
     241 
     242      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     243 
    215244      !!---------------------------------------------------------------------- 
    216245      ! 
    … …  
    479508      IF( nn_timing == 1 )  CALL timing_stop('ldfguv') 
    480509      ! 
     510      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    481511   END SUBROUTINE ldfguv 
    482512 
    … …  
    488518   SUBROUTINE dyn_ldf_bilapg( kt )               ! Dummy routine 
    489519      INTEGER, INTENT(in) :: kt 
     520      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     521      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     522      REAL(KIND=jprb)               :: zhook_handle 
     523 
     524      CHARACTER(LEN=*), PARAMETER :: RoutineName='DYN_LDF_BILAPG' 
     525 
     526      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     527 
    490528      WRITE(*,*) 'dyn_ldf_bilapg: You should not have seen this print! error?', kt 
     529      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    491530   END SUBROUTINE dyn_ldf_bilapg 
    492531#endif 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DYN/dynldf_iso.F90

    r6486 r11738  
    3131   USE timing          ! Timing 
    3232 
     33   USE yomhook, ONLY: lhook, dr_hook 
     34   USE parkind1, ONLY: jprb, jpim 
     35 
    3336   IMPLICIT NONE 
    3437   PRIVATE 
    … …  
    5255 
    5356   INTEGER FUNCTION dyn_ldf_iso_alloc() 
     57   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     58   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     59   REAL(KIND=jprb)               :: zhook_handle 
     60 
     61   CHARACTER(LEN=*), PARAMETER :: RoutineName='DYN_LDF_ISO_ALLOC' 
     62 
     63   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     64 
    5465      !!---------------------------------------------------------------------- 
    5566      !!                  ***  ROUTINE dyn_ldf_iso_alloc  *** 
    … …  
    5970         ! 
    6071      IF( dyn_ldf_iso_alloc /= 0 )   CALL ctl_warn('dyn_ldf_iso_alloc: array allocate failed.') 
     72   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    6173   END FUNCTION dyn_ldf_iso_alloc 
    6274 
    … …  
    116128      ! 
    117129      REAL(wp), POINTER, DIMENSION(:,:) :: ziut, zjuf, zjvt, zivf, zdku, zdk1u, zdkv, zdk1v 
     130      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     131      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     132      REAL(KIND=jprb)               :: zhook_handle 
     133 
     134      CHARACTER(LEN=*), PARAMETER :: RoutineName='DYN_LDF_ISO' 
     135 
     136      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     137 
    118138      !!---------------------------------------------------------------------- 
    119139      ! 
    … …  
    430450      IF( nn_timing == 1 )  CALL timing_stop('dyn_ldf_iso') 
    431451      ! 
     452      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    432453   END SUBROUTINE dyn_ldf_iso 
    433454 
    … …  
    439460   SUBROUTINE dyn_ldf_iso( kt )               ! Empty routine 
    440461      INTEGER, INTENT(in) :: kt 
     462      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     463      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     464      REAL(KIND=jprb)               :: zhook_handle 
     465 
     466      CHARACTER(LEN=*), PARAMETER :: RoutineName='DYN_LDF_ISO' 
     467 
     468      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     469 
    441470      WRITE(*,*) 'dyn_ldf_iso: You should not have seen this print! error?', kt 
     471      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    442472   END SUBROUTINE dyn_ldf_iso 
    443473#endif 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DYN/dynldf_lap.F90

    r6486 r11738  
    2222   USE in_out_manager  ! I/O manager 
    2323   USE timing          ! Timing 
     24 
     25   USE yomhook, ONLY: lhook, dr_hook 
     26   USE parkind1, ONLY: jprb, jpim 
    2427 
    2528   IMPLICIT NONE 
    … …  
    6265      INTEGER  ::   ji, jj, jk             ! dummy loop indices 
    6366      REAL(wp) ::   zua, zva, ze2u, ze1v   ! local scalars 
     67      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     68      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     69      REAL(KIND=jprb)               :: zhook_handle 
     70 
     71      CHARACTER(LEN=*), PARAMETER :: RoutineName='DYN_LDF_LAP' 
     72 
     73      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     74 
    6475      !!---------------------------------------------------------------------- 
    6576      ! 
    … …  
    95106      IF( nn_timing == 1 )  CALL timing_stop('dyn_ldf_lap') 
    96107      ! 
     108      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    97109   END SUBROUTINE dyn_ldf_lap 
    98110 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DYN/dynnxt.F90

    r6487 r11738  
    5050#endif 
    5151 
     52   USE yomhook, ONLY: lhook, dr_hook 
     53   USE parkind1, ONLY: jprb, jpim 
     54 
    5255   IMPLICIT NONE 
    5356   PRIVATE 
    … …  
    108111      REAL(wp), POINTER, DIMENSION(:,:)   ::  zue, zve 
    109112      REAL(wp), POINTER, DIMENSION(:,:,:) ::  ze3u_f, ze3v_f, zua, zva  
     113      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     114      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     115      REAL(KIND=jprb)               :: zhook_handle 
     116 
     117      CHARACTER(LEN=*), PARAMETER :: RoutineName='DYN_NXT' 
     118 
     119      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     120 
    110121      !!---------------------------------------------------------------------- 
    111122      ! 
    … …  
    406417      IF( nn_timing == 1 )  CALL timing_stop('dyn_nxt') 
    407418      ! 
     419      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    408420   END SUBROUTINE dyn_nxt 
    409421 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg.F90

    r6486 r11738  
    3737 
    3838 
     39   USE yomhook, ONLY: lhook, dr_hook 
     40   USE parkind1, ONLY: jprb, jpim 
     41 
    3942   IMPLICIT NONE 
    4043   PRIVATE 
    … …  
    8992      REAL(wp), POINTER, DIMENSION(:,:,:) ::  ztrdu, ztrdv 
    9093      REAL(wp), POINTER, DIMENSION(:,:)   ::  zpice 
     94      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     95      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     96      REAL(KIND=jprb)               :: zhook_handle 
     97 
     98      CHARACTER(LEN=*), PARAMETER :: RoutineName='DYN_SPG' 
     99 
     100      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     101 
    91102      !!---------------------------------------------------------------------- 
    92103      ! 
    … …  
    209220      IF( nn_timing == 1 )  CALL timing_stop('dyn_spg') 
    210221      ! 
     222      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    211223   END SUBROUTINE dyn_spg 
    212224 
    … …  
    220232      !!---------------------------------------------------------------------- 
    221233      INTEGER ::   ioptio 
     234      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     235      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     236      REAL(KIND=jprb)               :: zhook_handle 
     237 
     238      CHARACTER(LEN=*), PARAMETER :: RoutineName='DYN_SPG_INIT' 
     239 
     240      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     241 
    222242      !!---------------------------------------------------------------------- 
    223243      ! 
    … …  
    284304      IF( nn_timing == 1 )  CALL timing_stop('dyn_spg_init') 
    285305      ! 
     306      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    286307   END SUBROUTINE dyn_spg_init 
    287308 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_exp.F90

    r10047 r11738  
    2727   USE timing          ! Timing 
    2828 
     29 
     30   USE yomhook, ONLY: lhook, dr_hook 
     31   USE parkind1, ONLY: jprb, jpim 
    2932 
    3033   IMPLICIT NONE 
    … …  
    6366      !! 
    6467      INTEGER ::   ji, jj, jk   ! dummy loop indices 
     68      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     69      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     70      REAL(KIND=jprb)               :: zhook_handle 
     71 
     72      CHARACTER(LEN=*), PARAMETER :: RoutineName='DYN_SPG_EXP' 
     73 
     74      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     75 
    6576      !!---------------------------------------------------------------------- 
    6677      ! 
    … …  
    99110      IF( nn_timing == 1 )  CALL timing_stop('dyn_spg_exp') 
    100111      ! 
     112      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    101113   END SUBROUTINE dyn_spg_exp 
    102114 
    … …  
    107119CONTAINS 
    108120   SUBROUTINE dyn_spg_exp( kt )       ! Empty routine 
     121   USE yomhook, ONLY: lhook, dr_hook 
     122   USE parkind1, ONLY: jprb, jpim 
     123 
    109124   IMPLICIT NONE 
    110125      INTEGER, INTENT(in)  ::   kt   ! ocean time-step index   
     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='DYN_SPG_EXP' 
     131 
     132      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     133 
    111134      WRITE(*,*) 'dyn_spg_exp: You should not have seen this print! error?', kt 
     135      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    112136   END SUBROUTINE dyn_spg_exp 
    113137#endif 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_flt.F90

    r9321 r11738  
    5151   USE agrif_opa_interp 
    5252#endif 
     53 
     54   USE yomhook, ONLY: lhook, dr_hook 
     55   USE parkind1, ONLY: jprb, jpim 
    5356 
    5457   IMPLICIT NONE 
    … …  
    112115      REAL(wp), POINTER, DIMENSION(:,:,:) ::  ztrdu, ztrdv 
    113116      REAL(wp), POINTER, DIMENSION(:,:)   ::  zpw 
     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='DYN_SPG_FLT' 
     122 
     123      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     124 
    114125      !!---------------------------------------------------------------------- 
    115126      ! 
    … …  
    378389      IF( nn_timing == 1 )   CALL timing_stop('dyn_spg_flt') 
    379390      ! 
     391      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    380392   END SUBROUTINE dyn_spg_flt 
    381393 
    … …  
    389401      INTEGER         , INTENT(in) ::   kt     ! ocean time-step 
    390402      CHARACTER(len=*), INTENT(in) ::   cdrw   ! "READ"/"WRITE" flag 
     403      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     404      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     405      REAL(KIND=jprb)               :: zhook_handle 
     406 
     407      CHARACTER(LEN=*), PARAMETER :: RoutineName='FLT_RST' 
     408 
     409      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     410 
    391411      !!---------------------------------------------------------------------- 
    392412      ! 
    … …  
    413433      ENDIF 
    414434      ! 
     435      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    415436   END SUBROUTINE flt_rst 
    416437 
    … …  
    421442CONTAINS 
    422443   SUBROUTINE dyn_spg_flt( kt, kindic )       ! Empty routine 
     444   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     445   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     446   REAL(KIND=jprb)               :: zhook_handle 
     447 
     448   CHARACTER(LEN=*), PARAMETER :: RoutineName='DYN_SPG_FLT' 
     449 
     450   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     451 
    423452      WRITE(*,*) 'dyn_spg_flt: You should not have seen this print! error?', kt, kindic 
     453   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    424454   END SUBROUTINE dyn_spg_flt 
    425455   SUBROUTINE flt_rst    ( kt, cdrw )         ! Empty routine 
    426456      INTEGER         , INTENT(in) ::   kt         ! ocean time-step 
    427457      CHARACTER(len=*), INTENT(in) ::   cdrw       ! "READ"/"WRITE" flag 
     458      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     459      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     460      REAL(KIND=jprb)               :: zhook_handle 
     461 
     462      CHARACTER(LEN=*), PARAMETER :: RoutineName='FLT_RST' 
     463 
     464      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     465 
    428466      WRITE(*,*) 'flt_rst: You should not have seen this print! error?', kt, cdrw 
     467      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    429468   END SUBROUTINE flt_rst 
    430469#endif 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_oce.F90

    r6486 r11738  
    1010   USE par_oce        ! ocean parameters 
    1111   USE lib_mpp        ! MPP library 
     12 
     13   USE yomhook, ONLY: lhook, dr_hook 
     14   USE parkind1, ONLY: jprb, jpim 
    1215 
    1316   IMPLICIT NONE 
    … …  
    5255 
    5356   INTEGER FUNCTION dynspg_oce_alloc() 
     57   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     58   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     59   REAL(KIND=jprb)               :: zhook_handle 
     60 
     61   CHARACTER(LEN=*), PARAMETER :: RoutineName='DYNSPG_OCE_ALLOC' 
     62 
     63   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     64 
    5465      !!---------------------------------------------------------------------- 
    5566      !!                  ***  routine dynspg_oce_alloc  *** 
    … …  
    6677      IF( dynspg_oce_alloc /= 0 )   CALL ctl_warn('dynspg_oce_alloc: failed to allocate arrays') 
    6778      ! 
     79   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    6880   END FUNCTION dynspg_oce_alloc 
    6981 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DYN/dynvor.F90

    r8280 r11738  
    4141 
    4242 
     43   USE yomhook, ONLY: lhook, dr_hook 
     44   USE parkind1, ONLY: jprb, jpim 
     45 
    4346   IMPLICIT NONE 
    4447   PRIVATE 
    … …  
    8285      ! 
    8386      REAL(wp), POINTER, DIMENSION(:,:,:) ::  ztrdu, ztrdv 
     87      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     88      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     89      REAL(KIND=jprb)               :: zhook_handle 
     90 
     91      CHARACTER(LEN=*), PARAMETER :: RoutineName='DYN_VOR' 
     92 
     93      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     94 
    8495      !!---------------------------------------------------------------------- 
    8596      ! 
    … …  
    187198      IF( nn_timing == 1 )  CALL timing_stop('dyn_vor') 
    188199      ! 
     200      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    189201   END SUBROUTINE dyn_vor 
    190202 
    … …  
    224236      REAL(wp) ::   zx1, zy1, zfact2, zx2, zy2   ! local scalars 
    225237      REAL(wp), POINTER, DIMENSION(:,:) :: zwx, zwy, zwz 
     238      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     239      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     240      REAL(KIND=jprb)               :: zhook_handle 
     241 
     242      CHARACTER(LEN=*), PARAMETER :: RoutineName='VOR_ENE' 
     243 
     244      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     245 
    226246      !!---------------------------------------------------------------------- 
    227247      ! 
    … …  
    297317      IF( nn_timing == 1 )  CALL timing_stop('vor_ene') 
    298318      ! 
     319      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    299320   END SUBROUTINE vor_ene 
    300321 
    … …  
    336357      REAL(wp) ::   zfact2, zva, zcva, zx2, zy2   !   -      - 
    337358      REAL(wp), POINTER, DIMENSION(:,:) :: zwx, zwy, zwz, zww 
     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='VOR_MIX' 
     364 
     365      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     366 
    338367      !!---------------------------------------------------------------------- 
    339368      ! 
    … …  
    416445      IF( nn_timing == 1 )  CALL timing_stop('vor_mix') 
    417446      ! 
     447      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    418448   END SUBROUTINE vor_mix 
    419449 
    … …  
    453483      REAL(wp) ::   zfact1, zuav, zvau   ! temporary scalars 
    454484      REAL(wp), POINTER, DIMENSION(:,:) :: zwx, zwy, zwz, zww 
     485      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     486      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     487      REAL(KIND=jprb)               :: zhook_handle 
     488 
     489      CHARACTER(LEN=*), PARAMETER :: RoutineName='VOR_ENS' 
     490 
     491      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     492 
    455493      !!---------------------------------------------------------------------- 
    456494      ! 
    … …  
    534572      IF( nn_timing == 1 )  CALL timing_stop('vor_ens') 
    535573      ! 
     574      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    536575   END SUBROUTINE vor_ens 
    537576 
    … …  
    570609#if defined key_vvl 
    571610      REAL(wp), POINTER    , DIMENSION(:,:,:)         :: ze3f     !  3D workspace (lk_vvl=T) 
     611      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     612      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     613      REAL(KIND=jprb)               :: zhook_handle 
     614 
     615      CHARACTER(LEN=*), PARAMETER :: RoutineName='VOR_EEN' 
     616 
     617      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     618 
    572619#else 
    573620      REAL(wp), ALLOCATABLE, DIMENSION(:,:,:), SAVE   :: ze3f     ! lk_vvl=F, ze3f=1/e3f saved one for all 
    … …  
    707754      IF( nn_timing == 1 )  CALL timing_stop('vor_een') 
    708755      ! 
     756      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    709757   END SUBROUTINE vor_een 
    710758 
    … …  
    722770      !! 
    723771      NAMELIST/namdyn_vor/ ln_dynvor_ens, ln_dynvor_ene, ln_dynvor_mix, ln_dynvor_een, ln_dynvor_een_old 
     772      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     773      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     774      REAL(KIND=jprb)               :: zhook_handle 
     775 
     776      CHARACTER(LEN=*), PARAMETER :: RoutineName='DYN_VOR_INIT' 
     777 
     778      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     779 
    724780      !!---------------------------------------------------------------------- 
    725781 
    … …  
    800856      ENDIF 
    801857      ! 
     858      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    802859   END SUBROUTINE dyn_vor_init 
    803860 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DYN/dynzad.F90

    r6486 r11738  
    2424   USE wrk_nemo       ! Memory Allocation 
    2525   USE timing         ! Timing 
     26 
     27   USE yomhook, ONLY: lhook, dr_hook 
     28   USE parkind1, ONLY: jprb, jpim 
    2629 
    2730   IMPLICIT NONE 
    … …  
    6467      REAL(wp), POINTER, DIMENSION(:,:  ) ::  zww 
    6568      REAL(wp), POINTER, DIMENSION(:,:,:) ::  ztrdu, ztrdv 
     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='DYN_ZAD' 
     74 
     75      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     76 
    6677      !!---------------------------------------------------------------------- 
    6778      ! 
    … …  
    145156      IF( nn_timing == 1 )  CALL timing_stop('dyn_zad') 
    146157      ! 
     158      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    147159   END SUBROUTINE dyn_zad 
    148160 
    … …  
    178190      REAL(wp), POINTER, DIMENSION(:,:,:)   ::  ztrdu, ztrdv 
    179191      REAL(wp), POINTER, DIMENSION(:,:,:,:) ::  zus , zvs 
     192      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     193      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     194      REAL(KIND=jprb)               :: zhook_handle 
     195 
     196      CHARACTER(LEN=*), PARAMETER :: RoutineName='DYN_ZAD_ZTS' 
     197 
     198      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     199 
    180200      !!---------------------------------------------------------------------- 
    181201      ! 
    … …  
    288308      IF( nn_timing == 1 )  CALL timing_stop('dyn_zad_zts') 
    289309      ! 
     310      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    290311   END SUBROUTINE dyn_zad_zts 
    291312 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DYN/dynzdf.F90

    r6486 r11738  
    2727   USE wrk_nemo        ! Memory Allocation 
    2828   USE timing          ! Timing 
     29 
     30   USE yomhook, ONLY: lhook, dr_hook 
     31   USE parkind1, ONLY: jprb, jpim 
    2932 
    3033   IMPLICIT NONE 
    … …  
    5962      ! 
    6063      REAL(wp), POINTER, DIMENSION(:,:,:) ::  ztrdu, ztrdv 
     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='DYN_ZDF' 
     69 
     70      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     71 
    6172      !!--------------------------------------------------------------------- 
    6273      ! 
    … …  
    100111      IF( nn_timing == 1 )  CALL timing_stop('dyn_zdf') 
    101112      ! 
     113      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    102114   END SUBROUTINE dyn_zdf 
    103115 
    … …  
    115127      USE zdfgls 
    116128      USE zdfkpp 
     129      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     130      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     131      REAL(KIND=jprb)               :: zhook_handle 
     132 
     133      CHARACTER(LEN=*), PARAMETER :: RoutineName='DYN_ZDF_INIT' 
     134 
     135      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     136 
    117137      !!---------------------------------------------------------------------- 
    118138      ! 
    … …  
    138158      ENDIF 
    139159      ! 
     160      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    140161   END SUBROUTINE dyn_zdf_init 
    141162 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DYN/dynzdf_exp.F90

    r6486 r11738  
    2525   USE timing          ! Timing 
    2626 
     27 
     28   USE yomhook, ONLY: lhook, dr_hook 
     29   USE parkind1, ONLY: jprb, jpim 
    2730 
    2831   IMPLICIT NONE 
    … …  
    6366      REAL(wp) ::   zlavmr, zua, zva   ! local scalars 
    6467      REAL(wp), POINTER, DIMENSION(:,:,:) ::  zwx, zwy, zwz, zww 
     68      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     69      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     70      REAL(KIND=jprb)               :: zhook_handle 
     71 
     72      CHARACTER(LEN=*), PARAMETER :: RoutineName='DYN_ZDF_EXP' 
     73 
     74      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     75 
    6576      !!---------------------------------------------------------------------- 
    6677      ! 
    … …  
    123134      IF( nn_timing == 1 )  CALL timing_stop('dyn_zdf_exp') 
    124135      ! 
     136      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    125137   END SUBROUTINE dyn_zdf_exp 
    126138 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DYN/dynzdf_imp.F90

    r6795 r11738  
    2727   USE dynadv          ! dynamics: vector invariant versus flux form 
    2828   USE dynspg_oce, ONLY: lk_dynspg_ts 
     29 
     30   USE yomhook, ONLY: lhook, dr_hook 
     31   USE parkind1, ONLY: jprb, jpim 
    2932 
    3033   IMPLICIT NONE 
    … …  
    7174      REAL(wp) ::   ze3ua, ze3va 
    7275      REAL(wp), POINTER, DIMENSION(:,:,:) ::  zwi, zwd, zws 
     76      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     77      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     78      REAL(KIND=jprb)               :: zhook_handle 
     79 
     80      CHARACTER(LEN=*), PARAMETER :: RoutineName='DYN_ZDF_IMP' 
     81 
     82      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     83 
    7384      !!---------------------------------------------------------------------- 
    7485      ! 
    … …  
    395406      IF( nn_timing == 1 )  CALL timing_stop('dyn_zdf_imp') 
    396407      ! 
     408      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    397409   END SUBROUTINE dyn_zdf_imp 
    398410 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DYN/sshwzv.F90

    r8400 r11738  
    3939   USE timing          ! Timing 
    4040 
     41   USE yomhook, ONLY: lhook, dr_hook 
     42   USE parkind1, ONLY: jprb, jpim 
     43 
    4144   IMPLICIT NONE 
    4245   PRIVATE 
    … …  
    7679      INTEGER             ::   jk                      ! dummy loop indices 
    7780      REAL(wp)            ::   z2dt, z1_rau0           ! local scalars 
     81      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     82      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     83      REAL(KIND=jprb)               :: zhook_handle 
     84 
     85      CHARACTER(LEN=*), PARAMETER :: RoutineName='SSH_NXT' 
     86 
     87      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     88 
    7889      !!---------------------------------------------------------------------- 
    7990      ! 
    … …  
    150161      IF( nn_timing == 1 )  CALL timing_stop('ssh_nxt') 
    151162      ! 
     163      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    152164   END SUBROUTINE ssh_nxt 
    153165 
    … …  
    175187      INTEGER             ::   ji, jj, jk   ! dummy loop indices 
    176188      REAL(wp)            ::   z1_2dt       ! local scalars 
     189      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     190      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     191      REAL(KIND=jprb)               :: zhook_handle 
     192 
     193      CHARACTER(LEN=*), PARAMETER :: RoutineName='WZV' 
     194 
     195      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     196 
    177197      !!---------------------------------------------------------------------- 
    178198       
    … …  
    235255 
    236256 
     257      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    237258   END SUBROUTINE wzv 
    238259 
    … …  
    257278      !!---------------------------------------------------------------------- 
    258279      INTEGER, INTENT(in) ::   kt   ! ocean time-step index 
     280      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     281      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     282      REAL(KIND=jprb)               :: zhook_handle 
     283 
     284      CHARACTER(LEN=*), PARAMETER :: RoutineName='SSH_SWP' 
     285 
     286      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     287 
    259288      !!---------------------------------------------------------------------- 
    260289      ! 
    … …  
    286315      IF( nn_timing == 1 )  CALL timing_stop('ssh_swp') 
    287316      ! 
     317      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    288318   END SUBROUTINE ssh_swp 
    289319 
Note: See TracChangeset for help on using the changeset viewer.