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

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

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

The Dr Hook changes from my perl code.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • 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 
Note: See TracChangeset for help on using the changeset viewer.