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/TOP_SRC – 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/TOP_SRC
Files:
74 edited

Legend:

Unmodified
Added
Removed

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/CFC/par_cfc.F90

    r8280 r11738  
    2525   USE par_idtra  , ONLY : jp_idtra_3d     !: number of tracers in ideal tracer 
    2626   USE par_idtra  , ONLY : jp_idtra_trd    !: number of tracers in ideal tracer 
     27 
     28   USE yomhook, ONLY: lhook, dr_hook 
     29   USE parkind1, ONLY: jprb, jpim 
    2730 
    2831   IMPLICIT NONE 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/CFC/trcice_cfc.F90

    r6486 r11738  
    1616   USE trc             ! TOP variables 
    1717 
     18   USE yomhook, ONLY: lhook, dr_hook 
     19   USE parkind1, ONLY: jprb, jpim 
     20 
    1821   IMPLICIT NONE 
    1922   PRIVATE 
    … …  
    2932 
    3033   SUBROUTINE trc_ice_ini_cfc 
     34   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     35   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     36   REAL(KIND=jprb)               :: zhook_handle 
     37 
     38   CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_ICE_INI_CFC' 
     39 
     40   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     41 
    3142      !!---------------------------------------------------------------------- 
    3243      !!                     ***  trc_ice_cfc  *** 
    … …  
    3849      ! 
    3950      ! 
     51   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    4052   END SUBROUTINE trc_ice_ini_cfc 
    4153 
    … …  
    4759CONTAINS 
    4860   SUBROUTINE trc_ice_ini_cfc             ! Empty routine 
     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='TRC_ICE_INI_CFC' 
     66 
     67   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     68 
     69   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    4970   END SUBROUTINE trc_ice_ini_cfc 
    5071#endif 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/CFC/trcini_cfc.F90

    r9385 r11738  
    1717   USE trc             ! TOP variables 
    1818   USE trcsms_cfc      ! CFC sms trends 
     19 
     20   USE yomhook, ONLY: lhook, dr_hook 
     21   USE parkind1, ONLY: jprb, jpim 
    1922 
    2023   IMPLICIT NONE 
    … …  
    4750      INTEGER  ::  iskip = 7   ! number of 1st descriptor lines 
    4851      REAL(wp) ::  zyy, zyd 
     52      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     53      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     54      REAL(KIND=jprb)               :: zhook_handle 
     55 
     56      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_INI_CFC' 
     57 
     58      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     59 
    4960      !!---------------------------------------------------------------------- 
    5061 
    … …  
    7081        CALL ctl_stop('trc_ini_cfc:  & 
    7182                      & Error on the 1st reading of cfc1112sf6.atm') 
     83      IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 
    7284        RETURN 
    7385      ENDIF 
    … …  
    7991      IF( ierr > 0 ) THEN 
    8092         CALL ctl_stop( 'trc_ini_cfc: unable to allocate p_cfc array' )    
     93      IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 
    8194         RETURN 
    8295      ENDIF 
    … …  
    117130          CALL ctl_stop('trc_ini_cfc:   & 
    118131                        & Error on the 2nd reading of cfc1112sf6.atm') 
     132      IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 
    119133          RETURN 
    120134        ENDIF 
    … …  
    157171      IF(lwp) WRITE(numout,*) ' ' 
    158172      ! 
     173      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    159174   END SUBROUTINE trc_ini_cfc 
    160175    
    … …  
    165180CONTAINS 
    166181   SUBROUTINE trc_ini_cfc             ! Empty routine 
     182   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     183   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     184   REAL(KIND=jprb)               :: zhook_handle 
     185 
     186   CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_INI_CFC' 
     187 
     188   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     189 
     190   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    167191   END SUBROUTINE trc_ini_cfc 
    168192#endif 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/CFC/trcnam_cfc.F90

    r8442 r11738  
    1717   USE trcsms_cfc      ! CFC specific variable 
    1818   USE iom             ! I/O manager 
     19 
     20   USE yomhook, ONLY: lhook, dr_hook 
     21   USE parkind1, ONLY: jprb, jpim 
    1922 
    2023   IMPLICIT NONE 
    … …  
    4952      !! 
    5053      NAMELIST/namcfcdate/ ndate_beg, nyear_res, simu_type  
     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='TRC_NAM_CFC' 
     59 
     60      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     61 
    5162      !!---------------------------------------------------------------------- 
    5263      !                             ! Open namelist files 
    … …  
    8293   IF(lwm) CALL FLUSH ( numonc )     ! flush output namelist CFC 
    8394 
     95      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    8496   END SUBROUTINE trc_nam_cfc 
    8597    
    … …  
    90102CONTAINS 
    91103   SUBROUTINE trc_nam_cfc                      ! Empty routine 
     104   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     105   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     106   REAL(KIND=jprb)               :: zhook_handle 
     107 
     108   CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_NAM_CFC' 
     109 
     110   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     111 
     112   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    92113   END  SUBROUTINE  trc_nam_cfc 
    93114#endif   

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/CFC/trcsms_cfc.F90

    r9163 r11738  
    2525   USE iom           ! I/O library 
    2626   USE wrk_nemo 
     27 
     28   USE yomhook, ONLY: lhook, dr_hook 
     29   USE parkind1, ONLY: jprb, jpim 
    2730 
    2831   IMPLICIT NONE 
    … …  
    98101      REAL(wp) ::   zak_cfc   ! transfert coefficients 
    99102      REAL(wp), ALLOCATABLE, DIMENSION(:,:)  ::   zpatm     ! atmospheric function 
     103      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     104      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     105      REAL(KIND=jprb)               :: zhook_handle 
     106 
     107      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_SMS_CFC' 
     108 
     109      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     110 
    100111      !!---------------------------------------------------------------------- 
    101112      ! 
    … …  
    283294      IF( nn_timing == 1 )  CALL timing_stop('trc_sms_cfc') 
    284295      ! 
     296      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    285297   END SUBROUTINE trc_sms_cfc 
    286298 
    … …  
    293305      !!--------------------------------------------------------------------- 
    294306      INTEGER :: jl, jn, iyear_beg, iyear_tmp 
     307      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     308      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     309      REAL(KIND=jprb)               :: zhook_handle 
     310 
     311      CHARACTER(LEN=*), PARAMETER :: RoutineName='CFC_INIT' 
     312 
     313      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     314 
    295315 
    296316      ! coefficient for CFC11  
    … …  
    398418      IF(lwp) WRITE(numout,*) 
    399419      ! 
     420      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    400421   END SUBROUTINE cfc_init 
    401422 
    402423 
    403424   INTEGER FUNCTION trc_sms_cfc_alloc() 
     425   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     426   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     427   REAL(KIND=jprb)               :: zhook_handle 
     428 
     429   CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_SMS_CFC_ALLOC' 
     430 
     431   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     432 
    404433      !!---------------------------------------------------------------------- 
    405434      !!                     ***  ROUTINE trc_sms_cfc_alloc  *** 
    … …  
    411440      IF( trc_sms_cfc_alloc /= 0 ) CALL ctl_warn('trc_sms_cfc_alloc : failed to allocate arrays.') 
    412441      ! 
     442   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    413443   END FUNCTION trc_sms_cfc_alloc 
    414444 
    … …  
    419449CONTAINS 
    420450   SUBROUTINE trc_sms_cfc( kt )       ! Empty routine 
     451   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     452   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     453   REAL(KIND=jprb)               :: zhook_handle 
     454 
     455   CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_SMS_CFC' 
     456 
     457   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     458 
    421459      WRITE(*,*) 'trc_sms_cfc: You should not have seen this print! error?', kt 
     460   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    422461   END SUBROUTINE trc_sms_cfc 
    423462#endif 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/CFC/trcwri_cfc.F90

    r6618 r11738  
    1414   USE trc         ! passive tracers common variables  
    1515   USE iom         ! I/O manager 
     16 
     17   USE yomhook, ONLY: lhook, dr_hook 
     18   USE parkind1, ONLY: jprb, jpim 
    1619 
    1720   IMPLICIT NONE 
    … …  
    3134      CHARACTER (len=20)   :: cltra 
    3235      INTEGER              :: jn 
     36      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     37      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     38      REAL(KIND=jprb)               :: zhook_handle 
     39 
     40      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_WRI_CFC' 
     41 
     42      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     43 
    3344      !!--------------------------------------------------------------------- 
    3445  
    … …  
    4051      END DO 
    4152      ! 
     53      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    4254   END SUBROUTINE trc_wri_cfc 
    4355 
    … …  
    4961CONTAINS 
    5062   SUBROUTINE trc_wri_cfc                     ! Empty routine   
     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='TRC_WRI_CFC' 
     68 
     69   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     70 
     71   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    5172   END SUBROUTINE trc_wri_cfc 
    5273#endif 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/IDTRA/par_idtra.F90

    r6164 r11738  
    2020   USE par_medusa , ONLY : jp_medusa_3d    !: number of 3D diag in MEDUSA 
    2121   USE par_medusa , ONLY : jp_medusa_trd   !: number of biological diag in MEDUSA 
     22 
     23   USE yomhook, ONLY: lhook, dr_hook 
     24   USE parkind1, ONLY: jprb, jpim 
    2225 
    2326   IMPLICIT NONE 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/IDTRA/trcice_idtra.F90

    r6046 r11738  
    1616   USE trc             ! TOP variables 
    1717 
     18   USE yomhook, ONLY: lhook, dr_hook 
     19   USE parkind1, ONLY: jprb, jpim 
     20 
    1821   IMPLICIT NONE 
    1922   PRIVATE 
    … …  
    2932 
    3033   SUBROUTINE trc_ice_ini_idtra 
     34   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     35   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     36   REAL(KIND=jprb)               :: zhook_handle 
     37 
     38   CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_ICE_INI_IDTRA' 
     39 
     40   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     41 
    3142      !!---------------------------------------------------------------------- 
    3243      !!                     ***  trc_ice_idtra  *** 
    … …  
    3849      ! 
    3950      ! 
     51   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    4052   END SUBROUTINE trc_ice_ini_idtra 
    4153 
    … …  
    4759CONTAINS 
    4860   SUBROUTINE trc_ice_ini_idtra             ! Empty routine 
     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='TRC_ICE_INI_IDTRA' 
     66 
     67   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     68 
     69   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    4970   END SUBROUTINE trc_ice_ini_idtra 
    5071#endif 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/IDTRA/trcini_idtra.F90

    r6164 r11738  
    2020   ! USE lib_mpp 
    2121   ! USE iom 
     22 
     23   USE yomhook, ONLY: lhook, dr_hook 
     24   USE parkind1, ONLY: jprb, jpim 
    2225 
    2326   IMPLICIT NONE 
    … …  
    4447      !!---------------------------------------------------------------------- 
    4548      INTEGER  ::    jn, jl  
     49      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     50      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     51      REAL(KIND=jprb)               :: zhook_handle 
     52 
     53      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_INI_IDTRA' 
     54 
     55      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     56 
    4657      !!---------------------------------------------------------------------- 
    4758 
    … …  
    8596      IF(lwp) WRITE(numout,*) ' ' 
    8697 
     98      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    8799   END SUBROUTINE trc_ini_idtra 
    88100 
    … …  
    93105CONTAINS 
    94106   SUBROUTINE trc_ini_idtra             ! Empty routine 
     107   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     108   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     109   REAL(KIND=jprb)               :: zhook_handle 
     110 
     111   CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_INI_IDTRA' 
     112 
     113   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
    95114 
    96115 
     116 
     117   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    97118   END SUBROUTINE trc_ini_idtra 
    98119#endif 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/IDTRA/trcnam_idtra.F90

    r6046 r11738  
    1717   USE trcsms_idtra    ! IDEAL-TRACER specific variable 
    1818   USE iom             ! I/O manager 
     19 
     20   USE yomhook, ONLY: lhook, dr_hook 
     21   USE parkind1, ONLY: jprb, jpim 
    1922 
    2023   IMPLICIT NONE 
    … …  
    5053      !! ---------------------------------------------------------------- 
    5154      NAMELIST/namidtra/tmp_decay 
     55      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     56      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     57      REAL(KIND=jprb)               :: zhook_handle 
     58 
     59      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_NAM_IDTRA' 
     60 
     61      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     62 
    5263      !!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
    5364      !! Jpalm -- 4-11-2014 
    … …  
    103114!! #endif 
    104115 
     116      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    105117   END SUBROUTINE trc_nam_idtra 
    106118 
    … …  
    111123CONTAINS 
    112124   SUBROUTINE trc_nam_idtra                      ! Empty routine 
     125   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     126   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     127   REAL(KIND=jprb)               :: zhook_handle 
     128 
     129   CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_NAM_IDTRA' 
     130 
     131   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     132 
     133   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    113134   END  SUBROUTINE  trc_nam_idtra 
    114135#endif 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/IDTRA/trcsms_idtra.F90

    r8442 r11738  
    2121   USE trdtrc 
    2222   USE iom 
     23 
     24   USE yomhook, ONLY: lhook, dr_hook 
     25   USE parkind1, ONLY: jprb, jpim 
    2326 
    2427   IMPLICIT NONE 
    … …  
    7881      INTEGER                ::   ji, jj, jn, jl, jk 
    7982      REAL(wp)               ::   rlx                 !! relaxation time (1 day) 
     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='TRC_SMS_IDTRA' 
     88 
     89      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     90 
    8091      !!---------------------------------------------------------------------- 
    8192      ! 
    … …  
    199210# endif 
    200211      ! 
     212      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    201213   END SUBROUTINE trc_sms_idtra 
    202214 
    … …  
    208220      !!--------------------------------------------------------------------- 
    209221      INTEGER :: jn 
     222      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     223      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     224      REAL(KIND=jprb)               :: zhook_handle 
     225 
     226      CHARACTER(LEN=*), PARAMETER :: RoutineName='IDTRA_INIT' 
     227 
     228      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     229 
    210230 
    211231      IF( ln_rsttr ) THEN 
    … …  
    220240      IF(lwp) WRITE(numout,*) 'idtra restart variables read -- OK' 
    221241      ! 
     242      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    222243   END SUBROUTINE idtra_init 
    223244 
    224245   INTEGER FUNCTION trc_sms_idtra_alloc() 
     246   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     247   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     248   REAL(KIND=jprb)               :: zhook_handle 
     249 
     250   CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_SMS_IDTRA_ALLOC' 
     251 
     252   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     253 
    225254      !!---------------------------------------------------------------------- 
    226255      !!                     ***  ROUTINE trc_sms_idtra_alloc  *** 
    … …  
    232261      IF( trc_sms_idtra_alloc /= 0 ) CALL ctl_warn('trc_sms_idtra_alloc : failed to allocate arrays.') 
    233262      ! 
     263   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    234264   END FUNCTION trc_sms_idtra_alloc 
    235265 
    … …  
    240270CONTAINS 
    241271   SUBROUTINE trc_sms_idtra( kt )       ! Empty routine 
     272   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     273   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     274   REAL(KIND=jprb)               :: zhook_handle 
     275 
     276   CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_SMS_IDTRA' 
     277 
     278   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     279 
    242280      WRITE(*,*) 'trc_sms_idtra: You should not have seen this print! error?', kt 
     281   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    243282   END SUBROUTINE trc_sms_idtra 
    244283#endif 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/IDTRA/trcwri_idtra.F90

    r6046 r11738  
    1919   USE iom             ! I/O manager 
    2020 
     21   USE yomhook, ONLY: lhook, dr_hook 
     22   USE parkind1, ONLY: jprb, jpim 
     23 
    2124   IMPLICIT NONE 
    2225   PRIVATE 
    … …  
    3437      CHARACTER (len=20)   :: cltra 
    3538      INTEGER              :: jn 
     39      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     40      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     41      REAL(KIND=jprb)               :: zhook_handle 
     42 
     43      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_WRI_IDTRA' 
     44 
     45      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     46 
    3647      !!--------------------------------------------------------------------- 
    3748 
    … …  
    4354      END DO 
    4455      ! 
     56      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    4557   END SUBROUTINE trc_wri_idtra 
    4658 
    … …  
    5264CONTAINS 
    5365   SUBROUTINE trc_wri_idtra                     ! Empty routine   
     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='TRC_WRI_IDTRA' 
     71 
     72   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     73 
     74   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    5475   END SUBROUTINE trc_wri_idtra 
    5576#endif 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/MEDUSA/air_sea.F90

    r10196 r11738  
    1414   !!                                                   MEDUSA bio-model 
    1515   !!---------------------------------------------------------------------- 
     16 
     17   USE yomhook, ONLY: lhook, dr_hook 
     18   USE parkind1, ONLY: jprb, jpim 
    1619 
    1720   IMPLICIT NONE 
    … …  
    145148      REAL(wp), DIMENSION(jpi,jpj) :: f_pi_co2starair, f_pi_dpco2 
    146149      REAL(wp) :: f_rhosw_dum, f_schmidtco2_dum, f_kwco2_dum,f_K0_dum 
     150      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     151      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     152      REAL(KIND=jprb)               :: zhook_handle 
     153 
     154      CHARACTER(LEN=*), PARAMETER :: RoutineName='AIR_SEA' 
     155 
     156      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     157 
    147158#  endif 
    148159# endif 
    … …  
    805816# endif  !! Roam 
    806817       
     818      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    807819   END SUBROUTINE air_sea 
    808820 
    … …  
    813825CONTAINS 
    814826   SUBROUTINE air_sea( )                    ! Empty routine 
     827   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     828   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     829   REAL(KIND=jprb)               :: zhook_handle 
     830 
     831   CHARACTER(LEN=*), PARAMETER :: RoutineName='AIR_SEA' 
     832 
     833   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     834 
    815835      WRITE(*,*) 'air_sea: You should not have seen this print! error?' 
     836   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    816837   END SUBROUTINE air_sea 
    817838#endif  !! medusa 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_med_diag_iomput.F90

    r10047 r11738  
    1111   !!                                                   MEDUSA bio-model 
    1212   !!---------------------------------------------------------------------- 
     13 
     14   USE yomhook, ONLY: lhook, dr_hook 
     15   USE parkind1, ONLY: jprb, jpim 
    1316 
    1417   IMPLICIT NONE 
    … …  
    5255      !! Loop avariables 
    5356      INTEGER :: ji, jj, jn 
     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='BIO_MED_DIAG_IOMPUT' 
     62 
     63      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     64 
    5465 
    5566      DO jj = 2,jpjm1 
    … …  
    713724      ENDDO 
    714725 
     726      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    715727   END SUBROUTINE bio_med_diag_iomput 
    716728 
    … …  
    721733CONTAINS 
    722734   SUBROUTINE bio_med_diag_iomput( )                    ! Empty routine 
     735      USE yomhook, ONLY: lhook, dr_hook 
     736      USE parkind1, ONLY: jprb, jpim 
     737 
    723738      IMPLICIT NONE 
     739      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     740      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     741      REAL(KIND=jprb)               :: zhook_handle 
     742 
     743      CHARACTER(LEN=*), PARAMETER :: RoutineName='BIO_MED_DIAG_IOMPUT' 
     744 
     745      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     746 
    724747      WRITE(*,*) 'bio_med_diag_iomput: You should not have seen this print! error?' 
     748      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    725749   END SUBROUTINE bio_med_diag_iomput 
    726750#endif  

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_diag.F90

    r10047 r11738  
    1111   !!                                                   MEDUSA bio-model 
    1212   !!---------------------------------------------------------------------- 
     13 
     14   USE yomhook, ONLY: lhook, dr_hook 
     15   USE parkind1, ONLY: jprb, jpim 
    1316 
    1417   IMPLICIT NONE 
    … …  
    5457      !! Loop avariables 
    5558      INTEGER :: ji, jj, jn 
     59      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     60      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     61      REAL(KIND=jprb)               :: zhook_handle 
     62 
     63      CHARACTER(LEN=*), PARAMETER :: RoutineName='BIO_MEDUSA_DIAG' 
     64 
     65      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     66 
    5667 
    5768# if defined key_trc_diabio 
    … …  
    197208      CALL bio_med_diag_iomput( jk ) 
    198209 
     210      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    199211   END SUBROUTINE bio_medusa_diag 
    200212 
    … …  
    205217CONTAINS 
    206218   SUBROUTINE bio_medusa_diag( )                    ! Empty routine 
     219   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     220   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     221   REAL(KIND=jprb)               :: zhook_handle 
     222 
     223   CHARACTER(LEN=*), PARAMETER :: RoutineName='BIO_MEDUSA_DIAG' 
     224 
     225   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     226 
    207227      WRITE(*,*) 'bio_medusa_diag: You should not have seen this print! error?' 
     228   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    208229   END SUBROUTINE bio_medusa_diag 
    209230#endif  

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_diag_slice.F90

    r10196 r11738  
    1313   !!                                                   MEDUSA bio-model 
    1414   !!---------------------------------------------------------------------- 
     15 
     16   USE yomhook, ONLY: lhook, dr_hook 
     17   USE parkind1, ONLY: jprb, jpim 
    1518 
    1619   IMPLICIT NONE 
    … …  
    5255      !! The vertical level 
    5356      INTEGER, INTENT( in ) ::    jk 
     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='BIO_MEDUSA_DIAG_SLICE' 
     62 
     63      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     64 
    5465      !!---------------------------------------------------------------------- 
    5566 
    … …  
    474485#   endif 
    475486 
     487      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    476488   END SUBROUTINE bio_medusa_diag_slice 
    477489 
    … …  
    482494CONTAINS 
    483495   SUBROUTINE bio_medusa_diag_slice( )                  ! Empty routine 
     496   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     497   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     498   REAL(KIND=jprb)               :: zhook_handle 
     499 
     500   CHARACTER(LEN=*), PARAMETER :: RoutineName='BIO_MEDUSA_DIAG_SLICE' 
     501 
     502   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     503 
    484504      WRITE(*,*) 'bio_medusa_diag_slice: You should not have seen this print! error?' 
     505   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    485506   END SUBROUTINE bio_medusa_diag_slice 
    486507#endif  

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_fin.F90

    r10196 r11738  
    1212   !!                                                   MEDUSA bio-model 
    1313   !!---------------------------------------------------------------------- 
     14 
     15   USE yomhook, ONLY: lhook, dr_hook 
     16   USE parkind1, ONLY: jprb, jpim 
    1417 
    1518   IMPLICIT NONE 
    … …  
    6669 
    6770      REAL(wp) :: fq0,fq1,fq2,fq3,fq4 
     71      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     72      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     73      REAL(KIND=jprb)               :: zhook_handle 
     74 
     75      CHARACTER(LEN=*), PARAMETER :: RoutineName='BIO_MEDUSA_FIN' 
     76 
     77      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     78 
    6879 
    6980 
    … …  
    925936          DEALLOCATE( zw2d ) 
    926937 
     938      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    927939   END SUBROUTINE bio_medusa_fin 
    928940 
    … …  
    933945CONTAINS 
    934946   SUBROUTINE bio_medusa_fin( )                    ! Empty routine 
     947   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     948   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     949   REAL(KIND=jprb)               :: zhook_handle 
     950 
     951   CHARACTER(LEN=*), PARAMETER :: RoutineName='BIO_MEDUSA_FIN' 
     952 
     953   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     954 
    935955      WRITE(*,*) 'bio_medusa_fin: You should not have seen this print! error?' 
     956   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    936957   END SUBROUTINE bio_medusa_fin 
    937958#endif  

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_init.F90

    r10196 r11738  
    1515   !!---------------------------------------------------------------------- 
    1616 
     17   USE yomhook, ONLY: lhook, dr_hook 
     18   USE parkind1, ONLY: jprb, jpim 
     19 
    1720   IMPLICIT NONE 
    1821   PRIVATE 
    … …  
    4649      !! time (integer timestep) 
    4750      INTEGER, INTENT( in ) ::    kt 
     51      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     52      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     53      REAL(KIND=jprb)               :: zhook_handle 
     54 
     55      CHARACTER(LEN=*), PARAMETER :: RoutineName='BIO_MEDUSA_INIT' 
     56 
     57      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     58 
    4859 
    4960      IF( ln_diatrc ) THEN 
    … …  
    959970      !! lk_iomput 
    960971 
     972      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    961973   END SUBROUTINE bio_medusa_init 
    962974 
    … …  
    967979CONTAINS 
    968980   SUBROUTINE bio_medusa_init( )                   ! Empty routine 
     981      USE yomhook, ONLY: lhook, dr_hook 
     982      USE parkind1, ONLY: jprb, jpim 
     983 
    969984      IMPLICIT NONE 
     985      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     986      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     987      REAL(KIND=jprb)               :: zhook_handle 
     988 
     989      CHARACTER(LEN=*), PARAMETER :: RoutineName='BIO_MEDUSA_INIT' 
     990 
     991      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     992 
    970993      WRITE(*,*) 'bio_medusa_init: You should not have seen this print! error?' 
     994      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    971995   END SUBROUTINE bio_medusa_init 
    972996#endif  

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_mod.F90

    r10196 r11738  
    2525   USE par_kind,          ONLY: wp 
    2626    
     27   USE yomhook, ONLY: lhook, dr_hook 
     28   USE parkind1, ONLY: jprb, jpim 
     29 
    2730   IMPLICIT NONE 
    2831   PUBLIC 
    … …  
    308311      USE lib_mpp,           ONLY: ctl_warn 
    309312      USE par_oce,           ONLY: jpi, jpj 
     313      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     314      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     315      REAL(KIND=jprb)               :: zhook_handle 
     316 
     317      CHARACTER(LEN=*), PARAMETER :: RoutineName='BIO_MEDUSA_ALLOC' 
     318 
     319      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     320 
    310321      !!------------------------------------------------------------------- 
    311322      ! 
    … …  
    437448      END IF 
    438449    
     450      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    439451   END FUNCTION bio_medusa_alloc 
    440452 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_update.F90

    r10047 r11738  
    1414   !!                                                   MEDUSA bio-model 
    1515   !!---------------------------------------------------------------------- 
     16 
     17   USE yomhook, ONLY: lhook, dr_hook 
     18   USE parkind1, ONLY: jprb, jpim 
    1619 
    1720   IMPLICIT NONE 
    … …  
    134137      !! temporary variables 
    135138      REAL(wp) :: fq0 
     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='BIO_MEDUSA_UPDATE' 
     144 
     145      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     146 
    136147 
    137148      !!========================================================== 
    … …  
    856867 
    857868 
     869      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    858870   END SUBROUTINE bio_medusa_update 
    859871 
    … …  
    864876CONTAINS 
    865877   SUBROUTINE bio_medusa_update( )                    ! Empty routine 
     878   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     879   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     880   REAL(KIND=jprb)               :: zhook_handle 
     881 
     882   CHARACTER(LEN=*), PARAMETER :: RoutineName='BIO_MEDUSA_UPDATE' 
     883 
     884   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     885 
    866886      WRITE(*,*) 'bio_medusa_update: You should not have seen this print! error?' 
     887   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    867888   END SUBROUTINE bio_medusa_update 
    868889#endif  

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/MEDUSA/carb_chem.F90

    r10047 r11738  
    1212   !!                                                   key_roam? 
    1313   !!---------------------------------------------------------------------- 
     14 
     15   USE yomhook, ONLY: lhook, dr_hook 
     16   USE parkind1, ONLY: jprb, jpim 
    1417 
    1518   IMPLICIT NONE 
    … …  
    8588      !! Loop variables 
    8689      INTEGER :: ji, jj, jk 
     90      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     91      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     92      REAL(KIND=jprb)               :: zhook_handle 
     93 
     94      CHARACTER(LEN=*), PARAMETER :: RoutineName='CARB_CHEM' 
     95 
     96      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     97 
    8798 
    8899      !!---------------------------------------------------------------------- 
    … …  
    252263      ENDDO 
    253264 
     265      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    254266   END SUBROUTINE carb_chem 
    255267 
    … …  
    260272CONTAINS 
    261273   SUBROUTINE carb_chem( )                    ! Empty routine 
     274   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     275   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     276   REAL(KIND=jprb)               :: zhook_handle 
     277 
     278   CHARACTER(LEN=*), PARAMETER :: RoutineName='CARB_CHEM' 
     279 
     280   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     281 
    262282      WRITE(*,*) 'carb_chem: You should not have seen this print! error?' 
     283   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    263284   END SUBROUTINE carb_chem 
    264285#endif  

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/MEDUSA/detritus.F90

    r10047 r11738  
    1212   !!                                                   MEDUSA bio-model 
    1313   !!---------------------------------------------------------------------- 
     14 
     15   USE yomhook, ONLY: lhook, dr_hook 
     16   USE parkind1, ONLY: jprb, jpim 
    1417 
    1518   IMPLICIT NONE 
    … …  
    6366 
    6467      INTEGER :: ji, jj 
     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='DETRITUS' 
     73 
     74      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     75 
    6576 
    6677      !!------------------------------------------------------------------ 
    … …  
    196207      CALL detritus_fast_sink( jk, iball ) 
    197208 
     209      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    198210   END SUBROUTINE detritus 
    199211 
    … …  
    204216CONTAINS 
    205217   SUBROUTINE detritus( )                    ! Empty routine 
     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='DETRITUS' 
     223 
     224   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     225 
    206226      WRITE(*,*) 'detritus: You should not have seen this print! error?' 
     227   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    207228   END SUBROUTINE detritus 
    208229#endif  

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/MEDUSA/detritus_fast_sink.F90

    r10196 r11738  
    1212   !!                                                   MEDUSA bio-model 
    1313   !!---------------------------------------------------------------------- 
     14 
     15   USE yomhook, ONLY: lhook, dr_hook 
     16   USE parkind1, ONLY: jprb, jpim 
    1417 
    1518   IMPLICIT NONE 
    … …  
    111114      !! temporary variables 
    112115      REAL(wp) :: fq0,fq1,fq2,fq3,fq4,fq5,fq6,fq7,fq8 
     116      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     117      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     118      REAL(KIND=jprb)               :: zhook_handle 
     119 
     120      CHARACTER(LEN=*), PARAMETER :: RoutineName='DETRITUS_FAST_SINK' 
     121 
     122      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     123 
    113124 
    114125      !! The two sections below, slow detritus creation and Nutrient  
    … …  
    981992      ENDDO 
    982993 
     994      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    983995   END SUBROUTINE detritus_fast_sink 
    984996 
    … …  
    9891001CONTAINS 
    9901002   SUBROUTINE detritus_fast_sink( )                    ! Empty routine 
     1003   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     1004   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     1005   REAL(KIND=jprb)               :: zhook_handle 
     1006 
     1007   CHARACTER(LEN=*), PARAMETER :: RoutineName='DETRITUS_FAST_SINK' 
     1008 
     1009   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     1010 
    9911011      WRITE(*,*) 'detritus_fast_sink: You should not have seen this print! error?' 
     1012   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    9921013   END SUBROUTINE detritus_fast_sink 
    9931014#endif  

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/MEDUSA/gas_transfer.F90

    r10196 r11738  
    1515      USE prtctl_trc      ! Print control for debugging 
    1616      USE in_out_manager  ! I/O manager 
     17 
     18      USE yomhook, ONLY: lhook, dr_hook 
     19      USE parkind1, ONLY: jprb, jpim 
    1720 
    1821      IMPLICIT NONE 
    … …  
    7982! Where (*) is the function output and (+) is a diagnostic output. 
    8083! 
     84      USE yomhook, ONLY: lhook, dr_hook 
     85      USE parkind1, ONLY: jprb, jpim 
     86 
    8187      implicit none 
    8288 
    … …  
    115121      data b(6) / 0.0   / 
    116122      data b(7) / 0.0   / 
     123      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     124      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     125      REAL(KIND=jprb)               :: zhook_handle 
     126 
     127      CHARACTER(LEN=*), PARAMETER :: RoutineName='GAS_TRANSFER' 
     128 
     129      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     130 
    117131! 
    118132! Which parameterisation is to be used? 
    … …  
    125139      kw660 = tmp_k / (100. * 3600.) 
    126140! 
     141      IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 
    127142      return 
    128143 
     144      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    129145    end subroutine gas_transfer 
    130146 
    … …  
    146162      REAL(wp), INTENT( in )    :: kw660 
    147163      INTEGER, INTENT(in) :: N, eqn 
     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='GAS_TRANSFER' 
     169 
     170      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     171 
    148172 
    149173      WRITE(*,*) 'gas_transfer: You should not have seen this print! error?', kt 
    150174 
     175      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    151176   END SUBROUTINE gas_transfer 
    152177#endif 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/MEDUSA/iron_chem_scav.F90

    r10047 r11738  
    1111   !!                                                   MEDUSA bio-model 
    1212   !!---------------------------------------------------------------------- 
     13 
     14   USE yomhook, ONLY: lhook, dr_hook 
     15   USE parkind1, ONLY: jprb, jpim 
    1316 
    1417   IMPLICIT NONE 
    … …  
    8184 
    8285      INTEGER :: ji, jj 
     86      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     87      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     88      REAL(KIND=jprb)               :: zhook_handle 
     89 
     90      CHARACTER(LEN=*), PARAMETER :: RoutineName='IRON_CHEM_SCAV' 
     91 
     92      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     93 
    8394 
    8495      !!------------------------------------------------------------------ 
    … …  
    533544# endif 
    534545 
     546      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    535547   END SUBROUTINE iron_chem_scav 
    536548 
    … …  
    541553CONTAINS 
    542554   SUBROUTINE iron_chem_scav( )                    ! Empty routine 
     555   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     556   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     557   REAL(KIND=jprb)               :: zhook_handle 
     558 
     559   CHARACTER(LEN=*), PARAMETER :: RoutineName='IRON_CHEM_SCAV' 
     560 
     561   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     562 
    543563      WRITE(*,*) 'iron_chem_scav: You should not have seen this print! error?' 
     564   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    544565   END SUBROUTINE iron_chem_scav 
    545566#endif  

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/MEDUSA/mocsy_gasflux.F90

    r5841 r11738  
    3535 
    3636      USE mocsy_singledouble 
     37 
     38      USE yomhook, ONLY: lhook, dr_hook 
     39      USE parkind1, ONLY: jprb, jpim 
    3740 
    3841      implicit none 
    … …  
    5457      data a3 / -0.092307 / 
    5558      data a4 / 0.0007555 / 
     59      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     60      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     61      REAL(KIND=jprb)               :: zhook_handle 
     62 
     63      CHARACTER(LEN=*), PARAMETER :: RoutineName='SCHMIDT_CO2' 
     64 
     65      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     66 
    5667! 
    5768! Wanninkhof (1992) 
    … …  
    6172      co2_schmidt = a0 + pt*(a1 + pt*(a2 + pt*(a3 + pt*a4))) 
    6273! 
     74      IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 
    6375      return 
    6476 
     77      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    6578      end subroutine schmidt_co2 
    6679 
    … …  
    8093      USE mocsy_singledouble 
    8194 
     95      USE yomhook, ONLY: lhook, dr_hook 
     96      USE parkind1, ONLY: jprb, jpim 
     97 
    8298      implicit none 
    8399! 
    … …  
    88104      real(kind=wp), DIMENSION(N) :: tk, invtk, tmp 
    89105      real(kind=wp)               :: a0, a1, a2, a3, a4 
     106      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     107      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     108      REAL(KIND=jprb)               :: zhook_handle 
     109 
     110      CHARACTER(LEN=*), PARAMETER :: RoutineName='SURFACE_K0' 
     111 
     112      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     113 
    90114! 
    91115      tk    = ptmp + 273.15d0 
    … …  
    94118      K0 = EXP( tmp + saln*(0.023517d0 - (0.00023656d0*tk) + (0.0047036e-4_wp*tk*tk)) ) 
    95119! 
     120      IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 
    96121      return 
    97122 
     123      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    98124      end subroutine surface_K0 
    99125 
    … …  
    108134 
    109135  USE mocsy_singledouble 
     136 
     137  USE yomhook, ONLY: lhook, dr_hook 
     138  USE parkind1, ONLY: jprb, jpim 
    110139 
    111140  IMPLICIT NONE 
    … …  
    136165 
    137166  INTEGER :: i 
     167  INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     168  INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     169  REAL(KIND=jprb)               :: zhook_handle 
     170 
     171  CHARACTER(LEN=*), PARAMETER :: RoutineName='PCO2ATM2XCO2' 
     172 
     173  IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     174 
    138175 
    139176  call vapress(temp, salt, N, pH20) 
    … …  
    146183  END DO 
    147184 
     185  IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 
    148186  RETURN 
     187  IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    149188END SUBROUTINE pCO2atm2xCO2 
    150189 
    … …  
    159198 
    160199  USE mocsy_singledouble 
     200 
     201  USE yomhook, ONLY: lhook, dr_hook 
     202  USE parkind1, ONLY: jprb, jpim 
    161203 
    162204  IMPLICIT NONE 
    … …  
    186228 
    187229  INTEGER :: i 
     230  INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     231  INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     232  REAL(KIND=jprb)               :: zhook_handle 
     233 
     234  CHARACTER(LEN=*), PARAMETER :: RoutineName='X2PCO2ATM' 
     235 
     236  IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     237 
    188238 
    189239! Compute vapor pressure of seawater [in atm] 
    … …  
    197247  END DO 
    198248 
     249  IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 
    199250  RETURN 
     251  IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    200252END SUBROUTINE x2pCO2atm 
    201253 
    … …  
    210262 
    211263  USE mocsy_singledouble 
     264  USE yomhook, ONLY: lhook, dr_hook 
     265  USE parkind1, ONLY: jprb, jpim 
     266 
    212267  IMPLICIT NONE 
    213268 
    … …  
    230285 
    231286  INTEGER :: i 
     287  INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     288  INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     289  REAL(KIND=jprb)               :: zhook_handle 
     290 
     291  CHARACTER(LEN=*), PARAMETER :: RoutineName='VAPRESS' 
     292 
     293  IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     294 
    232295 
    233296  DO i = 1,N 
    … …  
    237300  END DO 
    238301 
     302  IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 
    239303  RETURN 
     304  IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    240305END SUBROUTINE vapress 
    241306 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/MEDUSA/mocsy_mainmod.F90

    r7894 r11738  
    2020  !     ================================================================== 
    2121  USE mocsy_singledouble 
     22  USE yomhook, ONLY: lhook, dr_hook 
     23  USE parkind1, ONLY: jprb, jpim 
     24 
    2225  IMPLICIT NONE 
    2326  !> salinity [psu (PSU-78)] 
    … …  
    3235 
    3336  REAL(kind=wp) :: sw_adtg 
     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='SW_ADTG' 
     42 
     43  IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     44 
    3445 
    3546  sref = 35.d0 
    … …  
    5970       + (  e0 + (e1 + e2*T)*T )*P*P 
    6071 
     72  IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    6173END FUNCTION sw_adtg 
    6274 
    … …  
    8597 
    8698  USE mocsy_singledouble 
     99  USE yomhook, ONLY: lhook, dr_hook 
     100  USE parkind1, ONLY: jprb, jpim 
     101 
    87102  IMPLICIT NONE 
    88103 
    … …  
    107122! Output  
    108123  REAL(kind=wp) :: sw_ptmp 
     124  INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     125  INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     126  REAL(KIND=jprb)               :: zhook_handle 
     127 
     128  CHARACTER(LEN=*), PARAMETER :: RoutineName='SW_PTMP' 
     129 
     130  IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     131 
    109132 
    110133  ! theta1 
    … …  
    128151  sw_ptmp     = th + (del_th - two*q)/(two*three) 
    129152 
     153  IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 
    130154  RETURN 
     155  IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    131156END FUNCTION sw_ptmp 
    132157 
    … …  
    166191 
    167192  USE mocsy_singledouble 
     193  USE yomhook, ONLY: lhook, dr_hook 
     194  USE parkind1, ONLY: jprb, jpim 
     195 
    168196  IMPLICIT NONE 
    169197 
    … …  
    188216 
    189217  REAL(kind=wp) ::   sw_temp 
     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='SW_TEMP' 
     223 
     224  IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     225 
    190226! EXTERNAL sw_ptmp 
    191227! REAL(kind=wp) ::   sw_ptmp 
    … …  
    206242  !    whereas the sw_temp routine from MIT GCM site does not seem to work right 
    207243 
     244  IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 
    208245  RETURN 
     246  IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    209247END FUNCTION sw_temp 
    210248 
    … …  
    224262 
    225263  USE mocsy_singledouble 
     264  USE yomhook, ONLY: lhook, dr_hook 
     265  USE parkind1, ONLY: jprb, jpim 
     266 
    226267  IMPLICIT NONE 
    227268 
    … …  
    248289 
    249290  INTEGER :: i 
     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='TPOT' 
     296 
     297  IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     298 
    250299 
    251300! REAL(kind=wp) :: sw_ptmp 
    … …  
    263312  END DO 
    264313 
     314  IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 
    265315  RETURN 
     316  IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    266317END SUBROUTINE tpot 
    267318 
    … …  
    281332 
    282333  USE mocsy_singledouble 
     334  USE yomhook, ONLY: lhook, dr_hook 
     335  USE parkind1, ONLY: jprb, jpim 
     336 
    283337  IMPLICIT NONE 
    284338 
    … …  
    305359 
    306360  INTEGER :: i 
     361  INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     362  INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     363  REAL(KIND=jprb)               :: zhook_handle 
     364 
     365  CHARACTER(LEN=*), PARAMETER :: RoutineName='TIS' 
     366 
     367  IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     368 
    307369 
    308370! REAL(kind=wp) :: sw_temp 
    … …  
    321383  END DO 
    322384 
     385  IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 
    323386  RETURN 
     387  IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    324388END SUBROUTINE tis 
    325389 
    … …  
    349413 
    350414  USE mocsy_singledouble 
     415  USE yomhook, ONLY: lhook, dr_hook 
     416  USE parkind1, ONLY: jprb, jpim 
     417 
    351418  IMPLICIT NONE 
    352419 
    … …  
    364431  REAL(kind=wp) :: pi 
    365432  REAL(kind=wp) :: plat, d, c1 
     433  INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     434  INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     435  REAL(KIND=jprb)               :: zhook_handle 
     436 
     437  CHARACTER(LEN=*), PARAMETER :: RoutineName='P80' 
     438 
     439  IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     440 
    366441 
    367442  pi=3.141592654 
    … …  
    373448  p80 = ((1-c1)-SQRT(((1-c1)**2)-(8.84e-6*dpth))) / 4.42e-6 
    374449 
     450  IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 
    375451  RETURN 
     452  IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    376453END FUNCTION p80 
    377454 
    … …  
    389466 
    390467  USE mocsy_singledouble 
     468  USE yomhook, ONLY: lhook, dr_hook 
     469  USE parkind1, ONLY: jprb, jpim 
     470 
    391471  IMPLICIT NONE 
    392472 
    … …  
    407487 
    408488  REAL(kind=wp) :: rho 
     489  INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     490  INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     491  REAL(KIND=jprb)               :: zhook_handle 
     492 
     493  CHARACTER(LEN=*), PARAMETER :: RoutineName='RHO' 
     494 
     495  IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     496 
    409497 
    410498  !     Input arguments: 
    … …  
    463551  rho = REAL(drho) 
    464552 
     553  IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 
    465554  RETURN 
     555  IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    466556END FUNCTION rho 
    467557 
    … …  
    482572 
    483573  USE mocsy_singledouble 
     574  USE yomhook, ONLY: lhook, dr_hook 
     575  USE parkind1, ONLY: jprb, jpim 
     576 
    484577  IMPLICIT NONE 
    485578 
    … …  
    507600! Local variables 
    508601  INTEGER :: i 
     602  INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     603  INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     604  REAL(KIND=jprb)               :: zhook_handle 
     605 
     606  CHARACTER(LEN=*), PARAMETER :: RoutineName='RHOINSITU' 
     607 
     608  IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     609 
    509610 
    510611! REAL(kind=wp) ::  rho 
    … …  
    515616  END DO 
    516617 
     618  IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 
    517619  RETURN 
     620  IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    518621END SUBROUTINE rhoinsitu 
    519622 
    … …  
    535638 
    536639  USE mocsy_singledouble 
     640  USE yomhook, ONLY: lhook, dr_hook 
     641  USE parkind1, ONLY: jprb, jpim 
     642 
    537643  IMPLICIT NONE 
    538644 
    … …  
    553659  !     Local variables 
    554660  INTEGER :: i 
     661  INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     662  INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     663  REAL(KIND=jprb)               :: zhook_handle 
     664 
     665  CHARACTER(LEN=*), PARAMETER :: RoutineName='DEPTH2PRESS' 
     666 
     667  IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     668 
    555669 
    556670! REAL(kind=wp) ::  p80 
    … …  
    561675  END DO 
    562676 
     677  IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 
    563678  RETURN 
     679  IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    564680END SUBROUTINE depth2press 
    565681 
    … …  
    644760 
    645761  USE mocsy_singledouble 
     762  USE yomhook, ONLY: lhook, dr_hook 
     763  USE parkind1, ONLY: jprb, jpim 
     764 
    646765  IMPLICIT NONE 
    647766 
    … …  
    781900           0.0427e-3_wp,  0.09e-3_wp,   0.0714e-3_wp, 0.0_wp/ 
    782901  DATA b2 /12*0.0_wp/ 
     902  INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     903  INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     904  REAL(KIND=jprb)               :: zhook_handle 
     905 
     906  CHARACTER(LEN=*), PARAMETER :: RoutineName='CONSTANTS' 
     907 
     908  IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     909 
    783910 
    784911! Set defaults for optional arguments (in Fortran 90) 
    … …  
    11901317  END DO 
    11911318 
     1319  IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 
    11921320  RETURN 
     1321  IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    11931322END SUBROUTINE constants 
    11941323 
    … …  
    12481377  USE mocsy_singledouble 
    12491378  USE mocsy_phsolvers 
     1379 
     1380  USE yomhook, ONLY: lhook, dr_hook 
     1381  USE parkind1, ONLY: jprb, jpim 
    12501382 
    12511383  IMPLICIT NONE 
    … …  
    13401472! Array to pass optional arguments 
    13411473  CHARACTER(7) :: opGAS 
     1474  INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     1475  INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     1476  REAL(KIND=jprb)               :: zhook_handle 
     1477 
     1478  CHARACTER(LEN=*), PARAMETER :: RoutineName='VARSOLVER' 
     1479 
     1480  IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     1481 
    13421482 
    13431483  IF (PRESENT(optGAS)) THEN 
    … …  
    14411581  OmegaC = (Ca*cc) / Kspc 
    14421582 
     1583  IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 
    14431584  RETURN 
     1585  IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    14441586END SUBROUTINE varsolver 
    14451587 
    … …  
    15511693  USE mocsy_singledouble 
    15521694 
     1695  USE yomhook, ONLY: lhook, dr_hook 
     1696  USE parkind1, ONLY: jprb, jpim 
     1697 
    15531698  IMPLICIT NONE 
    15541699 
    … …  
    16711816  CHARACTER(3) :: opK1K2 
    16721817  CHARACTER(7) :: opGAS 
     1818  INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     1819  INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     1820  REAL(KIND=jprb)               :: zhook_handle 
     1821 
     1822  CHARACTER(LEN=*), PARAMETER :: RoutineName='VARS' 
     1823 
     1824  IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     1825 
    16731826 
    16741827! Set defaults for optional arguments (in Fortran 90) 
    … …  
    19242077  END DO 
    19252078 
     2079  IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 
    19262080  RETURN 
     2081  IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    19272082END SUBROUTINE vars 
    19282083 
    … …  
    19402095 
    19412096  USE mocsy_singledouble 
     2097  USE yomhook, ONLY: lhook, dr_hook 
     2098  USE parkind1, ONLY: jprb, jpim 
     2099 
    19422100  IMPLICIT NONE 
    19432101 
    … …  
    19652123 
    19662124  INTEGER :: i 
     2125  INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     2126  INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     2127  REAL(KIND=jprb)               :: zhook_handle 
     2128 
     2129  CHARACTER(LEN=*), PARAMETER :: RoutineName='P2FCO2' 
     2130 
     2131  IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     2132 
    19672133 
    19682134! REAL(kind=wp) :: sw_ptmp 
    … …  
    19902156  END DO 
    19912157 
     2158  IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 
    19922159  RETURN 
     2160  IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    19932161END SUBROUTINE p2fCO2 
    19942162 
    … …  
    20062174 
    20072175  USE mocsy_singledouble 
     2176  USE yomhook, ONLY: lhook, dr_hook 
     2177  USE parkind1, ONLY: jprb, jpim 
     2178 
    20082179  IMPLICIT NONE 
    20092180 
    … …  
    20312202 
    20322203  INTEGER :: i 
     2204  INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     2205  INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     2206  REAL(KIND=jprb)               :: zhook_handle 
     2207 
     2208  CHARACTER(LEN=*), PARAMETER :: RoutineName='F2PCO2' 
     2209 
     2210  IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     2211 
    20332212 
    20342213! REAL(kind=wp) :: sw_ptmp 
    … …  
    20562235  END DO 
    20572236 
     2237  IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 
    20582238  RETURN 
     2239  IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    20592240END SUBROUTINE f2pCO2 
    20602241 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/MEDUSA/mocsy_phsolvers.F90

    r5841 r11738  
    1717 
    1818USE mocsy_singledouble 
     19USE yomhook, ONLY: lhook, dr_hook 
     20USE parkind1, ONLY: jprb, jpim 
     21 
    1922IMPLICIT NONE 
    2023 
    … …  
    5457 
    5558USE mocsy_singledouble 
     59USE yomhook, ONLY: lhook, dr_hook 
     60USE parkind1, ONLY: jprb, jpim 
     61 
    5662IMPLICIT NONE 
    5763 
    … …  
    6773REAL(KIND=wp), INTENT(OUT) :: p_alknw_inf 
    6874REAL(KIND=wp), INTENT(OUT) :: p_alknw_sup 
     75INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     76INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     77REAL(KIND=jprb)               :: zhook_handle 
     78 
     79CHARACTER(LEN=*), PARAMETER :: RoutineName='ANW_INFSUP' 
     80 
     81IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     82 
    6983 
    7084p_alknw_inf =  -p_po4tot - p_so4tot - p_flutot 
    … …  
    7387!             + p_nh4tot + p_h2stot 
    7488 
     89IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 
    7590RETURN 
     91IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    7692END SUBROUTINE anw_infsup 
    7793 
    … …  
    85101 
    86102USE mocsy_singledouble 
     103USE yomhook, ONLY: lhook, dr_hook 
     104USE parkind1, ONLY: jprb, jpim 
     105 
    87106IMPLICIT NONE 
    88107REAL(KIND=wp) :: equation_at 
    … …  
    115134REAL(KIND=wp) ::                                      zalk_wat, zdalk_wat 
    116135REAL(KIND=wp) :: aphscale 
     136INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     137INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     138REAL(KIND=jprb)               :: zhook_handle 
     139 
     140CHARACTER(LEN=*), PARAMETER :: RoutineName='EQUATION_AT' 
     141 
     142IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     143 
    117144 
    118145! TOTAL H+ scale: conversion factor for Htot = aphscale * Hfree 
    … …  
    212239                - Kw/p_h**2 - 1._wp/aphscale 
    213240ENDIF 
     241IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 
    214242RETURN 
     243IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    215244END FUNCTION equation_at 
    216245 
    … …  
    231260 
    232261USE mocsy_singledouble 
     262USE yomhook, ONLY: lhook, dr_hook 
     263USE parkind1, ONLY: jprb, jpim 
     264 
    233265IMPLICIT NONE 
    234266 
    … …  
    244276REAL(KIND=wp)  ::  zd, zsqrtd, zhmin 
    245277REAL(KIND=wp)  ::  za2, za1, za0 
     278INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     279INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     280REAL(KIND=jprb)               :: zhook_handle 
     281 
     282CHARACTER(LEN=*), PARAMETER :: RoutineName='AHINI_FOR_AT' 
     283 
     284IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     285 
    246286 
    247287IF (p_alkcb <= 0._wp) THEN 
    … …  
    274314 
    275315ENDIF 
     316IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 
    276317RETURN 
     318IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    277319END SUBROUTINE ahini_for_at 
    278320 
    … …  
    289331 
    290332USE mocsy_singledouble 
     333USE yomhook, ONLY: lhook, dr_hook 
     334USE parkind1, ONLY: jprb, jpim 
     335 
    291336IMPLICIT NONE 
    292337REAL(KIND=wp) :: SOLVE_AT_GENERAL 
    … …  
    318363LOGICAL        :: l_exitnow 
    319364REAL(KIND=wp), PARAMETER :: pz_exp_threshold = 1.0_wp 
     365INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     366INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     367REAL(KIND=jprb)               :: zhook_handle 
     368 
     369CHARACTER(LEN=*), PARAMETER :: RoutineName='SOLVE_AT_GENERAL' 
     370 
     371IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     372 
    320373 
    321374! TOTAL H+ scale: conversion factor for Htot = aphscale * Hfree 
    … …  
    477530   ENDIF 
    478531ENDIF 
     532IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 
    479533RETURN 
     534IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    480535END FUNCTION solve_at_general 
    481536 
    … …  
    493548!USE MOD_CHEMCONST, ONLY: api1_wat, aphscale 
    494549USE mocsy_singledouble 
     550USE yomhook, ONLY: lhook, dr_hook 
     551USE parkind1, ONLY: jprb, jpim 
     552 
    495553IMPLICIT NONE 
    496554REAL(KIND=wp) :: SOLVE_AT_GENERAL_SEC 
    … …  
    519577REAL(KIND=wp)  ::  aphscale 
    520578LOGICAL        ::  l_exitnow 
     579INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     580INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     581REAL(KIND=jprb)               :: zhook_handle 
     582 
     583CHARACTER(LEN=*), PARAMETER :: RoutineName='SOLVE_AT_GENERAL_SEC' 
     584 
     585IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     586 
    521587 
    522588! TOTAL H+ scale: conversion factor for Htot = aphscale * Hfree 
    … …  
    590656   solve_at_general_sec = zh_2 
    591657   IF(PRESENT(p_val)) p_val = zeqn_2 
     658IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 
    592659   RETURN 
    593660ENDIF 
    … …  
    747814ENDIF 
    748815 
     816IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 
    749817RETURN 
     818IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    750819END FUNCTION SOLVE_AT_GENERAL_SEC 
    751820 
    … …  
    761830 
    762831USE mocsy_singledouble 
     832USE yomhook, ONLY: lhook, dr_hook 
     833USE parkind1, ONLY: jprb, jpim 
     834 
    763835IMPLICIT NONE 
    764836REAL(KIND=wp) :: SOLVE_AT_FAST 
    … …  
    786858LOGICAL        :: l_exitnow 
    787859REAL(KIND=wp), PARAMETER :: pz_exp_threshold = 1.0_wp 
     860INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     861INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     862REAL(KIND=jprb)               :: zhook_handle 
     863 
     864CHARACTER(LEN=*), PARAMETER :: RoutineName='SOLVE_AT_FAST' 
     865 
     866IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     867 
    788868 
    789869! TOTAL H+ scale: conversion factor for Htot = aphscale * Hfree 
    … …  
    854934ENDIF 
    855935 
     936IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 
    856937RETURN 
     938IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    857939END FUNCTION solve_at_fast 
    858940!=============================================================================== 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/MEDUSA/mocsy_wrapper.F90

    r7894 r11738  
    1818   USE mocsy_gasflux 
    1919   USE in_out_manager  ! I/O manager 
     20 
     21   USE yomhook, ONLY: lhook, dr_hook 
     22   USE parkind1, ONLY: jprb, jpim 
    2023 
    2124   IMPLICIT NONE 
    … …  
    7174! 
    7275        USE mocsy_singledouble 
     76        USE yomhook, ONLY: lhook, dr_hook 
     77        USE parkind1, ONLY: jprb, jpim 
     78 
    7379        IMPLICIT NONE 
    7480 
    … …  
    100106   REAL(kind=wp), DIMENSION(N) :: mpco2atm, mfco2atm, mschmidtco2, mkwco2, mK0 
    101107   REAL(kind=wp), DIMENSION(N) :: mco2starair, mco2flux, mdpco2 
     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='MOCSY_INTERFACE' 
     113 
     114   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     115 
    102116! 
    103117!> ---------------------------------------------------------------------- 
    … …  
    153167      dpco2      = mdpco2(1)              ! uatm 
    154168 
     169   IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 
    155170  RETURN 
    156171 
     172   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    157173  END SUBROUTINE 
    158174 
    … …  
    235251! 
    236252        USE mocsy_singledouble 
     253        USE yomhook, ONLY: lhook, dr_hook 
     254        USE parkind1, ONLY: jprb, jpim 
     255 
    237256        IMPLICIT NONE 
    238257 
    … …  
    258277!  "vars" Input options 
    259278   CHARACTER(10) :: optCON, optT, optP, optB, optKf, optK1K2 
     279   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     280   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     281   REAL(KIND=jprb)               :: zhook_handle 
     282 
     283   CHARACTER(LEN=*), PARAMETER :: RoutineName='MOCSY_CARBCHEM' 
     284 
     285   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     286 
    260287!    
    261288!  initialise depth0 to 0 
    … …  
    327354   endif 
    328355 
     356   IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 
    329357  RETURN 
    330358 
     359   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    331360  END SUBROUTINE 
    332361 
    … …  
    347376 
    348377      INTEGER, INTENT( in ) ::   kt 
     378      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     379      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     380      REAL(KIND=jprb)               :: zhook_handle 
     381 
     382      CHARACTER(LEN=*), PARAMETER :: RoutineName='MOCSY_INTERFACE' 
     383 
     384      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     385 
    349386 
    350387      WRITE(*,*) 'mocsy_interface: You should not have seen this print! error?', kt 
    351388 
     389      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    352390   END SUBROUTINE mocsy_interface 
    353391#endif  

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/MEDUSA/par_medusa.F90

    r10047 r11738  
    2020   USE par_pisces , ONLY : jp_pisces_3d    !: number of 3D diag in PISCES 
    2121   USE par_pisces , ONLY : jp_pisces_trd   !: number of biological diag in PISCES 
     22 
     23   USE yomhook, ONLY: lhook, dr_hook 
     24   USE parkind1, ONLY: jprb, jpim 
    2225 
    2326   IMPLICIT NONE 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/MEDUSA/phytoplankton.F90

    r10047 r11738  
    1212   !!                                                   MEDUSA bio-model 
    1313   !!---------------------------------------------------------------------- 
     14 
     15   USE yomhook, ONLY: lhook, dr_hook 
     16   USE parkind1, ONLY: jprb, jpim 
    1417 
    1518   IMPLICIT NONE 
    … …  
    8184      REAL(wp)                     :: fsin1, fnsi1, fnsi2 
    8285      REAL(wp)                     :: fq0 
     86      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     87      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     88      REAL(KIND=jprb)               :: zhook_handle 
     89 
     90      CHARACTER(LEN=*), PARAMETER :: RoutineName='PHYTOPLANKTON' 
     91 
     92      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     93 
    8394 
    8495      DO jj = 2,jpjm1 
    … …  
    459470      ENDDO 
    460471 
     472      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    461473   END SUBROUTINE phytoplankton 
    462474 
    … …  
    467479CONTAINS 
    468480   SUBROUTINE phytoplankton( )                    ! Empty routine 
     481   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     482   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     483   REAL(KIND=jprb)               :: zhook_handle 
     484 
     485   CHARACTER(LEN=*), PARAMETER :: RoutineName='PHYTOPLANKTON' 
     486 
     487   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     488 
    469489      WRITE(*,*) 'phytoplankton: You should not have seen this print! error?' 
     490   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    470491   END SUBROUTINE phytoplankton 
    471492#endif  

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/MEDUSA/plankton.F90

    r10045 r11738  
    1111   !!                                                   MEDUSA bio-model 
    1212   !!---------------------------------------------------------------------- 
     13 
     14   USE yomhook, ONLY: lhook, dr_hook 
     15   USE parkind1, ONLY: jprb, jpim 
    1316 
    1417   IMPLICIT NONE 
    … …  
    5053 
    5154      INTEGER :: ji, jj 
     55      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     56      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     57      REAL(KIND=jprb)               :: zhook_handle 
     58 
     59      CHARACTER(LEN=*), PARAMETER :: RoutineName='PLANKTON' 
     60 
     61      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     62 
    5263 
    5364      !!------------------------------------------------------------------- 
    … …  
    188199      ENDDO 
    189200 
     201      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    190202   END SUBROUTINE plankton 
    191203 
    … …  
    196208CONTAINS 
    197209   SUBROUTINE plankton( )                    ! Empty routine 
     210   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     211   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     212   REAL(KIND=jprb)               :: zhook_handle 
     213 
     214   CHARACTER(LEN=*), PARAMETER :: RoutineName='PLANKTON' 
     215 
     216   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     217 
    198218      WRITE(*,*) 'plankton: You should not have seen this print! error?' 
     219   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    199220   END SUBROUTINE plankton 
    200221#endif  

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/MEDUSA/sms_medusa.F90

    r9385 r11738  
    2222   USE par_oce 
    2323   USE par_trc 
     24 
     25   USE yomhook, ONLY: lhook, dr_hook 
     26   USE parkind1, ONLY: jprb, jpim 
    2427 
    2528   IMPLICIT NONE 
    … …  
    362365      USE lib_mpp , ONLY: ctl_warn 
    363366      INTEGER ::   ierr(8)        ! Local variables 
     367      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     368      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     369      REAL(KIND=jprb)               :: zhook_handle 
     370 
     371      CHARACTER(LEN=*), PARAMETER :: RoutineName='SMS_MEDUSA_ALLOC' 
     372 
     373      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     374 
    364375      !!---------------------------------------------------------------------- 
    365376      ierr(:) = 0 
    … …  
    425436      IF( sms_medusa_alloc /= 0 )   CALL ctl_warn('sms_medusa_alloc: failed to allocate arrays') 
    426437      ! 
     438      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    427439   END FUNCTION sms_medusa_alloc 
    428440 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcavg_medusa.F90

    r8074 r11738  
    1818      USE prtctl_trc      ! Print control for debugging 
    1919      USE in_out_manager  ! I/O manager 
     20 
     21      USE yomhook, ONLY: lhook, dr_hook 
     22      USE parkind1, ONLY: jprb, jpim 
    2023 
    2124      IMPLICIT NONE 
    … …  
    5760!======================================================================= 
    5861! 
     62      USE yomhook, ONLY: lhook, dr_hook 
     63      USE parkind1, ONLY: jprb, jpim 
     64 
    5965      IMPLICIT NONE 
    6066! 
    6167      INTEGER, INTENT( in ) ::   kt   ! index of the time stepping 
     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='TRC_AVG_MEDUSA' 
     73 
     74      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     75 
    6276!  
    6377!======================================================================= 
    … …  
    97111      zb_dms_din(:,:) = zn_dms_din(:,:) 
    98112 
     113      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    99114  END SUBROUTINE trc_avg_medusa 
    100115 
    … …  
    116131! 
    117132      INTEGER, INTENT( in ) ::   kt 
     133      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     134      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     135      REAL(KIND=jprb)               :: zhook_handle 
     136 
     137      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_AVG_MEDUSA' 
     138 
     139      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     140 
    118141! 
    119142 
    120143      WRITE(*,*) 'trc_avg_medusa: You should not have seen this print! error?' 
    121144 
     145      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    122146   END SUBROUTINE trc_avg_medusa 
    123147#endif 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcbio_medusa.F90

    r10047 r11738  
    130130      USE trcstat,                    ONLY: trc_rst_dia_stat 
    131131 
     132      USE yomhook, ONLY: lhook, dr_hook 
     133      USE parkind1, ONLY: jprb, jpim 
     134 
    132135      IMPLICIT NONE 
    133136      PRIVATE 
    … …  
    203206      INTEGER  ::    summask 
    204207      CHARACTER(40) :: charout, charout2, charout3, charout4, charout5 
     208      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     209      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     210      REAL(KIND=jprb)               :: zhook_handle 
     211 
     212      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_BIO_MEDUSA' 
     213 
     214      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     215 
    205216      !! 
    206217      !!------------------------------------------------------------------ 
    … …  
    824835# endif 
    825836 
     837      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    826838   END SUBROUTINE trc_bio_medusa 
    827839 
    … …  
    848860      CHARACTER(60) :: charout3, charout4 
    849861      INTEGER       :: ii,ij 
     862      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     863      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     864      REAL(KIND=jprb)               :: zhook_handle 
     865 
     866      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_BIO_EXCEPTIONNAL_FIX' 
     867 
     868      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     869 
    850870     
    851871      !! point to the center of the 3*3 zoom-grid, to check around 
    … …  
    9139339200  FORMAT(e16.6) 
    914934 
     935      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    915936   END SUBROUTINE trc_bio_exceptionnal_fix  
    916937 
    … …  
    930951      INTEGER, DIMENSION(2) :: ilocs         !  
    931952      INTEGER, INTENT( in ) :: kt, jk 
     953      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     954      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     955      REAL(KIND=jprb)               :: zhook_handle 
     956 
     957      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_BIO_CHECK' 
     958 
     959      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     960 
    932961      !! 
    933962      !!========================== 
    … …  
    103510649900  FORMAT ('trc_bio:tracer anomaly: kt=',i6,' min ALK: ',f16.10,', i j k: ',3i5) 
    10361065 
     1066      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    10371067   END SUBROUTINE trc_bio_check 
    10381068 
    … …  
    10441074CONTAINS 
    10451075   SUBROUTINE trc_bio_medusa( kt )                   ! Empty routine 
     1076      USE yomhook, ONLY: lhook, dr_hook 
     1077      USE parkind1, ONLY: jprb, jpim 
     1078 
    10461079      IMPLICIT NONE 
    10471080      INTEGER, INTENT( in ) ::   kt 
     1081      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     1082      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     1083      REAL(KIND=jprb)               :: zhook_handle 
     1084 
     1085      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_BIO_MEDUSA' 
     1086 
     1087      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     1088 
    10481089      WRITE(*,*) 'trc_bio_medusa: You should not have seen this print! error?', kt 
     1090      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    10491091   END SUBROUTINE trc_bio_medusa 
    10501092#endif  

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcco2_medusa.F90

    r5841 r11738  
    1919      USE prtctl_trc      ! Print control for debugging 
    2020      USE in_out_manager  ! I/O manager 
     21 
     22      USE yomhook, ONLY: lhook, dr_hook 
     23      USE parkind1, ONLY: jprb, jpim 
    2124 
    2225      IMPLICIT NONE 
    … …  
    8083!     - making alkalinity a state variable (rather than a function of salinity) 
    8184! 
     85      USE yomhook, ONLY: lhook, dr_hook 
     86      USE parkind1, ONLY: jprb, jpim 
     87 
    8288      IMPLICIT NONE 
    8389 
    … …  
    107113!     REAL(wp) :: cco2,bicarb,carb,henry 
    108114      REAL(wp) :: cco2,bicarb,carb 
     115      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     116      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     117      REAL(KIND=jprb)               :: zhook_handle 
     118 
     119      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_CO2_MEDUSA' 
     120 
     121      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     122 
    109123! ====================================================================== 
    110124 
    … …  
    202216!  WRITE(*,*) " " 
    203217 
     218      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    204219   END SUBROUTINE trc_co2_medusa 
    205220!----------------------------------------------------------------------- 
    … …  
    217232!======================================================================= 
    218233!   
     234   USE yomhook, ONLY: lhook, dr_hook 
     235   USE parkind1, ONLY: jprb, jpim 
     236 
    219237   IMPLICIT NONE 
    220238 
    … …  
    242260      REAL(wp) :: ca, bc, cb 
    243261      REAL(wp) :: pco2water, fairco2 
     262      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     263      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     264      REAL(KIND=jprb)               :: zhook_handle 
     265 
     266      CHARACTER(LEN=*), PARAMETER :: RoutineName='CO2_DYNAMICS' 
     267 
     268      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     269 
    244270 
    245271! ====================================================================== 
    … …  
    279305          om_cal, om_arg )                        ! outputs 
    280306 
     307      IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 
    281308   RETURN 
    282309 
     310      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    283311   END SUBROUTINE CO2_dynamics 
    284312!----------------------------------------------------------------------- 
    … …  
    314342!           +ve is in-gassing (air to sea), -ve is outgassing (sea to air). 
    315343 
     344   USE yomhook, ONLY: lhook, dr_hook 
     345   USE parkind1, ONLY: jprb, jpim 
     346 
    316347   IMPLICIT NONE 
    317348 
    … …  
    321352!----------------------------------------------------------------------- 
    322353      REAL(wp)                  :: sc, fwind                        ! LOCAL VARIABLES: 
     354      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     355      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     356      REAL(KIND=jprb)               :: zhook_handle 
     357 
     358      CHARACTER(LEN=*), PARAMETER :: RoutineName='AIR_SEA_EXCHANGE' 
     359 
     360      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     361 
    323362 
    324363! calculate the Schmidt number and unit conversions 
    … …  
    335374          flux = flux / ( 86400. ) 
    336375 
     376      IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 
    337377  RETURN  
    338378 
     379      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    339380  END SUBROUTINE Air_sea_exchange 
    340381!----------------------------------------------------------------------- 
    … …  
    364405      REAL(wp), DIMENSION(MKVAL) :: AKVAL 
    365406      REAL(wp), DIMENSION(MCONC) :: CONCS 
     407      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     408      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     409      REAL(KIND=jprb)               :: zhook_handle 
     410 
     411      CHARACTER(LEN=*), PARAMETER :: RoutineName='CO2DYN' 
     412 
     413      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     414 
    366415 
    367416      ICONST = 6 
    … …  
    394443      HENRY = AKVAL(1) 
    395444     
     445      IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 
    396446      RETURN 
    397447 
     448      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    398449      END SUBROUTINE 
    399450!----------------------------------------------------------------------- 
    … …  
    468519      REAL(wp), DIMENSION(NKVAL) :: AKVAL 
    469520      REAL(wp), DIMENSION(NCONC) :: CONCS 
     521      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     522      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     523      REAL(KIND=jprb)               :: zhook_handle 
     524 
     525      CHARACTER(LEN=*), PARAMETER :: RoutineName='POLYCO' 
     526 
     527      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     528 
    470529 
    471530      P = PD 
    … …  
    540599     & CALL CO2CLC(CONCS,NCONC,AKVAL,NKVAL,ICALC,BORON,BTOT,iters) 
    541600 
     601      IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 
    542602      RETURN 
    543603 
     604      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    544605      END SUBROUTINE 
    545606!----------------------------------------------------------------------- 
    … …  
    632693      DATA (B2(3,ICON),ICON=1,MAXCON) /3*0.0D0/ 
    633694      DATA (B2(4,ICON),ICON=1,MAXCON) /3*0.0D0/ 
     695      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     696      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     697      REAL(KIND=jprb)               :: zhook_handle 
     698 
     699      CHARACTER(LEN=*), PARAMETER :: RoutineName='CO2SET' 
     700 
     701      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     702 
    634703 
    635704      TK=T+273.15D0 
    … …  
    693762      END IF ! section implimenting OCMIP coefficients 
    694763 
     764      IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 
    695765      RETURN 
     766      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    696767      END SUBROUTINE 
    697768!----------------------------------------------------------------------- 
    … …  
    731802! setup array to store old values of concs 
    732803      real(wp),DIMENSION(:) :: old_CONCS(NCONC) 
     804      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     805      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     806      REAL(KIND=jprb)               :: zhook_handle 
     807 
     808      CHARACTER(LEN=*), PARAMETER :: RoutineName='CO2CLC' 
     809 
     810      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     811 
    733812! AXY (07/05/13) ================================================== 
    734813 
    … …  
    10151094 
    10161095 
     1096      IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 
    10171097      RETURN 
    10181098 
     1099      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    10191100      END SUBROUTINE 
    10201101!----------------------------------------------------------------------- 
    … …  
    10551136!======================================================================= 
    10561137 
     1138        USE yomhook, ONLY: lhook, dr_hook 
     1139        USE parkind1, ONLY: jprb, jpim 
     1140 
    10571141        IMPLICIT None 
    10581142        REAL(wp), INTENT( in )    :: Tc, S, D, CO3 
    … …  
    10631147        REAL(wp) :: tmp1, tmp2, tmp3 
    10641148        REAL(wp) :: dV, dK, P, R 
     1149        INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     1150        INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     1151        REAL(KIND=jprb)               :: zhook_handle 
     1152 
     1153        CHARACTER(LEN=*), PARAMETER :: RoutineName='CACO3_SATURATION' 
     1154 
     1155        IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     1156 
    10651157                
    10661158! setup 
    … …  
    11081200        Om_arg = (CO3 * Ca) / Kspa 
    11091201       
     1202        IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 
    11101203      RETURN 
    11111204 
     1205        IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    11121206      END SUBROUTINE 
    11131207!----------------------------------------------------------------------- 
    … …  
    11271221 
    11281222      INTEGER, INTENT( in ) ::   kt 
     1223      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     1224      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     1225      REAL(KIND=jprb)               :: zhook_handle 
     1226 
     1227      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_CO2_MEDUSA' 
     1228 
     1229      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     1230 
    11291231 
    11301232      WRITE(*,*) 'trc_co2_medusa: You should not have seen this print! error?', kt 
    11311233 
     1234      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    11321235   END SUBROUTINE trc_co2_medusa 
    11331236#endif  

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcctl_medusa.F90

    r10045 r11738  
    1818   USE par_medusa 
    1919    
     20   USE yomhook, ONLY: lhook, dr_hook 
     21   USE parkind1, ONLY: jprb, jpim 
     22 
    2023   IMPLICIT NONE 
    2124   PRIVATE 
    … …  
    3336 
    3437   SUBROUTINE trc_ctl_medusa 
     38   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     39   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     40   REAL(KIND=jprb)               :: zhook_handle 
     41 
     42   CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_CTL_MEDUSA' 
     43 
     44   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     45 
    3546      !!---------------------------------------------------------------------- 
    3647      !!                     ***  ROUTINE trc_ctl_medusa  *** 
    … …  
    8192# endif 
    8293 
     94   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    8395   END SUBROUTINE trc_ctl_medusa 
    8496 
    … …  
    89101CONTAINS 
    90102   SUBROUTINE trc_ctl_medusa               ! Dummy routine 
     103   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     104   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     105   REAL(KIND=jprb)               :: zhook_handle 
     106 
     107   CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_CTL_MEDUSA' 
     108 
     109   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     110 
     111   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    91112   END SUBROUTINE trc_ctl_medusa 
    92113#endif 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcdms_medusa.F90

    r10196 r11738  
    2222      USE in_out_manager  ! I/O manager 
    2323 
     24      USE yomhook, ONLY: lhook, dr_hook 
     25      USE parkind1, ONLY: jprb, jpim 
     26 
    2427      IMPLICIT NONE 
    2528      PRIVATE 
    … …  
    8588      !! 
    8689!======================================================================= 
     90 
     91      USE yomhook, ONLY: lhook, dr_hook 
     92      USE parkind1, ONLY: jprb, jpim 
    8793 
    8894      IMPLICIT NONE 
    … …  
    104110      !! temporary variables 
    105111      REAL(wp) ::    fq1,fq2,fq3 
     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='TRC_DMS_MEDUSA' 
     117 
     118      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     119 
    106120!  
    107121!======================================================================= 
    … …  
    172186        endif 
    173187 
     188      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    174189   END SUBROUTINE trc_dms_medusa 
    175190 
    … …  
    234249!--------------------------------------------------------------------- 
    235250 
     251      USE yomhook, ONLY: lhook, dr_hook 
     252      USE parkind1, ONLY: jprb, jpim 
     253 
    236254      IMPLICIT NONE 
    237255! 
    … …  
    252270      REAL     :: n      ! Schmidt number exponent 
    253271      REAL, PARAMETER :: t_max = 47.0  !! Max T to avoid breaking the Sc fit (C) 
     272      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     273      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     274      REAL(KIND=jprb)               :: zhook_handle 
     275 
     276      CHARACTER(LEN=*), PARAMETER :: RoutineName='DMS_FLUX_OCN' 
     277 
     278      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     279 
    254280 
    255281! Calculate the Schmidt number (Sc): 
    … …  
    300326      f_dms = (k_dms / 3.6e5) * (dms_conc * 32.0e-9) 
    301327 
     328      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    302329   END SUBROUTINE dms_flux_ocn 
    303330 
    … …  
    320347! 
    321348      INTEGER, INTENT( in ) ::   kt 
     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='TRC_DMS_MEDUSA' 
     354 
     355      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     356 
    322357! 
    323358 
    324359      WRITE(*,*) 'trc_dms_medusa: You should not have seen this print! error?' 
    325360 
     361      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    326362   END SUBROUTINE trc_dms_medusa 
    327363#endif 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcini_medusa.F90

    r10045 r11738  
    3232 
    3333 
     34   USE yomhook, ONLY: lhook, dr_hook 
     35   USE parkind1, ONLY: jprb, jpim 
     36 
    3437   IMPLICIT NONE 
    3538   PRIVATE 
    … …  
    7780      !! AXY (04/11/13): add in temporary variables for checks 
    7881      REAL(wp)           :: fq0, fq1, fq2 
     82      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     83      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     84      REAL(KIND=jprb)               :: zhook_handle 
     85 
     86      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_INI_MEDUSA' 
     87 
     88      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     89 
    7990 
    8091      IF(lwp) WRITE(numout,*) 
    … …  
    341352      ENDIF 
    342353 
     354      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    343355   END SUBROUTINE trc_ini_medusa 
    344356 
    … …  
    362374      !! * arguments 
    363375      INTEGER, INTENT( in  ) ::   kt   ! ocean time step 
     376      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     377      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     378      REAL(KIND=jprb)               :: zhook_handle 
     379 
     380      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_INI_MEDUSA_CCD' 
     381 
     382      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     383 
    364384 
    365385      !!--------------------------------------------------------------------- 
    … …  
    396416      ENDIF 
    397417  
     418      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    398419   END SUBROUTINE trc_ini_medusa_ccd 
    399420 
    … …  
    417438      !! * arguments 
    418439      INTEGER, INTENT( in  ) ::   kt   ! ocean time step 
     440      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     441      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     442      REAL(KIND=jprb)               :: zhook_handle 
     443 
     444      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_INI_MEDUSA_RIVER' 
     445 
     446      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     447 
    419448 
    420449      !!--------------------------------------------------------------------- 
    … …  
    494523      IF(lwp) CALL flush(numout) 
    495524 
     525      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    496526   END SUBROUTINE trc_ini_medusa_river 
    497527    
    … …  
    508538      REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:)   ::   zyy !: xCO2 record years 
    509539      CHARACTER (len=10), PARAMETER ::  clname = 'xco2.atm'  !! atm CO2 record file 
     540      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     541      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     542      REAL(KIND=jprb)               :: zhook_handle 
     543 
     544      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_INI_MEDUSA_CO2ATM' 
     545 
     546      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     547 
    510548      !!---------------------------------------------------------------------- 
    511549 
    … …  
    534572        CALL ctl_stop('trc_ini_medusa_co2atm: & 
    535573                      & Error on the 1st reading of xco2.atm') 
     574      IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 
    536575        RETURN 
    537576      ENDIF 
    … …  
    543582      IF( ierr > 0 ) THEN 
    544583         CALL ctl_stop( 'trc_ini_medusa_co2atm: unable to allocate  array' )   
     584      IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 
    545585         RETURN 
    546586      ENDIF 
    … …  
    560600          CALL ctl_stop('trc_ini_medusa_co2atm: & 
    561601                        & Error on the 2nd reading of xco2.atm') 
     602      IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 
    562603          RETURN 
    563604        ENDIF 
    … …  
    577618      ENDIF 
    578619 
     620      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    579621   END SUBROUTINE trc_ini_medusa_co2atm 
    580622 
    … …  
    586628CONTAINS 
    587629   SUBROUTINE trc_ini_medusa             ! Empty routine 
     630   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     631   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     632   REAL(KIND=jprb)               :: zhook_handle 
     633 
     634   CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_INI_MEDUSA' 
     635 
     636   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     637 
     638   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    588639   END SUBROUTINE trc_ini_medusa 
    589640#endif 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcnam_medusa.F90

    r10196 r11738  
    3030   !! AXY (04/02/14): necessary to find NaNs on HECTOR 
    3131   USE, INTRINSIC :: ieee_arithmetic  
     32 
     33   USE yomhook, ONLY: lhook, dr_hook 
     34   USE parkind1, ONLY: jprb, jpim 
    3235 
    3336   IMPLICIT NONE 
    … …  
    97100      INTEGER :: ios                 ! Local integer output status for namelist read 
    98101      CHARACTER(LEN=32)   ::   clname 
     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='TRC_NAM_MEDUSA' 
     107 
     108      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     109 
    99110      !! 
    100111      !!---------------------------------------------------------------------- 
    … …  
    11321143       ENDIF 
    11331144 
     1145      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    11341146   END SUBROUTINE trc_nam_medusa 
    11351147    
    11361148   SUBROUTINE trc_nam_iom_medusa 
     1149   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     1150   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     1151   REAL(KIND=jprb)               :: zhook_handle 
     1152 
     1153   CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_NAM_IOM_MEDUSA' 
     1154 
     1155   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     1156 
    11371157      !!--------------------------------------------------------------------- 
    11381158      !!                     ***  ROUTINE trc_nam_iom_medusa  *** 
    … …  
    24912511# endif       
    24922512       
     2513   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    24932514   END SUBROUTINE   trc_nam_iom_medusa 
    24942515    
    … …  
    24992520CONTAINS 
    25002521   SUBROUTINE trc_nam_medusa                      ! Empty routine 
     2522   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     2523   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     2524   REAL(KIND=jprb)               :: zhook_handle 
     2525 
     2526   CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_NAM_MEDUSA' 
     2527 
     2528   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     2529 
     2530   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    25012531   END  SUBROUTINE  trc_nam_medusa 
    25022532#endif   

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcopt_medusa.F90

    r10045 r11738  
    2525   USE prtctl_trc      ! Print control for debbuging 
    2626   USE sms_medusa 
     27 
     28   USE yomhook, ONLY: lhook, dr_hook 
     29   USE parkind1, ONLY: jprb, jpim 
    2730 
    2831   IMPLICIT NONE 
    … …  
    6265 
    6366      CHARACTER (len=25) :: charout 
     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='TRC_OPT_MEDUSA' 
     72 
     73      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     74 
    6475      !!--------------------------------------------------------------------- 
    6576 
    … …  
    173184      ENDIF 
    174185 
     186      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    175187   END SUBROUTINE trc_opt_medusa 
    176188 
    … …  
    182194   SUBROUTINE trc_opt_medusa( kt )                   ! Empty routine 
    183195      INTEGER, INTENT( in ) ::   kt 
     196      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     197      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     198      REAL(KIND=jprb)               :: zhook_handle 
     199 
     200      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_OPT_MEDUSA' 
     201 
     202      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     203 
    184204      WRITE(*,*) 'trc_opt_medusa: You should not have seen this print! error?', kt 
     205      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    185206   END SUBROUTINE trc_opt_medusa 
    186207#endif  

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcoxy_medusa.F90

    r7254 r11738  
    1818      USE lbclnk 
    1919      USE prtctl_trc      ! Print control for debugging 
     20 
     21      USE yomhook, ONLY: lhook, dr_hook 
     22      USE parkind1, ONLY: jprb, jpim 
    2023 
    2124      IMPLICIT NONE 
    … …  
    7679!======================================================================= 
    7780 
     81      USE yomhook, ONLY: lhook, dr_hook 
     82      USE parkind1, ONLY: jprb, jpim 
     83 
    7884      implicit none 
    7985! 
    … …  
    8692! 
    8793      REAL(wp) :: o2schmidt, o2sato, mol_o2 
     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='TRC_OXY_MEDUSA' 
     99 
     100      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     101 
    88102! 
    89103! Oxygen to mol / m3 
    … …  
    113127      o2flux = o2flux * 1000. 
    114128! 
     129      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    115130      END SUBROUTINE trc_oxy_medusa 
    116131 
    … …  
    150165      !! 
    151166!======================================================================= 
     167 
     168      USE yomhook, ONLY: lhook, dr_hook 
     169      USE parkind1, ONLY: jprb, jpim 
    152170 
    153171      implicit none 
    … …  
    168186      data a3 /   -0.10939 / 
    169187      data a4 / 0.00093777 / 
     188      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     189      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     190      REAL(KIND=jprb)               :: zhook_handle 
     191 
     192      CHARACTER(LEN=*), PARAMETER :: RoutineName='OXY_SCHMIDT' 
     193 
     194      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     195 
    170196! 
    171197!     o2_schmidt = a0 + pt*(a1 + pt*(a2 + pt*a3)) 
    172198      o2_schmidt = a0 + pt*(a1 + pt*(a2 + pt*(a3 + pt*a4))) 
    173199! 
     200      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    174201      END SUBROUTINE oxy_schmidt 
    175202 
    … …  
    205232      !! 
    206233!======================================================================= 
     234 
     235      USE yomhook, ONLY: lhook, dr_hook 
     236      USE parkind1, ONLY: jprb, jpim 
    207237 
    208238      implicit none 
    … …  
    230260! 
    231261      data c0 / -4.88682E-7 / 
     262      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     263      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     264      REAL(KIND=jprb)               :: zhook_handle 
     265 
     266      CHARACTER(LEN=*), PARAMETER :: RoutineName='OXY_SATO' 
     267 
     268      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     269 
    232270!      
    233271      tt   = 298.15 - pt 
    … …  
    247285      o2_sato = (ans2 / 22391.6) * 1000.0 
    248286! 
     287      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    249288      END SUBROUTINE oxy_sato 
    250289 
    … …  
    270309      REAL(wp), INTENT( in )    :: o2 
    271310      REAL(wp), INTENT( inout ) :: o2flux, o2sat 
     311      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     312      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     313      REAL(KIND=jprb)               :: zhook_handle 
     314 
     315      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_OXY_MEDUSA' 
     316 
     317      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     318 
    272319 
    273320      WRITE(*,*) 'trc_oxy_medusa: You should not have seen this print! error?', kt 
    274321 
     322      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    275323   END SUBROUTINE trc_oxy_medusa 
    276324#endif 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcsed_medusa.F90

    r10045 r11738  
    4242 
    4343 
     44   USE yomhook, ONLY: lhook, dr_hook 
     45   USE parkind1, ONLY: jprb, jpim 
     46 
    4447   IMPLICIT NONE 
    4548   PRIVATE 
    … …  
    114117      !! JPALM - 26-11-2015 -add iom_use for diagnostic 
    115118       REAL(wp), POINTER, DIMENSION(:,:  ) :: zw2d 
     119       INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     120       INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     121       REAL(KIND=jprb)               :: zhook_handle 
     122 
     123       CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_SED_MEDUSA' 
     124 
     125       IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     126 
    116127      !!--------------------------------------------------------------------- 
    117128      !! 
    … …  
    231242      ENDIF 
    232243 
     244       IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    233245   END SUBROUTINE trc_sed_medusa 
    234246 
    … …  
    277289      ! 
    278290      NAMELIST/nammedsbc/cn_dir, sn_dust, bdustfer  
     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='TRC_SED_MEDUSA_SBC' 
     296 
     297      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     298 
    279299 
    280300      !!--------------------------------------------------------------------- 
    … …  
    332352      IF( nn_timing == 1 )  CALL timing_stop('trc_sed_medusa_sbc') 
    333353      ! 
     354      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    334355   END SUBROUTINE trc_sed_medusa_sbc 
    335356 
    … …  
    349370      !!--------------------------------------------------------------------- 
    350371      INTEGER, INTENT( in ) ::   kt      ! ocean time-step index       
     372      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     373      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     374      REAL(KIND=jprb)               :: zhook_handle 
     375 
     376      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_SED_MEDUSA_DUST' 
     377 
     378      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     379 
    351380 
    352381      !! AXY (20/11/14): alter this to report on first MEDUSA call 
    … …  
    411440      !! END DO 
    412441 
     442      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    413443   END SUBROUTINE trc_sed_medusa_dust 
    414444 
    … …  
    420450   SUBROUTINE trc_sed_medusa( kt )                   ! Empty routine 
    421451      INTEGER, INTENT( in ) ::   kt 
     452      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     453      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     454      REAL(KIND=jprb)               :: zhook_handle 
     455 
     456      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_SED_MEDUSA' 
     457 
     458      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     459 
    422460      WRITE(*,*) 'trc_sed_medusa: You should not have seen this print! error?', kt 
     461      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    423462   END SUBROUTINE trc_sed_medusa 
    424463#endif  

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcsms_medusa.F90

    r10045 r11738  
    3131 
    3232 
     33   USE yomhook, ONLY: lhook, dr_hook 
     34   USE parkind1, ONLY: jprb, jpim 
     35 
    3336   IMPLICIT NONE 
    3437   PRIVATE 
    … …  
    5760      !! trend temporary array: 
    5861      REAL(wp), POINTER, DIMENSION(:,:,:,:) :: ztrmed 
     62      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     63      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     64      REAL(KIND=jprb)               :: zhook_handle 
     65 
     66      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_SMS_MEDUSA' 
     67 
     68      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     69 
    5970 
    6071 
    … …  
    127138 
    128139 
     140      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    129141   END SUBROUTINE trc_sms_medusa 
    130142    
    … …  
    136148   SUBROUTINE trc_sms_medusa( kt )             ! Empty routine 
    137149      INTEGER, INTENT( in ) ::   kt 
     150      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     151      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     152      REAL(KIND=jprb)               :: zhook_handle 
     153 
     154      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_SMS_MEDUSA' 
     155 
     156      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     157 
    138158      WRITE(*,*) 'trc_sms_medusa: You should not have seen this print! error?', kt 
     159      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    139160   END SUBROUTINE trc_sms_medusa 
    140161#endif 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcwri_medusa.F90

    r5726 r11738  
    1717   USE iom         ! I/O manager 
    1818 
     19   USE yomhook, ONLY: lhook, dr_hook 
     20   USE parkind1, ONLY: jprb, jpim 
     21 
    1922   IMPLICIT NONE 
    2023   PRIVATE 
    … …  
    3235      CHARACTER (len=20)   :: cltra 
    3336      INTEGER              :: jn 
     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='TRC_WRI_MEDUSA' 
     42 
     43      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     44 
    3445      !!--------------------------------------------------------------------- 
    3546  
    … …  
    4152      END DO 
    4253      ! 
     54      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    4355   END SUBROUTINE trc_wri_medusa 
    4456 
    … …  
    5062CONTAINS 
    5163   SUBROUTINE trc_wri_medusa                     ! Empty routine   
     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='TRC_WRI_MEDUSA' 
     69 
     70   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     71 
     72   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    5273   END SUBROUTINE trc_wri_medusa 
    5374#endif 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/MEDUSA/zooplankton.F90

    r10047 r11738  
    1111   !!                                                   MEDUSA bio-model 
    1212   !!---------------------------------------------------------------------- 
     13 
     14   USE yomhook, ONLY: lhook, dr_hook 
     15   USE parkind1, ONLY: jprb, jpim 
    1316 
    1417   IMPLICIT NONE 
    … …  
    7174      REAL(wp) :: fme1, fme 
    7275      REAL(wp) :: fstarme, fmeth 
     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='ZOOPLANKTON' 
     81 
     82      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     83 
    7384 
    7485      DO jj = 2,jpjm1 
    … …  
    306317      ENDDO 
    307318 
     319      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    308320   END SUBROUTINE zooplankton 
    309321 
    … …  
    314326CONTAINS 
    315327   SUBROUTINE zooplankton( )                    ! Empty routine 
     328   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     329   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     330   REAL(KIND=jprb)               :: zhook_handle 
     331 
     332   CHARACTER(LEN=*), PARAMETER :: RoutineName='ZOOPLANKTON' 
     333 
     334   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     335 
    316336      WRITE(*,*) 'zooplankton: You should not have seen this print! error?' 
     337   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    317338   END SUBROUTINE zooplankton 
    318339#endif  

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/TRP/trcadv.F90

    r8442 r11738  
    3030   USE prtctl_trc      ! Print control 
    3131 
     32   USE yomhook, ONLY: lhook, dr_hook 
     33   USE parkind1, ONLY: jprb, jpim 
     34 
    3235   IMPLICIT NONE 
    3336   PRIVATE 
    … …  
    5154 
    5255   INTEGER FUNCTION trc_adv_alloc() 
     56   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     57   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     58   REAL(KIND=jprb)               :: zhook_handle 
     59 
     60   CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_ADV_ALLOC' 
     61 
     62   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     63 
    5364      !!---------------------------------------------------------------------- 
    5465      !!                  ***  ROUTINE trc_adv_alloc  *** 
    … …  
    5970      IF( trc_adv_alloc /= 0 ) CALL ctl_warn('trc_adv_alloc : failed to allocate array.') 
    6071 
     72   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    6173   END FUNCTION trc_adv_alloc 
    6274 
    … …  
    7789      REAL(wp), POINTER, DIMENSION(:,:,:) :: zun, zvn, zwn  ! effective velocity 
    7890      REAL(wp), POINTER, DIMENSION(:,:,:,:) ::   ztrtrd 
     91      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     92      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     93      REAL(KIND=jprb)               :: zhook_handle 
     94 
     95      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_ADV' 
     96 
     97      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     98 
    7999      !!---------------------------------------------------------------------- 
    80100      ! 
    … …  
    167187      IF( nn_timing == 1 )  CALL timing_stop('trc_adv') 
    168188      ! 
     189      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    169190   END SUBROUTINE trc_adv 
    170191 
    … …  
    178199      !!---------------------------------------------------------------------- 
    179200      INTEGER ::   ioptio 
     201      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     202      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     203      REAL(KIND=jprb)               :: zhook_handle 
     204 
     205      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_ADV_CTL' 
     206 
     207      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     208 
    180209      !!---------------------------------------------------------------------- 
    181210 
    … …  
    211240      ENDIF 
    212241      ! 
     242      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    213243   END SUBROUTINE trc_adv_ctl 
    214244    
    … …  
    220250   SUBROUTINE trc_adv( kt ) 
    221251      INTEGER, INTENT(in) :: kt 
     252      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     253      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     254      REAL(KIND=jprb)               :: zhook_handle 
     255 
     256      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_ADV' 
     257 
     258      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     259 
    222260      WRITE(*,*) 'trc_adv: You should not have seen this print! error?', kt 
     261      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    223262   END SUBROUTINE trc_adv 
    224263#endif 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/TRP/trcbbl.F90

    r10047 r11738  
    5151      !! 
    5252      !!----------------------------------------------------------------------   
     53      USE yomhook, ONLY: lhook, dr_hook 
     54      USE parkind1, ONLY: jprb, jpim 
     55 
    5356      IMPLICIT NONE 
    5457      INTEGER, INTENT( in ) ::   kt   ! ocean time-step  
    … …  
    5659      REAL(wp), ALLOCATABLE, DIMENSION(:,:,:,:) ::   ztrtrd 
    5760      INTEGER :: jn                   ! Local loop index 
     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='TRC_BBL' 
     66 
     67      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     68 
    5869      !!---------------------------------------------------------------------- 
    5970      ! 
    … …  
    102113      IF( nn_timing == 1 ) CALL timing_stop('trc_bbl') 
    103114      ! 
     115      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    104116   END SUBROUTINE trc_bbl 
    105117 
    … …  
    110122CONTAINS 
    111123   SUBROUTINE trc_bbl( kt )              ! Empty routine 
     124      USE yomhook, ONLY: lhook, dr_hook 
     125      USE parkind1, ONLY: jprb, jpim 
     126 
    112127      IMPLICIT NONE 
    113128      INTEGER, INTENT(in) ::   kt    ! ocean time-step index 
     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='TRC_BBL' 
     134 
     135      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     136 
    114137      WRITE(*,*) 'tra_bbl: You should not have seen this print! error?', kt 
     138      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    115139   END SUBROUTINE trc_bbl 
    116140#endif 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/TRP/trcdmp.F90

    r6793 r11738  
    2626   USE iom 
    2727 
     28   USE yomhook, ONLY: lhook, dr_hook 
     29   USE parkind1, ONLY: jprb, jpim 
     30 
    2831   IMPLICIT NONE 
    2932   PRIVATE 
    … …  
    4952 
    5053   INTEGER FUNCTION trc_dmp_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='TRC_DMP_ALLOC' 
     59 
     60   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     61 
    5162      !!---------------------------------------------------------------------- 
    5263      !!                   ***  ROUTINE trc_dmp_alloc  *** 
    … …  
    5667      IF( trc_dmp_alloc /= 0 )   CALL ctl_warn('trc_dmp_alloc: failed to allocate array') 
    5768      ! 
     69   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    5870   END FUNCTION trc_dmp_alloc 
    5971 
    … …  
    8698      REAL(wp), POINTER, DIMENSION(:,:,:) ::   ztrtrd 
    8799      REAL(wp), POINTER, DIMENSION(:,:,:) ::  ztrcdta   ! 3D  workspace 
     100      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     101      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     102      REAL(KIND=jprb)               :: zhook_handle 
     103 
     104      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_DMP' 
     105 
     106      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     107 
    88108      !!---------------------------------------------------------------------- 
    89109      ! 
    … …  
    168188      IF( nn_timing == 1 )  CALL timing_stop('trc_dmp') 
    169189      ! 
     190      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    170191   END SUBROUTINE trc_dmp 
    171192 
    … …  
    187208      INTEGER :: isrow                                      ! local index 
    188209      REAL(wp), POINTER, DIMENSION(:,:,:) ::  ztrcdta       ! 3D  workspace 
     210      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     211      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     212      REAL(KIND=jprb)               :: zhook_handle 
     213 
     214      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_DMP_CLO' 
     215 
     216      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     217 
    189218 
    190219      !!---------------------------------------------------------------------- 
    … …  
    319348      ENDIF 
    320349      ! 
     350      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    321351   END SUBROUTINE trc_dmp_clo 
    322352 
    … …  
    333363      ! 
    334364      INTEGER :: imask  !local file handle 
     365      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     366      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     367      REAL(KIND=jprb)               :: zhook_handle 
     368 
     369      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_DMP_INIT' 
     370 
     371      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     372 
    335373 
    336374      IF( nn_timing == 1 )  CALL timing_start('trc_dmp_init') 
    … …  
    360398      IF( nn_timing == 1 )  CALL timing_stop('trc_dmp_init') 
    361399      ! 
     400      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    362401   END SUBROUTINE trc_dmp_init 
    363402 
    … …  
    369408   SUBROUTINE trc_dmp( kt )        ! Empty routine 
    370409      INTEGER, INTENT(in) :: kt 
     410      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     411      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     412      REAL(KIND=jprb)               :: zhook_handle 
     413 
     414      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_DMP' 
     415 
     416      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     417 
    371418      WRITE(*,*) 'trc_dmp: You should not have seen this print! error?', kt 
     419      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    372420   END SUBROUTINE trc_dmp 
    373421#endif 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/TRP/trcldf.F90

    r7771 r11738  
    2929   USE prtctl_trc      ! Print control 
    3030 
     31   USE yomhook, ONLY: lhook, dr_hook 
     32   USE parkind1, ONLY: jprb, jpim 
     33 
    3134   IMPLICIT NONE 
    3235   PRIVATE 
    … …  
    6063      CHARACTER (len=22) :: charout 
    6164      REAL(wp), ALLOCATABLE, DIMENSION(:,:,:,:) ::   ztrtrd 
     65      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     66      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     67      REAL(KIND=jprb)               :: zhook_handle 
     68 
     69      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_LDF' 
     70 
     71      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     72 
    6273      !!---------------------------------------------------------------------- 
    6374      ! 
    … …  
    130141      IF( nn_timing == 1 )   CALL timing_stop('trc_ldf') 
    131142      ! 
     143      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    132144   END SUBROUTINE trc_ldf 
    133145 
    … …  
    148160      !!---------------------------------------------------------------------- 
    149161      INTEGER ::   ioptio, ierr         ! temporary integers 
     162      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     163      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     164      REAL(KIND=jprb)               :: zhook_handle 
     165 
     166      CHARACTER(LEN=*), PARAMETER :: RoutineName='LDF_CTL' 
     167 
     168      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     169 
    150170      !!---------------------------------------------------------------------- 
    151171 
    … …  
    266286      ENDIF 
    267287      ! 
     288      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    268289   END SUBROUTINE ldf_ctl 
    269290#else 
    … …  
    274295   SUBROUTINE trc_ldf( kt ) 
    275296      INTEGER, INTENT(in) :: kt 
     297      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     298      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     299      REAL(KIND=jprb)               :: zhook_handle 
     300 
     301      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_LDF' 
     302 
     303      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     304 
    276305      WRITE(*,*) 'trc_ldf: You should not have seen this print! error?', kt 
     306      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    277307   END SUBROUTINE trc_ldf 
    278308#endif 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/TRP/trcnam_trp.F90

    r6498 r11738  
    1616   USE in_out_manager      ! ocean dynamics and active tracers variables 
    1717   USE lib_mpp           ! distributed memory computing library 
     18 
     19   USE yomhook, ONLY: lhook, dr_hook 
     20   USE parkind1, ONLY: jprb, jpim 
    1821 
    1922   IMPLICIT NONE 
    … …  
    8184      NAMELIST/namtrc_rad/ ln_trcrad 
    8285      NAMELIST/namtrc_dmp/ nn_zdmp_tr , cn_resto_tr 
     86      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     87      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     88      REAL(KIND=jprb)               :: zhook_handle 
     89 
     90      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_NAM_TRP' 
     91 
     92      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     93 
    8394      !!---------------------------------------------------------------------- 
    8495 
    … …  
    185196      ENDIF 
    186197      ! 
     198      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    187199   END SUBROUTINE trc_nam_trp 
    188200    
    … …  
    193205CONTAINS 
    194206   SUBROUTINE trc_nam_trp              ! Empty routine 
     207   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     208   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     209   REAL(KIND=jprb)               :: zhook_handle 
     210 
     211   CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_NAM_TRP' 
     212 
     213   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     214 
     215   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    195216   END SUBROUTINE trc_nam_trp 
    196217#endif 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/TRP/trcnxt.F90

    r9163 r11738  
    3939# endif 
    4040 
     41   USE yomhook, ONLY: lhook, dr_hook 
     42   USE parkind1, ONLY: jprb, jpim 
     43 
    4144   IMPLICIT NONE 
    4245   PRIVATE 
    … …  
    5760 
    5861   INTEGER FUNCTION trc_nxt_alloc() 
     62   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     63   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     64   REAL(KIND=jprb)               :: zhook_handle 
     65 
     66   CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_NXT_ALLOC' 
     67 
     68   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     69 
    5970      !!---------------------------------------------------------------------- 
    6071      !!                   ***  ROUTINE trc_nxt_alloc  *** 
    … …  
    6475      IF( trc_nxt_alloc /= 0 )   CALL ctl_warn('trc_nxt_alloc : failed to allocate array') 
    6576      ! 
     77   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    6678   END FUNCTION trc_nxt_alloc 
    6779 
    … …  
    97109      CHARACTER (len=22) :: charout 
    98110      REAL(wp), POINTER, DIMENSION(:,:,:,:) ::  ztrdt  
     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='TRC_NXT' 
     116 
     117      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     118 
    99119      !!---------------------------------------------------------------------- 
    100120      ! 
    … …  
    211231      IF( nn_timing == 1 )  CALL timing_stop('trc_nxt') 
    212232      ! 
     233      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    213234   END SUBROUTINE trc_nxt 
    214235 
    … …  
    220241   SUBROUTINE trc_nxt( kt )   
    221242      INTEGER, INTENT(in) :: kt 
     243      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     244      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     245      REAL(KIND=jprb)               :: zhook_handle 
     246 
     247      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_NXT' 
     248 
     249      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     250 
    222251      WRITE(*,*) 'trc_nxt: You should not have seen this print! error?', kt 
     252      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    223253   END SUBROUTINE trc_nxt 
    224254#endif 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/TRP/trcrad.F90

    r7203 r11738  
    1919   USE prtctl_trc          ! Print control for debbuging 
    2020 
     21   USE yomhook, ONLY: lhook, dr_hook 
     22   USE parkind1, ONLY: jprb, jpim 
     23 
    2124   IMPLICIT NONE 
    2225   PRIVATE 
    … …  
    5154      INTEGER, INTENT( in ) ::   kt   ! ocean time-step index       
    5255      CHARACTER (len=22) :: charout 
     56      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     57      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     58      REAL(KIND=jprb)               :: zhook_handle 
     59 
     60      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_RAD' 
     61 
     62      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     63 
    5364      !!---------------------------------------------------------------------- 
    5465      ! 
    … …  
    7586      IF( nn_timing == 1 )  CALL timing_stop('trc_rad') 
    7687      ! 
     88      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    7789   END SUBROUTINE trc_rad 
    7890 
    … …  
    112124      REAL(wp) :: zs2rdt 
    113125      LOGICAL ::   lldebug = .FALSE. 
     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='TRC_RAD_SMS' 
     131 
     132      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     133 
    114134      !!---------------------------------------------------------------------- 
    115135 
    … …  
    198218      IF( l_trdtrc )  CALL wrk_dealloc( jpi, jpj, jpk, ztrtrdb, ztrtrdn ) 
    199219 
     220      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    200221   END SUBROUTINE trc_rad_sms 
    201222#else 
    … …  
    206227   SUBROUTINE trc_rad( kt )              ! Empty routine 
    207228      INTEGER, INTENT(in) ::   kt 
     229      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     230      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     231      REAL(KIND=jprb)               :: zhook_handle 
     232 
     233      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_RAD' 
     234 
     235      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     236 
    208237      WRITE(*,*) 'trc_rad: You should not have seen this print! error?', kt 
     238      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    209239   END SUBROUTINE trc_rad 
    210240#endif 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/TRP/trcsbc.F90

    r9163 r11738  
    2222   USE trd_oce 
    2323   USE trdtra 
     24 
     25   USE yomhook, ONLY: lhook, dr_hook 
     26   USE parkind1, ONLY: jprb, jpim 
    2427 
    2528   IMPLICIT NONE 
    … …  
    6972      REAL(wp), POINTER, DIMENSION(:,:  ) :: zsfx 
    7073      REAL(wp), POINTER, DIMENSION(:,:,:) :: ztrtrd 
     74      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     75      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     76      REAL(KIND=jprb)               :: zhook_handle 
     77 
     78      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_SBC' 
     79 
     80      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     81 
    7182 
    7283      !!--------------------------------------------------------------------- 
    … …  
    215226      IF( nn_timing == 1 )  CALL timing_stop('trc_sbc') 
    216227      ! 
     228      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    217229   END SUBROUTINE trc_sbc 
    218230 
    … …  
    224236   SUBROUTINE trc_sbc (kt)              ! Empty routine 
    225237      INTEGER, INTENT(in) :: kt 
     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='TRC_SBC' 
     243 
     244      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     245 
    226246      WRITE(*,*) 'trc_sbc: You should not have seen this print! error?', kt 
     247      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    227248   END SUBROUTINE trc_sbc 
    228249#endif 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/TRP/trctrp.F90

    r9163 r11738  
    3737#endif 
    3838 
     39   USE yomhook, ONLY: lhook, dr_hook 
     40   USE parkind1, ONLY: jprb, jpim 
     41 
    3942   IMPLICIT NONE 
    4043   PRIVATE 
    … …  
    6265      !!---------------------------------------------------------------------- 
    6366      INTEGER, INTENT( in ) ::  kstp  ! ocean time-step index 
     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='TRC_TRP' 
     72 
     73      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     74 
    6475      !! --------------------------------------------------------------------- 
    6576      ! 
    … …  
    1161279400  FORMAT(a25,i4,D23.16) 
    117128      ! 
     129      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    118130   END SUBROUTINE trc_trp 
    119131 
    … …  
    125137   SUBROUTINE trc_trp( kstp )              ! Empty routine 
    126138      INTEGER, INTENT(in) ::   kstp 
     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='TRC_TRP' 
     144 
     145      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     146 
    127147      WRITE(*,*) 'trc_trp: You should not have seen this print! error?', kstp 
     148      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    128149   END SUBROUTINE trc_trp 
    129150#endif 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/TRP/trczdf.F90

    r9163 r11738  
    2424   USE prtctl_trc      ! Print control 
    2525 
     26   USE yomhook, ONLY: lhook, dr_hook 
     27   USE parkind1, ONLY: jprb, jpim 
     28 
    2629   IMPLICIT NONE 
    2730   PRIVATE 
    … …  
    4750    
    4851   INTEGER FUNCTION trc_zdf_alloc() 
     52   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     53   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     54   REAL(KIND=jprb)               :: zhook_handle 
     55 
     56   CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_ZDF_ALLOC' 
     57 
     58   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     59 
    4960      !!---------------------------------------------------------------------- 
    5061      !!                  ***  ROUTINE trc_zdf_alloc  *** 
    … …  
    5465      IF( trc_zdf_alloc /= 0 )   CALL ctl_warn('trc_zdf_alloc : failed to allocate array.') 
    5566      ! 
     67   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    5668   END FUNCTION trc_zdf_alloc 
    5769 
    … …  
    6880      CHARACTER (len=22)    :: charout 
    6981      REAL(wp), POINTER, DIMENSION(:,:,:,:) ::   ztrtrd   ! 4D workspace 
     82      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     83      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     84      REAL(KIND=jprb)               :: zhook_handle 
     85 
     86      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_ZDF' 
     87 
     88      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     89 
    7090      !!--------------------------------------------------------------------- 
    7191      ! 
    … …  
    128148      IF( nn_timing == 1 )  CALL timing_stop('trc_zdf') 
    129149      ! 
     150      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    130151   END SUBROUTINE trc_zdf 
    131152 
    132153 
    133154   SUBROUTINE zdf_ctl 
     155   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     156   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     157   REAL(KIND=jprb)               :: zhook_handle 
     158 
     159   CHARACTER(LEN=*), PARAMETER :: RoutineName='ZDF_CTL' 
     160 
     161   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     162 
    134163      !!---------------------------------------------------------------------- 
    135164      !!                 ***  ROUTINE zdf_ctl  *** 
    … …  
    178207      ENDIF 
    179208 
     209   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    180210   END SUBROUTINE zdf_ctl 
    181211#else 
    … …  
    186216   SUBROUTINE trc_zdf( kt ) 
    187217      INTEGER, INTENT(in) :: kt   
     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='TRC_ZDF' 
     223 
     224      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     225 
    188226      WRITE(*,*) 'trc_zdf: You should not have seen this print! error?', kt 
     227      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    189228   END SUBROUTINE trc_zdf 
    190229#endif 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/TRP/trdmxl_trc_rst.F90

    r6486 r11738  
    1313   USE trc             ! for nn_dttrc ctrcnm 
    1414   USE trdmxl_trc_oce  ! for lk_trdmxl_trc 
     15 
     16   USE yomhook, ONLY: lhook, dr_hook 
     17   USE parkind1, ONLY: jprb, jpim 
    1518 
    1619   IMPLICIT NONE 
    … …  
    4346      CHARACTER (len=35) :: charout 
    4447      INTEGER :: jl,  jk, jn               ! loop indice 
     48      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     49      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     50      REAL(KIND=jprb)               :: zhook_handle 
     51 
     52      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRD_MXL_TRC_RST_WRITE' 
     53 
     54      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     55 
    4556      !!-------------------------------------------------------------------------------- 
    4657 
    … …  
    121132      ENDIF 
    122133 
     134      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    123135    END SUBROUTINE trd_mxl_trc_rst_write 
    124136 
    … …  
    137149      LOGICAL ::  llok 
    138150      CHARACTER(LEN=256)  ::   clpath   ! full path to restart file 
     151      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     152      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     153      REAL(KIND=jprb)               :: zhook_handle 
     154 
     155      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRD_MXL_TRC_RST_READ' 
     156 
     157      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     158 
    139159      !!----------------------------------------------------------------------------- 
    140160       
    … …  
    206226      ENDIF 
    207227       
     228      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    208229    END SUBROUTINE trd_mxl_trc_rst_read 
    209230   
    … …  
    215236CONTAINS 
    216237  SUBROUTINE trd_mxl_trc_rst_opn( kt ) 
     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='TRD_MXL_TRC_RST_OPN' 
     243 
     244  IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     245 
    217246    WRITE(*,*) 'trd_mxl_trc_rst_opn: You should not have seen this print! error?', kt 
     247  IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    218248  END SUBROUTINE trd_mxl_trc_rst_opn 
    219249  SUBROUTINE trd_mxl_trc_rst_write( kt )           !  No ML diags ==> empty routine 
     250  INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     251  INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     252  REAL(KIND=jprb)               :: zhook_handle 
     253 
     254  CHARACTER(LEN=*), PARAMETER :: RoutineName='TRD_MXL_TRC_RST_WRITE' 
     255 
     256  IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     257 
    220258    WRITE(*,*) 'trd_mxl_trc_rst_wri: You should not have seen this print! error?', kt 
     259  IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    221260  END SUBROUTINE trd_mxl_trc_rst_write 
    222261  SUBROUTINE trd_mxl_trc_rst_read                  !  No ML Diags ==> empty routine 
     262  INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     263  INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     264  REAL(KIND=jprb)               :: zhook_handle 
     265 
     266  CHARACTER(LEN=*), PARAMETER :: RoutineName='TRD_MXL_TRC_RST_READ' 
     267 
     268  IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     269 
     270  IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    223271  END SUBROUTINE trd_mxl_trc_rst_read 
    224272#endif 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/TRP/trdtrc.F90

    r9163 r11738  
    2323# endif 
    2424 
     25   USE yomhook, ONLY: lhook, dr_hook 
     26   USE parkind1, ONLY: jprb, jpim 
     27 
    2528   IMPLICIT NONE 
    2629   PRIVATE 
    … …  
    5154      REAL(wp), DIMENSION(jpi,jpj,jpk), INTENT( inout )  ::   ptrtrd  ! Temperature or U trend 
    5255      CHARACTER (len=20) :: cltra 
     56      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     57      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     58      REAL(KIND=jprb)               :: zhook_handle 
     59 
     60      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRD_TRC_TRP' 
     61 
     62      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     63 
    5364      !!---------------------------------------------------------------------- 
    5465 
    … …  
    158169      END IF 
    159170 
     171      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    160172   END SUBROUTINE trd_trc_trp 
    161173 
    … …  
    168180      INTEGER, INTENT( in )  ::   ktrd                                ! bio trend index 
    169181      REAL(wp), DIMENSION(jpi,jpj,jpk), INTENT( inout )  ::   ptrbio  ! Bio trend 
     182      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     183      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     184      REAL(KIND=jprb)               :: zhook_handle 
     185 
     186      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRD_TRC_BIO' 
     187 
     188      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     189 
    170190      !!---------------------------------------------------------------------- 
    171191 
    … …  
    174194#endif 
    175195 
     196      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    176197   END SUBROUTINE trd_trc_bio 
    177198 
    … …  
    184205      REAL(wp), DIMENSION(jpi,jpj,jpk), INTENT( inout )  ::   ptrtrd  ! var trend 
    185206      CHARACTER (len=*),INTENT( in ) :: cltra                         ! trend name 
     207      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     208      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     209      REAL(KIND=jprb)               :: zhook_handle 
     210 
     211      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRD_TRC_IOMPUT' 
     212 
     213      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     214 
    186215      !!---------------------------------------------------------------------- 
    187216 
    … …  
    201230      ENDIF 
    202231 
     232      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    203233   END SUBROUTINE trd_trc_iomput 
    204234 
    … …  
    220250      INTEGER               , INTENT( in )     ::   ktrd    ! tracer trend index 
    221251      REAL, DIMENSION(:,:,:), INTENT( inout )  ::   ptrtrd  ! Temperature or U trend 
     252      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     253      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     254      REAL(KIND=jprb)               :: zhook_handle 
     255 
     256      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRD_TRC_TRP' 
     257 
     258      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     259 
    222260      WRITE(*,*) 'trd_trc_trp : You should not have seen this print! error?', ptrtrd(1,1,1) 
    223261      WRITE(*,*) '  "      "      : You should not have seen this print! error?', kjn 
    224262      WRITE(*,*) '  "      "      : You should not have seen this print! error?', ktrd 
    225263      WRITE(*,*) '  "      "      : You should not have seen this print! error?', kt 
     264      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    226265   END SUBROUTINE trd_trc_trp 
    227266 
    … …  
    230269      INTEGER               , INTENT( in )     ::   ktrd    ! tracer trend index 
    231270      REAL, DIMENSION(:,:,:), INTENT( inout )  ::   ptrbio  ! Temperature or U trend 
     271      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     272      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     273      REAL(KIND=jprb)               :: zhook_handle 
     274 
     275      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRD_TRC_BIO' 
     276 
     277      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     278 
    232279      WRITE(*,*) 'trd_trc_trp : You should not have seen this print! error?', ptrbio(1,1,1) 
    233280      WRITE(*,*) '  "      "      : You should not have seen this print! error?', ktrd 
    234281      WRITE(*,*) '  "      "      : You should not have seen this print! error?', kt 
     282      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    235283   END SUBROUTINE trd_trc_bio 
    236284 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/TRP/trdtrc_oce.F90

    r6486 r11738  
    1010   USE par_oce       ! ocean parameters 
    1111   USE par_trc       ! passive tracers parameters 
     12 
     13   USE yomhook, ONLY: lhook, dr_hook 
     14   USE parkind1, ONLY: jprb, jpim 
    1215 
    1316   IMPLICIT NONE 
    … …  
    129132      USE lib_mpp, ONLY: ctl_warn 
    130133      INTEGER :: ierr(2) 
     134      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     135      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     136      REAL(KIND=jprb)               :: zhook_handle 
     137 
     138      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRD_TRC_OCE_ALLOC' 
     139 
     140      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     141 
    131142      !!---------------------------------------------------------------------- 
    132143      ierr(:) = 0 
    … …  
    169180# endif 
    170181      ! 
     182      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    171183   END FUNCTION trd_trc_oce_alloc 
    172184 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/par_trc.F90

    r8442 r11738  
    1919   USE par_idtra     ! Idealize tracer 
    2020   USE par_medusa    ! MEDUSA model 
     21 
     22   USE yomhook, ONLY: lhook, dr_hook 
     23   USE parkind1, ONLY: jprb, jpim 
    2124 
    2225   IMPLICIT NONE 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/prtctl_trc.F90

    r6486 r11738  
    1818   USE oce_trc          ! ocean space and time domain variables 
    1919   USE prtctl           ! print control for OPA 
     20 
     21   USE yomhook, ONLY: lhook, dr_hook 
     22   USE parkind1, ONLY: jprb, jpim 
    2023 
    2124   IMPLICIT NONE 
    … …  
    7376      CHARACTER (len=10) ::   cl2 
    7477      REAL(wp), POINTER, DIMENSION(:,:,:)  :: zmask, ztab3d  
     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='PRT_CTL_TRC' 
     83 
     84      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     85 
    7586      !!---------------------------------------------------------------------- 
    7687 
    … …  
    153164      CALL wrk_dealloc( jpi, jpj, jpk, zmask, ztab3d ) 
    154165      ! 
     166      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    155167   END SUBROUTINE prt_ctl_trc 
    156168 
    … …  
    165177      !!  
    166178      INTEGER ::   js, sind, eind, j_id 
     179      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     180      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     181      REAL(KIND=jprb)               :: zhook_handle 
     182 
     183      CHARACTER(LEN=*), PARAMETER :: RoutineName='PRT_CTL_TRC_INFO' 
     184 
     185      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     186 
    167187      !!---------------------------------------------------------------------- 
    168188 
    … …  
    181201      END DO 
    182202      ! 
     203      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    183204   END SUBROUTINE prt_ctl_trc_info 
    184205 
    … …  
    194215      CHARACTER (len=27) :: clb_name 
    195216      CHARACTER (len=19) :: cl_run 
     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='PRT_CTL_TRC_INIT' 
     222 
     223      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     224 
    196225      !!---------------------------------------------------------------------- 
    197226 
    … …  
    295324      END DO 
    296325      ! 
     326      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    297327   END SUBROUTINE prt_ctl_trc_init 
    298328 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/trc.F90

    r10196 r11738  
    1616   USE par_trc 
    1717    
     18   USE yomhook, ONLY: lhook, dr_hook 
     19   USE parkind1, ONLY: jprb, jpim 
     20 
    1821   IMPLICIT NONE 
    1922   PUBLIC 
    … …  
    268271      !!------------------------------------------------------------------- 
    269272      USE lib_mpp, ONLY: ctl_warn 
     273      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     274      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     275      REAL(KIND=jprb)               :: zhook_handle 
     276 
     277      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_ALLOC' 
     278 
     279      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     280 
    270281      !!------------------------------------------------------------------- 
    271282      ! 
    … …  
    288299 
    289300      ! 
     301      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    290302   END FUNCTION trc_alloc 
    291303 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/trcbc.F90

    r6486 r11738  
    1717   USE lib_mpp       !  MPP library 
    1818   USE fldread       !  read input fields 
     19 
     20   USE yomhook, ONLY: lhook, dr_hook 
     21   USE parkind1, ONLY: jprb, jpim 
    1922 
    2023   IMPLICIT NONE 
    … …  
    7578      !! 
    7679      NAMELIST/namtrc_bc/ cn_dir, sn_trcobc, rn_trofac, sn_trcsbc, rn_trsfac, sn_trccbc, rn_trcfac  
     80      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     81      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     82      REAL(KIND=jprb)               :: zhook_handle 
     83 
     84      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_BC_INIT' 
     85 
     86      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     87 
    7788      !!---------------------------------------------------------------------- 
    7889      IF( nn_timing == 1 )  CALL timing_start('trc_bc_init') 
    … …  
    246257      IF( nn_timing == 1 )  CALL timing_stop('trc_bc_init') 
    247258 
     259      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    248260   END SUBROUTINE trc_bc_init 
    249261 
    … …  
    264276      !! * Arguments 
    265277      INTEGER, INTENT( in ) ::   kt      ! ocean time-step index 
     278      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     279      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     280      REAL(KIND=jprb)               :: zhook_handle 
     281 
     282      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_BC_READ' 
     283 
     284      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     285 
    266286 
    267287      !!--------------------------------------------------------------------- 
    … …  
    297317      !        
    298318 
     319      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    299320   END SUBROUTINE trc_bc_read 
    300321#else 
    … …  
    304325CONTAINS 
    305326   SUBROUTINE trc_bc_read( kt )        ! Empty routine 
     327   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     328   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     329   REAL(KIND=jprb)               :: zhook_handle 
     330 
     331   CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_BC_READ' 
     332 
     333   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     334 
    306335      WRITE(*,*) 'trc_bc_read: You should not have seen this print! error?', kt 
     336   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    307337   END SUBROUTINE trc_bc_read 
    308338#endif 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/trcdia.F90

    r6486 r11738  
    2929   USE lib_mpp   ! MPP library 
    3030 
     31   USE yomhook, ONLY: lhook, dr_hook 
     32   USE parkind1, ONLY: jprb, jpim 
     33 
    3134   IMPLICIT NONE 
    3235   PRIVATE 
    … …  
    6972      ! 
    7073      INTEGER             ::  ierr   ! local integer 
     74      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     75      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     76      REAL(KIND=jprb)               :: zhook_handle 
     77 
     78      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_DIA' 
     79 
     80      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     81 
    7182      !!--------------------------------------------------------------------- 
    7283      ! 
    … …  
    8495      ENDIF 
    8596      ! 
     97      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    8698   END SUBROUTINE trc_dia 
    8799 
    … …  
    110122      REAL(wp) :: zsto, zout, zdt 
    111123      INTEGER  :: iimi, iima, ijmi, ijma, ipk, it, itmod, iiter 
     124      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     125      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     126      REAL(KIND=jprb)               :: zhook_handle 
     127 
     128      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRCDIT_WR' 
     129 
     130      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     131 
    112132      !!---------------------------------------------------------------------- 
    113133 
    … …  
    229249      IF( kt == nitend )   CALL histclo( nit5 ) 
    230250      ! 
     251      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    231252   END SUBROUTINE trcdit_wr 
    232253 
    … …  
    253274      INTEGER  ::   iimi, iima, ijmi, ijma, ipk, it, itmod, iiter 
    254275      REAL(wp) ::   zsto, zout, zdt 
     276      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     277      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     278      REAL(KIND=jprb)               :: zhook_handle 
     279 
     280      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRCDII_WR' 
     281 
     282      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     283 
    255284      !!---------------------------------------------------------------------- 
    256285 
    … …  
    366395      ! 
    367396 
     397      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    368398   END SUBROUTINE trcdii_wr 
    369399 
    … …  
    390420      INTEGER  ::   iimi, iima, ijmi, ijma, ipk, it, itmod, iiter 
    391421      REAL(wp) ::   zsto, zout, zdt 
     422      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     423      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     424      REAL(KIND=jprb)               :: zhook_handle 
     425 
     426      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRCDIB_WR' 
     427 
     428      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     429 
    392430      !!---------------------------------------------------------------------- 
    393431 
    … …  
    478516      IF( kt == nitend )   CALL histclo( nitb ) 
    479517      ! 
     518      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    480519   END SUBROUTINE trcdib_wr 
    481520 
    … …  
    487526   SUBROUTINE trc_dia( kt )                      ! Empty routine    
    488527      INTEGER, INTENT(in) :: kt 
     528      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     529      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     530      REAL(KIND=jprb)               :: zhook_handle 
     531 
     532      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_DIA' 
     533 
     534      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     535 
     536      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    489537   END SUBROUTINE trc_dia    
    490538#endif 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/trcdta.F90

    r6793 r11738  
    2323   USE fldread       !  read input fields 
    2424 
     25   USE yomhook, ONLY: lhook, dr_hook 
     26   USE parkind1, ONLY: jprb, jpim 
     27 
    2528   IMPLICIT NONE 
    2629   PRIVATE 
    … …  
    6871      !! 
    6972      NAMELIST/namtrc_dta/ sn_trcdta, cn_dir, rn_trfac  
     73      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     74      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     75      REAL(KIND=jprb)               :: zhook_handle 
     76 
     77      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_DTA_INIT' 
     78 
     79      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     80 
    7081      !!---------------------------------------------------------------------- 
    7182      ! 
    … …  
    154165      IF( nn_timing == 1 )  CALL timing_stop('trc_dta_init') 
    155166      ! 
     167      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    156168   END SUBROUTINE trc_dta_init 
    157169 
    … …  
    179191      REAL(wp), POINTER, DIMENSION(:,:,:) ::  ztrcdta   ! 3D  workspace 
    180192      CHARACTER(len=100) :: clndta 
     193      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     194      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     195      REAL(KIND=jprb)               :: zhook_handle 
     196 
     197      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_DTA' 
     198 
     199      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     200 
    181201      !!---------------------------------------------------------------------- 
    182202      ! 
    … …  
    271291      IF( nn_timing == 1 )  CALL timing_stop('trc_dta') 
    272292      ! 
     293      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    273294   END SUBROUTINE trc_dta 
    274295#else 
    … …  
    278299CONTAINS 
    279300   SUBROUTINE trc_dta( kt, sf_dta, ptrfac, ptrc)        ! Empty routine 
     301   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     302   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     303   REAL(KIND=jprb)               :: zhook_handle 
     304 
     305   CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_DTA' 
     306 
     307   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     308 
    280309      WRITE(*,*) 'trc_dta: You should not have seen this print! error?', kt 
     310   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    281311   END SUBROUTINE trc_dta 
    282312#endif 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/trcice.F90

    r5385 r11738  
    2020   USE trcice_my_trc   ! MY_TRC   initialisation 
    2121    
     22   USE yomhook, ONLY: lhook, dr_hook 
     23   USE parkind1, ONLY: jprb, jpim 
     24 
    2225   IMPLICIT NONE 
    2326   PRIVATE 
    … …  
    2831    
    2932   SUBROUTINE trc_ice_ini 
     33   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     34   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     35   REAL(KIND=jprb)               :: zhook_handle 
     36 
     37   CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_ICE_INI' 
     38 
     39   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     40 
    3041      !!--------------------------------------------------------------------- 
    3142      !!                     ***  ROUTINE trc_ice_ini *** 
    … …  
    5970      IF( nn_timing == 1 )   CALL timing_stop('trc_ice_ini') 
    6071      ! 
     72   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    6173   END SUBROUTINE trc_ice_ini 
    6274 
    … …  
    6779CONTAINS 
    6880   SUBROUTINE trc_ice_ini                   ! Dummy routine    
     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='TRC_ICE_INI' 
     86 
     87   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     88 
     89   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    6990   END SUBROUTINE trc_ice_ini 
    7091#endif 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/trcini.F90

    r9262 r11738  
    3737   USE trcice          ! tracers in sea ice 
    3838   USE sms_medusa      ! MEDUSA   initialisation 
     39   USE yomhook, ONLY: lhook, dr_hook 
     40   USE parkind1, ONLY: jprb, jpim 
     41 
    3942   IMPLICIT NONE 
    4043   PRIVATE 
    … …  
    7376# endif 
    7477      CHARACTER (len=25) :: charout 
     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='TRC_INIT' 
     83 
     84      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     85 
    7586      !!--------------------------------------------------------------------- 
    7687      ! 
    … …  
    293304      IF( nn_timing == 1 )   CALL timing_stop('trc_init') 
    294305      ! 
     306      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    295307   END SUBROUTINE trc_init 
    296308 
    … …  
    316328      ! 
    317329      INTEGER :: ierr 
     330      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     331      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     332      REAL(KIND=jprb)               :: zhook_handle 
     333 
     334      CHARACTER(LEN=*), PARAMETER :: RoutineName='TOP_ALLOC' 
     335 
     336      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     337 
    318338      !!---------------------------------------------------------------------- 
    319339      ! 
    … …  
    333353      IF( ierr /= 0 )   CALL ctl_stop( 'STOP', 'top_alloc : unable to allocate standard ocean arrays' ) 
    334354      ! 
     355      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    335356   END SUBROUTINE top_alloc 
    336357 
    … …  
    341362CONTAINS 
    342363   SUBROUTINE trc_init                      ! Dummy routine    
     364   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     365   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     366   REAL(KIND=jprb)               :: zhook_handle 
     367 
     368   CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_INIT' 
     369 
     370   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     371 
     372   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    343373   END SUBROUTINE trc_init 
    344374#endif 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/trcnam.F90

    r9163 r11738  
    3333   USE iom               ! I/O manager 
    3434 
     35   USE yomhook, ONLY: lhook, dr_hook 
     36   USE parkind1, ONLY: jprb, jpim 
     37 
    3538   IMPLICIT NONE 
    3639   PRIVATE  
    … …  
    6972      INTEGER  ::   jn, jk              ! dummy loop indice 
    7073      INTEGER  ::   ios                 ! Local integer output status for namelist read 
     74      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     75      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     76      REAL(KIND=jprb)               :: zhook_handle 
     77 
     78      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_NAM' 
     79 
     80      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     81 
    7182      !!--------------------------------------------------------------------- 
    7283 
    … …  
    202213      ENDIF 
    203214      ! 
     215      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    204216   END SUBROUTINE trc_nam 
    205217 
    … …  
    216228 
    217229      INTEGER  ::   ios                 ! Local integer output status for namelist read 
     230      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     231      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     232      REAL(KIND=jprb)               :: zhook_handle 
     233 
     234      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_NAM_RUN' 
     235 
     236      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     237 
    218238 
    219239      !!--------------------------------------------------------------------- 
    … …  
    252272      ENDIF 
    253273      ! 
     274      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    254275    END SUBROUTINE trc_nam_run 
    255276 
    … …  
    270291      TYPE(TRC_I_NML), DIMENSION(jptra) :: sn_tri_tracer 
    271292      NAMELIST/namtrc_ice/ nn_ice_tr, sn_tri_tracer 
     293      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     294      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     295      REAL(KIND=jprb)               :: zhook_handle 
     296 
     297      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_NAM_ICE' 
     298 
     299      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     300 
    272301 
    273302      IF(lwp) THEN 
    … …  
    303332      IF( nn_timing == 1 )   CALL timing_stop('trc_nam_ice') 
    304333      ! 
     334      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    305335   END SUBROUTINE trc_nam_ice 
    306336 
    … …  
    318348      INTEGER  ::   ios                 ! Local integer output status for namelist read 
    319349      INTEGER  ::   jn                  ! dummy loop indice 
     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='TRC_NAM_TRC' 
     355 
     356      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     357 
    320358      !!--------------------------------------------------------------------- 
    321359      IF(lwp) WRITE(numout,*) 
    … …  
    341379      END DO 
    342380       
     381      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    343382    END SUBROUTINE trc_nam_trc 
    344383 
    … …  
    363402 
    364403      INTEGER  ::   ios                 ! Local integer output status for namelist read 
     404      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     405      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     406      REAL(KIND=jprb)               :: zhook_handle 
     407 
     408      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_NAM_DIA' 
     409 
     410      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     411 
    365412      !!--------------------------------------------------------------------- 
    366413 
    … …  
    414461      ENDIF 
    415462      ! 
     463      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    416464   END SUBROUTINE trc_nam_dia 
    417465 
    … …  
    422470CONTAINS 
    423471   SUBROUTINE trc_nam                      ! Empty routine    
     472   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     473   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     474   REAL(KIND=jprb)               :: zhook_handle 
     475 
     476   CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_NAM' 
     477 
     478   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     479 
     480   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    424481   END SUBROUTINE trc_nam 
    425482   SUBROUTINE trc_nam_run                      ! Empty routine    
     483   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     484   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     485   REAL(KIND=jprb)               :: zhook_handle 
     486 
     487   CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_NAM_RUN' 
     488 
     489   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     490 
     491   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    426492   END SUBROUTINE trc_nam_run 
    427493#endif 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/trcrst.F90

    r10047 r11738  
    4646   USE trcstat 
    4747 
     48   USE yomhook, ONLY: lhook, dr_hook 
     49   USE parkind1, ONLY: jprb, jpim 
     50 
    4851   IMPLICIT NONE 
    4952   PRIVATE 
    … …  
    7780      CHARACTER(LEN=50)   ::   clname   ! trc output restart file name 
    7881      CHARACTER(LEN=256)  ::   clpath   ! full path to ocean output restart file 
     82      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     83      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     84      REAL(KIND=jprb)               :: zhook_handle 
     85 
     86      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_RST_OPN' 
     87 
     88      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     89 
    7990      !!---------------------------------------------------------------------- 
    8091      ! 
    … …  
    137148      ENDIF 
    138149      ! 
     150      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    139151   END SUBROUTINE trc_rst_opn 
    140152 
    … …  
    148160      !! AXY (05/11/13): temporary variables 
    149161      REAL(wp) ::    fq0,fq1,fq2 
     162      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     163      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     164      REAL(KIND=jprb)               :: zhook_handle 
     165 
     166      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_RST_READ' 
     167 
     168      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     169 
    150170 
    151171      !!---------------------------------------------------------------------- 
    … …  
    387407#endif 
    388408      ! 
     409      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    389410   END SUBROUTINE trc_rst_read 
    390411 
    … …  
    401422      !! AXY (05/11/13): temporary variables 
    402423      REAL(wp) ::    fq0,fq1,fq2 
     424      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     425      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     426      REAL(KIND=jprb)               :: zhook_handle 
     427 
     428      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_RST_WRI' 
     429 
     430      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     431 
    403432      !!---------------------------------------------------------------------- 
    404433      ! 
    … …  
    556585      ENDIF 
    557586      ! 
     587      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    558588   END SUBROUTINE trc_rst_wri  
    559589 
    … …  
    591621      REAL(wp) ::  zkt, zrdttrc1 
    592622      REAL(wp) ::  zndastp 
     623      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     624      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     625      REAL(KIND=jprb)               :: zhook_handle 
     626 
     627      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_RST_CAL' 
     628 
     629      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     630 
    593631 
    594632      ! Time domain : restart 
    … …  
    669707      ENDIF 
    670708 
     709      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    671710   END SUBROUTINE trc_rst_cal 
    672711 
    … …  
    681720      REAL(wp) :: ztraf, zmin, zmax, zmean, zdrift 
    682721      REAL(wp), DIMENSION(jpi,jpj,jpk) :: zvol 
     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='TRC_RST_STAT' 
     727 
     728      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     729 
    683730      !!---------------------------------------------------------------------- 
    684731 
    … …  
    709756      &      '    max :',e18.10,'    drift :',e18.10, ' %') 
    710757      ! 
     758      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    711759   END SUBROUTINE trc_rst_stat 
    712760 
    … …  
    730778      REAL(wp), DIMENSION(jpi,jpj)     :: z2d, zarea 
    731779      REAL(wp), DIMENSION(6)           :: loc_cycletot3, loc_cycletot2 
     780      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     781      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     782      REAL(KIND=jprb)               :: zhook_handle 
     783 
     784      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_RST_CONSERVE' 
     785 
     786      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     787 
    732788      !!---------------------------------------------------------------------- 
    733789      ! 
    … …  
    855911             ' delta:',e18.10,' %:',e18.10) 
    856912      ! 
     913      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    857914   END SUBROUTINE trc_rst_conserve  
    858915# endif 
    … …  
    865922CONTAINS 
    866923   SUBROUTINE trc_rst_read                      ! Empty routines 
     924   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     925   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     926   REAL(KIND=jprb)               :: zhook_handle 
     927 
     928   CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_RST_READ' 
     929 
     930   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     931 
     932   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    867933   END SUBROUTINE trc_rst_read 
    868934   SUBROUTINE trc_rst_wri( kt ) 
    869935      INTEGER, INTENT ( in ) :: kt 
     936      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     937      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     938      REAL(KIND=jprb)               :: zhook_handle 
     939 
     940      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_RST_WRI' 
     941 
     942      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     943 
    870944      WRITE(*,*) 'trc_rst_wri: You should not have seen this print! error?', kt 
     945      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    871946   END SUBROUTINE trc_rst_wri    
    872947#endif 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/trcsms.F90

    r8442 r11738  
    2424   USE prtctl_trc         ! Print control for debbuging 
    2525 
     26   USE yomhook, ONLY: lhook, dr_hook 
     27   USE parkind1, ONLY: jprb, jpim 
     28 
    2629   IMPLICIT NONE 
    2730   PRIVATE 
    … …  
    4750      !! 
    4851      CHARACTER (len=25) :: charout 
     52      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     53      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     54      REAL(KIND=jprb)               :: zhook_handle 
     55 
     56      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_SMS' 
     57 
     58      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     59 
    4960      !!--------------------------------------------------------------------- 
    5061      ! 
    … …  
    6778      IF( nn_timing == 1 )   CALL timing_stop('trc_sms') 
    6879      ! 
     80      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    6981   END SUBROUTINE trc_sms 
    7082 
    … …  
    7688   SUBROUTINE trc_sms( kt )                   ! Empty routine 
    7789      INTEGER, INTENT( in ) ::   kt 
     90      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     91      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     92      REAL(KIND=jprb)               :: zhook_handle 
     93 
     94      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_SMS' 
     95 
     96      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     97 
    7898      WRITE(*,*) 'trc_sms: You should not have seen this print! error?', kt 
     99      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    79100   END SUBROUTINE trc_sms 
    80101#endif  

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/trcstat.F90

    r10047 r11738  
    3737   USE lib_fortran 
    3838 
     39   USE yomhook, ONLY: lhook, dr_hook 
     40   USE parkind1, ONLY: jprb, jpim 
     41 
    3942   IMPLICIT NONE 
    4043   PRIVATE 
    … …  
    5760      REAL(wp) :: ztraf, zmin, zmax, zmean, zdrift, areasf 
    5861      REAL(wp), DIMENSION(jpi,jpj) :: zvol 
     62      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     63      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     64      REAL(KIND=jprb)               :: zhook_handle 
     65 
     66      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_RST_TRA_STAT' 
     67 
     68      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     69 
    5970      !!---------------------------------------------------------------------- 
    6071 
    … …  
    8293      &      '    max :',e18.10) 
    8394      ! 
     95      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    8496   END SUBROUTINE trc_rst_tra_stat 
    8597 
    … …  
    99111      REAL(wp) :: ztraf, zmin, zmax, zmean, areasf 
    100112      REAL(wp), DIMENSION(jpi,jpj) :: zvol 
     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='TRC_RST_DIA_STAT' 
     118 
     119      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     120 
    101121      !!---------------------------------------------------------------------- 
    102122 
    … …  
    131151      &      '    max :',e18.10 ) 
    132152      ! 
     153      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    133154   END SUBROUTINE trc_rst_dia_stat 
    134155 
    … …  
    140161CONTAINS 
    141162   SUBROUTINE trc_rst_dia_stat                      ! Empty routines 
     163   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     164   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     165   REAL(KIND=jprb)               :: zhook_handle 
     166 
     167   CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_RST_DIA_STAT' 
     168 
     169   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     170 
    142171      WRITE(*,*) 'trc_rst_wri: You should not have seen this print! error?' 
     172   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    143173   END SUBROUTINE trc_rst_dia_stat 
    144174   SUBROUTINE trc_rst_dia_stat( dgtr, names) 
    145175      REAL(wp), DIMENSION(jpi,jpj) , INTENT(in) ::   dgtr      ! 2D diag var 
    146176      CHARACTER(len=*)             , INTENT(in) ::   names     ! 2D diag name 
     177      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     178      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     179      REAL(KIND=jprb)               :: zhook_handle 
     180 
     181      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_RST_DIA_STAT' 
     182 
     183      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     184 
    147185      WRITE(*,*) 'trc_rst_wri: You should not have seen this print! error?' 
     186      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    148187   END SUBROUTINE trc_rst_dia_stat   
    149188#endif 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/trcstp.F90

    r9237 r11738  
    2626   USE trcsub 
    2727 
     28   USE yomhook, ONLY: lhook, dr_hook 
     29   USE parkind1, ONLY: jprb, jpim 
     30 
    2831   IMPLICIT NONE 
    2932   PRIVATE 
    … …  
    6366      REAL(wp)              ::  ztrai 
    6467      CHARACTER (len=25)    ::  charout  
     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='TRC_STP' 
     73 
     74      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     75 
    6576      !!------------------------------------------------------------------- 
    6677      ! 
    … …  
    140151      IF( nn_timing == 1 )   CALL timing_stop('trc_stp') 
    141152      ! 
     153      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    142154   END SUBROUTINE trc_stp 
    143155 
    … …  
    159171      CHARACTER(len=1)               ::   cl1                      ! 1 character 
    160172      CHARACTER(len=2)               ::   cl2                      ! 2 characters 
     173      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     174      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     175      REAL(KIND=jprb)               :: zhook_handle 
     176 
     177      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_MEAN_QSR' 
     178 
     179      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     180 
    161181 
    162182      IF( kt == nittrc000 ) THEN 
    … …  
    238258      ENDIF 
    239259      ! 
     260      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    240261   END SUBROUTINE trc_mean_qsr 
    241262 
    … …  
    246267CONTAINS 
    247268   SUBROUTINE trc_stp( kt )        ! Empty routine 
     269   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     270   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     271   REAL(KIND=jprb)               :: zhook_handle 
     272 
     273   CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_STP' 
     274 
     275   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     276 
    248277      WRITE(*,*) 'trc_stp: You should not have seen this print! error?', kt 
     278   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    249279   END SUBROUTINE trc_stp 
    250280#endif 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/trcsub.F90

    r6486 r11738  
    3333#endif 
    3434 
     35   USE yomhook, ONLY: lhook, dr_hook 
     36   USE parkind1, ONLY: jprb, jpim 
     37 
    3538   IMPLICIT NONE 
    3639 
    … …  
    6568      INTEGER               ::  ji,jj,jk  ! dummy loop indices 
    6669      REAL(wp)              ::  z1_ne3t, z1_ne3u, z1_ne3v, z1_ne3w 
     70      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     71      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     72      REAL(KIND=jprb)               :: zhook_handle 
     73 
     74      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_SUB_STP' 
     75 
     76      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     77 
    6778      !!------------------------------------------------------------------- 
    6879      ! 
    … …  
    275286      IF( nn_timing == 1 )  CALL timing_start('trc_sub_stp') 
    276287      ! 
     288      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    277289   END SUBROUTINE trc_sub_stp 
    278290 
    … …  
    287299      !!------------------------------------------------------------------- 
    288300      INTEGER ::   ierr 
     301      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     302      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     303      REAL(KIND=jprb)               :: zhook_handle 
     304 
     305      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_SUB_INI' 
     306 
     307      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     308 
    289309      !!------------------------------------------------------------------- 
    290310      ! 
    … …  
    338358      IF( nn_timing == 1 )  CALL timing_stop('trc_sub_ini') 
    339359      ! 
     360      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    340361   END SUBROUTINE trc_sub_ini 
    341362 
    … …  
    351372      INTEGER, INTENT( in ) ::  kt  ! ocean time-step index 
    352373      INTEGER :: jk                 ! dummy loop indices 
     374      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     375      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     376      REAL(KIND=jprb)               :: zhook_handle 
     377 
     378      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_SUB_RESET' 
     379 
     380      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     381 
    353382      !!------------------------------------------------------------------- 
    354383      ! 
    … …  
    443472      IF( nn_timing == 1 )  CALL timing_stop('trc_sub_reset') 
    444473      ! 
     474      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    445475   END SUBROUTINE trc_sub_reset 
    446476 
    … …  
    470500      REAL(wp) ::   zcoefu, zcoefv, zcoeff, z2dt, z1_2dt, z1_rau0   ! local scalars 
    471501      REAL(wp), POINTER, DIMENSION(:,:) :: zhdiv 
     502      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     503      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     504      REAL(KIND=jprb)               :: zhook_handle 
     505 
     506      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_SUB_SSH' 
     507 
     508      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     509 
    472510      !!--------------------------------------------------------------------- 
    473511      ! 
    … …  
    536574      IF( nn_timing == 1 )  CALL timing_stop('trc_sub_ssh') 
    537575      ! 
     576      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    538577   END SUBROUTINE trc_sub_ssh 
    539578 
    … …  
    544583      USE lib_mpp, ONLY: ctl_warn 
    545584      INTEGER ::  ierr 
     585      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     586      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     587      REAL(KIND=jprb)               :: zhook_handle 
     588 
     589      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_SUB_ALLOC' 
     590 
     591      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     592 
    546593      !!------------------------------------------------------------------- 
    547594      ! 
    … …  
    590637 
    591638      ! 
     639      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    592640   END FUNCTION trc_sub_alloc 
    593641 
    … …  
    598646CONTAINS 
    599647   SUBROUTINE trc_sub_stp( kt )        ! Empty routine 
     648   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     649   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     650   REAL(KIND=jprb)               :: zhook_handle 
     651 
     652   CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_SUB_STP' 
     653 
     654   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     655 
    600656      WRITE(*,*) 'trc_sub_stp: You should not have seen this print! error?', kt 
     657   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    601658   END SUBROUTINE trc_sub_stp 
    602659   SUBROUTINE trc_sub_ini        ! Empty routine 
     660   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     661   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     662   REAL(KIND=jprb)               :: zhook_handle 
     663 
     664   CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_SUB_INI' 
     665 
     666   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     667 
    603668      WRITE(*,*) 'trc_sub_ini: You should not have seen this print! error?', kt 
     669   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    604670   END SUBROUTINE trc_sub_ini 
    605671 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/trcwri.F90

    r8442 r11738  
    2626   USE trcwri_medusa 
    2727 
     28   USE yomhook, ONLY: lhook, dr_hook 
     29   USE parkind1, ONLY: jprb, jpim 
     30 
    2831   IMPLICIT NONE 
    2932   PRIVATE 
    … …  
    4851      CHARACTER (len=40)        :: clhstnam 
    4952      INTEGER ::   inum = 11            ! temporary logical unit 
     53      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     54      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     55      REAL(KIND=jprb)               :: zhook_handle 
     56 
     57      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_WRI' 
     58 
     59      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     60 
    5061      !!--------------------------------------------------------------------- 
    5162      ! 
    … …  
    7081      IF( nn_timing == 1 )  CALL timing_stop('trc_wri') 
    7182      ! 
     83      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    7284   END SUBROUTINE trc_wri 
    7385 
    … …  
    8092   SUBROUTINE trc_wri( kt )                     ! Empty routine    
    8193   INTEGER, INTENT(in) :: kt 
     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='TRC_WRI' 
     99 
     100   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     101 
     102   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    82103   END SUBROUTINE trc_wri 
    83104#endif 
Note: See TracChangeset for help on using the changeset viewer.