- Timestamp:
- 2014-02-04T13:16:26+01:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_tvd.F90
r4445 r4452 163 163 ! -------------------------------------------------------------------- 164 164 ! upstream tracer flux in the i and j direction 165 CALL timing_start('tvd_upstream')165 !CALL timing_start('tvd_upstream') 166 166 #if defined key_z_first 167 167 DO jj = 1, jpjm1 … … 183 183 END DO 184 184 END DO 185 CALL timing_stop('tvd_upstream','section')185 !CALL timing_stop('tvd_upstream','section') 186 186 187 187 ! upstream tracer flux in the k direction 188 188 ! Surface value 189 CALL timing_start('tvd_upstreamk')189 !CALL timing_start('tvd_upstreamk') 190 190 IF( lk_vvl ) THEN ; zwz(:,:, 1 ) = 0.e0 ! volume variable 191 191 ELSE ; zwz(:,:, 1 ) = pwn(:,:,1) * ptb(:,:,1,jn) ! linear free surface … … 207 207 END DO 208 208 END DO 209 CALL timing_stop('tvd_upstreamk','section')209 !CALL timing_stop('tvd_upstreamk','section') 210 210 211 211 ! total advective trend 212 CALL timing_start('tvd_tot')212 !CALL timing_start('tvd_tot') 213 213 #if defined key_z_first 214 214 DO jj = 2, jpjm1 … … 233 233 END DO 234 234 END DO 235 CALL timing_stop('tvd_tot','section')235 !CALL timing_stop('tvd_tot','section') 236 236 237 237 ! ! Lateral boundary conditions on zwi (unchanged sign) 238 CALL timing_start('tvd_lbc')238 !CALL timing_start('tvd_lbc') 239 239 CALL lbc_lnk( zwi, 'T', 1. ) 240 CALL timing_stop('tvd_lbc','section')240 !CALL timing_stop('tvd_lbc','section') 241 241 242 242 ! ! trend diagnostics (contribution of upstream fluxes) … … 254 254 ! -------------------------------------------------- 255 255 ! antidiffusive flux on i and j 256 CALL timing_start('tvd_antidiff')256 !CALL timing_start('tvd_antidiff') 257 257 #if defined key_z_first 258 258 DO jj = 1, jpjm1 … … 269 269 END DO 270 270 END DO 271 CALL timing_stop('tvd_antidiff','section')271 !CALL timing_stop('tvd_antidiff','section') 272 272 273 273 ! antidiffusive flux on k 274 CALL timing_start('tvd_antidiffk')274 !CALL timing_start('tvd_antidiffk') 275 275 #if defined key_z_first 276 276 DO jj = 1, jpj … … 289 289 END DO 290 290 END DO 291 CALL timing_stop('tvd_antidiffk','section')292 293 CALL timing_start('tvd_lbc')291 !CALL timing_stop('tvd_antidiffk','section') 292 293 !CALL timing_start('tvd_lbc') 294 294 CALL lbc_lnk( zwx, 'U', -1. ) ; CALL lbc_lnk( zwy, 'V', -1. ) ! Lateral bondary conditions 295 295 CALL lbc_lnk( zwz, 'W', 1. ) 296 CALL timing_stop('tvd_lbc','section')296 !CALL timing_stop('tvd_lbc','section') 297 297 298 298 ! 4. monotonicity algorithm … … 305 305 ! 5. final trend with corrected fluxes 306 306 ! ------------------------------------ 307 CALL timing_start('tvd_finaltr')307 !CALL timing_start('tvd_finaltr') 308 308 #if defined key_z_first 309 309 DO jj = 2, jpjm1 … … 342 342 ENDIF 343 343 ! 344 CALL timing_stop('tvd_finaltr','section')344 !CALL timing_stop('tvd_finaltr','section') 345 345 346 346 END DO … … 473 473 END DO 474 474 END DO 475 CALL timing_start('tvd_lbc')475 !CALL timing_start('tvd_lbc') 476 476 CALL lbc_lnk( zbetup, 'T', 1. ) ; CALL lbc_lnk( zbetdo, 'T', 1. ) ! lateral boundary cond. (unchanged sign) 477 CALL timing_stop('tvd_lbc','section')477 !CALL timing_stop('tvd_lbc','section') 478 478 479 479 … … 509 509 END DO 510 510 END DO 511 CALL timing_start('tvd_lbc')511 !CALL timing_start('tvd_lbc') 512 512 CALL lbc_lnk( paa, 'U', -1. ) ; CALL lbc_lnk( pbb, 'V', -1. ) ! lateral boundary condition (changed sign) 513 CALL timing_stop('tvd_lbc','section')513 !CALL timing_stop('tvd_lbc','section') 514 514 515 515 !
Note: See TracChangeset
for help on using the changeset viewer.