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/LDF – 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/OPA_SRC/LDF
Files:
8 edited

Legend:

Unmodified
Added
Removed

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