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