- Timestamp:
- 2017-04-13T16:21:08+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_r7881_no_wrk_alloc/NEMOGCM/NEMO/OPA_SRC/DYN/dynvor.F90
r7753 r7910 40 40 USE in_out_manager ! I/O manager 41 41 USE lib_mpp ! MPP library 42 USE wrk_nemo ! Memory Allocation43 42 USE timing ! Timing 44 43 … … 98 97 INTEGER, INTENT( in ) :: kt ! ocean time-step index 99 98 ! 100 REAL(wp), POINTER, DIMENSION(:,:,:) :: ztrdu, ztrdv99 REAL(wp), DIMENSION(jpi,jpj,jpk) :: ztrdu, ztrdv 101 100 !!---------------------------------------------------------------------- 102 101 ! 103 102 IF( nn_timing == 1 ) CALL timing_start('dyn_vor') 104 103 ! 105 IF( l_trddyn ) CALL wrk_alloc( jpi,jpj,jpk, ztrdu, ztrdv )106 104 ! 107 105 SELECT CASE ( nvor_scheme ) !== vorticity trend added to the general trend ==! … … 190 188 & tab3d_2=va, clinfo2= ' Va: ', mask2=vmask, clinfo3='dyn' ) 191 189 ! 192 IF( l_trddyn ) CALL wrk_dealloc( jpi,jpj,jpk, ztrdu, ztrdv )193 190 ! 194 191 IF( nn_timing == 1 ) CALL timing_stop('dyn_vor') … … 225 222 INTEGER :: ji, jj, jk ! dummy loop indices 226 223 REAL(wp) :: zx1, zy1, zx2, zy2 ! local scalars 227 REAL(wp), POINTER, DIMENSION(:,:) :: zwx, zwy, zwz ! 2D workspace224 REAL(wp), DIMENSION(jpi,jpj) :: zwx, zwy, zwz ! 2D workspace 228 225 !!---------------------------------------------------------------------- 229 226 ! 230 227 IF( nn_timing == 1 ) CALL timing_start('vor_ene') 231 228 ! 232 CALL wrk_alloc( jpi,jpj, zwx, zwy, zwz )233 229 ! 234 230 IF( kt == nit000 ) THEN … … 311 307 END DO ! End of slab 312 308 ! ! =============== 313 CALL wrk_dealloc( jpi, jpj, zwx, zwy, zwz )314 309 ! 315 310 IF( nn_timing == 1 ) CALL timing_stop('vor_ene') … … 346 341 INTEGER :: ji, jj, jk ! dummy loop indices 347 342 REAL(wp) :: zuav, zvau ! local scalars 348 REAL(wp), POINTER, DIMENSION(:,:) :: zwx, zwy, zwz, zww ! 2D workspace343 REAL(wp), DIMENSION(jpi,jpj) :: zwx, zwy, zwz, zww ! 2D workspace 349 344 !!---------------------------------------------------------------------- 350 345 ! 351 346 IF( nn_timing == 1 ) CALL timing_start('vor_ens') 352 347 ! 353 CALL wrk_alloc( jpi,jpj, zwx, zwy, zwz )354 348 ! 355 349 IF( kt == nit000 ) THEN … … 431 425 END DO ! End of slab 432 426 ! ! =============== 433 CALL wrk_dealloc( jpi, jpj, zwx, zwy, zwz )434 427 ! 435 428 IF( nn_timing == 1 ) CALL timing_stop('vor_ens') … … 466 459 REAL(wp) :: zmsk, ze3 ! local scalars 467 460 ! 468 REAL(wp), POINTER, DIMENSION(:,:) :: zwx, zwy, zwz, z1_e3f469 REAL(wp), POINTER, DIMENSION(:,:) :: ztnw, ztne, ztsw, ztse461 REAL(wp), DIMENSION(jpi,jpj) :: zwx, zwy, zwz, z1_e3f 462 REAL(wp), DIMENSION(jpi,jpj) :: ztnw, ztne, ztsw, ztse 470 463 !!---------------------------------------------------------------------- 471 464 ! 472 465 IF( nn_timing == 1 ) CALL timing_start('vor_een') 473 466 ! 474 CALL wrk_alloc( jpi,jpj, zwx , zwy , zwz , z1_e3f )475 CALL wrk_alloc( jpi,jpj, ztnw, ztne, ztsw, ztse )476 467 ! 477 468 IF( kt == nit000 ) THEN … … 599 590 ! ! =============== 600 591 ! 601 CALL wrk_dealloc( jpi,jpj, zwx , zwy , zwz , z1_e3f )602 CALL wrk_dealloc( jpi,jpj, ztnw, ztne, ztsw, ztse )603 592 ! 604 593 IF( nn_timing == 1 ) CALL timing_stop('vor_een')
Note: See TracChangeset
for help on using the changeset viewer.