Changeset 11738 for branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/CFC/trcini_cfc.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/CFC/trcini_cfc.F90
r9385 r11738 17 17 USE trc ! TOP variables 18 18 USE trcsms_cfc ! CFC sms trends 19 20 USE yomhook, ONLY: lhook, dr_hook 21 USE parkind1, ONLY: jprb, jpim 19 22 20 23 IMPLICIT NONE … … 47 50 INTEGER :: iskip = 7 ! number of 1st descriptor lines 48 51 REAL(wp) :: zyy, zyd 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='TRC_INI_CFC' 57 58 IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 59 49 60 !!---------------------------------------------------------------------- 50 61 … … 70 81 CALL ctl_stop('trc_ini_cfc: & 71 82 & Error on the 1st reading of cfc1112sf6.atm') 83 IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 72 84 RETURN 73 85 ENDIF … … 79 91 IF( ierr > 0 ) THEN 80 92 CALL ctl_stop( 'trc_ini_cfc: unable to allocate p_cfc array' ) 93 IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 81 94 RETURN 82 95 ENDIF … … 117 130 CALL ctl_stop('trc_ini_cfc: & 118 131 & Error on the 2nd reading of cfc1112sf6.atm') 132 IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 119 133 RETURN 120 134 ENDIF … … 157 171 IF(lwp) WRITE(numout,*) ' ' 158 172 ! 173 IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 159 174 END SUBROUTINE trc_ini_cfc 160 175 … … 165 180 CONTAINS 166 181 SUBROUTINE trc_ini_cfc ! Empty routine 182 INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 183 INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 184 REAL(KIND=jprb) :: zhook_handle 185 186 CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_INI_CFC' 187 188 IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 189 190 IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 167 191 END SUBROUTINE trc_ini_cfc 168 192 #endif
Note: See TracChangeset
for help on using the changeset viewer.