Changeset 9125 for branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/SBC/sbctide.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/SBC/sbctide.F90 (modified) (4 diffs)

branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/SBC/sbctide.F90

@@ -16 +16 @@
    USE ioipsl         ! NetCDF IPSL library
    USE lbclnk         ! ocean lateral boundary conditions (or mpp link)
-   USE wrk_nemo       !
 
    IMPLICIT NONE
@@ -140 +139 @@
       INTEGER :: inum                 ! Logical unit of input file
       INTEGER :: ji, jj, itide        ! dummy loop indices
-      REAL(wp), POINTER, DIMENSION(:,:) ::   ztr, zti   !: workspace to read in tidal harmonics data 
+      REAL(wp), DIMENSION(jpi,jpj) ::   ztr, zti   !: workspace to read in tidal harmonics data 
       !!----------------------------------------------------------------------
       IF(lwp) THEN
@@ -147 +146 @@
          WRITE(numout,*) '~~~~~~~~~~~~~~ '
       ENDIF
-      !
-      CALL wrk_alloc( jpi, jpj, zti, ztr )
       !
       CALL iom_open ( cn_tide_load , inum )
@@ -166 +163 @@
       CALL iom_close( inum )
       !
-      CALL wrk_dealloc( jpi, jpj, zti, ztr )
-      !
    END SUBROUTINE tide_init_load