- Timestamp:
- 2017-12-13T15:58:53+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/DYN/dynnxt.F90
r7753 r9019 44 44 USE lbclnk ! lateral boundary condition (or mpp link) 45 45 USE lib_mpp ! MPP library 46 USE wrk_nemo ! Memory Allocation47 46 USE prtctl ! Print control 48 47 USE timing ! Timing … … 57 56 58 57 !!---------------------------------------------------------------------- 59 !! NEMO/OPA 3.3 , NEMO Consortium (2010)58 !! NEMO/OPA 4.0 , NEMO Consortium (2017) 60 59 !! $Id$ 61 60 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) … … 97 96 REAL(wp) :: zue3a, zue3n, zue3b, zuf, zcoef ! local scalars 98 97 REAL(wp) :: zve3a, zve3n, zve3b, zvf, z1_2dt ! - - 99 REAL(wp), POINTER, DIMENSION(:,:) ::zue, zve100 REAL(wp), POINTER, DIMENSION(:,:,:) ::ze3u_f, ze3v_f, zua, zva98 REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: zue, zve 99 REAL(wp), ALLOCATABLE, DIMENSION(:,:,:) :: ze3u_f, ze3v_f, zua, zva 101 100 !!---------------------------------------------------------------------- 102 101 ! 103 IF( nn_timing == 1 ) CALL timing_start('dyn_nxt') 104 ! 105 IF( ln_dynspg_ts ) CALL wrk_alloc( jpi,jpj, zue, zve) 106 IF( l_trddyn ) CALL wrk_alloc( jpi,jpj,jpk, zua, zva) 102 IF( ln_timing ) CALL timing_start('dyn_nxt') 103 IF( ln_dynspg_ts ) ALLOCATE( zue(jpi,jpj) , zve(jpi,jpj) ) 104 IF( l_trddyn ) ALLOCATE( zua(jpi,jpj,jpk) , zva(jpi,jpj,jpk) ) 107 105 ! 108 106 IF( kt == nit000 ) THEN … … 253 251 ELSE ! Asselin filter applied on thickness weighted velocity 254 252 ! 255 CALL wrk_alloc( jpi,jpj,jpk, ze3u_f, ze3v_f)253 ALLOCATE( ze3u_f(jpi,jpj,jpk) , ze3v_f(jpi,jpj,jpk) ) 256 254 ! Before filtered scale factor at (u/v)-points stored in ze3u_f, ze3v_f 257 255 CALL dom_vvl_interpol( e3t_b(:,:,:), ze3u_f, 'U' ) … … 280 278 e3v_b(:,:,1:jpkm1) = ze3v_f(:,:,1:jpkm1) 281 279 ! 282 CALL wrk_dealloc( jpi,jpj,jpk, ze3u_f, ze3v_f )280 DEALLOCATE( ze3u_f , ze3v_f ) 283 281 ENDIF 284 282 ! … … 346 344 & tab3d_2=vn, clinfo2=' Vn: ' , mask2=vmask ) 347 345 ! 348 IF( ln_dynspg_ts ) CALL wrk_dealloc( jpi,jpj, zue, zve ) 349 IF( l_trddyn ) CALL wrk_dealloc( jpi,jpj,jpk, zua, zva ) 350 ! 351 IF( nn_timing == 1 ) CALL timing_stop('dyn_nxt') 346 IF( ln_dynspg_ts ) DEALLOCATE( zue, zve ) 347 IF( l_trddyn ) DEALLOCATE( zua, zva ) 348 IF( ln_timing ) CALL timing_stop('dyn_nxt') 352 349 ! 353 350 END SUBROUTINE dyn_nxt
Note: See TracChangeset
for help on using the changeset viewer.