- Timestamp:
- 2017-12-01T18:44:09+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_ubs.F90
r7646 r8882 20 20 USE diaptr ! poleward transport diagnostics 21 21 USE diaar5 ! AR5 diagnostics 22 23 22 ! 24 USE iom 25 USE lib_mpp ! I/Olibrary23 USE iom ! I/O library 24 USE lib_mpp ! massively parallel library 26 25 USE lbclnk ! ocean lateral boundary condition (or mpp link) 27 26 USE in_out_manager ! I/O manager 28 USE wrk_nemo ! Memory Allocation29 27 USE timing ! Timing 30 28 USE lib_fortran ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) … … 101 99 REAL(wp) :: zfp_ui, zfm_ui, zcenut, ztak, zfp_wk, zfm_wk ! - - 102 100 REAL(wp) :: zfp_vj, zfm_vj, zcenvt, zeeu, zeev, z_hdivn ! - - 103 REAL(wp), POINTER, DIMENSION(:,:,:) :: ztu, ztv, zltu, zltv, zti, ztw 104 !!---------------------------------------------------------------------- 105 ! 106 IF( nn_timing == 1 ) CALL timing_start('tra_adv_ubs') 107 ! 108 CALL wrk_alloc( jpi,jpj,jpk, ztu, ztv, zltu, zltv, zti, ztw ) 101 REAL(wp), DIMENSION(jpi,jpj,jpk) :: ztu, ztv, zltu, zltv, zti, ztw ! 3D workspace 102 !!---------------------------------------------------------------------- 103 ! 104 IF( ln_timing ) CALL timing_start('tra_adv_ubs') 109 105 ! 110 106 IF( kt == kit000 ) THEN … … 285 281 END DO 286 282 ! 287 CALL wrk_dealloc( jpi,jpj,jpk, ztu, ztv, zltu, zltv, zti, ztw ) 288 ! 289 IF( nn_timing == 1 ) CALL timing_stop('tra_adv_ubs') 283 IF( ln_timing ) CALL timing_stop('tra_adv_ubs') 290 284 ! 291 285 END SUBROUTINE tra_adv_ubs … … 313 307 INTEGER :: ikm1 ! local integer 314 308 REAL(wp) :: zpos, zneg, zbt, za, zb, zc, zbig, zrtrn ! local scalars 315 REAL(wp), POINTER, DIMENSION(:,:,:) :: zbetup, zbetdo 316 !!---------------------------------------------------------------------- 317 ! 318 IF( nn_timing == 1 ) CALL timing_start('nonosc_z') 319 ! 320 CALL wrk_alloc( jpi,jpj,jpk, zbetup, zbetdo ) 309 REAL(wp), DIMENSION(jpi,jpj,jpk) :: zbetup, zbetdo ! 3D workspace 310 !!---------------------------------------------------------------------- 311 ! 312 IF( ln_timing ) CALL timing_start('nonosc_z') 321 313 ! 322 314 zbig = 1.e+40_wp … … 387 379 END DO 388 380 ! 389 CALL wrk_dealloc( jpi,jpj,jpk, zbetup, zbetdo ) 390 ! 391 IF( nn_timing == 1 ) CALL timing_stop('nonosc_z') 381 IF( ln_timing ) CALL timing_stop('nonosc_z') 392 382 ! 393 383 END SUBROUTINE nonosc_z
Note: See TracChangeset
for help on using the changeset viewer.