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

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

The Dr Hook changes from my perl code.

Location:
branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DIA
Files:
9 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   !!====================================================================== 
Note: See TracChangeset for help on using the changeset viewer.