Changeset 11738 for branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DOM/domvvl.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/DOM/domvvl.F90
r9321 r11738 34 34 USE timing ! Timing 35 35 36 USE yomhook, ONLY: lhook, dr_hook 37 USE parkind1, ONLY: jprb, jpim 38 36 39 IMPLICIT NONE 37 40 PRIVATE … … 78 81 79 82 INTEGER FUNCTION dom_vvl_alloc() 83 INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 84 INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 85 REAL(KIND=jprb) :: zhook_handle 86 87 CHARACTER(LEN=*), PARAMETER :: RoutineName='DOM_VVL_ALLOC' 88 89 IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 90 80 91 !!---------------------------------------------------------------------- 81 92 !! *** FUNCTION dom_vvl_alloc *** … … 97 108 ENDIF 98 109 110 IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 99 111 END FUNCTION dom_vvl_alloc 100 112 … … 127 139 INTEGER :: ii0, ii1, ij0, ij1 128 140 REAL(wp):: zcoef 141 INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 142 INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 143 REAL(KIND=jprb) :: zhook_handle 144 145 CHARACTER(LEN=*), PARAMETER :: RoutineName='DOM_VVL_INIT' 146 147 IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 148 129 149 !!---------------------------------------------------------------------- 130 150 IF( nn_timing == 1 ) CALL timing_start('dom_vvl_init') … … 247 267 IF( nn_timing == 1 ) CALL timing_stop('dom_vvl_init') 248 268 269 IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 249 270 END SUBROUTINE dom_vvl_init 250 271 … … 283 304 REAL(wp) :: z_tmin, z_tmax ! temporary scalars 284 305 LOGICAL :: ll_do_bclinic ! temporary logical 306 INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 307 INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 308 REAL(KIND=jprb) :: zhook_handle 309 310 CHARACTER(LEN=*), PARAMETER :: RoutineName='DOM_VVL_SF_NXT' 311 312 IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 313 285 314 !!---------------------------------------------------------------------- 286 315 IF( nn_timing == 1 ) CALL timing_start('dom_vvl_sf_nxt') … … 553 582 IF( nn_timing == 1 ) CALL timing_stop('dom_vvl_sf_nxt') 554 583 584 IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 555 585 END SUBROUTINE dom_vvl_sf_nxt 556 586 … … 585 615 INTEGER :: ji,jj,jk ! dummy loop indices 586 616 REAL(wp) :: zcoef 617 INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 618 INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 619 REAL(KIND=jprb) :: zhook_handle 620 621 CHARACTER(LEN=*), PARAMETER :: RoutineName='DOM_VVL_SF_SWP' 622 623 IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 624 587 625 !!---------------------------------------------------------------------- 588 626 … … 673 711 IF( nn_timing == 1 ) CALL timing_stop('dom_vvl_sf_swp') 674 712 713 IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 675 714 END SUBROUTINE dom_vvl_sf_swp 676 715 … … 694 733 INTEGER :: ji, jj, jk ! dummy loop indices 695 734 LOGICAL :: l_is_orca ! local logical 735 INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 736 INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 737 REAL(KIND=jprb) :: zhook_handle 738 739 CHARACTER(LEN=*), PARAMETER :: RoutineName='DOM_VVL_INTERPOL' 740 741 IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 742 696 743 !!---------------------------------------------------------------------- 697 744 IF( nn_timing == 1 ) CALL timing_start('dom_vvl_interpol') … … 790 837 IF( nn_timing == 1 ) CALL timing_stop('dom_vvl_interpol') 791 838 839 IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 792 840 END SUBROUTINE dom_vvl_interpol 793 841 … … 810 858 INTEGER :: jk 811 859 INTEGER :: id1, id2, id3, id4, id5 ! local integers 860 INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 861 INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 862 REAL(KIND=jprb) :: zhook_handle 863 864 CHARACTER(LEN=*), PARAMETER :: RoutineName='DOM_VVL_RST' 865 866 IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 867 812 868 !!---------------------------------------------------------------------- 813 869 ! … … 930 986 IF( nn_timing == 1 ) CALL timing_stop('dom_vvl_rst') 931 987 988 IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 932 989 END SUBROUTINE dom_vvl_rst 933 990 … … 946 1003 & ln_vvl_zstar_at_eqtor , rn_ahe3 , rn_rst_e3t , & 947 1004 & rn_lf_cutoff , rn_zdef_max , ln_vvl_dbg ! not yet implemented: ln_vvl_kepe 1005 INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 1006 INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 1007 REAL(KIND=jprb) :: zhook_handle 1008 1009 CHARACTER(LEN=*), PARAMETER :: RoutineName='DOM_VVL_CTL' 1010 1011 IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 1012 948 1013 !!---------------------------------------------------------------------- 949 1014 … … 1014 1079 #endif 1015 1080 1081 IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 1016 1082 END SUBROUTINE dom_vvl_ctl 1017 1083 … … 1035 1101 INTEGER :: ij0, ij1, ii0, ii1 ! dummy loop indices 1036 1102 INTEGER :: isrow ! index for ORCA1 starting row 1103 INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 1104 INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 1105 REAL(KIND=jprb) :: zhook_handle 1106 1107 CHARACTER(LEN=*), PARAMETER :: RoutineName='DOM_VVL_ORCA_FIX' 1108 1109 IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 1110 1037 1111 !! acc 1038 1112 !! Hmm with the time splitting these "fixes" seem to do more harm than good. Temporarily disabled for … … 1404 1478 END DO 1405 1479 ENDIF 1480 IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 1406 1481 END SUBROUTINE dom_vvl_orca_fix 1407 1482
Note: See TracChangeset
for help on using the changeset viewer.