Changeset 11738 for branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/trc.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/TOP_SRC/trc.F90
r10196 r11738 16 16 USE par_trc 17 17 18 USE yomhook, ONLY: lhook, dr_hook 19 USE parkind1, ONLY: jprb, jpim 20 18 21 IMPLICIT NONE 19 22 PUBLIC … … 268 271 !!------------------------------------------------------------------- 269 272 USE lib_mpp, ONLY: ctl_warn 273 INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 274 INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 275 REAL(KIND=jprb) :: zhook_handle 276 277 CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_ALLOC' 278 279 IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 280 270 281 !!------------------------------------------------------------------- 271 282 ! … … 288 299 289 300 ! 301 IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 290 302 END FUNCTION trc_alloc 291 303
Note: See TracChangeset
for help on using the changeset viewer.