New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 11738 for branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/ICB – NEMO

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

The Dr Hook changes from my perl code.

Location:
branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/ICB
Files:
10 edited

Legend:

Unmodified
Added
Removed

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/ICB/icb_oce.F90

    r6486 r11738  
    3737   USE par_oce   ! ocean parameters 
    3838   USE lib_mpp   ! MPP library 
     39 
     40   USE yomhook, ONLY: lhook, dr_hook 
     41   USE parkind1, ONLY: jprb, jpim 
    3942 
    4043   IMPLICIT NONE 
    … …  
    156159      !!---------------------------------------------------------------------- 
    157160      INTEGER ::   ill 
     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='ICB_ALLOC' 
     166 
     167      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     168 
    158169      !!---------------------------------------------------------------------- 
    159170      ! 
    … …  
    192203      IF( icb_alloc > 0 )   CALL ctl_warn('icb_alloc: allocation of arrays failed') 
    193204      ! 
     205      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    194206   END FUNCTION icb_alloc 
    195207 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/ICB/icbclv.F90

    r8046 r11738  
    2929   USE iom 
    3030 
     31   USE yomhook, ONLY: lhook, dr_hook 
     32   USE parkind1, ONLY: jprb, jpim 
     33 
    3134   IMPLICIT NONE 
    3235   PRIVATE 
    … …  
    5659      INTEGER                         :: imx                           ! temporary integer for max berg class 
    5760      LOGICAL, SAVE                   :: ll_first_call = .TRUE. 
     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='ICB_CLV_FLX' 
     66 
     67      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     68 
    5869      !!---------------------------------------------------------------------- 
    5970      ! 
    … …  
    139150      CALL icb_dia_income( kt,  zcalving_used, berg_grid%tmp ) 
    140151      ! 
     152      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    141153   END SUBROUTINE icb_clv_flx 
    142154 
    … …  
    160172      TYPE(point)   ::   newpt 
    161173      REAL(wp)      ::   zday, zcalved_to_berg, zheat_to_berg 
     174      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     175      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     176      REAL(KIND=jprb)               :: zhook_handle 
     177 
     178      CHARACTER(LEN=*), PARAMETER :: RoutineName='ICB_CLV' 
     179 
     180      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     181 
    162182      !!---------------------------------------------------------------------- 
    163183      ! 
    … …  
    220240      IF( nn_verbose_level > 0 .AND. icntmax > 1 )   WRITE(numicb,*) 'icb_clv: icnt=', icnt,' on', narea 
    221241      ! 
     242      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    222243   END SUBROUTINE  icb_clv 
    223244 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/ICB/icbdia.F90

    r6491 r11738  
    2424   USE icbutl         ! iceberg utility routines 
    2525 
     26   USE yomhook, ONLY: lhook, dr_hook 
     27   USE parkind1, ONLY: jprb, jpim 
     28 
    2629   IMPLICIT NONE 
    2730   PRIVATE 
    … …  
    8285 
    8386   SUBROUTINE icb_dia_init( ) 
     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='ICB_DIA_INIT' 
     92 
     93   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     94 
    8495      !!---------------------------------------------------------------------- 
    8596      !!---------------------------------------------------------------------- 
    … …  
    150161      ENDIF 
    151162      ! 
     163   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    152164   END SUBROUTINE icb_dia_init 
    153165 
    … …  
    163175      INTEGER             ::   ik 
    164176      REAL(wp)            ::   zunused_calving, ztmpsum, zgrdd_berg_mass, zgrdd_bits_mass 
     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='ICB_DIA' 
     182 
     183      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     184 
    165185      !!---------------------------------------------------------------------- 
    166186      ! 
    … …  
    342362      ENDIF 
    343363      ! 
     364      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    344365   END SUBROUTINE icb_dia 
    345366 
    346367 
    347368   SUBROUTINE icb_dia_step 
     369   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     370   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     371   REAL(KIND=jprb)               :: zhook_handle 
     372 
     373   CHARACTER(LEN=*), PARAMETER :: RoutineName='ICB_DIA_STEP' 
     374 
     375   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     376 
    348377      !!---------------------------------------------------------------------- 
    349378      !! things to reset at the beginning of each timestep 
    … …  
    362391      real_calving (:,:,:) = 0._wp 
    363392      ! 
     393   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    364394   END SUBROUTINE icb_dia_step 
    365395 
    366396 
    367397   SUBROUTINE icb_dia_put 
     398   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     399   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     400   REAL(KIND=jprb)               :: zhook_handle 
     401 
     402   CHARACTER(LEN=*), PARAMETER :: RoutineName='ICB_DIA_PUT' 
     403 
     404   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     405 
    368406      !!---------------------------------------------------------------------- 
    369407      !!---------------------------------------------------------------------- 
    … …  
    384422      CALL iom_put( "berg_real_calving", real_calving(:,:,:) )   ! Calving into iceberg class                [kg/s] 
    385423      ! 
     424   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    386425   END SUBROUTINE icb_dia_put 
    387426 
    … …  
    393432      REAL(wp), INTENT(in)  ::   pcalved 
    394433      REAL(wp), INTENT(in)  ::   pheated 
     434      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     435      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     436      REAL(KIND=jprb)               :: zhook_handle 
     437 
     438      CHARACTER(LEN=*), PARAMETER :: RoutineName='ICB_DIA_CALVE' 
     439 
     440      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     441 
    395442      !!---------------------------------------------------------------------- 
    396443      ! 
    … …  
    402449      heat_to_bergs_net          = heat_to_bergs_net    + pheated 
    403450      ! 
     451      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    404452   END SUBROUTINE icb_dia_calve 
    405453 
    … …  
    411459      REAL(wp),                 INTENT(in)  :: pcalving_used 
    412460      REAL(wp), DIMENSION(:,:), INTENT(in)  :: pheat_used 
     461      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     462      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     463      REAL(KIND=jprb)               :: zhook_handle 
     464 
     465      CHARACTER(LEN=*), PARAMETER :: RoutineName='ICB_DIA_INCOME' 
     466 
     467      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     468 
    413469      !!---------------------------------------------------------------------- 
    414470      ! 
    … …  
    432488      calving_src_heat_used_net = calving_src_heat_used_net + SUM( pheat_used(:,:) ) 
    433489      ! 
     490      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    434491   END SUBROUTINE icb_dia_income 
    435492 
    … …  
    441498      INTEGER,  INTENT(in) :: ki, kj 
    442499      REAL(wp), INTENT(in) :: pWn, pLn, pAbits, pmass_scale, pMnew, pnMbits, pz1_e1e2 
     500      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     501      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     502      REAL(KIND=jprb)               :: zhook_handle 
     503 
     504      CHARACTER(LEN=*), PARAMETER :: RoutineName='ICB_DIA_SIZE' 
     505 
     506      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     507 
    443508      !!---------------------------------------------------------------------- 
    444509      ! 
    … …  
    448513      bits_mass(ki,kj)    = bits_mass(ki,kj) + pnMbits * pz1_e1e2                           ! kg/m2 
    449514      ! 
     515      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    450516   END SUBROUTINE icb_dia_size 
    451517 
    452518 
    453519   SUBROUTINE icb_dia_speed() 
     520   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     521   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     522   REAL(KIND=jprb)               :: zhook_handle 
     523 
     524   CHARACTER(LEN=*), PARAMETER :: RoutineName='ICB_DIA_SPEED' 
     525 
     526   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     527 
    454528      !!---------------------------------------------------------------------- 
    455529      !!---------------------------------------------------------------------- 
    … …  
    458532      nspeeding_tickets = nspeeding_tickets + 1 
    459533      ! 
     534   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    460535   END SUBROUTINE icb_dia_speed 
    461536 
    … …  
    469544      REAL(wp), INTENT(in) ::   pmnew, pheat, pmass_scale 
    470545      REAL(wp), INTENT(in) ::   pdM, pdMbitsE, pdMbitsM, pdMb, pdMe, pdMv, pz1_dt_e1e2 
     546      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     547      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     548      REAL(KIND=jprb)               :: zhook_handle 
     549 
     550      CHARACTER(LEN=*), PARAMETER :: RoutineName='ICB_DIA_MELT' 
     551 
     552      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     553 
    471554      !!---------------------------------------------------------------------- 
    472555      ! 
    … …  
    482565      IF( pmnew <= 0._wp ) nbergs_melted = nbergs_melted + 1                        ! Delete the berg if completely melted 
    483566      ! 
     567      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    484568   END SUBROUTINE icb_dia_melt 
    485569 
    … …  
    492576      REAL(wp),      INTENT(in)           :: pstartval, pendval 
    493577      INTEGER,       INTENT(in), OPTIONAL :: kbergs 
     578      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     579      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     580      REAL(KIND=jprb)               :: zhook_handle 
     581 
     582      CHARACTER(LEN=*), PARAMETER :: RoutineName='REPORT_STATE' 
     583 
     584      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     585 
    494586      !!---------------------------------------------------------------------- 
    495587      ! 
    … …  
    507599      ENDIF 
    508600      100 FORMAT(a19,3(a18,"=",es14.7,x,a2,:,","),a12,i8) 
     601      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    509602   END SUBROUTINE report_state 
    510603 
    … …  
    515608      CHARACTER*(*), INTENT(in) :: cd_budgetstr, cd_budgetunits, cd_startstr, cd_endstr 
    516609      REAL(wp),      INTENT(in) :: pstartval, pendval 
     610      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     611      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     612      REAL(KIND=jprb)               :: zhook_handle 
     613 
     614      CHARACTER(LEN=*), PARAMETER :: RoutineName='REPORT_CONSISTANT' 
     615 
     616      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     617 
    517618      !!---------------------------------------------------------------------- 
    518619      ! 
    … …  
    522623                        'error',        (pendval-pstartval)/((pendval+pstartval)+1e-30), 'nd' 
    523624      200 FORMAT(a19,10(a18,"=",es14.7,x,a2,:,",")) 
     625      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    524626   END SUBROUTINE report_consistant 
    525627 
    … …  
    533635      ! 
    534636      REAL(wp)                  :: zval 
     637      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     638      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     639      REAL(KIND=jprb)               :: zhook_handle 
     640 
     641      CHARACTER(LEN=*), PARAMETER :: RoutineName='REPORT_BUDGET' 
     642 
     643      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     644 
    535645      !!---------------------------------------------------------------------- 
    536646      ! 
    … …  
    545655  200 FORMAT(a19,3(a18,"=",es14.7,x,a2,:,","),a8,"=",es10.3,x,a2) 
    546656      ! 
     657      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    547658   END SUBROUTINE report_budget 
    548659 
    … …  
    553664      CHARACTER*(*), INTENT(in) :: cd_budgetstr, cd_startstr, cd_endstr, cd_delstr 
    554665      INTEGER,       INTENT(in) :: pstartval, pendval 
     666      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     667      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     668      REAL(KIND=jprb)               :: zhook_handle 
     669 
     670      CHARACTER(LEN=*), PARAMETER :: RoutineName='REPORT_ISTATE' 
     671 
     672      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     673 
    555674      ! 
    556675      WRITE(numicb,100) cd_budgetstr // ' state:',           & 
    … …  
    560679  100 FORMAT(a19,3(a18,"=",i14,x,:,",")) 
    561680      ! 
     681      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    562682   END SUBROUTINE report_istate 
    563683 
    … …  
    569689      CHARACTER*(*), INTENT(in) :: cd_budgetstr, cd_instr, cd_outstr, cd_delstr 
    570690      INTEGER,       INTENT(in) :: pinval, poutval, pstartval, pendval 
     691      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     692      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     693      REAL(KIND=jprb)               :: zhook_handle 
     694 
     695      CHARACTER(LEN=*), PARAMETER :: RoutineName='REPORT_IBUDGET' 
     696 
     697      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     698 
    571699      !!---------------------------------------------------------------------- 
    572700      ! 
    … …  
    577705                        'error',                    ( ( pendval - pstartval ) - ( pinval - poutval ) ) 
    578706      200 FORMAT(a19,10(a18,"=",i14,x,:,",")) 
     707      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    579708   END SUBROUTINE report_ibudget 
    580709 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/ICB/icbini.F90

    r6823 r11738  
    3030   USE icbdia         ! iceberg budget routines 
    3131 
     32   USE yomhook, ONLY: lhook, dr_hook 
     33   USE parkind1, ONLY: jprb, jpim 
     34 
    3235   IMPLICIT NONE 
    3336   PRIVATE 
    … …  
    6669      INTEGER ::   istat1, istat2, istat3   !   -       - 
    6770      CHARACTER(len=300) ::   cl_sdist      ! local character 
     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='ICB_INIT' 
     76 
     77      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     78 
    6879      !!---------------------------------------------------------------------- 
    6980      ! 
    … …  
    271282      IF( nn_verbose_level >= 2 )   CALL icb_utl_print('icb_init, initial status', nit000-1) 
    272283      ! 
     284      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    273285   END SUBROUTINE icb_init 
    274286 
    … …  
    289301      INTEGER                         ::   iyr, imon, iday, ihr, imin, isec 
    290302      INTEGER                         ::   iberg 
     303      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     304      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     305      REAL(KIND=jprb)               :: zhook_handle 
     306 
     307      CHARACTER(LEN=*), PARAMETER :: RoutineName='ICB_INI_GEN' 
     308 
     309      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     310 
    291311      !!---------------------------------------------------------------------- 
    292312 
    … …  
    338358      WRITE(numicb,'(a,i6,a)') 'diamonds, icb_ini_gen: ',ibergs,' were generated' 
    339359      ! 
     360      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    340361   END SUBROUTINE icb_ini_gen 
    341362 
    … …  
    359380         &              ln_time_average_weight          , nn_test_icebergs    , rn_test_box          ,   & 
    360381         &              rn_speed_limit , cn_dir, sn_icb 
     382         INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     383         INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     384         REAL(KIND=jprb)               :: zhook_handle 
     385 
     386         CHARACTER(LEN=*), PARAMETER :: RoutineName='ICB_NAM' 
     387 
     388         IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     389 
    361390      !!---------------------------------------------------------------------- 
    362391 
    … …  
    384413            WRITE(numout,*) '~~~~~~~~ ' 
    385414         ENDIF 
     415         IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 
    386416         RETURN 
    387417      ENDIF 
    … …  
    449479      ENDIF 
    450480      ! 
     481         IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    451482   END SUBROUTINE icb_nam 
    452483 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/ICB/icblbc.F90

    r6486 r11738  
    3535   USE icbutl                              ! iceberg utility routines 
    3636 
     37   USE yomhook, ONLY: lhook, dr_hook 
     38   USE parkind1, ONLY: jprb, jpim 
     39 
    3740   IMPLICIT NONE 
    3841   PRIVATE 
    … …  
    8285      TYPE(point)  , POINTER ::   pt 
    8386      INTEGER                ::   iine 
     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='ICB_LBC' 
     92 
     93      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     94 
    8495      !!---------------------------------------------------------------------- 
    8596 
    … …  
    110121      IF( nperio == 3 .OR. nperio == 4 .OR. nperio == 5 .OR. nperio == 6 )   CALL icb_lbc_nfld() 
    111122      ! 
     123      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    112124   END SUBROUTINE icb_lbc 
    113125 
    … …  
    123135      INTEGER                ::   iine, ijne, ipts 
    124136      INTEGER                ::   iiglo, ijglo 
     137      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     138      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     139      REAL(KIND=jprb)               :: zhook_handle 
     140 
     141      CHARACTER(LEN=*), PARAMETER :: RoutineName='ICB_LBC_NFLD' 
     142 
     143      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     144 
    125145      !!---------------------------------------------------------------------- 
    126146      ! 
    … …  
    146166      END DO 
    147167      ! 
     168      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    148169   END SUBROUTINE icb_lbc_nfld 
    149170 
    … …  
    177198      INTEGER                             ::   iml_req5, iml_req6, iml_req7, iml_req8, iml_err 
    178199      INTEGER, DIMENSION(MPI_STATUS_SIZE) ::   iml_stat 
     200      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     201      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     202      REAL(KIND=jprb)               :: zhook_handle 
     203 
     204      CHARACTER(LEN=*), PARAMETER :: RoutineName='ICB_LBC_MPP' 
     205 
     206      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     207 
    179208 
    180209      ! set up indices of neighbouring processors 
    … …  
    563592      CALL mppsync() 
    564593      ! 
     594      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    565595   END SUBROUTINE icb_lbc_mpp 
    566596 
    … …  
    585615      INTEGER                             :: iml_req1, iml_req2, iml_err 
    586616      INTEGER, DIMENSION(MPI_STATUS_SIZE) :: iml_stat 
     617      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     618      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     619      REAL(KIND=jprb)               :: zhook_handle 
     620 
     621      CHARACTER(LEN=*), PARAMETER :: RoutineName='ICB_LBC_MPP_NFLD' 
     622 
     623      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     624 
    587625 
    588626      ! set up indices of neighbouring processors 
    … …  
    779817      END DO 
    780818      ! 
     819      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    781820   END SUBROUTINE icb_lbc_mpp_nfld 
    782821 
    … …  
    790829      !  
    791830      INTEGER ::   k   ! local integer 
     831      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     832      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     833      REAL(KIND=jprb)               :: zhook_handle 
     834 
     835      CHARACTER(LEN=*), PARAMETER :: RoutineName='ICB_PACK_INTO_BUFFER' 
     836 
     837      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     838 
    792839      !!---------------------------------------------------------------------- 
    793840      ! 
    … …  
    817864      END DO 
    818865      ! 
     866      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    819867   END SUBROUTINE icb_pack_into_buffer 
    820868 
    … …  
    830878      TYPE(point)                        :: pt 
    831879      INTEGER                            :: ik 
     880      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     881      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     882      REAL(KIND=jprb)               :: zhook_handle 
     883 
     884      CHARACTER(LEN=*), PARAMETER :: RoutineName='ICB_UNPACK_FROM_BUFFER' 
     885 
     886      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     887 
    832888      !!---------------------------------------------------------------------- 
    833889      ! 
    … …  
    854910      CALL icb_utl_add(currentberg, pt ) 
    855911      ! 
     912      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    856913   END SUBROUTINE icb_unpack_from_buffer 
    857914 
    … …  
    864921      TYPE(buffer), POINTER ::   new 
    865922      INTEGER ::   inew_size 
     923      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     924      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     925      REAL(KIND=jprb)               :: zhook_handle 
     926 
     927      CHARACTER(LEN=*), PARAMETER :: RoutineName='ICB_INCREASE_BUFFER' 
     928 
     929      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     930 
    866931      !!---------------------------------------------------------------------- 
    867932      ! 
    … …  
    879944      old => new 
    880945      ! 
     946      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    881947   END SUBROUTINE icb_increase_buffer 
    882948 
    … …  
    890956      TYPE(buffer),            POINTER :: new 
    891957      INTEGER                          :: inew_size, iold_size 
     958      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     959      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     960      REAL(KIND=jprb)               :: zhook_handle 
     961 
     962      CHARACTER(LEN=*), PARAMETER :: RoutineName='ICB_INCREASE_IBUFFER' 
     963 
     964      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     965 
    892966      !!---------------------------------------------------------------------- 
    893967 
    … …  
    917991      ENDIF 
    918992      ! 
     993      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    919994   END SUBROUTINE icb_increase_ibuffer 
    920995 
    … …  
    924999   !!---------------------------------------------------------------------- 
    9251000   SUBROUTINE icb_lbc_mpp() 
     1001   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     1002   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     1003   REAL(KIND=jprb)               :: zhook_handle 
     1004 
     1005   CHARACTER(LEN=*), PARAMETER :: RoutineName='ICB_LBC_MPP' 
     1006 
     1007   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     1008 
    9261009      WRITE(numout,*) 'icb_lbc_mpp: You should not have seen this message!!' 
     1010   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    9271011   END SUBROUTINE icb_lbc_mpp 
    9281012 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/ICB/icbrst.F90

    r9321 r11738  
    3131   USE timing 
    3232 
     33   USE yomhook, ONLY: lhook, dr_hook 
     34   USE parkind1, ONLY: jprb, jpim 
     35 
    3336   IMPLICIT NONE 
    3437   PRIVATE 
    … …  
    7174      TYPE(iceberg)                ::   localberg ! NOT a pointer but an actual local variable 
    7275      TYPE(point)                  ::   localpt   ! NOT a pointer but an actual local variable 
     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='ICB_RST_READ' 
     81 
     82      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     83 
    7384      !!---------------------------------------------------------------------- 
    7485      IF(nn_timing == 2)  CALL timing_start('iom_rstget') 
    … …  
    150161      IF( lwp .and. nn_verbose_level >= 0)  WRITE(numout,'(a)') 'icebergs, read_restart_bergs: completed' 
    151162      ! 
     163      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    152164   END SUBROUTINE icb_rst_read 
    153165 
    … …  
    170182      TYPE(iceberg), POINTER :: this 
    171183      TYPE(point)  , POINTER :: pt 
     184      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     185      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     186      REAL(KIND=jprb)               :: zhook_handle 
     187 
     188      CHARACTER(LEN=*), PARAMETER :: RoutineName='ICB_RST_WRITE' 
     189 
     190      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     191 
    172192      !!---------------------------------------------------------------------- 
    173193      IF(nn_timing == 2)  CALL timing_start('iom_rstput') 
    … …  
    378398      IF(nn_timing == 2)  CALL timing_stop('iom_rstput') 
    379399      ! 
     400      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    380401   END SUBROUTINE icb_rst_write 
    381402   ! 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/ICB/icbstp.F90

    r6486 r11738  
    3838   USE icbdia         ! iceberg budget 
    3939 
     40   USE yomhook, ONLY: lhook, dr_hook 
     41   USE parkind1, ONLY: jprb, jpim 
     42 
    4043   IMPLICIT NONE 
    4144   PRIVATE 
    … …  
    6265      ! 
    6366      LOGICAL ::   ll_sample_traj, ll_budget, ll_verbose   ! local logical 
     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='ICB_STP' 
     72 
     73      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     74 
    6475      !!---------------------------------------------------------------------- 
    6576      ! 
    … …  
    147158      IF( nn_timing == 1 ) CALL timing_stop('icb_stp') 
    148159      ! 
     160      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    149161   END SUBROUTINE icb_stp 
    150162 
    … …  
    158170      !!---------------------------------------------------------------------- 
    159171      INTEGER, INTENT( in )  :: kt 
     172      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     173      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     174      REAL(KIND=jprb)               :: zhook_handle 
     175 
     176      CHARACTER(LEN=*), PARAMETER :: RoutineName='ICB_END' 
     177 
     178      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     179 
    160180      !!---------------------------------------------------------------------- 
    161181 
    … …  
    170190      CLOSE( numicb ) 
    171191      ! 
     192      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    172193   END SUBROUTINE icb_end 
    173194 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/ICB/icbthm.F90

    r6491 r11738  
    2727   USE icbdia         ! iceberg budget routines 
    2828 
     29   USE yomhook, ONLY: lhook, dr_hook 
     30   USE parkind1, ONLY: jprb, jpim 
     31 
    2932   IMPLICIT NONE 
    3033   PRIVATE 
    … …  
    5356      TYPE(iceberg), POINTER ::   this, next 
    5457      TYPE(point)  , POINTER ::   pt 
     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='ICB_THM' 
     63 
     64      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     65 
    5566      !!---------------------------------------------------------------------- 
    5667      ! 
    … …  
    213224      ENDIF 
    214225      ! 
     226      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    215227   END SUBROUTINE icb_thm 
    216228 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/ICB/icbtrj.F90

    r7733 r11738  
    2424   USE icbutl         ! iceberg utility routines 
    2525 
     26   USE yomhook, ONLY: lhook, dr_hook 
     27   USE parkind1, ONLY: jprb, jpim 
     28 
    2629   IMPLICIT NONE 
    2730   PRIVATE 
    … …  
    6770      TYPE(point)  , POINTER                :: pt 
    6871      CHARACTER(LEN=20)                     :: cldate_ini, cldate_end 
     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='ICB_TRJ_INIT' 
     77 
     78      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     79 
    6980      !!---------------------------------------------------------------------- 
    7081 
    … …  
    185196      iret = NF90_ENDDEF(ntrajid) 
    186197      ! 
     198      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    187199   END SUBROUTINE icb_trj_init 
    188200 
    … …  
    203215      TYPE(iceberg), POINTER ::   this 
    204216      TYPE(point)  , POINTER ::   pt 
     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='ICB_TRJ_WRITE' 
     222 
     223      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     224 
    205225      !!---------------------------------------------------------------------- 
    206226 
    … …  
    249269      num_traj = jn 
    250270      ! 
     271      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    251272   END SUBROUTINE icb_trj_write 
    252273 
    … …  
    260281      !!---------------------------------------------------------------------- 
    261282      INTEGER                               :: iret 
     283      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     284      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     285      REAL(KIND=jprb)               :: zhook_handle 
     286 
     287      CHARACTER(LEN=*), PARAMETER :: RoutineName='ICB_TRJ_SYNC' 
     288 
     289      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     290 
    262291      !!---------------------------------------------------------------------- 
    263292      ! flush to file 
    … …  
    265294      IF(iret /= NF90_NOERR)   CALL ctl_stop( 'icebergs, icb_trj_sync: nf_sync failed' ) 
    266295      ! 
     296      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    267297   END SUBROUTINE icb_trj_sync 
    268298 
    … …  
    271301      ! Local variables 
    272302      INTEGER                               :: iret 
     303      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     304      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     305      REAL(KIND=jprb)               :: zhook_handle 
     306 
     307      CHARACTER(LEN=*), PARAMETER :: RoutineName='ICB_TRJ_END' 
     308 
     309      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     310 
    273311      !!---------------------------------------------------------------------- 
    274312      ! Finish up 
    … …  
    276314      IF (iret /= NF90_NOERR)   CALL ctl_stop( 'icebergs, icb_trj_end: nf_close failed' ) 
    277315      ! 
     316      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    278317   END SUBROUTINE icb_trj_end 
    279318 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/ICB/icbutl.F90

    r6486 r11738  
    3030#endif 
    3131 
     32   USE yomhook, ONLY: lhook, dr_hook 
     33   USE parkind1, ONLY: jprb, jpim 
     34 
    3235   IMPLICIT NONE 
    3336   PRIVATE 
    … …  
    5861 
    5962   SUBROUTINE icb_utl_copy() 
     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='ICB_UTL_COPY' 
     68 
     69   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     70 
    6071      !!---------------------------------------------------------------------- 
    6172      !!                  ***  ROUTINE icb_utl_copy  *** 
    … …  
    112123      CALL lbc_lnk_icb( ssh_e, 'T', +1._wp, 1, 1 ) 
    113124      ! 
     125   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    114126   END SUBROUTINE icb_utl_copy 
    115127 
    … …  
    139151      ! 
    140152      REAL(wp) ::   zcd, zmod       ! local scalars 
     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='ICB_UTL_INTERP' 
     158 
     159      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     160 
    141161      !!---------------------------------------------------------------------- 
    142162 
    … …  
    177197          &      icb_utl_bilin_h( ssh_e, pi, pj-0.1_wp, 'T' )  ) / ( 0.2_wp * pe2 ) 
    178198      ! 
     199      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    179200   END SUBROUTINE icb_utl_interp 
    180201 
    … …  
    488509      ! 
    489510      TYPE(iceberg), POINTER ::   new => NULL() 
     511      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     512      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     513      REAL(KIND=jprb)               :: zhook_handle 
     514 
     515      CHARACTER(LEN=*), PARAMETER :: RoutineName='ICB_UTL_ADD' 
     516 
     517      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     518 
    490519      !!---------------------------------------------------------------------- 
    491520      ! 
    … …  
    495524      new => NULL()     ! Clear new 
    496525      ! 
     526      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    497527   END SUBROUTINE icb_utl_add          
    498528 
    … …  
    511541      TYPE(point)  , POINTER    ::   pt 
    512542      INTEGER                   ::   istat 
     543      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     544      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     545      REAL(KIND=jprb)               :: zhook_handle 
     546 
     547      CHARACTER(LEN=*), PARAMETER :: RoutineName='ICB_UTL_CREATE' 
     548 
     549      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     550 
    513551      !!---------------------------------------------------------------------- 
    514552      ! 
    … …  
    526564      berg%current_point => pt 
    527565      ! 
     566      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    528567   END SUBROUTINE icb_utl_create 
    529568 
    … …  
    539578      ! 
    540579      TYPE(iceberg), POINTER  ::   this, prev, last 
     580      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     581      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     582      REAL(KIND=jprb)               :: zhook_handle 
     583 
     584      CHARACTER(LEN=*), PARAMETER :: RoutineName='ICB_UTL_INSERT' 
     585 
     586      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     587 
    541588      !!---------------------------------------------------------------------- 
    542589      ! 
    … …  
    553600      ENDIF 
    554601      ! 
     602      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    555603   END SUBROUTINE icb_utl_insert 
    556604 
    … …  
    587635      !!---------------------------------------------------------------------- 
    588636      TYPE(iceberg), POINTER :: first, berg 
     637      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     638      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     639      REAL(KIND=jprb)               :: zhook_handle 
     640 
     641      CHARACTER(LEN=*), PARAMETER :: RoutineName='ICB_UTL_DELETE' 
     642 
     643      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     644 
    589645      !!---------------------------------------------------------------------- 
    590646      ! Connect neighbors to each other 
    … …  
    598654      CALL icb_utl_destroy(berg) 
    599655      ! 
     656      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    600657   END SUBROUTINE icb_utl_delete 
    601658 
    … …  
    609666      !!---------------------------------------------------------------------- 
    610667      TYPE(iceberg), POINTER :: berg 
     668      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     669      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     670      REAL(KIND=jprb)               :: zhook_handle 
     671 
     672      CHARACTER(LEN=*), PARAMETER :: RoutineName='ICB_UTL_DESTROY' 
     673 
     674      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     675 
    611676      !!---------------------------------------------------------------------- 
    612677      ! 
    … …  
    616681      DEALLOCATE(berg) 
    617682      ! 
     683      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    618684   END SUBROUTINE icb_utl_destroy 
    619685 
    … …  
    633699      LOGICAL                        :: match 
    634700      INTEGER                        :: k 
     701      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     702      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     703      REAL(KIND=jprb)               :: zhook_handle 
     704 
     705      CHARACTER(LEN=*), PARAMETER :: RoutineName='ICB_UTL_TRACK' 
     706 
     707      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     708 
    635709      !!---------------------------------------------------------------------- 
    636710      ! 
    … …  
    645719      END DO 
    646720      ! 
     721      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    647722   END SUBROUTINE icb_utl_track 
    648723 
    … …  
    658733      TYPE(point)  , POINTER :: pt 
    659734      INTEGER                :: kt      ! timestep number 
     735      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     736      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     737      REAL(KIND=jprb)               :: zhook_handle 
     738 
     739      CHARACTER(LEN=*), PARAMETER :: RoutineName='ICB_UTL_PRINT_BERG' 
     740 
     741      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     742 
    660743      !!---------------------------------------------------------------------- 
    661744      ! 
    … …  
    667750 9200 FORMAT(5x,i5,2x,i10,6(2x,2f10.4)) 
    668751      ! 
     752      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    669753   END SUBROUTINE icb_utl_print_berg 
    670754 
    … …  
    682766      INTEGER                :: ibergs, inbergs 
    683767      TYPE(iceberg), POINTER :: this 
     768      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     769      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     770      REAL(KIND=jprb)               :: zhook_handle 
     771 
     772      CHARACTER(LEN=*), PARAMETER :: RoutineName='ICB_UTL_PRINT' 
     773 
     774      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     775 
    684776      !!---------------------------------------------------------------------- 
    685777      ! 
    … …  
    700792         &                                  cd_label, ibergs, inbergs, narea 
    701793      ! 
     794      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    702795   END SUBROUTINE icb_utl_print 
    703796 
    … …  
    717810      !!---------------------------------------------------------------------- 
    718811      INTEGER ::   ii, ibig 
     812      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     813      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     814      REAL(KIND=jprb)               :: zhook_handle 
     815 
     816      CHARACTER(LEN=*), PARAMETER :: RoutineName='ICB_UTL_INCR' 
     817 
     818      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     819 
    719820      !!---------------------------------------------------------------------- 
    720821 
    … …  
    735836      ENDIF 
    736837      ! 
     838      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    737839   END SUBROUTINE icb_utl_incr 
    738840 
    … …  
    745847      !!---------------------------------------------------------------------- 
    746848      TYPE(iceberg), POINTER :: this 
     849      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     850      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     851      REAL(KIND=jprb)               :: zhook_handle 
     852 
     853      CHARACTER(LEN=*), PARAMETER :: RoutineName='ICB_UTL_COUNT' 
     854 
     855      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     856 
    747857      !!---------------------------------------------------------------------- 
    748858      ! 
    … …  
    754864      END DO 
    755865      ! 
     866      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    756867   END FUNCTION icb_utl_count 
    757868 
Note: See TracChangeset for help on using the changeset viewer.