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

Timestamp:

2017-04-18T10:47:12+02:00 (7 years ago)

Author:

timgraham

Message:

A few corrections for SETTE compilation

File:

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

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

@@ -65 +65 @@
       INTEGER , PARAMETER                 ::  num_convfrq  = 5          ! convergence check frequency of the Crant-Nicholson scheme (perf. optimization)
       REAL(wp), POINTER, DIMENSION(:)     ::  zconv
-      REAL(wp), DIMENSION(jpi,jpj,isize) ::  zrlx, zdiv0, ztab0
+      REAL(wp), ALLOCATABLE, DIMENSION(:,:,:), TARGET ::  zrlx
+      REAL(wp), ALLOCATABLE, DIMENSION(:,:,:) ::  zdiv0, ztab0
       REAL(wp), DIMENSION(jpi,jpj)   ::  zflu, zflv, zdiv
       !!-------------------------------------------------------------------
@@ -81 +82 @@
       ALLOCATE( type_array(isize) )
       ALLOCATE( psgn_array(isize) )
+      ALLOCATE( zrlx(jpi, jpj, isize), zdiv0(jpi,jpj,isize),ztab0(jpi,jpj,isize))
+
 
       
@@ -208 +211 @@
       DEALLOCATE( type_array )
       DEALLOCATE( psgn_array )
+      DEALLOCATE( zrlx, zdiv0, ztab0 )
       !
    END SUBROUTINE lim_hdf