- Timestamp:
- 2017-12-19T09:26:25+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/BDY/bdydyn3d.F90
r9090 r9124 80 80 !!---------------------------------------------------------------------- 81 81 ! 82 IF( nn_timing == 1 ) CALL timing_start('bdy_dyn3d_spe')83 !84 82 igrd = 2 ! Relaxation of zonal velocity 85 83 DO jb = 1, idx%nblenrim(igrd) … … 104 102 IF( kt == nit000 ) CLOSE( unit = 102 ) 105 103 ! 106 IF( nn_timing == 1 ) CALL timing_stop('bdy_dyn3d_spe')107 !108 104 END SUBROUTINE bdy_dyn3d_spe 105 109 106 110 107 SUBROUTINE bdy_dyn3d_zgrad( idx, dta, kt , ib_bdy ) … … 126 123 !!---------------------------------------------------------------------- 127 124 ! 128 IF( nn_timing == 1 ) CALL timing_start('bdy_dyn3d_zgrad')129 !130 125 igrd = 2 ! Copying tangential velocity into bdy points 131 126 DO jb = 1, idx%nblenrim(igrd) … … 152 147 CALL lbc_bdy_lnk( va, 'V', -1., ib_bdy ) 153 148 ! 154 IF( kt .eq. nit000 ) CLOSE( unit = 102 ) 155 156 IF( nn_timing == 1 ) CALL timing_stop('bdy_dyn3d_zgrad') 157 149 IF( kt == nit000 ) CLOSE( unit = 102 ) 150 ! 158 151 END SUBROUTINE bdy_dyn3d_zgrad 152 159 153 160 154 SUBROUTINE bdy_dyn3d_zro( idx, dta, kt, ib_bdy ) … … 174 168 REAL(wp) :: zwgt ! boundary weight 175 169 !!---------------------------------------------------------------------- 176 !177 IF( nn_timing == 1 ) CALL timing_start('bdy_dyn3d_zro')178 170 ! 179 171 igrd = 2 ! Everything is at T-points here … … 199 191 IF( kt == nit000 ) CLOSE( unit = 102 ) 200 192 ! 201 IF( nn_timing == 1 ) CALL timing_stop('bdy_dyn3d_zro')202 !203 193 END SUBROUTINE bdy_dyn3d_zro 204 194 … … 225 215 !!---------------------------------------------------------------------- 226 216 ! 227 IF( nn_timing == 1 ) CALL timing_start('bdy_dyn3d_frs')228 !229 217 igrd = 2 ! Relaxation of zonal velocity 230 218 DO jb = 1, idx%nblen(igrd) … … 250 238 ! 251 239 IF( kt == nit000 ) CLOSE( unit = 102 ) 252 !253 IF( nn_timing == 1 ) CALL timing_stop('bdy_dyn3d_frs')254 240 ! 255 241 END SUBROUTINE bdy_dyn3d_frs … … 273 259 INTEGER :: jb, igrd ! dummy loop indices 274 260 !!---------------------------------------------------------------------- 275 276 IF( nn_timing == 1 ) CALL timing_start('bdy_dyn3d_orlanski')277 261 ! 278 262 !! Note that at this stage the ub and ua arrays contain the baroclinic velocities. … … 289 273 CALL lbc_bdy_lnk( va, 'V', -1., ib_bdy ) 290 274 ! 291 IF( nn_timing == 1 ) CALL timing_stop('bdy_dyn3d_orlanski')292 !293 275 END SUBROUTINE bdy_dyn3d_orlanski 294 276 … … 309 291 !!---------------------------------------------------------------------- 310 292 ! 311 IF( nn_timing == 1) CALL timing_start('bdy_dyn3d_dmp')293 IF( ln_timing ) CALL timing_start('bdy_dyn3d_dmp') 312 294 ! 313 295 DO ib_bdy=1, nb_bdy … … 339 321 CALL lbc_lnk_multi( ua, 'U', -1., va, 'V', -1. ) ! Boundary points should be updated 340 322 ! 341 IF( nn_timing == 1) CALL timing_stop('bdy_dyn3d_dmp')323 IF( ln_timing ) CALL timing_stop('bdy_dyn3d_dmp') 342 324 ! 343 325 END SUBROUTINE bdy_dyn3d_dmp 326 344 327 345 328 SUBROUTINE bdy_dyn3d_nmn( idx, ib_bdy ) … … 357 340 INTEGER :: jb, igrd ! dummy loop indices 358 341 !!---------------------------------------------------------------------- 359 360 IF( nn_timing == 1 ) CALL timing_start('bdy_dyn3d_nmn')361 342 ! 362 343 !! Note that at this stage the ub and ua arrays contain the baroclinic velocities. … … 373 354 CALL lbc_bdy_lnk( va, 'V', -1., ib_bdy ) 374 355 ! 375 IF( nn_timing == 1 ) CALL timing_stop('bdy_dyn3d_nmn')376 !377 356 END SUBROUTINE bdy_dyn3d_nmn 378 357
Note: See TracChangeset
for help on using the changeset viewer.