Changeset 7917
- Timestamp:
- 2017-04-18T10:47:12+02:00 (7 years ago)
- Location:
- branches/2017/dev_r7881_no_wrk_alloc/NEMOGCM/NEMO/LIM_SRC_3
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_r7881_no_wrk_alloc/NEMOGCM/NEMO/LIM_SRC_3/limhdf.F90
r7910 r7917 65 65 INTEGER , PARAMETER :: num_convfrq = 5 ! convergence check frequency of the Crant-Nicholson scheme (perf. optimization) 66 66 REAL(wp), POINTER, DIMENSION(:) :: zconv 67 REAL(wp), DIMENSION(jpi,jpj,isize) :: zrlx, zdiv0, ztab0 67 REAL(wp), ALLOCATABLE, DIMENSION(:,:,:), TARGET :: zrlx 68 REAL(wp), ALLOCATABLE, DIMENSION(:,:,:) :: zdiv0, ztab0 68 69 REAL(wp), DIMENSION(jpi,jpj) :: zflu, zflv, zdiv 69 70 !!------------------------------------------------------------------- … … 81 82 ALLOCATE( type_array(isize) ) 82 83 ALLOCATE( psgn_array(isize) ) 84 ALLOCATE( zrlx(jpi, jpj, isize), zdiv0(jpi,jpj,isize),ztab0(jpi,jpj,isize)) 85 83 86 84 87 … … 208 211 DEALLOCATE( type_array ) 209 212 DEALLOCATE( psgn_array ) 213 DEALLOCATE( zrlx, zdiv0, ztab0 ) 210 214 ! 211 215 END SUBROUTINE lim_hdf -
branches/2017/dev_r7881_no_wrk_alloc/NEMOGCM/NEMO/LIM_SRC_3/limistate.F90
r7910 r7917 458 458 !!! 459 459 460 Call wrk_dealloc( 4, itest )461 462 460 END SUBROUTINE lim_istate 463 461 -
branches/2017/dev_r7881_no_wrk_alloc/NEMOGCM/NEMO/LIM_SRC_3/limtrp.F90
r7910 r7917 74 74 REAL(wp), DIMENSION(jpi,jpj,jpl) :: zhimax, zviold, zvsold 75 75 ! --- diffusion --- ! 76 REAL(wp), DIMENSION(jpi,jpj,jpl*(ihdf_vars+nlay_i)+1) :: zhdfptab77 76 INTEGER , PARAMETER :: ihdf_vars = 6 ! Number of variables in which we apply horizontal diffusion 78 77 ! inside limtrp for each ice category , not counting the 79 78 ! variables corresponding to ice_layers 79 REAL(wp), DIMENSION(jpi,jpj,jpl*(ihdf_vars+nlay_i)+1) :: zhdfptab 80 80 ! --- ultimate macho only --- ! 81 81 REAL(wp) :: zdt
Note: See TracChangeset
for help on using the changeset viewer.