Changeset 9125 for branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/CRS/crsdomwri.F90

Timestamp:

2017-12-19T09:47:17+01:00 (6 years ago)

Author:

timgraham

Message:

Removed wrk_arrays from whole code. No change in SETTE results from this.

File:

• branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/CRS/crsdomwri.F90 (modified) (5 diffs)

branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/CRS/crsdomwri.F90

@@ -19 +19 @@
    USE crsdom         ! coarse grid domain
    USE crslbclnk       ! crs mediator to lbclnk
-   USE wrk_nemo        ! Working array
 
    IMPLICIT NONE
@@ -63 +62 @@
       INTEGER           ::   ji, jj, jk   ! dummy loop indices
       !                                   !  workspaces
-      REAL(wp), POINTER, DIMENSION(:,:  ) :: zprt, zprw 
-      REAL(wp), POINTER, DIMENSION(:,:,:) :: zdepu, zdepv
-      REAL(wp), POINTER, DIMENSION(:,:  ) :: ze3tp, ze3wp
-      !!----------------------------------------------------------------------
-      !
-      CALL wrk_alloc( jpi_crs, jpj_crs,      zprt , zprw  )
-      CALL wrk_alloc( jpi_crs, jpj_crs,      ze3tp, ze3wp )
-      CALL wrk_alloc( jpi_crs, jpj_crs, jpk, zdepu, zdepv )
-
+      REAL(wp), DIMENSION(jpi_crs,jpj_crs    ) :: zprt, zprw 
+      REAL(wp), DIMENSION(jpi_crs,jpj_crs,jpk) :: zdepu, zdepv
+      REAL(wp), DIMENSION(jpi_crs,jpj_crs    ) :: ze3tp, ze3wp
+      !!----------------------------------------------------------------------
+      !
       ze3tp(:,:) = 0.0
       ze3wp(:,:) = 0.0
@@ -289 +284 @@
       END SELECT
       !
-      CALL wrk_dealloc( jpi_crs, jpj_crs,      zprt , zprw  )
-      CALL wrk_dealloc( jpi_crs, jpj_crs,      ze3tp, ze3wp )
-      CALL wrk_dealloc( jpi_crs, jpj_crs, jpk, zdepu, zdepv )
-      !
    END SUBROUTINE crs_dom_wri
 
@@ -312 +303 @@
       INTEGER  ::  ji       ! dummy loop indices
       LOGICAL, DIMENSION(SIZE(puniq,1),SIZE(puniq,2),1) ::  lldbl  ! store whether each point is unique or not
-      REAL(wp), POINTER, DIMENSION(:,:) :: ztstref
-      !!----------------------------------------------------------------------
-      !
-      CALL wrk_alloc( jpi_crs, jpj_crs, ztstref )
+      REAL(wp), DIMENSION(jpi_crs,jpj_crs) :: ztstref
+      !!----------------------------------------------------------------------
       !
       ! build an array with different values for each element 
@@ -331 +320 @@
       puniq(nldi_crs:nlei_crs,nldj_crs:nlej_crs) = REAL( COUNT( lldbl(nldi_crs:nlei_crs,nldj_crs:nlej_crs,:), dim = 3 ) , wp )
       !
-      CALL wrk_dealloc( jpi_crs, jpj_crs, ztstref )
-      !
    END SUBROUTINE dom_uniq_crs