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

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

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

The Dr Hook changes from my perl code.

Location:
branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC
Files:
129 edited

Legend:

Unmodified
Added
Removed

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

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

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DIA/diadct.F90

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

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DIA/diafwb.F90

    r6486 r11738  
    2222   USE lib_mpp         ! distributed memory computing library 
    2323   USE timing          ! preformance summary 
     24 
     25   USE yomhook, ONLY: lhook, dr_hook 
     26   USE parkind1, ONLY: jprb, jpim 
    2427 
    2528   IMPLICIT NONE 
    … …  
    5962      REAL(wp) :: zt, zs, zu   
    6063      REAL(wp) :: zsm0, zfwfnew 
     64      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     65      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     66      REAL(KIND=jprb)               :: zhook_handle 
     67 
     68      CHARACTER(LEN=*), PARAMETER :: RoutineName='DIA_FWB' 
     69 
     70      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     71 
    6172      IF( cp_cfg == "orca" .AND. jp_cfg == 1 .OR. jp_cfg == 2 .OR. jp_cfg == 4 ) THEN 
    6273      !!---------------------------------------------------------------------- 
    … …  
    469480      ENDIF  
    470481 
     482      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    471483   END SUBROUTINE dia_fwb 
    472484 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DIA/diahth.F90

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

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DIA/diainsitutem.F90

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

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DIA/dianam.F90

    r6486 r11738  
    1616   USE in_out_manager  ! I/O manager 
    1717   USE ioipsl, ONLY :  ju2ymds    ! for calendar 
     18 
     19   USE yomhook, ONLY: lhook, dr_hook 
     20   USE parkind1, ONLY: jprb, jpim 
    1821 
    1922   IMPLICIT NONE 
    … …  
    6366      REAL(wp)           ::   zsec1, zsec2                     ! not used 
    6467      REAL(wp)           ::   zdrun, zjul                      ! temporary scalars 
     68      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     69      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     70      REAL(KIND=jprb)               :: zhook_handle 
     71 
     72      CHARACTER(LEN=*), PARAMETER :: RoutineName='DIA_NAM' 
     73 
     74      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     75 
    6576      !!---------------------------------------------------------------------- 
    6677 
    … …  
    131142      IF( .NOT. Agrif_Root() ) cdfnam = TRIM(Agrif_CFixed())//'_'//TRIM(cdfnam) 
    132143 
     144      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    133145   END SUBROUTINE dia_nam 
    134146 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DIA/diaprod.F90

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

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DIA/diaptr.F90

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

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DIA/diawri.F90

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

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DOM/closea.F90

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

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DOM/daymod.F90

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

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DOM/dom_oce.F90

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

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90

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

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DOM/domcfg.F90

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

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DOM/domhgr.F90

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

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DOM/dommsk.F90

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

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DOM/domngb.F90

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

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DOM/domstp.F90

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

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DOM/domvvl.F90

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

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DOM/domwri.F90

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

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DOM/domzgr.F90

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

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DOM/dtatsd.F90

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

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DOM/istate.F90

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

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DOM/phycst.F90

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

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DYN/divcur.F90

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

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DYN/dynadv.F90

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

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DYN/dynadv_cen2.F90

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

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DYN/dynadv_ubs.F90

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

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DYN/dynbfr.F90

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

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DYN/dynhpg.F90

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

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DYN/dynkeg.F90

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

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DYN/dynldf.F90

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

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DYN/dynldf_bilap.F90

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

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DYN/dynldf_bilapg.F90

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

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DYN/dynldf_iso.F90

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

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DYN/dynldf_lap.F90

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

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DYN/dynnxt.F90

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

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg.F90

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

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_exp.F90

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

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_flt.F90

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

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_oce.F90

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

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DYN/dynvor.F90

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

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DYN/dynzad.F90

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

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DYN/dynzdf.F90

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

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DYN/dynzdf_exp.F90

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

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DYN/dynzdf_imp.F90

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

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DYN/sshwzv.F90

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

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

    r6486 r11738  
    3737   USE par_oce   ! ocean parameters 
    3838   USE lib_mpp   ! MPP library 
     39 
     40   USE yomhook, ONLY: lhook, dr_hook 
     41   USE parkind1, ONLY: jprb, jpim 
    3942 
    4043   IMPLICIT NONE 
    … …  
    156159      !!---------------------------------------------------------------------- 
    157160      INTEGER ::   ill 
     161      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     162      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     163      REAL(KIND=jprb)               :: zhook_handle 
     164 
     165      CHARACTER(LEN=*), PARAMETER :: RoutineName='ICB_ALLOC' 
     166 
     167      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     168 
    158169      !!---------------------------------------------------------------------- 
    159170      ! 
    … …  
    192203      IF( icb_alloc > 0 )   CALL ctl_warn('icb_alloc: allocation of arrays failed') 
    193204      ! 
     205      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    194206   END FUNCTION icb_alloc 
    195207 

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

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

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

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

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

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

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

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

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

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

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

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

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

    r6491 r11738  
    2727   USE icbdia         ! iceberg budget routines 
    2828 
     29   USE yomhook, ONLY: lhook, dr_hook 
     30   USE parkind1, ONLY: jprb, jpim 
     31 
    2932   IMPLICIT NONE 
    3033   PRIVATE 
    … …  
    5356      TYPE(iceberg), POINTER ::   this, next 
    5457      TYPE(point)  , POINTER ::   pt 
     58      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     59      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     60      REAL(KIND=jprb)               :: zhook_handle 
     61 
     62      CHARACTER(LEN=*), PARAMETER :: RoutineName='ICB_THM' 
     63 
     64      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     65 
    5566      !!---------------------------------------------------------------------- 
    5667      ! 
    … …  
    213224      ENDIF 
    214225      ! 
     226      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    215227   END SUBROUTINE icb_thm 
    216228 

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

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

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

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

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/LBC/cla.F90

    r6486 r11738  
    2929   USE lib_mpp        ! MPP library 
    3030 
     31   USE yomhook, ONLY: lhook, dr_hook 
     32   USE parkind1, ONLY: jprb, jpim 
     33 
    3134   IMPLICIT NONE 
    3235   PRIVATE 
    … …  
    7477      !!---------------------------------------------------------------------- 
    7578      INTEGER, INTENT( in ) ::   kt      ! ocean time-step index 
     79      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     80      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     81      REAL(KIND=jprb)               :: zhook_handle 
     82 
     83      CHARACTER(LEN=*), PARAMETER :: RoutineName='CLA_DIV' 
     84 
     85      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     86 
    7687      !!---------------------------------------------------------------------- 
    7788      !      
    … …  
    97108!!gm      CALL lbc_lnk( hdivn, 'T', 1. )                    ! Lateral boundary conditions on hdivn 
    98109      ! 
     110      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    99111   END SUBROUTINE cla_div 
    100112    
    … …  
    114126      !!---------------------------------------------------------------------- 
    115127      INTEGER, INTENT( in ) ::   kt         ! ocean time-step index 
     128      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     129      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     130      REAL(KIND=jprb)               :: zhook_handle 
     131 
     132      CHARACTER(LEN=*), PARAMETER :: RoutineName='CLA_TRAADV' 
     133 
     134      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     135 
    116136      !!---------------------------------------------------------------------- 
    117137      ! 
    … …  
    126146      IF( nhor == 1    )   CALL cla_hormuz       ('tra')      ! Hormuz Strait ( Persian Gulf) 
    127147      ! 
     148      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    128149   END SUBROUTINE cla_traadv 
    129150 
    … …  
    141162      !!---------------------------------------------------------------------- 
    142163      INTEGER, INTENT( in ) ::   kt         ! ocean time-step index 
     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='CLA_DYNSPG' 
     169 
     170      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     171 
    143172      !!---------------------------------------------------------------------- 
    144173      ! 
    … …  
    156185!!gm      CALL lbc_lnk( hdivn, 'U', -1. )   ;   CALL lbc_lnk( hdivn, 'V', -1. )      ! Lateral boundary conditions  
    157186      ! 
     187      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    158188   END SUBROUTINE cla_dynspg 
    159189 
    … …  
    176206      REAL(wp) ::   ztemp   ! local scalar 
    177207      INTEGER  ::   ierr    ! local integer 
     208      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     209      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     210      REAL(KIND=jprb)               :: zhook_handle 
     211 
     212      CHARACTER(LEN=*), PARAMETER :: RoutineName='CLA_INIT' 
     213 
     214      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     215 
    178216      !!--------------------------------------------------------------------- 
    179217      ! 
    … …  
    258296      ENDIF 
    259297      ! 
     298      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    260299   END SUBROUTINE cla_init 
    261300 
    … …  
    296335      REAL(wp) ::   zemp_red     ! temporary scalar 
    297336      REAL(wp) ::   zio_flow, zrecirc_upp, zrecirc_mid, zrecirc_bot 
     337      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     338      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     339      REAL(KIND=jprb)               :: zhook_handle 
     340 
     341      CHARACTER(LEN=*), PARAMETER :: RoutineName='CLA_BAB_EL_MANDEB' 
     342 
     343      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     344 
    298345      !!--------------------------------------------------------------------- 
    299346      ! 
    … …  
    437484      END SELECT 
    438485      ! 
     486      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    439487   END SUBROUTINE cla_bab_el_mandeb 
    440488    
    … …  
    470518      REAL(wp) ::   zemp_med     ! temporary scalar 
    471519      REAL(wp) ::   zio_flow, zrecirc_upp, zrecirc_mid, zrecirc_bot 
     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='CLA_GIBRALTAR' 
     525 
     526      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     527 
    472528      !!--------------------------------------------------------------------- 
    473529      ! 
    … …  
    633689      END SELECT 
    634690      ! 
     691      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    635692   END SUBROUTINE cla_gibraltar 
    636693 
    … …  
    659716      INTEGER  ::   ji, jj, jk   ! dummy loop indices 
    660717      REAL(wp) ::   zio_flow     ! temporary scalar 
     718      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     719      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     720      REAL(KIND=jprb)               :: zhook_handle 
     721 
     722      CHARACTER(LEN=*), PARAMETER :: RoutineName='CLA_HORMUZ' 
     723 
     724      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     725 
    661726      !!--------------------------------------------------------------------- 
    662727      ! 
    … …  
    727792      END SELECT 
    728793      ! 
     794      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    729795   END SUBROUTINE cla_hormuz 
    730796    

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/LBC/lbclnk.F90

    r7993 r11738  
    7070   USE lbcnfd          ! north fold 
    7171 
     72   USE yomhook, ONLY: lhook, dr_hook 
     73   USE parkind1, ONLY: jprb, jpim 
     74 
    7275   IMPLICIT NONE 
    7376   PRIVATE 
    … …  
    127130      REAL(wp), DIMENSION(jpi,jpj,jpk), INTENT(inout) ::   pt3d1   , pt3d2      ! 3D array on which the lbc is applied 
    128131      REAL(wp)                        , INTENT(in   ) ::   psgn                 ! control of the sign  
     132      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     133      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     134      REAL(KIND=jprb)               :: zhook_handle 
     135 
     136      CHARACTER(LEN=*), PARAMETER :: RoutineName='LBC_LNK_3D_GATHER' 
     137 
     138      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     139 
    129140      !!---------------------------------------------------------------------- 
    130141      ! 
    … …  
    132143      CALL lbc_lnk_3d( pt3d2, cd_type2, psgn) 
    133144      ! 
     145      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    134146   END SUBROUTINE lbc_lnk_3d_gather 
    135147 
    … …  
    151163      INTEGER  ::   jk     ! dummy loop index 
    152164      REAL(wp) ::   ztab   ! local scalar 
     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='LBC_LNK_3D' 
     170 
     171      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     172 
    153173      !!---------------------------------------------------------------------- 
    154174      ! 
    … …  
    158178      END DO 
    159179      ! 
     180      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    160181   END SUBROUTINE lbc_lnk_3d 
    161182 
    … …  
    176197      ! 
    177198      REAL(wp) ::   ztab   ! local scalar 
     199      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     200      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     201      REAL(KIND=jprb)               :: zhook_handle 
     202 
     203      CHARACTER(LEN=*), PARAMETER :: RoutineName='LBC_LNK_2D' 
     204 
     205      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     206 
    178207      !!---------------------------------------------------------------------- 
    179208      ! 
    … …  
    181210      pt2d(:,:) = ztab 
    182211      ! 
     212      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    183213   END SUBROUTINE lbc_lnk_2d 
    184214    
    … …  
    193223      ! 
    194224      INTEGER  ::   ii    !!MULTI SEND DUMMY LOOP INDICES 
     225      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     226      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     227      REAL(KIND=jprb)               :: zhook_handle 
     228 
     229      CHARACTER(LEN=*), PARAMETER :: RoutineName='LBC_LNK_2D_MULTIPLE' 
     230 
     231      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     232 
    195233      ! 
    196234      DO ii = 1, num_fields 
    … …  
    198236      END DO      
    199237      ! 
     238      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    200239   END SUBROUTINE lbc_lnk_2d_multiple 
    201240 
    … …  
    218257      CHARACTER(len=3)                    , OPTIONAL, INTENT(in   ) ::   cd_mpp   ! fill the overlap area only 
    219258      REAL(wp)                            , OPTIONAL, INTENT(in   ) ::   pval     ! background value (used at closed boundaries) 
     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='LBC_LNK_2D_9' 
     264 
     265      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     266 
    220267      !! 
    221268      !!--------------------------------------------------------------------- 
    … …  
    234281      IF(PRESENT (psgnI) )CALL lbc_lnk( pt2dI, cd_typeI, psgnI )  
    235282 
     283      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    236284   END SUBROUTINE lbc_lnk_2d_9 
    237285 
    … …  
    260308      REAL(wp), DIMENSION(jpi,jpj,jpk), INTENT(inout) ::   pt3d1   , pt3d2      ! 3D array on which the lbc is applied 
    261309      REAL(wp)                        , INTENT(in   ) ::   psgn                 ! control of the sign  
     310      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     311      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     312      REAL(KIND=jprb)               :: zhook_handle 
     313 
     314      CHARACTER(LEN=*), PARAMETER :: RoutineName='LBC_LNK_3D_GATHER' 
     315 
     316      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     317 
    262318      !!---------------------------------------------------------------------- 
    263319      ! 
    … …  
    265321      CALL lbc_lnk_3d( pt3d2, cd_type2, psgn) 
    266322      ! 
     323      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    267324   END SUBROUTINE lbc_lnk_3d_gather 
    268325 
    … …  
    287344      !! 
    288345      REAL(wp) ::   zland 
     346      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     347      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     348      REAL(KIND=jprb)               :: zhook_handle 
     349 
     350      CHARACTER(LEN=*), PARAMETER :: RoutineName='LBC_LNK_3D' 
     351 
     352      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     353 
    289354      !!---------------------------------------------------------------------- 
    290355 
    … …  
    353418      ENDIF 
    354419      ! 
     420      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    355421   END SUBROUTINE lbc_lnk_3d 
    356422 
    … …  
    374440      !! 
    375441      REAL(wp) ::   zland 
     442      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     443      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     444      REAL(KIND=jprb)               :: zhook_handle 
     445 
     446      CHARACTER(LEN=*), PARAMETER :: RoutineName='LBC_LNK_2D' 
     447 
     448      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     449 
    376450      !!---------------------------------------------------------------------- 
    377451 
    … …  
    439513      ENDIF 
    440514      !     
     515      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    441516   END SUBROUTINE lbc_lnk_2d 
    442517    
    … …  
    451526      ! 
    452527      INTEGER  ::   ii    !!MULTI SEND DUMMY LOOP INDICES 
     528      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     529      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     530      REAL(KIND=jprb)               :: zhook_handle 
     531 
     532      CHARACTER(LEN=*), PARAMETER :: RoutineName='LBC_LNK_2D_MULTIPLE' 
     533 
     534      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     535 
    453536      ! 
    454537      DO ii = 1, num_fields 
    … …  
    456539      END DO      
    457540      ! 
     541      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    458542   END SUBROUTINE lbc_lnk_2d_multiple 
    459543 
    … …  
    476560      CHARACTER(len=3)                    , OPTIONAL, INTENT(in   ) ::   cd_mpp   ! fill the overlap area only 
    477561      REAL(wp)                            , OPTIONAL, INTENT(in   ) ::   pval     ! background value (used at closed boundaries) 
     562      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     563      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     564      REAL(KIND=jprb)               :: zhook_handle 
     565 
     566      CHARACTER(LEN=*), PARAMETER :: RoutineName='LBC_LNK_2D_9' 
     567 
     568      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     569 
    478570      !! 
    479571      !!--------------------------------------------------------------------- 
    … …  
    492584      IF(PRESENT (psgnI) )CALL lbc_lnk( pt2dI, cd_typeI, psgnI )  
    493585 
     586      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    494587   END SUBROUTINE lbc_lnk_2d_9 
    495588 
    … …  
    511604      REAL(wp)                        , INTENT(in   )           ::   psgn      ! control of the sign  
    512605      INTEGER                                                   ::   ib_bdy    ! BDY boundary set 
     606      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     607      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     608      REAL(KIND=jprb)               :: zhook_handle 
     609 
     610      CHARACTER(LEN=*), PARAMETER :: RoutineName='LBC_BDY_LNK_3D' 
     611 
     612      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     613 
    513614      !! 
    514615      CALL lbc_lnk_3d( pt3d, cd_type, psgn) 
    515616 
     617      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    516618   END SUBROUTINE lbc_bdy_lnk_3d 
    517619 
    … …  
    529631      REAL(wp)                        , INTENT(in   )           ::   psgn      ! control of the sign  
    530632      INTEGER                                                   ::   ib_bdy    ! BDY boundary set 
     633      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     634      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     635      REAL(KIND=jprb)               :: zhook_handle 
     636 
     637      CHARACTER(LEN=*), PARAMETER :: RoutineName='LBC_BDY_LNK_2D' 
     638 
     639      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     640 
    531641      !! 
    532642      CALL lbc_lnk_2d( pt2d, cd_type, psgn) 
    533643 
     644      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    534645   END SUBROUTINE lbc_bdy_lnk_2d 
    535646 
    … …  
    553664      INTEGER                     , INTENT(in   )           ::   jpri      ! size of extra halo (not needed in non-mpp) 
    554665      INTEGER                     , INTENT(in   )           ::   jprj      ! size of extra halo (not needed in non-mpp) 
     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='LBC_LNK_2D_E' 
     671 
     672      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     673 
    555674      !!---------------------------------------------------------------------- 
    556675 
    557676      CALL lbc_lnk_2d( pt2d, cd_type, psgn ) 
    558677      !     
     678      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    559679   END SUBROUTINE lbc_lnk_2d_e 
    560680 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90

    r8356 r11738  
    6565   USE wrk_nemo       ! work arrays 
    6666 
     67   USE yomhook, ONLY: lhook, dr_hook 
     68   USE parkind1, ONLY: jprb, jpim 
     69 
    6770   IMPLICIT NONE 
    6871   PRIVATE 
    … …  
    365368      REAL(wp), DIMENSION(:,:,:,:), ALLOCATABLE ::   zt3ns, zt3sn   ! 3d for north-south & south-north 
    366369      REAL(wp), DIMENSION(:,:,:,:), ALLOCATABLE ::   zt3ew, zt3we   ! 3d for east-west & west-east 
     370      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     371      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     372      REAL(KIND=jprb)               :: zhook_handle 
     373 
     374      CHARACTER(LEN=*), PARAMETER :: RoutineName='MPP_LNK_3D' 
     375 
     376      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     377 
    367378 
    368379      !!---------------------------------------------------------------------- 
    … …  
    532543      DEALLOCATE( zt3ns, zt3sn, zt3ew, zt3we ) 
    533544      ! 
     545      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    534546   END SUBROUTINE mpp_lnk_3d 
    535547 
    … …  
    857869      REAL(wp), DIMENSION(:,:,:), ALLOCATABLE ::  zt2ns, zt2sn   ! 2d for north-south & south-north 
    858870      REAL(wp), DIMENSION(:,:,:), ALLOCATABLE ::  zt2ew, zt2we   ! 2d for east-west & west-east 
     871      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     872      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     873      REAL(KIND=jprb)               :: zhook_handle 
     874 
     875      CHARACTER(LEN=*), PARAMETER :: RoutineName='MPP_LNK_2D' 
     876 
     877      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     878 
    859879 
    860880      !!---------------------------------------------------------------------- 
    … …  
    10231043      DEALLOCATE( zt2ns, zt2sn, zt2ew, zt2we ) 
    10241044      ! 
     1045      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    10251046   END SUBROUTINE mpp_lnk_2d 
    10261047 
    … …  
    10601081      REAL(wp), DIMENSION(:,:,:,:,:), ALLOCATABLE ::   zt4ns, zt4sn   ! 2 x 3d for north-south & south-north 
    10611082      REAL(wp), DIMENSION(:,:,:,:,:), ALLOCATABLE ::   zt4ew, zt4we   ! 2 x 3d for east-west & west-east 
     1083      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     1084      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     1085      REAL(KIND=jprb)               :: zhook_handle 
     1086 
     1087      CHARACTER(LEN=*), PARAMETER :: RoutineName='MPP_LNK_3D_GATHER' 
     1088 
     1089      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     1090 
    10621091 
    10631092      !!---------------------------------------------------------------------- 
    … …  
    12261255      DEALLOCATE( zt4ns, zt4sn, zt4ew, zt4we ) 
    12271256      ! 
     1257      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    12281258   END SUBROUTINE mpp_lnk_3d_gather 
    12291259 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/LDF/ldfdyn.F90

    r6486 r11738  
    2525   USE wrk_nemo        ! Memory Allocation 
    2626 
     27   USE yomhook, ONLY: lhook, dr_hook 
     28   USE parkind1, ONLY: jprb, jpim 
     29 
    2730   IMPLICIT NONE 
    2831   PRIVATE 
    … …  
    7174         &                 rn_cmsmag_1    , rn_cmsmag_2    , rn_cmsh,         & 
    7275         &                 rn_ahm_m_lap   , rn_ahm_m_blp 
     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='LDF_DYN_INIT' 
     81 
     82         IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     83 
    7384 
    7485   !!---------------------------------------------------------------------- 
    … …  
    161172 
    162173      ! 
     174         IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    163175   END SUBROUTINE ldf_dyn_init 
    164176 
    … …  
    189201      INTEGER  ::   jk           ! dummy loop indices 
    190202      REAL(wp) ::   zm00, zm01, zmhb, zmhs       ! temporary scalars 
     203      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     204      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     205      REAL(KIND=jprb)               :: zhook_handle 
     206 
     207      CHARACTER(LEN=*), PARAMETER :: RoutineName='LDF_ZPF_1D' 
     208 
     209      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     210 
    191211      !!---------------------------------------------------------------------- 
    192212 
    … …  
    210230      ENDIF 
    211231      ! 
     232      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    212233   END SUBROUTINE ldf_zpf_1d 
    213234 
    … …  
    230251      INTEGER  ::   jk           ! dummy loop indices 
    231252      REAL(wp) ::   zm00, zm01, zmhb, zmhs, zcf  ! temporary scalars 
     253      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     254      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     255      REAL(KIND=jprb)               :: zhook_handle 
     256 
     257      CHARACTER(LEN=*), PARAMETER :: RoutineName='LDF_ZPF_1D_3D' 
     258 
     259      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     260 
    232261      !!---------------------------------------------------------------------- 
    233262 
    … …  
    252281      ENDIF 
    253282      ! 
     283      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    254284   END SUBROUTINE ldf_zpf_1d_3d 
    255285 
    … …  
    272302      INTEGER  ::   jk           ! dummy loop indices 
    273303      REAL(wp) ::   zm00, zm01, zmhb, zmhs       ! temporary scalars 
     304      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     305      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     306      REAL(KIND=jprb)               :: zhook_handle 
     307 
     308      CHARACTER(LEN=*), PARAMETER :: RoutineName='LDF_ZPF_3D' 
     309 
     310      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     311 
    274312      !!---------------------------------------------------------------------- 
    275313 
    … …  
    293331      ENDIF 
    294332      ! 
     333      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    295334   END SUBROUTINE ldf_zpf_3d 
    296335 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/LDF/ldfdyn_oce.F90

    r6486 r11738  
    99   USE in_out_manager ! I/O manager 
    1010   USE lib_mpp         ! MPP library 
     11 
     12   USE yomhook, ONLY: lhook, dr_hook 
     13   USE parkind1, ONLY: jprb, jpim 
    1114 
    1215   IMPLICIT NONE 
    … …  
    5053 
    5154   INTEGER FUNCTION ldfdyn_oce_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='LDFDYN_OCE_ALLOC' 
     60 
     61   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     62 
    5263      !!---------------------------------------------------------------------- 
    5364      !!                 ***  FUNCTION ldfdyn_oce_alloc  *** 
    … …  
    6374      IF( ldfdyn_oce_alloc /= 0 )   CALL ctl_warn('ldfdyn_oce_alloc: failed to allocate arrays') 
    6475      ! 
     76   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    6577   END FUNCTION ldfdyn_oce_alloc 
    6678 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/LDF/ldfdyn_smag.F90

    r10047 r11738  
    2424   USE iom 
    2525   USE wrk_nemo 
     26   USE yomhook, ONLY: lhook, dr_hook 
     27   USE parkind1, ONLY: jprb, jpim 
     28 
    2629   IMPLICIT NONE 
    2730   PRIVATE 
    … …  
    9598      REAL (wp), POINTER, DIMENSION (:,:) ::   zux, zuy , zvx ,zvy, zue1, zue2, zve1, zve2  
    9699      REAL (wp)::  zcmsmag_1, zcmsmag_2 , zcmsh 
     100      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     101      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     102      REAL(KIND=jprb)               :: zhook_handle 
     103 
     104      CHARACTER(LEN=*), PARAMETER :: RoutineName='LDF_DYN_SMAG' 
     105 
     106      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     107 
    97108 
    98109 
    … …  
    287298      ! 
    288299 
     300      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    289301END SUBROUTINE ldf_dyn_smag 
    290302#else 
    … …  
    294306CONTAINS 
    295307   SUBROUTINE ldf_dyn_smag( kt )       ! Empty routine 
     308   USE yomhook, ONLY: lhook, dr_hook 
     309   USE parkind1, ONLY: jprb, jpim 
     310 
    296311   IMPLICIT NONE 
    297312      INTEGER :: kt                    ! timestep    
     313      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     314      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     315      REAL(KIND=jprb)               :: zhook_handle 
     316 
     317      CHARACTER(LEN=*), PARAMETER :: RoutineName='LDF_DYN_SMAG' 
     318 
     319      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     320 
    298321      WRITE(*,*) 'ldf_dyn_smag: You should not have seen this print! error? check keys ldf:c3d+smag', kt 
     322      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    299323   END SUBROUTINE ldf_dyn_smag 
    300324#endif 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/LDF/ldfeiv.F90

    r6793 r11738  
    2828   USE timing          ! Timing 
    2929 
     30   USE yomhook, ONLY: lhook, dr_hook 
     31   USE parkind1, ONLY: jprb, jpim 
     32 
    3033   IMPLICIT NONE 
    3134   PRIVATE 
    … …  
    6063      REAL(wp) ::   zfw, ze3w, zn2, zf20, zaht, zaht_min      ! temporary scalars 
    6164      REAL(wp), DIMENSION(:,:), POINTER ::   zn, zah, zhw, zross   ! 2D workspace 
     65      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     66      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     67      REAL(KIND=jprb)               :: zhook_handle 
     68 
     69      CHARACTER(LEN=*), PARAMETER :: RoutineName='LDF_EIV' 
     70 
     71      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     72 
    6273      !!---------------------------------------------------------------------- 
    6374      ! 
    … …  
    218229      IF( nn_timing == 1 )  CALL timing_stop('ldf_eiv') 
    219230      ! 
     231      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    220232   END SUBROUTINE ldf_eiv 
    221233 
    … …  
    227239   SUBROUTINE ldf_eiv( kt )       ! Empty routine 
    228240      INTEGER :: kt 
     241      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     242      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     243      REAL(KIND=jprb)               :: zhook_handle 
     244 
     245      CHARACTER(LEN=*), PARAMETER :: RoutineName='LDF_EIV' 
     246 
     247      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     248 
    229249      WRITE(*,*) 'ldf_eiv: You should not have seen this print! error?', kt 
     250      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    230251   END SUBROUTINE ldf_eiv 
    231252#endif 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/LDF/ldfslp.F90

    r6498 r11738  
    3636   USE lib_fortran    ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 
    3737 
     38   USE yomhook, ONLY: lhook, dr_hook 
     39   USE parkind1, ONLY: jprb, jpim 
     40 
    3841   IMPLICIT NONE 
    3942   PRIVATE 
    … …  
    114117      REAL(wp), POINTER, DIMENSION(:,:,:) ::  zgru, zgrv 
    115118      REAL(wp), POINTER, DIMENSION(:,:  ) :: zhmlpu, zhmlpv 
     119      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     120      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     121      REAL(KIND=jprb)               :: zhook_handle 
     122 
     123      CHARACTER(LEN=*), PARAMETER :: RoutineName='LDF_SLP' 
     124 
     125      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     126 
    116127      !!---------------------------------------------------------------------- 
    117128      ! 
    … …  
    465476      IF( nn_timing == 1 )  CALL timing_stop('ldf_slp') 
    466477      ! 
     478      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    467479   END SUBROUTINE ldf_slp 
    468480 
    … …  
    495507      REAL(wp), POINTER, DIMENSION(:,:,:,:) ::   zdxrho , zdyrho, zdzrho     ! Horizontal and vertical density gradients 
    496508      REAL(wp), POINTER, DIMENSION(:,:,:,:) ::   zti_mlb, ztj_mlb            ! for Griffies operator only 
     509      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     510      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     511      REAL(KIND=jprb)               :: zhook_handle 
     512 
     513      CHARACTER(LEN=*), PARAMETER :: RoutineName='LDF_SLP_GRIF' 
     514 
     515      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     516 
    497517      !!---------------------------------------------------------------------- 
    498518      ! 
    … …  
    702722      IF( nn_timing == 1 )  CALL timing_stop('ldf_slp_grif') 
    703723      ! 
     724      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    704725   END SUBROUTINE ldf_slp_grif 
    705726 
    … …  
    732753      REAL(wp) ::   zcj, zfj, zav, zbv, zaj, zbj   !   -      - 
    733754      REAL(wp) ::   zck, zfk,      zbw             !   -      - 
     755      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     756      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     757      REAL(KIND=jprb)               :: zhook_handle 
     758 
     759      CHARACTER(LEN=*), PARAMETER :: RoutineName='LDF_SLP_MXL' 
     760 
     761      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     762 
    734763      !!---------------------------------------------------------------------- 
    735764      ! 
    … …  
    820849      IF( nn_timing == 1 )  CALL timing_stop('ldf_slp_mxl') 
    821850      ! 
     851      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    822852   END SUBROUTINE ldf_slp_mxl 
    823853 
    … …  
    834864      INTEGER ::   ji, jj, jk   ! dummy loop indices 
    835865      INTEGER ::   ierr         ! local integer 
     866      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     867      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     868      REAL(KIND=jprb)               :: zhook_handle 
     869 
     870      CHARACTER(LEN=*), PARAMETER :: RoutineName='LDF_SLP_INIT' 
     871 
     872      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     873 
    836874      !!---------------------------------------------------------------------- 
    837875      ! 
    … …  
    889927      IF( nn_timing == 1 )  CALL timing_stop('ldf_slp_init') 
    890928      ! 
     929      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    891930   END SUBROUTINE ldf_slp_init 
    892931 
    … …  
    900939      INTEGER, INTENT(in) :: kt 
    901940      REAL, DIMENSION(:,:,:), INTENT(in) :: prd, pn2 
     941      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     942      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     943      REAL(KIND=jprb)               :: zhook_handle 
     944 
     945      CHARACTER(LEN=*), PARAMETER :: RoutineName='LDF_SLP' 
     946 
     947      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     948 
    902949      WRITE(*,*) 'ldf_slp: You should not have seen this print! error?', kt, prd(1,1,1), pn2(1,1,1) 
     950      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    903951   END SUBROUTINE ldf_slp 
    904952   SUBROUTINE ldf_slp_grif( kt )        ! Dummy routine 
    905953      INTEGER, INTENT(in) :: kt 
     954      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     955      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     956      REAL(KIND=jprb)               :: zhook_handle 
     957 
     958      CHARACTER(LEN=*), PARAMETER :: RoutineName='LDF_SLP_GRIF' 
     959 
     960      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     961 
    906962      WRITE(*,*) 'ldf_slp_grif: You should not have seen this print! error?', kt 
     963      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    907964   END SUBROUTINE ldf_slp_grif 
    908965   SUBROUTINE ldf_slp_init              ! Dummy routine 
     966   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     967   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     968   REAL(KIND=jprb)               :: zhook_handle 
     969 
     970   CHARACTER(LEN=*), PARAMETER :: RoutineName='LDF_SLP_INIT' 
     971 
     972   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     973 
     974   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    909975   END SUBROUTINE ldf_slp_init 
    910976#endif 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/LDF/ldftra.F90

    r6486 r11738  
    2424   USE lib_mpp         ! distribued memory computing library 
    2525   USE lbclnk          ! ocean lateral boundary conditions (or mpp link) 
     26 
     27   USE yomhook, ONLY: lhook, dr_hook 
     28   USE parkind1, ONLY: jprb, jpim 
    2629 
    2730   IMPLICIT NONE 
    … …  
    7275         &                 rn_slpmax      , rn_chsmag      ,    rn_smsh,      & 
    7376         &                 rn_aht_m 
     77         INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     78         INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     79         REAL(KIND=jprb)               :: zhook_handle 
     80 
     81         CHARACTER(LEN=*), PARAMETER :: RoutineName='LDF_TRA_INIT' 
     82 
     83         IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     84 
    7485      !!---------------------------------------------------------------------- 
    7586 
    … …  
    177188 
    178189      ! 
     190         IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    179191   END SUBROUTINE ldf_tra_init 
    180192 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/LDF/ldftra_oce.F90

    r6498 r11738  
    99   USE in_out_manager ! I/O manager 
    1010   USE lib_mpp         ! MPP library 
     11 
     12   USE yomhook, ONLY: lhook, dr_hook 
     13   USE parkind1, ONLY: jprb, jpim 
    1114 
    1215   IMPLICIT NONE 
    … …  
    9497     !!---------------------------------------------------------------------- 
    9598     INTEGER, DIMENSION(4) :: ierr 
     99     INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     100     INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     101     REAL(KIND=jprb)               :: zhook_handle 
     102 
     103     CHARACTER(LEN=*), PARAMETER :: RoutineName='LDFTRA_OCE_ALLOC' 
     104 
     105     IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     106 
    96107     !!---------------------------------------------------------------------- 
    97108     ierr(:) = 0 
    … …  
    121132      IF( ldftra_oce_alloc /= 0 )   CALL ctl_warn('ldftra_oce_alloc: failed to allocate arrays') 
    122133      ! 
     134     IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    123135   END FUNCTION ldftra_oce_alloc 
    124136 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/LDF/ldftra_smag.F90

    r10047 r11738  
    2424   USE iom 
    2525   USE wrk_nemo 
     26   USE yomhook, ONLY: lhook, dr_hook 
     27   USE parkind1, ONLY: jprb, jpim 
     28 
    2629   IMPLICIT NONE 
    2730   PRIVATE 
    … …  
    8891 
    8992      REAL (wp)                             ::     zdeltau, zdeltav, zhsmag ,zsmsh    ! temporary scalars 
     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='LDF_TRA_SMAG' 
     98 
     99      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     100 
    90101       
    91102      CALL wrk_alloc (jpi,jpj,zux, zvx , zuy , zvy ) 
    … …  
    197208 
    198209 
     210      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    199211END SUBROUTINE ldf_tra_smag 
    200212#else 
    … …  
    204216CONTAINS 
    205217   SUBROUTINE ldf_tra_smag( kt )       ! Empty routine 
     218   USE yomhook, ONLY: lhook, dr_hook 
     219   USE parkind1, ONLY: jprb, jpim 
     220 
    206221   IMPLICIT NONE 
    207222        INTEGER, INTENT( in ) ::   kt  ! ocean time-step inedx 
     223        INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     224        INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     225        REAL(KIND=jprb)               :: zhook_handle 
     226 
     227        CHARACTER(LEN=*), PARAMETER :: RoutineName='LDF_TRA_SMAG' 
     228 
     229        IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     230 
    208231        WRITE(*,*) 'ldf_dyn_smag: You should not have seen this print! error? check keys ldf:c3d+smag', kt 
     232        IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    209233   END SUBROUTINE ldf_tra_smag 
    210234#endif 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/SBC/albedo.F90

    r6498 r11738  
    2222   USE wrk_nemo       ! work arrays 
    2323   USE lib_fortran    ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined)   
     24 
     25   USE yomhook, ONLY: lhook, dr_hook 
     26   USE parkind1, ONLY: jprb, jpim 
    2427 
    2528   IMPLICIT NONE 
    … …  
    9396      REAL(wp)                            ::   zalb_sm, zalb_sf, zalb_st ! albedo of snow melting, freezing, total 
    9497      REAL(wp), POINTER, DIMENSION(:,:,:) ::   zalb, zalb_it             ! intermediate variable & albedo of ice (snow free) 
     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='ALBEDO_ICE' 
     103 
     104      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     105 
    95106      !!--------------------------------------------------------------------- 
    96107 
    … …  
    217228      CALL wrk_dealloc( jpi,jpj,ijpl, zalb, zalb_it ) 
    218229      ! 
     230      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    219231   END SUBROUTINE albedo_ice 
    220232 
    … …  
    230242      !! 
    231243      REAL(wp) :: zcoef  
     244      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     245      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     246      REAL(KIND=jprb)               :: zhook_handle 
     247 
     248      CHARACTER(LEN=*), PARAMETER :: RoutineName='ALBEDO_OCE' 
     249 
     250      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     251 
    232252      !!---------------------------------------------------------------------- 
    233253      ! 
    … …  
    236256      pa_oce_os(:,:) = 0.06                       ! Parameterization of Kondratyev, 1969 and Payne, 1972 
    237257      ! 
     258      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    238259   END SUBROUTINE albedo_oce 
    239260 
    … …  
    249270      INTEGER  ::   ios                 ! Local integer output status for namelist read 
    250271      NAMELIST/namsbc_alb/ nn_ice_alb, rn_albice  
     272      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     273      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     274      REAL(KIND=jprb)               :: zhook_handle 
     275 
     276      CHARACTER(LEN=*), PARAMETER :: RoutineName='ALBEDO_INIT' 
     277 
     278      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     279 
    251280      !!---------------------------------------------------------------------- 
    252281      ! 
    … …  
    271300      ENDIF 
    272301      ! 
     302      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    273303   END SUBROUTINE albedo_init 
    274304 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/SBC/cpl_oasis3.F90

    r8280 r11738  
    3232   USE lbclnk                       ! ocean lateral boundary conditions (or mpp link) 
    3333    
     34   USE yomhook, ONLY: lhook, dr_hook 
     35   USE parkind1, ONLY: jprb, jpim 
     36 
    3437   IMPLICIT NONE 
    3538   PRIVATE 
    … …  
    113116      CHARACTER(len = *), INTENT(in) ::   cd_modname   ! model name as set in namcouple file 
    114117      INTEGER          , INTENT(out) ::   kl_comm      ! local communicator of the model 
     118      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     119      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     120      REAL(KIND=jprb)               :: zhook_handle 
     121 
     122      CHARACTER(LEN=*), PARAMETER :: RoutineName='CPL_INIT' 
     123 
     124      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     125 
    115126      !!-------------------------------------------------------------------- 
    116127 
    … …  
    134145      localComm = kl_comm  
    135146      ! 
     147      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    136148   END SUBROUTINE cpl_init 
    137149 
    … …  
    155167      CHARACTER(LEN=64) :: zclname 
    156168      CHARACTER(LEN=2) :: cli2 
     169      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     170      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     171      REAL(KIND=jprb)               :: zhook_handle 
     172 
     173      CHARACTER(LEN=*), PARAMETER :: RoutineName='CPL_DEFINE' 
     174 
     175      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     176 
    157177      !!-------------------------------------------------------------------- 
    158178 
    … …  
    221241               CALL oasis_abort ( ncomp_id, 'cpl_define', 'Number of categories of '//   & 
    222242                  &              TRIM(ssnd(ji)%clname)//' is larger than nmaxcat, increase nmaxcat' ) 
     243      IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 
    223244               RETURN 
    224245            ENDIF 
    … …  
    266287               CALL oasis_abort ( ncomp_id, 'cpl_define', 'Number of categories of '//   & 
    267288                  &              TRIM(srcv(ji)%clname)//' is larger than nmaxcat, increase nmaxcat' ) 
     289      IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 
    268290               RETURN 
    269291            ENDIF 
    … …  
    309331      IF( nerror /= OASIS_Ok )   CALL oasis_abort ( ncomp_id, 'cpl_define', 'Failure in oasis_enddef') 
    310332      ! 
     333      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    311334   END SUBROUTINE cpl_define 
    312335    
    … …  
    325348      !! 
    326349      INTEGER                                   ::   jc,jm     ! local loop index 
     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='CPL_SND' 
     355 
     356      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     357 
    327358      !!-------------------------------------------------------------------- 
    328359      ! 
    … …  
    355386      ENDDO 
    356387      ! 
     388      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    357389    END SUBROUTINE cpl_snd 
    358390 
    … …  
    373405      INTEGER                                   ::   jc,jm     ! local loop index 
    374406      LOGICAL                                   ::   llaction, llfisrt 
     407      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     408      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     409      REAL(KIND=jprb)               :: zhook_handle 
     410 
     411      CHARACTER(LEN=*), PARAMETER :: RoutineName='CPL_RCV' 
     412 
     413      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     414 
    375415      !!-------------------------------------------------------------------- 
    376416      ! 
    … …  
    427467      ENDDO 
    428468      ! 
     469      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    429470   END SUBROUTINE cpl_rcv 
    430471 
    … …  
    443484      INTEGER               :: ji,jm     ! local loop index 
    444485      INTEGER               :: mop 
     486      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     487      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     488      REAL(KIND=jprb)               :: zhook_handle 
     489 
     490      CHARACTER(LEN=*), PARAMETER :: RoutineName='CPL_FREQ' 
     491 
     492      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     493 
    445494      !!---------------------------------------------------------------------- 
    446495      cpl_freq = 0   ! defaut definition 
    … …  
    485534      ENDIF 
    486535      ! 
     536      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    487537   END FUNCTION cpl_freq 
    488538 
    489539 
    490540   SUBROUTINE cpl_finalize 
     541   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     542   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     543   REAL(KIND=jprb)               :: zhook_handle 
     544 
     545   CHARACTER(LEN=*), PARAMETER :: RoutineName='CPL_FINALIZE' 
     546 
     547   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     548 
    491549      !!--------------------------------------------------------------------- 
    492550      !!              ***  ROUTINE cpl_finalize  *** 
    … …  
    504562      ENDIF        
    505563      ! 
     564   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    506565   END SUBROUTINE cpl_finalize 
    507566 
    … …  
    515574      CHARACTER(*), INTENT(in   ) ::  cd1 
    516575      INTEGER     , INTENT(  out) ::  k1,k2 
     576      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     577      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     578      REAL(KIND=jprb)               :: zhook_handle 
     579 
     580      CHARACTER(LEN=*), PARAMETER :: RoutineName='OASIS_INIT_COMP' 
     581 
     582      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     583 
    517584      k1 = -1 ; k2 = -1 
    518585      WRITE(numout,*) 'oasis_init_comp: Error you sould not be there...', cd1 
     586      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    519587   END SUBROUTINE oasis_init_comp 
    520588 
    … …  
    522590      INTEGER     , INTENT(in   ) ::  k1 
    523591      CHARACTER(*), INTENT(in   ) ::  cd1,cd2 
     592      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     593      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     594      REAL(KIND=jprb)               :: zhook_handle 
     595 
     596      CHARACTER(LEN=*), PARAMETER :: RoutineName='OASIS_ABORT' 
     597 
     598      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     599 
    524600      WRITE(numout,*) 'oasis_abort: Error you sould not be there...', cd1, cd2 
     601      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    525602   END SUBROUTINE oasis_abort 
    526603 
    527604   SUBROUTINE oasis_get_localcomm(k1,k2) 
    528605      INTEGER     , INTENT(  out) ::  k1,k2 
     606      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     607      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     608      REAL(KIND=jprb)               :: zhook_handle 
     609 
     610      CHARACTER(LEN=*), PARAMETER :: RoutineName='OASIS_GET_LOCALCOMM' 
     611 
     612      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     613 
    529614      k1 = -1 ; k2 = -1 
    530615      WRITE(numout,*) 'oasis_get_localcomm: Error you sould not be there...' 
     616      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    531617   END SUBROUTINE oasis_get_localcomm 
    532618 
    … …  
    535621      INTEGER     , INTENT(in   ) ::  k2(5) 
    536622      INTEGER     , OPTIONAL, INTENT(in   ) ::  k4 
     623      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     624      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     625      REAL(KIND=jprb)               :: zhook_handle 
     626 
     627      CHARACTER(LEN=*), PARAMETER :: RoutineName='OASIS_DEF_PARTITION' 
     628 
     629      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     630 
    537631      k1 = k2(1) ; k3 = k2(5) 
    538632      WRITE(numout,*) 'oasis_def_partition: Error you sould not be there...' 
     633      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    539634   END SUBROUTINE oasis_def_partition 
    540635 
    … …  
    543638      INTEGER     , INTENT(in   ) ::  k2,k3(2),k4,k5(2,2),k6 
    544639      INTEGER     , INTENT(  out) ::  k1,k7 
     640      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     641      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     642      REAL(KIND=jprb)               :: zhook_handle 
     643 
     644      CHARACTER(LEN=*), PARAMETER :: RoutineName='OASIS_DEF_VAR' 
     645 
     646      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     647 
    545648      k1 = -1 ; k7 = -1 
    546649      WRITE(numout,*) 'oasis_def_var: Error you sould not be there...', cd1 
     650      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    547651   END SUBROUTINE oasis_def_var 
    548652 
    549653   SUBROUTINE oasis_enddef(k1) 
    550654      INTEGER     , INTENT(  out) ::  k1 
     655      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     656      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     657      REAL(KIND=jprb)               :: zhook_handle 
     658 
     659      CHARACTER(LEN=*), PARAMETER :: RoutineName='OASIS_ENDDEF' 
     660 
     661      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     662 
    551663      k1 = -1 
    552664      WRITE(numout,*) 'oasis_enddef: Error you sould not be there...' 
     665      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    553666   END SUBROUTINE oasis_enddef 
    554667   
    … …  
    557670      INTEGER                 , INTENT(in   ) ::  k1,k2 
    558671      INTEGER                 , INTENT(  out) ::  k3 
     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='OASIS_PUT' 
     677 
     678      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     679 
    559680      k3 = -1 
    560681      WRITE(numout,*) 'oasis_put: Error you sould not be there...' 
     682      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    561683   END SUBROUTINE oasis_put 
    562684 
    … …  
    565687      INTEGER                 , INTENT(in   ) ::  k1,k2 
    566688      INTEGER                 , INTENT(  out) ::  k3 
     689      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     690      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     691      REAL(KIND=jprb)               :: zhook_handle 
     692 
     693      CHARACTER(LEN=*), PARAMETER :: RoutineName='OASIS_GET' 
     694 
     695      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     696 
    567697      p1(1,1) = -1. ; k3 = -1 
    568698      WRITE(numout,*) 'oasis_get: Error you sould not be there...' 
     699      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    569700   END SUBROUTINE oasis_get 
    570701 
    … …  
    573704      INTEGER, DIMENSION(1), INTENT(  out) ::  k3 
    574705      INTEGER              , INTENT(  out) ::  k4 
     706      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     707      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     708      REAL(KIND=jprb)               :: zhook_handle 
     709 
     710      CHARACTER(LEN=*), PARAMETER :: RoutineName='OASIS_GET_FREQS' 
     711 
     712      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     713 
    575714      k3(1) = k1 ; k4 = k2 
    576715      WRITE(numout,*) 'oasis_get_freqs: Error you sould not be there...' 
     716      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    577717   END SUBROUTINE oasis_get_freqs 
    578718 
    579719   SUBROUTINE oasis_terminate(k1) 
    580720      INTEGER     , INTENT(  out) ::  k1 
     721      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     722      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     723      REAL(KIND=jprb)               :: zhook_handle 
     724 
     725      CHARACTER(LEN=*), PARAMETER :: RoutineName='OASIS_TERMINATE' 
     726 
     727      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     728 
    581729      k1 = -1 
    582730      WRITE(numout,*) 'oasis_terminate: Error you sould not be there...' 
     731      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    583732   END SUBROUTINE oasis_terminate 
    584733    

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/SBC/cyclone.F90

    r6486 r11738  
    2323   USE wrk_nemo        ! work arrays 
    2424   USE lib_mpp        
     25 
     26   USE yomhook, ONLY: lhook, dr_hook 
     27   USE parkind1, ONLY: jprb, jpim 
    2528 
    2629   IMPLICIT NONE 
    … …  
    8790      TYPE(FLD_N), DIMENSION(1) ::   slf_i     ! array of namelist informations on the TC position 
    8891      TYPE(FLD_N) ::   sn_tc                   ! informations about the fields to be read 
     92      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     93      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     94      REAL(KIND=jprb)               :: zhook_handle 
     95 
     96      CHARACTER(LEN=*), PARAMETER :: RoutineName='WND_CYC' 
     97 
     98      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     99 
    89100      !!-------------------------------------------------------------------- 
    90101 
    … …  
    273284      CALL wrk_dealloc( jpi,jpj, zwnd_x, zwnd_y ) 
    274285 
     286      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    275287   END SUBROUTINE wnd_cyc 
    276288 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/SBC/fldread.F90

    r6487 r11738  
    2727   USE sbc_oce 
    2828    
     29   USE yomhook, ONLY: lhook, dr_hook 
     30   USE parkind1, ONLY: jprb, jpim 
     31 
    2932   IMPLICIT NONE 
    3033   PRIVATE    
    … …  
    151154      CHARACTER(LEN=1000) ::   clfmt   ! write format 
    152155      TYPE(MAP_POINTER) ::   imap   ! global-to-local mapping indices 
     156      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     157      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     158      REAL(KIND=jprb)               :: zhook_handle 
     159 
     160      CHARACTER(LEN=*), PARAMETER :: RoutineName='FLD_READ' 
     161 
     162      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     163 
    153164      !!--------------------------------------------------------------------- 
    154165      ll_firstcall = kt == nit000 
    … …  
    304315      !                                            ! ====================================== ! 
    305316      ! 
     317      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    306318   END SUBROUTINE fld_read 
    307319 
    … …  
    328340      INTEGER :: isec_week             ! number of seconds since start of the weekly file 
    329341      CHARACTER(LEN=1000) ::   clfmt   ! write format 
     342      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     343      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     344      REAL(KIND=jprb)               :: zhook_handle 
     345 
     346      CHARACTER(LEN=*), PARAMETER :: RoutineName='FLD_INIT' 
     347 
     348      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     349 
    330350      !!--------------------------------------------------------------------- 
    331351      llprevyr   = .FALSE. 
    … …  
    418438      ENDIF 
    419439      ! 
     440      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    420441   END SUBROUTINE fld_init 
    421442 
    … …  
    447468      INTEGER  ::   it_offset   ! local time offset variable 
    448469      REAL(wp) ::   ztmp        ! temporary variable 
     470      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     471      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     472      REAL(KIND=jprb)               :: zhook_handle 
     473 
     474      CHARACTER(LEN=*), PARAMETER :: RoutineName='FLD_REC' 
     475 
     476      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     477 
    449478      !!---------------------------------------------------------------------- 
    450479      ! 
    … …  
    584613      ENDIF 
    585614      ! 
     615      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    586616   END SUBROUTINE fld_rec 
    587617 
    … …  
    602632      INTEGER                  ::   idmspc ! number of spatial dimensions 
    603633      LOGICAL                  ::   lmoor  ! C1D case: point data 
     634      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     635      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     636      REAL(KIND=jprb)               :: zhook_handle 
     637 
     638      CHARACTER(LEN=*), PARAMETER :: RoutineName='FLD_GET' 
     639 
     640      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     641 
    604642      !!--------------------------------------------------------------------- 
    605643      ! 
    … …  
    662700      sdjf%rotn(2) = .false.   ! vector not yet rotated 
    663701 
     702      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    664703   END SUBROUTINE fld_get 
    665704 
    … …  
    688727      INTEGER                                 ::   ierr 
    689728      REAL(wp), POINTER, DIMENSION(:,:,:)     ::   dta_read  ! work space for global data 
     729      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     730      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     731      REAL(KIND=jprb)               :: zhook_handle 
     732 
     733      CHARACTER(LEN=*), PARAMETER :: RoutineName='FLD_MAP' 
     734 
     735      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     736 
    690737      !!--------------------------------------------------------------------- 
    691738             
    … …  
    730777      ENDIF 
    731778 
     779      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    732780   END SUBROUTINE fld_map 
    733781 
    … …  
    748796      REAL(wp), POINTER, DIMENSION(:,:) ::   utmp, vtmp   ! temporary arrays for vector rotation 
    749797      CHARACTER (LEN=100)               ::   clcomp       ! dummy weight name 
     798      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     799      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     800      REAL(KIND=jprb)               :: zhook_handle 
     801 
     802      CHARACTER(LEN=*), PARAMETER :: RoutineName='FLD_ROT' 
     803 
     804      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     805 
    750806      !!--------------------------------------------------------------------- 
    751807 
    … …  
    789845      CALL wrk_dealloc( jpi,jpj, utmp, vtmp ) 
    790846      ! 
     847      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    791848   END SUBROUTINE fld_rot 
    792849 
    … …  
    811868      INTEGER :: iyear_len, imonth_len ! length (days) of iyear and imonth             !  
    812869      CHARACTER(len = 256)::   clname  ! temporary file name 
     870      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     871      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     872      REAL(KIND=jprb)               :: zhook_handle 
     873 
     874      CHARACTER(LEN=*), PARAMETER :: RoutineName='FLD_CLOPN' 
     875 
     876      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     877 
    813878      !!---------------------------------------------------------------------- 
    814879      IF( PRESENT(kyear) ) THEN                             ! use given values  
    … …  
    884949      ENDIF 
    885950      ! 
     951      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    886952   END SUBROUTINE fld_clopn 
    887953 
    … …  
    901967      ! 
    902968      INTEGER  ::   jf       ! dummy indices 
     969      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     970      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     971      REAL(KIND=jprb)               :: zhook_handle 
     972 
     973      CHARACTER(LEN=*), PARAMETER :: RoutineName='FLD_FILL' 
     974 
     975      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     976 
    903977      !!--------------------------------------------------------------------- 
    904978 
    … …  
    9451019      ENDIF 
    9461020       
     1021      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    9471022   END SUBROUTINE fld_fill 
    9481023 
    … …  
    9621037      INTEGER ::   kw, nestid   ! local integer 
    9631038      LOGICAL ::   found        ! local logical 
     1039      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     1040      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     1041      REAL(KIND=jprb)               :: zhook_handle 
     1042 
     1043      CHARACTER(LEN=*), PARAMETER :: RoutineName='WGT_LIST' 
     1044 
     1045      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     1046 
    9641047      !!---------------------------------------------------------------------- 
    9651048      ! 
    … …  
    9881071      ENDIF 
    9891072      ! 
     1073      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    9901074   END SUBROUTINE wgt_list 
    9911075 
    … …  
    9981082      !!---------------------------------------------------------------------- 
    9991083      INTEGER ::   kw   ! 
     1084      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     1085      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     1086      REAL(KIND=jprb)               :: zhook_handle 
     1087 
     1088      CHARACTER(LEN=*), PARAMETER :: RoutineName='WGT_PRINT' 
     1089 
     1090      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     1091 
    10001092      !!---------------------------------------------------------------------- 
    10011093      ! 
    … …  
    10171109      END DO 
    10181110      ! 
     1111      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    10191112   END SUBROUTINE wgt_print 
    10201113 
    … …  
    10391132      LOGICAL                           ::   cyclical 
    10401133      INTEGER                           ::   zwrap      ! local integer 
     1134      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     1135      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     1136      REAL(KIND=jprb)               :: zhook_handle 
     1137 
     1138      CHARACTER(LEN=*), PARAMETER :: RoutineName='FLD_WEIGHT' 
     1139 
     1140      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     1141 
    10411142      !!---------------------------------------------------------------------- 
    10421143      ! 
    … …  
    11641265      CALL wrk_dealloc( jpi,jpj, data_tmp ) 
    11651266      ! 
     1267      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    11661268   END SUBROUTINE fld_weight 
    11671269 
    … …  
    11861288      REAL(wp),DIMENSION (:,:),  ALLOCATABLE    :: zfield                               ! array of forcing field 
    11871289      CHARACTER (len=100),       INTENT(in)     :: clmaskfile                           ! land/sea mask file name 
     1290      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     1291      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     1292      REAL(KIND=jprb)               :: zhook_handle 
     1293 
     1294      CHARACTER(LEN=*), PARAMETER :: RoutineName='APPLY_SEAOVERLAND' 
     1295 
     1296      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     1297 
    11881298      !!--------------------------------------------------------------------- 
    11891299      ALLOCATE ( zslmec1(itmpi,itmpj,itmpz) ) 
    … …  
    12361346      DEALLOCATE ( zfield ) 
    12371347 
     1348      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    12381349   END SUBROUTINE apply_seaoverland  
    12391350 
    … …  
    12551366      LOGICAL,DIMENSION (ileni,ilenj,8)        :: ll_msknan3d              ! logical mask for undeff detection 
    12561367      LOGICAL,DIMENSION (ileni,ilenj)          :: ll_msknan2d              ! logical mask for undeff detection 
     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='SEAOVERLAND' 
     1373 
     1374      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     1375 
    12571376      !!----------------------------------------------------------------------  
    12581377      zmat8 = eoshift(zfieldn   ,  SHIFT=-1, BOUNDARY = (/zfieldn(:,1)/)    ,DIM=2) 
    … …  
    12711390      WHERE ((COUNT( ll_msknan3d , 3 )) == 0.0_wp)  zlsm2d = undeff_lsm 
    12721391      zfield = MERGE (zfieldn,zlsm2d,ll_msknan2d) 
     1392      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    12731393   END SUBROUTINE seaoverland 
    12741394 
    … …  
    13031423      INTEGER                                   ::   jpi1_lsm,jpi2_lsm,jpj1_lsm,jpj2_lsm   ! temporary indices 
    13041424      INTEGER                                   ::   itmpi,itmpj,itmpz                     ! lengths 
     1425      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     1426      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     1427      REAL(KIND=jprb)               :: zhook_handle 
     1428 
     1429      CHARACTER(LEN=*), PARAMETER :: RoutineName='FLD_INTERP' 
     1430 
     1431      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     1432 
    13051433       
    13061434      !!---------------------------------------------------------------------- 
    … …  
    14951623      END IF 
    14961624      ! 
     1625      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    14971626   END SUBROUTINE fld_interp 
    14981627 
    … …  
    15101639      INTEGER                        ::   ishift     !temp variable 
    15111640      CHARACTER(len=3),DIMENSION(7)  ::   cl_week  
     1641      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     1642      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     1643      REAL(KIND=jprb)               :: zhook_handle 
     1644 
     1645      CHARACTER(LEN=*), PARAMETER :: RoutineName='KSEC_WEEK' 
     1646 
     1647      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     1648 
    15121649      !!---------------------------------------------------------------------- 
    15131650      cl_week = (/"sun","sat","fri","thu","wed","tue","mon"/) 
    … …  
    15221659      ksec_week = MOD( ksec_week, 7*NINT(rday) ) 
    15231660      !  
     1661      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    15241662   END FUNCTION ksec_week 
    15251663 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/SBC/geo2ocean.F90

    r8280 r11738  
    2121   USE lib_mpp         ! MPP library 
    2222 
     23   USE yomhook, ONLY: lhook, dr_hook 
     24   USE parkind1, ONLY: jprb, jpim 
     25 
    2326   IMPLICIT NONE 
    2427   PRIVATE 
    … …  
    7073      INTEGER, INTENT( IN ) ::   & 
    7174         kchoix   ! type of transformation 
     75         INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     76         INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     77         REAL(KIND=jprb)               :: zhook_handle 
     78 
     79         CHARACTER(LEN=*), PARAMETER :: RoutineName='REPCMO' 
     80 
     81         IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     82 
    7283                  ! = 1 change from geographic to model grid. 
    7384                  ! =-1 change from model to geographic grid 
    … …  
    89100     END SELECT 
    90101      
     102         IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    91103   END SUBROUTINE repcmo 
    92104 
    … …  
    111123      !!                                                           ! 'ij->n' model i-j componantes to east componante 
    112124      REAL(wp), DIMENSION(jpi,jpj), INTENT(out) ::   prot       
     125      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     126      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     127      REAL(KIND=jprb)               :: zhook_handle 
     128 
     129      CHARACTER(LEN=*), PARAMETER :: RoutineName='ROT_REP' 
     130 
     131      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     132 
    113133      !!---------------------------------------------------------------------- 
    114134 
    … …  
    161181      END SELECT 
    162182       
     183      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    163184   END SUBROUTINE rot_rep 
    164185 
    … …  
    195216         zxffv, zyffv, znffv,   &  ! x,y components and norm of the vector: between F points left  and right a V point 
    196217         zxuuf, zyuuf, znuuf       ! x,y components and norm of the vector: between U points below and above a F point 
     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='ANGLE' 
     223 
     224         IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     225 
    197226      !!---------------------------------------------------------------------- 
    198227 
    … …  
    341370      CALL lbc_lnk( gcosf, 'F', -1. )   ;   CALL lbc_lnk( gsinf, 'F', -1. ) 
    342371 
     372         IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    343373   END SUBROUTINE angle 
    344374 
    … …  
    370400      INTEGER ::   ig     ! 
    371401      INTEGER ::   ierr   ! local integer 
     402      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     403      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     404      REAL(KIND=jprb)               :: zhook_handle 
     405 
     406      CHARACTER(LEN=*), PARAMETER :: RoutineName='GEO2OCE' 
     407 
     408      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     409 
    372410      !!---------------------------------------------------------------------- 
    373411 
    … …  
    429467!!$         + gsinlat(:,:,ig) * pzz 
    430468      ! 
     469      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    431470   END SUBROUTINE geo2oce 
    432471 
    … …  
    451490      INTEGER ::   ig     ! 
    452491      INTEGER ::   ierr   ! local integer 
     492      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     493      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     494      REAL(KIND=jprb)               :: zhook_handle 
     495 
     496      CHARACTER(LEN=*), PARAMETER :: RoutineName='OCE2GEO' 
     497 
     498      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     499 
    453500      !!---------------------------------------------------------------------- 
    454501 
    … …  
    507554 
    508555       
     556      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    509557   END SUBROUTINE oce2geo 
    510558 
    … …  
    536584      ! 
    537585      CHARACTER(len=1) ::   cl_type      ! define the nature of pt2d array grid-points (T point by default) 
     586      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     587      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     588      REAL(KIND=jprb)               :: zhook_handle 
     589 
     590      CHARACTER(LEN=*), PARAMETER :: RoutineName='REPERE' 
     591 
     592      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     593 
    538594      !!---------------------------------------------------------------------- 
    539595 
    … …  
    551607      END SELECT 
    552608       
     609      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    553610   END SUBROUTINE repere 
    554611 
    … …  
    566623      !!---------------------------------------------------------------------- 
    567624      REAL(wp), DIMENSION(jpi,jpj), INTENT( OUT )::   psinu, pcosu, psinv, pcosv   ! copy of data 
     625      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     626      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     627      REAL(KIND=jprb)               :: zhook_handle 
     628 
     629      CHARACTER(LEN=*), PARAMETER :: RoutineName='OBS_ROT' 
     630 
     631      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     632 
    568633      !!---------------------------------------------------------------------- 
    569634 
    … …  
    586651      pcosv(:,:) = gcosv(:,:) 
    587652 
     653      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    588654   END SUBROUTINE obs_rot 
    589655 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/SBC/sbc_ice.F90

    r10047 r11738  
    2727   USE lib_mpp          ! MPP library 
    2828   USE in_out_manager   ! I/O manager 
     29 
     30   USE yomhook, ONLY: lhook, dr_hook 
     31   USE parkind1, ONLY: jprb, jpim 
    2932 
    3033   IMPLICIT NONE 
    … …  
    146149      !!---------------------------------------------------------------------- 
    147150      INTEGER :: ierr(5) 
     151      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     152      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     153      REAL(KIND=jprb)               :: zhook_handle 
     154 
     155      CHARACTER(LEN=*), PARAMETER :: RoutineName='SBC_ICE_ALLOC' 
     156 
     157      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     158 
    148159      !!---------------------------------------------------------------------- 
    149160      ierr(:) = 0 
    … …  
    193204      IF( lk_mpp            )   CALL mpp_sum ( sbc_ice_alloc ) 
    194205      IF( sbc_ice_alloc > 0 )   CALL ctl_warn('sbc_ice_alloc: allocation of arrays failed') 
     206      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    195207   END FUNCTION sbc_ice_alloc 
    196208 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/SBC/sbc_oce.F90

    r8046 r11738  
    1919   USE in_out_manager ! I/O manager 
    2020   USE lib_mpp        ! MPP library 
     21 
     22   USE yomhook, ONLY: lhook, dr_hook 
     23   USE parkind1, ONLY: jprb, jpim 
    2124 
    2225   IMPLICIT NONE 
    … …  
    181184      !!--------------------------------------------------------------------- 
    182185      INTEGER :: ierr(5) 
     186      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     187      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     188      REAL(KIND=jprb)               :: zhook_handle 
     189 
     190      CHARACTER(LEN=*), PARAMETER :: RoutineName='SBC_OCE_ALLOC' 
     191 
     192      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     193 
    183194      !!--------------------------------------------------------------------- 
    184195      ierr(:) = 0 
    … …  
    212223      IF( sbc_oce_alloc > 0 )   CALL ctl_warn('sbc_oce_alloc: allocation of arrays failed') 
    213224      ! 
     225      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    214226   END FUNCTION sbc_oce_alloc 
    215227 
    … …  
    229241      REAL(wp) ::   ztx, zty, ztau, zcoef ! temporary variables 
    230242      INTEGER  ::   ji, jj                ! dummy indices 
     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='SBC_TAU2WND' 
     248 
     249      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     250 
    231251      !!--------------------------------------------------------------------- 
    232252      zcoef = 0.5 / ( zrhoa * zcdrag )  
    … …  
    243263      CALL lbc_lnk( wndm(:,:) , 'T', 1. ) 
    244264      ! 
     265      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    245266   END SUBROUTINE sbc_tau2wnd 
    246267 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/SBC/sbcana.F90

    r6486 r11738  
    2020   USE lbclnk          ! ocean lateral boundary conditions (or mpp link) 
    2121   USE lib_fortran 
     22 
     23   USE yomhook, ONLY: lhook, dr_hook 
     24   USE parkind1, ONLY: jprb, jpim 
    2225 
    2326   IMPLICIT NONE 
    … …  
    7073      !! 
    7174      NAMELIST/namsbc_ana/ nn_tau000, rn_utau0, rn_vtau0, rn_qns0, rn_qsr0, rn_emp0 
     75      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     76      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     77      REAL(KIND=jprb)               :: zhook_handle 
     78 
     79      CHARACTER(LEN=*), PARAMETER :: RoutineName='SBC_ANA' 
     80 
     81      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     82 
    7283      !!--------------------------------------------------------------------- 
    7384      ! 
    … …  
    131142      ENDIF 
    132143      ! 
     144      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    133145   END SUBROUTINE sbc_ana 
    134146 
    … …  
    169181      REAL(wp) ::   ztx, zty, zmod, zcoef ! temporary variables 
    170182      REAL(wp) ::   zyydd                 ! number of days in one year 
     183      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     184      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     185      REAL(KIND=jprb)               :: zhook_handle 
     186 
     187      CHARACTER(LEN=*), PARAMETER :: RoutineName='SBC_GYRE' 
     188 
     189      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     190 
    171191      !!--------------------------------------------------------------------- 
    172192      zyydd = REAL(nyear_len(1),wp) 
    … …  
    327347      ENDIF 
    328348      ! 
     349      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    329350   END SUBROUTINE sbc_gyre 
    330351 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/SBC/sbcapr.F90

    r9321 r11738  
    2020   USE lib_mpp         ! MPP library 
    2121   USE timing 
     22 
     23   USE yomhook, ONLY: lhook, dr_hook 
     24   USE parkind1, ONLY: jprb, jpim 
    2225 
    2326   IMPLICIT NONE 
    … …  
    7174      !! 
    7275      NAMELIST/namsbc_apr/ cn_dir, sn_apr, ln_ref_apr, rn_pref, ln_apr_obc 
     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='SBC_APR' 
     81 
     82      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     83 
    7384      !!---------------------------------------------------------------------- 
    7485      ! 
    … …  
    164175      ENDIF 
    165176      ! 
     177      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    166178   END SUBROUTINE sbc_apr 
    167179       

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_clio.F90

    r6498 r11738  
    4343   USE par_ice_2       ! Surface boundary condition: ice fields 
    4444#endif 
     45 
     46   USE yomhook, ONLY: lhook, dr_hook 
     47   USE parkind1, ONLY: jprb, jpim 
    4548 
    4649   IMPLICIT NONE 
    … …  
    138141      NAMELIST/namsbc_clio/ cn_dir, sn_utau, sn_vtau, sn_wndm, sn_humi,   & 
    139142         &                          sn_ccov, sn_tair, sn_prec 
     143         INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     144         INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     145         REAL(KIND=jprb)               :: zhook_handle 
     146 
     147         CHARACTER(LEN=*), PARAMETER :: RoutineName='SBC_BLK_CLIO' 
     148 
     149         IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     150 
    140151      !!--------------------------------------------------------------------- 
    141152 
    … …  
    184195      IF( MOD( kt - 1, nn_fsbc ) == 0 )   CALL blk_oce_clio( sf, sst_m ) 
    185196      ! 
     197         IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    186198   END SUBROUTINE sbc_blk_clio 
    187199 
    … …  
    232244      REAL(wp), POINTER, DIMENSION(:,:) ::   zqla        ! latent heat flux over ocean 
    233245      REAL(wp), POINTER, DIMENSION(:,:) ::   zqsb        ! sensible heat flux over ocean 
     246      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     247      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     248      REAL(KIND=jprb)               :: zhook_handle 
     249 
     250      CHARACTER(LEN=*), PARAMETER :: RoutineName='BLK_OCE_CLIO' 
     251 
     252      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     253 
    234254      !!--------------------------------------------------------------------- 
    235255      ! 
    … …  
    412432      IF( nn_timing == 1 )  CALL timing_stop('blk_oce_clio') 
    413433      ! 
     434      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    414435   END SUBROUTINE blk_oce_clio 
    415436 
    … …  
    426447      REAL(wp) ::   zcoef 
    427448      INTEGER  ::   ji, jj   ! dummy loop indices 
     449      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     450      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     451      REAL(KIND=jprb)               :: zhook_handle 
     452 
     453      CHARACTER(LEN=*), PARAMETER :: RoutineName='BLK_ICE_CLIO_TAU' 
     454 
     455      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     456 
    428457      !!--------------------------------------------------------------------- 
    429458      ! 
    … …  
    458487      IF( nn_timing == 1 )  CALL timing_stop('blk_ice_clio_tau') 
    459488 
     489      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    460490   END SUBROUTINE blk_ice_clio_tau 
    461491#endif 
    … …  
    507537      REAL(wp), DIMENSION(:,:,:), POINTER ::   z_qlw, z_qsb 
    508538      REAL(wp), DIMENSION(:,:)  , POINTER ::   zevap, zsnw 
     539      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     540      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     541      REAL(KIND=jprb)               :: zhook_handle 
     542 
     543      CHARACTER(LEN=*), PARAMETER :: RoutineName='BLK_ICE_CLIO_FLX' 
     544 
     545      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     546 
    509547      !!--------------------------------------------------------------------- 
    510548      ! 
    … …  
    724762      IF( nn_timing == 1 )  CALL timing_stop('blk_ice_clio_flx') 
    725763      ! 
     764      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    726765   END SUBROUTINE blk_ice_clio_flx 
    727766 
    … …  
    760799      REAL(wp), DIMENSION(:,:), POINTER ::   zdlha, zlsrise, zlsset     ! 2D workspace 
    761800      REAL(wp), DIMENSION(:,:), POINTER ::   zps, zpc   ! sine (cosine) of latitude per sine (cosine) of solar declination  
     801      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     802      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     803      REAL(KIND=jprb)               :: zhook_handle 
     804 
     805      CHARACTER(LEN=*), PARAMETER :: RoutineName='BLK_CLIO_QSR_OCE' 
     806 
     807      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     808 
    762809      !!--------------------------------------------------------------------- 
    763810      ! 
    … …  
    882929      IF( nn_timing == 1 )  CALL timing_stop('blk_clio_qsr_oce') 
    883930      ! 
     931      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    884932   END SUBROUTINE blk_clio_qsr_oce 
    885933 
    … …  
    916964      REAL(wp), DIMENSION(:,:), POINTER ::   zdlha, zlsrise, zlsset   ! 2D workspace 
    917965      REAL(wp), DIMENSION(:,:), POINTER ::   zps, zpc   ! sine (cosine) of latitude per sine (cosine) of solar declination  
     966      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     967      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     968      REAL(KIND=jprb)               :: zhook_handle 
     969 
     970      CHARACTER(LEN=*), PARAMETER :: RoutineName='BLK_CLIO_QSR_ICE' 
     971 
     972      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     973 
    918974      !!--------------------------------------------------------------------- 
    919975      ! 
    … …  
    10271083      IF( nn_timing == 1 )  CALL timing_stop('blk_clio_qsr_ice') 
    10281084      ! 
     1085      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    10291086   END SUBROUTINE blk_clio_qsr_ice 
    10301087 
    … …  
    10541111      REAL(wp) ::   zday   ! corresponding day of type year (cf. ky) 
    10551112      REAL(wp) ::   zp     ! temporary scalars 
     1113      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     1114      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     1115      REAL(KIND=jprb)               :: zhook_handle 
     1116 
     1117      CHARACTER(LEN=*), PARAMETER :: RoutineName='FLX_BLK_DECLIN' 
     1118 
     1119      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     1120 
    10561121      !!--------------------------------------------------------------------- 
    10571122             
    … …  
    10671132         &   + b1 * SIN( zp ) + b2 * SIN( 2. * zp ) + b3 * SIN( 3. * zp ) + b4 * SIN( 4. * zp ) 
    10681133      ! 
     1134      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    10691135   END SUBROUTINE flx_blk_declin 
    10701136 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_core.F90

    r6823 r11738  
    5252#endif 
    5353 
     54   USE yomhook, ONLY: lhook, dr_hook 
     55   USE parkind1, ONLY: jprb, jpim 
     56 
    5457   IMPLICIT NONE 
    5558   PRIVATE 
    … …  
    152155         &                  sn_qlw , sn_tair, sn_prec  , sn_snow,           & 
    153156         &                  sn_tdif, rn_zqt,  rn_zu 
     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='SBC_BLK_CORE' 
     162 
     163         IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     164 
    154165      !!--------------------------------------------------------------------- 
    155166      ! 
    … …  
    218229#endif 
    219230      ! 
     231         IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    220232   END SUBROUTINE sbc_blk_core 
    221233    
    … …  
    259271      REAL(wp), DIMENSION(:,:), POINTER ::   zt_zu             ! air temperature at wind speed height 
    260272      REAL(wp), DIMENSION(:,:), POINTER ::   zq_zu             ! air spec. hum.  at wind speed height 
     273      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     274      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     275      REAL(KIND=jprb)               :: zhook_handle 
     276 
     277      CHARACTER(LEN=*), PARAMETER :: RoutineName='BLK_OCE_CORE' 
     278 
     279      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     280 
    261281      !!--------------------------------------------------------------------- 
    262282      ! 
    … …  
    424444      IF( nn_timing == 1 )  CALL timing_stop('blk_oce_core') 
    425445      ! 
     446      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    426447   END SUBROUTINE blk_oce_core 
    427448  
    … …  
    442463      REAL(wp) ::   zwnorm_f, zwndi_f , zwndj_f               ! relative wind module and components at F-point 
    443464      REAL(wp) ::             zwndi_t , zwndj_t               ! relative wind components at T-point 
     465      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     466      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     467      REAL(KIND=jprb)               :: zhook_handle 
     468 
     469      CHARACTER(LEN=*), PARAMETER :: RoutineName='BLK_ICE_CORE_TAU' 
     470 
     471      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     472 
    444473      !!--------------------------------------------------------------------- 
    445474      ! 
    … …  
    514543      IF( nn_timing == 1 )  CALL timing_stop('blk_ice_core_tau') 
    515544       
     545      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    516546   END SUBROUTINE blk_ice_core_tau 
    517547 
    … …  
    542572      REAL(wp), DIMENSION(:,:,:), POINTER ::   z_dqsb            ! sensible  heat sensitivity over ice 
    543573      REAL(wp), DIMENSION(:,:)  , POINTER ::   zevap, zsnw       ! evaporation and snw distribution after wind blowing (LIM3) 
     574      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     575      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     576      REAL(KIND=jprb)               :: zhook_handle 
     577 
     578      CHARACTER(LEN=*), PARAMETER :: RoutineName='BLK_ICE_CORE_FLX' 
     579 
     580      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     581 
    544582      !!--------------------------------------------------------------------- 
    545583      ! 
    … …  
    671709      IF( nn_timing == 1 )  CALL timing_stop('blk_ice_core_flx') 
    672710       
     711      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    673712   END SUBROUTINE blk_ice_core_flx 
    674713#endif 
    … …  
    725764      REAL(wp), DIMENSION(:,:), POINTER ::   ztmp0, ztmp1, ztmp2 
    726765      REAL(wp), DIMENSION(:,:), POINTER ::   stab          ! 1st stability test integer 
     766      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     767      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     768      REAL(KIND=jprb)               :: zhook_handle 
     769 
     770      CHARACTER(LEN=*), PARAMETER :: RoutineName='TURB_CORE_2Z' 
     771 
     772      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     773 
    727774      !!---------------------------------------------------------------------- 
    728775 
    … …  
    831878      IF( nn_timing == 1 )  CALL timing_stop('turb_core_2z') 
    832879      ! 
     880      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    833881   END SUBROUTINE turb_core_2z 
    834882 
    … …  
    847895      ! 
    848896      REAL(wp), DIMENSION(:,:), POINTER ::   rgt33 
     897      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     898      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     899      REAL(KIND=jprb)               :: zhook_handle 
     900 
     901      CHARACTER(LEN=*), PARAMETER :: RoutineName='CD_NEUTRAL_10M' 
     902 
     903      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     904 
    849905      !!----------------------------------------------------------------------     
    850906      ! 
    … …  
    859915      CALL wrk_dealloc( jpi,jpj, rgt33) 
    860916      ! 
     917      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    861918   END FUNCTION cd_neutral_10m 
    862919 
    … …  
    870927      REAL(wp), DIMENSION(jpi,jpj)             :: psi_m 
    871928      REAL(wp), DIMENSION(:,:), POINTER        :: X2, X, stabit 
     929      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     930      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     931      REAL(KIND=jprb)               :: zhook_handle 
     932 
     933      CHARACTER(LEN=*), PARAMETER :: RoutineName='PSI_M' 
     934 
     935      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     936 
    872937      !------------------------------------------------------------------------------- 
    873938      ! 
    … …  
    881946      CALL wrk_dealloc( jpi,jpj, X2, X, stabit ) 
    882947      ! 
     948      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    883949   END FUNCTION psi_m 
    884950 
    … …  
    892958      REAL(wp), DIMENSION(jpi,jpj)             ::   psi_h 
    893959      REAL(wp), DIMENSION(:,:), POINTER        ::   X2, X, stabit 
     960      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     961      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     962      REAL(KIND=jprb)               :: zhook_handle 
     963 
     964      CHARACTER(LEN=*), PARAMETER :: RoutineName='PSI_H' 
     965 
     966      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     967 
    894968      !------------------------------------------------------------------------------- 
    895969      ! 
    … …  
    903977      CALL wrk_dealloc( jpi,jpj, X2, X, stabit ) 
    904978      ! 
     979      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    905980   END FUNCTION psi_h 
    906981 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_mfs.F90

    r6486 r11738  
    2525   USE prtctl          ! Print control 
    2626   USE sbcwave,ONLY : cdn_wave !wave module 
     27 
     28   USE yomhook, ONLY: lhook, dr_hook 
     29   USE parkind1, ONLY: jprb, jpim 
    2730 
    2831   IMPLICIT NONE 
    … …  
    121124         &                  sn_wndi , sn_wndj, sn_clc   , sn_msl ,           & 
    122125         &                  sn_tair , sn_rhm , sn_prec  
     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='SBC_BLK_MFS' 
     131 
     132         IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     133 
    123134      !!--------------------------------------------------------------------- 
    124135      ! 
    … …  
    264275      IF( nn_timing == 1 )  CALL timing_stop('sbc_blk_mfs') 
    265276      ! 
     277         IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    266278   END SUBROUTINE sbc_blk_mfs 
    267279   
    … …  
    324336      REAL(wp), DIMENSION(5) :: p_e = (/-0.16,1.0,1.0,1.0,1.0/) 
    325337      INTEGER :: kku                        !index varing with wind speed 
     338      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     339      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     340      REAL(KIND=jprb)               :: zhook_handle 
     341 
     342      CHARACTER(LEN=*), PARAMETER :: RoutineName='FLUXES_MFS' 
     343 
     344      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     345 
    326346      ! 
    327347      IF( nn_timing == 1 )  CALL timing_start('fluxes_mfs') 
    … …  
    495515      IF( nn_timing == 1 )  CALL timing_stop('fluxes_mfs') 
    496516      ! 
     517      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    497518   END SUBROUTINE fluxes_mfs 
    498519 
    … …  
    568589        data alpham /0.095,0.08,0.065,0.065,0.06,0.06,0.06,0.06,        & 
    569590                    0.065,0.075,0.09,0.10/ 
     591                    INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     592                    INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     593                    REAL(KIND=jprb)               :: zhook_handle 
     594 
     595                    CHARACTER(LEN=*), PARAMETER :: RoutineName='QSHORT' 
     596 
     597                    IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     598 
    570599 
    571600      !!---------------------------------------------------------------------- 
    … …  
    641670      END DO 
    642671 
     672                    IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    643673   END SUBROUTINE qshort 
    644674 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90

    r9321 r11738  
    5454   USE lib_fortran, ONLY: glob_sum 
    5555 
     56   USE yomhook, ONLY: lhook, dr_hook 
     57   USE parkind1, ONLY: jprb, jpim 
     58 
    5659   IMPLICIT NONE 
    5760   PRIVATE 
    … …  
    201204      !!---------------------------------------------------------------------- 
    202205      INTEGER :: ierr(3) 
     206      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     207      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     208      REAL(KIND=jprb)               :: zhook_handle 
     209 
     210      CHARACTER(LEN=*), PARAMETER :: RoutineName='SBC_CPL_ALLOC' 
     211 
     212      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     213 
    203214      !!---------------------------------------------------------------------- 
    204215      ierr(:) = 0 
    … …  
    218229      IF( sbc_cpl_alloc > 0 )   CALL ctl_warn('sbc_cpl_alloc: allocation of arrays failed') 
    219230      ! 
     231      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    220232   END FUNCTION sbc_cpl_alloc 
    221233 
    … …  
    253265      NAMELIST/namsbc_cpl/  sn_snd_bio_co2, sn_snd_bio_dms, sn_snd_bio_chloro,                        & 
    254266         &                  sn_rcv_atm_pco2, sn_rcv_atm_dust 
     267         INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     268         INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     269         REAL(KIND=jprb)               :: zhook_handle 
     270 
     271         CHARACTER(LEN=*), PARAMETER :: RoutineName='SBC_CPL_INIT' 
     272 
     273         IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     274 
    255275 
    256276      !!--------------------------------------------------------------------- 
    … …  
    9931013      IF( nn_timing.gt.0 .and. nn_timing .le. 2 )  CALL timing_stop('sbc_cpl_init') 
    9941014      ! 
     1015         IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    9951016   END SUBROUTINE sbc_cpl_init 
    9961017 
    … …  
    10591080      REAL(wp) ::   zzx, zzy               ! temporary variables 
    10601081      REAL(wp), POINTER, DIMENSION(:,:) ::   ztx, zty, zmsk, zemp, zqns, zqsr, ztx2, zty2 
     1082      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     1083      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     1084      REAL(KIND=jprb)               :: zhook_handle 
     1085 
     1086      CHARACTER(LEN=*), PARAMETER :: RoutineName='SBC_CPL_RCV' 
     1087 
     1088      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     1089 
    10611090      !!---------------------------------------------------------------------- 
    10621091 
    … …  
    14551484      IF( nn_timing.gt.0 .and. nn_timing .le. 2 )  CALL timing_stop('sbc_cpl_rcv') 
    14561485      ! 
     1486      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    14571487   END SUBROUTINE sbc_cpl_rcv 
    14581488    
    … …  
    14971527      INTEGER ::   itx                             ! index of taux over ice 
    14981528      REAL(wp), POINTER, DIMENSION(:,:) ::   ztx, zty  
     1529      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     1530      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     1531      REAL(KIND=jprb)               :: zhook_handle 
     1532 
     1533      CHARACTER(LEN=*), PARAMETER :: RoutineName='SBC_CPL_ICE_TAU' 
     1534 
     1535      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     1536 
    14991537      !!---------------------------------------------------------------------- 
    15001538      ! 
    … …  
    16661704      IF( nn_timing.gt.0 .and. nn_timing .le. 2 )  CALL timing_stop('sbc_cpl_ice_tau') 
    16671705      ! 
     1706      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    16681707   END SUBROUTINE sbc_cpl_ice_tau 
    16691708    
    … …  
    17291768      REAL(wp), POINTER, DIMENSION(:,:  ) ::   zqns_tot, zqns_oce, zqsr_tot, zqsr_oce, zqprec_ice, zqemp_oce, zqemp_ice 
    17301769      REAL(wp), POINTER, DIMENSION(:,:,:) ::   zqns_ice, zqsr_ice, zdqns_ice, zqevap_ice 
     1770      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     1771      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     1772      REAL(KIND=jprb)               :: zhook_handle 
     1773 
     1774      CHARACTER(LEN=*), PARAMETER :: RoutineName='SBC_CPL_ICE_FLX' 
     1775 
     1776      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     1777 
    17311778      !!---------------------------------------------------------------------- 
    17321779      ! 
    … …  
    21182165      IF( nn_timing.gt.0 .and. nn_timing .le. 2 )  CALL timing_stop('sbc_cpl_ice_flx') 
    21192166      ! 
     2167      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    21202168   END SUBROUTINE sbc_cpl_ice_flx 
    21212169    
    … …  
    21392187      REAL(wp), POINTER, DIMENSION(:,:)   ::   zotx1_in, zoty1_in 
    21402188      REAL(wp), POINTER, DIMENSION(:,:,:) ::   ztmp3, ztmp4    
     2189      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     2190      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     2191      REAL(KIND=jprb)               :: zhook_handle 
     2192 
     2193      CHARACTER(LEN=*), PARAMETER :: RoutineName='SBC_CPL_SND' 
     2194 
     2195      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     2196 
    21412197      !!---------------------------------------------------------------------- 
    21422198      ! 
    … …  
    26332689      IF( nn_timing.gt.0 .and. nn_timing .le. 2 )  CALL timing_stop('sbc_cpl_snd') 
    26342690      ! 
     2691      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    26352692   END SUBROUTINE sbc_cpl_snd 
    26362693    

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/SBC/sbcflx.F90

    r6486 r11738  
    2222   USE lib_mpp         ! distribued memory computing library 
    2323   USE lbclnk          ! ocean lateral boundary conditions (or mpp link) 
     24 
     25   USE yomhook, ONLY: lhook, dr_hook 
     26   USE parkind1, ONLY: jprb, jpim 
    2427 
    2528   IMPLICIT NONE 
    … …  
    8790      TYPE(FLD_N) ::   sn_utau, sn_vtau, sn_qtot, sn_qsr, sn_emp  ! informations about the fields to be read 
    8891      NAMELIST/namsbc_flx/ cn_dir, sn_utau, sn_vtau, sn_qtot, sn_qsr, sn_emp 
     92      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     93      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     94      REAL(KIND=jprb)               :: zhook_handle 
     95 
     96      CHARACTER(LEN=*), PARAMETER :: RoutineName='SBC_FLX' 
     97 
     98      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     99 
    89100      !!--------------------------------------------------------------------- 
    90101      ! 
    … …  
    175186      ENDIF 
    176187      ! 
     188      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    177189   END SUBROUTINE sbc_flx 
    178190 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/SBC/sbcfwb.F90

    r6487 r11738  
    2828   USE lbclnk          ! ocean lateral boundary conditions 
    2929   USE lib_fortran 
     30 
     31   USE yomhook, ONLY: lhook, dr_hook 
     32   USE parkind1, ONLY: jprb, jpim 
    3033 
    3134   IMPLICIT NONE 
    … …  
    7275      REAL(wp), POINTER, DIMENSION(:,:) ::   ztmsk_neg, ztmsk_pos, z_wgt ! 2D workspaces 
    7376      REAL(wp), POINTER, DIMENSION(:,:) ::   ztmsk_tospread, zerp_cor    !   -      - 
     77      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     78      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     79      REAL(KIND=jprb)               :: zhook_handle 
     80 
     81      CHARACTER(LEN=*), PARAMETER :: RoutineName='SBC_FWB' 
     82 
     83      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     84 
    7485      !!---------------------------------------------------------------------- 
    7586      ! 
    … …  
    213224      IF( nn_timing == 1 )  CALL timing_stop('sbc_fwb') 
    214225      ! 
     226      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    215227   END SUBROUTINE sbc_fwb 
    216228 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_cice.F90

    r10047 r11738  
    7777   USE CICE_FinalMod 
    7878 
     79   USE yomhook, ONLY: lhook, dr_hook 
     80   USE parkind1, ONLY: jprb, jpim 
     81 
    7982   IMPLICIT NONE 
    8083   PRIVATE 
    … …  
    113116 
    114117   INTEGER FUNCTION sbc_ice_cice_alloc() 
     118   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     119   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     120   REAL(KIND=jprb)               :: zhook_handle 
     121 
     122   CHARACTER(LEN=*), PARAMETER :: RoutineName='SBC_ICE_CICE_ALLOC' 
     123 
     124   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     125 
    115126      !!---------------------------------------------------------------------- 
    116127      !!                ***  FUNCTION sbc_ice_cice_alloc  *** 
    … …  
    119130      IF( lk_mpp                 )   CALL mpp_sum ( sbc_ice_cice_alloc ) 
    120131      IF( sbc_ice_cice_alloc > 0 )   CALL ctl_warn('sbc_ice_cice_alloc: allocation of arrays failed.') 
     132   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    121133   END FUNCTION sbc_ice_cice_alloc 
    122134 
    … …  
    140152      INTEGER, INTENT(in) ::   kt      ! ocean time step 
    141153      INTEGER, INTENT(in) ::   ksbc    ! surface forcing type 
     154      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     155      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     156      REAL(KIND=jprb)               :: zhook_handle 
     157 
     158      CHARACTER(LEN=*), PARAMETER :: RoutineName='SBC_ICE_CICE' 
     159 
     160      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     161 
    142162      !!---------------------------------------------------------------------- 
    143163      ! 
    … …  
    165185      IF( nn_timing == 1 )  CALL timing_stop('sbc_ice_cice') 
    166186 
     187      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    167188   END SUBROUTINE sbc_ice_cice 
    168189 
    … …  
    176197      REAL(wp), DIMENSION(:,:,:), POINTER :: ztfrz3d 
    177198      INTEGER  ::   ji, jj, jl, jk                    ! dummy loop indices 
     199      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     200      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     201      REAL(KIND=jprb)               :: zhook_handle 
     202 
     203      CHARACTER(LEN=*), PARAMETER :: RoutineName='CICE_SBC_INIT' 
     204 
     205      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     206 
    178207      !!--------------------------------------------------------------------- 
    179208 
    … …  
    319348      IF( nn_timing == 1 )  CALL timing_stop('cice_sbc_init') 
    320349      ! 
     350      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    321351   END SUBROUTINE cice_sbc_init 
    322352 
    … …  
    334364      REAL(wp), DIMENSION(:,:,:), POINTER :: ztmpn 
    335365      REAL(wp) ::   zintb, zintn  ! dummy argument 
     366      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     367      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     368      REAL(KIND=jprb)               :: zhook_handle 
     369 
     370      CHARACTER(LEN=*), PARAMETER :: RoutineName='CICE_SBC_IN' 
     371 
     372      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     373 
    336374      !!--------------------------------------------------------------------- 
    337375 
    … …  
    563601      IF( nn_timing == 1 )  CALL timing_stop('cice_sbc_in') 
    564602      ! 
     603      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    565604   END SUBROUTINE cice_sbc_in 
    566605 
    … …  
    576615      INTEGER  ::   ji, jj, jl                 ! dummy loop indices 
    577616      REAL(wp), DIMENSION(:,:), POINTER :: ztmp1, ztmp2 
     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='CICE_SBC_OUT' 
     622 
     623      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     624 
    578625      !!--------------------------------------------------------------------- 
    579626 
    … …  
    746793      IF( nn_timing == 1 )  CALL timing_stop('cice_sbc_out') 
    747794      ! 
     795      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    748796   END SUBROUTINE cice_sbc_out 
    749797 
    … …  
    760808      INTEGER  ::   jl                        ! dummy loop index 
    761809      INTEGER  ::   ierror 
     810      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     811      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     812      REAL(KIND=jprb)               :: zhook_handle 
     813 
     814      CHARACTER(LEN=*), PARAMETER :: RoutineName='CICE_SBC_HADGAM' 
     815 
     816      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     817 
    762818 
    763819      IF( nn_timing == 1 )  CALL timing_start('cice_sbc_hadgam') 
    … …  
    811867      IF( nn_timing == 1 )  CALL timing_stop('cice_sbc_hadgam') 
    812868      ! 
     869      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    813870   END SUBROUTINE cice_sbc_hadgam 
    814871 
    815872 
    816873   SUBROUTINE cice_sbc_final 
     874   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     875   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     876   REAL(KIND=jprb)               :: zhook_handle 
     877 
     878   CHARACTER(LEN=*), PARAMETER :: RoutineName='CICE_SBC_FINAL' 
     879 
     880   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     881 
    817882      !!--------------------------------------------------------------------- 
    818883      !!                    ***  ROUTINE cice_sbc_final  *** 
    … …  
    824889      CALL CICE_Finalize 
    825890 
     891   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    826892   END SUBROUTINE cice_sbc_final 
    827893 
    … …  
    862928         &                          sn_bot1, sn_bot2, sn_bot3, sn_bot4, sn_bot5 
    863929      INTEGER :: ios 
     930      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     931      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     932      REAL(KIND=jprb)               :: zhook_handle 
     933 
     934      CHARACTER(LEN=*), PARAMETER :: RoutineName='CICE_SBC_FORCE' 
     935 
     936      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     937 
    864938      !!--------------------------------------------------------------------- 
    865939 
    … …  
    9461020      ENDIF 
    9471021 
     1022      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    9481023   END SUBROUTINE cice_sbc_force 
    9491024 
    … …  
    9861061 
    9871062      INTEGER  ::   ji, jj, jn                      ! dummy loop indices 
     1063      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     1064      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     1065      REAL(KIND=jprb)               :: zhook_handle 
     1066 
     1067      CHARACTER(LEN=*), PARAMETER :: RoutineName='NEMO2CICE' 
     1068 
     1069      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     1070 
    9881071 
    9891072!     A. Ensure all haloes are filled in NEMO field (pn) 
    … …  
    10581141#endif 
    10591142 
     1143      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    10601144   END SUBROUTINE nemo2cice 
    10611145 
    … …  
    11001184 
    11011185      INTEGER  ::   ji, jj, jn                      ! dummy loop indices 
     1186      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     1187      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     1188      REAL(KIND=jprb)               :: zhook_handle 
     1189 
     1190      CHARACTER(LEN=*), PARAMETER :: RoutineName='CICE2NEMO' 
     1191 
     1192      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     1193 
    11021194 
    11031195 
    … …  
    11681260      CALL lbc_lnk( pn , cd_type, psgn ) 
    11691261 
     1262      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    11701263   END SUBROUTINE cice2nemo 
    11711264 
    … …  
    11781271 
    11791272   SUBROUTINE sbc_ice_cice ( kt, ksbc )     ! Dummy routine 
     1273      USE yomhook, ONLY: lhook, dr_hook 
     1274      USE parkind1, ONLY: jprb, jpim 
     1275 
    11801276      IMPLICIT NONE 
    11811277      INTEGER, INTENT(in) ::   kt    ! ocean time-step index 
    11821278      INTEGER, INTENT(in) ::   ksbc    ! surface forcing type 
     1279      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     1280      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     1281      REAL(KIND=jprb)               :: zhook_handle 
     1282 
     1283      CHARACTER(LEN=*), PARAMETER :: RoutineName='SBC_ICE_CICE' 
     1284 
     1285      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     1286 
    11831287      WRITE(*,*) 'sbc_ice_cice: You should not have seen this print! error?', kt 
     1288      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    11841289   END SUBROUTINE sbc_ice_cice 
    11851290 
    11861291   SUBROUTINE cice_sbc_init (ksbc)    ! Dummy routine 
     1292      USE yomhook, ONLY: lhook, dr_hook 
     1293      USE parkind1, ONLY: jprb, jpim 
     1294 
    11871295      IMPLICIT NONE 
    11881296      INTEGER, INTENT(in) ::   ksbc    ! surface forcing type 
     1297      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     1298      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     1299      REAL(KIND=jprb)               :: zhook_handle 
     1300 
     1301      CHARACTER(LEN=*), PARAMETER :: RoutineName='CICE_SBC_INIT' 
     1302 
     1303      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     1304 
    11891305      WRITE(*,*) 'cice_sbc_init: You should not have seen this print! error?' 
     1306      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    11901307   END SUBROUTINE cice_sbc_init 
    11911308 
    11921309   SUBROUTINE cice_sbc_final     ! Dummy routine 
     1310      USE yomhook, ONLY: lhook, dr_hook 
     1311      USE parkind1, ONLY: jprb, jpim 
     1312 
    11931313      IMPLICIT NONE 
     1314      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     1315      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     1316      REAL(KIND=jprb)               :: zhook_handle 
     1317 
     1318      CHARACTER(LEN=*), PARAMETER :: RoutineName='CICE_SBC_FINAL' 
     1319 
     1320      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     1321 
    11941322      WRITE(*,*) 'cice_sbc_final: You should not have seen this print! error?' 
     1323      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    11951324   END SUBROUTINE cice_sbc_final 
    11961325 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_if.F90

    r6498 r11738  
    2626   USE lib_mpp        ! MPP library 
    2727   USE lib_fortran    ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined)   
     28 
     29   USE yomhook, ONLY: lhook, dr_hook 
     30   USE parkind1, ONLY: jprb, jpim 
    2831 
    2932   IMPLICIT NONE 
    … …  
    7073      TYPE(FLD_N)        ::   sn_ice              ! informations about the fields to be read 
    7174      NAMELIST/namsbc_iif/ cn_dir, sn_ice 
     75      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     76      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     77      REAL(KIND=jprb)               :: zhook_handle 
     78 
     79      CHARACTER(LEN=*), PARAMETER :: RoutineName='SBC_ICE_IF' 
     80 
     81      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     82 
    7283      !!--------------------------------------------------------------------- 
    7384      !                                         ! ====================== ! 
    … …  
    145156      ENDIF 
    146157      ! 
     158      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    147159   END SUBROUTINE sbc_ice_if 
    148160 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/SBC/sbcisf.F90

    r8046 r11738  
    2828   USE lib_fortran, ONLY: glob_sum 
    2929 
     30   USE yomhook, ONLY: lhook, dr_hook 
     31   USE parkind1, ONLY: jprb, jpim 
     32 
    3033   IMPLICIT NONE 
    3134   PRIVATE 
    … …  
    98101      NAMELIST/namsbc_isf/ nn_isfblk, rn_hisf_tbl, ln_divisf, ln_conserve, rn_gammat0, rn_gammas0, nn_gammablk, & 
    99102                         & sn_fwfisf, sn_qisf, sn_rnfisf, sn_depmax_isf, sn_depmin_isf, sn_Leff_isf 
     103                         INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     104                         INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     105                         REAL(KIND=jprb)               :: zhook_handle 
     106 
     107                         CHARACTER(LEN=*), PARAMETER :: RoutineName='SBC_ISF' 
     108 
     109                         IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     110 
    100111      ! 
    101112      ! 
    … …  
    420431      END IF 
    421432   
     433                         IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    422434  END SUBROUTINE sbc_isf 
    423435 
    424436  INTEGER FUNCTION sbc_isf_alloc() 
     437  INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     438  INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     439  REAL(KIND=jprb)               :: zhook_handle 
     440 
     441  CHARACTER(LEN=*), PARAMETER :: RoutineName='SBC_ISF_ALLOC' 
     442 
     443  IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     444 
    425445      !!---------------------------------------------------------------------- 
    426446      !!               ***  FUNCTION sbc_isf_rnf_alloc  *** 
    … …  
    439459         ! 
    440460      ENDIF 
     461  IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    441462  END FUNCTION 
    442463 
    … …  
    472493    REAL(wp) :: zt_frz      ! freezing point temperature at depth z 
    473494    REAL(wp) :: zpress      ! pressure to compute the freezing point in depth 
     495    INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     496    INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     497    REAL(KIND=jprb)               :: zhook_handle 
     498 
     499    CHARACTER(LEN=*), PARAMETER :: RoutineName='SBC_ISF_BG03' 
     500 
     501    IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     502 
    474503     
    475504    !!---------------------------------------------------------------------- 
    … …  
    510539    ! 
    511540    IF( nn_timing == 1 )  CALL timing_stop('sbc_isf_bg03') 
     541    IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    512542  END SUBROUTINE sbc_isf_bg03 
    513543 
    … …  
    542572      LOGICAL  ::   lit=.TRUE. 
    543573      INTEGER  ::   nit 
     574      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     575      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     576      REAL(KIND=jprb)               :: zhook_handle 
     577 
     578      CHARACTER(LEN=*), PARAMETER :: RoutineName='SBC_ISF_CAV' 
     579 
     580      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     581 
    544582      !!--------------------------------------------------------------------- 
    545583      ! 
    … …  
    683721      IF( nn_timing == 1 )  CALL timing_stop('sbc_isf_cav') 
    684722 
     723      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    685724   END SUBROUTINE sbc_isf_cav 
    686725 
    … …  
    714753      REAL(wp) ::   rcs      = 1.0e-3_wp        ! conversion: mm/s ==> m/s 
    715754      REAL(wp), DIMENSION(2) :: zts, zab 
     755      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     756      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     757      REAL(KIND=jprb)               :: zhook_handle 
     758 
     759      CHARACTER(LEN=*), PARAMETER :: RoutineName='SBC_ISF_GAMMATS' 
     760 
     761      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     762 
    716763      !!--------------------------------------------------------------------- 
    717764      ! 
    … …  
    811858      END IF 
    812859 
     860      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    813861   END SUBROUTINE 
    814862 
    … …  
    831879      INTEGER :: ikt,ikb 
    832880      INTEGER, DIMENSION(:,:), POINTER :: mkt, mkb 
     881      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     882      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     883      REAL(KIND=jprb)               :: zhook_handle 
     884 
     885      CHARACTER(LEN=*), PARAMETER :: RoutineName='SBC_ISF_TBL' 
     886 
     887      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     888 
    833889 
    834890      CALL wrk_alloc( jpi,jpj, mkt, mkb  ) 
    … …  
    874930      IF (cptin == 'U' .OR. cptin == 'V') CALL lbc_lnk(varout,'T',-1.) 
    875931 
     932      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    876933   END SUBROUTINE sbc_isf_tbl 
    877934       
    … …  
    896953      REAL(wp)     ::   zhk, z1_hisf_tbl, zhisf_tbl 
    897954      REAL(wp)     ::   zfact     ! local scalar 
     955      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     956      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     957      REAL(KIND=jprb)               :: zhook_handle 
     958 
     959      CHARACTER(LEN=*), PARAMETER :: RoutineName='SBC_ISF_DIV' 
     960 
     961      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     962 
    898963      !!---------------------------------------------------------------------- 
    899964      ! 
    … …  
    9391004      END DO 
    9401005      ! 
     1006      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    9411007   END SUBROUTINE sbc_isf_div 
    9421008                         
    … …  
    9591025      REAL(wp) :: zt, zs, zp, zh, zq, zxk 
    9601026      INTEGER  :: ji, jj            ! dummy loop indices 
     1027      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     1028      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     1029      REAL(KIND=jprb)               :: zhook_handle 
     1030 
     1031      CHARACTER(LEN=*), PARAMETER :: RoutineName='TINSITU' 
     1032 
     1033      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     1034 
    9611035      ! 
    9621036      CALL wrk_alloc( jpi,jpj, pti  ) 
    … …  
    9901064      CALL wrk_dealloc( jpi,jpj, pti  ) 
    9911065      ! 
     1066      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    9921067   END FUNCTION tinsitu 
    9931068   ! 
    … …  
    10071082      REAL(wp) :: pfps, pfpt, pfphp  
    10081083      REAL(wp) :: fsatg 
     1084      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     1085      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     1086      REAL(KIND=jprb)               :: zhook_handle 
     1087 
     1088      CHARACTER(LEN=*), PARAMETER :: RoutineName='FSATG' 
     1089 
     1090      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     1091 
    10091092      ! 
    10101093      fsatg = (((-2.1687e-16*pfpt+1.8676e-14)*pfpt-4.6206e-13)*pfphp         & 
    … …  
    10141097        &    +((6.6228e-10*pfpt-6.836e-8)*pfpt+8.5258e-6)*pfpt+3.5803e-5 
    10151098      ! 
     1099      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    10161100    END FUNCTION fsatg 
    10171101    !!====================================================================== 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90

    r9321 r11738  
    5555   USE bdy_par          ! Require lk_bdy 
    5656 
     57   USE yomhook, ONLY: lhook, dr_hook 
     58   USE parkind1, ONLY: jprb, jpim 
     59 
    5760   IMPLICIT NONE 
    5861   PRIVATE 
    … …  
    9396      INTEGER  ::   ierr, ierr0, ierr1, ierr2, ierr3, jpm 
    9497      LOGICAL  ::   ll_purecpl 
     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='SBC_INIT' 
     103 
     104      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     105 
    95106      !!---------------------------------------------------------------------- 
    96107 
    … …  
    309320      IF( nn_ice == 4      )   CALL cice_sbc_init( nsbc )      ! CICE initialisation 
    310321       
     322      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    311323   END SUBROUTINE sbc_init 
    312324 
    … …  
    329341      !!---------------------------------------------------------------------- 
    330342      INTEGER, INTENT(in) ::   kt       ! ocean time step 
     343      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     344      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     345      REAL(KIND=jprb)               :: zhook_handle 
     346 
     347      CHARACTER(LEN=*), PARAMETER :: RoutineName='SBC' 
     348 
     349      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     350 
    331351      !!--------------------------------------------------------------------- 
    332352      ! 
    … …  
    501521      IF( nn_timing == 1 )  CALL timing_stop('sbc') 
    502522      ! 
     523      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    503524   END SUBROUTINE sbc 
    504525 
    505526 
    506527   SUBROUTINE sbc_final 
     528   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     529   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     530   REAL(KIND=jprb)               :: zhook_handle 
     531 
     532   CHARACTER(LEN=*), PARAMETER :: RoutineName='SBC_FINAL' 
     533 
     534   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     535 
    507536      !!--------------------------------------------------------------------- 
    508537      !!                    ***  ROUTINE sbc_final  *** 
    … …  
    513542      IF( nn_ice == 4 )   CALL cice_sbc_final 
    514543      ! 
     544   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    515545   END SUBROUTINE sbc_final 
    516546 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/SBC/sbcrnf.F90

    r9321 r11738  
    2828   USE wrk_nemo        ! Memory allocation 
    2929   USE timing 
     30 
     31   USE yomhook, ONLY: lhook, dr_hook 
     32   USE parkind1, ONLY: jprb, jpim 
    3033 
    3134   IMPLICIT NONE 
    … …  
    7881 
    7982   INTEGER FUNCTION sbc_rnf_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='SBC_RNF_ALLOC' 
     88 
     89   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     90 
    8091      !!---------------------------------------------------------------------- 
    8192      !!                ***  ROUTINE sbc_rnf_alloc  *** 
    … …  
    8798      IF( lk_mpp            )   CALL mpp_sum ( sbc_rnf_alloc ) 
    8899      IF( sbc_rnf_alloc > 0 )   CALL ctl_warn('sbc_rnf_alloc: allocation of arrays failed') 
     100   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    89101   END FUNCTION sbc_rnf_alloc 
    90102 
    … …  
    108120      !!---------------------------------------------------------------------- 
    109121      REAL(wp), DIMENSION(:,:), POINTER       ::   ztfrz   ! freezing point used for temperature correction 
     122      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     123      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     124      REAL(KIND=jprb)               :: zhook_handle 
     125 
     126      CHARACTER(LEN=*), PARAMETER :: RoutineName='SBC_RNF' 
     127 
     128      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     129 
    110130      ! 
    111131      CALL wrk_alloc( jpi,jpj, ztfrz) 
    … …  
    176196      CALL wrk_dealloc( jpi,jpj, ztfrz) 
    177197      ! 
     198      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    178199   END SUBROUTINE sbc_rnf 
    179200 
    … …  
    195216      INTEGER  ::   ji, jj, jk   ! dummy loop indices 
    196217      REAL(wp) ::   zfact     ! local scalar 
     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='SBC_RNF_DIV' 
     223 
     224      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     225 
    197226      !!---------------------------------------------------------------------- 
    198227      ! 
    … …  
    229258      ENDIF 
    230259      ! 
     260      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    231261   END SUBROUTINE sbc_rnf_div 
    232262 
    … …  
    256286         &                 ln_rnf_mouth      , rn_hrnf     , rn_avt_rnf, rn_rfact,     & 
    257287         &                 ln_rnf_depth_ini  , rn_dep_max  , rn_rnf_max, nn_rnf_depth_file 
     288         INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     289         INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     290         REAL(KIND=jprb)               :: zhook_handle 
     291 
     292         CHARACTER(LEN=*), PARAMETER :: RoutineName='SBC_RNF_INIT' 
     293 
     294         IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     295 
    258296      !!---------------------------------------------------------------------- 
    259297      ! 
    … …  
    268306         rnfmsk  (:,:) = 0.0_wp 
    269307         rnfmsk_z(:)   = 0.0_wp 
     308         IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 
    270309         RETURN 
    271310      ENDIF 
    … …  
    479518      ENDIF 
    480519      ! 
     520         IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    481521   END SUBROUTINE sbc_rnf_init 
    482522 
    … …  
    504544      INTEGER            ::   inum        ! temporary integers 
    505545      CHARACTER(len=140) ::   cl_rnfile   ! runoff file name 
     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='RNF_MOUTH' 
     551 
     552      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     553 
    506554      !!---------------------------------------------------------------------- 
    507555      ! 
    … …  
    529577      rnfmsk_z(5)   = 0.125 
    530578      ! 
     579      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    531580   END SUBROUTINE rnf_mouth 
    532581 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/SBC/sbcssm.F90

    r9321 r11738  
    2222   USE iom             ! IOM library 
    2323   USE timing 
     24 
     25   USE yomhook, ONLY: lhook, dr_hook 
     26   USE parkind1, ONLY: jprb, jpim 
    2427 
    2528   IMPLICIT NONE 
    … …  
    5962      REAL(wp) ::   zcoef, zf_sbc       ! local scalar 
    6063      REAL(wp), DIMENSION(jpi,jpj,jpts) :: zts 
     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='SBC_SSM' 
     69 
     70      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     71 
    6172      !!--------------------------------------------------------------------- 
    6273 
    … …  
    182193      ENDIF 
    183194      ! 
     195      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    184196   END SUBROUTINE sbc_ssm 
    185197 
    … …  
    193205      !!---------------------------------------------------------------------- 
    194206      REAL(wp) ::   zcoef, zf_sbc       ! local scalar 
     207      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     208      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     209      REAL(KIND=jprb)               :: zhook_handle 
     210 
     211      CHARACTER(LEN=*), PARAMETER :: RoutineName='SBC_SSM_INIT' 
     212 
     213      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     214 
    195215      !!---------------------------------------------------------------------- 
    196216 
    … …  
    257277      ENDIF 
    258278      ! 
     279      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    259280   END SUBROUTINE sbc_ssm_init 
    260281 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/SBC/sbcssr.F90

    r9634 r11738  
    2626   USE lib_fortran    ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined)   
    2727 
     28   USE yomhook, ONLY: lhook, dr_hook 
     29   USE parkind1, ONLY: jprb, jpim 
     30 
    2831   IMPLICIT NONE 
    2932   PRIVATE 
    … …  
    8588      CHARACTER(len=100) ::  cn_dir          ! Root directory for location of ssr files 
    8689      TYPE(FLD_N) ::   sn_sst, sn_sss        ! informations about the fields to be read 
     90      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     91      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     92      REAL(KIND=jprb)               :: zhook_handle 
     93 
     94      CHARACTER(LEN=*), PARAMETER :: RoutineName='SBC_SSR' 
     95 
     96      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     97 
    8798      !!---------------------------------------------------------------------- 
    8899      ! 
    … …  
    156167      IF( nn_timing == 1 )  CALL timing_stop('sbc_ssr') 
    157168      ! 
     169      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    158170   END SUBROUTINE sbc_ssr 
    159171 
    … …  
    179191      NAMELIST/namsbc_ssr/ cn_dir, nn_sstr, nn_sssr, rn_dqdt, rn_deds, rn_deds_ice, sn_sst, sn_sss, ln_sssr_bnd, rn_sssr_bnd 
    180192      INTEGER     ::  ios 
     193      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     194      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     195      REAL(KIND=jprb)               :: zhook_handle 
     196 
     197      CHARACTER(LEN=*), PARAMETER :: RoutineName='SBC_SSR_INIT' 
     198 
     199      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     200 
    181201      !!---------------------------------------------------------------------- 
    182202      ! 
    … …  
    242262      IF( nn_sssr /= 1 .OR. nn_sssr /= 2 )   erp(:,:) = 0._wp 
    243263      ! 
     264      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    244265   END SUBROUTINE sbc_ssr_init 
    245266       

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/SBC/sbctide.F90

    r6486 r11738  
    1717   USE ioipsl          ! NetCDF IPSL library 
    1818   USE lbclnk          ! ocean lateral boundary conditions (or mpp link) 
     19 
     20   USE yomhook, ONLY: lhook, dr_hook 
     21   USE parkind1, ONLY: jprb, jpim 
    1922 
    2023   IMPLICIT NONE 
    … …  
    4750      INTEGER, INTENT( in ) ::   kt     ! ocean time-step 
    4851      INTEGER               ::   jk     ! dummy loop index 
     52      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     53      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     54      REAL(KIND=jprb)               :: zhook_handle 
     55 
     56      CHARACTER(LEN=*), PARAMETER :: RoutineName='SBC_TIDE' 
     57 
     58      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     59 
    4960      !!---------------------------------------------------------------------- 
    5061 
    … …  
    7788      ENDIF 
    7889      ! 
     90      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    7991   END SUBROUTINE sbc_tide 
    8092 
    … …  
    8698      INTEGER  ::   ji, jj, jk   ! dummy loop indices 
    8799      REAL(wp) ::   zcons, ztmp1, ztmp2, zlat, zlon, ztmp, zamp, zcs   ! local scalar 
     100      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     101      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     102      REAL(KIND=jprb)               :: zhook_handle 
     103 
     104      CHARACTER(LEN=*), PARAMETER :: RoutineName='TIDE_INIT_POTENTIAL' 
     105 
     106      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     107 
    88108      !!---------------------------------------------------------------------- 
    89109 
    … …  
    112132      END DO 
    113133      ! 
     134      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    114135   END SUBROUTINE tide_init_potential 
    115136 
    … …  
    122143  SUBROUTINE sbc_tide( kt )      ! Empty routine 
    123144    INTEGER         , INTENT(in) ::   kt         ! ocean time-step 
     145    INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     146    INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     147    REAL(KIND=jprb)               :: zhook_handle 
     148 
     149    CHARACTER(LEN=*), PARAMETER :: RoutineName='SBC_TIDE' 
     150 
     151    IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     152 
    124153    WRITE(*,*) 'sbc_tide: You should not have seen this print! error?', kt 
     154    IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    125155  END SUBROUTINE sbc_tide 
    126156#endif 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/SBC/sbcwave.F90

    r6486 r11738  
    1919   !!   sbc_wave       : read drag coefficient from wave model in netcdf files  
    2020   !!---------------------------------------------------------------------- 
     21 
     22   USE yomhook, ONLY: lhook, dr_hook 
     23   USE parkind1, ONLY: jprb, jpim 
    2124 
    2225   IMPLICIT NONE 
    … …  
    7578      !!--------------------------------------------------------------------- 
    7679      NAMELIST/namsbc_wave/  sn_cdg, cn_dir, sn_usd, sn_vsd, sn_wn 
     80      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     81      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     82      REAL(KIND=jprb)               :: zhook_handle 
     83 
     84      CHARACTER(LEN=*), PARAMETER :: RoutineName='SBC_WAVE' 
     85 
     86      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     87 
    7788      !!--------------------------------------------------------------------- 
    7889 
    … …  
    189200          CALL wrk_dealloc( jpi,jpj,jpk,udummy,vdummy,hdivdummy,rotdummy) 
    190201      ENDIF 
     202      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    191203   END SUBROUTINE sbc_wave 
    192204       

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/SBC/tide_mod.F90

    r6486 r11738  
    1010   USE daymod         ! calendar 
    1111 
     12   USE yomhook, ONLY: lhook, dr_hook 
     13   USE parkind1, ONLY: jprb, jpim 
     14 
    1215   IMPLICIT NONE 
    1316   PRIVATE 
    … …  
    4144 
    4245   SUBROUTINE tide_init_Wave 
     46   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     47   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     48   REAL(KIND=jprb)               :: zhook_handle 
     49 
     50   CHARACTER(LEN=*), PARAMETER :: RoutineName='TIDE_INIT_WAVE' 
     51 
     52   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     53 
    4354#     include "tide.h90" 
     55   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    4456   END SUBROUTINE tide_init_Wave 
    4557 
    … …  
    5264      REAL(wp), DIMENSION(kc), INTENT(out) ::   pomega           ! pulsation in radians/s 
    5365      REAL(wp), DIMENSION(kc), INTENT(out) ::   pvt, put, pcor   ! 
     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='TIDE_HARMO' 
     71 
     72      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     73 
    5474      !!---------------------------------------------------------------------- 
    5575      ! 
    … …  
    5878      CALL tide_vuf  ( pvt, put, pcor, ktide ,kc ) 
    5979      ! 
     80      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    6081   END SUBROUTINE tide_harmo 
    6182 
    … …  
    6889      REAL(wp) ::   cosI, p, q, t2, t4, sin2I, s2, tgI2, P1, sh_tgn2, at1, at2 
    6990      REAL(wp) ::   zqy , zsy, zday, zdj, zhfrac 
     91      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     92      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     93      REAL(KIND=jprb)               :: zhook_handle 
     94 
     95      CHARACTER(LEN=*), PARAMETER :: RoutineName='ASTRONOMIC_ANGLE' 
     96 
     97      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     98 
    7099      !!---------------------------------------------------------------------- 
    71100      ! 
    … …  
    149178      sh_nusec = 0.5*atan(p/q) 
    150179      ! 
     180      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    151181   END SUBROUTINE astronomic_angle 
    152182 
    … …  
    170200      REAL(wp) ::   zomega_n =      1934.1423972_wp 
    171201      REAL(wp) ::   zomega_p1=         1.719175_wp 
     202      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     203      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     204      REAL(KIND=jprb)               :: zhook_handle 
     205 
     206      CHARACTER(LEN=*), PARAMETER :: RoutineName='TIDE_PULSE' 
     207 
     208      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     209 
    172210      !!---------------------------------------------------------------------- 
    173211      ! 
    … …  
    182220      END DO 
    183221      ! 
     222      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    184223   END SUBROUTINE tide_pulse 
    185224 
    … …  
    200239      ! 
    201240      INTEGER ::   jh   ! dummy loop index 
     241      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     242      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     243      REAL(KIND=jprb)               :: zhook_handle 
     244 
     245      CHARACTER(LEN=*), PARAMETER :: RoutineName='TIDE_VUF' 
     246 
     247      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     248 
    202249      !!---------------------------------------------------------------------- 
    203250      ! 
    … …  
    223270      END DO 
    224271      ! 
     272      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    225273   END SUBROUTINE tide_vuf 
    226274 
    … …  
    233281      REAL(wp) :: zf 
    234282      REAL(wp) :: zs, zf1, zf2 
     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='NODAL_FACTORT' 
     288 
     289      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     290 
    235291      !!---------------------------------------------------------------------- 
    236292      ! 
    … …  
    380436      END SELECT 
    381437      ! 
     438      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    382439   END FUNCTION nodal_factort 
    383440 
    … …  
    394451      ! 
    395452      DATA idayt/0.,31.,59.,90.,120.,151.,181.,212.,243.,273.,304.,334./ 
     453      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     454      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     455      REAL(KIND=jprb)               :: zhook_handle 
     456 
     457      CHARACTER(LEN=*), PARAMETER :: RoutineName='DAYJUL' 
     458 
     459      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     460 
    396461      !!---------------------------------------------------------------------- 
    397462      ! 
    … …  
    406471      dayjul = idays(kmonth) + kday 
    407472      ! 
     473      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    408474   END FUNCTION dayjul 
    409475 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/SBC/tideini.F90

    r6486 r11738  
    1717   USE ioipsl          ! NetCDF IPSL library 
    1818   USE lbclnk          ! ocean lateral boundary conditions (or mpp link) 
     19 
     20   USE yomhook, ONLY: lhook, dr_hook 
     21   USE parkind1, ONLY: jprb, jpim 
    1922 
    2023   IMPLICIT NONE 
    … …  
    5255    ! 
    5356    NAMELIST/nam_tide/ln_tide_pot, ln_tide_ramp, rdttideramp, clname 
     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='TIDE_INIT' 
     62 
     63    IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     64 
    5465    !!---------------------------------------------------------------------- 
    5566 
    … …  
    114125      ENDIF 
    115126      ! 
     127    IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    116128   END SUBROUTINE tide_init 
    117129      

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/STO/stopar.F90

    r9321 r11738  
    2424   USE timing 
    2525 
     26   USE yomhook, ONLY: lhook, dr_hook 
     27   USE parkind1, ONLY: jprb, jpim 
     28 
    2629   IMPLICIT NONE 
    2730   PRIVATE 
    … …  
    159162      INTEGER  :: ji, jj, jk, jsto, jflt 
    160163      REAL(wp) :: stomax 
     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='STO_PAR' 
     169 
     170      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     171 
    161172 
    162173      ! 
    … …  
    236247      END DO 
    237248 
     249      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    238250   END SUBROUTINE sto_par 
    239251 
    … …  
    259271      REAL(wp) :: rinflate 
    260272      INTEGER  ::   ios                 ! Local integer output status for namelist read 
     273      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     274      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     275      REAL(KIND=jprb)               :: zhook_handle 
     276 
     277      CHARACTER(LEN=*), PARAMETER :: RoutineName='STO_PAR_INIT' 
     278 
     279      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     280 
    261281 
    262282      ! Read namsto namelist : stochastic parameterization 
    … …  
    666686      IF( ln_rststo ) CALL sto_rst_read 
    667687 
     688      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    668689   END SUBROUTINE sto_par_init 
    669690 
    … …  
    683704      CHARACTER(LEN=9)    ::   clsto3d='sto3d_000' ! stochastic parameter variable name 
    684705      CHARACTER(LEN=10)   ::   clseed='seed0_0000' ! seed variable name 
     706      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     707      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     708      REAL(KIND=jprb)               :: zhook_handle 
     709 
     710      CHARACTER(LEN=*), PARAMETER :: RoutineName='STO_RST_READ' 
     711 
     712      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     713 
    685714 
    686715      IF ( jpsto2d > 0 .OR. jpsto3d > 0 ) THEN 
    … …  
    725754      ENDIF 
    726755 
     756      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    727757   END SUBROUTINE sto_rst_read 
    728758 
    … …  
    744774      CHARACTER(LEN=9)    ::   clsto3d='sto3d_000' ! stochastic parameter variable name 
    745775      CHARACTER(LEN=10)   ::   clseed='seed0_0000' ! seed variable name 
     776      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     777      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     778      REAL(KIND=jprb)               :: zhook_handle 
     779 
     780      CHARACTER(LEN=*), PARAMETER :: RoutineName='STO_RST_WRITE' 
     781 
     782      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     783 
    746784 
    747785      IF ( jpsto2d > 0 .OR. jpsto3d > 0 ) THEN 
    … …  
    808846      ENDIF 
    809847 
     848      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    810849   END SUBROUTINE sto_rst_write 
    811850 
    … …  
    821860      INTEGER  :: ji, jj 
    822861      REAL(KIND=8) :: gran   ! Gaussian random number (forced KIND=8 as in kiss_gaussian) 
     862      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     863      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     864      REAL(KIND=jprb)               :: zhook_handle 
     865 
     866      CHARACTER(LEN=*), PARAMETER :: RoutineName='STO_PAR_WHITE' 
     867 
     868      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     869 
    823870 
    824871      DO jj = 1, jpj 
    … …  
    829876      END DO 
    830877 
     878      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    831879   END SUBROUTINE sto_par_white 
    832880 
    … …  
    841889      !! 
    842890      INTEGER  :: ji, jj 
     891      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     892      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     893      REAL(KIND=jprb)               :: zhook_handle 
     894 
     895      CHARACTER(LEN=*), PARAMETER :: RoutineName='STO_PAR_FLT' 
     896 
     897      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     898 
    843899 
    844900      DO jj = 2, jpj-1 
    … …  
    850906      END DO 
    851907 
     908      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    852909   END SUBROUTINE sto_par_flt 
    853910 
    … …  
    869926      REAL(wp), DIMENSION(:,:), ALLOCATABLE :: pflta 
    870927      REAL(wp) :: ratio 
     928      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     929      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     930      REAL(KIND=jprb)               :: zhook_handle 
     931 
     932      CHARACTER(LEN=*), PARAMETER :: RoutineName='STO_PAR_FLT_FAC' 
     933 
     934      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     935 
    871936 
    872937      pflt0(-1,-1) = 0 ; pflt0(-1,0) = 1 ; pflt0(-1,1) = 0 
    … …  
    901966      sto_par_flt_fac = ratio 
    902967 
     968      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    903969   END FUNCTION sto_par_flt_fac 
    904970 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/STO/stopts.F90

    r6486 r11738  
    1515   USE phycst          ! physical constants 
    1616   USE stopar          ! stochastic parameterization 
     17 
     18   USE yomhook, ONLY: lhook, dr_hook 
     19   USE parkind1, ONLY: jprb, jpim 
    1720 
    1821   IMPLICIT NONE 
    … …  
    5154      REAL(wp) ::   zdtsim, zdtsjm, zdtskm         ! temporary scalars 
    5255      REAL(wp) ::   zdtsip, zdtsjp, zdtskp, zdts   !     -        - 
     56      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     57      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     58      REAL(KIND=jprb)               :: zhook_handle 
     59 
     60      CHARACTER(LEN=*), PARAMETER :: RoutineName='STO_PTS' 
     61 
     62      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     63 
    5364      !!---------------------------------------------------------------------- 
    5465 
    … …  
    127138      END DO 
    128139 
     140      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    129141   END SUBROUTINE sto_pts 
    130142 
    131143 
    132144   SUBROUTINE sto_pts_init 
     145   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     146   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     147   REAL(KIND=jprb)               :: zhook_handle 
     148 
     149   CHARACTER(LEN=*), PARAMETER :: RoutineName='STO_PTS_INIT' 
     150 
     151   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     152 
    133153      !!---------------------------------------------------------------------- 
    134154      !!                  ***  ROUTINE sto_pts_init  *** 
    … …  
    142162      ALLOCATE(pts_ran(jpi,jpj,jpk,jpts,nn_sto_eos)) 
    143163 
     164   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    144165   END SUBROUTINE sto_pts_init 
    145166 

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

    r9163 r11738  
    99   USE trdmxl_oce              ! ocean active mixed layer tracers trends variables 
    1010   USE trdvor_oce              ! ocean vorticity trends variables 
     11 
     12   USE yomhook, ONLY: lhook, dr_hook 
     13   USE parkind1, ONLY: jprb, jpim 
    1114 
    1215   IMPLICIT NONE 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/TRD/trddyn.F90

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

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/TRD/trdglo.F90

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

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/TRD/trdini.F90

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

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/TRD/trdken.F90

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

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/TRD/trdmxl.F90

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

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/TRD/trdmxl_oce.F90

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

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/TRD/trdmxl_rst.F90

    r9321 r11738  
    1717   USE restart         ! only for lrst_oce 
    1818   USE timing 
     19 
     20   USE yomhook, ONLY: lhook, dr_hook 
     21   USE parkind1, ONLY: jprb, jpim 
    1922 
    2023   IMPLICIT NONE 
    … …  
    4649      CHARACTER(LEN=50)   ::   clname   ! output restart file name 
    4750      CHARACTER(LEN=256)  ::   clpath   ! full path to restart file 
     51      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     52      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     53      REAL(KIND=jprb)               :: zhook_handle 
     54 
     55      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRD_MXL_RST_WRITE' 
     56 
     57      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     58 
    4859      !!-------------------------------------------------------------------------------- 
    4960 
    … …  
    123134      ENDIF 
    124135      !  
     136      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    125137   END SUBROUTINE trd_mxl_rst_write 
    126138 
    … …  
    139151      LOGICAL ::   llok 
    140152      CHARACTER(LEN=256)  ::   clpath   ! full path to restart file 
     153      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     154      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     155      REAL(KIND=jprb)               :: zhook_handle 
     156 
     157      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRD_MXL_RST_READ' 
     158 
     159      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     160 
    141161      !!----------------------------------------------------------------------------- 
    142162 
    … …  
    200220      CALL iom_close( inum ) 
    201221      ! 
     222      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    202223   END SUBROUTINE trd_mxl_rst_read 
    203224   

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/TRD/trdpen.F90

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

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/TRD/trdtra.F90

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

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/TRD/trdtrc.F90

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

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/TRD/trdvor.F90

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

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/TRD/trdvor_oce.F90

    r6486 r11738  
    88    
    99   USE par_oce      ! ocean parameters 
     10 
     11   USE yomhook, ONLY: lhook, dr_hook 
     12   USE parkind1, ONLY: jprb, jpim 
    1013 
    1114   IMPLICIT NONE 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/ZDF/zdf_oce.F90

    r6487 r11738  
    1010   USE in_out_manager ! I/O manager 
    1111   USE lib_mpp        ! MPP library 
     12 
     13   USE yomhook, ONLY: lhook, dr_hook 
     14   USE parkind1, ONLY: jprb, jpim 
    1215 
    1316   IMPLICIT NONE 
    … …  
    5558 
    5659   INTEGER FUNCTION zdf_oce_alloc() 
     60   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     61   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     62   REAL(KIND=jprb)               :: zhook_handle 
     63 
     64   CHARACTER(LEN=*), PARAMETER :: RoutineName='ZDF_OCE_ALLOC' 
     65 
     66   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     67 
    5768      !!---------------------------------------------------------------------- 
    5869      !!            *** FUNCTION zdf_oce_alloc *** 
    … …  
    7081      IF( zdf_oce_alloc /= 0 )   CALL ctl_warn('zdf_oce_alloc: failed to allocate arrays') 
    7182      ! 
     83   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    7284   END FUNCTION zdf_oce_alloc 
    7385 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfbfr.F90

    r6486 r11738  
    2727   USE phycst, ONLY: vkarmn 
    2828 
     29   USE yomhook, ONLY: lhook, dr_hook 
     30   USE parkind1, ONLY: jprb, jpim 
     31 
    2932   IMPLICIT NONE 
    3033   PRIVATE 
    … …  
    6568 
    6669   INTEGER FUNCTION zdf_bfr_alloc() 
     70   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     71   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     72   REAL(KIND=jprb)               :: zhook_handle 
     73 
     74   CHARACTER(LEN=*), PARAMETER :: RoutineName='ZDF_BFR_ALLOC' 
     75 
     76   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     77 
    6778      !!---------------------------------------------------------------------- 
    6879      !!                ***  FUNCTION zdf_bfr_alloc  *** 
    … …  
    7283      IF( lk_mpp             )   CALL mpp_sum ( zdf_bfr_alloc ) 
    7384      IF( zdf_bfr_alloc /= 0 )   CALL ctl_warn('zdf_bfr_alloc: failed to allocate arrays.') 
     85   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    7486   END FUNCTION zdf_bfr_alloc 
    7587 
    … …  
    97109      REAL(wp) ::   zvu, zuv, zecu, zecv, ztmp   ! temporary scalars 
    98110      REAL(wp), POINTER, DIMENSION(:,:) ::  zbfrt, ztfrt 
     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='ZDF_BFR' 
     116 
     117      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     118 
    99119      !!---------------------------------------------------------------------- 
    100120      ! 
    … …  
    215235      IF( nn_timing == 1 )  CALL timing_stop('zdf_bfr') 
    216236      ! 
     237      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    217238   END SUBROUTINE zdf_bfr 
    218239 
    … …  
    241262                    &          rn_tfri1, rn_tfri2, rn_tfri2_max, rn_tfeb2, rn_tfrz0, ln_tfr2d, & 
    242263                    &  rn_bfrien, rn_tfrien, ln_bfrimp, ln_loglayer 
     264                    INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     265                    INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     266                    REAL(KIND=jprb)               :: zhook_handle 
     267 
     268                    CHARACTER(LEN=*), PARAMETER :: RoutineName='ZDF_BFR_INIT' 
     269 
     270                    IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     271 
    243272      !!---------------------------------------------------------------------- 
    244273      ! 
    … …  
    488517      IF( nn_timing == 1 )  CALL timing_stop('zdf_bfr_init') 
    489518      ! 
     519                    IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    490520   END SUBROUTINE zdf_bfr_init 
    491521 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfddm.F90

    r6498 r11738  
    2828   USE timing          ! Timing 
    2929 
     30   USE yomhook, ONLY: lhook, dr_hook 
     31   USE parkind1, ONLY: jprb, jpim 
     32 
    3033   IMPLICIT NONE 
    3134   PRIVATE 
    … …  
    5457 
    5558   INTEGER FUNCTION zdf_ddm_alloc() 
     59   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     60   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     61   REAL(KIND=jprb)               :: zhook_handle 
     62 
     63   CHARACTER(LEN=*), PARAMETER :: RoutineName='ZDF_DDM_ALLOC' 
     64 
     65   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     66 
    5667      !!---------------------------------------------------------------------- 
    5768      !!                ***  ROUTINE zdf_ddm_alloc  *** 
    … …  
    6071      IF( lk_mpp             )   CALL mpp_sum ( zdf_ddm_alloc ) 
    6172      IF( zdf_ddm_alloc /= 0 )   CALL ctl_warn('zdf_ddm_alloc: failed to allocate arrays') 
     73   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    6274   END FUNCTION zdf_ddm_alloc 
    6375 
    … …  
    102114      REAL(wp) ::   zavdt, zavds    !   -      - 
    103115      REAL(wp), POINTER, DIMENSION(:,:) ::   zrau, zmsks, zmskf, zmskd1, zmskd2, zmskd3 
     116      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     117      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     118      REAL(KIND=jprb)               :: zhook_handle 
     119 
     120      CHARACTER(LEN=*), PARAMETER :: RoutineName='ZDF_DDM' 
     121 
     122      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     123 
    104124      !!---------------------------------------------------------------------- 
    105125      ! 
    … …  
    222242      IF( nn_timing == 1 )  CALL timing_stop('zdf_ddm') 
    223243      ! 
     244      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    224245   END SUBROUTINE zdf_ddm 
    225246    
    … …  
    237258      !! 
    238259      NAMELIST/namzdf_ddm/ rn_avts, rn_hsbfr 
     260      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     261      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     262      REAL(KIND=jprb)               :: zhook_handle 
     263 
     264      CHARACTER(LEN=*), PARAMETER :: RoutineName='ZDF_DDM_INIT' 
     265 
     266      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     267 
    239268      !!---------------------------------------------------------------------- 
    240269      ! 
    … …  
    262291      avs(:,:,:) = rn_avt0 * wmask(:,:,:)  
    263292      ! 
     293      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    264294   END SUBROUTINE zdf_ddm_init 
    265295 
    … …  
    271301CONTAINS 
    272302   SUBROUTINE zdf_ddm( kt )           ! Dummy routine 
     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='ZDF_DDM' 
     308 
     309   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     310 
    273311      WRITE(*,*) 'zdf_ddm: You should not have seen this print! error?', kt 
     312   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    274313   END SUBROUTINE zdf_ddm 
    275314   SUBROUTINE zdf_ddm_init            ! Dummy routine 
     315   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     316   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     317   REAL(KIND=jprb)               :: zhook_handle 
     318 
     319   CHARACTER(LEN=*), PARAMETER :: RoutineName='ZDF_DDM_INIT' 
     320 
     321   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     322 
     323   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    276324   END SUBROUTINE zdf_ddm_init 
    277325#endif 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfevd.F90

    r7061 r11738  
    2525   USE lbclnk          ! ocean lateral boundary conditions (or mpp link) 
    2626   USE timing          ! Timing 
     27 
     28   USE yomhook, ONLY: lhook, dr_hook 
     29   USE parkind1, ONLY: jprb, jpim 
    2730 
    2831   IMPLICIT NONE 
    … …  
    6063      ! 
    6164      INTEGER ::   ji, jj, jk   ! dummy loop indices 
     65      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     66      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     67      REAL(KIND=jprb)               :: zhook_handle 
     68 
     69      CHARACTER(LEN=*), PARAMETER :: RoutineName='ZDF_EVD' 
     70 
     71      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     72 
    6273      !!---------------------------------------------------------------------- 
    6374      ! 
    … …  
    128139      IF( nn_timing == 1 )  CALL timing_stop('zdf_evd') 
    129140      ! 
     141      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    130142   END SUBROUTINE zdf_evd 
    131143 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfgls.F90

    r10047 r11738  
    3232   USE timing         ! Timing 
    3333   USE lib_fortran    ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined)   
     34 
     35   USE yomhook, ONLY: lhook, dr_hook 
     36   USE parkind1, ONLY: jprb, jpim 
    3437 
    3538   IMPLICIT NONE 
    … …  
    112115 
    113116   INTEGER FUNCTION zdf_gls_alloc() 
     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='ZDF_GLS_ALLOC' 
     122 
     123   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     124 
    114125      !!---------------------------------------------------------------------- 
    115126      !!                ***  FUNCTION zdf_gls_alloc  *** 
    … …  
    120131      IF( lk_mpp             )   CALL mpp_sum ( zdf_gls_alloc ) 
    121132      IF( zdf_gls_alloc /= 0 )   CALL ctl_warn('zdf_gls_alloc: failed to allocate arrays') 
     133   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    122134   END FUNCTION zdf_gls_alloc 
    123135 
    … …  
    150162      REAL(wp), POINTER, DIMENSION(:,:,:) ::   z_elem_b    ! element of the second matrix diagonal 
    151163      REAL(wp), POINTER, DIMENSION(:,:,:) ::   z_elem_c    ! element of the third  matrix diagonal 
     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='ZDF_GLS' 
     169 
     170      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     171 
    152172      !!-------------------------------------------------------------------- 
    153173      ! 
    … …  
    840860      ! 
    841861      ! 
     862      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    842863   END SUBROUTINE zdf_gls 
    843864 
    … …  
    870891         &            nn_bc_surf, nn_bc_bot, nn_z0_met,      & 
    871892         &            nn_stab_func, nn_clos 
     893         INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     894         INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     895         REAL(KIND=jprb)               :: zhook_handle 
     896 
     897         CHARACTER(LEN=*), PARAMETER :: RoutineName='ZDF_GLS_INIT' 
     898 
     899         IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     900 
    872901      !!---------------------------------------------------------- 
    873902      ! 
    … …  
    11511180      IF( nn_timing == 1 )  CALL timing_stop('zdf_gls_init') 
    11521181      ! 
     1182         IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    11531183   END SUBROUTINE zdf_gls_init 
    11541184 
    … …  
    11711201      INTEGER ::   ji, jj, ikbu, ikbv 
    11721202      REAL(wp)::   cbx, cby 
     1203      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     1204      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     1205      REAL(KIND=jprb)               :: zhook_handle 
     1206 
     1207      CHARACTER(LEN=*), PARAMETER :: RoutineName='GLS_RST' 
     1208 
     1209      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     1210 
    11731211      !!---------------------------------------------------------------------- 
    11741212      ! 
    … …  
    12221260      ENDIF 
    12231261      ! 
     1262      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    12241263   END SUBROUTINE gls_rst 
    12251264 
    … …  
    12311270CONTAINS 
    12321271   SUBROUTINE zdf_gls_init           ! Empty routine 
     1272   USE yomhook, ONLY: lhook, dr_hook 
     1273   USE parkind1, ONLY: jprb, jpim 
     1274 
    12331275   IMPLICIT NONE 
     1276   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     1277   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     1278   REAL(KIND=jprb)               :: zhook_handle 
     1279 
     1280   CHARACTER(LEN=*), PARAMETER :: RoutineName='ZDF_GLS_INIT' 
     1281 
     1282   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     1283 
    12341284      WRITE(*,*) 'zdf_gls_init: You should not have seen this print! error?' 
     1285   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    12351286   END SUBROUTINE zdf_gls_init 
    12361287    
    12371288   SUBROUTINE zdf_gls( kt )          ! Empty routine 
     1289   USE yomhook, ONLY: lhook, dr_hook 
     1290   USE parkind1, ONLY: jprb, jpim 
     1291 
    12381292   IMPLICIT NONE 
    12391293      INTEGER, INTENT(in) ::   kt ! ocean time step    
     1294      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     1295      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     1296      REAL(KIND=jprb)               :: zhook_handle 
     1297 
     1298      CHARACTER(LEN=*), PARAMETER :: RoutineName='ZDF_GLS' 
     1299 
     1300      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     1301 
    12401302      WRITE(*,*) 'zdf_gls: You should not have seen this print! error?', kt 
     1303      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    12411304   END SUBROUTINE zdf_gls 
    12421305    
    12431306   SUBROUTINE gls_rst( kt, cdrw )          ! Empty routine 
     1307   USE yomhook, ONLY: lhook, dr_hook 
     1308   USE parkind1, ONLY: jprb, jpim 
     1309 
    12441310   IMPLICIT NONE 
    12451311      INTEGER         , INTENT(in) ::   kt         ! ocean time-step 
    12461312      CHARACTER(len=*), INTENT(in) ::   cdrw       ! "READ"/"WRITE" flag 
     1313      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     1314      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     1315      REAL(KIND=jprb)               :: zhook_handle 
     1316 
     1317      CHARACTER(LEN=*), PARAMETER :: RoutineName='GLS_RST' 
     1318 
     1319      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     1320 
    12471321      WRITE(*,*) 'gls_rst: You should not have seen this print! error?', kt, cdrw 
     1322      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    12481323   END SUBROUTINE gls_rst 
    12491324#endif 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfini.F90

    r6486 r11738  
    3030   USE iom             ! IOM library 
    3131 
     32   USE yomhook, ONLY: lhook, dr_hook 
     33   USE parkind1, ONLY: jprb, jpim 
     34 
    3235   IMPLICIT NONE 
    3336   PRIVATE 
    … …  
    5558      NAMELIST/namzdf/ rn_avm0, rn_avt0, nn_avb, nn_havtb, ln_zdfexp, nn_zdfexp,   & 
    5659         &              ln_zdfevd, nn_evdm, rn_avevd, ln_zdfnpc, nn_npc, nn_npcp 
     60         INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     61         INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     62         REAL(KIND=jprb)               :: zhook_handle 
     63 
     64         CHARACTER(LEN=*), PARAMETER :: RoutineName='ZDF_INIT' 
     65 
     66         IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     67 
    5768      !!---------------------------------------------------------------------- 
    5869 
    … …  
    186197      ENDIF 
    187198      ! 
     199         IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    188200   END SUBROUTINE zdf_init 
    189201 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfkpp.F90

    r10047 r11738  
    3838   USE lib_fortran    ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 
    3939 
     40   USE yomhook, ONLY: lhook, dr_hook 
     41   USE parkind1, ONLY: jprb, jpim 
     42 
    4043   IMPLICIT NONE 
    4144   PRIVATE 
    … …  
    155158 
    156159   INTEGER FUNCTION zdf_kpp_alloc() 
     160   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     161   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     162   REAL(KIND=jprb)               :: zhook_handle 
     163 
     164   CHARACTER(LEN=*), PARAMETER :: RoutineName='ZDF_KPP_ALLOC' 
     165 
     166   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     167 
    157168      !!---------------------------------------------------------------------- 
    158169      !!                 ***  FUNCTION zdf_kpp_alloc  *** 
    … …  
    172183      IF( lk_mpp             )   CALL mpp_sum ( zdf_kpp_alloc ) 
    173184      IF( zdf_kpp_alloc /= 0 )   CALL ctl_warn('zdf_kpp_alloc: failed to allocate arrays') 
     185   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    174186   END FUNCTION zdf_kpp_alloc 
    175187 
    … …  
    256268      REAL(wp), POINTER, DIMENSION(:,:) ::   zBo, zBosol, zustar         ! Surface buoyancy forcing, friction velocity 
    257269      REAL(wp), POINTER, DIMENSION(:,:) ::   zmask, zblcm, zblct 
     270      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     271      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     272      REAL(KIND=jprb)               :: zhook_handle 
     273 
     274      CHARACTER(LEN=*), PARAMETER :: RoutineName='ZDF_KPP' 
     275 
     276      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     277 
    258278      !!-------------------------------------------------------------------- 
    259279      ! 
    … …  
    11921212      IF( nn_timing == 1 )  CALL timing_stop('zdf_kpp') 
    11931213      ! 
     1214      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    11941215   END SUBROUTINE zdf_kpp 
    11951216 
    … …  
    12071228      INTEGER, INTENT(in) :: kt 
    12081229      INTEGER :: ji, jj, jk 
     1230      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     1231      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     1232      REAL(KIND=jprb)               :: zhook_handle 
     1233 
     1234      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRA_KPP' 
     1235 
     1236      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     1237 
    12091238      ! 
    12101239      IF( nn_timing == 1 )  CALL timing_start('tra_kpp') 
    … …  
    12521281      IF( nn_timing == 1 )  CALL timing_stop('tra_kpp') 
    12531282      ! 
     1283      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    12541284   END SUBROUTINE tra_kpp 
    12551285 
    … …  
    12801310      REAL(wp) ::   ztra, zflx 
    12811311      REAL(wp), DIMENSION(:,:,:), ALLOCATABLE ::   ztrtrd 
     1312      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     1313      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     1314      REAL(KIND=jprb)               :: zhook_handle 
     1315 
     1316      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_KPP' 
     1317 
     1318      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     1319 
    12821320      !!---------------------------------------------------------------------- 
    12831321 
    … …  
    13201358      ENDIF 
    13211359      ! 
     1360      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    13221361   END SUBROUTINE trc_kpp 
    13231362 
    … …  
    13281367   SUBROUTINE trc_kpp( kt )         ! Dummy routine 
    13291368      INTEGER, INTENT(in) ::   kt   ! ocean time-step index 
     1369      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     1370      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     1371      REAL(KIND=jprb)               :: zhook_handle 
     1372 
     1373      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_KPP' 
     1374 
     1375      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     1376 
    13301377      WRITE(*,*) 'tra_kpp: You should not have seen this print! error?', kt 
     1378      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    13311379   END SUBROUTINE trc_kpp 
    13321380#endif 
    … …  
    13581406      !! 
    13591407      NAMELIST/namzdf_kpp/ ln_kpprimix, rn_difmiw, rn_difsiw, rn_riinfty, rn_difri, rn_bvsqcon, rn_difcon, nn_ave 
     1408      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     1409      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     1410      REAL(KIND=jprb)               :: zhook_handle 
     1411 
     1412      CHARACTER(LEN=*), PARAMETER :: RoutineName='ZDF_KPP_INIT' 
     1413 
     1414      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     1415 
    13601416      !!---------------------------------------------------------------------- 
    13611417      ! 
    … …  
    15671623      IF( nn_timing == 1 )  CALL timing_stop('zdf_kpp_init') 
    15681624      ! 
     1625      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    15691626   END SUBROUTINE zdf_kpp_init 
    15701627 
    … …  
    15761633CONTAINS 
    15771634   SUBROUTINE zdf_kpp_init           ! Dummy routine 
     1635   USE yomhook, ONLY: lhook, dr_hook 
     1636   USE parkind1, ONLY: jprb, jpim 
     1637 
    15781638   IMPLICIT NONE 
     1639   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     1640   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     1641   REAL(KIND=jprb)               :: zhook_handle 
     1642 
     1643   CHARACTER(LEN=*), PARAMETER :: RoutineName='ZDF_KPP_INIT' 
     1644 
     1645   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     1646 
    15791647      WRITE(*,*) 'zdf_kpp_init: You should not have seen this print! error?' 
     1648   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    15801649   END SUBROUTINE zdf_kpp_init 
    15811650   SUBROUTINE zdf_kpp( kt )          ! Dummy routine 
     1651   USE yomhook, ONLY: lhook, dr_hook 
     1652   USE parkind1, ONLY: jprb, jpim 
     1653 
    15821654   IMPLICIT NONE 
    15831655      INTEGER, INTENT( in  ) ::   kt   ! ocean time step 
     1656      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     1657      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     1658      REAL(KIND=jprb)               :: zhook_handle 
     1659 
     1660      CHARACTER(LEN=*), PARAMETER :: RoutineName='ZDF_KPP' 
     1661 
     1662      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     1663 
    15841664      WRITE(*,*) 'zdf_kpp: You should not have seen this print! error?', kt 
     1665      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    15851666   END SUBROUTINE zdf_kpp 
    15861667   SUBROUTINE tra_kpp( kt )          ! Dummy routine 
     1668   USE yomhook, ONLY: lhook, dr_hook 
     1669   USE parkind1, ONLY: jprb, jpim 
     1670 
    15871671   IMPLICIT NONE 
    15881672      INTEGER, INTENT( in  ) ::   kt   ! ocean time step 
     1673      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     1674      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     1675      REAL(KIND=jprb)               :: zhook_handle 
     1676 
     1677      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRA_KPP' 
     1678 
     1679      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     1680 
    15891681      WRITE(*,*) 'tra_kpp: You should not have seen this print! error?', kt 
     1682      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    15901683   END SUBROUTINE tra_kpp 
    15911684   SUBROUTINE trc_kpp( kt )          ! Dummy routine 
     1685   USE yomhook, ONLY: lhook, dr_hook 
     1686   USE parkind1, ONLY: jprb, jpim 
     1687 
    15921688   IMPLICIT NONE 
    15931689      INTEGER, INTENT( in  ) ::   kt   ! ocean time step 
     1690      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     1691      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     1692      REAL(KIND=jprb)               :: zhook_handle 
     1693 
     1694      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_KPP' 
     1695 
     1696      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     1697 
    15941698      WRITE(*,*) 'trc_kpp: You should not have seen this print! error?', kt 
     1699      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    15951700   END SUBROUTINE trc_kpp 
    15961701#endif 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfmxl.F90

    r7560 r11738  
    2424   USE trc_oce, ONLY : lk_offline ! offline flag 
    2525 
     26   USE yomhook, ONLY: lhook, dr_hook 
     27   USE parkind1, ONLY: jprb, jpim 
     28 
    2629   IMPLICIT NONE 
    2730   PRIVATE 
    … …  
    5962 
    6063   INTEGER FUNCTION zdf_mxl_alloc() 
     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='ZDF_MXL_ALLOC' 
     69 
     70   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     71 
    6172      !!---------------------------------------------------------------------- 
    6273      !!               ***  FUNCTION zdf_mxl_alloc  *** 
    … …  
    7283         ! 
    7384      ENDIF 
     85   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    7486   END FUNCTION zdf_mxl_alloc 
    7587 
    … …  
    98110      REAL(wp) ::   zN2_c           ! local scalar 
    99111      INTEGER, POINTER, DIMENSION(:,:) ::   imld   ! 2D workspace 
     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='ZDF_MXL' 
     117 
     118      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     119 
    100120      !!---------------------------------------------------------------------- 
    101121      ! 
    … …  
    172192      IF( nn_timing == 1 )  CALL timing_stop('zdf_mxl') 
    173193      ! 
     194      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    174195   END SUBROUTINE zdf_mxl 
    175196 
    … …  
    220241      REAL, POINTER, DIMENSION(:,:)    :: zRHO1, zRHO2  ! Densities  
    221242      INTEGER :: ji, jj, jk                             ! loop counter  
     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='ZDF_MXL_ZINT_MLD' 
     248 
     249      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     250 
    222251 
    223252      !!-------------------------------------------------------------------------------------  
    … …  
    356385      CALL wrk_dealloc( jpi,jpj, jpk, zT, zdTdz, zmoddT )  
    357386      !  
     387      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    358388   END SUBROUTINE zdf_mxl_zint_mld 
    359389 
    … …  
    375405      INTEGER,  ALLOCATABLE, DIMENSION(:,:) ::   ilevel 
    376406      REAL(wp), ALLOCATABLE, DIMENSION(:,:) ::   zthick_0, zthick 
     407      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     408      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     409      REAL(KIND=jprb)               :: zhook_handle 
     410 
     411      CHARACTER(LEN=*), PARAMETER :: RoutineName='ZDF_MXL_ZINT_HTC' 
     412 
     413      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     414 
    377415 
    378416      !!---------------------------------------------------------------------- 
    … …  
    435473      htc_mld(:,:) = zcoef * htc_mld(:,:) 
    436474 
     475      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    437476   END SUBROUTINE zdf_mxl_zint_htc 
    438477 
    … …  
    459498 
    460499      NAMELIST/namzdf_mldzint/ nn_mld_diag, sn_mld1, sn_mld2, sn_mld3, sn_mld4, sn_mld5 
     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='ZDF_MXL_ZINT' 
     505 
     506      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     507 
    461508 
    462509      !!---------------------------------------------------------------------- 
    … …  
    512559      ENDIF 
    513560 
     561      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    514562   END SUBROUTINE zdf_mxl_zint 
    515563 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfric.F90

    r10047 r11738  
    3333   USE eosbn2, ONLY : nn_eos 
    3434 
     35   USE yomhook, ONLY: lhook, dr_hook 
     36   USE parkind1, ONLY: jprb, jpim 
     37 
    3538   IMPLICIT NONE 
    3639   PRIVATE 
    … …  
    6467 
    6568   INTEGER FUNCTION zdf_ric_alloc() 
     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='ZDF_RIC_ALLOC' 
     74 
     75   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     76 
    6677      !!---------------------------------------------------------------------- 
    6778      !!                 ***  FUNCTION zdf_ric_alloc  *** 
    … …  
    7182      IF( lk_mpp             )   CALL mpp_sum ( zdf_ric_alloc ) 
    7283      IF( zdf_ric_alloc /= 0 )   CALL ctl_warn('zdf_ric_alloc: failed to allocate arrays') 
     84   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    7385   END FUNCTION zdf_ric_alloc 
    7486 
    … …  
    122134      REAL(wp) ::   zrhos, zustar 
    123135      REAL(wp), POINTER, DIMENSION(:,:) ::   zwx, ekm_dep   
     136      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     137      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     138      REAL(KIND=jprb)               :: zhook_handle 
     139 
     140      CHARACTER(LEN=*), PARAMETER :: RoutineName='ZDF_RIC' 
     141 
     142      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     143 
    124144      !!---------------------------------------------------------------------- 
    125145      ! 
    … …  
    230250      IF( nn_timing == 1 )  CALL timing_stop('zdf_ric') 
    231251      ! 
     252      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    232253   END SUBROUTINE zdf_ric 
    233254 
    … …  
    251272      NAMELIST/namzdf_ric/ rn_avmri, rn_alp   , nn_ric  , rn_ekmfc,  & 
    252273         &                rn_mldmin, rn_mldmax, rn_wtmix, rn_wvmix, ln_mldw 
     274         INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     275         INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     276         REAL(KIND=jprb)               :: zhook_handle 
     277 
     278         CHARACTER(LEN=*), PARAMETER :: RoutineName='ZDF_RIC_INIT' 
     279 
     280         IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     281 
    253282      !!---------------------------------------------------------------------- 
    254283      ! 
    … …  
    298327      END DO 
    299328      ! 
     329         IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    300330   END SUBROUTINE zdf_ric_init 
    301331 
    … …  
    307337CONTAINS 
    308338   SUBROUTINE zdf_ric_init         ! Dummy routine 
     339   USE yomhook, ONLY: lhook, dr_hook 
     340   USE parkind1, ONLY: jprb, jpim 
     341 
    309342   IMPLICIT NONE 
     343   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     344   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     345   REAL(KIND=jprb)               :: zhook_handle 
     346 
     347   CHARACTER(LEN=*), PARAMETER :: RoutineName='ZDF_RIC_INIT' 
     348 
     349   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     350 
     351   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    310352   END SUBROUTINE zdf_ric_init 
    311353   SUBROUTINE zdf_ric( kt )        ! Dummy routine 
     354   USE yomhook, ONLY: lhook, dr_hook 
     355   USE parkind1, ONLY: jprb, jpim 
     356 
    312357   IMPLICIT NONE 
    313358      INTEGER, INTENT( in ) ::   kt                           ! ocean time-step 
     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='ZDF_RIC' 
     364 
     365      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     366 
    314367      WRITE(*,*) 'zdf_ric: You should not have seen this print! error?', kt 
     368      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    315369   END SUBROUTINE zdf_ric 
    316370#endif 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftke.F90

    r9321 r11738  
    6060 
    6161 
     62   USE yomhook, ONLY: lhook, dr_hook 
     63   USE parkind1, ONLY: jprb, jpim 
     64 
    6265   IMPLICIT NONE 
    6366   PRIVATE 
    … …  
    114117 
    115118   INTEGER FUNCTION zdf_tke_alloc() 
     119   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     120   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     121   REAL(KIND=jprb)               :: zhook_handle 
     122 
     123   CHARACTER(LEN=*), PARAMETER :: RoutineName='ZDF_TKE_ALLOC' 
     124 
     125   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     126 
    116127      !!---------------------------------------------------------------------- 
    117128      !!                ***  FUNCTION zdf_tke_alloc  *** 
    … …  
    128139      IF( zdf_tke_alloc /= 0 )   CALL ctl_warn('zdf_tke_alloc: failed to allocate arrays') 
    129140      ! 
     141   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    130142   END FUNCTION zdf_tke_alloc 
    131143 
    … …  
    177189      !!---------------------------------------------------------------------- 
    178190      INTEGER, INTENT(in) ::   kt   ! ocean time step 
     191      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     192      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     193      REAL(KIND=jprb)               :: zhook_handle 
     194 
     195      CHARACTER(LEN=*), PARAMETER :: RoutineName='ZDF_TKE' 
     196 
     197      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     198 
    179199      !!---------------------------------------------------------------------- 
    180200      ! 
    … …  
    200220#endif       
    201221     !  
     222      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    202223   END SUBROUTINE zdf_tke 
    203224 
    … …  
    235256      REAL(wp), POINTER, DIMENSION(:,:  ) :: zhlc 
    236257      REAL(wp), POINTER, DIMENSION(:,:,:) :: zpelc, zdiag, zd_up, zd_lw 
     258      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     259      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     260      REAL(KIND=jprb)               :: zhook_handle 
     261 
     262      CHARACTER(LEN=*), PARAMETER :: RoutineName='TKE_TKE' 
     263 
     264      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     265 
    237266      !!-------------------------------------------------------------------- 
    238267      ! 
    … …  
    520549      IF( nn_timing == 1 )  CALL timing_stop('tke_tke') 
    521550      ! 
     551      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    522552   END SUBROUTINE tke_tke 
    523553 
    … …  
    563593      REAL(wp) ::   zdkv, zemxl, zemlm, zemlp   !   -      - 
    564594      REAL(wp), POINTER, DIMENSION(:,:,:) :: zmpdl, zmxlm, zmxld 
     595      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     596      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     597      REAL(KIND=jprb)               :: zhook_handle 
     598 
     599      CHARACTER(LEN=*), PARAMETER :: RoutineName='TKE_AVN' 
     600 
     601      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     602 
    565603      !!-------------------------------------------------------------------- 
    566604      ! 
    … …  
    753791      IF( nn_timing == 1 )  CALL timing_stop('tke_avn') 
    754792      ! 
     793      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    755794   END SUBROUTINE tke_avn 
    756795 
    … …  
    777816         &                 rn_mxl0 , nn_pdl   , ln_lc  , rn_lc    ,   & 
    778817         &                 nn_etau , nn_htau  , rn_efr , rn_c    
     818         INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     819         INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     820         REAL(KIND=jprb)               :: zhook_handle 
     821 
     822         CHARACTER(LEN=*), PARAMETER :: RoutineName='ZDF_TKE_INIT' 
     823 
     824         IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     825 
    779826      !!---------------------------------------------------------------------- 
    780827 
    … …  
    904951      CALL tke_rst( nit000, 'READ' )  !* read or initialize all required files 
    905952      ! 
     953         IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    906954   END SUBROUTINE zdf_tke_init 
    907955 
    … …  
    922970     INTEGER ::   jit, jk   ! dummy loop indices 
    923971     INTEGER ::   id1, id2, id3, id4, id5, id6   ! local integers 
     972     INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     973     INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     974     REAL(KIND=jprb)               :: zhook_handle 
     975 
     976     CHARACTER(LEN=*), PARAMETER :: RoutineName='TKE_RST' 
     977 
     978     IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     979 
    924980     !!---------------------------------------------------------------------- 
    925981     ! 
    … …  
    9831039     ENDIF 
    9841040     ! 
     1041     IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    9851042   END SUBROUTINE tke_rst 
    9861043 
    … …  
    9921049CONTAINS 
    9931050   SUBROUTINE zdf_tke_init           ! Dummy routine 
     1051   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     1052   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     1053   REAL(KIND=jprb)               :: zhook_handle 
     1054 
     1055   CHARACTER(LEN=*), PARAMETER :: RoutineName='ZDF_TKE_INIT' 
     1056 
     1057   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     1058 
     1059   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    9941060   END SUBROUTINE zdf_tke_init 
    9951061   SUBROUTINE zdf_tke( kt )          ! Dummy routine 
     1062   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     1063   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     1064   REAL(KIND=jprb)               :: zhook_handle 
     1065 
     1066   CHARACTER(LEN=*), PARAMETER :: RoutineName='ZDF_TKE' 
     1067 
     1068   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     1069 
    9961070      WRITE(*,*) 'zdf_tke: You should not have seen this print! error?', kt 
     1071   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    9971072   END SUBROUTINE zdf_tke 
    9981073   SUBROUTINE tke_rst( kt, cdrw ) 
    9991074     CHARACTER(len=*) ::   cdrw 
     1075     INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     1076     INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     1077     REAL(KIND=jprb)               :: zhook_handle 
     1078 
     1079     CHARACTER(LEN=*), PARAMETER :: RoutineName='TKE_RST' 
     1080 
     1081     IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     1082 
    10001083     WRITE(*,*) 'tke_rst: You should not have seen this print! error?', kt, cdwr 
     1084     IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    10011085   END SUBROUTINE tke_rst 
    10021086#endif 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftmx.F90

    r7179 r11738  
    2929   USE lib_fortran    ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined)   
    3030 
     31   USE yomhook, ONLY: lhook, dr_hook 
     32   USE parkind1, ONLY: jprb, jpim 
     33 
    3134   IMPLICIT NONE 
    3235   PRIVATE 
    … …  
    6164 
    6265   INTEGER FUNCTION zdf_tmx_alloc() 
     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='ZDF_TMX_ALLOC' 
     71 
     72   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     73 
    6374      !!---------------------------------------------------------------------- 
    6475      !!                ***  FUNCTION zdf_tmx_alloc  *** 
    … …  
    6879      IF( lk_mpp             )   CALL mpp_sum ( zdf_tmx_alloc ) 
    6980      IF( zdf_tmx_alloc /= 0 )   CALL ctl_warn('zdf_tmx_alloc: failed to allocate arrays') 
     81   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    7082   END FUNCTION zdf_tmx_alloc 
    7183 
    … …  
    112124      REAL(wp) ::   ztpc         ! scalar workspace 
    113125      REAL(wp), POINTER, DIMENSION(:,:) ::   zkz 
     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='ZDF_TMX' 
     131 
     132      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     133 
    114134      !!---------------------------------------------------------------------- 
    115135      ! 
    … …  
    194214      IF( nn_timing == 1 )  CALL timing_stop('zdf_tmx') 
    195215      ! 
     216      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    196217   END SUBROUTINE zdf_tmx 
    197218 
    … …  
    227248      REAL(wp), DIMENSION(:,:,:), POINTER ::   zempba_3d  , zdn2dz        !  -      - 
    228249      REAL(wp), DIMENSION(:,:,:), POINTER ::   zavt_itf                   !  -      - 
     250      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     251      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     252      REAL(KIND=jprb)               :: zhook_handle 
     253 
     254      CHARACTER(LEN=*), PARAMETER :: RoutineName='TMX_ITF' 
     255 
     256      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     257 
    229258      !!---------------------------------------------------------------------- 
    230259      ! 
    … …  
    323352      IF( nn_timing == 1 )  CALL timing_stop('tmx_itf') 
    324353      ! 
     354      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    325355   END SUBROUTINE tmx_itf 
    326356 
    … …  
    374404      !! 
    375405      NAMELIST/namzdf_tmx/ rn_htmx, rn_n2min, rn_tfe, rn_me, ln_tmx_itf, rn_tfe_itf 
     406      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     407      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     408      REAL(KIND=jprb)               :: zhook_handle 
     409 
     410      CHARACTER(LEN=*), PARAMETER :: RoutineName='ZDF_TMX_INIT' 
     411 
     412      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     413 
    376414      !!---------------------------------------------------------------------- 
    377415      ! 
    … …  
    559597      IF( nn_timing == 1 )  CALL timing_stop('zdf_tmx_init') 
    560598      ! 
     599      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    561600   END SUBROUTINE zdf_tmx_init 
    562601 
    … …  
    583622   USE lib_fortran    ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined)   
    584623 
     624   USE yomhook, ONLY: lhook, dr_hook 
     625   USE parkind1, ONLY: jprb, jpim 
     626 
    585627   IMPLICIT NONE 
    586628   PRIVATE 
    … …  
    622664 
    623665   INTEGER FUNCTION zdf_tmx_alloc() 
     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='ZDF_TMX_ALLOC' 
     671 
     672   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     673 
    624674      !!---------------------------------------------------------------------- 
    625675      !!                ***  FUNCTION zdf_tmx_alloc  *** 
    … …  
    632682      IF( lk_mpp             )   CALL mpp_sum ( zdf_tmx_alloc ) 
    633683      IF( zdf_tmx_alloc /= 0 )   CALL ctl_warn('zdf_tmx_alloc: failed to allocate arrays') 
     684   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    634685   END FUNCTION zdf_tmx_alloc 
    635686 
    … …  
    697748      REAL(wp), DIMENSION(:,:,:), POINTER ::  znu_w     ! Molecular kinematic viscosity (W grid) 
    698749      REAL(wp), DIMENSION(:,:,:), POINTER ::  zReb      ! Turbulence intensity parameter 
     750      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     751      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     752      REAL(KIND=jprb)               :: zhook_handle 
     753 
     754      CHARACTER(LEN=*), PARAMETER :: RoutineName='ZDF_TMX' 
     755 
     756      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     757 
    699758      !!---------------------------------------------------------------------- 
    700759      ! 
    … …  
    927986      IF( nn_timing == 1 )   CALL timing_stop('zdf_tmx') 
    928987      ! 
     988      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    929989   END SUBROUTINE zdf_tmx 
    930990 
    … …  
    9621022      !! 
    9631023      NAMELIST/namzdf_tmx_new/ nn_zpyc, ln_mevar, ln_tsdiff 
     1024      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     1025      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     1026      REAL(KIND=jprb)               :: zhook_handle 
     1027 
     1028      CHARACTER(LEN=*), PARAMETER :: RoutineName='ZDF_TMX_INIT' 
     1029 
     1030      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     1031 
    9641032      !!---------------------------------------------------------------------- 
    9651033      ! 
    … …  
    10461114      IF( nn_timing == 1 )  CALL timing_stop('zdf_tmx_init') 
    10471115      ! 
     1116      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    10481117   END SUBROUTINE zdf_tmx_init 
    10491118 
    … …  
    10551124CONTAINS 
    10561125   SUBROUTINE zdf_tmx_init           ! Dummy routine 
     1126   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     1127   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     1128   REAL(KIND=jprb)               :: zhook_handle 
     1129 
     1130   CHARACTER(LEN=*), PARAMETER :: RoutineName='ZDF_TMX_INIT' 
     1131 
     1132   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     1133 
    10571134      WRITE(*,*) 'zdf_tmx: You should not have seen this print! error?' 
     1135   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    10581136   END SUBROUTINE zdf_tmx_init 
    10591137   SUBROUTINE zdf_tmx( kt )          ! Dummy routine 
     1138   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     1139   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     1140   REAL(KIND=jprb)               :: zhook_handle 
     1141 
     1142   CHARACTER(LEN=*), PARAMETER :: RoutineName='ZDF_TMX' 
     1143 
     1144   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     1145 
    10601146      WRITE(*,*) 'zdf_tmx: You should not have seen this print! error?', kt 
     1147   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    10611148   END SUBROUTINE zdf_tmx 
    10621149#endif 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90

    r9321 r11738  
    8888   USE stopts 
    8989 
     90   USE yomhook, ONLY: lhook, dr_hook 
     91   USE parkind1, ONLY: jprb, jpim 
     92 
    9093   IMPLICIT NONE 
    9194   PRIVATE 
    … …  
    9699 
    97100   CHARACTER(lc) ::   cform_aaa="( /, 'AAAAAAAA', / ) "     ! flag for output listing 
     101   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     102   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
    98103 
    99104   !!---------------------------------------------------------------------- 
    … …  
    119124      !!---------------------------------------------------------------------- 
    120125      INTEGER ::   istp       ! time step index 
     126 
     127! Adding - marc 7/10/16 
     128      REAL(KIND=jprb)               :: zhook_handle1 
     129      REAL(KIND=jprb)               :: zhook_handle2 
     130      REAL(KIND=jprb)               :: zhook_handle3 
     131      REAL(KIND=jprb)               :: zhook_handle4 
     132 
     133      CHARACTER(LEN=*), PARAMETER :: RoutineName1='NEMOGCM1' 
     134      CHARACTER(LEN=*), PARAMETER :: RoutineName2='NEMOGCM2' 
     135      CHARACTER(LEN=*), PARAMETER :: RoutineName3='NEMOGCM3' 
     136      CHARACTER(LEN=*), PARAMETER :: RoutineName4='NEMOGCM4' 
    121137      !!---------------------------------------------------------------------- 
    122138      ! 
    … …  
    128144      CALL nemo_init               !==  Initialisations  ==! 
    129145      !                            !-----------------------! 
     146! Adding - marc 7/10/16 
     147      IF (lhook) CALL dr_hook(RoutineName1,zhook_in,zhook_handle1) 
     148 
    130149#if defined key_agrif 
    131150      CALL Agrif_Declare_Var_dom   ! AGRIF: set the meshes for DOM 
    … …  
    216235      CALL nemo_closefile 
    217236      ! 
     237! Adding - marc 7/10/16 
     238      IF (lhook) CALL dr_hook(RoutineName1,zhook_out,zhook_handle1) 
     239 
    218240#if defined key_iomput 
    219241      CALL xios_finalize                ! end mpp communications with xios 
    … …  
    249271      NAMELIST/namcfg/ cp_cfg, cp_cfz, jp_cfg, jpidta, jpjdta, jpkdta, jpiglo, jpjglo, & 
    250272         &             jpizoom, jpjzoom, jperio, ln_use_jattr 
     273! Adding - marc 10/10/16 
     274      REAL(KIND=jprb)               :: zhook_handle1 
     275 
     276      CHARACTER(LEN=*), PARAMETER :: RoutineName1='NEMO_INIT1' 
    251277      !!---------------------------------------------------------------------- 
    252278      ! 
    … …  
    405431      ENDIF 
    406432      ! 
     433! Adding - marc 7/10/16 
     434      IF (lhook) CALL dr_hook(RoutineName1,zhook_in,zhook_handle1) 
     435 
    407436      IF( nn_timing > 0 )  CALL timing_init 
    408437      ! 
    … …  
    498527 
    499528      ! 
     529! Adding - marc 7/10/16 
     530      IF (lhook) CALL dr_hook(RoutineName1,zhook_out,zhook_handle1) 
    500531   END SUBROUTINE nemo_init 
    501532 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/oce.F90

    r10047 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 
    … …  
    100103      !!---------------------------------------------------------------------- 
    101104      INTEGER :: ierr(5) 
     105      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     106      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     107      REAL(KIND=jprb)               :: zhook_handle 
     108 
     109      CHARACTER(LEN=*), PARAMETER :: RoutineName='OCE_ALLOC' 
     110 
     111      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     112 
    102113      !!---------------------------------------------------------------------- 
    103114      ierr(:) = 0 
    … …  
    150161      IF( oce_alloc /= 0 )   CALL ctl_warn('oce_alloc: failed to allocate arrays') 
    151162      ! 
     163      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    152164   END FUNCTION oce_alloc 
    153165 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/par_kind.F90

    r6486 r11738  
    77   !!            3.3  ! 2010-12  (G. Madec)  add a standard length of character strings 
    88   !!---------------------------------------------------------------------- 
     9 
     10   USE yomhook, ONLY: lhook, dr_hook 
     11   USE parkind1, ONLY: jprb, jpim 
    912 
    1013   IMPLICIT NONE 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/par_oce.F90

    r6486 r11738  
    99   !!---------------------------------------------------------------------- 
    1010   USE par_kind          ! kind parameters 
     11 
     12   USE yomhook, ONLY: lhook, dr_hook 
     13   USE parkind1, ONLY: jprb, jpim 
    1114 
    1215   IMPLICIT NONE 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/step.F90

    r8400 r11738  
    3535   USE lbclnk 
    3636 
     37   USE yomhook, ONLY: lhook, dr_hook 
     38   USE parkind1, ONLY: jprb, jpim 
     39 
    3740   IMPLICIT NONE 
    3841   PRIVATE 
    … …  
    7780      INTEGER ::   indic    ! error indicator if < 0 
    7881      INTEGER ::   kcall    ! optional integer argument (dom_vvl_sf_nxt) 
     82      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     83      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     84      REAL(KIND=jprb)               :: zhook_handle 
     85 
     86      CHARACTER(LEN=*), PARAMETER :: RoutineName='STP' 
     87 
     88      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     89 
    7990      !! --------------------------------------------------------------------- 
    8091 
    … …  
    400411      !      
    401412      ! 
     413      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    402414   END SUBROUTINE stp 
    403415 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/stpctl.F90

    r9276 r11738  
    2424   USE c1d             ! 1D vertical configuration 
    2525 
     26 
     27   USE yomhook, ONLY: lhook, dr_hook 
     28   USE parkind1, ONLY: jprb, jpim 
    2629 
    2730   IMPLICIT NONE 
    … …  
    6265      INTEGER, DIMENSION(3) ::   ilocu      !  
    6366      INTEGER, DIMENSION(2) ::   ilocs      !  
     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='STP_CTL' 
     72 
     73      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     74 
    6475      !!---------------------------------------------------------------------- 
    6576 
    … …  
    2402519300  FORMAT(' it :', i8, ' ssh2: ', e16.10, ' Umax: ',e16.10,' Smin: ',e16.10) 
    241252      ! 
     253      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    242254   END SUBROUTINE stp_ctl 
    243255 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/timing.F90

    r6486 r11738  
    2424   USE lib_mpp           
    2525    
     26   USE yomhook, ONLY: lhook, dr_hook 
     27   USE parkind1, ONLY: jprb, jpim 
     28 
    2629   IMPLICIT NONE 
    2730   PRIVATE 
    … …  
    8992      !!---------------------------------------------------------------------- 
    9093      CHARACTER(len=*), INTENT(in) :: cdinfo 
     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='TIMING_START' 
     99 
     100      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     101 
    91102      ! 
    92103        
    … …  
    115126#endif 
    116127      ! 
     128      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    117129   END SUBROUTINE timing_start 
    118130 
    … …  
    128140      INTEGER  :: ifinal_count, iperiods     
    129141      REAL(wp) :: zcpu_end, zmpitime 
     142      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     143      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     144      REAL(KIND=jprb)               :: zhook_handle 
     145 
     146      CHARACTER(LEN=*), PARAMETER :: RoutineName='TIMING_STOP' 
     147 
     148      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     149 
    130150      ! 
    131151      s_wrk => NULL() 
    … …  
    186206      s_timer%l_tdone = .TRUE. 
    187207      ! 
     208      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    188209   END SUBROUTINE timing_stop 
    189210  
    … …  
    197218      REAL(wp) :: zdum 
    198219      LOGICAL :: ll_f 
     220      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     221      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     222      REAL(KIND=jprb)               :: zhook_handle 
     223 
     224      CHARACTER(LEN=*), PARAMETER :: RoutineName='TIMING_INIT' 
     225 
     226      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     227 
    199228              
    200229      IF( ln_onefile ) THEN 
    … …  
    252281#endif                  
    253282      ! 
     283      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    254284   END SUBROUTINE timing_init 
    255285 
    … …  
    265295      LOGICAL :: ll_ord, ll_averep 
    266296      CHARACTER(len=120) :: clfmt             
     297      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     298      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     299      REAL(KIND=jprb)               :: zhook_handle 
     300 
     301      CHARACTER(LEN=*), PARAMETER :: RoutineName='TIMING_FINALIZE' 
     302 
     303      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     304 
    267305       
    268306      ll_averep = .TRUE. 
    … …  
    343381      IF( lwriter ) CLOSE(numtime)  
    344382      ! 
     383      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    345384   END SUBROUTINE timing_finalize 
    346385    
    … …  
    353392      LOGICAL :: ll_ord 
    354393      CHARACTER(len=2048) :: clfmt             
     394      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     395      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     396      REAL(KIND=jprb)               :: zhook_handle 
     397 
     398      CHARACTER(LEN=*), PARAMETER :: RoutineName='WCURRENT_INFO' 
     399 
     400      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     401 
    355402    
    356403      ! reorder the current list by elapse time       
    … …  
    392439      WRITE(numtime,*) 
    393440      !                   
     441      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    394442   END SUBROUTINE wcurrent_info 
    395443 
    … …  
    408456      LOGICAL :: ll_ord            
    409457      CHARACTER(len=200) :: clfmt               
     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='WAVER_INFO' 
     463 
     464      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     465 
    410466                  
    411467      ! Initialised the global strucutre    
    … …  
    413469      IF(ierr /= 0)THEN 
    414470         WRITE(numtime,*) 'Failed to allocate global timing structure in waver_info' 
     471      IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 
    415472         RETURN 
    416473      END IF 
    … …  
    422479      IF(ierr /= 0)THEN 
    423480         WRITE(numtime,*) 'Failed to allocate global timing structure in waver_info' 
     481      IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 
    424482         RETURN 
    425483      END IF 
    … …  
    570628      DEALLOCATE(sl_timer_glob_root) 
    571629      !                   
     630      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    572631   END SUBROUTINE waver_info 
    573632   
    … …  
    588647      CHARACTER(LEN=128)               :: clhline, clstart_date, clfinal_date 
    589648      CHARACTER(LEN=2048)              :: clfmt     
     649      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     650      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     651      REAL(KIND=jprb)               :: zhook_handle 
     652 
     653      CHARACTER(LEN=*), PARAMETER :: RoutineName='WMPI_INFO' 
     654 
     655      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     656 
    590657    
    591658      ! Gather all times 
    … …  
    637704      DEALLOCATE(zall_ratio, iall_rank) 
    638705      ! 
     706      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    639707   END SUBROUTINE wmpi_info 
    640708#endif    
    … …  
    648716      CHARACTER(len=*), INTENT(in) :: cdinfo 
    649717      LOGICAL :: ll_section 
     718      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     719      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     720      REAL(KIND=jprb)               :: zhook_handle 
     721 
     722      CHARACTER(LEN=*), PARAMETER :: RoutineName='TIMING_INI_VAR' 
     723 
     724      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     725 
    650726        
    651727      ! 
    … …  
    723799      ENDIF          
    724800      ! 
     801      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    725802   END SUBROUTINE timing_ini_var 
    726803 
    727804 
    728805   SUBROUTINE timing_reset 
     806   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     807   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     808   REAL(KIND=jprb)               :: zhook_handle 
     809 
     810   CHARACTER(LEN=*), PARAMETER :: RoutineName='TIMING_RESET' 
     811 
     812   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     813 
    729814      !!---------------------------------------------------------------------- 
    730815      !!               ***  ROUTINE timing_reset  *** 
    … …  
    738823!      WRITE(numout,*) 
    739824      ! 
     825   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    740826   END SUBROUTINE timing_reset 
    741827 
    … …  
    757843      !!---------------------------------------------------------------------- 
    758844      TYPE(timer), POINTER, INTENT(inout) :: sd_current, sd_root, sd_ptr 
     845      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     846      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     847      REAL(KIND=jprb)               :: zhook_handle 
     848 
     849      CHARACTER(LEN=*), PARAMETER :: RoutineName='INSERT' 
     850 
     851      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     852 
    759853      ! 
    760854      
    … …  
    774868      sd_ptr => NULL() 
    775869      !     
     870      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    776871   END SUBROUTINE insert 
    777872   
    … …  
    785880      ! 
    786881      TYPE(timer), POINTER :: sl_temp 
     882      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     883      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     884      REAL(KIND=jprb)               :: zhook_handle 
     885 
     886      CHARACTER(LEN=*), PARAMETER :: RoutineName='SUPPRESS' 
     887 
     888      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     889 
    787890     
    788891      sl_temp => sd_ptr 
    … …  
    792895      sl_temp => NULL() 
    793896      ! 
     897      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    794898    END SUBROUTINE suppress 
    795899 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/trc_oce.F90

    r6486 r11738  
    1515   USE lib_mpp         ! MPP library 
    1616 
     17   USE yomhook, ONLY: lhook, dr_hook 
     18   USE parkind1, ONLY: jprb, jpim 
     19 
    1720   IMPLICIT NONE 
    1821   PRIVATE 
    … …  
    7982      !!---------------------------------------------------------------------- 
    8083      INTEGER ::   ierr(2)        ! Local variables 
     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='TRC_OCE_ALLOC' 
     89 
     90      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     91 
    8192      !!---------------------------------------------------------------------- 
    8293      ierr(:) = 0 
    … …  
    8697      ! 
    8798      IF( trc_oce_alloc /= 0 )   CALL ctl_warn('trc_oce_alloc: failed to allocate etot3 array') 
     99      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    88100   END FUNCTION trc_oce_alloc 
    89101 
    … …  
    109121      REAL(wp) ::   zchl   ! temporary scalar 
    110122      REAL(wp), DIMENSION(4,61) ::   zrgb   ! tabulated attenuation coefficient (formerly read in 'kRGB61.txt') 
     123      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     124      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     125      REAL(KIND=jprb)               :: zhook_handle 
     126 
     127      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_OCE_RGB' 
     128 
     129      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     130 
    111131      !!---------------------------------------------------------------------- 
    112132      ! 
    … …  
    195215      END DO 
    196216      ! 
     217      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    197218   END SUBROUTINE trc_oce_rgb 
    198219 
    … …  
    215236      REAL(wp) ::   zchl   ! temporary scalar 
    216237      INTEGER  ::   numlight 
     238      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     239      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     240      REAL(KIND=jprb)               :: zhook_handle 
     241 
     242      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_OCE_RGB_READ' 
     243 
     244      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     245 
    217246      !!---------------------------------------------------------------------- 
    218247      ! 
    … …  
    239268      IF(lwp) WRITE(numout,*) '      RGB longest depth of extinction    r_si2 = ', r_si2 
    240269      ! 
     270      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    241271   END SUBROUTINE trc_oce_rgb_read 
    242272 
    … …  
    267297      REAL(wp) ::   zprec = 15._wp     ! precision to reach -LOG10(1.e-15) 
    268298      REAL(wp) ::   zem                ! temporary scalar  
     299      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     300      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     301      REAL(KIND=jprb)               :: zhook_handle 
     302 
     303      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_OCE_EXT_LEV' 
     304 
     305      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     306 
    269307      !!---------------------------------------------------------------------- 
    270308      ! 
    … …  
    283321      END DO 
    284322      ! 
     323      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    285324   END FUNCTION trc_oce_ext_lev 
    286325 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/wrk_nemo.F90

    r8280 r11738  
    7373   USE par_oce        ! ocean parameters 
    7474 
     75   USE yomhook, ONLY: lhook, dr_hook 
     76   USE parkind1, ONLY: jprb, jpim 
     77 
    7578   IMPLICIT NONE 
    7679   PRIVATE 
    … …  
    130133 
    131134   SUBROUTINE wrk_list 
     135   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     136   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     137   REAL(KIND=jprb)               :: zhook_handle 
     138 
     139   CHARACTER(LEN=*), PARAMETER :: RoutineName='WRK_LIST' 
     140 
     141   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     142 
    132143      ! to list 3d arrays in use, to be duplicated for all cases  
    133144      WRITE(*,*) 'Arrays in use :' 
    … …  
    135146      WRITE(*,*) '' 
    136147       
     148   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    137149   END SUBROUTINE wrk_list 
    138150    
    … …  
    153165      REAL(wp), POINTER, DIMENSION(:), INTENT(inout), OPTIONAL ::   p1d02,p1d03,p1d04,p1d05,p1d06,p1d07,p1d08,p1d09,p1d10 
    154166      INTEGER                        , INTENT(in   ), OPTIONAL ::   kistart 
     167      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     168      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     169      REAL(KIND=jprb)               :: zhook_handle 
     170 
     171      CHARACTER(LEN=*), PARAMETER :: RoutineName='WRK_ALLOC_1DR' 
     172 
     173      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     174 
    155175      ! 
    156176      CALL wrk_alloc_xd( kidim, 0, 0, 0, kistart, 1, 1, 1,                                            & 
    … …  
    158178         &               p1d06 = p1d06, p1d07 = p1d07, p1d08 = p1d08, p1d09 = p1d09, p1d10 = p1d10    ) 
    159179      ! 
     180      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    160181   END SUBROUTINE wrk_alloc_1dr 
    161182 
    … …  
    166187      INTEGER , POINTER, DIMENSION(:), INTENT(inout), OPTIONAL ::   k1d02,k1d03,k1d04,k1d05,k1d06,k1d07,k1d08,k1d09,k1d10 
    167188      INTEGER                        , INTENT(in   ), OPTIONAL ::   kistart 
     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='WRK_ALLOC_1DI' 
     194 
     195      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     196 
    168197      ! 
    169198      CALL wrk_alloc_xd( kidim, 0, 0, 0, kistart, 1, 1, 1,                                            & 
    … …  
    171200         &               k1d06 = k1d06, k1d07 = k1d07, k1d08 = k1d08, k1d09 = k1d09, k1d10 = k1d10    ) 
    172201      ! 
     202      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    173203   END SUBROUTINE wrk_alloc_1di 
    174204 
    … …  
    179209      REAL(wp), POINTER, DIMENSION(:,:), INTENT(inout), OPTIONAL ::   p2d02,p2d03,p2d04,p2d05,p2d06,p2d07,p2d08,p2d09,p2d10 
    180210      INTEGER                          , INTENT(in   ), OPTIONAL ::   kistart, kjstart 
     211      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     212      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     213      REAL(KIND=jprb)               :: zhook_handle 
     214 
     215      CHARACTER(LEN=*), PARAMETER :: RoutineName='WRK_ALLOC_2DR' 
     216 
     217      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     218 
    181219      ! 
    182220      CALL wrk_alloc_xd( kidim, kjdim, 0, 0, kistart, kjstart, 1, 1,                                  & 
    … …  
    184222         &               p2d06 = p2d06, p2d07 = p2d07, p2d08 = p2d08, p2d09 = p2d09, p2d10 = p2d10    ) 
    185223      ! 
     224      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    186225   END SUBROUTINE wrk_alloc_2dr 
    187226 
    … …  
    192231      INTEGER , POINTER, DIMENSION(:,:), INTENT(inout), OPTIONAL ::   k2d02,k2d03,k2d04,k2d05,k2d06,k2d07,k2d08,k2d09,k2d10 
    193232      INTEGER                          , INTENT(in   ), OPTIONAL ::   kistart, kjstart 
     233      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     234      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     235      REAL(KIND=jprb)               :: zhook_handle 
     236 
     237      CHARACTER(LEN=*), PARAMETER :: RoutineName='WRK_ALLOC_2DI' 
     238 
     239      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     240 
    194241      ! 
    195242      CALL wrk_alloc_xd( kidim, kjdim, 0, 0, kistart, kjstart, 1, 1,                                  & 
    … …  
    197244         &               k2d06 = k2d06, k2d07 = k2d07, k2d08 = k2d08, k2d09 = k2d09, k2d10 = k2d10    ) 
    198245      ! 
     246      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    199247   END SUBROUTINE wrk_alloc_2di 
    200248 
    … …  
    206254      REAL(wp), POINTER, DIMENSION(:,:,:), INTENT(inout), OPTIONAL ::   p3d02,p3d03,p3d04,p3d05,p3d06,p3d07,p3d08,p3d09,p3d10 
    207255      INTEGER                            , INTENT(in   ), OPTIONAL ::   kistart, kjstart, kkstart 
     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='WRK_ALLOC_3DR' 
     261 
     262      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     263 
    208264      ! 
    209265      CALL wrk_alloc_xd( kidim, kjdim, kkdim, 0, kistart, kjstart, kkstart, 1,                        & 
    … …  
    211267         &               p3d06 = p3d06, p3d07 = p3d07, p3d08 = p3d08, p3d09 = p3d09, p3d10 = p3d10    ) 
    212268      ! 
     269      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    213270   END SUBROUTINE wrk_alloc_3dr 
    214271 
    … …  
    220277      INTEGER , POINTER, DIMENSION(:,:,:), INTENT(inout), OPTIONAL ::   k3d02,k3d03,k3d04,k3d05,k3d06,k3d07,k3d08,k3d09,k3d10 
    221278      INTEGER                            , INTENT(in   ), OPTIONAL ::   kistart, kjstart, kkstart 
     279      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     280      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     281      REAL(KIND=jprb)               :: zhook_handle 
     282 
     283      CHARACTER(LEN=*), PARAMETER :: RoutineName='WRK_ALLOC_3DI' 
     284 
     285      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     286 
    222287      ! 
    223288      CALL wrk_alloc_xd( kidim, kjdim, kkdim, 0, kistart, kjstart, kkstart, 1,                        & 
    … …  
    225290         &               k3d06 = k3d06, k3d07 = k3d07, k3d08 = k3d08, k3d09 = k3d09, k3d10 = k3d10    ) 
    226291      ! 
     292      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    227293   END SUBROUTINE wrk_alloc_3di 
    228294 
    … …  
    234300      REAL(wp), POINTER, DIMENSION(:,:,:,:), INTENT(inout), OPTIONAL ::   p4d02,p4d03,p4d04,p4d05,p4d06,p4d07,p4d08,p4d09,p4d10 
    235301      INTEGER                              , INTENT(in   ), OPTIONAL ::   kistart, kjstart, kkstart, klstart 
     302      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     303      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     304      REAL(KIND=jprb)               :: zhook_handle 
     305 
     306      CHARACTER(LEN=*), PARAMETER :: RoutineName='WRK_ALLOC_4DR' 
     307 
     308      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     309 
    236310      ! 
    237311      CALL wrk_alloc_xd( kidim, kjdim, kkdim, kldim, kistart, kjstart, kkstart, klstart,              & 
    … …  
    239313         &               p4d06 = p4d06, p4d07 = p4d07, p4d08 = p4d08, p4d09 = p4d09, p4d10 = p4d10    ) 
    240314      ! 
     315      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    241316   END SUBROUTINE wrk_alloc_4dr 
    242317 
    … …  
    248323      INTEGER , POINTER, DIMENSION(:,:,:,:), INTENT(inout), OPTIONAL ::   k4d02,k4d03,k4d04,k4d05,k4d06,k4d07,k4d08,k4d09,k4d10 
    249324      INTEGER                              , INTENT(in   ), OPTIONAL ::   kistart, kjstart, kkstart, klstart 
     325      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     326      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     327      REAL(KIND=jprb)               :: zhook_handle 
     328 
     329      CHARACTER(LEN=*), PARAMETER :: RoutineName='WRK_ALLOC_4DI' 
     330 
     331      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     332 
    250333      ! 
    251334      CALL wrk_alloc_xd( kidim, kjdim, kkdim, kldim, kistart, kjstart, kkstart, klstart,              & 
    … …  
    253336         &               k4d06 = k4d06, k4d07 = k4d07, k4d08 = k4d08, k4d09 = k4d09, k4d10 = k4d10    ) 
    254337      ! 
     338      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    255339   END SUBROUTINE wrk_alloc_4di 
    256340 
    … …  
    263347      ! 
    264348      INTEGER :: icnt, jn 
     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='WRK_DEALLOC_1DR' 
     354 
     355      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     356 
    265357      icnt = 1 + COUNT( (/                PRESENT(p1d02),PRESENT(p1d03),PRESENT(p1d04),PRESENT(p1d05),   & 
    266358         &                 PRESENT(p1d06),PRESENT(p1d07),PRESENT(p1d08),PRESENT(p1d09),PRESENT(p1d10) /) ) 
    267359      DO jn = 1, icnt   ;   CALL wrk_deallocbase( jpreal, kidim, 0, 0, 0, kistart, 1, 1, 1)   ;   END DO 
    268360      ! 
     361      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    269362   END SUBROUTINE wrk_dealloc_1dr 
    270363 
    … …  
    277370      ! 
    278371      INTEGER :: icnt, jn 
     372      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     373      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     374      REAL(KIND=jprb)               :: zhook_handle 
     375 
     376      CHARACTER(LEN=*), PARAMETER :: RoutineName='WRK_DEALLOC_1DI' 
     377 
     378      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     379 
    279380      icnt = 1 + COUNT( (/                PRESENT(k1d02),PRESENT(k1d03),PRESENT(k1d04),PRESENT(k1d05),   & 
    280381         &                 PRESENT(k1d06),PRESENT(k1d07),PRESENT(k1d08),PRESENT(k1d09),PRESENT(k1d10) /) ) 
    281382      DO jn = 1, icnt   ;   CALL wrk_deallocbase( jpinteger, kidim, 0, 0, 0, kistart, 1, 1, 1 )   ;   END DO 
    282383      ! 
     384      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    283385   END SUBROUTINE wrk_dealloc_1di 
    284386 
    … …  
    291393      ! 
    292394      INTEGER :: icnt, jn 
     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='WRK_DEALLOC_2DR' 
     400 
     401      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     402 
    293403      icnt = 1 + COUNT( (/                PRESENT(p2d02),PRESENT(p2d03),PRESENT(p2d04),PRESENT(p2d05),   & 
    294404         &                 PRESENT(p2d06),PRESENT(p2d07),PRESENT(p2d08),PRESENT(p2d09),PRESENT(p2d10) /) ) 
    295405      DO jn = 1, icnt   ;   CALL wrk_deallocbase( jpreal, kidim, kjdim, 0, 0, kistart, kjstart, 1, 1 )   ;   END DO 
    296406      ! 
     407      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    297408   END SUBROUTINE wrk_dealloc_2dr 
    298409 
    … …  
    305416      ! 
    306417      INTEGER :: icnt, jn 
     418      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     419      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     420      REAL(KIND=jprb)               :: zhook_handle 
     421 
     422      CHARACTER(LEN=*), PARAMETER :: RoutineName='WRK_DEALLOC_2DI' 
     423 
     424      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     425 
    307426      icnt = 1 + COUNT( (/                PRESENT(k2d02),PRESENT(k2d03),PRESENT(k2d04),PRESENT(k2d05),   & 
    308427         &                 PRESENT(k2d06),PRESENT(k2d07),PRESENT(k2d08),PRESENT(k2d09),PRESENT(k2d10) /) ) 
    309428      DO jn = 1, icnt   ;   CALL wrk_deallocbase( jpinteger, kidim, kjdim, 0, 0, kistart, kjstart, 1, 1 )   ;   END DO 
    310429      ! 
     430      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    311431   END SUBROUTINE wrk_dealloc_2di 
    312432 
    … …  
    320440      ! 
    321441      INTEGER :: icnt, jn 
     442      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     443      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     444      REAL(KIND=jprb)               :: zhook_handle 
     445 
     446      CHARACTER(LEN=*), PARAMETER :: RoutineName='WRK_DEALLOC_3DR' 
     447 
     448      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     449 
    322450      icnt = 1 + COUNT( (/                PRESENT(p3d02),PRESENT(p3d03),PRESENT(p3d04),PRESENT(p3d05),   & 
    323451         &                 PRESENT(p3d06),PRESENT(p3d07),PRESENT(p3d08),PRESENT(p3d09),PRESENT(p3d10) /) ) 
    324452      DO jn = 1, icnt   ;   CALL wrk_deallocbase( jpreal, kidim, kjdim, kkdim, 0, kistart, kjstart, kkstart, 1 )   ;   END DO 
    325453      ! 
     454      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    326455   END SUBROUTINE wrk_dealloc_3dr 
    327456 
    … …  
    335464      ! 
    336465      INTEGER :: icnt, jn 
     466      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     467      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     468      REAL(KIND=jprb)               :: zhook_handle 
     469 
     470      CHARACTER(LEN=*), PARAMETER :: RoutineName='WRK_DEALLOC_3DI' 
     471 
     472      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     473 
    337474      icnt = 1 + COUNT( (/                PRESENT(k3d02),PRESENT(k3d03),PRESENT(k3d04),PRESENT(k3d05),   & 
    338475         &                 PRESENT(k3d06),PRESENT(k3d07),PRESENT(k3d08),PRESENT(k3d09),PRESENT(k3d10) /) ) 
    339476      DO jn = 1, icnt   ;   CALL wrk_deallocbase( jpinteger, kidim, kjdim, kkdim, 0, kistart, kjstart, kkstart, 1 )   ;   END DO 
    340477      ! 
     478      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    341479   END SUBROUTINE wrk_dealloc_3di 
    342480 
    … …  
    350488      ! 
    351489      INTEGER :: icnt, jn 
     490      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     491      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     492      REAL(KIND=jprb)               :: zhook_handle 
     493 
     494      CHARACTER(LEN=*), PARAMETER :: RoutineName='WRK_DEALLOC_4DR' 
     495 
     496      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     497 
    352498      icnt = 1 + COUNT( (/                PRESENT(p4d02),PRESENT(p4d03),PRESENT(p4d04),PRESENT(p4d05),   & 
    353499         &                 PRESENT(p4d06),PRESENT(p4d07),PRESENT(p4d08),PRESENT(p4d09),PRESENT(p4d10) /) ) 
    354500      DO jn = 1, icnt ; CALL wrk_deallocbase( jpreal, kidim, kjdim, kkdim, kldim, kistart, kjstart, kkstart, klstart ) ; END DO 
    355501      ! 
     502      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    356503   END SUBROUTINE wrk_dealloc_4dr 
    357504 
    … …  
    365512      ! 
    366513      INTEGER :: icnt, jn 
     514      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     515      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     516      REAL(KIND=jprb)               :: zhook_handle 
     517 
     518      CHARACTER(LEN=*), PARAMETER :: RoutineName='WRK_DEALLOC_4DI' 
     519 
     520      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     521 
    367522      icnt = 1 + COUNT( (/                PRESENT(k4d02),PRESENT(k4d03),PRESENT(k4d04),PRESENT(k4d05),   & 
    368523         &                 PRESENT(k4d06),PRESENT(k4d07),PRESENT(k4d08),PRESENT(k4d09),PRESENT(k4d10) /) ) 
    369524      DO jn = 1, icnt ; CALL wrk_deallocbase( jpinteger, kidim, kjdim, kkdim, kldim, kistart, kjstart, kkstart, klstart ) ; END DO 
    370525      ! 
     526      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    371527   END SUBROUTINE wrk_dealloc_4di 
    372528 
    … …  
    395551      LOGICAL ::   llpres 
    396552      INTEGER ::   jn, iisrt, ijsrt, iksrt, ilsrt 
     553      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     554      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     555      REAL(KIND=jprb)               :: zhook_handle 
     556 
     557      CHARACTER(LEN=*), PARAMETER :: RoutineName='WRK_ALLOC_XD' 
     558 
     559      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     560 
    397561      ! 
    398562      IF( .NOT. linit ) THEN 
    … …  
    448612         &                             k1d10, k2d10, k3d10, k4d10, p1d10, p2d10, p3d10, p4d10    ) 
    449613 
     614      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    450615   END SUBROUTINE wrk_alloc_xd 
    451616 
    … …  
    468633      INTEGER :: itype 
    469634      INTEGER :: ii 
     635      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     636      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     637      REAL(KIND=jprb)               :: zhook_handle 
     638 
     639      CHARACTER(LEN=*), PARAMETER :: RoutineName='WRK_ALLOCBASE' 
     640 
     641      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     642 
    470643 
    471644      ! define the shape to be given to the work array 
    … …  
    554727      tree(ii)%current%in_use = .TRUE.   ! this leaf is now used 
    555728      !       
     729      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    556730   END SUBROUTINE wrk_allocbase 
    557731 
    … …  
    564738      INTEGER, DIMENSION(jpmaxdim) :: ishape, istart 
    565739      INTEGER :: ii 
     740      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     741      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     742      REAL(KIND=jprb)               :: zhook_handle 
     743 
     744      CHARACTER(LEN=*), PARAMETER :: RoutineName='WRK_DEALLOCBASE' 
     745 
     746      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     747 
    566748 
    567749      ishape(:) = (/ kidim, kjdim, kkdim, kldim /) 
    … …  
    580762      tree(ii)%current => tree(ii)%current%prev   ! move back toward previous leaf    
    581763      !  
     764      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    582765   END SUBROUTINE wrk_deallocbase 
    583766 
    … …  
    590773      !!---------------------------------------------------------------------- 
    591774      CHARACTER(LEN=*), INTENT(in) :: cmsg 
     775      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     776      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     777      REAL(KIND=jprb)               :: zhook_handle 
     778 
     779      CHARACTER(LEN=*), PARAMETER :: RoutineName='WRK_STOP' 
     780 
     781      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     782 
    592783      !!---------------------------------------------------------------------- 
    593784      ! 
    … …  
    600791      !CALL mppstop 
    601792      ! 
     793      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    602794   END SUBROUTINE wrk_stop 
    603795 
Note: See TracChangeset for help on using the changeset viewer.