Changeset 12325 for NEMO/branches/2019/dev_r11514_HPC-02_single-core-extrahalo/src/OCE/oce.F90

Timestamp:

2020-01-15T13:26:22+01:00 (4 years ago)

Author:

francesca

Message:

replace halo-copy routines - ticket #2009

File:

• NEMO/branches/2019/dev_r11514_HPC-02_single-core-extrahalo/src/OCE/oce.F90 (modified) (1 diff)

NEMO/branches/2019/dev_r11514_HPC-02_single-core-extrahalo/src/OCE/oce.F90

@@ -24 +24 @@
    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:)   ::           wi             !: vertical vel. (adaptive-implicit) [m/s]
    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:)   ::           hdivn          !: horizontal divergence        [s-1]
-   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:,:) ::   tsb  ,  tsn   , tsa    !: 4D T-S fields                  [Celsius,psu] 
+   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:,:) ::   tsn                 !: 4D T-S fields                  [Celsius,psu] 
+   REAL(wp), PUBLIC, POINTER  , SAVE, DIMENSION(:,:,:,:) ::   tsb  , tsa    !: 4D T-S fields                  [Celsius,psu] 
+
    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:,:) ::   rab_b,  rab_n          !: thermal/haline expansion coef. [Celsius-1,psu-1]
    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:)   ::   rn2b ,  rn2            !: brunt-vaisala frequency**2     [s-2]