Changeset 7910 for branches/2017/dev_r7881_no_wrk_alloc/NEMOGCM/NEMO/OPA_SRC/DIA/diadct.F90

Timestamp:

2017-04-13T16:21:08+02:00 (7 years ago)

Author:

timgraham

Message:

All wrk_alloc removed

File:

• branches/2017/dev_r7881_no_wrk_alloc/NEMOGCM/NEMO/OPA_SRC/DIA/diadct.F90 (modified) (10 diffs)

branches/2017/dev_r7881_no_wrk_alloc/NEMOGCM/NEMO/OPA_SRC/DIA/diadct.F90

@@ -40 +40 @@
    USE domvvl
    USE timing          ! preformance summary
-   USE wrk_nemo        ! working arrays
 
    IMPLICIT NONE
@@ -209 +208 @@
      INTEGER , DIMENSION(1)             :: ish   ! tmp array for mpp_sum
      INTEGER , DIMENSION(3)             :: ish2  !   "
-     REAL(wp), POINTER, DIMENSION(:)    :: zwork !   "  
-     REAL(wp), POINTER, DIMENSION(:,:,:):: zsum  !   "
+     REAL(wp), DIMENSION(itotal)    :: zwork !   "  
+     REAL(wp), DIMENSION(nb_sec_max,nb_type_class,nb_class_max):: zsum  !   "
      !!---------------------------------------------------------------------    
      !
@@ -217 +216 @@
      IF( lk_mpp )THEN
         itotal = nb_sec_max*nb_type_class*nb_class_max
-        CALL wrk_alloc( itotal                                , zwork ) 
-        CALL wrk_alloc( nb_sec_max,nb_type_class,nb_class_max , zsum  )
      ENDIF    
  
@@ -289 +286 @@
      IF( lk_mpp )THEN
         itotal = nb_sec_max*nb_type_class*nb_class_max
-        CALL wrk_dealloc( itotal                                , zwork ) 
-        CALL wrk_dealloc( nb_sec_max,nb_type_class,nb_class_max , zsum  )
      ENDIF    
 
@@ -318 +313 @@
      TYPE(POINT_SECTION),DIMENSION(nb_point_max)  ::coordtemp !contains listpoints coordinates 
                                                               !read in the file
-     INTEGER, POINTER, DIMENSION(:) :: directemp              !contains listpoints directions
+     INTEGER, DIMENSION(nb_point_max) :: directemp              !contains listpoints directions
                                                               !read in the files
      LOGICAL :: llbon                                       ,&!local logical
                 lldebug                                       !debug the section
      !!-------------------------------------------------------------------------------------
-     CALL wrk_alloc( nb_point_max, directemp )
 
      !open input file
@@ -495 +489 @@
      nb_sec = jsec-1   !number of section read in the file
 
-     CALL wrk_dealloc( nb_point_max, directemp )
      !
   END SUBROUTINE readsec
@@ -521 +514 @@
                 istart,iend      !first and last points selected in listpoint
      INTEGER :: jpoint           !loop on list points
-     INTEGER, POINTER, DIMENSION(:)   :: idirec !contains temporary sec%direction
-     INTEGER, POINTER, DIMENSION(:,:) :: icoord !contains temporary sec%listpoint
+     INTEGER, DIMENSION(nb_point_max)   :: idirec !contains temporary sec%direction
+     INTEGER, DIMENSION(2,nb_point_max) :: icoord !contains temporary sec%listpoint
      !----------------------------------------------------------------------------
-     CALL wrk_alloc(    nb_point_max, idirec )
-     CALL wrk_alloc( 2, nb_point_max, icoord )
 
      IF( ld_debug )WRITE(numout,*)'      -------------------------'
@@ -575 +566 @@
      ENDIF
 
-     CALL wrk_dealloc(    nb_point_max, idirec )
-     CALL wrk_dealloc( 2, nb_point_max, icoord )
   END SUBROUTINE removepoints
 
@@ -1019 +1008 @@
      REAL(wp)              :: zslope             ! section's slope coeff
      !
-     REAL(wp), POINTER, DIMENSION(:):: zsumclasses ! 1D workspace 
+     REAL(wp), DIMENSION(nb_type_class):: zsumclasses ! 1D workspace 
      !!------------------------------------------------------------- 
-     CALL wrk_alloc(nb_type_class , zsumclasses )  
 
      zsumclasses(:)=0._wp
@@ -1133 +1121 @@
 119   FORMAT(I8,1X,I8,1X,I4,1X,A30,1X,f9.2,1X,I4,3X,A8,1X,2F12.4,5X,3E15.6)
 
-      CALL wrk_dealloc(nb_type_class , zsumclasses )  
       !
    END SUBROUTINE dia_dct_wri