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