Changeset 7956 for branches/2017/dev_r7881_no_wrk_alloc/NEMOGCM/NEMO/LIM_SRC_3/limhdf.F90

Timestamp:

2017-04-24T12:26:39+02:00 (7 years ago)

Author:

timgraham

Message:

Fixed out of bounds array problem in LIM. Results now identical to trunk version

File:

• branches/2017/dev_r7881_no_wrk_alloc/NEMOGCM/NEMO/LIM_SRC_3/limhdf.F90 (modified) (2 diffs)

branches/2017/dev_r7881_no_wrk_alloc/NEMOGCM/NEMO/LIM_SRC_3/limhdf.F90

@@ -64 +64 @@
       INTEGER , PARAMETER                 ::  num_iter_max = 100        ! Maximum number of iteration
       INTEGER , PARAMETER                 ::  num_convfrq  = 5          ! convergence check frequency of the Crant-Nicholson scheme (perf. optimization)
-      REAL(wp), POINTER, DIMENSION(:)     ::  zconv
+      REAL(wp), ALLOCATABLE, DIMENSION(:)     ::  zconv
       REAL(wp), ALLOCATABLE, DIMENSION(:,:,:), TARGET ::  zrlx
       REAL(wp), ALLOCATABLE, DIMENSION(:,:,:) ::  zdiv0, ztab0
@@ -82 +82 @@
       ALLOCATE( type_array(isize) )
       ALLOCATE( psgn_array(isize) )
-      ALLOCATE( zrlx(jpi, jpj, isize), zdiv0(jpi,jpj,isize),ztab0(jpi,jpj,isize))
+      ALLOCATE( zrlx(jpi, jpj, isize), zdiv0(jpi,jpj,isize), ztab0(jpi,jpj,isize))