Changeset 11738


Ignore:
Timestamp:
2019-10-21T09:34:11+02:00 (11 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
Files:
203 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DIA/diaar5.F90

    r7563 r11738  
    2727   USE zdf_oce 
    2828 
     29   USE yomhook, ONLY: lhook, dr_hook 
     30   USE parkind1, ONLY: jprb, jpim 
     31 
    2932   IMPLICIT NONE 
    3033   PRIVATE 
     
    5760      !!---------------------------------------------------------------------- 
    5861      INTEGER :: dia_ar5_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='DIA_AR5_ALLOC' 
     67 
     68      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     69 
    5970      !!---------------------------------------------------------------------- 
    6071      ! 
     
    6475      IF( dia_ar5_alloc /= 0 )   CALL ctl_warn('dia_ar5_alloc: failed to allocate arrays') 
    6576      ! 
     77      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    6678   END FUNCTION dia_ar5_alloc 
    6779 
     
    8496      REAL(wp), POINTER, DIMENSION(:,:,:)   :: zrhd , zrhop               ! 3D workspace 
    8597      REAL(wp), POINTER, DIMENSION(:,:,:,:) :: ztsn                       ! 4D workspace 
     98      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     99      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     100      REAL(KIND=jprb)               :: zhook_handle 
     101 
     102      CHARACTER(LEN=*), PARAMETER :: RoutineName='DIA_AR5' 
     103 
     104      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     105 
    86106      !!-------------------------------------------------------------------- 
    87107      IF( nn_timing == 1 )   CALL timing_start('dia_ar5') 
     
    243263      IF( nn_timing == 1 )   CALL timing_stop('dia_ar5') 
    244264      ! 
     265      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    245266   END SUBROUTINE dia_ar5 
    246267 
     
    257278      REAL(wp) ::   zztmp   
    258279      REAL(wp), POINTER, DIMENSION(:,:,:,:) ::   zsaldta   ! Jan/Dec levitus salinity 
     280      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     281      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     282      REAL(KIND=jprb)               :: zhook_handle 
     283 
     284      CHARACTER(LEN=*), PARAMETER :: RoutineName='DIA_AR5_INIT' 
     285 
     286      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     287 
    259288      ! 
    260289      !!---------------------------------------------------------------------- 
     
    303332      IF( nn_timing == 1 )   CALL timing_stop('dia_ar5_init') 
    304333      ! 
     334      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    305335   END SUBROUTINE dia_ar5_init 
    306336 
     
    312342CONTAINS 
    313343   SUBROUTINE dia_ar5_init    ! Dummy routine 
     344   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     345   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     346   REAL(KIND=jprb)               :: zhook_handle 
     347 
     348   CHARACTER(LEN=*), PARAMETER :: RoutineName='DIA_AR5_INIT' 
     349 
     350   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     351 
     352   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    314353   END SUBROUTINE dia_ar5_init 
    315354   SUBROUTINE dia_ar5( kt )   ! Empty routine 
    316355      INTEGER ::   kt 
     356      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     357      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     358      REAL(KIND=jprb)               :: zhook_handle 
     359 
     360      CHARACTER(LEN=*), PARAMETER :: RoutineName='DIA_AR5' 
     361 
     362      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     363 
    317364      WRITE(*,*) 'dia_ar5: You should not have seen this print! error?', kt 
     365      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    318366   END SUBROUTINE dia_ar5 
    319367#endif 
  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DIA/diadct.F90

    r10047 r11738  
    4848  USE wrk_nemo        ! working arrays 
    4949 
     50  USE yomhook, ONLY: lhook, dr_hook 
     51  USE parkind1, ONLY: jprb, jpim 
     52 
    5053  IMPLICIT NONE 
    5154  PRIVATE 
     
    121124     !!----------------------------------------------------------------------  
    122125     INTEGER :: ierr(2)  
     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='DIADCT_ALLOC' 
     131 
     132     IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     133 
    123134     !!----------------------------------------------------------------------  
    124135 
     
    129140     IF( diadct_alloc /= 0 )   CALL ctl_warn('diadct_alloc: failed to allocate arrays')  
    130141  
     142     IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    131143  END FUNCTION diadct_alloc  
    132144 
     
    141153     NAMELIST/namdct/nn_dct,nn_dctwri,nn_secdebug 
    142154     INTEGER  ::   ios                 ! Local integer output status for namelist read 
     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='DIA_DCT_INIT' 
     160 
     161     IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     162 
    143163 
    144164     IF( nn_timing == 1 )   CALL timing_start('dia_dct_init') 
     
    188208     IF( nn_timing == 1 )   CALL timing_stop('dia_dct_init') 
    189209     ! 
     210     IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    190211  END SUBROUTINE dia_dct_init 
    191212  
     
    220241     REAL(wp), POINTER, DIMENSION(:)    :: zwork !   "   
    221242     REAL(wp), POINTER, DIMENSION(:,:,:):: zsum  !   " 
     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='DIA_DCT' 
     248 
     249     IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     250 
    222251 
    223252     !!---------------------------------------------------------------------     
     
    304333     IF( nn_timing == 1 )   CALL timing_stop('dia_dct') 
    305334     ! 
     335     IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    306336  END SUBROUTINE dia_dct 
    307337 
     
    331361     LOGICAL :: llbon                                       ,&!local logical 
    332362                lldebug                                       !debug the section 
     363                INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     364                INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     365                REAL(KIND=jprb)               :: zhook_handle 
     366 
     367                CHARACTER(LEN=*), PARAMETER :: RoutineName='READSEC' 
     368 
     369                IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     370 
    333371     !!------------------------------------------------------------------------------------- 
    334372     CALL wrk_alloc( nb_point_max, directemp ) 
     
    506544     CALL wrk_dealloc( nb_point_max, directemp ) 
    507545     ! 
     546                IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    508547  END SUBROUTINE readsec 
    509548 
     
    526565                itest         ,& !indice value of the side of the domain  
    527566                                 !where points could be redundant 
     567                                 INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     568                                 INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     569                                 REAL(KIND=jprb)               :: zhook_handle 
     570 
     571                                 CHARACTER(LEN=*), PARAMETER :: RoutineName='REMOVEPOINTS' 
     572 
     573                                 IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     574 
    528575                isgn          ,& ! isgn= 1 : scan listpoint from start to end 
    529576                                 ! isgn=-1 : scan listpoint from end to start  
     
    586633     CALL wrk_dealloc(    nb_point_max, idirec ) 
    587634     CALL wrk_dealloc( 2, nb_point_max, icoord ) 
     635                                 IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    588636  END SUBROUTINE removepoints 
    589637 
     
    622670 
    623671     TYPE(POINT_SECTION) :: k 
     672     INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     673     INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     674     REAL(KIND=jprb)               :: zhook_handle 
     675 
     676     CHARACTER(LEN=*), PARAMETER :: RoutineName='TRANSPORT' 
     677 
     678     IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     679 
    624680     !!-------------------------------------------------------- 
    625681 
     
    807863     ENDIF !end of sec%nb_point =0 case 
    808864     ! 
     865     IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    809866  END SUBROUTINE transport 
    810867   
     
    835892     INTEGER  :: jk,jseg,jclass                        ! dummy variables for looping on level/segment/classes   
    836893     REAL(wp) :: ztn, zsn, zrhoi, zrhop, zsshn, zfsdep ! temperature/salinity/ssh/potential density /depth at u/v point  
     894     INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     895     INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     896     REAL(KIND=jprb)               :: zhook_handle 
     897 
     898     CHARACTER(LEN=*), PARAMETER :: RoutineName='DIA_DCT_SUM' 
     899 
     900     IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     901 
    837902     !!-------------------------------------------------------------  
    838903  
     
    9991064     ENDIF !end of sec%nb_point =0 case  
    10001065  
     1066     IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    10011067  END SUBROUTINE dia_dct_sum  
    10021068   
     
    10301096     ! 
    10311097     REAL(wp), POINTER, DIMENSION(:):: zsumclasses ! 1D workspace  
     1098     INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     1099     INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     1100     REAL(KIND=jprb)               :: zhook_handle 
     1101 
     1102     CHARACTER(LEN=*), PARAMETER :: RoutineName='DIA_DCT_WRI' 
     1103 
     1104     IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     1105 
    10321106     !!-------------------------------------------------------------  
    10331107     CALL wrk_alloc(nb_type_class , zsumclasses )   
     
    11441218 
    11451219     CALL wrk_dealloc(nb_type_class , zsumclasses )   
     1220     IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    11461221  END SUBROUTINE dia_dct_wri 
    11471222 
     
    12181293  REAL(wp):: zdep1,zdep2                                       ! differences of depth 
    12191294  REAL(wp):: zmsk                                              ! mask value 
     1295  INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     1296  INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     1297  REAL(KIND=jprb)               :: zhook_handle 
     1298 
     1299  CHARACTER(LEN=*), PARAMETER :: RoutineName='INTERP' 
     1300 
     1301  IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     1302 
    12201303  !!---------------------------------------------------------------------- 
    12211304 
     
    12901373 
    12911374 
     1375  IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    12921376  END FUNCTION interp 
    12931377 
     
    13021386 
    13031387   SUBROUTINE dia_dct_init          ! Dummy routine 
     1388   USE yomhook, ONLY: lhook, dr_hook 
     1389   USE parkind1, ONLY: jprb, jpim 
     1390 
    13041391   IMPLICIT NONE 
     1392   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     1393   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     1394   REAL(KIND=jprb)               :: zhook_handle 
     1395 
     1396   CHARACTER(LEN=*), PARAMETER :: RoutineName='DIA_DCT_INIT' 
     1397 
     1398   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     1399 
    13051400      WRITE(*,*) 'dia_dct_init: You should not have seen this print! error?' 
     1401   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    13061402   END SUBROUTINE dia_dct_init 
    13071403 
    13081404   SUBROUTINE dia_dct( kt )         ! Dummy routine 
     1405   USE yomhook, ONLY: lhook, dr_hook 
     1406   USE parkind1, ONLY: jprb, jpim 
     1407 
    13091408   IMPLICIT NONE 
    13101409      INTEGER, INTENT( in ) :: kt   ! ocean time-step index 
     1410      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     1411      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     1412      REAL(KIND=jprb)               :: zhook_handle 
     1413 
     1414      CHARACTER(LEN=*), PARAMETER :: RoutineName='DIA_DCT' 
     1415 
     1416      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     1417 
    13111418      WRITE(*,*) 'dia_dct: You should not have seen this print! error?', kt 
     1419      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    13121420   END SUBROUTINE dia_dct 
    13131421#endif 
  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DIA/diafwb.F90

    r6486 r11738  
    2222   USE lib_mpp         ! distributed memory computing library 
    2323   USE timing          ! preformance summary 
     24 
     25   USE yomhook, ONLY: lhook, dr_hook 
     26   USE parkind1, ONLY: jprb, jpim 
    2427 
    2528   IMPLICIT NONE 
     
    5962      REAL(wp) :: zt, zs, zu   
    6063      REAL(wp) :: zsm0, zfwfnew 
     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='DIA_FWB' 
     69 
     70      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     71 
    6172      IF( cp_cfg == "orca" .AND. jp_cfg == 1 .OR. jp_cfg == 2 .OR. jp_cfg == 4 ) THEN 
    6273      !!---------------------------------------------------------------------- 
     
    469480      ENDIF  
    470481 
     482      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    471483   END SUBROUTINE dia_fwb 
    472484 
  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DIA/diahth.F90

    r10047 r11738  
    2525   USE timing          ! preformance summary 
    2626 
     27   USE yomhook, ONLY: lhook, dr_hook 
     28   USE parkind1, ONLY: jprb, jpim 
     29 
    2730   IMPLICIT NONE 
    2831   PRIVATE 
     
    5053      !!--------------------------------------------------------------------- 
    5154      INTEGER :: dia_hth_alloc 
     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='DIA_HTH_ALLOC' 
     60 
     61      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     62 
    5263      !!--------------------------------------------------------------------- 
    5364      ! 
     
    5768      IF(dia_hth_alloc /= 0)   CALL ctl_warn('dia_hth_alloc: failed to allocate arrays.') 
    5869      ! 
     70      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    5971   END FUNCTION dia_hth_alloc 
    6072 
     
    103115      REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:) ::   zthick     ! vertical integration thickness  
    104116      REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:) ::   zdelr      ! delta rho equivalent to deltaT = 0.2 
     117      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     118      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     119      REAL(KIND=jprb)               :: zhook_handle 
     120 
     121      CHARACTER(LEN=*), PARAMETER :: RoutineName='DIA_HTH' 
     122 
     123      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     124 
    105125      !!---------------------------------------------------------------------- 
    106126      IF( nn_timing == 1 )   CALL timing_start('dia_hth') 
     
    334354      IF( nn_timing == 1 )   CALL timing_stop('dia_hth') 
    335355      ! 
     356      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    336357   END SUBROUTINE dia_hth 
    337358 
     
    343364CONTAINS 
    344365   SUBROUTINE dia_hth( kt )         ! Empty routine 
     366   USE yomhook, ONLY: lhook, dr_hook 
     367   USE parkind1, ONLY: jprb, jpim 
     368 
    345369   IMPLICIT NONE 
    346370    INTEGER, INTENT( in ) ::   kt      ! ocean time-step index 
     371    INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     372    INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     373    REAL(KIND=jprb)               :: zhook_handle 
     374 
     375    CHARACTER(LEN=*), PARAMETER :: RoutineName='DIA_HTH' 
     376 
     377    IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     378 
    347379    WRITE(*,*) 'dia_hth: You should not have seen this print! error?', kt 
     380    IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    348381   END SUBROUTINE dia_hth 
    349382#endif 
  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DIA/diainsitutem.F90

    r8400 r11738  
    66  USE lbclnk,         ONLY: lbc_lnk 
    77  USE lib_mpp         ! MPP library 
     8 
     9  USE yomhook, ONLY: lhook, dr_hook 
     10  USE parkind1, ONLY: jprb, jpim 
    811 
    912  IMPLICIT NONE 
     
    2528      !!---------------------------------------------------------------------- 
    2629      INTEGER, DIMENSION(2) :: ierr 
     30      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     31      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     32      REAL(KIND=jprb)               :: zhook_handle 
     33 
     34      CHARACTER(LEN=*), PARAMETER :: RoutineName='INSITU_TEM_ALLOC' 
     35 
     36      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     37 
    2738      !!---------------------------------------------------------------------- 
    2839      ! 
     
    3445      IF( lk_mpp )   CALL mpp_sum( insitu_tem_alloc ) 
    3546      ! 
     47      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    3648  END FUNCTION insitu_tem_alloc 
    3749 
     
    5769    REAL(wp), DIMENSION(jpi,jpj,jpk) :: zSS           ! salinity(PSU) - 35.0 
    5870    REAL(wp), DIMENSION(jpi,jpj,jpk) :: zLAPSE        ! adiabatic lapse rate 
     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='THETA2T' 
     76 
     77    IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     78 
    5979 
    6080!CDIR IEXPAND (ATG) 
     
    98118     CALL lbc_lnk( insitu_t,  'T', 1.0) 
    99119 
     120    IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    100121   END SUBROUTINE theta2t 
    101122 
     
    106127     REAL, INTENT(IN   ) :: DS(jpi,jpj,jpk)       ! SALINITY (PSU) -35.0 
    107128     REAL, INTENT(  OUT) :: zLAPSE(jpi,jpj,jpk)   ! LAPSE RATE 
     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='ATG' 
     134 
     135     IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     136 
    108137 
    109138       zLAPSE = ((( -2.1687E-16*T+1.8676E-14)*T-4.6206E-13)*P & 
     
    113142           + ((6.6228E-10*T-6.836E-8)*T+8.5258E-6)*T+3.5803E-5  
    114143 
     144     IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    115145   END SUBROUTINE ATG 
    116146 
  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DIA/dianam.F90

    r6486 r11738  
    1616   USE in_out_manager  ! I/O manager 
    1717   USE ioipsl, ONLY :  ju2ymds    ! for calendar 
     18 
     19   USE yomhook, ONLY: lhook, dr_hook 
     20   USE parkind1, ONLY: jprb, jpim 
    1821 
    1922   IMPLICIT NONE 
     
    6366      REAL(wp)           ::   zsec1, zsec2                     ! not used 
    6467      REAL(wp)           ::   zdrun, zjul                      ! temporary scalars 
     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='DIA_NAM' 
     73 
     74      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     75 
    6576      !!---------------------------------------------------------------------- 
    6677 
     
    131142      IF( .NOT. Agrif_Root() ) cdfnam = TRIM(Agrif_CFixed())//'_'//TRIM(cdfnam) 
    132143 
     144      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    133145   END SUBROUTINE dia_nam 
    134146 
  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DIA/diaprod.F90

    r7993 r11738  
    2727   USE diaptr 
    2828 
     29   USE yomhook, ONLY: lhook, dr_hook 
     30   USE parkind1, ONLY: jprb, jpim 
     31 
    2932   IMPLICIT NONE 
    3033   PRIVATE 
     
    6265      REAL(wp), POINTER, DIMENSION(:,:,:) :: z3d      ! 3D workspace 
    6366      REAL(wp), POINTER, DIMENSION(:,:,:) :: zrhop    ! potential density 
     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='DIA_PROD' 
     72 
     73      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     74 
    6475      !!---------------------------------------------------------------------- 
    6576      !  
     
    233244      IF( nn_timing == 1 )   CALL timing_stop('dia_prod') 
    234245      ! 
     246      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    235247   END SUBROUTINE dia_prod 
    236248#else 
     
    242254   SUBROUTINE dia_prod( kt )   ! Empty routine 
    243255      INTEGER ::   kt 
     256      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     257      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     258      REAL(KIND=jprb)               :: zhook_handle 
     259 
     260      CHARACTER(LEN=*), PARAMETER :: RoutineName='DIA_PROD' 
     261 
     262      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     263 
    244264      WRITE(*,*) 'dia_prod: You should not have seen this print! error?', kt 
     265      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    245266   END SUBROUTINE dia_prod 
    246267#endif 
  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DIA/diaptr.F90

    r10047 r11738  
    2929   USE timing           ! preformance summary 
    3030 
     31   USE yomhook, ONLY: lhook, dr_hook 
     32   USE parkind1, ONLY: jprb, jpim 
     33 
    3134   IMPLICIT NONE 
    3235   PRIVATE 
     
    97100 
    98101      CHARACTER( len = 12 )  :: cl1 
     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='DIA_PTR' 
     107 
     108      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     109 
    99110      !!---------------------------------------------------------------------- 
    100111      ! 
     
    446457      IF( nn_timing == 1 )   CALL timing_stop('dia_ptr') 
    447458      ! 
     459      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    448460   END SUBROUTINE dia_ptr 
    449461 
     
    460472      !! 
    461473      NAMELIST/namptr/ ln_diaptr, ln_subbas 
     474      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     475      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     476      REAL(KIND=jprb)               :: zhook_handle 
     477 
     478      CHARACTER(LEN=*), PARAMETER :: RoutineName='DIA_PTR_INIT' 
     479 
     480      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     481 
    462482      !!---------------------------------------------------------------------- 
    463483 
     
    528548      ENDIF  
    529549      !  
     550      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    530551   END SUBROUTINE dia_ptr_init 
    531552 
     
    541562      REAL(wp), DIMENSION(jpi,jpj,jpk), INTENT(in)   :: pva   ! 3D input array of advection/diffusion 
    542563      INTEGER                                        :: jn    ! 
     564      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     565      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     566      REAL(KIND=jprb)               :: zhook_handle 
     567 
     568      CHARACTER(LEN=*), PARAMETER :: RoutineName='DIA_PTR_OHST_COMPONENTS' 
     569 
     570      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     571 
    543572 
    544573      IF( cptr == 'adv' ) THEN 
     
    611640         ! 
    612641      ENDIF 
     642      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    613643   END SUBROUTINE dia_ptr_ohst_components 
    614644 
     
    620650      INTEGER               ::   dia_ptr_alloc   ! return value 
    621651      INTEGER, DIMENSION(3) ::   ierr 
     652      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     653      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     654      REAL(KIND=jprb)               :: zhook_handle 
     655 
     656      CHARACTER(LEN=*), PARAMETER :: RoutineName='DIA_PTR_ALLOC' 
     657 
     658      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     659 
    622660      !!---------------------------------------------------------------------- 
    623661      ierr(:) = 0 
     
    639677      IF(lk_mpp)   CALL mpp_sum( dia_ptr_alloc ) 
    640678      ! 
     679      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    641680   END FUNCTION dia_ptr_alloc 
    642681 
     
    659698      INTEGER                  ::   ijpj         ! ??? 
    660699      REAL(wp), POINTER, DIMENSION(:) :: p_fval  ! function value 
     700      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     701      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     702      REAL(KIND=jprb)               :: zhook_handle 
     703 
     704      CHARACTER(LEN=*), PARAMETER :: RoutineName='PTR_SJ_3D' 
     705 
     706      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     707 
    661708      !!-------------------------------------------------------------------- 
    662709      ! 
     
    686733#endif 
    687734      ! 
     735      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    688736   END FUNCTION ptr_sj_3d 
    689737 
     
    706754      INTEGER                  ::   ijpj        ! ??? 
    707755      REAL(wp), POINTER, DIMENSION(:) :: p_fval ! function value 
     756      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     757      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     758      REAL(KIND=jprb)               :: zhook_handle 
     759 
     760      CHARACTER(LEN=*), PARAMETER :: RoutineName='PTR_SJ_2D' 
     761 
     762      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     763 
    708764      !!-------------------------------------------------------------------- 
    709765      !  
     
    729785#endif 
    730786      !  
     787      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    731788   END FUNCTION ptr_sj_2d 
    732789 
     
    743800      !!---------------------------------------------------------------------- 
    744801      !! 
     802      USE yomhook, ONLY: lhook, dr_hook 
     803      USE parkind1, ONLY: jprb, jpim 
     804 
    745805      IMPLICIT none 
    746806      REAL(wp) , INTENT(in), DIMENSION(jpi,jpj,jpk)           ::   pta    ! mask flux array at V-point 
     
    754814      INTEGER               ::   ijpjjpk 
    755815      REAL(wp), DIMENSION(jpj*jpk) ::   zwork    ! mask flux array at V-point 
     816      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     817      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     818      REAL(KIND=jprb)               :: zhook_handle 
     819 
     820      CHARACTER(LEN=*), PARAMETER :: RoutineName='PTR_SJK' 
     821 
     822      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     823 
    756824#endif 
    757825      !!-------------------------------------------------------------------- 
     
    789857      ! 
    790858 
     859      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    791860   END FUNCTION ptr_sjk 
    792861 
  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DIA/diawri.F90

    r10047 r11738  
    5858   USE wrk_nemo        ! working array 
    5959 
     60   USE yomhook, ONLY: lhook, dr_hook 
     61   USE parkind1, ONLY: jprb, jpim 
     62 
    6063   IMPLICIT NONE 
    6164   PRIVATE 
     
    8992      !!---------------------------------------------------------------------- 
    9093      INTEGER, DIMENSION(2) :: ierr 
     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='DIA_WRI_ALLOC' 
     99 
     100      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     101 
    91102      !!---------------------------------------------------------------------- 
    92103      ierr = 0 
     
    98109      IF( lk_mpp )   CALL mpp_sum( dia_wri_alloc ) 
    99110      ! 
     111      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    100112  END FUNCTION dia_wri_alloc 
    101113 
     
    133145      REAL(wp), POINTER, DIMENSION(:,:)   :: z2d      ! 2D workspace 
    134146      REAL(wp), POINTER, DIMENSION(:,:,:) :: z3d      ! 3D workspace 
     147      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     148      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     149      REAL(KIND=jprb)               :: zhook_handle 
     150 
     151      CHARACTER(LEN=*), PARAMETER :: RoutineName='DIA_WRI' 
     152 
     153      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     154 
    135155      !!---------------------------------------------------------------------- 
    136156      !  
     
    440460      IF( nn_timing == 1 )   CALL timing_stop('dia_wri') 
    441461      ! 
     462      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    442463   END SUBROUTINE dia_wri 
    443464 
     
    473494      REAL(wp), POINTER, DIMENSION(:,:)   :: zw2d       ! 2D workspace 
    474495      REAL(wp), POINTER, DIMENSION(:,:,:) :: zw3d       ! 3D workspace 
     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='DIA_WRI' 
     501 
     502      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     503 
    475504      !!---------------------------------------------------------------------- 
    476505      !  
     
    562591            IF( ierror /= 0 ) THEN 
    563592               CALL ctl_stop('dia_wri: failed to allocate iceberg diagnostic array') 
     593      IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 
    564594               RETURN 
    565595            ENDIF 
     
    9881018      IF( nn_timing == 1 )   CALL timing_stop('dia_wri') 
    9891019      ! 
     1020      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    9901021   END SUBROUTINE dia_wri 
    9911022# endif 
     
    10141045      INTEGER, DIMENSION(1) ::   idex             ! local workspace 
    10151046      REAL(wp) ::   zsto, zout, zmax, zjulian, zdt 
     1047      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     1048      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     1049      REAL(KIND=jprb)               :: zhook_handle 
     1050 
     1051      CHARACTER(LEN=*), PARAMETER :: RoutineName='DIA_WRI_STATE' 
     1052 
     1053      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     1054 
    10161055      !!---------------------------------------------------------------------- 
    10171056      !  
     
    11321171      !  
    11331172 
     1173      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    11341174   END SUBROUTINE dia_wri_state 
    11351175   !!====================================================================== 
  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DOM/closea.F90

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

    r9321 r11738  
    3636   USE restart         ! restart 
    3737 
     38   USE yomhook, ONLY: lhook, dr_hook 
     39   USE parkind1, ONLY: jprb, jpim 
     40 
    3841   IMPLICIT NONE 
    3942   PRIVATE 
     
    7174      INTEGER  ::   inbday, idweek 
    7275      REAL(wp) ::   zjul 
     76      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     77      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     78      REAL(KIND=jprb)               :: zhook_handle 
     79 
     80      CHARACTER(LEN=*), PARAMETER :: RoutineName='DAY_INIT' 
     81 
     82      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     83 
    7384      !!---------------------------------------------------------------------- 
    7485      ! 
     
    135146      CALL day( nit000 ) 
    136147      ! 
     148      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    137149   END SUBROUTINE day_init 
    138150 
     
    150162      !!---------------------------------------------------------------------- 
    151163      INTEGER  ::   jm               ! dummy loop indice 
     164      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     165      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     166      REAL(KIND=jprb)               :: zhook_handle 
     167 
     168      CHARACTER(LEN=*), PARAMETER :: RoutineName='DAY_MTH' 
     169 
     170      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     171 
    152172      !!---------------------------------------------------------------------- 
    153173 
     
    190210      END DO 
    191211      ! 
     212      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    192213   END SUBROUTINE 
    193214 
     
    213234      CHARACTER (len=25) ::   charout 
    214235      REAL(wp)           ::   zprec      ! fraction of day corresponding to 0.1 second 
     236      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     237      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     238      REAL(KIND=jprb)               :: zhook_handle 
     239 
     240      CHARACTER(LEN=*), PARAMETER :: RoutineName='DAY' 
     241 
     242      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     243 
    215244      !!---------------------------------------------------------------------- 
    216245      ! 
     
    271300      IF( nn_timing == 1 )  CALL timing_stop('day') 
    272301      ! 
     302      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    273303   END SUBROUTINE day 
    274304 
     
    303333      ! 
    304334      REAL(wp) ::   zkt, zndastp 
     335      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     336      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     337      REAL(KIND=jprb)               :: zhook_handle 
     338 
     339      CHARACTER(LEN=*), PARAMETER :: RoutineName='DAY_RST' 
     340 
     341      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     342 
    305343      !!---------------------------------------------------------------------- 
    306344 
     
    371409      ENDIF 
    372410      ! 
     411      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    373412   END SUBROUTINE day_rst 
    374413 
  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DOM/dom_oce.F90

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

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

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

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

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

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

    r6486 r11738  
    1616   USE in_out_manager ! I/O manager 
    1717   USE lib_mpp        ! MPP library 
     18 
     19   USE yomhook, ONLY: lhook, dr_hook 
     20   USE parkind1, ONLY: jprb, jpim 
    1821 
    1922   IMPLICIT NONE 
     
    5962      !!---------------------------------------------------------------------- 
    6063      INTEGER ::   jk              ! dummy loop indice 
     64      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     65      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     66      REAL(KIND=jprb)               :: zhook_handle 
     67 
     68      CHARACTER(LEN=*), PARAMETER :: RoutineName='DOM_STP' 
     69 
     70      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     71 
    6172      !!---------------------------------------------------------------------- 
    6273 
     
    106117      END SELECT 
    107118 
     119      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    108120   END SUBROUTINE dom_stp 
    109121 
  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DOM/domvvl.F90

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

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

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

    r6486 r11738  
    2424   USE timing          ! Timing 
    2525 
     26   USE yomhook, ONLY: lhook, dr_hook 
     27   USE parkind1, ONLY: jprb, jpim 
     28 
    2629   IMPLICIT NONE 
    2730   PRIVATE 
     
    6366      NAMELIST/namtsd/   ln_tsd_init, ln_tsd_tradmp, cn_dir, sn_tem, sn_sal 
    6467      INTEGER  ::   ios 
     68      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     69      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     70      REAL(KIND=jprb)               :: zhook_handle 
     71 
     72      CHARACTER(LEN=*), PARAMETER :: RoutineName='DTA_TSD_INIT' 
     73 
     74      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     75 
    6576      !!---------------------------------------------------------------------- 
    6677      ! 
     
    125136      IF( nn_timing == 1 )  CALL timing_stop('dta_tsd_init') 
    126137      ! 
     138      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    127139   END SUBROUTINE dta_tsd_init 
    128140 
     
    150162      REAL(wp)::   zl, zi 
    151163      REAL(wp), POINTER, DIMENSION(:) ::  ztp, zsp   ! 1D workspace 
     164      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     165      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     166      REAL(KIND=jprb)               :: zhook_handle 
     167 
     168      CHARACTER(LEN=*), PARAMETER :: RoutineName='DTA_TSD' 
     169 
     170      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     171 
    152172      !!---------------------------------------------------------------------- 
    153173      ! 
     
    308328      IF( nn_timing == 1 )  CALL timing_stop('dta_tsd') 
    309329      ! 
     330      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    310331   END SUBROUTINE dta_tsd 
    311332 
  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DOM/istate.F90

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

    r6488 r11738  
    1818   USE in_out_manager   ! I/O manager 
    1919 
     20   USE yomhook, ONLY: lhook, dr_hook 
     21   USE parkind1, ONLY: jprb, jpim 
     22 
    2023   IMPLICIT NONE 
    2124   PRIVATE 
     
    107110      !!---------------------------------------------------------------------- 
    108111      CHARACTER (len=64) ::   cform = "(A12, 3(A13, I7) )"  
     112      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     113      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     114      REAL(KIND=jprb)               :: zhook_handle 
     115 
     116      CHARACTER(LEN=*), PARAMETER :: RoutineName='PHY_CST' 
     117 
     118      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     119 
    109120      !!---------------------------------------------------------------------- 
    110121 
     
    209220      ENDIF 
    210221 
     222      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    211223   END SUBROUTINE phy_cst 
    212224 
  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DYN/divcur.F90

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

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

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

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

    r6486 r11738  
    2222   USE timing         ! Timing 
    2323   USE wrk_nemo       ! Memory Allocation 
     24 
     25   USE yomhook, ONLY: lhook, dr_hook 
     26   USE parkind1, ONLY: jprb, jpim 
    2427 
    2528   IMPLICIT NONE 
     
    5356      REAL(wp) ::   zm1_2dt      ! local scalar 
    5457      REAL(wp), POINTER, DIMENSION(:,:,:) ::  ztrdu, ztrdv 
     58      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     59      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     60      REAL(KIND=jprb)               :: zhook_handle 
     61 
     62      CHARACTER(LEN=*), PARAMETER :: RoutineName='DYN_BFR' 
     63 
     64      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     65 
    5566      !!--------------------------------------------------------------------- 
    5667      ! 
     
    115126      IF( nn_timing == 1 )  CALL timing_stop('dyn_bfr') 
    116127      ! 
     128      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    117129   END SUBROUTINE dyn_bfr 
    118130 
  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DYN/dynhpg.F90

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

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

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

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

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

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

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

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

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

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

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

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

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

    r6486 r11738  
    2424   USE wrk_nemo       ! Memory Allocation 
    2525   USE timing         ! Timing 
     26 
     27   USE yomhook, ONLY: lhook, dr_hook 
     28   USE parkind1, ONLY: jprb, jpim 
    2629 
    2730   IMPLICIT NONE 
     
    6467      REAL(wp), POINTER, DIMENSION(:,:  ) ::  zww 
    6568      REAL(wp), POINTER, DIMENSION(:,:,:) ::  ztrdu, ztrdv 
     69      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     70      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     71      REAL(KIND=jprb)               :: zhook_handle 
     72 
     73      CHARACTER(LEN=*), PARAMETER :: RoutineName='DYN_ZAD' 
     74 
     75      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     76 
    6677      !!---------------------------------------------------------------------- 
    6778      ! 
     
    145156      IF( nn_timing == 1 )  CALL timing_stop('dyn_zad') 
    146157      ! 
     158      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    147159   END SUBROUTINE dyn_zad 
    148160 
     
    178190      REAL(wp), POINTER, DIMENSION(:,:,:)   ::  ztrdu, ztrdv 
    179191      REAL(wp), POINTER, DIMENSION(:,:,:,:) ::  zus , zvs 
     192      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     193      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     194      REAL(KIND=jprb)               :: zhook_handle 
     195 
     196      CHARACTER(LEN=*), PARAMETER :: RoutineName='DYN_ZAD_ZTS' 
     197 
     198      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     199 
    180200      !!---------------------------------------------------------------------- 
    181201      ! 
     
    288308      IF( nn_timing == 1 )  CALL timing_stop('dyn_zad_zts') 
    289309      ! 
     310      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    290311   END SUBROUTINE dyn_zad_zts 
    291312 
  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DYN/dynzdf.F90

    r6486 r11738  
    2727   USE wrk_nemo        ! Memory Allocation 
    2828   USE timing          ! Timing 
     29 
     30   USE yomhook, ONLY: lhook, dr_hook 
     31   USE parkind1, ONLY: jprb, jpim 
    2932 
    3033   IMPLICIT NONE 
     
    5962      ! 
    6063      REAL(wp), POINTER, DIMENSION(:,:,:) ::  ztrdu, ztrdv 
     64      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     65      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     66      REAL(KIND=jprb)               :: zhook_handle 
     67 
     68      CHARACTER(LEN=*), PARAMETER :: RoutineName='DYN_ZDF' 
     69 
     70      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     71 
    6172      !!--------------------------------------------------------------------- 
    6273      ! 
     
    100111      IF( nn_timing == 1 )  CALL timing_stop('dyn_zdf') 
    101112      ! 
     113      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    102114   END SUBROUTINE dyn_zdf 
    103115 
     
    115127      USE zdfgls 
    116128      USE zdfkpp 
     129      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     130      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     131      REAL(KIND=jprb)               :: zhook_handle 
     132 
     133      CHARACTER(LEN=*), PARAMETER :: RoutineName='DYN_ZDF_INIT' 
     134 
     135      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     136 
    117137      !!---------------------------------------------------------------------- 
    118138      ! 
     
    138158      ENDIF 
    139159      ! 
     160      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    140161   END SUBROUTINE dyn_zdf_init 
    141162 
  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DYN/dynzdf_exp.F90

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

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

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