Changeset 11738 for branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_exp.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/DYN/dynspg_exp.F90
r10047 r11738 27 27 USE timing ! Timing 28 28 29 30 USE yomhook, ONLY: lhook, dr_hook 31 USE parkind1, ONLY: jprb, jpim 29 32 30 33 IMPLICIT NONE … … 63 66 !! 64 67 INTEGER :: ji, jj, jk ! dummy loop indices 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='DYN_SPG_EXP' 73 74 IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 75 65 76 !!---------------------------------------------------------------------- 66 77 ! … … 99 110 IF( nn_timing == 1 ) CALL timing_stop('dyn_spg_exp') 100 111 ! 112 IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 101 113 END SUBROUTINE dyn_spg_exp 102 114 … … 107 119 CONTAINS 108 120 SUBROUTINE dyn_spg_exp( kt ) ! Empty routine 121 USE yomhook, ONLY: lhook, dr_hook 122 USE parkind1, ONLY: jprb, jpim 123 109 124 IMPLICIT NONE 110 125 INTEGER, INTENT(in) :: kt ! ocean time-step index 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='DYN_SPG_EXP' 131 132 IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 133 111 134 WRITE(*,*) 'dyn_spg_exp: You should not have seen this print! error?', kt 135 IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 112 136 END SUBROUTINE dyn_spg_exp 113 137 #endif
Note: See TracChangeset
for help on using the changeset viewer.