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

The Dr Hook changes from my perl code.

Location:
branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/TRD
Files:
13 edited

Legend:

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

    r9163 r11738  
    99   USE trdmxl_oce              ! ocean active mixed layer tracers trends variables 
    1010   USE trdvor_oce              ! ocean vorticity trends variables 
     11 
     12   USE yomhook, ONLY: lhook, dr_hook 
     13   USE parkind1, ONLY: jprb, jpim 
    1114 
    1215   IMPLICIT NONE 
  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/TRD/trddyn.F90

    r6486 r11738  
    3030   USE wrk_nemo       ! Memory allocation 
    3131 
     32   USE yomhook, ONLY: lhook, dr_hook 
     33   USE parkind1, ONLY: jprb, jpim 
     34 
    3235   IMPLICIT NONE 
    3336   PRIVATE 
     
    5659      INTEGER                   , INTENT(in   ) ::   ktrd           ! trend index 
    5760      INTEGER                   , INTENT(in   ) ::   kt             ! time step 
     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='TRD_DYN' 
     66 
     67      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     68 
    5869      !!---------------------------------------------------------------------- 
    5970      ! 
     
    89100!!gm      IF( ln_dyn_mxl )   CALL trd_mxl_dyn    
    90101      ! 
     102      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    91103   END SUBROUTINE trd_dyn 
    92104 
     
    106118      REAL(wp), POINTER, DIMENSION(:,:)   ::   z2dx, z2dy   ! 2D workspace  
    107119      REAL(wp), POINTER, DIMENSION(:,:,:) ::   z3dx, z3dy   ! 3D workspace  
     120      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     121      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     122      REAL(KIND=jprb)               :: zhook_handle 
     123 
     124      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRD_DYN_IOM' 
     125 
     126      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     127 
    108128      !!---------------------------------------------------------------------- 
    109129      ! 
     
    177197      END SELECT 
    178198      ! 
     199      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    179200   END SUBROUTINE trd_dyn_iom 
    180201 
  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/TRD/trdglo.F90

    r6486 r11738  
    3131   USE wrk_nemo        ! Memory allocation 
    3232 
     33   USE yomhook, ONLY: lhook, dr_hook 
     34   USE parkind1, ONLY: jprb, jpim 
     35 
    3336   IMPLICIT NONE 
    3437   PRIVATE 
     
    7982      REAL(wp)::   zvm, zvt, zvs, z1_2rau0   ! local scalars 
    8083      REAL(wp), POINTER, DIMENSION(:,:)  :: ztswu, ztswv, z2dx, z2dy   ! 2D workspace  
     84      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     85      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     86      REAL(KIND=jprb)               :: zhook_handle 
     87 
     88      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRD_GLO' 
     89 
     90      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     91 
    8192      !!---------------------------------------------------------------------- 
    8293 
     
    181192      CALL wrk_dealloc( jpi, jpj, ztswu, ztswv, z2dx, z2dy ) 
    182193      ! 
     194      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    183195   END SUBROUTINE trd_glo 
    184196 
     
    195207      REAL(wp) ::   zcof         ! local scalar 
    196208      REAL(wp), POINTER, DIMENSION(:,:,:)  ::  zkx, zky, zkz, zkepe   
     209      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     210      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     211      REAL(KIND=jprb)               :: zhook_handle 
     212 
     213      CHARACTER(LEN=*), PARAMETER :: RoutineName='GLO_DYN_WRI' 
     214 
     215      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     216 
    197217      !!---------------------------------------------------------------------- 
    198218 
     
    375395      CALL wrk_dealloc( jpi, jpj, jpk, zkx, zky, zkz, zkepe ) 
    376396      ! 
     397      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    377398   END SUBROUTINE glo_dyn_wri 
    378399 
     
    387408      ! 
    388409      INTEGER  ::   jk   ! loop indices 
     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='GLO_TRA_WRI' 
     415 
     416      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     417 
    389418      !!---------------------------------------------------------------------- 
    390419 
     
    508537      ENDIF 
    509538      ! 
     539      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    510540   END SUBROUTINE glo_tra_wri 
    511541 
     
    518548      !!---------------------------------------------------------------------- 
    519549      INTEGER  ::   ji, jj, jk   ! dummy loop indices 
     550      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     551      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     552      REAL(KIND=jprb)               :: zhook_handle 
     553 
     554      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRD_GLO_INIT' 
     555 
     556      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     557 
    520558      !!---------------------------------------------------------------------- 
    521559 
     
    559597      ENDIF 
    560598      ! 
     599      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    561600   END SUBROUTINE trd_glo_init 
    562601 
  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/TRD/trdini.F90

    r7061 r11738  
    1919   USE in_out_manager ! I/O manager 
    2020   USE lib_mpp        ! MPP library 
     21 
     22   USE yomhook, ONLY: lhook, dr_hook 
     23   USE parkind1, ONLY: jprb, jpim 
    2124 
    2225   IMPLICIT NONE 
     
    4548      NAMELIST/namtrd/ ln_dyn_trd, ln_KE_trd, ln_vor_trd, ln_dyn_mxl,   & 
    4649         &             ln_tra_trd, ln_PE_trd, ln_glo_trd, ln_tra_mxl, nn_trd  
     50         INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     51         INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     52         REAL(KIND=jprb)               :: zhook_handle 
     53 
     54         CHARACTER(LEN=*), PARAMETER :: RoutineName='TRD_INIT' 
     55 
     56         IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     57 
    4758      !!---------------------------------------------------------------------- 
    4859      ! 
     
    102113      IF( ln_PE_trd  )   CALL trd_pen_init      ! 3D Potential  energy trends 
    103114      ! 
     115         IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    104116   END SUBROUTINE trd_init 
    105117 
  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/TRD/trdken.F90

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

    r6487 r11738  
    4040   USE iom 
    4141 
     42   USE yomhook, ONLY: lhook, dr_hook 
     43   USE parkind1, ONLY: jprb, jpim 
     44 
    4245   IMPLICIT NONE 
    4346   PRIVATE 
     
    8386 
    8487   INTEGER FUNCTION trd_mxl_alloc() 
     88   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     89   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     90   REAL(KIND=jprb)               :: zhook_handle 
     91 
     92   CHARACTER(LEN=*), PARAMETER :: RoutineName='TRD_MXL_ALLOC' 
     93 
     94   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     95 
    8596      !!---------------------------------------------------------------------- 
    8697      !!                  ***  ROUTINE trd_mxl_alloc  *** 
     
    90101      IF( lk_mpp             )   CALL mpp_sum ( trd_mxl_alloc ) 
    91102      IF( trd_mxl_alloc /= 0 )   CALL ctl_warn('trd_mxl_alloc: failed to allocate array ndextrd1') 
     103   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    92104   END FUNCTION trd_mxl_alloc 
    93105 
     
    109121      ! 
    110122      INTEGER ::   ji, jj, jk   ! dummy loop indices 
     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='TRD_TRA_MXL' 
     128 
     129      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     130 
    111131      !!---------------------------------------------------------------------- 
    112132 
     
    209229      END SELECT 
    210230      ! 
     231      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    211232   END SUBROUTINE trd_tra_mxl 
    212233 
     
    221242      REAL(wp), DIMENSION(:,:,:), INTENT(inout) ::   ptrdm   ! cumulative trends at kt 
    222243      INTEGER                   , INTENT(in   ) ::   kt      ! time step index 
     244      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     245      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     246      REAL(KIND=jprb)               :: zhook_handle 
     247 
     248      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRD_MEAN' 
     249 
     250      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     251 
    223252      !!---------------------------------------------------------------------- 
    224253      ! 
     
    233262      ENDIF 
    234263      ! 
     264      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    235265   END SUBROUTINE trd_mean 
    236266 
     
    261291      INTEGER ::   ji, jj, jk, isum 
    262292      REAL(wp), POINTER, DIMENSION(:,:)  :: zvlmsk  
     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='TRD_MXL_ZINT' 
     298 
     299      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     300 
    263301      !!---------------------------------------------------------------------- 
    264302 
     
    290328      CALL wrk_dealloc( jpi, jpj, zvlmsk )  
    291329      ! 
     330      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    292331   END SUBROUTINE trd_mxl_zint 
    293332     
     
    349388      REAL(wp), POINTER, DIMENSION(:,:  ) ::  ztmltot2, zsmltot2, ztmlres2, zsmlres2, ztmlatf2, zsmlatf2, ztmltrdm2, zsmltrdm2   
    350389      REAL(wp), POINTER, DIMENSION(:,:,:) ::  ztmltrd2, zsmltrd2   ! only needed for mean diagnostics 
     390      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     391      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     392      REAL(KIND=jprb)               :: zhook_handle 
     393 
     394      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRD_MXL' 
     395 
     396      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     397 
    351398#if defined key_dimgout 
    352399      INTEGER ::  iyear,imon,iday 
     
    736783      CALL wrk_dealloc( jpi, jpj, jpltrd, ztmltrd2, zsmltrd2                                                               ) 
    737784      ! 
     785      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    738786   END SUBROUTINE trd_mxl 
    739787 
     
    755803      NAMELIST/namtrd_mxl/ nn_trd , cn_trdrst_in , ln_trdmxl_restart,       & 
    756804         &                 nn_ctls, cn_trdrst_out, ln_trdmxl_instant, rn_ucf, rn_rho_c 
     805         INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     806         INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     807         REAL(KIND=jprb)               :: zhook_handle 
     808 
     809         CHARACTER(LEN=*), PARAMETER :: RoutineName='TRD_MXL_INIT' 
     810 
     811         IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     812 
    757813      !!---------------------------------------------------------------------- 
    758814      ! 
     
    894950      END IF 
    895951      ! 
     952         IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    896953   END SUBROUTINE trd_mxl_init 
    897954 
  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/TRD/trdmxl_oce.F90

    r6487 r11738  
    88   !!---------------------------------------------------------------------- 
    99   USE par_oce        ! ocean parameters 
     10 
     11   USE yomhook, ONLY: lhook, dr_hook 
     12   USE parkind1, ONLY: jprb, jpim 
    1013 
    1114   IMPLICIT NONE 
     
    9497     USE lib_mpp 
    9598     INTEGER :: ierr(5) 
     99     INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     100     INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     101     REAL(KIND=jprb)               :: zhook_handle 
     102 
     103     CHARACTER(LEN=*), PARAMETER :: RoutineName='TRDMXL_OCE_ALLOC' 
     104 
     105     IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     106 
    96107     !!---------------------------------------------------------------------- 
    97108 
     
    130141      IF( trdmxl_oce_alloc /= 0 )   CALL ctl_warn('trdmxl_oce_alloc: failed to allocate arrays') 
    131142      ! 
     143     IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    132144   END FUNCTION trdmxl_oce_alloc 
    133145 
  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/TRD/trdmxl_rst.F90

    r9321 r11738  
    1717   USE restart         ! only for lrst_oce 
    1818   USE timing 
     19 
     20   USE yomhook, ONLY: lhook, dr_hook 
     21   USE parkind1, ONLY: jprb, jpim 
    1922 
    2023   IMPLICIT NONE 
     
    4649      CHARACTER(LEN=50)   ::   clname   ! output restart file name 
    4750      CHARACTER(LEN=256)  ::   clpath   ! full path to restart file 
     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='TRD_MXL_RST_WRITE' 
     56 
     57      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     58 
    4859      !!-------------------------------------------------------------------------------- 
    4960 
     
    123134      ENDIF 
    124135      !  
     136      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    125137   END SUBROUTINE trd_mxl_rst_write 
    126138 
     
    139151      LOGICAL ::   llok 
    140152      CHARACTER(LEN=256)  ::   clpath   ! full path to restart file 
     153      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     154      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     155      REAL(KIND=jprb)               :: zhook_handle 
     156 
     157      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRD_MXL_RST_READ' 
     158 
     159      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     160 
    141161      !!----------------------------------------------------------------------------- 
    142162 
     
    200220      CALL iom_close( inum ) 
    201221      ! 
     222      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    202223   END SUBROUTINE trd_mxl_rst_read 
    203224   
  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/TRD/trdpen.F90

    r7179 r11738  
    2525   USE wrk_nemo       ! Memory allocation 
    2626 
     27   USE yomhook, ONLY: lhook, dr_hook 
     28   USE parkind1, ONLY: jprb, jpim 
     29 
    2730   IMPLICIT NONE 
    2831   PRIVATE 
     
    4750 
    4851   INTEGER FUNCTION trd_pen_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='TRD_PEN_ALLOC' 
     57 
     58   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     59 
    4960      !!--------------------------------------------------------------------- 
    5061      !!                  ***  FUNCTION trd_tra_alloc  *** 
     
    5465      IF( lk_mpp             )   CALL mpp_sum ( trd_pen_alloc ) 
    5566      IF( trd_pen_alloc /= 0 )   CALL ctl_warn( 'trd_pen_alloc: failed to allocate arrays' ) 
     67   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    5668   END FUNCTION trd_pen_alloc 
    5769 
     
    7385      REAL(wp), POINTER, DIMENSION(:,:)      ::   z2d            ! 2D workspace  
    7486      REAL(wp), POINTER, DIMENSION(:,:,:)    ::   zpe            ! 3D workspace  
     87      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     88      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     89      REAL(KIND=jprb)               :: zhook_handle 
     90 
     91      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRD_PEN' 
     92 
     93      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     94 
    7595      !!---------------------------------------------------------------------- 
    7696      ! 
     
    128148      CALL wrk_dealloc( jpi, jpj, jpk, zpe ) 
    129149      ! 
     150      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    130151   END SUBROUTINE trd_pen 
    131152 
     
    138159      !!---------------------------------------------------------------------- 
    139160      INTEGER  ::   ji, jj, jk   ! dummy loop indices 
     161      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     162      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     163      REAL(KIND=jprb)               :: zhook_handle 
     164 
     165      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRD_PEN_INIT' 
     166 
     167      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     168 
    140169      !!---------------------------------------------------------------------- 
    141170      ! 
     
    154183      nkstp     = nit000 - 1 
    155184      ! 
     185      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    156186   END SUBROUTINE trd_pen_init 
    157187 
  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/TRD/trdtra.F90

    r9163 r11738  
    3434   USE wrk_nemo       ! Memory allocation 
    3535 
     36   USE yomhook, ONLY: lhook, dr_hook 
     37   USE parkind1, ONLY: jprb, jpim 
     38 
    3639   IMPLICIT NONE 
    3740   PRIVATE 
     
    5659 
    5760   INTEGER FUNCTION trd_tra_alloc() 
     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='TRD_TRA_ALLOC' 
     66 
     67   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     68 
    5869      !!--------------------------------------------------------------------- 
    5970      !!                  ***  FUNCTION trd_tra_alloc  *** 
     
    6374      IF( lk_mpp             )   CALL mpp_sum ( trd_tra_alloc ) 
    6475      IF( trd_tra_alloc /= 0 )   CALL ctl_warn('trd_tra_alloc: failed to allocate arrays') 
     76   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    6577   END FUNCTION trd_tra_alloc 
    6678 
     
    89101      INTEGER  ::   jk   ! loop indices 
    90102      REAL(wp), POINTER, DIMENSION(:,:,:)  ::   zwt, zws, ztrdt, ztrds   ! 3D workspace 
     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='TRD_TRA' 
     108 
     109      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     110 
    91111      !!---------------------------------------------------------------------- 
    92112      ! 
     
    202222      CALL wrk_dealloc( jpi, jpj, jpk, ztrds ) 
    203223      ! 
     224      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    204225   END SUBROUTINE trd_tra 
    205226 
     
    225246      INTEGER  ::   ji, jj, jk   ! dummy loop indices 
    226247      INTEGER  ::   ii, ij, ik   ! index shift as function of the direction 
     248      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     249      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     250      REAL(KIND=jprb)               :: zhook_handle 
     251 
     252      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRD_TRA_ADV' 
     253 
     254      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     255 
    227256      !!---------------------------------------------------------------------- 
    228257      ! 
     
    248277      END DO 
    249278      ! 
     279      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    250280   END SUBROUTINE trd_tra_adv 
    251281 
     
    263293      INTEGER                   , INTENT(in   ) ::   ktrd    ! tracer trend index 
    264294      INTEGER                   , INTENT(in   ) ::   kt      ! time step 
     295      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     296      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     297      REAL(KIND=jprb)               :: zhook_handle 
     298 
     299      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRD_TRA_MNG' 
     300 
     301      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     302 
    265303      !!---------------------------------------------------------------------- 
    266304 
     
    314352      ENDIF 
    315353      ! 
     354      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    316355   END SUBROUTINE trd_tra_mng 
    317356 
     
    331370     INTEGER ::   ikbu, ikbv   ! local integers 
    332371     REAL(wp), POINTER, DIMENSION(:,:)   ::   z2dx, z2dy   ! 2D workspace  
     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='TRD_TRA_IOM' 
     377 
     378     IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     379 
    333380     !!---------------------------------------------------------------------- 
    334381     ! 
     
    389436     END IF 
    390437     ! 
     438     IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    391439   END SUBROUTINE trd_tra_iom 
    392440 
  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/TRD/trdtrc.F90

    r8280 r11738  
    1313      INTEGER ::   kt, kjn, ktrd    
    1414      REAL    ::   ptrtrd(:,:,:)   
     15      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     16      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     17      REAL(KIND=jprb)               :: zhook_handle 
     18 
     19      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRD_TRC' 
     20 
     21      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     22 
    1523      WRITE(*,*) 'trd_trc : You should not have seen this print! error?', ptrtrd(1,1,1) 
    1624      WRITE(*,*) '  "      "      : You should not have seen this print! error?', kjn, ktrd, kt 
     25      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    1726   END SUBROUTINE trd_trc 
    1827 
  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/TRD/trdvor.F90

    r6486 r11738  
    2929   USE wrk_nemo        ! Memory allocation 
    3030 
     31   USE yomhook, ONLY: lhook, dr_hook 
     32   USE parkind1, ONLY: jprb, jpim 
     33 
    3134   IMPLICIT NONE 
    3235   PRIVATE 
     
    6770 
    6871   INTEGER FUNCTION trd_vor_alloc() 
     72   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     73   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     74   REAL(KIND=jprb)               :: zhook_handle 
     75 
     76   CHARACTER(LEN=*), PARAMETER :: RoutineName='TRD_VOR_ALLOC' 
     77 
     78   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     79 
    6980      !!---------------------------------------------------------------------------- 
    7081      !!                  ***  ROUTINE trd_vor_alloc  *** 
     
    7788      IF( lk_mpp             )   CALL mpp_sum ( trd_vor_alloc ) 
    7889      IF( trd_vor_alloc /= 0 )   CALL ctl_warn('trd_vor_alloc: failed to allocate arrays') 
     90   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    7991   END FUNCTION trd_vor_alloc 
    8092 
     
    93105      INTEGER ::   ji, jj   ! dummy loop indices 
    94106      REAL(wp), POINTER, DIMENSION(:,:) ::   ztswu, ztswv    ! 2D workspace  
     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='TRD_VOR' 
     112 
     113      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     114 
    95115      !!---------------------------------------------------------------------- 
    96116 
     
    125145      CALL wrk_dealloc( jpi, jpj, ztswu, ztswv ) 
    126146      ! 
     147      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    127148   END SUBROUTINE trd_vor 
    128149 
     
    162183      INTEGER ::   ikbu, ikbv   ! local integers 
    163184      REAL(wp), POINTER, DIMENSION(:,:) :: zudpvor, zvdpvor  ! total cmulative trends 
     185      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     186      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     187      REAL(KIND=jprb)               :: zhook_handle 
     188 
     189      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRD_VOR_ZINT_2D' 
     190 
     191      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     192 
    164193      !!---------------------------------------------------------------------- 
    165194 
     
    214243      CALL wrk_dealloc( jpi, jpj, zudpvor, zvdpvor )                                    
    215244      ! 
     245      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    216246   END SUBROUTINE trd_vor_zint_2d 
    217247 
     
    252282      REAL(wp), POINTER, DIMENSION(:,:) :: zubet  , zvbet    ! Beta.V    
    253283      REAL(wp), POINTER, DIMENSION(:,:) :: zudpvor, zvdpvor  ! total cmulative trends 
     284      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     285      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     286      REAL(KIND=jprb)               :: zhook_handle 
     287 
     288      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRD_VOR_ZINT_3D' 
     289 
     290      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     291 
    254292      !!---------------------------------------------------------------------- 
    255293      
     
    310348      CALL wrk_dealloc( jpi,jpj, zubet, zvbet, zudpvor, zvdpvor )                                    
    311349      ! 
     350      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    312351   END SUBROUTINE trd_vor_zint_3d 
    313352 
     
    326365      REAL(wp) ::   zmean            ! local scalars 
    327366      REAL(wp), POINTER, DIMENSION(:,:) :: zun, zvn 
     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='TRD_VOR_IOM' 
     372 
     373      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     374 
    328375      !!---------------------------------------------------------------------- 
    329376 
     
    463510      CALL wrk_dealloc( jpi, jpj, zun, zvn )                                    
    464511      ! 
     512      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    465513   END SUBROUTINE trd_vor_iom 
    466514 
     
    476524      CHARACTER (len=40) ::   clhstnam 
    477525      CHARACTER (len=40) ::   clop 
     526      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     527      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     528      REAL(KIND=jprb)               :: zhook_handle 
     529 
     530      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRD_VOR_INIT' 
     531 
     532      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     533 
    478534      !!---------------------------------------------------------------------- 
    479535 
     
    585641      ENDIF 
    586642      ! 
     643      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    587644   END SUBROUTINE trd_vor_init 
    588645 
  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/TRD/trdvor_oce.F90

    r6486 r11738  
    88    
    99   USE par_oce      ! ocean parameters 
     10 
     11   USE yomhook, ONLY: lhook, dr_hook 
     12   USE parkind1, ONLY: jprb, jpim 
    1013 
    1114   IMPLICIT NONE 
Note: See TracChangeset for help on using the changeset viewer.