- Timestamp:
- 2017-12-19T09:26:25+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/BDY/bdytra.F90
r7646 r9124 78 78 END SUBROUTINE bdy_tra 79 79 80 80 81 SUBROUTINE bdy_rnf( idx, pta, jpa ) 81 82 !!---------------------------------------------------------------------- … … 96 97 !!---------------------------------------------------------------------- 97 98 ! 98 IF( nn_timing == 1 ) CALL timing_start('bdy_rnf')99 !100 99 igrd = 1 ! Everything is at T-points here 101 100 DO ib = 1, idx%nblenrim(igrd) … … 110 109 END DO 111 110 ! 112 IF( nn_timing == 1 ) CALL timing_stop('bdy_rnf')113 !114 111 END SUBROUTINE bdy_rnf 112 115 113 116 114 SUBROUTINE bdy_tra_dmp( kt ) … … 130 128 !!---------------------------------------------------------------------- 131 129 ! 132 IF( nn_timing == 1) CALL timing_start('bdy_tra_dmp')130 IF( ln_timing ) CALL timing_start('bdy_tra_dmp') 133 131 ! 134 132 DO ib_bdy = 1, nb_bdy … … 149 147 END DO 150 148 ! 151 IF( nn_timing == 1) CALL timing_stop('bdy_tra_dmp')149 IF( ln_timing ) CALL timing_stop('bdy_tra_dmp') 152 150 ! 153 151 END SUBROUTINE bdy_tra_dmp
Note: See TracChangeset
for help on using the changeset viewer.