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 – NEMO

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

The Dr Hook changes from my perl code.

Location:
branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO
Files:
203 edited

Legend:

Unmodified
Added
Removed

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

    r6486 r11738  
    3030#endif 
    3131 
     32   USE yomhook, ONLY: lhook, dr_hook 
     33   USE parkind1, ONLY: jprb, jpim 
     34 
    3235   IMPLICIT NONE 
    3336   PRIVATE 
    … …  
    5861 
    5962   SUBROUTINE icb_utl_copy() 
     63   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     64   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     65   REAL(KIND=jprb)               :: zhook_handle 
     66 
     67   CHARACTER(LEN=*), PARAMETER :: RoutineName='ICB_UTL_COPY' 
     68 
     69   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     70 
    6071      !!---------------------------------------------------------------------- 
    6172      !!                  ***  ROUTINE icb_utl_copy  *** 
    … …  
    112123      CALL lbc_lnk_icb( ssh_e, 'T', +1._wp, 1, 1 ) 
    113124      ! 
     125   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    114126   END SUBROUTINE icb_utl_copy 
    115127 
    … …  
    139151      ! 
    140152      REAL(wp) ::   zcd, zmod       ! local scalars 
     153      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     154      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     155      REAL(KIND=jprb)               :: zhook_handle 
     156 
     157      CHARACTER(LEN=*), PARAMETER :: RoutineName='ICB_UTL_INTERP' 
     158 
     159      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     160 
    141161      !!---------------------------------------------------------------------- 
    142162 
    … …  
    177197          &      icb_utl_bilin_h( ssh_e, pi, pj-0.1_wp, 'T' )  ) / ( 0.2_wp * pe2 ) 
    178198      ! 
     199      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    179200   END SUBROUTINE icb_utl_interp 
    180201 
    … …  
    488509      ! 
    489510      TYPE(iceberg), POINTER ::   new => NULL() 
     511      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     512      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     513      REAL(KIND=jprb)               :: zhook_handle 
     514 
     515      CHARACTER(LEN=*), PARAMETER :: RoutineName='ICB_UTL_ADD' 
     516 
     517      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     518 
    490519      !!---------------------------------------------------------------------- 
    491520      ! 
    … …  
    495524      new => NULL()     ! Clear new 
    496525      ! 
     526      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    497527   END SUBROUTINE icb_utl_add          
    498528 
    … …  
    511541      TYPE(point)  , POINTER    ::   pt 
    512542      INTEGER                   ::   istat 
     543      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     544      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     545      REAL(KIND=jprb)               :: zhook_handle 
     546 
     547      CHARACTER(LEN=*), PARAMETER :: RoutineName='ICB_UTL_CREATE' 
     548 
     549      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     550 
    513551      !!---------------------------------------------------------------------- 
    514552      ! 
    … …  
    526564      berg%current_point => pt 
    527565      ! 
     566      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    528567   END SUBROUTINE icb_utl_create 
    529568 
    … …  
    539578      ! 
    540579      TYPE(iceberg), POINTER  ::   this, prev, last 
     580      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     581      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     582      REAL(KIND=jprb)               :: zhook_handle 
     583 
     584      CHARACTER(LEN=*), PARAMETER :: RoutineName='ICB_UTL_INSERT' 
     585 
     586      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     587 
    541588      !!---------------------------------------------------------------------- 
    542589      ! 
    … …  
    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 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/CFC/par_cfc.F90

    r8280 r11738  
    2525   USE par_idtra  , ONLY : jp_idtra_3d     !: number of tracers in ideal tracer 
    2626   USE par_idtra  , ONLY : jp_idtra_trd    !: number of tracers in ideal tracer 
     27 
     28   USE yomhook, ONLY: lhook, dr_hook 
     29   USE parkind1, ONLY: jprb, jpim 
    2730 
    2831   IMPLICIT NONE 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/CFC/trcice_cfc.F90

    r6486 r11738  
    1616   USE trc             ! TOP variables 
    1717 
     18   USE yomhook, ONLY: lhook, dr_hook 
     19   USE parkind1, ONLY: jprb, jpim 
     20 
    1821   IMPLICIT NONE 
    1922   PRIVATE 
    … …  
    2932 
    3033   SUBROUTINE trc_ice_ini_cfc 
     34   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     35   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     36   REAL(KIND=jprb)               :: zhook_handle 
     37 
     38   CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_ICE_INI_CFC' 
     39 
     40   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     41 
    3142      !!---------------------------------------------------------------------- 
    3243      !!                     ***  trc_ice_cfc  *** 
    … …  
    3849      ! 
    3950      ! 
     51   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    4052   END SUBROUTINE trc_ice_ini_cfc 
    4153 
    … …  
    4759CONTAINS 
    4860   SUBROUTINE trc_ice_ini_cfc             ! Empty routine 
     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='TRC_ICE_INI_CFC' 
     66 
     67   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     68 
     69   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    4970   END SUBROUTINE trc_ice_ini_cfc 
    5071#endif 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/CFC/trcini_cfc.F90

    r9385 r11738  
    1717   USE trc             ! TOP variables 
    1818   USE trcsms_cfc      ! CFC sms trends 
     19 
     20   USE yomhook, ONLY: lhook, dr_hook 
     21   USE parkind1, ONLY: jprb, jpim 
    1922 
    2023   IMPLICIT NONE 
    … …  
    4750      INTEGER  ::  iskip = 7   ! number of 1st descriptor lines 
    4851      REAL(wp) ::  zyy, zyd 
     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='TRC_INI_CFC' 
     57 
     58      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     59 
    4960      !!---------------------------------------------------------------------- 
    5061 
    … …  
    7081        CALL ctl_stop('trc_ini_cfc:  & 
    7182                      & Error on the 1st reading of cfc1112sf6.atm') 
     83      IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 
    7284        RETURN 
    7385      ENDIF 
    … …  
    7991      IF( ierr > 0 ) THEN 
    8092         CALL ctl_stop( 'trc_ini_cfc: unable to allocate p_cfc array' )    
     93      IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 
    8194         RETURN 
    8295      ENDIF 
    … …  
    117130          CALL ctl_stop('trc_ini_cfc:   & 
    118131                        & Error on the 2nd reading of cfc1112sf6.atm') 
     132      IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 
    119133          RETURN 
    120134        ENDIF 
    … …  
    157171      IF(lwp) WRITE(numout,*) ' ' 
    158172      ! 
     173      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    159174   END SUBROUTINE trc_ini_cfc 
    160175    
    … …  
    165180CONTAINS 
    166181   SUBROUTINE trc_ini_cfc             ! Empty routine 
     182   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     183   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     184   REAL(KIND=jprb)               :: zhook_handle 
     185 
     186   CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_INI_CFC' 
     187 
     188   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     189 
     190   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    167191   END SUBROUTINE trc_ini_cfc 
    168192#endif 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/CFC/trcnam_cfc.F90

    r8442 r11738  
    1717   USE trcsms_cfc      ! CFC specific variable 
    1818   USE iom             ! I/O manager 
     19 
     20   USE yomhook, ONLY: lhook, dr_hook 
     21   USE parkind1, ONLY: jprb, jpim 
    1922 
    2023   IMPLICIT NONE 
    … …  
    4952      !! 
    5053      NAMELIST/namcfcdate/ ndate_beg, nyear_res, simu_type  
     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='TRC_NAM_CFC' 
     59 
     60      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     61 
    5162      !!---------------------------------------------------------------------- 
    5263      !                             ! Open namelist files 
    … …  
    8293   IF(lwm) CALL FLUSH ( numonc )     ! flush output namelist CFC 
    8394 
     95      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    8496   END SUBROUTINE trc_nam_cfc 
    8597    
    … …  
    90102CONTAINS 
    91103   SUBROUTINE trc_nam_cfc                      ! Empty routine 
     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='TRC_NAM_CFC' 
     109 
     110   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     111 
     112   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    92113   END  SUBROUTINE  trc_nam_cfc 
    93114#endif   

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/CFC/trcsms_cfc.F90

    r9163 r11738  
    2525   USE iom           ! I/O library 
    2626   USE wrk_nemo 
     27 
     28   USE yomhook, ONLY: lhook, dr_hook 
     29   USE parkind1, ONLY: jprb, jpim 
    2730 
    2831   IMPLICIT NONE 
    … …  
    98101      REAL(wp) ::   zak_cfc   ! transfert coefficients 
    99102      REAL(wp), ALLOCATABLE, DIMENSION(:,:)  ::   zpatm     ! atmospheric function 
     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='TRC_SMS_CFC' 
     108 
     109      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     110 
    100111      !!---------------------------------------------------------------------- 
    101112      ! 
    … …  
    283294      IF( nn_timing == 1 )  CALL timing_stop('trc_sms_cfc') 
    284295      ! 
     296      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    285297   END SUBROUTINE trc_sms_cfc 
    286298 
    … …  
    293305      !!--------------------------------------------------------------------- 
    294306      INTEGER :: jl, jn, iyear_beg, iyear_tmp 
     307      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     308      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     309      REAL(KIND=jprb)               :: zhook_handle 
     310 
     311      CHARACTER(LEN=*), PARAMETER :: RoutineName='CFC_INIT' 
     312 
     313      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     314 
    295315 
    296316      ! coefficient for CFC11  
    … …  
    398418      IF(lwp) WRITE(numout,*) 
    399419      ! 
     420      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    400421   END SUBROUTINE cfc_init 
    401422 
    402423 
    403424   INTEGER FUNCTION trc_sms_cfc_alloc() 
     425   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     426   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     427   REAL(KIND=jprb)               :: zhook_handle 
     428 
     429   CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_SMS_CFC_ALLOC' 
     430 
     431   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     432 
    404433      !!---------------------------------------------------------------------- 
    405434      !!                     ***  ROUTINE trc_sms_cfc_alloc  *** 
    … …  
    411440      IF( trc_sms_cfc_alloc /= 0 ) CALL ctl_warn('trc_sms_cfc_alloc : failed to allocate arrays.') 
    412441      ! 
     442   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    413443   END FUNCTION trc_sms_cfc_alloc 
    414444 
    … …  
    419449CONTAINS 
    420450   SUBROUTINE trc_sms_cfc( kt )       ! Empty routine 
     451   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     452   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     453   REAL(KIND=jprb)               :: zhook_handle 
     454 
     455   CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_SMS_CFC' 
     456 
     457   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     458 
    421459      WRITE(*,*) 'trc_sms_cfc: You should not have seen this print! error?', kt 
     460   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    422461   END SUBROUTINE trc_sms_cfc 
    423462#endif 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/CFC/trcwri_cfc.F90

    r6618 r11738  
    1414   USE trc         ! passive tracers common variables  
    1515   USE iom         ! I/O manager 
     16 
     17   USE yomhook, ONLY: lhook, dr_hook 
     18   USE parkind1, ONLY: jprb, jpim 
    1619 
    1720   IMPLICIT NONE 
    … …  
    3134      CHARACTER (len=20)   :: cltra 
    3235      INTEGER              :: jn 
     36      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     37      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     38      REAL(KIND=jprb)               :: zhook_handle 
     39 
     40      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_WRI_CFC' 
     41 
     42      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     43 
    3344      !!--------------------------------------------------------------------- 
    3445  
    … …  
    4051      END DO 
    4152      ! 
     53      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    4254   END SUBROUTINE trc_wri_cfc 
    4355 
    … …  
    4961CONTAINS 
    5062   SUBROUTINE trc_wri_cfc                     ! Empty routine   
     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='TRC_WRI_CFC' 
     68 
     69   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     70 
     71   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    5172   END SUBROUTINE trc_wri_cfc 
    5273#endif 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/IDTRA/par_idtra.F90

    r6164 r11738  
    2020   USE par_medusa , ONLY : jp_medusa_3d    !: number of 3D diag in MEDUSA 
    2121   USE par_medusa , ONLY : jp_medusa_trd   !: number of biological diag in MEDUSA 
     22 
     23   USE yomhook, ONLY: lhook, dr_hook 
     24   USE parkind1, ONLY: jprb, jpim 
    2225 
    2326   IMPLICIT NONE 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/IDTRA/trcice_idtra.F90

    r6046 r11738  
    1616   USE trc             ! TOP variables 
    1717 
     18   USE yomhook, ONLY: lhook, dr_hook 
     19   USE parkind1, ONLY: jprb, jpim 
     20 
    1821   IMPLICIT NONE 
    1922   PRIVATE 
    … …  
    2932 
    3033   SUBROUTINE trc_ice_ini_idtra 
     34   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     35   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     36   REAL(KIND=jprb)               :: zhook_handle 
     37 
     38   CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_ICE_INI_IDTRA' 
     39 
     40   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     41 
    3142      !!---------------------------------------------------------------------- 
    3243      !!                     ***  trc_ice_idtra  *** 
    … …  
    3849      ! 
    3950      ! 
     51   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    4052   END SUBROUTINE trc_ice_ini_idtra 
    4153 
    … …  
    4759CONTAINS 
    4860   SUBROUTINE trc_ice_ini_idtra             ! Empty routine 
     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='TRC_ICE_INI_IDTRA' 
     66 
     67   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     68 
     69   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    4970   END SUBROUTINE trc_ice_ini_idtra 
    5071#endif 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/IDTRA/trcini_idtra.F90

    r6164 r11738  
    2020   ! USE lib_mpp 
    2121   ! USE iom 
     22 
     23   USE yomhook, ONLY: lhook, dr_hook 
     24   USE parkind1, ONLY: jprb, jpim 
    2225 
    2326   IMPLICIT NONE 
    … …  
    4447      !!---------------------------------------------------------------------- 
    4548      INTEGER  ::    jn, jl  
     49      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     50      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     51      REAL(KIND=jprb)               :: zhook_handle 
     52 
     53      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_INI_IDTRA' 
     54 
     55      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     56 
    4657      !!---------------------------------------------------------------------- 
    4758 
    … …  
    8596      IF(lwp) WRITE(numout,*) ' ' 
    8697 
     98      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    8799   END SUBROUTINE trc_ini_idtra 
    88100 
    … …  
    93105CONTAINS 
    94106   SUBROUTINE trc_ini_idtra             ! Empty routine 
     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='TRC_INI_IDTRA' 
     112 
     113   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
    95114 
    96115 
     116 
     117   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    97118   END SUBROUTINE trc_ini_idtra 
    98119#endif 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/IDTRA/trcnam_idtra.F90

    r6046 r11738  
    1717   USE trcsms_idtra    ! IDEAL-TRACER specific variable 
    1818   USE iom             ! I/O manager 
     19 
     20   USE yomhook, ONLY: lhook, dr_hook 
     21   USE parkind1, ONLY: jprb, jpim 
    1922 
    2023   IMPLICIT NONE 
    … …  
    5053      !! ---------------------------------------------------------------- 
    5154      NAMELIST/namidtra/tmp_decay 
     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='TRC_NAM_IDTRA' 
     60 
     61      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     62 
    5263      !!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
    5364      !! Jpalm -- 4-11-2014 
    … …  
    103114!! #endif 
    104115 
     116      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    105117   END SUBROUTINE trc_nam_idtra 
    106118 
    … …  
    111123CONTAINS 
    112124   SUBROUTINE trc_nam_idtra                      ! Empty routine 
     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='TRC_NAM_IDTRA' 
     130 
     131   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     132 
     133   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    113134   END  SUBROUTINE  trc_nam_idtra 
    114135#endif 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/IDTRA/trcsms_idtra.F90

    r8442 r11738  
    2121   USE trdtrc 
    2222   USE iom 
     23 
     24   USE yomhook, ONLY: lhook, dr_hook 
     25   USE parkind1, ONLY: jprb, jpim 
    2326 
    2427   IMPLICIT NONE 
    … …  
    7881      INTEGER                ::   ji, jj, jn, jl, jk 
    7982      REAL(wp)               ::   rlx                 !! relaxation time (1 day) 
     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='TRC_SMS_IDTRA' 
     88 
     89      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     90 
    8091      !!---------------------------------------------------------------------- 
    8192      ! 
    … …  
    199210# endif 
    200211      ! 
     212      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    201213   END SUBROUTINE trc_sms_idtra 
    202214 
    … …  
    208220      !!--------------------------------------------------------------------- 
    209221      INTEGER :: jn 
     222      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     223      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     224      REAL(KIND=jprb)               :: zhook_handle 
     225 
     226      CHARACTER(LEN=*), PARAMETER :: RoutineName='IDTRA_INIT' 
     227 
     228      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     229 
    210230 
    211231      IF( ln_rsttr ) THEN 
    … …  
    220240      IF(lwp) WRITE(numout,*) 'idtra restart variables read -- OK' 
    221241      ! 
     242      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    222243   END SUBROUTINE idtra_init 
    223244 
    224245   INTEGER FUNCTION trc_sms_idtra_alloc() 
     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='TRC_SMS_IDTRA_ALLOC' 
     251 
     252   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     253 
    225254      !!---------------------------------------------------------------------- 
    226255      !!                     ***  ROUTINE trc_sms_idtra_alloc  *** 
    … …  
    232261      IF( trc_sms_idtra_alloc /= 0 ) CALL ctl_warn('trc_sms_idtra_alloc : failed to allocate arrays.') 
    233262      ! 
     263   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    234264   END FUNCTION trc_sms_idtra_alloc 
    235265 
    … …  
    240270CONTAINS 
    241271   SUBROUTINE trc_sms_idtra( kt )       ! Empty routine 
     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='TRC_SMS_IDTRA' 
     277 
     278   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     279 
    242280      WRITE(*,*) 'trc_sms_idtra: You should not have seen this print! error?', kt 
     281   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    243282   END SUBROUTINE trc_sms_idtra 
    244283#endif 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/IDTRA/trcwri_idtra.F90

    r6046 r11738  
    1919   USE iom             ! I/O manager 
    2020 
     21   USE yomhook, ONLY: lhook, dr_hook 
     22   USE parkind1, ONLY: jprb, jpim 
     23 
    2124   IMPLICIT NONE 
    2225   PRIVATE 
    … …  
    3437      CHARACTER (len=20)   :: cltra 
    3538      INTEGER              :: jn 
     39      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     40      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     41      REAL(KIND=jprb)               :: zhook_handle 
     42 
     43      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_WRI_IDTRA' 
     44 
     45      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     46 
    3647      !!--------------------------------------------------------------------- 
    3748 
    … …  
    4354      END DO 
    4455      ! 
     56      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    4557   END SUBROUTINE trc_wri_idtra 
    4658 
    … …  
    5264CONTAINS 
    5365   SUBROUTINE trc_wri_idtra                     ! Empty routine   
     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='TRC_WRI_IDTRA' 
     71 
     72   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     73 
     74   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    5475   END SUBROUTINE trc_wri_idtra 
    5576#endif 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/MEDUSA/air_sea.F90

    r10196 r11738  
    1414   !!                                                   MEDUSA bio-model 
    1515   !!---------------------------------------------------------------------- 
     16 
     17   USE yomhook, ONLY: lhook, dr_hook 
     18   USE parkind1, ONLY: jprb, jpim 
    1619 
    1720   IMPLICIT NONE 
    … …  
    145148      REAL(wp), DIMENSION(jpi,jpj) :: f_pi_co2starair, f_pi_dpco2 
    146149      REAL(wp) :: f_rhosw_dum, f_schmidtco2_dum, f_kwco2_dum,f_K0_dum 
     150      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     151      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     152      REAL(KIND=jprb)               :: zhook_handle 
     153 
     154      CHARACTER(LEN=*), PARAMETER :: RoutineName='AIR_SEA' 
     155 
     156      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     157 
    147158#  endif 
    148159# endif 
    … …  
    805816# endif  !! Roam 
    806817       
     818      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    807819   END SUBROUTINE air_sea 
    808820 
    … …  
    813825CONTAINS 
    814826   SUBROUTINE air_sea( )                    ! Empty routine 
     827   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     828   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     829   REAL(KIND=jprb)               :: zhook_handle 
     830 
     831   CHARACTER(LEN=*), PARAMETER :: RoutineName='AIR_SEA' 
     832 
     833   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     834 
    815835      WRITE(*,*) 'air_sea: You should not have seen this print! error?' 
     836   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    816837   END SUBROUTINE air_sea 
    817838#endif  !! medusa 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_med_diag_iomput.F90

    r10047 r11738  
    1111   !!                                                   MEDUSA bio-model 
    1212   !!---------------------------------------------------------------------- 
     13 
     14   USE yomhook, ONLY: lhook, dr_hook 
     15   USE parkind1, ONLY: jprb, jpim 
    1316 
    1417   IMPLICIT NONE 
    … …  
    5255      !! Loop avariables 
    5356      INTEGER :: ji, jj, jn 
     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='BIO_MED_DIAG_IOMPUT' 
     62 
     63      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     64 
    5465 
    5566      DO jj = 2,jpjm1 
    … …  
    713724      ENDDO 
    714725 
     726      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    715727   END SUBROUTINE bio_med_diag_iomput 
    716728 
    … …  
    721733CONTAINS 
    722734   SUBROUTINE bio_med_diag_iomput( )                    ! Empty routine 
     735      USE yomhook, ONLY: lhook, dr_hook 
     736      USE parkind1, ONLY: jprb, jpim 
     737 
    723738      IMPLICIT NONE 
     739      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     740      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     741      REAL(KIND=jprb)               :: zhook_handle 
     742 
     743      CHARACTER(LEN=*), PARAMETER :: RoutineName='BIO_MED_DIAG_IOMPUT' 
     744 
     745      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     746 
    724747      WRITE(*,*) 'bio_med_diag_iomput: You should not have seen this print! error?' 
     748      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    725749   END SUBROUTINE bio_med_diag_iomput 
    726750#endif  

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_diag.F90

    r10047 r11738  
    1111   !!                                                   MEDUSA bio-model 
    1212   !!---------------------------------------------------------------------- 
     13 
     14   USE yomhook, ONLY: lhook, dr_hook 
     15   USE parkind1, ONLY: jprb, jpim 
    1316 
    1417   IMPLICIT NONE 
    … …  
    5457      !! Loop avariables 
    5558      INTEGER :: ji, jj, jn 
     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='BIO_MEDUSA_DIAG' 
     64 
     65      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     66 
    5667 
    5768# if defined key_trc_diabio 
    … …  
    197208      CALL bio_med_diag_iomput( jk ) 
    198209 
     210      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    199211   END SUBROUTINE bio_medusa_diag 
    200212 
    … …  
    205217CONTAINS 
    206218   SUBROUTINE bio_medusa_diag( )                    ! Empty routine 
     219   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     220   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     221   REAL(KIND=jprb)               :: zhook_handle 
     222 
     223   CHARACTER(LEN=*), PARAMETER :: RoutineName='BIO_MEDUSA_DIAG' 
     224 
     225   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     226 
    207227      WRITE(*,*) 'bio_medusa_diag: You should not have seen this print! error?' 
     228   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    208229   END SUBROUTINE bio_medusa_diag 
    209230#endif  

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_diag_slice.F90

    r10196 r11738  
    1313   !!                                                   MEDUSA bio-model 
    1414   !!---------------------------------------------------------------------- 
     15 
     16   USE yomhook, ONLY: lhook, dr_hook 
     17   USE parkind1, ONLY: jprb, jpim 
    1518 
    1619   IMPLICIT NONE 
    … …  
    5255      !! The vertical level 
    5356      INTEGER, INTENT( in ) ::    jk 
     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='BIO_MEDUSA_DIAG_SLICE' 
     62 
     63      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     64 
    5465      !!---------------------------------------------------------------------- 
    5566 
    … …  
    474485#   endif 
    475486 
     487      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    476488   END SUBROUTINE bio_medusa_diag_slice 
    477489 
    … …  
    482494CONTAINS 
    483495   SUBROUTINE bio_medusa_diag_slice( )                  ! Empty routine 
     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='BIO_MEDUSA_DIAG_SLICE' 
     501 
     502   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     503 
    484504      WRITE(*,*) 'bio_medusa_diag_slice: You should not have seen this print! error?' 
     505   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    485506   END SUBROUTINE bio_medusa_diag_slice 
    486507#endif  

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_fin.F90

    r10196 r11738  
    1212   !!                                                   MEDUSA bio-model 
    1313   !!---------------------------------------------------------------------- 
     14 
     15   USE yomhook, ONLY: lhook, dr_hook 
     16   USE parkind1, ONLY: jprb, jpim 
    1417 
    1518   IMPLICIT NONE 
    … …  
    6669 
    6770      REAL(wp) :: fq0,fq1,fq2,fq3,fq4 
     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='BIO_MEDUSA_FIN' 
     76 
     77      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     78 
    6879 
    6980 
    … …  
    925936          DEALLOCATE( zw2d ) 
    926937 
     938      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    927939   END SUBROUTINE bio_medusa_fin 
    928940 
    … …  
    933945CONTAINS 
    934946   SUBROUTINE bio_medusa_fin( )                    ! Empty routine 
     947   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     948   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     949   REAL(KIND=jprb)               :: zhook_handle 
     950 
     951   CHARACTER(LEN=*), PARAMETER :: RoutineName='BIO_MEDUSA_FIN' 
     952 
     953   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     954 
    935955      WRITE(*,*) 'bio_medusa_fin: You should not have seen this print! error?' 
     956   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    936957   END SUBROUTINE bio_medusa_fin 
    937958#endif  

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_init.F90

    r10196 r11738  
    1515   !!---------------------------------------------------------------------- 
    1616 
     17   USE yomhook, ONLY: lhook, dr_hook 
     18   USE parkind1, ONLY: jprb, jpim 
     19 
    1720   IMPLICIT NONE 
    1821   PRIVATE 
    … …  
    4649      !! time (integer timestep) 
    4750      INTEGER, INTENT( in ) ::    kt 
     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='BIO_MEDUSA_INIT' 
     56 
     57      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     58 
    4859 
    4960      IF( ln_diatrc ) THEN 
    … …  
    959970      !! lk_iomput 
    960971 
     972      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    961973   END SUBROUTINE bio_medusa_init 
    962974 
    … …  
    967979CONTAINS 
    968980   SUBROUTINE bio_medusa_init( )                   ! Empty routine 
     981      USE yomhook, ONLY: lhook, dr_hook 
     982      USE parkind1, ONLY: jprb, jpim 
     983 
    969984      IMPLICIT NONE 
     985      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     986      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     987      REAL(KIND=jprb)               :: zhook_handle 
     988 
     989      CHARACTER(LEN=*), PARAMETER :: RoutineName='BIO_MEDUSA_INIT' 
     990 
     991      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     992 
    970993      WRITE(*,*) 'bio_medusa_init: You should not have seen this print! error?' 
     994      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    971995   END SUBROUTINE bio_medusa_init 
    972996#endif  

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_mod.F90

    r10196 r11738  
    2525   USE par_kind,          ONLY: wp 
    2626    
     27   USE yomhook, ONLY: lhook, dr_hook 
     28   USE parkind1, ONLY: jprb, jpim 
     29 
    2730   IMPLICIT NONE 
    2831   PUBLIC 
    … …  
    308311      USE lib_mpp,           ONLY: ctl_warn 
    309312      USE par_oce,           ONLY: jpi, jpj 
     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='BIO_MEDUSA_ALLOC' 
     318 
     319      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     320 
    310321      !!------------------------------------------------------------------- 
    311322      ! 
    … …  
    437448      END IF 
    438449    
     450      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    439451   END FUNCTION bio_medusa_alloc 
    440452 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_update.F90

    r10047 r11738  
    1414   !!                                                   MEDUSA bio-model 
    1515   !!---------------------------------------------------------------------- 
     16 
     17   USE yomhook, ONLY: lhook, dr_hook 
     18   USE parkind1, ONLY: jprb, jpim 
    1619 
    1720   IMPLICIT NONE 
    … …  
    134137      !! temporary variables 
    135138      REAL(wp) :: fq0 
     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='BIO_MEDUSA_UPDATE' 
     144 
     145      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     146 
    136147 
    137148      !!========================================================== 
    … …  
    856867 
    857868 
     869      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    858870   END SUBROUTINE bio_medusa_update 
    859871 
    … …  
    864876CONTAINS 
    865877   SUBROUTINE bio_medusa_update( )                    ! Empty routine 
     878   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     879   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     880   REAL(KIND=jprb)               :: zhook_handle 
     881 
     882   CHARACTER(LEN=*), PARAMETER :: RoutineName='BIO_MEDUSA_UPDATE' 
     883 
     884   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     885 
    866886      WRITE(*,*) 'bio_medusa_update: You should not have seen this print! error?' 
     887   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    867888   END SUBROUTINE bio_medusa_update 
    868889#endif  

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/MEDUSA/carb_chem.F90

    r10047 r11738  
    1212   !!                                                   key_roam? 
    1313   !!---------------------------------------------------------------------- 
     14 
     15   USE yomhook, ONLY: lhook, dr_hook 
     16   USE parkind1, ONLY: jprb, jpim 
    1417 
    1518   IMPLICIT NONE 
    … …  
    8588      !! Loop variables 
    8689      INTEGER :: ji, jj, jk 
     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='CARB_CHEM' 
     95 
     96      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     97 
    8798 
    8899      !!---------------------------------------------------------------------- 
    … …  
    252263      ENDDO 
    253264 
     265      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    254266   END SUBROUTINE carb_chem 
    255267 
    … …  
    260272CONTAINS 
    261273   SUBROUTINE carb_chem( )                    ! Empty routine 
     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='CARB_CHEM' 
     279 
     280   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     281 
    262282      WRITE(*,*) 'carb_chem: You should not have seen this print! error?' 
     283   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    263284   END SUBROUTINE carb_chem 
    264285#endif  

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/MEDUSA/detritus.F90

    r10047 r11738  
    1212   !!                                                   MEDUSA bio-model 
    1313   !!---------------------------------------------------------------------- 
     14 
     15   USE yomhook, ONLY: lhook, dr_hook 
     16   USE parkind1, ONLY: jprb, jpim 
    1417 
    1518   IMPLICIT NONE 
    … …  
    6366 
    6467      INTEGER :: ji, jj 
     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='DETRITUS' 
     73 
     74      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     75 
    6576 
    6677      !!------------------------------------------------------------------ 
    … …  
    196207      CALL detritus_fast_sink( jk, iball ) 
    197208 
     209      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    198210   END SUBROUTINE detritus 
    199211 
    … …  
    204216CONTAINS 
    205217   SUBROUTINE detritus( )                    ! Empty routine 
     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='DETRITUS' 
     223 
     224   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     225 
    206226      WRITE(*,*) 'detritus: You should not have seen this print! error?' 
     227   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    207228   END SUBROUTINE detritus 
    208229#endif  

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/MEDUSA/detritus_fast_sink.F90

    r10196 r11738  
    1212   !!                                                   MEDUSA bio-model 
    1313   !!---------------------------------------------------------------------- 
     14 
     15   USE yomhook, ONLY: lhook, dr_hook 
     16   USE parkind1, ONLY: jprb, jpim 
    1417 
    1518   IMPLICIT NONE 
    … …  
    111114      !! temporary variables 
    112115      REAL(wp) :: fq0,fq1,fq2,fq3,fq4,fq5,fq6,fq7,fq8 
     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='DETRITUS_FAST_SINK' 
     121 
     122      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     123 
    113124 
    114125      !! The two sections below, slow detritus creation and Nutrient  
    … …  
    981992      ENDDO 
    982993 
     994      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    983995   END SUBROUTINE detritus_fast_sink 
    984996 
    … …  
    9891001CONTAINS 
    9901002   SUBROUTINE detritus_fast_sink( )                    ! Empty routine 
     1003   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     1004   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     1005   REAL(KIND=jprb)               :: zhook_handle 
     1006 
     1007   CHARACTER(LEN=*), PARAMETER :: RoutineName='DETRITUS_FAST_SINK' 
     1008 
     1009   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     1010 
    9911011      WRITE(*,*) 'detritus_fast_sink: You should not have seen this print! error?' 
     1012   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    9921013   END SUBROUTINE detritus_fast_sink 
    9931014#endif  

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/MEDUSA/gas_transfer.F90

    r10196 r11738  
    1515      USE prtctl_trc      ! Print control for debugging 
    1616      USE in_out_manager  ! I/O manager 
     17 
     18      USE yomhook, ONLY: lhook, dr_hook 
     19      USE parkind1, ONLY: jprb, jpim 
    1720 
    1821      IMPLICIT NONE 
    … …  
    7982! Where (*) is the function output and (+) is a diagnostic output. 
    8083! 
     84      USE yomhook, ONLY: lhook, dr_hook 
     85      USE parkind1, ONLY: jprb, jpim 
     86 
    8187      implicit none 
    8288 
    … …  
    115121      data b(6) / 0.0   / 
    116122      data b(7) / 0.0   / 
     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='GAS_TRANSFER' 
     128 
     129      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     130 
    117131! 
    118132! Which parameterisation is to be used? 
    … …  
    125139      kw660 = tmp_k / (100. * 3600.) 
    126140! 
     141      IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 
    127142      return 
    128143 
     144      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    129145    end subroutine gas_transfer 
    130146 
    … …  
    146162      REAL(wp), INTENT( in )    :: kw660 
    147163      INTEGER, INTENT(in) :: N, eqn 
     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='GAS_TRANSFER' 
     169 
     170      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     171 
    148172 
    149173      WRITE(*,*) 'gas_transfer: You should not have seen this print! error?', kt 
    150174 
     175      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    151176   END SUBROUTINE gas_transfer 
    152177#endif 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/MEDUSA/iron_chem_scav.F90

    r10047 r11738  
    1111   !!                                                   MEDUSA bio-model 
    1212   !!---------------------------------------------------------------------- 
     13 
     14   USE yomhook, ONLY: lhook, dr_hook 
     15   USE parkind1, ONLY: jprb, jpim 
    1316 
    1417   IMPLICIT NONE 
    … …  
    8184 
    8285      INTEGER :: ji, jj 
     86      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     87      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     88      REAL(KIND=jprb)               :: zhook_handle 
     89 
     90      CHARACTER(LEN=*), PARAMETER :: RoutineName='IRON_CHEM_SCAV' 
     91 
     92      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     93 
    8394 
    8495      !!------------------------------------------------------------------ 
    … …  
    533544# endif 
    534545 
     546      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    535547   END SUBROUTINE iron_chem_scav 
    536548 
    … …  
    541553CONTAINS 
    542554   SUBROUTINE iron_chem_scav( )                    ! Empty routine 
     555   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     556   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     557   REAL(KIND=jprb)               :: zhook_handle 
     558 
     559   CHARACTER(LEN=*), PARAMETER :: RoutineName='IRON_CHEM_SCAV' 
     560 
     561   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     562 
    543563      WRITE(*,*) 'iron_chem_scav: You should not have seen this print! error?' 
     564   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    544565   END SUBROUTINE iron_chem_scav 
    545566#endif  

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/MEDUSA/mocsy_gasflux.F90

    r5841 r11738  
    3535 
    3636      USE mocsy_singledouble 
     37 
     38      USE yomhook, ONLY: lhook, dr_hook 
     39      USE parkind1, ONLY: jprb, jpim 
    3740 
    3841      implicit none 
    … …  
    5457      data a3 / -0.092307 / 
    5558      data a4 / 0.0007555 / 
     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='SCHMIDT_CO2' 
     64 
     65      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     66 
    5667! 
    5768! Wanninkhof (1992) 
    … …  
    6172      co2_schmidt = a0 + pt*(a1 + pt*(a2 + pt*(a3 + pt*a4))) 
    6273! 
     74      IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 
    6375      return 
    6476 
     77      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    6578      end subroutine schmidt_co2 
    6679 
    … …  
    8093      USE mocsy_singledouble 
    8194 
     95      USE yomhook, ONLY: lhook, dr_hook 
     96      USE parkind1, ONLY: jprb, jpim 
     97 
    8298      implicit none 
    8399! 
    … …  
    88104      real(kind=wp), DIMENSION(N) :: tk, invtk, tmp 
    89105      real(kind=wp)               :: a0, a1, a2, a3, a4 
     106      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     107      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     108      REAL(KIND=jprb)               :: zhook_handle 
     109 
     110      CHARACTER(LEN=*), PARAMETER :: RoutineName='SURFACE_K0' 
     111 
     112      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     113 
    90114! 
    91115      tk    = ptmp + 273.15d0 
    … …  
    94118      K0 = EXP( tmp + saln*(0.023517d0 - (0.00023656d0*tk) + (0.0047036e-4_wp*tk*tk)) ) 
    95119! 
     120      IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 
    96121      return 
    97122 
     123      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    98124      end subroutine surface_K0 
    99125 
    … …  
    108134 
    109135  USE mocsy_singledouble 
     136 
     137  USE yomhook, ONLY: lhook, dr_hook 
     138  USE parkind1, ONLY: jprb, jpim 
    110139 
    111140  IMPLICIT NONE 
    … …  
    136165 
    137166  INTEGER :: i 
     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='PCO2ATM2XCO2' 
     172 
     173  IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     174 
    138175 
    139176  call vapress(temp, salt, N, pH20) 
    … …  
    146183  END DO 
    147184 
     185  IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 
    148186  RETURN 
     187  IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    149188END SUBROUTINE pCO2atm2xCO2 
    150189 
    … …  
    159198 
    160199  USE mocsy_singledouble 
     200 
     201  USE yomhook, ONLY: lhook, dr_hook 
     202  USE parkind1, ONLY: jprb, jpim 
    161203 
    162204  IMPLICIT NONE 
    … …  
    186228 
    187229  INTEGER :: i 
     230  INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     231  INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     232  REAL(KIND=jprb)               :: zhook_handle 
     233 
     234  CHARACTER(LEN=*), PARAMETER :: RoutineName='X2PCO2ATM' 
     235 
     236  IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     237 
    188238 
    189239! Compute vapor pressure of seawater [in atm] 
    … …  
    197247  END DO 
    198248 
     249  IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 
    199250  RETURN 
     251  IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    200252END SUBROUTINE x2pCO2atm 
    201253 
    … …  
    210262 
    211263  USE mocsy_singledouble 
     264  USE yomhook, ONLY: lhook, dr_hook 
     265  USE parkind1, ONLY: jprb, jpim 
     266 
    212267  IMPLICIT NONE 
    213268 
    … …  
    230285 
    231286  INTEGER :: i 
     287  INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     288  INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     289  REAL(KIND=jprb)               :: zhook_handle 
     290 
     291  CHARACTER(LEN=*), PARAMETER :: RoutineName='VAPRESS' 
     292 
     293  IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     294 
    232295 
    233296  DO i = 1,N 
    … …  
    237300  END DO 
    238301 
     302  IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 
    239303  RETURN 
     304  IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    240305END SUBROUTINE vapress 
    241306 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/MEDUSA/mocsy_mainmod.F90

    r7894 r11738  
    2020  !     ================================================================== 
    2121  USE mocsy_singledouble 
     22  USE yomhook, ONLY: lhook, dr_hook 
     23  USE parkind1, ONLY: jprb, jpim 
     24 
    2225  IMPLICIT NONE 
    2326  !> salinity [psu (PSU-78)] 
    … …  
    3235 
    3336  REAL(kind=wp) :: sw_adtg 
     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='SW_ADTG' 
     42 
     43  IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     44 
    3445 
    3546  sref = 35.d0 
    … …  
    5970       + (  e0 + (e1 + e2*T)*T )*P*P 
    6071 
     72  IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    6173END FUNCTION sw_adtg 
    6274 
    … …  
    8597 
    8698  USE mocsy_singledouble 
     99  USE yomhook, ONLY: lhook, dr_hook 
     100  USE parkind1, ONLY: jprb, jpim 
     101 
    87102  IMPLICIT NONE 
    88103 
    … …  
    107122! Output  
    108123  REAL(kind=wp) :: sw_ptmp 
     124  INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     125  INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     126  REAL(KIND=jprb)               :: zhook_handle 
     127 
     128  CHARACTER(LEN=*), PARAMETER :: RoutineName='SW_PTMP' 
     129 
     130  IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     131 
    109132 
    110133  ! theta1 
    … …  
    128151  sw_ptmp     = th + (del_th - two*q)/(two*three) 
    129152 
     153  IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 
    130154  RETURN 
     155  IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    131156END FUNCTION sw_ptmp 
    132157 
    … …  
    166191 
    167192  USE mocsy_singledouble 
     193  USE yomhook, ONLY: lhook, dr_hook 
     194  USE parkind1, ONLY: jprb, jpim 
     195 
    168196  IMPLICIT NONE 
    169197 
    … …  
    188216 
    189217  REAL(kind=wp) ::   sw_temp 
     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='SW_TEMP' 
     223 
     224  IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     225 
    190226! EXTERNAL sw_ptmp 
    191227! REAL(kind=wp) ::   sw_ptmp 
    … …  
    206242  !    whereas the sw_temp routine from MIT GCM site does not seem to work right 
    207243 
     244  IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 
    208245  RETURN 
     246  IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    209247END FUNCTION sw_temp 
    210248 
    … …  
    224262 
    225263  USE mocsy_singledouble 
     264  USE yomhook, ONLY: lhook, dr_hook 
     265  USE parkind1, ONLY: jprb, jpim 
     266 
    226267  IMPLICIT NONE 
    227268 
    … …  
    248289 
    249290  INTEGER :: i 
     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='TPOT' 
     296 
     297  IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     298 
    250299 
    251300! REAL(kind=wp) :: sw_ptmp 
    … …  
    263312  END DO 
    264313 
     314  IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 
    265315  RETURN 
     316  IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    266317END SUBROUTINE tpot 
    267318 
    … …  
    281332 
    282333  USE mocsy_singledouble 
     334  USE yomhook, ONLY: lhook, dr_hook 
     335  USE parkind1, ONLY: jprb, jpim 
     336 
    283337  IMPLICIT NONE 
    284338 
    … …  
    305359 
    306360  INTEGER :: i 
     361  INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     362  INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     363  REAL(KIND=jprb)               :: zhook_handle 
     364 
     365  CHARACTER(LEN=*), PARAMETER :: RoutineName='TIS' 
     366 
     367  IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     368 
    307369 
    308370! REAL(kind=wp) :: sw_temp 
    … …  
    321383  END DO 
    322384 
     385  IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 
    323386  RETURN 
     387  IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    324388END SUBROUTINE tis 
    325389 
    … …  
    349413 
    350414  USE mocsy_singledouble 
     415  USE yomhook, ONLY: lhook, dr_hook 
     416  USE parkind1, ONLY: jprb, jpim 
     417 
    351418  IMPLICIT NONE 
    352419 
    … …  
    364431  REAL(kind=wp) :: pi 
    365432  REAL(kind=wp) :: plat, d, c1 
     433  INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     434  INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     435  REAL(KIND=jprb)               :: zhook_handle 
     436 
     437  CHARACTER(LEN=*), PARAMETER :: RoutineName='P80' 
     438 
     439  IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     440 
    366441 
    367442  pi=3.141592654 
    … …  
    373448  p80 = ((1-c1)-SQRT(((1-c1)**2)-(8.84e-6*dpth))) / 4.42e-6 
    374449 
     450  IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 
    375451  RETURN 
     452  IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    376453END FUNCTION p80 
    377454 
    … …  
    389466 
    390467  USE mocsy_singledouble 
     468  USE yomhook, ONLY: lhook, dr_hook 
     469  USE parkind1, ONLY: jprb, jpim 
     470 
    391471  IMPLICIT NONE 
    392472 
    … …  
    407487 
    408488  REAL(kind=wp) :: rho 
     489  INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     490  INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     491  REAL(KIND=jprb)               :: zhook_handle 
     492 
     493  CHARACTER(LEN=*), PARAMETER :: RoutineName='RHO' 
     494 
     495  IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     496 
    409497 
    410498  !     Input arguments: 
    … …  
    463551  rho = REAL(drho) 
    464552 
     553  IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 
    465554  RETURN 
     555  IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    466556END FUNCTION rho 
    467557 
    … …  
    482572 
    483573  USE mocsy_singledouble 
     574  USE yomhook, ONLY: lhook, dr_hook 
     575  USE parkind1, ONLY: jprb, jpim 
     576 
    484577  IMPLICIT NONE 
    485578 
    … …  
    507600! Local variables 
    508601  INTEGER :: i 
     602  INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     603  INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     604  REAL(KIND=jprb)               :: zhook_handle 
     605 
     606  CHARACTER(LEN=*), PARAMETER :: RoutineName='RHOINSITU' 
     607 
     608  IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     609 
    509610 
    510611! REAL(kind=wp) ::  rho 
    … …  
    515616  END DO 
    516617 
     618  IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 
    517619  RETURN 
     620  IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    518621END SUBROUTINE rhoinsitu 
    519622 
    … …  
    535638 
    536639  USE mocsy_singledouble 
     640  USE yomhook, ONLY: lhook, dr_hook 
     641  USE parkind1, ONLY: jprb, jpim 
     642 
    537643  IMPLICIT NONE 
    538644 
    … …  
    553659  !     Local variables 
    554660  INTEGER :: i 
     661  INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     662  INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     663  REAL(KIND=jprb)               :: zhook_handle 
     664 
     665  CHARACTER(LEN=*), PARAMETER :: RoutineName='DEPTH2PRESS' 
     666 
     667  IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     668 
    555669 
    556670! REAL(kind=wp) ::  p80 
    … …  
    561675  END DO 
    562676 
     677  IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 
    563678  RETURN 
     679  IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    564680END SUBROUTINE depth2press 
    565681 
    … …  
    644760 
    645761  USE mocsy_singledouble 
     762  USE yomhook, ONLY: lhook, dr_hook 
     763  USE parkind1, ONLY: jprb, jpim 
     764 
    646765  IMPLICIT NONE 
    647766 
    … …  
    781900           0.0427e-3_wp,  0.09e-3_wp,   0.0714e-3_wp, 0.0_wp/ 
    782901  DATA b2 /12*0.0_wp/ 
     902  INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     903  INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     904  REAL(KIND=jprb)               :: zhook_handle 
     905 
     906  CHARACTER(LEN=*), PARAMETER :: RoutineName='CONSTANTS' 
     907 
     908  IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     909 
    783910 
    784911! Set defaults for optional arguments (in Fortran 90) 
    … …  
    11901317  END DO 
    11911318 
     1319  IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 
    11921320  RETURN 
     1321  IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    11931322END SUBROUTINE constants 
    11941323 
    … …  
    12481377  USE mocsy_singledouble 
    12491378  USE mocsy_phsolvers 
     1379 
     1380  USE yomhook, ONLY: lhook, dr_hook 
     1381  USE parkind1, ONLY: jprb, jpim 
    12501382 
    12511383  IMPLICIT NONE 
    … …  
    13401472! Array to pass optional arguments 
    13411473  CHARACTER(7) :: opGAS 
     1474  INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     1475  INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     1476  REAL(KIND=jprb)               :: zhook_handle 
     1477 
     1478  CHARACTER(LEN=*), PARAMETER :: RoutineName='VARSOLVER' 
     1479 
     1480  IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     1481 
    13421482 
    13431483  IF (PRESENT(optGAS)) THEN 
    … …  
    14411581  OmegaC = (Ca*cc) / Kspc 
    14421582 
     1583  IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 
    14431584  RETURN 
     1585  IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    14441586END SUBROUTINE varsolver 
    14451587 
    … …  
    15511693  USE mocsy_singledouble 
    15521694 
     1695  USE yomhook, ONLY: lhook, dr_hook 
     1696  USE parkind1, ONLY: jprb, jpim 
     1697 
    15531698  IMPLICIT NONE 
    15541699 
    … …  
    16711816  CHARACTER(3) :: opK1K2 
    16721817  CHARACTER(7) :: opGAS 
     1818  INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     1819  INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     1820  REAL(KIND=jprb)               :: zhook_handle 
     1821 
     1822  CHARACTER(LEN=*), PARAMETER :: RoutineName='VARS' 
     1823 
     1824  IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     1825 
    16731826 
    16741827! Set defaults for optional arguments (in Fortran 90) 
    … …  
    19242077  END DO 
    19252078 
     2079  IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 
    19262080  RETURN 
     2081  IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    19272082END SUBROUTINE vars 
    19282083 
    … …  
    19402095 
    19412096  USE mocsy_singledouble 
     2097  USE yomhook, ONLY: lhook, dr_hook 
     2098  USE parkind1, ONLY: jprb, jpim 
     2099 
    19422100  IMPLICIT NONE 
    19432101 
    … …  
    19652123 
    19662124  INTEGER :: i 
     2125  INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     2126  INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     2127  REAL(KIND=jprb)               :: zhook_handle 
     2128 
     2129  CHARACTER(LEN=*), PARAMETER :: RoutineName='P2FCO2' 
     2130 
     2131  IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     2132 
    19672133 
    19682134! REAL(kind=wp) :: sw_ptmp 
    … …  
    19902156  END DO 
    19912157 
     2158  IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 
    19922159  RETURN 
     2160  IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    19932161END SUBROUTINE p2fCO2 
    19942162 
    … …  
    20062174 
    20072175  USE mocsy_singledouble 
     2176  USE yomhook, ONLY: lhook, dr_hook 
     2177  USE parkind1, ONLY: jprb, jpim 
     2178 
    20082179  IMPLICIT NONE 
    20092180 
    … …  
    20312202 
    20322203  INTEGER :: i 
     2204  INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     2205  INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     2206  REAL(KIND=jprb)               :: zhook_handle 
     2207 
     2208  CHARACTER(LEN=*), PARAMETER :: RoutineName='F2PCO2' 
     2209 
     2210  IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     2211 
    20332212 
    20342213! REAL(kind=wp) :: sw_ptmp 
    … …  
    20562235  END DO 
    20572236 
     2237  IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 
    20582238  RETURN 
     2239  IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    20592240END SUBROUTINE f2pCO2 
    20602241 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/MEDUSA/mocsy_phsolvers.F90

    r5841 r11738  
    1717 
    1818USE mocsy_singledouble 
     19USE yomhook, ONLY: lhook, dr_hook 
     20USE parkind1, ONLY: jprb, jpim 
     21 
    1922IMPLICIT NONE 
    2023 
    … …  
    5457 
    5558USE mocsy_singledouble 
     59USE yomhook, ONLY: lhook, dr_hook 
     60USE parkind1, ONLY: jprb, jpim 
     61 
    5662IMPLICIT NONE 
    5763 
    … …  
    6773REAL(KIND=wp), INTENT(OUT) :: p_alknw_inf 
    6874REAL(KIND=wp), INTENT(OUT) :: p_alknw_sup 
     75INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     76INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     77REAL(KIND=jprb)               :: zhook_handle 
     78 
     79CHARACTER(LEN=*), PARAMETER :: RoutineName='ANW_INFSUP' 
     80 
     81IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     82 
    6983 
    7084p_alknw_inf =  -p_po4tot - p_so4tot - p_flutot 
    … …  
    7387!             + p_nh4tot + p_h2stot 
    7488 
     89IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 
    7590RETURN 
     91IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    7692END SUBROUTINE anw_infsup 
    7793 
    … …  
    85101 
    86102USE mocsy_singledouble 
     103USE yomhook, ONLY: lhook, dr_hook 
     104USE parkind1, ONLY: jprb, jpim 
     105 
    87106IMPLICIT NONE 
    88107REAL(KIND=wp) :: equation_at 
    … …  
    115134REAL(KIND=wp) ::                                      zalk_wat, zdalk_wat 
    116135REAL(KIND=wp) :: aphscale 
     136INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     137INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     138REAL(KIND=jprb)               :: zhook_handle 
     139 
     140CHARACTER(LEN=*), PARAMETER :: RoutineName='EQUATION_AT' 
     141 
     142IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     143 
    117144 
    118145! TOTAL H+ scale: conversion factor for Htot = aphscale * Hfree 
    … …  
    212239                - Kw/p_h**2 - 1._wp/aphscale 
    213240ENDIF 
     241IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 
    214242RETURN 
     243IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    215244END FUNCTION equation_at 
    216245 
    … …  
    231260 
    232261USE mocsy_singledouble 
     262USE yomhook, ONLY: lhook, dr_hook 
     263USE parkind1, ONLY: jprb, jpim 
     264 
    233265IMPLICIT NONE 
    234266 
    … …  
    244276REAL(KIND=wp)  ::  zd, zsqrtd, zhmin 
    245277REAL(KIND=wp)  ::  za2, za1, za0 
     278INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     279INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     280REAL(KIND=jprb)               :: zhook_handle 
     281 
     282CHARACTER(LEN=*), PARAMETER :: RoutineName='AHINI_FOR_AT' 
     283 
     284IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     285 
    246286 
    247287IF (p_alkcb <= 0._wp) THEN 
    … …  
    274314 
    275315ENDIF 
     316IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 
    276317RETURN 
     318IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    277319END SUBROUTINE ahini_for_at 
    278320 
    … …  
    289331 
    290332USE mocsy_singledouble 
     333USE yomhook, ONLY: lhook, dr_hook 
     334USE parkind1, ONLY: jprb, jpim 
     335 
    291336IMPLICIT NONE 
    292337REAL(KIND=wp) :: SOLVE_AT_GENERAL 
    … …  
    318363LOGICAL        :: l_exitnow 
    319364REAL(KIND=wp), PARAMETER :: pz_exp_threshold = 1.0_wp 
     365INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     366INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     367REAL(KIND=jprb)               :: zhook_handle 
     368 
     369CHARACTER(LEN=*), PARAMETER :: RoutineName='SOLVE_AT_GENERAL' 
     370 
     371IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     372 
    320373 
    321374! TOTAL H+ scale: conversion factor for Htot = aphscale * Hfree 
    … …  
    477530   ENDIF 
    478531ENDIF 
     532IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 
    479533RETURN 
     534IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    480535END FUNCTION solve_at_general 
    481536 
    … …  
    493548!USE MOD_CHEMCONST, ONLY: api1_wat, aphscale 
    494549USE mocsy_singledouble 
     550USE yomhook, ONLY: lhook, dr_hook 
     551USE parkind1, ONLY: jprb, jpim 
     552 
    495553IMPLICIT NONE 
    496554REAL(KIND=wp) :: SOLVE_AT_GENERAL_SEC 
    … …  
    519577REAL(KIND=wp)  ::  aphscale 
    520578LOGICAL        ::  l_exitnow 
     579INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     580INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     581REAL(KIND=jprb)               :: zhook_handle 
     582 
     583CHARACTER(LEN=*), PARAMETER :: RoutineName='SOLVE_AT_GENERAL_SEC' 
     584 
     585IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     586 
    521587 
    522588! TOTAL H+ scale: conversion factor for Htot = aphscale * Hfree 
    … …  
    590656   solve_at_general_sec = zh_2 
    591657   IF(PRESENT(p_val)) p_val = zeqn_2 
     658IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 
    592659   RETURN 
    593660ENDIF 
    … …  
    747814ENDIF 
    748815 
     816IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 
    749817RETURN 
     818IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    750819END FUNCTION SOLVE_AT_GENERAL_SEC 
    751820 
    … …  
    761830 
    762831USE mocsy_singledouble 
     832USE yomhook, ONLY: lhook, dr_hook 
     833USE parkind1, ONLY: jprb, jpim 
     834 
    763835IMPLICIT NONE 
    764836REAL(KIND=wp) :: SOLVE_AT_FAST 
    … …  
    786858LOGICAL        :: l_exitnow 
    787859REAL(KIND=wp), PARAMETER :: pz_exp_threshold = 1.0_wp 
     860INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     861INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     862REAL(KIND=jprb)               :: zhook_handle 
     863 
     864CHARACTER(LEN=*), PARAMETER :: RoutineName='SOLVE_AT_FAST' 
     865 
     866IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     867 
    788868 
    789869! TOTAL H+ scale: conversion factor for Htot = aphscale * Hfree 
    … …  
    854934ENDIF 
    855935 
     936IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 
    856937RETURN 
     938IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    857939END FUNCTION solve_at_fast 
    858940!=============================================================================== 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/MEDUSA/mocsy_wrapper.F90

    r7894 r11738  
    1818   USE mocsy_gasflux 
    1919   USE in_out_manager  ! I/O manager 
     20 
     21   USE yomhook, ONLY: lhook, dr_hook 
     22   USE parkind1, ONLY: jprb, jpim 
    2023 
    2124   IMPLICIT NONE 
    … …  
    7174! 
    7275        USE mocsy_singledouble 
     76        USE yomhook, ONLY: lhook, dr_hook 
     77        USE parkind1, ONLY: jprb, jpim 
     78 
    7379        IMPLICIT NONE 
    7480 
    … …  
    100106   REAL(kind=wp), DIMENSION(N) :: mpco2atm, mfco2atm, mschmidtco2, mkwco2, mK0 
    101107   REAL(kind=wp), DIMENSION(N) :: mco2starair, mco2flux, mdpco2 
     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='MOCSY_INTERFACE' 
     113 
     114   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     115 
    102116! 
    103117!> ---------------------------------------------------------------------- 
    … …  
    153167      dpco2      = mdpco2(1)              ! uatm 
    154168 
     169   IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 
    155170  RETURN 
    156171 
     172   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    157173  END SUBROUTINE 
    158174 
    … …  
    235251! 
    236252        USE mocsy_singledouble 
     253        USE yomhook, ONLY: lhook, dr_hook 
     254        USE parkind1, ONLY: jprb, jpim 
     255 
    237256        IMPLICIT NONE 
    238257 
    … …  
    258277!  "vars" Input options 
    259278   CHARACTER(10) :: optCON, optT, optP, optB, optKf, optK1K2 
     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='MOCSY_CARBCHEM' 
     284 
     285   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     286 
    260287!    
    261288!  initialise depth0 to 0 
    … …  
    327354   endif 
    328355 
     356   IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 
    329357  RETURN 
    330358 
     359   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    331360  END SUBROUTINE 
    332361 
    … …  
    347376 
    348377      INTEGER, INTENT( in ) ::   kt 
     378      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     379      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     380      REAL(KIND=jprb)               :: zhook_handle 
     381 
     382      CHARACTER(LEN=*), PARAMETER :: RoutineName='MOCSY_INTERFACE' 
     383 
     384      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     385 
    349386 
    350387      WRITE(*,*) 'mocsy_interface: You should not have seen this print! error?', kt 
    351388 
     389      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    352390   END SUBROUTINE mocsy_interface 
    353391#endif  

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/MEDUSA/par_medusa.F90

    r10047 r11738  
    2020   USE par_pisces , ONLY : jp_pisces_3d    !: number of 3D diag in PISCES 
    2121   USE par_pisces , ONLY : jp_pisces_trd   !: number of biological diag in PISCES 
     22 
     23   USE yomhook, ONLY: lhook, dr_hook 
     24   USE parkind1, ONLY: jprb, jpim 
    2225 
    2326   IMPLICIT NONE 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/MEDUSA/phytoplankton.F90

    r10047 r11738  
    1212   !!                                                   MEDUSA bio-model 
    1313   !!---------------------------------------------------------------------- 
     14 
     15   USE yomhook, ONLY: lhook, dr_hook 
     16   USE parkind1, ONLY: jprb, jpim 
    1417 
    1518   IMPLICIT NONE 
    … …  
    8184      REAL(wp)                     :: fsin1, fnsi1, fnsi2 
    8285      REAL(wp)                     :: fq0 
     86      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     87      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     88      REAL(KIND=jprb)               :: zhook_handle 
     89 
     90      CHARACTER(LEN=*), PARAMETER :: RoutineName='PHYTOPLANKTON' 
     91 
     92      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     93 
    8394 
    8495      DO jj = 2,jpjm1 
    … …  
    459470      ENDDO 
    460471 
     472      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    461473   END SUBROUTINE phytoplankton 
    462474 
    … …  
    467479CONTAINS 
    468480   SUBROUTINE phytoplankton( )                    ! Empty routine 
     481   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     482   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     483   REAL(KIND=jprb)               :: zhook_handle 
     484 
     485   CHARACTER(LEN=*), PARAMETER :: RoutineName='PHYTOPLANKTON' 
     486 
     487   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     488 
    469489      WRITE(*,*) 'phytoplankton: You should not have seen this print! error?' 
     490   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    470491   END SUBROUTINE phytoplankton 
    471492#endif  

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/MEDUSA/plankton.F90

    r10045 r11738  
    1111   !!                                                   MEDUSA bio-model 
    1212   !!---------------------------------------------------------------------- 
     13 
     14   USE yomhook, ONLY: lhook, dr_hook 
     15   USE parkind1, ONLY: jprb, jpim 
    1316 
    1417   IMPLICIT NONE 
    … …  
    5053 
    5154      INTEGER :: ji, jj 
     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='PLANKTON' 
     60 
     61      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     62 
    5263 
    5364      !!------------------------------------------------------------------- 
    … …  
    188199      ENDDO 
    189200 
     201      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    190202   END SUBROUTINE plankton 
    191203 
    … …  
    196208CONTAINS 
    197209   SUBROUTINE plankton( )                    ! Empty routine 
     210   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     211   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     212   REAL(KIND=jprb)               :: zhook_handle 
     213 
     214   CHARACTER(LEN=*), PARAMETER :: RoutineName='PLANKTON' 
     215 
     216   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     217 
    198218      WRITE(*,*) 'plankton: You should not have seen this print! error?' 
     219   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    199220   END SUBROUTINE plankton 
    200221#endif  

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/MEDUSA/sms_medusa.F90

    r9385 r11738  
    2222   USE par_oce 
    2323   USE par_trc 
     24 
     25   USE yomhook, ONLY: lhook, dr_hook 
     26   USE parkind1, ONLY: jprb, jpim 
    2427 
    2528   IMPLICIT NONE 
    … …  
    362365      USE lib_mpp , ONLY: ctl_warn 
    363366      INTEGER ::   ierr(8)        ! Local variables 
     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='SMS_MEDUSA_ALLOC' 
     372 
     373      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     374 
    364375      !!---------------------------------------------------------------------- 
    365376      ierr(:) = 0 
    … …  
    425436      IF( sms_medusa_alloc /= 0 )   CALL ctl_warn('sms_medusa_alloc: failed to allocate arrays') 
    426437      ! 
     438      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    427439   END FUNCTION sms_medusa_alloc 
    428440 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcavg_medusa.F90

    r8074 r11738  
    1818      USE prtctl_trc      ! Print control for debugging 
    1919      USE in_out_manager  ! I/O manager 
     20 
     21      USE yomhook, ONLY: lhook, dr_hook 
     22      USE parkind1, ONLY: jprb, jpim 
    2023 
    2124      IMPLICIT NONE 
    … …  
    5760!======================================================================= 
    5861! 
     62      USE yomhook, ONLY: lhook, dr_hook 
     63      USE parkind1, ONLY: jprb, jpim 
     64 
    5965      IMPLICIT NONE 
    6066! 
    6167      INTEGER, INTENT( in ) ::   kt   ! index of the time stepping 
     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='TRC_AVG_MEDUSA' 
     73 
     74      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     75 
    6276!  
    6377!======================================================================= 
    … …  
    97111      zb_dms_din(:,:) = zn_dms_din(:,:) 
    98112 
     113      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    99114  END SUBROUTINE trc_avg_medusa 
    100115 
    … …  
    116131! 
    117132      INTEGER, INTENT( in ) ::   kt 
     133      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     134      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     135      REAL(KIND=jprb)               :: zhook_handle 
     136 
     137      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_AVG_MEDUSA' 
     138 
     139      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     140 
    118141! 
    119142 
    120143      WRITE(*,*) 'trc_avg_medusa: You should not have seen this print! error?' 
    121144 
     145      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    122146   END SUBROUTINE trc_avg_medusa 
    123147#endif 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcbio_medusa.F90

    r10047 r11738  
    130130      USE trcstat,                    ONLY: trc_rst_dia_stat 
    131131 
     132      USE yomhook, ONLY: lhook, dr_hook 
     133      USE parkind1, ONLY: jprb, jpim 
     134 
    132135      IMPLICIT NONE 
    133136      PRIVATE 
    … …  
    203206      INTEGER  ::    summask 
    204207      CHARACTER(40) :: charout, charout2, charout3, charout4, charout5 
     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='TRC_BIO_MEDUSA' 
     213 
     214      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     215 
    205216      !! 
    206217      !!------------------------------------------------------------------ 
    … …  
    824835# endif 
    825836 
     837      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    826838   END SUBROUTINE trc_bio_medusa 
    827839 
    … …  
    848860      CHARACTER(60) :: charout3, charout4 
    849861      INTEGER       :: ii,ij 
     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='TRC_BIO_EXCEPTIONNAL_FIX' 
     867 
     868      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     869 
    850870     
    851871      !! point to the center of the 3*3 zoom-grid, to check around 
    … …  
    9139339200  FORMAT(e16.6) 
    914934 
     935      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    915936   END SUBROUTINE trc_bio_exceptionnal_fix  
    916937 
    … …  
    930951      INTEGER, DIMENSION(2) :: ilocs         !  
    931952      INTEGER, INTENT( in ) :: kt, jk 
     953      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     954      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     955      REAL(KIND=jprb)               :: zhook_handle 
     956 
     957      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_BIO_CHECK' 
     958 
     959      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     960 
    932961      !! 
    933962      !!========================== 
    … …  
    103510649900  FORMAT ('trc_bio:tracer anomaly: kt=',i6,' min ALK: ',f16.10,', i j k: ',3i5) 
    10361065 
     1066      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    10371067   END SUBROUTINE trc_bio_check 
    10381068 
    … …  
    10441074CONTAINS 
    10451075   SUBROUTINE trc_bio_medusa( kt )                   ! Empty routine 
     1076      USE yomhook, ONLY: lhook, dr_hook 
     1077      USE parkind1, ONLY: jprb, jpim 
     1078 
    10461079      IMPLICIT NONE 
    10471080      INTEGER, INTENT( in ) ::   kt 
     1081      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     1082      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     1083      REAL(KIND=jprb)               :: zhook_handle 
     1084 
     1085      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_BIO_MEDUSA' 
     1086 
     1087      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     1088 
    10481089      WRITE(*,*) 'trc_bio_medusa: You should not have seen this print! error?', kt 
     1090      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    10491091   END SUBROUTINE trc_bio_medusa 
    10501092#endif  

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcco2_medusa.F90

    r5841 r11738  
    1919      USE prtctl_trc      ! Print control for debugging 
    2020      USE in_out_manager  ! I/O manager 
     21 
     22      USE yomhook, ONLY: lhook, dr_hook 
     23      USE parkind1, ONLY: jprb, jpim 
    2124 
    2225      IMPLICIT NONE 
    … …  
    8083!     - making alkalinity a state variable (rather than a function of salinity) 
    8184! 
     85      USE yomhook, ONLY: lhook, dr_hook 
     86      USE parkind1, ONLY: jprb, jpim 
     87 
    8288      IMPLICIT NONE 
    8389 
    … …  
    107113!     REAL(wp) :: cco2,bicarb,carb,henry 
    108114      REAL(wp) :: cco2,bicarb,carb 
     115      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     116      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     117      REAL(KIND=jprb)               :: zhook_handle 
     118 
     119      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_CO2_MEDUSA' 
     120 
     121      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     122 
    109123! ====================================================================== 
    110124 
    … …  
    202216!  WRITE(*,*) " " 
    203217 
     218      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    204219   END SUBROUTINE trc_co2_medusa 
    205220!----------------------------------------------------------------------- 
    … …  
    217232!======================================================================= 
    218233!   
     234   USE yomhook, ONLY: lhook, dr_hook 
     235   USE parkind1, ONLY: jprb, jpim 
     236 
    219237   IMPLICIT NONE 
    220238 
    … …  
    242260      REAL(wp) :: ca, bc, cb 
    243261      REAL(wp) :: pco2water, fairco2 
     262      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     263      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     264      REAL(KIND=jprb)               :: zhook_handle 
     265 
     266      CHARACTER(LEN=*), PARAMETER :: RoutineName='CO2_DYNAMICS' 
     267 
     268      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     269 
    244270 
    245271! ====================================================================== 
    … …  
    279305          om_cal, om_arg )                        ! outputs 
    280306 
     307      IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 
    281308   RETURN 
    282309 
     310      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    283311   END SUBROUTINE CO2_dynamics 
    284312!----------------------------------------------------------------------- 
    … …  
    314342!           +ve is in-gassing (air to sea), -ve is outgassing (sea to air). 
    315343 
     344   USE yomhook, ONLY: lhook, dr_hook 
     345   USE parkind1, ONLY: jprb, jpim 
     346 
    316347   IMPLICIT NONE 
    317348 
    … …  
    321352!----------------------------------------------------------------------- 
    322353      REAL(wp)                  :: sc, fwind                        ! LOCAL VARIABLES: 
     354      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     355      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     356      REAL(KIND=jprb)               :: zhook_handle 
     357 
     358      CHARACTER(LEN=*), PARAMETER :: RoutineName='AIR_SEA_EXCHANGE' 
     359 
     360      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     361 
    323362 
    324363! calculate the Schmidt number and unit conversions 
    … …  
    335374          flux = flux / ( 86400. ) 
    336375 
     376      IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 
    337377  RETURN  
    338378 
     379      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    339380  END SUBROUTINE Air_sea_exchange 
    340381!----------------------------------------------------------------------- 
    … …  
    364405      REAL(wp), DIMENSION(MKVAL) :: AKVAL 
    365406      REAL(wp), DIMENSION(MCONC) :: CONCS 
     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='CO2DYN' 
     412 
     413      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     414 
    366415 
    367416      ICONST = 6 
    … …  
    394443      HENRY = AKVAL(1) 
    395444     
     445      IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 
    396446      RETURN 
    397447 
     448      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    398449      END SUBROUTINE 
    399450!----------------------------------------------------------------------- 
    … …  
    468519      REAL(wp), DIMENSION(NKVAL) :: AKVAL 
    469520      REAL(wp), DIMENSION(NCONC) :: CONCS 
     521      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     522      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     523      REAL(KIND=jprb)               :: zhook_handle 
     524 
     525      CHARACTER(LEN=*), PARAMETER :: RoutineName='POLYCO' 
     526 
     527      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     528 
    470529 
    471530      P = PD 
    … …  
    540599     & CALL CO2CLC(CONCS,NCONC,AKVAL,NKVAL,ICALC,BORON,BTOT,iters) 
    541600 
     601      IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 
    542602      RETURN 
    543603 
     604      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    544605      END SUBROUTINE 
    545606!----------------------------------------------------------------------- 
    … …  
    632693      DATA (B2(3,ICON),ICON=1,MAXCON) /3*0.0D0/ 
    633694      DATA (B2(4,ICON),ICON=1,MAXCON) /3*0.0D0/ 
     695      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     696      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     697      REAL(KIND=jprb)               :: zhook_handle 
     698 
     699      CHARACTER(LEN=*), PARAMETER :: RoutineName='CO2SET' 
     700 
     701      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     702 
    634703 
    635704      TK=T+273.15D0 
    … …  
    693762      END IF ! section implimenting OCMIP coefficients 
    694763 
     764      IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 
    695765      RETURN 
     766      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    696767      END SUBROUTINE 
    697768!----------------------------------------------------------------------- 
    … …  
    731802! setup array to store old values of concs 
    732803      real(wp),DIMENSION(:) :: old_CONCS(NCONC) 
     804      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     805      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     806      REAL(KIND=jprb)               :: zhook_handle 
     807 
     808      CHARACTER(LEN=*), PARAMETER :: RoutineName='CO2CLC' 
     809 
     810      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     811 
    733812! AXY (07/05/13) ================================================== 
    734813 
    … …  
    10151094 
    10161095 
     1096      IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 
    10171097      RETURN 
    10181098 
     1099      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    10191100      END SUBROUTINE 
    10201101!----------------------------------------------------------------------- 
    … …  
    10551136!======================================================================= 
    10561137 
     1138        USE yomhook, ONLY: lhook, dr_hook 
     1139        USE parkind1, ONLY: jprb, jpim 
     1140 
    10571141        IMPLICIT None 
    10581142        REAL(wp), INTENT( in )    :: Tc, S, D, CO3 
    … …  
    10631147        REAL(wp) :: tmp1, tmp2, tmp3 
    10641148        REAL(wp) :: dV, dK, P, R 
     1149        INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     1150        INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     1151        REAL(KIND=jprb)               :: zhook_handle 
     1152 
     1153        CHARACTER(LEN=*), PARAMETER :: RoutineName='CACO3_SATURATION' 
     1154 
     1155        IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     1156 
    10651157                
    10661158! setup 
    … …  
    11081200        Om_arg = (CO3 * Ca) / Kspa 
    11091201       
     1202        IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 
    11101203      RETURN 
    11111204 
     1205        IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    11121206      END SUBROUTINE 
    11131207!----------------------------------------------------------------------- 
    … …  
    11271221 
    11281222      INTEGER, INTENT( in ) ::   kt 
     1223      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     1224      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     1225      REAL(KIND=jprb)               :: zhook_handle 
     1226 
     1227      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_CO2_MEDUSA' 
     1228 
     1229      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     1230 
    11291231 
    11301232      WRITE(*,*) 'trc_co2_medusa: You should not have seen this print! error?', kt 
    11311233 
     1234      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    11321235   END SUBROUTINE trc_co2_medusa 
    11331236#endif  

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcctl_medusa.F90

    r10045 r11738  
    1818   USE par_medusa 
    1919    
     20   USE yomhook, ONLY: lhook, dr_hook 
     21   USE parkind1, ONLY: jprb, jpim 
     22 
    2023   IMPLICIT NONE 
    2124   PRIVATE 
    … …  
    3336 
    3437   SUBROUTINE trc_ctl_medusa 
     38   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     39   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     40   REAL(KIND=jprb)               :: zhook_handle 
     41 
     42   CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_CTL_MEDUSA' 
     43 
     44   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     45 
    3546      !!---------------------------------------------------------------------- 
    3647      !!                     ***  ROUTINE trc_ctl_medusa  *** 
    … …  
    8192# endif 
    8293 
     94   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    8395   END SUBROUTINE trc_ctl_medusa 
    8496 
    … …  
    89101CONTAINS 
    90102   SUBROUTINE trc_ctl_medusa               ! Dummy routine 
     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='TRC_CTL_MEDUSA' 
     108 
     109   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     110 
     111   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    91112   END SUBROUTINE trc_ctl_medusa 
    92113#endif 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcdms_medusa.F90

    r10196 r11738  
    2222      USE in_out_manager  ! I/O manager 
    2323 
     24      USE yomhook, ONLY: lhook, dr_hook 
     25      USE parkind1, ONLY: jprb, jpim 
     26 
    2427      IMPLICIT NONE 
    2528      PRIVATE 
    … …  
    8588      !! 
    8689!======================================================================= 
     90 
     91      USE yomhook, ONLY: lhook, dr_hook 
     92      USE parkind1, ONLY: jprb, jpim 
    8793 
    8894      IMPLICIT NONE 
    … …  
    104110      !! temporary variables 
    105111      REAL(wp) ::    fq1,fq2,fq3 
     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='TRC_DMS_MEDUSA' 
     117 
     118      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     119 
    106120!  
    107121!======================================================================= 
    … …  
    172186        endif 
    173187 
     188      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    174189   END SUBROUTINE trc_dms_medusa 
    175190 
    … …  
    234249!--------------------------------------------------------------------- 
    235250 
     251      USE yomhook, ONLY: lhook, dr_hook 
     252      USE parkind1, ONLY: jprb, jpim 
     253 
    236254      IMPLICIT NONE 
    237255! 
    … …  
    252270      REAL     :: n      ! Schmidt number exponent 
    253271      REAL, PARAMETER :: t_max = 47.0  !! Max T to avoid breaking the Sc fit (C) 
     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='DMS_FLUX_OCN' 
     277 
     278      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     279 
    254280 
    255281! Calculate the Schmidt number (Sc): 
    … …  
    300326      f_dms = (k_dms / 3.6e5) * (dms_conc * 32.0e-9) 
    301327 
     328      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    302329   END SUBROUTINE dms_flux_ocn 
    303330 
    … …  
    320347! 
    321348      INTEGER, INTENT( in ) ::   kt 
     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='TRC_DMS_MEDUSA' 
     354 
     355      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     356 
    322357! 
    323358 
    324359      WRITE(*,*) 'trc_dms_medusa: You should not have seen this print! error?' 
    325360 
     361      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    326362   END SUBROUTINE trc_dms_medusa 
    327363#endif 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcini_medusa.F90

    r10045 r11738  
    3232 
    3333 
     34   USE yomhook, ONLY: lhook, dr_hook 
     35   USE parkind1, ONLY: jprb, jpim 
     36 
    3437   IMPLICIT NONE 
    3538   PRIVATE 
    … …  
    7780      !! AXY (04/11/13): add in temporary variables for checks 
    7881      REAL(wp)           :: fq0, fq1, fq2 
     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='TRC_INI_MEDUSA' 
     87 
     88      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     89 
    7990 
    8091      IF(lwp) WRITE(numout,*) 
    … …  
    341352      ENDIF 
    342353 
     354      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    343355   END SUBROUTINE trc_ini_medusa 
    344356 
    … …  
    362374      !! * arguments 
    363375      INTEGER, INTENT( in  ) ::   kt   ! ocean time step 
     376      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     377      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     378      REAL(KIND=jprb)               :: zhook_handle 
     379 
     380      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_INI_MEDUSA_CCD' 
     381 
     382      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     383 
    364384 
    365385      !!--------------------------------------------------------------------- 
    … …  
    396416      ENDIF 
    397417  
     418      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    398419   END SUBROUTINE trc_ini_medusa_ccd 
    399420 
    … …  
    417438      !! * arguments 
    418439      INTEGER, INTENT( in  ) ::   kt   ! ocean time step 
     440      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     441      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     442      REAL(KIND=jprb)               :: zhook_handle 
     443 
     444      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_INI_MEDUSA_RIVER' 
     445 
     446      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     447 
    419448 
    420449      !!--------------------------------------------------------------------- 
    … …  
    494523      IF(lwp) CALL flush(numout) 
    495524 
     525      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    496526   END SUBROUTINE trc_ini_medusa_river 
    497527    
    … …  
    508538      REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:)   ::   zyy !: xCO2 record years 
    509539      CHARACTER (len=10), PARAMETER ::  clname = 'xco2.atm'  !! atm CO2 record file 
     540      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     541      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     542      REAL(KIND=jprb)               :: zhook_handle 
     543 
     544      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_INI_MEDUSA_CO2ATM' 
     545 
     546      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     547 
    510548      !!---------------------------------------------------------------------- 
    511549 
    … …  
    534572        CALL ctl_stop('trc_ini_medusa_co2atm: & 
    535573                      & Error on the 1st reading of xco2.atm') 
     574      IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 
    536575        RETURN 
    537576      ENDIF 
    … …  
    543582      IF( ierr > 0 ) THEN 
    544583         CALL ctl_stop( 'trc_ini_medusa_co2atm: unable to allocate  array' )   
     584      IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 
    545585         RETURN 
    546586      ENDIF 
    … …  
    560600          CALL ctl_stop('trc_ini_medusa_co2atm: & 
    561601                        & Error on the 2nd reading of xco2.atm') 
     602      IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 
    562603          RETURN 
    563604        ENDIF 
    … …  
    577618      ENDIF 
    578619 
     620      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    579621   END SUBROUTINE trc_ini_medusa_co2atm 
    580622 
    … …  
    586628CONTAINS 
    587629   SUBROUTINE trc_ini_medusa             ! Empty routine 
     630   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     631   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     632   REAL(KIND=jprb)               :: zhook_handle 
     633 
     634   CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_INI_MEDUSA' 
     635 
     636   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     637 
     638   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    588639   END SUBROUTINE trc_ini_medusa 
    589640#endif 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcnam_medusa.F90

    r10196 r11738  
    3030   !! AXY (04/02/14): necessary to find NaNs on HECTOR 
    3131   USE, INTRINSIC :: ieee_arithmetic  
     32 
     33   USE yomhook, ONLY: lhook, dr_hook 
     34   USE parkind1, ONLY: jprb, jpim 
    3235 
    3336   IMPLICIT NONE 
    … …  
    97100      INTEGER :: ios                 ! Local integer output status for namelist read 
    98101      CHARACTER(LEN=32)   ::   clname 
     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='TRC_NAM_MEDUSA' 
     107 
     108      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     109 
    99110      !! 
    100111      !!---------------------------------------------------------------------- 
    … …  
    11321143       ENDIF 
    11331144 
     1145      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    11341146   END SUBROUTINE trc_nam_medusa 
    11351147    
    11361148   SUBROUTINE trc_nam_iom_medusa 
     1149   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     1150   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     1151   REAL(KIND=jprb)               :: zhook_handle 
     1152 
     1153   CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_NAM_IOM_MEDUSA' 
     1154 
     1155   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     1156 
    11371157      !!--------------------------------------------------------------------- 
    11381158      !!                     ***  ROUTINE trc_nam_iom_medusa  *** 
    … …  
    24912511# endif       
    24922512       
     2513   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    24932514   END SUBROUTINE   trc_nam_iom_medusa 
    24942515    
    … …  
    24992520CONTAINS 
    25002521   SUBROUTINE trc_nam_medusa                      ! Empty routine 
     2522   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     2523   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     2524   REAL(KIND=jprb)               :: zhook_handle 
     2525 
     2526   CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_NAM_MEDUSA' 
     2527 
     2528   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     2529 
     2530   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    25012531   END  SUBROUTINE  trc_nam_medusa 
    25022532#endif   

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcopt_medusa.F90

    r10045 r11738  
    2525   USE prtctl_trc      ! Print control for debbuging 
    2626   USE sms_medusa 
     27 
     28   USE yomhook, ONLY: lhook, dr_hook 
     29   USE parkind1, ONLY: jprb, jpim 
    2730 
    2831   IMPLICIT NONE 
    … …  
    6265 
    6366      CHARACTER (len=25) :: charout 
     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='TRC_OPT_MEDUSA' 
     72 
     73      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     74 
    6475      !!--------------------------------------------------------------------- 
    6576 
    … …  
    173184      ENDIF 
    174185 
     186      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    175187   END SUBROUTINE trc_opt_medusa 
    176188 
    … …  
    182194   SUBROUTINE trc_opt_medusa( kt )                   ! Empty routine 
    183195      INTEGER, INTENT( in ) ::   kt 
     196      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     197      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     198      REAL(KIND=jprb)               :: zhook_handle 
     199 
     200      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_OPT_MEDUSA' 
     201 
     202      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     203 
    184204      WRITE(*,*) 'trc_opt_medusa: You should not have seen this print! error?', kt 
     205      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    185206   END SUBROUTINE trc_opt_medusa 
    186207#endif  

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcoxy_medusa.F90

    r7254 r11738  
    1818      USE lbclnk 
    1919      USE prtctl_trc      ! Print control for debugging 
     20 
     21      USE yomhook, ONLY: lhook, dr_hook 
     22      USE parkind1, ONLY: jprb, jpim 
    2023 
    2124      IMPLICIT NONE 
    … …  
    7679!======================================================================= 
    7780 
     81      USE yomhook, ONLY: lhook, dr_hook 
     82      USE parkind1, ONLY: jprb, jpim 
     83 
    7884      implicit none 
    7985! 
    … …  
    8692! 
    8793      REAL(wp) :: o2schmidt, o2sato, mol_o2 
     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='TRC_OXY_MEDUSA' 
     99 
     100      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     101 
    88102! 
    89103! Oxygen to mol / m3 
    … …  
    113127      o2flux = o2flux * 1000. 
    114128! 
     129      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    115130      END SUBROUTINE trc_oxy_medusa 
    116131 
    … …  
    150165      !! 
    151166!======================================================================= 
     167 
     168      USE yomhook, ONLY: lhook, dr_hook 
     169      USE parkind1, ONLY: jprb, jpim 
    152170 
    153171      implicit none 
    … …  
    168186      data a3 /   -0.10939 / 
    169187      data a4 / 0.00093777 / 
     188      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     189      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     190      REAL(KIND=jprb)               :: zhook_handle 
     191 
     192      CHARACTER(LEN=*), PARAMETER :: RoutineName='OXY_SCHMIDT' 
     193 
     194      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     195 
    170196! 
    171197!     o2_schmidt = a0 + pt*(a1 + pt*(a2 + pt*a3)) 
    172198      o2_schmidt = a0 + pt*(a1 + pt*(a2 + pt*(a3 + pt*a4))) 
    173199! 
     200      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    174201      END SUBROUTINE oxy_schmidt 
    175202 
    … …  
    205232      !! 
    206233!======================================================================= 
     234 
     235      USE yomhook, ONLY: lhook, dr_hook 
     236      USE parkind1, ONLY: jprb, jpim 
    207237 
    208238      implicit none 
    … …  
    230260! 
    231261      data c0 / -4.88682E-7 / 
     262      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     263      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     264      REAL(KIND=jprb)               :: zhook_handle 
     265 
     266      CHARACTER(LEN=*), PARAMETER :: RoutineName='OXY_SATO' 
     267 
     268      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     269 
    232270!      
    233271      tt   = 298.15 - pt 
    … …  
    247285      o2_sato = (ans2 / 22391.6) * 1000.0 
    248286! 
     287      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    249288      END SUBROUTINE oxy_sato 
    250289 
    … …  
    270309      REAL(wp), INTENT( in )    :: o2 
    271310      REAL(wp), INTENT( inout ) :: o2flux, o2sat 
     311      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     312      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     313      REAL(KIND=jprb)               :: zhook_handle 
     314 
     315      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_OXY_MEDUSA' 
     316 
     317      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     318 
    272319 
    273320      WRITE(*,*) 'trc_oxy_medusa: You should not have seen this print! error?', kt 
    274321 
     322      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    275323   END SUBROUTINE trc_oxy_medusa 
    276324#endif 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcsed_medusa.F90

    r10045 r11738  
    4242 
    4343 
     44   USE yomhook, ONLY: lhook, dr_hook 
     45   USE parkind1, ONLY: jprb, jpim 
     46 
    4447   IMPLICIT NONE 
    4548   PRIVATE 
    … …  
    114117      !! JPALM - 26-11-2015 -add iom_use for diagnostic 
    115118       REAL(wp), POINTER, DIMENSION(:,:  ) :: zw2d 
     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='TRC_SED_MEDUSA' 
     124 
     125       IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     126 
    116127      !!--------------------------------------------------------------------- 
    117128      !! 
    … …  
    231242      ENDIF 
    232243 
     244       IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    233245   END SUBROUTINE trc_sed_medusa 
    234246 
    … …  
    277289      ! 
    278290      NAMELIST/nammedsbc/cn_dir, sn_dust, bdustfer  
     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='TRC_SED_MEDUSA_SBC' 
     296 
     297      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     298 
    279299 
    280300      !!--------------------------------------------------------------------- 
    … …  
    332352      IF( nn_timing == 1 )  CALL timing_stop('trc_sed_medusa_sbc') 
    333353      ! 
     354      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    334355   END SUBROUTINE trc_sed_medusa_sbc 
    335356 
    … …  
    349370      !!--------------------------------------------------------------------- 
    350371      INTEGER, INTENT( in ) ::   kt      ! ocean time-step index       
     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='TRC_SED_MEDUSA_DUST' 
     377 
     378      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     379 
    351380 
    352381      !! AXY (20/11/14): alter this to report on first MEDUSA call 
    … …  
    411440      !! END DO 
    412441 
     442      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    413443   END SUBROUTINE trc_sed_medusa_dust 
    414444 
    … …  
    420450   SUBROUTINE trc_sed_medusa( kt )                   ! Empty routine 
    421451      INTEGER, INTENT( in ) ::   kt 
     452      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     453      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     454      REAL(KIND=jprb)               :: zhook_handle 
     455 
     456      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_SED_MEDUSA' 
     457 
     458      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     459 
    422460      WRITE(*,*) 'trc_sed_medusa: You should not have seen this print! error?', kt 
     461      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    423462   END SUBROUTINE trc_sed_medusa 
    424463#endif  

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcsms_medusa.F90

    r10045 r11738  
    3131 
    3232 
     33   USE yomhook, ONLY: lhook, dr_hook 
     34   USE parkind1, ONLY: jprb, jpim 
     35 
    3336   IMPLICIT NONE 
    3437   PRIVATE 
    … …  
    5760      !! trend temporary array: 
    5861      REAL(wp), POINTER, DIMENSION(:,:,:,:) :: ztrmed 
     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='TRC_SMS_MEDUSA' 
     67 
     68      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     69 
    5970 
    6071 
    … …  
    127138 
    128139 
     140      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    129141   END SUBROUTINE trc_sms_medusa 
    130142    
    … …  
    136148   SUBROUTINE trc_sms_medusa( kt )             ! Empty routine 
    137149      INTEGER, INTENT( in ) ::   kt 
     150      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     151      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     152      REAL(KIND=jprb)               :: zhook_handle 
     153 
     154      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_SMS_MEDUSA' 
     155 
     156      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     157 
    138158      WRITE(*,*) 'trc_sms_medusa: You should not have seen this print! error?', kt 
     159      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    139160   END SUBROUTINE trc_sms_medusa 
    140161#endif 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcwri_medusa.F90

    r5726 r11738  
    1717   USE iom         ! I/O manager 
    1818 
     19   USE yomhook, ONLY: lhook, dr_hook 
     20   USE parkind1, ONLY: jprb, jpim 
     21 
    1922   IMPLICIT NONE 
    2023   PRIVATE 
    … …  
    3235      CHARACTER (len=20)   :: cltra 
    3336      INTEGER              :: jn 
     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='TRC_WRI_MEDUSA' 
     42 
     43      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     44 
    3445      !!--------------------------------------------------------------------- 
    3546  
    … …  
    4152      END DO 
    4253      ! 
     54      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    4355   END SUBROUTINE trc_wri_medusa 
    4456 
    … …  
    5062CONTAINS 
    5163   SUBROUTINE trc_wri_medusa                     ! Empty routine   
     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='TRC_WRI_MEDUSA' 
     69 
     70   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     71 
     72   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    5273   END SUBROUTINE trc_wri_medusa 
    5374#endif 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/MEDUSA/zooplankton.F90

    r10047 r11738  
    1111   !!                                                   MEDUSA bio-model 
    1212   !!---------------------------------------------------------------------- 
     13 
     14   USE yomhook, ONLY: lhook, dr_hook 
     15   USE parkind1, ONLY: jprb, jpim 
    1316 
    1417   IMPLICIT NONE 
    … …  
    7174      REAL(wp) :: fme1, fme 
    7275      REAL(wp) :: fstarme, fmeth 
     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='ZOOPLANKTON' 
     81 
     82      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     83 
    7384 
    7485      DO jj = 2,jpjm1 
    … …  
    306317      ENDDO 
    307318 
     319      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    308320   END SUBROUTINE zooplankton 
    309321 
    … …  
    314326CONTAINS 
    315327   SUBROUTINE zooplankton( )                    ! Empty routine 
     328   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     329   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     330   REAL(KIND=jprb)               :: zhook_handle 
     331 
     332   CHARACTER(LEN=*), PARAMETER :: RoutineName='ZOOPLANKTON' 
     333 
     334   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     335 
    316336      WRITE(*,*) 'zooplankton: You should not have seen this print! error?' 
     337   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    317338   END SUBROUTINE zooplankton 
    318339#endif  

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/TRP/trcadv.F90

    r8442 r11738  
    3030   USE prtctl_trc      ! Print control 
    3131 
     32   USE yomhook, ONLY: lhook, dr_hook 
     33   USE parkind1, ONLY: jprb, jpim 
     34 
    3235   IMPLICIT NONE 
    3336   PRIVATE 
    … …  
    5154 
    5255   INTEGER FUNCTION trc_adv_alloc() 
     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='TRC_ADV_ALLOC' 
     61 
     62   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     63 
    5364      !!---------------------------------------------------------------------- 
    5465      !!                  ***  ROUTINE trc_adv_alloc  *** 
    … …  
    5970      IF( trc_adv_alloc /= 0 ) CALL ctl_warn('trc_adv_alloc : failed to allocate array.') 
    6071 
     72   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    6173   END FUNCTION trc_adv_alloc 
    6274 
    … …  
    7789      REAL(wp), POINTER, DIMENSION(:,:,:) :: zun, zvn, zwn  ! effective velocity 
    7890      REAL(wp), POINTER, DIMENSION(:,:,:,:) ::   ztrtrd 
     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='TRC_ADV' 
     96 
     97      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     98 
    7999      !!---------------------------------------------------------------------- 
    80100      ! 
    … …  
    167187      IF( nn_timing == 1 )  CALL timing_stop('trc_adv') 
    168188      ! 
     189      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    169190   END SUBROUTINE trc_adv 
    170191 
    … …  
    178199      !!---------------------------------------------------------------------- 
    179200      INTEGER ::   ioptio 
     201      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     202      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     203      REAL(KIND=jprb)               :: zhook_handle 
     204 
     205      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_ADV_CTL' 
     206 
     207      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     208 
    180209      !!---------------------------------------------------------------------- 
    181210 
    … …  
    211240      ENDIF 
    212241      ! 
     242      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    213243   END SUBROUTINE trc_adv_ctl 
    214244    
    … …  
    220250   SUBROUTINE trc_adv( kt ) 
    221251      INTEGER, INTENT(in) :: kt 
     252      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     253      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     254      REAL(KIND=jprb)               :: zhook_handle 
     255 
     256      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_ADV' 
     257 
     258      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     259 
    222260      WRITE(*,*) 'trc_adv: You should not have seen this print! error?', kt 
     261      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    223262   END SUBROUTINE trc_adv 
    224263#endif 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/TRP/trcbbl.F90

    r10047 r11738  
    5151      !! 
    5252      !!----------------------------------------------------------------------   
     53      USE yomhook, ONLY: lhook, dr_hook 
     54      USE parkind1, ONLY: jprb, jpim 
     55 
    5356      IMPLICIT NONE 
    5457      INTEGER, INTENT( in ) ::   kt   ! ocean time-step  
    … …  
    5659      REAL(wp), ALLOCATABLE, DIMENSION(:,:,:,:) ::   ztrtrd 
    5760      INTEGER :: jn                   ! Local loop index 
     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='TRC_BBL' 
     66 
     67      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     68 
    5869      !!---------------------------------------------------------------------- 
    5970      ! 
    … …  
    102113      IF( nn_timing == 1 ) CALL timing_stop('trc_bbl') 
    103114      ! 
     115      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    104116   END SUBROUTINE trc_bbl 
    105117 
    … …  
    110122CONTAINS 
    111123   SUBROUTINE trc_bbl( kt )              ! Empty routine 
     124      USE yomhook, ONLY: lhook, dr_hook 
     125      USE parkind1, ONLY: jprb, jpim 
     126 
    112127      IMPLICIT NONE 
    113128      INTEGER, INTENT(in) ::   kt    ! ocean time-step index 
     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='TRC_BBL' 
     134 
     135      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     136 
    114137      WRITE(*,*) 'tra_bbl: You should not have seen this print! error?', kt 
     138      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    115139   END SUBROUTINE trc_bbl 
    116140#endif 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/TRP/trcdmp.F90

    r6793 r11738  
    2626   USE iom 
    2727 
     28   USE yomhook, ONLY: lhook, dr_hook 
     29   USE parkind1, ONLY: jprb, jpim 
     30 
    2831   IMPLICIT NONE 
    2932   PRIVATE 
    … …  
    4952 
    5053   INTEGER FUNCTION trc_dmp_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='TRC_DMP_ALLOC' 
     59 
     60   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     61 
    5162      !!---------------------------------------------------------------------- 
    5263      !!                   ***  ROUTINE trc_dmp_alloc  *** 
    … …  
    5667      IF( trc_dmp_alloc /= 0 )   CALL ctl_warn('trc_dmp_alloc: failed to allocate array') 
    5768      ! 
     69   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    5870   END FUNCTION trc_dmp_alloc 
    5971 
    … …  
    8698      REAL(wp), POINTER, DIMENSION(:,:,:) ::   ztrtrd 
    8799      REAL(wp), POINTER, DIMENSION(:,:,:) ::  ztrcdta   ! 3D  workspace 
     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='TRC_DMP' 
     105 
     106      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     107 
    88108      !!---------------------------------------------------------------------- 
    89109      ! 
    … …  
    168188      IF( nn_timing == 1 )  CALL timing_stop('trc_dmp') 
    169189      ! 
     190      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    170191   END SUBROUTINE trc_dmp 
    171192 
    … …  
    187208      INTEGER :: isrow                                      ! local index 
    188209      REAL(wp), POINTER, DIMENSION(:,:,:) ::  ztrcdta       ! 3D  workspace 
     210      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     211      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     212      REAL(KIND=jprb)               :: zhook_handle 
     213 
     214      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_DMP_CLO' 
     215 
     216      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     217 
    189218 
    190219      !!---------------------------------------------------------------------- 
    … …  
    319348      ENDIF 
    320349      ! 
     350      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    321351   END SUBROUTINE trc_dmp_clo 
    322352 
    … …  
    333363      ! 
    334364      INTEGER :: imask  !local file handle 
     365      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     366      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     367      REAL(KIND=jprb)               :: zhook_handle 
     368 
     369      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_DMP_INIT' 
     370 
     371      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     372 
    335373 
    336374      IF( nn_timing == 1 )  CALL timing_start('trc_dmp_init') 
    … …  
    360398      IF( nn_timing == 1 )  CALL timing_stop('trc_dmp_init') 
    361399      ! 
     400      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    362401   END SUBROUTINE trc_dmp_init 
    363402 
    … …  
    369408   SUBROUTINE trc_dmp( kt )        ! Empty routine 
    370409      INTEGER, INTENT(in) :: kt 
     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='TRC_DMP' 
     415 
     416      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     417 
    371418      WRITE(*,*) 'trc_dmp: You should not have seen this print! error?', kt 
     419      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    372420   END SUBROUTINE trc_dmp 
    373421#endif 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/TRP/trcldf.F90

    r7771 r11738  
    2929   USE prtctl_trc      ! Print control 
    3030 
     31   USE yomhook, ONLY: lhook, dr_hook 
     32   USE parkind1, ONLY: jprb, jpim 
     33 
    3134   IMPLICIT NONE 
    3235   PRIVATE 
    … …  
    6063      CHARACTER (len=22) :: charout 
    6164      REAL(wp), ALLOCATABLE, DIMENSION(:,:,:,:) ::   ztrtrd 
     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='TRC_LDF' 
     70 
     71      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     72 
    6273      !!---------------------------------------------------------------------- 
    6374      ! 
    … …  
    130141      IF( nn_timing == 1 )   CALL timing_stop('trc_ldf') 
    131142      ! 
     143      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    132144   END SUBROUTINE trc_ldf 
    133145 
    … …  
    148160      !!---------------------------------------------------------------------- 
    149161      INTEGER ::   ioptio, ierr         ! temporary integers 
     162      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     163      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     164      REAL(KIND=jprb)               :: zhook_handle 
     165 
     166      CHARACTER(LEN=*), PARAMETER :: RoutineName='LDF_CTL' 
     167 
     168      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     169 
    150170      !!---------------------------------------------------------------------- 
    151171 
    … …  
    266286      ENDIF 
    267287      ! 
     288      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    268289   END SUBROUTINE ldf_ctl 
    269290#else 
    … …  
    274295   SUBROUTINE trc_ldf( kt ) 
    275296      INTEGER, INTENT(in) :: kt 
     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='TRC_LDF' 
     302 
     303      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     304 
    276305      WRITE(*,*) 'trc_ldf: You should not have seen this print! error?', kt 
     306      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    277307   END SUBROUTINE trc_ldf 
    278308#endif 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/TRP/trcnam_trp.F90

    r6498 r11738  
    1616   USE in_out_manager      ! ocean dynamics and active tracers variables 
    1717   USE lib_mpp           ! distributed memory computing library 
     18 
     19   USE yomhook, ONLY: lhook, dr_hook 
     20   USE parkind1, ONLY: jprb, jpim 
    1821 
    1922   IMPLICIT NONE 
    … …  
    8184      NAMELIST/namtrc_rad/ ln_trcrad 
    8285      NAMELIST/namtrc_dmp/ nn_zdmp_tr , cn_resto_tr 
     86      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     87      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     88      REAL(KIND=jprb)               :: zhook_handle 
     89 
     90      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_NAM_TRP' 
     91 
     92      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     93 
    8394      !!---------------------------------------------------------------------- 
    8495 
    … …  
    185196      ENDIF 
    186197      ! 
     198      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    187199   END SUBROUTINE trc_nam_trp 
    188200    
    … …  
    193205CONTAINS 
    194206   SUBROUTINE trc_nam_trp              ! Empty routine 
     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='TRC_NAM_TRP' 
     212 
     213   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     214 
     215   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    195216   END SUBROUTINE trc_nam_trp 
    196217#endif 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/TRP/trcnxt.F90

    r9163 r11738  
    3939# endif 
    4040 
     41   USE yomhook, ONLY: lhook, dr_hook 
     42   USE parkind1, ONLY: jprb, jpim 
     43 
    4144   IMPLICIT NONE 
    4245   PRIVATE 
    … …  
    5760 
    5861   INTEGER FUNCTION trc_nxt_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='TRC_NXT_ALLOC' 
     67 
     68   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     69 
    5970      !!---------------------------------------------------------------------- 
    6071      !!                   ***  ROUTINE trc_nxt_alloc  *** 
    … …  
    6475      IF( trc_nxt_alloc /= 0 )   CALL ctl_warn('trc_nxt_alloc : failed to allocate array') 
    6576      ! 
     77   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    6678   END FUNCTION trc_nxt_alloc 
    6779 
    … …  
    97109      CHARACTER (len=22) :: charout 
    98110      REAL(wp), POINTER, DIMENSION(:,:,:,:) ::  ztrdt  
     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='TRC_NXT' 
     116 
     117      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     118 
    99119      !!---------------------------------------------------------------------- 
    100120      ! 
    … …  
    211231      IF( nn_timing == 1 )  CALL timing_stop('trc_nxt') 
    212232      ! 
     233      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    213234   END SUBROUTINE trc_nxt 
    214235 
    … …  
    220241   SUBROUTINE trc_nxt( kt )   
    221242      INTEGER, INTENT(in) :: kt 
     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='TRC_NXT' 
     248 
     249      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     250 
    222251      WRITE(*,*) 'trc_nxt: You should not have seen this print! error?', kt 
     252      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    223253   END SUBROUTINE trc_nxt 
    224254#endif 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/TRP/trcrad.F90

    r7203 r11738  
    1919   USE prtctl_trc          ! Print control for debbuging 
    2020 
     21   USE yomhook, ONLY: lhook, dr_hook 
     22   USE parkind1, ONLY: jprb, jpim 
     23 
    2124   IMPLICIT NONE 
    2225   PRIVATE 
    … …  
    5154      INTEGER, INTENT( in ) ::   kt   ! ocean time-step index       
    5255      CHARACTER (len=22) :: charout 
     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='TRC_RAD' 
     61 
     62      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     63 
    5364      !!---------------------------------------------------------------------- 
    5465      ! 
    … …  
    7586      IF( nn_timing == 1 )  CALL timing_stop('trc_rad') 
    7687      ! 
     88      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    7789   END SUBROUTINE trc_rad 
    7890 
    … …  
    112124      REAL(wp) :: zs2rdt 
    113125      LOGICAL ::   lldebug = .FALSE. 
     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='TRC_RAD_SMS' 
     131 
     132      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     133 
    114134      !!---------------------------------------------------------------------- 
    115135 
    … …  
    198218      IF( l_trdtrc )  CALL wrk_dealloc( jpi, jpj, jpk, ztrtrdb, ztrtrdn ) 
    199219 
     220      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    200221   END SUBROUTINE trc_rad_sms 
    201222#else 
    … …  
    206227   SUBROUTINE trc_rad( kt )              ! Empty routine 
    207228      INTEGER, INTENT(in) ::   kt 
     229      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     230      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     231      REAL(KIND=jprb)               :: zhook_handle 
     232 
     233      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_RAD' 
     234 
     235      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     236 
    208237      WRITE(*,*) 'trc_rad: You should not have seen this print! error?', kt 
     238      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    209239   END SUBROUTINE trc_rad 
    210240#endif 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/TRP/trcsbc.F90

    r9163 r11738  
    2222   USE trd_oce 
    2323   USE trdtra 
     24 
     25   USE yomhook, ONLY: lhook, dr_hook 
     26   USE parkind1, ONLY: jprb, jpim 
    2427 
    2528   IMPLICIT NONE 
    … …  
    6972      REAL(wp), POINTER, DIMENSION(:,:  ) :: zsfx 
    7073      REAL(wp), POINTER, DIMENSION(:,:,:) :: ztrtrd 
     74      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     75      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     76      REAL(KIND=jprb)               :: zhook_handle 
     77 
     78      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_SBC' 
     79 
     80      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     81 
    7182 
    7283      !!--------------------------------------------------------------------- 
    … …  
    215226      IF( nn_timing == 1 )  CALL timing_stop('trc_sbc') 
    216227      ! 
     228      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    217229   END SUBROUTINE trc_sbc 
    218230 
    … …  
    224236   SUBROUTINE trc_sbc (kt)              ! Empty routine 
    225237      INTEGER, INTENT(in) :: kt 
     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_SBC' 
     243 
     244      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     245 
    226246      WRITE(*,*) 'trc_sbc: You should not have seen this print! error?', kt 
     247      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    227248   END SUBROUTINE trc_sbc 
    228249#endif 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/TRP/trctrp.F90

    r9163 r11738  
    3737#endif 
    3838 
     39   USE yomhook, ONLY: lhook, dr_hook 
     40   USE parkind1, ONLY: jprb, jpim 
     41 
    3942   IMPLICIT NONE 
    4043   PRIVATE 
    … …  
    6265      !!---------------------------------------------------------------------- 
    6366      INTEGER, INTENT( in ) ::  kstp  ! ocean time-step index 
     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='TRC_TRP' 
     72 
     73      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     74 
    6475      !! --------------------------------------------------------------------- 
    6576      ! 
    … …  
    1161279400  FORMAT(a25,i4,D23.16) 
    117128      ! 
     129      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    118130   END SUBROUTINE trc_trp 
    119131 
    … …  
    125137   SUBROUTINE trc_trp( kstp )              ! Empty routine 
    126138      INTEGER, INTENT(in) ::   kstp 
     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='TRC_TRP' 
     144 
     145      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     146 
    127147      WRITE(*,*) 'trc_trp: You should not have seen this print! error?', kstp 
     148      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    128149   END SUBROUTINE trc_trp 
    129150#endif 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/TRP/trczdf.F90

    r9163 r11738  
    2424   USE prtctl_trc      ! Print control 
    2525 
     26   USE yomhook, ONLY: lhook, dr_hook 
     27   USE parkind1, ONLY: jprb, jpim 
     28 
    2629   IMPLICIT NONE 
    2730   PRIVATE 
    … …  
    4750    
    4851   INTEGER FUNCTION trc_zdf_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='TRC_ZDF_ALLOC' 
     57 
     58   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     59 
    4960      !!---------------------------------------------------------------------- 
    5061      !!                  ***  ROUTINE trc_zdf_alloc  *** 
    … …  
    5465      IF( trc_zdf_alloc /= 0 )   CALL ctl_warn('trc_zdf_alloc : failed to allocate array.') 
    5566      ! 
     67   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    5668   END FUNCTION trc_zdf_alloc 
    5769 
    … …  
    6880      CHARACTER (len=22)    :: charout 
    6981      REAL(wp), POINTER, DIMENSION(:,:,:,:) ::   ztrtrd   ! 4D workspace 
     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='TRC_ZDF' 
     87 
     88      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     89 
    7090      !!--------------------------------------------------------------------- 
    7191      ! 
    … …  
    128148      IF( nn_timing == 1 )  CALL timing_stop('trc_zdf') 
    129149      ! 
     150      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    130151   END SUBROUTINE trc_zdf 
    131152 
    132153 
    133154   SUBROUTINE zdf_ctl 
     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='ZDF_CTL' 
     160 
     161   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     162 
    134163      !!---------------------------------------------------------------------- 
    135164      !!                 ***  ROUTINE zdf_ctl  *** 
    … …  
    178207      ENDIF 
    179208 
     209   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    180210   END SUBROUTINE zdf_ctl 
    181211#else 
    … …  
    186216   SUBROUTINE trc_zdf( kt ) 
    187217      INTEGER, INTENT(in) :: kt   
     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='TRC_ZDF' 
     223 
     224      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     225 
    188226      WRITE(*,*) 'trc_zdf: You should not have seen this print! error?', kt 
     227      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    189228   END SUBROUTINE trc_zdf 
    190229#endif 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/TRP/trdmxl_trc_rst.F90

    r6486 r11738  
    1313   USE trc             ! for nn_dttrc ctrcnm 
    1414   USE trdmxl_trc_oce  ! for lk_trdmxl_trc 
     15 
     16   USE yomhook, ONLY: lhook, dr_hook 
     17   USE parkind1, ONLY: jprb, jpim 
    1518 
    1619   IMPLICIT NONE 
    … …  
    4346      CHARACTER (len=35) :: charout 
    4447      INTEGER :: jl,  jk, jn               ! loop indice 
     48      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     49      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     50      REAL(KIND=jprb)               :: zhook_handle 
     51 
     52      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRD_MXL_TRC_RST_WRITE' 
     53 
     54      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     55 
    4556      !!-------------------------------------------------------------------------------- 
    4657 
    … …  
    121132      ENDIF 
    122133 
     134      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    123135    END SUBROUTINE trd_mxl_trc_rst_write 
    124136 
    … …  
    137149      LOGICAL ::  llok 
    138150      CHARACTER(LEN=256)  ::   clpath   ! full path to restart file 
     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='TRD_MXL_TRC_RST_READ' 
     156 
     157      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     158 
    139159      !!----------------------------------------------------------------------------- 
    140160       
    … …  
    206226      ENDIF 
    207227       
     228      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    208229    END SUBROUTINE trd_mxl_trc_rst_read 
    209230   
    … …  
    215236CONTAINS 
    216237  SUBROUTINE trd_mxl_trc_rst_opn( kt ) 
     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='TRD_MXL_TRC_RST_OPN' 
     243 
     244  IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     245 
    217246    WRITE(*,*) 'trd_mxl_trc_rst_opn: You should not have seen this print! error?', kt 
     247  IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    218248  END SUBROUTINE trd_mxl_trc_rst_opn 
    219249  SUBROUTINE trd_mxl_trc_rst_write( kt )           !  No ML diags ==> empty routine 
     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='TRD_MXL_TRC_RST_WRITE' 
     255 
     256  IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     257 
    220258    WRITE(*,*) 'trd_mxl_trc_rst_wri: You should not have seen this print! error?', kt 
     259  IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    221260  END SUBROUTINE trd_mxl_trc_rst_write 
    222261  SUBROUTINE trd_mxl_trc_rst_read                  !  No ML Diags ==> empty routine 
     262  INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     263  INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     264  REAL(KIND=jprb)               :: zhook_handle 
     265 
     266  CHARACTER(LEN=*), PARAMETER :: RoutineName='TRD_MXL_TRC_RST_READ' 
     267 
     268  IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     269 
     270  IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    223271  END SUBROUTINE trd_mxl_trc_rst_read 
    224272#endif 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/TRP/trdtrc.F90

    r9163 r11738  
    2323# endif 
    2424 
     25   USE yomhook, ONLY: lhook, dr_hook 
     26   USE parkind1, ONLY: jprb, jpim 
     27 
    2528   IMPLICIT NONE 
    2629   PRIVATE 
    … …  
    5154      REAL(wp), DIMENSION(jpi,jpj,jpk), INTENT( inout )  ::   ptrtrd  ! Temperature or U trend 
    5255      CHARACTER (len=20) :: cltra 
     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='TRD_TRC_TRP' 
     61 
     62      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     63 
    5364      !!---------------------------------------------------------------------- 
    5465 
    … …  
    158169      END IF 
    159170 
     171      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    160172   END SUBROUTINE trd_trc_trp 
    161173 
    … …  
    168180      INTEGER, INTENT( in )  ::   ktrd                                ! bio trend index 
    169181      REAL(wp), DIMENSION(jpi,jpj,jpk), INTENT( inout )  ::   ptrbio  ! Bio trend 
     182      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     183      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     184      REAL(KIND=jprb)               :: zhook_handle 
     185 
     186      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRD_TRC_BIO' 
     187 
     188      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     189 
    170190      !!---------------------------------------------------------------------- 
    171191 
    … …  
    174194#endif 
    175195 
     196      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    176197   END SUBROUTINE trd_trc_bio 
    177198 
    … …  
    184205      REAL(wp), DIMENSION(jpi,jpj,jpk), INTENT( inout )  ::   ptrtrd  ! var trend 
    185206      CHARACTER (len=*),INTENT( in ) :: cltra                         ! trend name 
     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='TRD_TRC_IOMPUT' 
     212 
     213      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     214 
    186215      !!---------------------------------------------------------------------- 
    187216 
    … …  
    201230      ENDIF 
    202231 
     232      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    203233   END SUBROUTINE trd_trc_iomput 
    204234 
    … …  
    220250      INTEGER               , INTENT( in )     ::   ktrd    ! tracer trend index 
    221251      REAL, DIMENSION(:,:,:), INTENT( inout )  ::   ptrtrd  ! Temperature or U trend 
     252      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     253      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     254      REAL(KIND=jprb)               :: zhook_handle 
     255 
     256      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRD_TRC_TRP' 
     257 
     258      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     259 
    222260      WRITE(*,*) 'trd_trc_trp : You should not have seen this print! error?', ptrtrd(1,1,1) 
    223261      WRITE(*,*) '  "      "      : You should not have seen this print! error?', kjn 
    224262      WRITE(*,*) '  "      "      : You should not have seen this print! error?', ktrd 
    225263      WRITE(*,*) '  "      "      : You should not have seen this print! error?', kt 
     264      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    226265   END SUBROUTINE trd_trc_trp 
    227266 
    … …  
    230269      INTEGER               , INTENT( in )     ::   ktrd    ! tracer trend index 
    231270      REAL, DIMENSION(:,:,:), INTENT( inout )  ::   ptrbio  ! Temperature or U trend 
     271      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     272      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     273      REAL(KIND=jprb)               :: zhook_handle 
     274 
     275      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRD_TRC_BIO' 
     276 
     277      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     278 
    232279      WRITE(*,*) 'trd_trc_trp : You should not have seen this print! error?', ptrbio(1,1,1) 
    233280      WRITE(*,*) '  "      "      : You should not have seen this print! error?', ktrd 
    234281      WRITE(*,*) '  "      "      : You should not have seen this print! error?', kt 
     282      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    235283   END SUBROUTINE trd_trc_bio 
    236284 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/TRP/trdtrc_oce.F90

    r6486 r11738  
    1010   USE par_oce       ! ocean parameters 
    1111   USE par_trc       ! passive tracers parameters 
     12 
     13   USE yomhook, ONLY: lhook, dr_hook 
     14   USE parkind1, ONLY: jprb, jpim 
    1215 
    1316   IMPLICIT NONE 
    … …  
    129132      USE lib_mpp, ONLY: ctl_warn 
    130133      INTEGER :: ierr(2) 
     134      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     135      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     136      REAL(KIND=jprb)               :: zhook_handle 
     137 
     138      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRD_TRC_OCE_ALLOC' 
     139 
     140      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     141 
    131142      !!---------------------------------------------------------------------- 
    132143      ierr(:) = 0 
    … …  
    169180# endif 
    170181      ! 
     182      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    171183   END FUNCTION trd_trc_oce_alloc 
    172184 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/par_trc.F90

    r8442 r11738  
    1919   USE par_idtra     ! Idealize tracer 
    2020   USE par_medusa    ! MEDUSA model 
     21 
     22   USE yomhook, ONLY: lhook, dr_hook 
     23   USE parkind1, ONLY: jprb, jpim 
    2124 
    2225   IMPLICIT NONE 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/prtctl_trc.F90

    r6486 r11738  
    1818   USE oce_trc          ! ocean space and time domain variables 
    1919   USE prtctl           ! print control for OPA 
     20 
     21   USE yomhook, ONLY: lhook, dr_hook 
     22   USE parkind1, ONLY: jprb, jpim 
    2023 
    2124   IMPLICIT NONE 
    … …  
    7376      CHARACTER (len=10) ::   cl2 
    7477      REAL(wp), POINTER, DIMENSION(:,:,:)  :: zmask, ztab3d  
     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='PRT_CTL_TRC' 
     83 
     84      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     85 
    7586      !!---------------------------------------------------------------------- 
    7687 
    … …  
    153164      CALL wrk_dealloc( jpi, jpj, jpk, zmask, ztab3d ) 
    154165      ! 
     166      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    155167   END SUBROUTINE prt_ctl_trc 
    156168 
    … …  
    165177      !!  
    166178      INTEGER ::   js, sind, eind, j_id 
     179      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     180      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     181      REAL(KIND=jprb)               :: zhook_handle 
     182 
     183      CHARACTER(LEN=*), PARAMETER :: RoutineName='PRT_CTL_TRC_INFO' 
     184 
     185      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     186 
    167187      !!---------------------------------------------------------------------- 
    168188 
    … …  
    181201      END DO 
    182202      ! 
     203      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    183204   END SUBROUTINE prt_ctl_trc_info 
    184205 
    … …  
    194215      CHARACTER (len=27) :: clb_name 
    195216      CHARACTER (len=19) :: cl_run 
     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='PRT_CTL_TRC_INIT' 
     222 
     223      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     224 
    196225      !!---------------------------------------------------------------------- 
    197226 
    … …  
    295324      END DO 
    296325      ! 
     326      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    297327   END SUBROUTINE prt_ctl_trc_init 
    298328 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/trc.F90

    r10196 r11738  
    1616   USE par_trc 
    1717    
     18   USE yomhook, ONLY: lhook, dr_hook 
     19   USE parkind1, ONLY: jprb, jpim 
     20 
    1821   IMPLICIT NONE 
    1922   PUBLIC 
    … …  
    268271      !!------------------------------------------------------------------- 
    269272      USE lib_mpp, ONLY: ctl_warn 
     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='TRC_ALLOC' 
     278 
     279      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     280 
    270281      !!------------------------------------------------------------------- 
    271282      ! 
    … …  
    288299 
    289300      ! 
     301      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    290302   END FUNCTION trc_alloc 
    291303 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/trcbc.F90

    r6486 r11738  
    1717   USE lib_mpp       !  MPP library 
    1818   USE fldread       !  read input fields 
     19 
     20   USE yomhook, ONLY: lhook, dr_hook 
     21   USE parkind1, ONLY: jprb, jpim 
    1922 
    2023   IMPLICIT NONE 
    … …  
    7578      !! 
    7679      NAMELIST/namtrc_bc/ cn_dir, sn_trcobc, rn_trofac, sn_trcsbc, rn_trsfac, sn_trccbc, rn_trcfac  
     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='TRC_BC_INIT' 
     85 
     86      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     87 
    7788      !!---------------------------------------------------------------------- 
    7889      IF( nn_timing == 1 )  CALL timing_start('trc_bc_init') 
    … …  
    246257      IF( nn_timing == 1 )  CALL timing_stop('trc_bc_init') 
    247258 
     259      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    248260   END SUBROUTINE trc_bc_init 
    249261 
    … …  
    264276      !! * Arguments 
    265277      INTEGER, INTENT( in ) ::   kt      ! ocean time-step index 
     278      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     279      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     280      REAL(KIND=jprb)               :: zhook_handle 
     281 
     282      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_BC_READ' 
     283 
     284      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     285 
    266286 
    267287      !!--------------------------------------------------------------------- 
    … …  
    297317      !        
    298318 
     319      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    299320   END SUBROUTINE trc_bc_read 
    300321#else 
    … …  
    304325CONTAINS 
    305326   SUBROUTINE trc_bc_read( kt )        ! Empty routine 
     327   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     328   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     329   REAL(KIND=jprb)               :: zhook_handle 
     330 
     331   CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_BC_READ' 
     332 
     333   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     334 
    306335      WRITE(*,*) 'trc_bc_read: You should not have seen this print! error?', kt 
     336   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    307337   END SUBROUTINE trc_bc_read 
    308338#endif 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/trcdia.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 
    … …  
    6972      ! 
    7073      INTEGER             ::  ierr   ! local integer 
     74      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     75      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     76      REAL(KIND=jprb)               :: zhook_handle 
     77 
     78      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_DIA' 
     79 
     80      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     81 
    7182      !!--------------------------------------------------------------------- 
    7283      ! 
    … …  
    8495      ENDIF 
    8596      ! 
     97      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    8698   END SUBROUTINE trc_dia 
    8799 
    … …  
    110122      REAL(wp) :: zsto, zout, zdt 
    111123      INTEGER  :: iimi, iima, ijmi, ijma, ipk, it, itmod, iiter 
     124      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     125      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     126      REAL(KIND=jprb)               :: zhook_handle 
     127 
     128      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRCDIT_WR' 
     129 
     130      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     131 
    112132      !!---------------------------------------------------------------------- 
    113133 
    … …  
    229249      IF( kt == nitend )   CALL histclo( nit5 ) 
    230250      ! 
     251      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    231252   END SUBROUTINE trcdit_wr 
    232253 
    … …  
    253274      INTEGER  ::   iimi, iima, ijmi, ijma, ipk, it, itmod, iiter 
    254275      REAL(wp) ::   zsto, zout, zdt 
     276      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     277      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     278      REAL(KIND=jprb)               :: zhook_handle 
     279 
     280      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRCDII_WR' 
     281 
     282      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     283 
    255284      !!---------------------------------------------------------------------- 
    256285 
    … …  
    366395      ! 
    367396 
     397      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    368398   END SUBROUTINE trcdii_wr 
    369399 
    … …  
    390420      INTEGER  ::   iimi, iima, ijmi, ijma, ipk, it, itmod, iiter 
    391421      REAL(wp) ::   zsto, zout, zdt 
     422      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     423      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     424      REAL(KIND=jprb)               :: zhook_handle 
     425 
     426      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRCDIB_WR' 
     427 
     428      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     429 
    392430      !!---------------------------------------------------------------------- 
    393431 
    … …  
    478516      IF( kt == nitend )   CALL histclo( nitb ) 
    479517      ! 
     518      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    480519   END SUBROUTINE trcdib_wr 
    481520 
    … …  
    487526   SUBROUTINE trc_dia( kt )                      ! Empty routine    
    488527      INTEGER, INTENT(in) :: kt 
     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='TRC_DIA' 
     533 
     534      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     535 
     536      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    489537   END SUBROUTINE trc_dia    
    490538#endif 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/trcdta.F90

    r6793 r11738  
    2323   USE fldread       !  read input fields 
    2424 
     25   USE yomhook, ONLY: lhook, dr_hook 
     26   USE parkind1, ONLY: jprb, jpim 
     27 
    2528   IMPLICIT NONE 
    2629   PRIVATE 
    … …  
    6871      !! 
    6972      NAMELIST/namtrc_dta/ sn_trcdta, cn_dir, rn_trfac  
     73      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     74      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     75      REAL(KIND=jprb)               :: zhook_handle 
     76 
     77      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_DTA_INIT' 
     78 
     79      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     80 
    7081      !!---------------------------------------------------------------------- 
    7182      ! 
    … …  
    154165      IF( nn_timing == 1 )  CALL timing_stop('trc_dta_init') 
    155166      ! 
     167      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    156168   END SUBROUTINE trc_dta_init 
    157169 
    … …  
    179191      REAL(wp), POINTER, DIMENSION(:,:,:) ::  ztrcdta   ! 3D  workspace 
    180192      CHARACTER(len=100) :: clndta 
     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='TRC_DTA' 
     198 
     199      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     200 
    181201      !!---------------------------------------------------------------------- 
    182202      ! 
    … …  
    271291      IF( nn_timing == 1 )  CALL timing_stop('trc_dta') 
    272292      ! 
     293      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    273294   END SUBROUTINE trc_dta 
    274295#else 
    … …  
    278299CONTAINS 
    279300   SUBROUTINE trc_dta( kt, sf_dta, ptrfac, ptrc)        ! Empty routine 
     301   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     302   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     303   REAL(KIND=jprb)               :: zhook_handle 
     304 
     305   CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_DTA' 
     306 
     307   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     308 
    280309      WRITE(*,*) 'trc_dta: You should not have seen this print! error?', kt 
     310   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    281311   END SUBROUTINE trc_dta 
    282312#endif 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/trcice.F90

    r5385 r11738  
    2020   USE trcice_my_trc   ! MY_TRC   initialisation 
    2121    
     22   USE yomhook, ONLY: lhook, dr_hook 
     23   USE parkind1, ONLY: jprb, jpim 
     24 
    2225   IMPLICIT NONE 
    2326   PRIVATE 
    … …  
    2831    
    2932   SUBROUTINE trc_ice_ini 
     33   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     34   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     35   REAL(KIND=jprb)               :: zhook_handle 
     36 
     37   CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_ICE_INI' 
     38 
     39   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     40 
    3041      !!--------------------------------------------------------------------- 
    3142      !!                     ***  ROUTINE trc_ice_ini *** 
    … …  
    5970      IF( nn_timing == 1 )   CALL timing_stop('trc_ice_ini') 
    6071      ! 
     72   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    6173   END SUBROUTINE trc_ice_ini 
    6274 
    … …  
    6779CONTAINS 
    6880   SUBROUTINE trc_ice_ini                   ! Dummy routine    
     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='TRC_ICE_INI' 
     86 
     87   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     88 
     89   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    6990   END SUBROUTINE trc_ice_ini 
    7091#endif 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/trcini.F90

    r9262 r11738  
    3737   USE trcice          ! tracers in sea ice 
    3838   USE sms_medusa      ! MEDUSA   initialisation 
     39   USE yomhook, ONLY: lhook, dr_hook 
     40   USE parkind1, ONLY: jprb, jpim 
     41 
    3942   IMPLICIT NONE 
    4043   PRIVATE 
    … …  
    7376# endif 
    7477      CHARACTER (len=25) :: charout 
     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='TRC_INIT' 
     83 
     84      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     85 
    7586      !!--------------------------------------------------------------------- 
    7687      ! 
    … …  
    293304      IF( nn_timing == 1 )   CALL timing_stop('trc_init') 
    294305      ! 
     306      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    295307   END SUBROUTINE trc_init 
    296308 
    … …  
    316328      ! 
    317329      INTEGER :: ierr 
     330      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     331      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     332      REAL(KIND=jprb)               :: zhook_handle 
     333 
     334      CHARACTER(LEN=*), PARAMETER :: RoutineName='TOP_ALLOC' 
     335 
     336      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     337 
    318338      !!---------------------------------------------------------------------- 
    319339      ! 
    … …  
    333353      IF( ierr /= 0 )   CALL ctl_stop( 'STOP', 'top_alloc : unable to allocate standard ocean arrays' ) 
    334354      ! 
     355      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    335356   END SUBROUTINE top_alloc 
    336357 
    … …  
    341362CONTAINS 
    342363   SUBROUTINE trc_init                      ! Dummy routine    
     364   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     365   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     366   REAL(KIND=jprb)               :: zhook_handle 
     367 
     368   CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_INIT' 
     369 
     370   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     371 
     372   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    343373   END SUBROUTINE trc_init 
    344374#endif 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/trcnam.F90

    r9163 r11738  
    3333   USE iom               ! I/O manager 
    3434 
     35   USE yomhook, ONLY: lhook, dr_hook 
     36   USE parkind1, ONLY: jprb, jpim 
     37 
    3538   IMPLICIT NONE 
    3639   PRIVATE  
    … …  
    6972      INTEGER  ::   jn, jk              ! dummy loop indice 
    7073      INTEGER  ::   ios                 ! Local integer output status for namelist read 
     74      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     75      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     76      REAL(KIND=jprb)               :: zhook_handle 
     77 
     78      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_NAM' 
     79 
     80      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     81 
    7182      !!--------------------------------------------------------------------- 
    7283 
    … …  
    202213      ENDIF 
    203214      ! 
     215      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    204216   END SUBROUTINE trc_nam 
    205217 
    … …  
    216228 
    217229      INTEGER  ::   ios                 ! Local integer output status for namelist read 
     230      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     231      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     232      REAL(KIND=jprb)               :: zhook_handle 
     233 
     234      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_NAM_RUN' 
     235 
     236      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     237 
    218238 
    219239      !!--------------------------------------------------------------------- 
    … …  
    252272      ENDIF 
    253273      ! 
     274      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    254275    END SUBROUTINE trc_nam_run 
    255276 
    … …  
    270291      TYPE(TRC_I_NML), DIMENSION(jptra) :: sn_tri_tracer 
    271292      NAMELIST/namtrc_ice/ nn_ice_tr, sn_tri_tracer 
     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='TRC_NAM_ICE' 
     298 
     299      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     300 
    272301 
    273302      IF(lwp) THEN 
    … …  
    303332      IF( nn_timing == 1 )   CALL timing_stop('trc_nam_ice') 
    304333      ! 
     334      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    305335   END SUBROUTINE trc_nam_ice 
    306336 
    … …  
    318348      INTEGER  ::   ios                 ! Local integer output status for namelist read 
    319349      INTEGER  ::   jn                  ! dummy loop indice 
     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='TRC_NAM_TRC' 
     355 
     356      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     357 
    320358      !!--------------------------------------------------------------------- 
    321359      IF(lwp) WRITE(numout,*) 
    … …  
    341379      END DO 
    342380       
     381      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    343382    END SUBROUTINE trc_nam_trc 
    344383 
    … …  
    363402 
    364403      INTEGER  ::   ios                 ! Local integer output status for namelist read 
     404      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     405      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     406      REAL(KIND=jprb)               :: zhook_handle 
     407 
     408      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_NAM_DIA' 
     409 
     410      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     411 
    365412      !!--------------------------------------------------------------------- 
    366413 
    … …  
    414461      ENDIF 
    415462      ! 
     463      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    416464   END SUBROUTINE trc_nam_dia 
    417465 
    … …  
    422470CONTAINS 
    423471   SUBROUTINE trc_nam                      ! Empty routine    
     472   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     473   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     474   REAL(KIND=jprb)               :: zhook_handle 
     475 
     476   CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_NAM' 
     477 
     478   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     479 
     480   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    424481   END SUBROUTINE trc_nam 
    425482   SUBROUTINE trc_nam_run                      ! Empty routine    
     483   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     484   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     485   REAL(KIND=jprb)               :: zhook_handle 
     486 
     487   CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_NAM_RUN' 
     488 
     489   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     490 
     491   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    426492   END SUBROUTINE trc_nam_run 
    427493#endif 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/trcrst.F90

    r10047 r11738  
    4646   USE trcstat 
    4747 
     48   USE yomhook, ONLY: lhook, dr_hook 
     49   USE parkind1, ONLY: jprb, jpim 
     50 
    4851   IMPLICIT NONE 
    4952   PRIVATE 
    … …  
    7780      CHARACTER(LEN=50)   ::   clname   ! trc output restart file name 
    7881      CHARACTER(LEN=256)  ::   clpath   ! full path to ocean output restart file 
     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='TRC_RST_OPN' 
     87 
     88      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     89 
    7990      !!---------------------------------------------------------------------- 
    8091      ! 
    … …  
    137148      ENDIF 
    138149      ! 
     150      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    139151   END SUBROUTINE trc_rst_opn 
    140152 
    … …  
    148160      !! AXY (05/11/13): temporary variables 
    149161      REAL(wp) ::    fq0,fq1,fq2 
     162      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     163      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     164      REAL(KIND=jprb)               :: zhook_handle 
     165 
     166      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_RST_READ' 
     167 
     168      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     169 
    150170 
    151171      !!---------------------------------------------------------------------- 
    … …  
    387407#endif 
    388408      ! 
     409      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    389410   END SUBROUTINE trc_rst_read 
    390411 
    … …  
    401422      !! AXY (05/11/13): temporary variables 
    402423      REAL(wp) ::    fq0,fq1,fq2 
     424      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     425      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     426      REAL(KIND=jprb)               :: zhook_handle 
     427 
     428      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_RST_WRI' 
     429 
     430      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     431 
    403432      !!---------------------------------------------------------------------- 
    404433      ! 
    … …  
    556585      ENDIF 
    557586      ! 
     587      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    558588   END SUBROUTINE trc_rst_wri  
    559589 
    … …  
    591621      REAL(wp) ::  zkt, zrdttrc1 
    592622      REAL(wp) ::  zndastp 
     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='TRC_RST_CAL' 
     628 
     629      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     630 
    593631 
    594632      ! Time domain : restart 
    … …  
    669707      ENDIF 
    670708 
     709      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    671710   END SUBROUTINE trc_rst_cal 
    672711 
    … …  
    681720      REAL(wp) :: ztraf, zmin, zmax, zmean, zdrift 
    682721      REAL(wp), DIMENSION(jpi,jpj,jpk) :: zvol 
     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='TRC_RST_STAT' 
     727 
     728      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     729 
    683730      !!---------------------------------------------------------------------- 
    684731 
    … …  
    709756      &      '    max :',e18.10,'    drift :',e18.10, ' %') 
    710757      ! 
     758      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    711759   END SUBROUTINE trc_rst_stat 
    712760 
    … …  
    730778      REAL(wp), DIMENSION(jpi,jpj)     :: z2d, zarea 
    731779      REAL(wp), DIMENSION(6)           :: loc_cycletot3, loc_cycletot2 
     780      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     781      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     782      REAL(KIND=jprb)               :: zhook_handle 
     783 
     784      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_RST_CONSERVE' 
     785 
     786      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     787 
    732788      !!---------------------------------------------------------------------- 
    733789      ! 
    … …  
    855911             ' delta:',e18.10,' %:',e18.10) 
    856912      ! 
     913      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    857914   END SUBROUTINE trc_rst_conserve  
    858915# endif 
    … …  
    865922CONTAINS 
    866923   SUBROUTINE trc_rst_read                      ! Empty routines 
     924   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     925   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     926   REAL(KIND=jprb)               :: zhook_handle 
     927 
     928   CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_RST_READ' 
     929 
     930   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     931 
     932   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    867933   END SUBROUTINE trc_rst_read 
    868934   SUBROUTINE trc_rst_wri( kt ) 
    869935      INTEGER, INTENT ( in ) :: kt 
     936      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     937      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     938      REAL(KIND=jprb)               :: zhook_handle 
     939 
     940      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_RST_WRI' 
     941 
     942      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     943 
    870944      WRITE(*,*) 'trc_rst_wri: You should not have seen this print! error?', kt 
     945      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    871946   END SUBROUTINE trc_rst_wri    
    872947#endif 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/trcsms.F90

    r8442 r11738  
    2424   USE prtctl_trc         ! Print control for debbuging 
    2525 
     26   USE yomhook, ONLY: lhook, dr_hook 
     27   USE parkind1, ONLY: jprb, jpim 
     28 
    2629   IMPLICIT NONE 
    2730   PRIVATE 
    … …  
    4750      !! 
    4851      CHARACTER (len=25) :: charout 
     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='TRC_SMS' 
     57 
     58      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     59 
    4960      !!--------------------------------------------------------------------- 
    5061      ! 
    … …  
    6778      IF( nn_timing == 1 )   CALL timing_stop('trc_sms') 
    6879      ! 
     80      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    6981   END SUBROUTINE trc_sms 
    7082 
    … …  
    7688   SUBROUTINE trc_sms( kt )                   ! Empty routine 
    7789      INTEGER, INTENT( in ) ::   kt 
     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='TRC_SMS' 
     95 
     96      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     97 
    7898      WRITE(*,*) 'trc_sms: You should not have seen this print! error?', kt 
     99      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    79100   END SUBROUTINE trc_sms 
    80101#endif  

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/trcstat.F90

    r10047 r11738  
    3737   USE lib_fortran 
    3838 
     39   USE yomhook, ONLY: lhook, dr_hook 
     40   USE parkind1, ONLY: jprb, jpim 
     41 
    3942   IMPLICIT NONE 
    4043   PRIVATE 
    … …  
    5760      REAL(wp) :: ztraf, zmin, zmax, zmean, zdrift, areasf 
    5861      REAL(wp), DIMENSION(jpi,jpj) :: zvol 
     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='TRC_RST_TRA_STAT' 
     67 
     68      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     69 
    5970      !!---------------------------------------------------------------------- 
    6071 
    … …  
    8293      &      '    max :',e18.10) 
    8394      ! 
     95      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    8496   END SUBROUTINE trc_rst_tra_stat 
    8597 
    … …  
    99111      REAL(wp) :: ztraf, zmin, zmax, zmean, areasf 
    100112      REAL(wp), DIMENSION(jpi,jpj) :: zvol 
     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='TRC_RST_DIA_STAT' 
     118 
     119      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     120 
    101121      !!---------------------------------------------------------------------- 
    102122 
    … …  
    131151      &      '    max :',e18.10 ) 
    132152      ! 
     153      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    133154   END SUBROUTINE trc_rst_dia_stat 
    134155 
    … …  
    140161CONTAINS 
    141162   SUBROUTINE trc_rst_dia_stat                      ! Empty routines 
     163   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     164   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     165   REAL(KIND=jprb)               :: zhook_handle 
     166 
     167   CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_RST_DIA_STAT' 
     168 
     169   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     170 
    142171      WRITE(*,*) 'trc_rst_wri: You should not have seen this print! error?' 
     172   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    143173   END SUBROUTINE trc_rst_dia_stat 
    144174   SUBROUTINE trc_rst_dia_stat( dgtr, names) 
    145175      REAL(wp), DIMENSION(jpi,jpj) , INTENT(in) ::   dgtr      ! 2D diag var 
    146176      CHARACTER(len=*)             , INTENT(in) ::   names     ! 2D diag name 
     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='TRC_RST_DIA_STAT' 
     182 
     183      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     184 
    147185      WRITE(*,*) 'trc_rst_wri: You should not have seen this print! error?' 
     186      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    148187   END SUBROUTINE trc_rst_dia_stat   
    149188#endif 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/trcstp.F90

    r9237 r11738  
    2626   USE trcsub 
    2727 
     28   USE yomhook, ONLY: lhook, dr_hook 
     29   USE parkind1, ONLY: jprb, jpim 
     30 
    2831   IMPLICIT NONE 
    2932   PRIVATE 
    … …  
    6366      REAL(wp)              ::  ztrai 
    6467      CHARACTER (len=25)    ::  charout  
     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='TRC_STP' 
     73 
     74      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     75 
    6576      !!------------------------------------------------------------------- 
    6677      ! 
    … …  
    140151      IF( nn_timing == 1 )   CALL timing_stop('trc_stp') 
    141152      ! 
     153      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    142154   END SUBROUTINE trc_stp 
    143155 
    … …  
    159171      CHARACTER(len=1)               ::   cl1                      ! 1 character 
    160172      CHARACTER(len=2)               ::   cl2                      ! 2 characters 
     173      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     174      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     175      REAL(KIND=jprb)               :: zhook_handle 
     176 
     177      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_MEAN_QSR' 
     178 
     179      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     180 
    161181 
    162182      IF( kt == nittrc000 ) THEN 
    … …  
    238258      ENDIF 
    239259      ! 
     260      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    240261   END SUBROUTINE trc_mean_qsr 
    241262 
    … …  
    246267CONTAINS 
    247268   SUBROUTINE trc_stp( kt )        ! Empty routine 
     269   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     270   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     271   REAL(KIND=jprb)               :: zhook_handle 
     272 
     273   CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_STP' 
     274 
     275   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     276 
    248277      WRITE(*,*) 'trc_stp: You should not have seen this print! error?', kt 
     278   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    249279   END SUBROUTINE trc_stp 
    250280#endif 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/trcsub.F90

    r6486 r11738  
    3333#endif 
    3434 
     35   USE yomhook, ONLY: lhook, dr_hook 
     36   USE parkind1, ONLY: jprb, jpim 
     37 
    3538   IMPLICIT NONE 
    3639 
    … …  
    6568      INTEGER               ::  ji,jj,jk  ! dummy loop indices 
    6669      REAL(wp)              ::  z1_ne3t, z1_ne3u, z1_ne3v, z1_ne3w 
     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='TRC_SUB_STP' 
     75 
     76      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     77 
    6778      !!------------------------------------------------------------------- 
    6879      ! 
    … …  
    275286      IF( nn_timing == 1 )  CALL timing_start('trc_sub_stp') 
    276287      ! 
     288      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    277289   END SUBROUTINE trc_sub_stp 
    278290 
    … …  
    287299      !!------------------------------------------------------------------- 
    288300      INTEGER ::   ierr 
     301      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     302      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     303      REAL(KIND=jprb)               :: zhook_handle 
     304 
     305      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_SUB_INI' 
     306 
     307      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     308 
    289309      !!------------------------------------------------------------------- 
    290310      ! 
    … …  
    338358      IF( nn_timing == 1 )  CALL timing_stop('trc_sub_ini') 
    339359      ! 
     360      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    340361   END SUBROUTINE trc_sub_ini 
    341362 
    … …  
    351372      INTEGER, INTENT( in ) ::  kt  ! ocean time-step index 
    352373      INTEGER :: jk                 ! dummy loop indices 
     374      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     375      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     376      REAL(KIND=jprb)               :: zhook_handle 
     377 
     378      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_SUB_RESET' 
     379 
     380      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     381 
    353382      !!------------------------------------------------------------------- 
    354383      ! 
    … …  
    443472      IF( nn_timing == 1 )  CALL timing_stop('trc_sub_reset') 
    444473      ! 
     474      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    445475   END SUBROUTINE trc_sub_reset 
    446476 
    … …  
    470500      REAL(wp) ::   zcoefu, zcoefv, zcoeff, z2dt, z1_2dt, z1_rau0   ! local scalars 
    471501      REAL(wp), POINTER, DIMENSION(:,:) :: zhdiv 
     502      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     503      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     504      REAL(KIND=jprb)               :: zhook_handle 
     505 
     506      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_SUB_SSH' 
     507 
     508      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     509 
    472510      !!--------------------------------------------------------------------- 
    473511      ! 
    … …  
    536574      IF( nn_timing == 1 )  CALL timing_stop('trc_sub_ssh') 
    537575      ! 
     576      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    538577   END SUBROUTINE trc_sub_ssh 
    539578 
    … …  
    544583      USE lib_mpp, ONLY: ctl_warn 
    545584      INTEGER ::  ierr 
     585      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     586      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     587      REAL(KIND=jprb)               :: zhook_handle 
     588 
     589      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_SUB_ALLOC' 
     590 
     591      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     592 
    546593      !!------------------------------------------------------------------- 
    547594      ! 
    … …  
    590637 
    591638      ! 
     639      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    592640   END FUNCTION trc_sub_alloc 
    593641 
    … …  
    598646CONTAINS 
    599647   SUBROUTINE trc_sub_stp( kt )        ! Empty routine 
     648   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     649   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     650   REAL(KIND=jprb)               :: zhook_handle 
     651 
     652   CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_SUB_STP' 
     653 
     654   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     655 
    600656      WRITE(*,*) 'trc_sub_stp: You should not have seen this print! error?', kt 
     657   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    601658   END SUBROUTINE trc_sub_stp 
    602659   SUBROUTINE trc_sub_ini        ! Empty routine 
     660   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     661   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     662   REAL(KIND=jprb)               :: zhook_handle 
     663 
     664   CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_SUB_INI' 
     665 
     666   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     667 
    603668      WRITE(*,*) 'trc_sub_ini: You should not have seen this print! error?', kt 
     669   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    604670   END SUBROUTINE trc_sub_ini 
    605671 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/trcwri.F90

    r8442 r11738  
    2626   USE trcwri_medusa 
    2727 
     28   USE yomhook, ONLY: lhook, dr_hook 
     29   USE parkind1, ONLY: jprb, jpim 
     30 
    2831   IMPLICIT NONE 
    2932   PRIVATE 
    … …  
    4851      CHARACTER (len=40)        :: clhstnam 
    4952      INTEGER ::   inum = 11            ! temporary logical unit 
     53      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     54      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     55      REAL(KIND=jprb)               :: zhook_handle 
     56 
     57      CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_WRI' 
     58 
     59      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     60 
    5061      !!--------------------------------------------------------------------- 
    5162      ! 
    … …  
    7081      IF( nn_timing == 1 )  CALL timing_stop('trc_wri') 
    7182      ! 
     83      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    7284   END SUBROUTINE trc_wri 
    7385 
    … …  
    8092   SUBROUTINE trc_wri( kt )                     ! Empty routine    
    8193   INTEGER, INTENT(in) :: kt 
     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='TRC_WRI' 
     99 
     100   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     101 
     102   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    82103   END SUBROUTINE trc_wri 
    83104#endif 
Note: See TracChangeset for help on using the changeset viewer.