Changeset 11738 for branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/TRD/trdpen.F90
- Timestamp:
- 2019-10-21T09:34:11+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/TRD/trdpen.F90
r7179 r11738 25 25 USE wrk_nemo ! Memory allocation 26 26 27 USE yomhook, ONLY: lhook, dr_hook 28 USE parkind1, ONLY: jprb, jpim 29 27 30 IMPLICIT NONE 28 31 PRIVATE … … 47 50 48 51 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 49 60 !!--------------------------------------------------------------------- 50 61 !! *** FUNCTION trd_tra_alloc *** … … 54 65 IF( lk_mpp ) CALL mpp_sum ( trd_pen_alloc ) 55 66 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) 56 68 END FUNCTION trd_pen_alloc 57 69 … … 73 85 REAL(wp), POINTER, DIMENSION(:,:) :: z2d ! 2D workspace 74 86 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 75 95 !!---------------------------------------------------------------------- 76 96 ! … … 128 148 CALL wrk_dealloc( jpi, jpj, jpk, zpe ) 129 149 ! 150 IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 130 151 END SUBROUTINE trd_pen 131 152 … … 138 159 !!---------------------------------------------------------------------- 139 160 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 140 169 !!---------------------------------------------------------------------- 141 170 ! … … 154 183 nkstp = nit000 - 1 155 184 ! 185 IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 156 186 END SUBROUTINE trd_pen_init 157 187
Note: See TracChangeset
for help on using the changeset viewer.