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/DOM – 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/DOM
Files:
15 edited

Legend:

Unmodified
Added
Removed

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DOM/closea.F90

    r6491 r11738  
    2727   USE timing 
    2828 
     29   USE yomhook, ONLY: lhook, dr_hook 
     30   USE parkind1, ONLY: jprb, jpim 
     31 
    2932   IMPLICIT NONE 
    3033   PRIVATE 
    … …  
    7376      INTEGER ::   jc            ! dummy loop indices 
    7477      INTEGER :: isrow           ! local index 
     78      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     79      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     80      REAL(KIND=jprb)               :: zhook_handle 
     81 
     82      CHARACTER(LEN=*), PARAMETER :: RoutineName='DOM_CLO' 
     83 
     84      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     85 
    7586      !!---------------------------------------------------------------------- 
    7687       
    … …  
    222233      END DO 
    223234      ! 
     235      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    224236   END SUBROUTINE dom_clo 
    225237 
    … …  
    245257      COMPLEX(wp)         ::   ctmp  
    246258      REAL(wp), DIMENSION(jpncs) ::   zfwf   ! 1D workspace 
     259      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     260      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     261      REAL(KIND=jprb)               :: zhook_handle 
     262 
     263      CHARACTER(LEN=*), PARAMETER :: RoutineName='SBC_CLO' 
     264 
     265      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     266 
    247267      !!---------------------------------------------------------------------- 
    248268      ! 
    … …  
    405425      IF( nn_timing == 1 )  CALL timing_stop('sbc_clo') 
    406426      ! 
     427      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    407428   END SUBROUTINE sbc_clo 
    408429 
    … …  
    423444      ! 
    424445      INTEGER  ::   jc, jn, ji, jj      ! dummy loop indices 
     446      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     447      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     448      REAL(KIND=jprb)               :: zhook_handle 
     449 
     450      CHARACTER(LEN=*), PARAMETER :: RoutineName='CLO_RNF' 
     451 
     452      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     453 
    425454      !!---------------------------------------------------------------------- 
    426455      ! 
    … …  
    437466      END DO  
    438467      ! 
     468      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    439469   END SUBROUTINE clo_rnf 
    440470 
    … …  
    455485      ! 
    456486      INTEGER  ::   jc, ji, jj      ! dummy loop indices 
     487      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     488      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     489      REAL(KIND=jprb)               :: zhook_handle 
     490 
     491      CHARACTER(LEN=*), PARAMETER :: RoutineName='CLO_UPS' 
     492 
     493      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     494 
    457495      !!---------------------------------------------------------------------- 
    458496      ! 
    … …  
    465503       END DO  
    466504       ! 
     505      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    467506   END SUBROUTINE clo_ups 
    468507    
    … …  
    483522      ! 
    484523      INTEGER  ::   jc, ji, jj      ! dummy loop indices 
     524      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     525      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     526      REAL(KIND=jprb)               :: zhook_handle 
     527 
     528      CHARACTER(LEN=*), PARAMETER :: RoutineName='CLO_BAT' 
     529 
     530      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     531 
    485532      !!---------------------------------------------------------------------- 
    486533      ! 
    … …  
    494541       END DO  
    495542       ! 
     543      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    496544   END SUBROUTINE clo_bat 
    497545 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DOM/daymod.F90

    r9321 r11738  
    3636   USE restart         ! restart 
    3737 
     38   USE yomhook, ONLY: lhook, dr_hook 
     39   USE parkind1, ONLY: jprb, jpim 
     40 
    3841   IMPLICIT NONE 
    3942   PRIVATE 
    … …  
    7174      INTEGER  ::   inbday, idweek 
    7275      REAL(wp) ::   zjul 
     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='DAY_INIT' 
     81 
     82      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     83 
    7384      !!---------------------------------------------------------------------- 
    7485      ! 
    … …  
    135146      CALL day( nit000 ) 
    136147      ! 
     148      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    137149   END SUBROUTINE day_init 
    138150 
    … …  
    150162      !!---------------------------------------------------------------------- 
    151163      INTEGER  ::   jm               ! dummy loop indice 
     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='DAY_MTH' 
     169 
     170      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     171 
    152172      !!---------------------------------------------------------------------- 
    153173 
    … …  
    190210      END DO 
    191211      ! 
     212      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    192213   END SUBROUTINE 
    193214 
    … …  
    213234      CHARACTER (len=25) ::   charout 
    214235      REAL(wp)           ::   zprec      ! fraction of day corresponding to 0.1 second 
     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='DAY' 
     241 
     242      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     243 
    215244      !!---------------------------------------------------------------------- 
    216245      ! 
    … …  
    271300      IF( nn_timing == 1 )  CALL timing_stop('day') 
    272301      ! 
     302      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    273303   END SUBROUTINE day 
    274304 
    … …  
    303333      ! 
    304334      REAL(wp) ::   zkt, zndastp 
     335      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     336      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     337      REAL(KIND=jprb)               :: zhook_handle 
     338 
     339      CHARACTER(LEN=*), PARAMETER :: RoutineName='DAY_RST' 
     340 
     341      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     342 
    305343      !!---------------------------------------------------------------------- 
    306344 
    … …  
    371409      ENDIF 
    372410      ! 
     411      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    373412   END SUBROUTINE day_rst 
    374413 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DOM/dom_oce.F90

    r10047 r11738  
    1818   !!---------------------------------------------------------------------- 
    1919   USE par_oce        ! ocean parameters 
     20 
     21   USE yomhook, ONLY: lhook, dr_hook 
     22   USE parkind1, ONLY: jprb, jpim 
    2023 
    2124   IMPLICIT NONE 
    … …  
    326329   !!---------------------------------------------------------------------- 
    327330   LOGICAL FUNCTION Agrif_Root() 
     331   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     332   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     333   REAL(KIND=jprb)               :: zhook_handle 
     334 
     335   CHARACTER(LEN=*), PARAMETER :: RoutineName='AGRIF_ROOT' 
     336 
     337   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     338 
    328339      Agrif_Root = .TRUE. 
     340   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    329341   END FUNCTION Agrif_Root 
    330342 
    … …  
    337349      !!---------------------------------------------------------------------- 
    338350      INTEGER, DIMENSION(12) :: ierr 
     351      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     352      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     353      REAL(KIND=jprb)               :: zhook_handle 
     354 
     355      CHARACTER(LEN=*), PARAMETER :: RoutineName='DOM_OCE_ALLOC' 
     356 
     357      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     358 
    339359      !!---------------------------------------------------------------------- 
    340360      ierr(:) = 0 
    … …  
    423443      dom_oce_alloc = MAXVAL(ierr) 
    424444      ! 
     445      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    425446   END FUNCTION dom_oce_alloc 
    426447 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90

    r6491 r11738  
    3939   USE lbclnk          ! ocean lateral boundary condition (or mpp link) 
    4040 
     41   USE yomhook, ONLY: lhook, dr_hook 
     42   USE parkind1, ONLY: jprb, jpim 
     43 
    4144   IMPLICIT NONE 
    4245   PRIVATE 
    … …  
    7174      INTEGER ::   jk          ! dummy loop argument 
    7275      INTEGER ::   iconf = 0   ! local integers 
     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='DOM_INIT' 
     81 
     82      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     83 
    7384      !!---------------------------------------------------------------------- 
    7485      ! 
    … …  
    120131      IF( nn_timing == 1 )   CALL timing_stop('dom_init') 
    121132      ! 
     133      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    122134   END SUBROUTINE dom_init 
    123135 
    … …  
    151163#endif 
    152164      INTEGER  ::   ios                 ! Local integer output status for namelist read 
     165      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     166      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     167      REAL(KIND=jprb)               :: zhook_handle 
     168 
     169      CHARACTER(LEN=*), PARAMETER :: RoutineName='DOM_NAM' 
     170 
     171      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     172 
    153173      !!---------------------------------------------------------------------- 
    154174 
    … …  
    358378#endif 
    359379      ! 
     380      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    360381   END SUBROUTINE dom_nam 
    361382 
    … …  
    372393      INTEGER, DIMENSION(2) ::   iloc   !  
    373394      REAL(wp) ::   ze1min, ze1max, ze2min, ze2max 
     395      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     396      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     397      REAL(KIND=jprb)               :: zhook_handle 
     398 
     399      CHARACTER(LEN=*), PARAMETER :: RoutineName='DOM_CTL' 
     400 
     401      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     402 
    374403      !!---------------------------------------------------------------------- 
    375404      ! 
    … …  
    408437      ENDIF 
    409438      ! 
     439      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    410440   END SUBROUTINE dom_ctl 
    411441 
    … …  
    427457      REAL(wp) ::   zrxmax 
    428458      REAL(wp), DIMENSION(4) :: zr1 
     459      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     460      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     461      REAL(KIND=jprb)               :: zhook_handle 
     462 
     463      CHARACTER(LEN=*), PARAMETER :: RoutineName='DOM_STIFF' 
     464 
     465      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     466 
    429467      !!---------------------------------------------------------------------- 
    430468      rx1(:,:) = 0.e0 
    … …  
    469507      ENDIF 
    470508 
     509      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    471510   END SUBROUTINE dom_stiff 
    472511 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DOM/domcfg.F90

    r6486 r11738  
    1919   USE domc1d          ! 1D configuration: column location 
    2020 
     21   USE yomhook, ONLY: lhook, dr_hook 
     22   USE parkind1, ONLY: jprb, jpim 
     23 
    2124   IMPLICIT NONE 
    2225   PRIVATE 
    … …  
    3235 
    3336   SUBROUTINE dom_cfg 
     37   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     38   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     39   REAL(KIND=jprb)               :: zhook_handle 
     40 
     41   CHARACTER(LEN=*), PARAMETER :: RoutineName='DOM_CFG' 
     42 
     43   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     44 
    3445      !!---------------------------------------------------------------------- 
    3546      !!                  ***  ROUTINE dom_cfg  *** 
    … …  
    6475      IF( nn_timing == 1 )  CALL timing_stop('dom_cfg') 
    6576      ! 
     77   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    6678   END SUBROUTINE dom_cfg 
    6779 
    … …  
    8092      !!---------------------------------------------------------------------- 
    8193      INTEGER ::   ji, jj   ! dummy loop argument 
     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='DOM_GLO' 
     99 
     100      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     101 
    82102      !!---------------------------------------------------------------------- 
    83103      !                              ! recalculate jpizoom/jpjzoom given lat/lon 
    … …  
    195215      ENDIF 
    196216      ! 
     217      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    197218   END SUBROUTINE dom_glo 
    198219 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DOM/domhgr.F90

    r6487 r11738  
    2626   USE lib_mpp        ! MPP library 
    2727   USE timing         ! Timing 
     28 
     29   USE yomhook, ONLY: lhook, dr_hook 
     30   USE parkind1, ONLY: jprb, jpim 
    2831 
    2932   IMPLICIT NONE 
    … …  
    106109      REAL(wp) ::   zphi1, zsin_alpha, zim05, zjm05 
    107110      INTEGER  ::   isrow                ! index for ORCA1 starting row 
     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='DOM_HGR' 
     116 
     117      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     118 
    108119 
    109120      !!---------------------------------------------------------------------- 
    … …  
    602613      IF( nn_timing == 1 )  CALL timing_stop('dom_hgr') 
    603614      ! 
     615      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    604616   END SUBROUTINE dom_hgr 
    605617 
    … …  
    618630 
    619631      INTEGER ::   inum   ! temporary logical unit 
     632      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     633      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     634      REAL(KIND=jprb)               :: zhook_handle 
     635 
     636      CHARACTER(LEN=*), PARAMETER :: RoutineName='HGR_READ' 
     637 
     638      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     639 
    620640      !!---------------------------------------------------------------------- 
    621641 
    … …  
    677697      END WHERE 
    678698        
     699      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    679700    END SUBROUTINE hgr_read 
    680701     

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DOM/dommsk.F90

    r10047 r11738  
    3434   USE timing          ! Timing 
    3535 
     36   USE yomhook, ONLY: lhook, dr_hook 
     37   USE parkind1, ONLY: jprb, jpim 
     38 
    3639   IMPLICIT NONE 
    3740   PRIVATE 
    … …  
    5861    
    5962   INTEGER FUNCTION dom_msk_alloc() 
     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='DOM_MSK_ALLOC' 
     68 
     69   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     70 
    6071      !!--------------------------------------------------------------------- 
    6172      !!                 ***  FUNCTION dom_msk_alloc  *** 
    … …  
    6778      IF( dom_msk_alloc /= 0 )   CALL ctl_warn('dom_msk_alloc: failed to allocate icoord array') 
    6879      ! 
     80   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    6981   END FUNCTION dom_msk_alloc 
    7082 
    … …  
    143155      !! 
    144156      NAMELIST/namlbc/ rn_shlat, ln_vorlat 
     157      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     158      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     159      REAL(KIND=jprb)               :: zhook_handle 
     160 
     161      CHARACTER(LEN=*), PARAMETER :: RoutineName='DOM_MSK' 
     162 
     163      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     164 
    145165      !!--------------------------------------------------------------------- 
    146166      ! 
    … …  
    564584      IF( nn_timing == 1 )  CALL timing_stop('dom_msk') 
    565585      ! 
     586      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    566587   END SUBROUTINE dom_msk 
    567588 
    … …  
    584605      INTEGER  ::   ine, inw, ins, inn, itest, ierror, iind, ijnd 
    585606      REAL(wp) ::   zaa 
     607      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     608      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     609      REAL(KIND=jprb)               :: zhook_handle 
     610 
     611      CHARACTER(LEN=*), PARAMETER :: RoutineName='DOM_MSK_NSA' 
     612 
     613      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     614 
    586615      !!--------------------------------------------------------------------- 
    587616      ! 
    … …  
    749778      IF( nn_timing == 1 )  CALL timing_stop('dom_msk_nsa') 
    750779      ! 
     780      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    751781   END SUBROUTINE dom_msk_nsa 
    752782 
    … …  
    756786   !!---------------------------------------------------------------------- 
    757787   SUBROUTINE dom_msk_nsa        
     788   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     789   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     790   REAL(KIND=jprb)               :: zhook_handle 
     791 
     792   CHARACTER(LEN=*), PARAMETER :: RoutineName='DOM_MSK_NSA' 
     793 
     794   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     795 
     796   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    758797   END SUBROUTINE dom_msk_nsa 
    759798#endif 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DOM/domngb.F90

    r6486 r11738  
    1515   USE wrk_nemo       ! Memory allocation 
    1616   USE timing         ! Timing 
     17 
     18   USE yomhook, ONLY: lhook, dr_hook 
     19   USE parkind1, ONLY: jprb, jpim 
    1720 
    1821   IMPLICIT NONE 
    … …  
    4548      REAL(wp)               ::   zlon, zmini 
    4649      REAL(wp), POINTER, DIMENSION(:,:) ::  zglam, zgphi, zmask, zdist 
     50      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     51      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     52      REAL(KIND=jprb)               :: zhook_handle 
     53 
     54      CHARACTER(LEN=*), PARAMETER :: RoutineName='DOM_NGB' 
     55 
     56      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     57 
    4758      !!-------------------------------------------------------------------- 
    4859      ! 
    … …  
    8091      IF( nn_timing == 1 )  CALL timing_stop('dom_ngb') 
    8192      ! 
     93      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    8294   END SUBROUTINE dom_ngb 
    8395 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DOM/domstp.F90

    r6486 r11738  
    1616   USE in_out_manager ! I/O manager 
    1717   USE lib_mpp        ! MPP library 
     18 
     19   USE yomhook, ONLY: lhook, dr_hook 
     20   USE parkind1, ONLY: jprb, jpim 
    1821 
    1922   IMPLICIT NONE 
    … …  
    5962      !!---------------------------------------------------------------------- 
    6063      INTEGER ::   jk              ! dummy loop indice 
     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='DOM_STP' 
     69 
     70      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     71 
    6172      !!---------------------------------------------------------------------- 
    6273 
    … …  
    106117      END SELECT 
    107118 
     119      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    108120   END SUBROUTINE dom_stp 
    109121 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DOM/domvvl.F90

    r9321 r11738  
    3434   USE timing          ! Timing 
    3535 
     36   USE yomhook, ONLY: lhook, dr_hook 
     37   USE parkind1, ONLY: jprb, jpim 
     38 
    3639   IMPLICIT NONE 
    3740   PRIVATE 
    … …  
    7881 
    7982   INTEGER FUNCTION dom_vvl_alloc() 
     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='DOM_VVL_ALLOC' 
     88 
     89   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     90 
    8091      !!---------------------------------------------------------------------- 
    8192      !!                ***  FUNCTION dom_vvl_alloc  *** 
    … …  
    97108      ENDIF 
    98109 
     110   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    99111   END FUNCTION dom_vvl_alloc 
    100112 
    … …  
    127139      INTEGER ::   ii0, ii1, ij0, ij1 
    128140      REAL(wp)::   zcoef 
     141      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     142      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     143      REAL(KIND=jprb)               :: zhook_handle 
     144 
     145      CHARACTER(LEN=*), PARAMETER :: RoutineName='DOM_VVL_INIT' 
     146 
     147      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     148 
    129149      !!---------------------------------------------------------------------- 
    130150      IF( nn_timing == 1 )  CALL timing_start('dom_vvl_init') 
    … …  
    247267      IF( nn_timing == 1 )  CALL timing_stop('dom_vvl_init') 
    248268 
     269      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    249270   END SUBROUTINE dom_vvl_init 
    250271 
    … …  
    283304      REAL(wp)                               :: z_tmin, z_tmax        ! temporary scalars 
    284305      LOGICAL                                :: ll_do_bclinic         ! temporary logical 
     306      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     307      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     308      REAL(KIND=jprb)               :: zhook_handle 
     309 
     310      CHARACTER(LEN=*), PARAMETER :: RoutineName='DOM_VVL_SF_NXT' 
     311 
     312      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     313 
    285314      !!---------------------------------------------------------------------- 
    286315      IF( nn_timing == 1 )  CALL timing_start('dom_vvl_sf_nxt') 
    … …  
    553582      IF( nn_timing == 1 )  CALL timing_stop('dom_vvl_sf_nxt') 
    554583 
     584      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    555585   END SUBROUTINE dom_vvl_sf_nxt 
    556586 
    … …  
    585615      INTEGER                             :: ji,jj,jk       ! dummy loop indices 
    586616      REAL(wp)                            :: zcoef 
     617      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     618      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     619      REAL(KIND=jprb)               :: zhook_handle 
     620 
     621      CHARACTER(LEN=*), PARAMETER :: RoutineName='DOM_VVL_SF_SWP' 
     622 
     623      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     624 
    587625      !!---------------------------------------------------------------------- 
    588626 
    … …  
    673711      IF( nn_timing == 1 )  CALL timing_stop('dom_vvl_sf_swp') 
    674712 
     713      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    675714   END SUBROUTINE dom_vvl_sf_swp 
    676715 
    … …  
    694733      INTEGER ::   ji, jj, jk                                          ! dummy loop indices 
    695734      LOGICAL ::   l_is_orca                                           ! local logical 
     735      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     736      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     737      REAL(KIND=jprb)               :: zhook_handle 
     738 
     739      CHARACTER(LEN=*), PARAMETER :: RoutineName='DOM_VVL_INTERPOL' 
     740 
     741      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     742 
    696743      !!---------------------------------------------------------------------- 
    697744      IF( nn_timing == 1 )  CALL timing_start('dom_vvl_interpol') 
    … …  
    790837      IF( nn_timing == 1 )  CALL timing_stop('dom_vvl_interpol') 
    791838 
     839      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    792840   END SUBROUTINE dom_vvl_interpol 
    793841 
    … …  
    810858      INTEGER ::   jk 
    811859      INTEGER ::   id1, id2, id3, id4, id5     ! local integers 
     860      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     861      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     862      REAL(KIND=jprb)               :: zhook_handle 
     863 
     864      CHARACTER(LEN=*), PARAMETER :: RoutineName='DOM_VVL_RST' 
     865 
     866      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     867 
    812868      !!---------------------------------------------------------------------- 
    813869      ! 
    … …  
    930986      IF( nn_timing == 1 )  CALL timing_stop('dom_vvl_rst') 
    931987 
     988      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    932989   END SUBROUTINE dom_vvl_rst 
    933990 
    … …  
    9461003                      & ln_vvl_zstar_at_eqtor      , rn_ahe3     , rn_rst_e3t            , & 
    9471004                      & rn_lf_cutoff               , rn_zdef_max , ln_vvl_dbg                ! not yet implemented: ln_vvl_kepe 
     1005                      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     1006                      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     1007                      REAL(KIND=jprb)               :: zhook_handle 
     1008 
     1009                      CHARACTER(LEN=*), PARAMETER :: RoutineName='DOM_VVL_CTL' 
     1010 
     1011                      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     1012 
    9481013      !!----------------------------------------------------------------------  
    9491014 
    … …  
    10141079#endif 
    10151080 
     1081                      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    10161082   END SUBROUTINE dom_vvl_ctl 
    10171083 
    … …  
    10351101      INTEGER ::   ij0, ij1, ii0, ii1                                  ! dummy loop indices 
    10361102      INTEGER ::   isrow                                               ! index for ORCA1 starting row 
     1103      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     1104      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     1105      REAL(KIND=jprb)               :: zhook_handle 
     1106 
     1107      CHARACTER(LEN=*), PARAMETER :: RoutineName='DOM_VVL_ORCA_FIX' 
     1108 
     1109      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     1110 
    10371111      !! acc 
    10381112      !! Hmm with the time splitting these "fixes" seem to do more harm than good. Temporarily disabled for 
    … …  
    14041478         END DO 
    14051479      ENDIF 
     1480      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    14061481   END SUBROUTINE dom_vvl_orca_fix 
    14071482 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DOM/domwri.F90

    r10047 r11738  
    2222   USE wrk_nemo        ! Memory allocation 
    2323   USE timing          ! Timing 
     24 
     25   USE yomhook, ONLY: lhook, dr_hook 
     26   USE parkind1, ONLY: jprb, jpim 
    2427 
    2528   IMPLICIT NONE 
    … …  
    8083      REAL(wp), POINTER, DIMENSION(:,:  ) :: zprt, zprw  
    8184      REAL(wp), POINTER, DIMENSION(:,:,:) :: zdepu, zdepv 
     85      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     86      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     87      REAL(KIND=jprb)               :: zhook_handle 
     88 
     89      CHARACTER(LEN=*), PARAMETER :: RoutineName='DOM_WRI' 
     90 
     91      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     92 
    8293      !!---------------------------------------------------------------------- 
    8394      ! 
    … …  
    316327      IF( nn_timing == 1 )  CALL timing_stop('dom_wri') 
    317328      ! 
     329      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    318330   END SUBROUTINE dom_wri 
    319331 
    … …  
    336348      LOGICAL, DIMENSION(SIZE(puniq,1),SIZE(puniq,2),1) ::  lldbl  ! store whether each point is unique or not 
    337349      REAL(wp), POINTER, DIMENSION(:,:) :: ztstref 
     350      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     351      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     352      REAL(KIND=jprb)               :: zhook_handle 
     353 
     354      CHARACTER(LEN=*), PARAMETER :: RoutineName='DOM_UNIQ' 
     355 
     356      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     357 
    338358      !!---------------------------------------------------------------------- 
    339359      ! 
    … …  
    360380      IF( nn_timing == 1 )  CALL timing_stop('dom_uniq') 
    361381      ! 
     382      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    362383   END SUBROUTINE dom_uniq 
    363384 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DOM/domzgr.F90

    r6487 r11738  
    4545   USE timing            ! Timing 
    4646 
     47   USE yomhook, ONLY: lhook, dr_hook 
     48   USE parkind1, ONLY: jprb, jpim 
     49 
    4750   IMPLICIT NONE 
    4851   PRIVATE 
    … …  
    103106      ! 
    104107      NAMELIST/namzgr/ ln_zco, ln_zps, ln_sco, ln_isfcav 
     108      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     109      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     110      REAL(KIND=jprb)               :: zhook_handle 
     111 
     112      CHARACTER(LEN=*), PARAMETER :: RoutineName='DOM_ZGR' 
     113 
     114      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     115 
    105116      !!---------------------------------------------------------------------- 
    106117      ! 
    … …  
    173184      IF( nn_timing == 1 )  CALL timing_stop('dom_zgr') 
    174185      ! 
     186      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    175187   END SUBROUTINE dom_zgr 
    176188 
    … …  
    203215      REAL(wp) ::   zrefdep                ! depth of the reference level (~10m) 
    204216      REAL(wp) ::   za2, zkth2, zacr2      ! Values for optional double tanh function set from parameters  
     217      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     218      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     219      REAL(KIND=jprb)               :: zhook_handle 
     220 
     221      CHARACTER(LEN=*), PARAMETER :: RoutineName='ZGR_Z' 
     222 
     223      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     224 
    205225      !!---------------------------------------------------------------------- 
    206226      ! 
    … …  
    346366      IF( nn_timing == 1 )  CALL timing_stop('zgr_z') 
    347367      ! 
     368      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    348369   END SUBROUTINE zgr_z 
    349370 
    … …  
    388409      INTEGER , ALLOCATABLE, DIMENSION(:,:) ::   idta   ! global domain integer data 
    389410      REAL(wp), ALLOCATABLE, DIMENSION(:,:) ::   zdta   ! global domain scalar data 
     411      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     412      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     413      REAL(KIND=jprb)               :: zhook_handle 
     414 
     415      CHARACTER(LEN=*), PARAMETER :: RoutineName='ZGR_BAT' 
     416 
     417      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     418 
    390419      !!---------------------------------------------------------------------- 
    391420      ! 
    … …  
    600629      IF( nn_timing == 1 )  CALL timing_stop('zgr_bat') 
    601630      ! 
     631      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    602632   END SUBROUTINE zgr_bat 
    603633 
    … …  
    615645      !!---------------------------------------------------------------------- 
    616646      INTEGER ::   ii0, ii1, ij0, ij1   ! temporary integers 
     647      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     648      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     649      REAL(KIND=jprb)               :: zhook_handle 
     650 
     651      CHARACTER(LEN=*), PARAMETER :: RoutineName='ZGR_BAT_ZOOM' 
     652 
     653      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     654 
    617655      !!---------------------------------------------------------------------- 
    618656      ! 
    … …  
    652690      ENDIF 
    653691      ! 
     692      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    654693   END SUBROUTINE zgr_bat_zoom 
    655694 
    … …  
    681720      INTEGER ::   icompt, ibtest, ikmax         ! temporary integers 
    682721      REAL(wp), POINTER, DIMENSION(:,:) ::  zbathy 
     722      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     723      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     724      REAL(KIND=jprb)               :: zhook_handle 
     725 
     726      CHARACTER(LEN=*), PARAMETER :: RoutineName='ZGR_BAT_CTL' 
     727 
     728      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     729 
    683730 
    684731      !!---------------------------------------------------------------------- 
    … …  
    791838      IF( nn_timing == 1 )  CALL timing_stop('zgr_bat_ctl') 
    792839      ! 
     840      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    793841   END SUBROUTINE zgr_bat_ctl 
    794842 
    … …  
    809857      INTEGER ::   ji, jj   ! dummy loop indices 
    810858      REAL(wp), POINTER, DIMENSION(:,:) ::  zmbk 
     859      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     860      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     861      REAL(KIND=jprb)               :: zhook_handle 
     862 
     863      CHARACTER(LEN=*), PARAMETER :: RoutineName='ZGR_BOT_LEVEL' 
     864 
     865      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     866 
    811867      !!---------------------------------------------------------------------- 
    812868      ! 
    … …  
    836892      IF( nn_timing == 1 )  CALL timing_stop('zgr_bot_level') 
    837893      ! 
     894      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    838895   END SUBROUTINE zgr_bot_level 
    839896 
    … …  
    853910      INTEGER ::   ji, jj   ! dummy loop indices 
    854911      REAL(wp), POINTER, DIMENSION(:,:) ::  zmik 
     912      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     913      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     914      REAL(KIND=jprb)               :: zhook_handle 
     915 
     916      CHARACTER(LEN=*), PARAMETER :: RoutineName='ZGR_TOP_LEVEL' 
     917 
     918      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     919 
    855920      !!---------------------------------------------------------------------- 
    856921      ! 
    … …  
    882947      IF( nn_timing == 1 )  CALL timing_stop('zgr_top_level') 
    883948      ! 
     949      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    884950   END SUBROUTINE zgr_top_level 
    885951 
    … …  
    893959      !!---------------------------------------------------------------------- 
    894960      INTEGER  ::   jk 
     961      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     962      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     963      REAL(KIND=jprb)               :: zhook_handle 
     964 
     965      CHARACTER(LEN=*), PARAMETER :: RoutineName='ZGR_ZCO' 
     966 
     967      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     968 
    895969      !!---------------------------------------------------------------------- 
    896970      ! 
    … …  
    912986      IF( nn_timing == 1 )  CALL timing_stop('zgr_zco') 
    913987      ! 
     988      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    914989   END SUBROUTINE zgr_zco 
    915990 
    … …  
    9701045      REAL(wp) ::   zrefdep          ! temporary scalar 
    9711046      REAL(wp), POINTER, DIMENSION(:,:,:) ::  zprt 
     1047      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     1048      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     1049      REAL(KIND=jprb)               :: zhook_handle 
     1050 
     1051      CHARACTER(LEN=*), PARAMETER :: RoutineName='ZGR_ZPS' 
     1052 
     1053      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     1054 
    9721055      !!--------------------------------------------------------------------- 
    9731056      ! 
    … …  
    12521335      IF( nn_timing == 1 )  CALL timing_stop('zgr_zps') 
    12531336      ! 
     1337      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    12541338   END SUBROUTINE zgr_zps 
    12551339 
    … …  
    12821366      REAL(wp), POINTER, DIMENSION(:,:)   ::   zrisfdep, zbathy, zmask   ! 2D workspace (ISH) 
    12831367      INTEGER , POINTER, DIMENSION(:,:)   ::   zmbathy, zmisfdep         ! 2D workspace (ISH) 
     1368      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     1369      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     1370      REAL(KIND=jprb)               :: zhook_handle 
     1371 
     1372      CHARACTER(LEN=*), PARAMETER :: RoutineName='ZGR_ISF' 
     1373 
     1374      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     1375 
    12841376      !!--------------------------------------------------------------------- 
    12851377      ! 
    … …  
    17581850      IF( nn_timing == 1 )  CALL timing_stop('zgr_isf') 
    17591851       
     1852      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    17601853   END SUBROUTINE 
    17611854 
    … …  
    18161909      NAMELIST/namzgr_sco/ln_s_sh94, ln_s_sf12, ln_sigcrit, rn_sbot_min, rn_sbot_max, rn_hc, rn_rmax,rn_theta, & 
    18171910                           rn_thetb, rn_bb, rn_alpha, rn_efold, rn_zs, rn_zb_a, rn_zb_b 
     1911                           INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     1912                           INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     1913                           REAL(KIND=jprb)               :: zhook_handle 
     1914 
     1915                           CHARACTER(LEN=*), PARAMETER :: RoutineName='ZGR_SCO' 
     1916 
     1917                           IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     1918 
    18181919     !!---------------------------------------------------------------------- 
    18191920      ! 
    … …  
    22402341      IF( nn_timing == 1 )  CALL timing_stop('zgr_sco') 
    22412342      ! 
     2343                           IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    22422344   END SUBROUTINE zgr_sco 
    22432345 
    … …  
    22612363      REAL(wp), POINTER, DIMENSION(:,:,:) :: z_gsigw3, z_gsigt3, z_gsi3w3 
    22622364      REAL(wp), POINTER, DIMENSION(:,:,:) :: z_esigt3, z_esigw3, z_esigtu3, z_esigtv3, z_esigtf3, z_esigwu3, z_esigwv3            
     2365      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     2366      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     2367      REAL(KIND=jprb)               :: zhook_handle 
     2368 
     2369      CHARACTER(LEN=*), PARAMETER :: RoutineName='S_SH94' 
     2370 
     2371      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     2372 
    22632373 
    22642374      CALL wrk_alloc( jpi, jpj, jpk, z_gsigw3, z_gsigt3, z_gsi3w3                                      ) 
    … …  
    23392449      CALL wrk_dealloc( jpi, jpj, jpk, z_esigt3, z_esigw3, z_esigtu3, z_esigtv3, z_esigtf3, z_esigwu3, z_esigwv3 ) 
    23402450 
     2451      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    23412452   END SUBROUTINE s_sh94 
    23422453 
    … …  
    23652476      REAL(wp), POINTER, DIMENSION(:,:,:) :: z_gsigw3, z_gsigt3, z_gsi3w3 
    23662477      REAL(wp), POINTER, DIMENSION(:,:,:) :: z_esigt3, z_esigw3, z_esigtu3, z_esigtv3, z_esigtf3, z_esigwu3, z_esigwv3            
     2478      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     2479      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     2480      REAL(KIND=jprb)               :: zhook_handle 
     2481 
     2482      CHARACTER(LEN=*), PARAMETER :: RoutineName='S_SF12' 
     2483 
     2484      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     2485 
    23672486 
    23682487      ! 
    … …  
    24762595      CALL wrk_dealloc( jpi, jpj, jpk, z_esigt3, z_esigw3, z_esigtu3, z_esigtv3, z_esigtf3, z_esigwu3, z_esigwv3 ) 
    24772596 
     2597      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    24782598   END SUBROUTINE s_sf12 
    24792599 
    … …  
    24952615      REAL(wp), POINTER, DIMENSION(:) :: z_gsigw, z_gsigt, z_gsi3w 
    24962616      REAL(wp), POINTER, DIMENSION(:) :: z_esigt, z_esigw 
     2617      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     2618      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     2619      REAL(KIND=jprb)               :: zhook_handle 
     2620 
     2621      CHARACTER(LEN=*), PARAMETER :: RoutineName='S_TANH' 
     2622 
     2623      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     2624 
    24972625 
    24982626      CALL wrk_alloc( jpk, z_gsigw, z_gsigt, z_gsi3w                                      ) 
    … …  
    25502678      CALL wrk_dealloc( jpk, z_esigt, z_esigw                                               ) 
    25512679 
     2680      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    25522681   END SUBROUTINE s_tanh 
    25532682 
    … …  
    25652694      REAL(wp), INTENT(in) ::   pk   ! continuous "k" coordinate 
    25662695      REAL(wp)             ::   pf   ! sigma value 
     2696      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     2697      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     2698      REAL(KIND=jprb)               :: zhook_handle 
     2699 
     2700      CHARACTER(LEN=*), PARAMETER :: RoutineName='FSSIG' 
     2701 
     2702      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     2703 
    25672704      !!---------------------------------------------------------------------- 
    25682705      ! 
    … …  
    25732710         & / ( 2._wp * SINH( rn_theta ) ) 
    25742711      ! 
     2712      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    25752713   END FUNCTION fssig 
    25762714 
    … …  
    25902728      REAL(wp), INTENT(in) ::   pbb   ! Stretching coefficient 
    25912729      REAL(wp)             ::   pf1   ! sigma value 
     2730      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     2731      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     2732      REAL(KIND=jprb)               :: zhook_handle 
     2733 
     2734      CHARACTER(LEN=*), PARAMETER :: RoutineName='FSSIG1' 
     2735 
     2736      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     2737 
    25922738      !!---------------------------------------------------------------------- 
    25932739      ! 
    … …  
    26002746      ENDIF 
    26012747      ! 
     2748      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    26022749   END FUNCTION fssig1 
    26032750 
    … …  
    26292776      REAL(wp)                ::   za,zb,zx       ! local variables 
    26302777      integer                 ::   jk 
     2778      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     2779      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     2780      REAL(KIND=jprb)               :: zhook_handle 
     2781 
     2782      CHARACTER(LEN=*), PARAMETER :: RoutineName='FGAMMA' 
     2783 
     2784      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     2785 
    26312786      !!---------------------------------------------------------------------- 
    26322787      ! 
    … …  
    26522807 
    26532808      ! 
     2809      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    26542810   END FUNCTION fgamma 
    26552811 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DOM/dtatsd.F90

    r6486 r11738  
    2424   USE timing          ! Timing 
    2525 
     26   USE yomhook, ONLY: lhook, dr_hook 
     27   USE parkind1, ONLY: jprb, jpim 
     28 
    2629   IMPLICIT NONE 
    2730   PRIVATE 
    … …  
    6366      NAMELIST/namtsd/   ln_tsd_init, ln_tsd_tradmp, cn_dir, sn_tem, sn_sal 
    6467      INTEGER  ::   ios 
     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='DTA_TSD_INIT' 
     73 
     74      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     75 
    6576      !!---------------------------------------------------------------------- 
    6677      ! 
    … …  
    125136      IF( nn_timing == 1 )  CALL timing_stop('dta_tsd_init') 
    126137      ! 
     138      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    127139   END SUBROUTINE dta_tsd_init 
    128140 
    … …  
    150162      REAL(wp)::   zl, zi 
    151163      REAL(wp), POINTER, DIMENSION(:) ::  ztp, zsp   ! 1D workspace 
     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='DTA_TSD' 
     169 
     170      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     171 
    152172      !!---------------------------------------------------------------------- 
    153173      ! 
    … …  
    308328      IF( nn_timing == 1 )  CALL timing_stop('dta_tsd') 
    309329      ! 
     330      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    310331   END SUBROUTINE dta_tsd 
    311332 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DOM/istate.F90

    r6486 r11738  
    4848   USE timing          ! Timing 
    4949 
     50   USE yomhook, ONLY: lhook, dr_hook 
     51   USE parkind1, ONLY: jprb, jpim 
     52 
    5053   IMPLICIT NONE 
    5154   PRIVATE 
    … …  
    7174      INTEGER ::   ji, jj, jk   ! dummy loop indices 
    7275      REAL(wp), POINTER, DIMENSION(:,:,:,:) ::   zuvd    ! U & V data workspace 
     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='ISTATE_INIT' 
     81 
     82      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     83 
    7384      !!---------------------------------------------------------------------- 
    7485      ! 
    … …  
    187198      IF( nn_timing == 1 )   CALL timing_stop('istate_init') 
    188199      ! 
     200      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    189201   END SUBROUTINE istate_init 
    190202 
    … …  
    204216      INTEGER  :: ji, jj, jk 
    205217      REAL(wp) ::   zsal = 35.50 
     218      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     219      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     220      REAL(KIND=jprb)               :: zhook_handle 
     221 
     222      CHARACTER(LEN=*), PARAMETER :: RoutineName='ISTATE_T_S' 
     223 
     224      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     225 
    206226      !!---------------------------------------------------------------------- 
    207227      ! 
    … …  
    218238      tsb(:,:,:,jp_sal) = tsn(:,:,:,jp_sal) 
    219239      ! 
     240      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    220241   END SUBROUTINE istate_t_s 
    221242 
    … …  
    245266      REAL(wp) ::   zueel = 0.1_wp                  ! constant uniform zonal velocity (EEL R5) 
    246267      REAL(wp), DIMENSION(jpiglo,jpjglo) ::   zssh  ! initial ssh over the global domain 
     268      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     269      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     270      REAL(KIND=jprb)               :: zhook_handle 
     271 
     272      CHARACTER(LEN=*), PARAMETER :: RoutineName='ISTATE_EEL' 
     273 
     274      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     275 
    247276      !!---------------------------------------------------------------------- 
    248277      ! 
    … …  
    360389      END SELECT 
    361390      ! 
     391      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    362392   END SUBROUTINE istate_eel 
    363393 
    … …  
    376406      INTEGER            ::   inum          ! temporary logical unit 
    377407      INTEGER, PARAMETER ::   ntsinit = 0   ! (0/1) (analytical/input data files) T&S initialization 
     408      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     409      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     410      REAL(KIND=jprb)               :: zhook_handle 
     411 
     412      CHARACTER(LEN=*), PARAMETER :: RoutineName='ISTATE_GYRE' 
     413 
     414      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     415 
    378416      !!---------------------------------------------------------------------- 
    379417      ! 
    … …  
    443481      ENDIF 
    444482      ! 
     483      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    445484   END SUBROUTINE istate_gyre 
    446485 
    … …  
    465504      REAL(wp) ::   zmsv, zphv, zmsu, zphu, zalfg     ! temporary scalars 
    466505      REAL(wp), POINTER, DIMENSION(:,:,:) :: zprn 
     506      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     507      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     508      REAL(KIND=jprb)               :: zhook_handle 
     509 
     510      CHARACTER(LEN=*), PARAMETER :: RoutineName='ISTATE_UVG' 
     511 
     512      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     513 
    467514      !!---------------------------------------------------------------------- 
    468515      ! 
    … …  
    566613      CALL wrk_dealloc( jpi, jpj, jpk, zprn) 
    567614      ! 
     615      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    568616   END SUBROUTINE istate_uvg 
    569617 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DOM/phycst.F90

    r6488 r11738  
    1818   USE in_out_manager   ! I/O manager 
    1919 
     20   USE yomhook, ONLY: lhook, dr_hook 
     21   USE parkind1, ONLY: jprb, jpim 
     22 
    2023   IMPLICIT NONE 
    2124   PRIVATE 
    … …  
    107110      !!---------------------------------------------------------------------- 
    108111      CHARACTER (len=64) ::   cform = "(A12, 3(A13, I7) )"  
     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='PHY_CST' 
     117 
     118      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     119 
    109120      !!---------------------------------------------------------------------- 
    110121 
    … …  
    209220      ENDIF 
    210221 
     222      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    211223   END SUBROUTINE phy_cst 
    212224 
Note: See TracChangeset for help on using the changeset viewer.