Changeset 11738 for branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/STO/stopts.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/STO/stopts.F90
r6486 r11738 15 15 USE phycst ! physical constants 16 16 USE stopar ! stochastic parameterization 17 18 USE yomhook, ONLY: lhook, dr_hook 19 USE parkind1, ONLY: jprb, jpim 17 20 18 21 IMPLICIT NONE … … 51 54 REAL(wp) :: zdtsim, zdtsjm, zdtskm ! temporary scalars 52 55 REAL(wp) :: zdtsip, zdtsjp, zdtskp, zdts ! - - 56 INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 57 INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 58 REAL(KIND=jprb) :: zhook_handle 59 60 CHARACTER(LEN=*), PARAMETER :: RoutineName='STO_PTS' 61 62 IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 63 53 64 !!---------------------------------------------------------------------- 54 65 … … 127 138 END DO 128 139 140 IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 129 141 END SUBROUTINE sto_pts 130 142 131 143 132 144 SUBROUTINE sto_pts_init 145 INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 146 INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 147 REAL(KIND=jprb) :: zhook_handle 148 149 CHARACTER(LEN=*), PARAMETER :: RoutineName='STO_PTS_INIT' 150 151 IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 152 133 153 !!---------------------------------------------------------------------- 134 154 !! *** ROUTINE sto_pts_init *** … … 142 162 ALLOCATE(pts_ran(jpi,jpj,jpk,jpts,nn_sto_eos)) 143 163 164 IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 144 165 END SUBROUTINE sto_pts_init 145 166
Note: See TracChangeset
for help on using the changeset viewer.