Changeset 9012 for branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/OPA_SRC/LBC/mpp_lnk_generic.h90

Timestamp:

2017-12-13T14:57:33+01:00 (6 years ago)

Author:

acc

Message:

Branch dev_CNRS_2017. Merge in no_ghost changes from dev_r8126_ROBUST08_no_ghost. These changes include lib_mpp refresh and rationalisation of mppini from dev_r8126_ROBUST10_MPPINI

File:

• branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/OPA_SRC/LBC/mpp_lnk_generic.h90 (modified) (15 diffs)

branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/OPA_SRC/LBC/mpp_lnk_generic.h90

@@ -72 +72 @@
       ipf = F_SIZE(ptab)   ! 5th    -      use in "multi" case (array of pointers)
       !
-      ALLOCATE( zt3ns(jpi,jprecj,ipk,ipl,ipf,2), zt3sn(jpi,jprecj,ipk,ipl,ipf,2),   &
-         &      zt3ew(jpj,jpreci,ipk,ipl,ipf,2), zt3we(jpj,jpreci,ipk,ipl,ipf,2)  )
+      ALLOCATE( zt3ns(jpi,nn_hls,ipk,ipl,ipf,2), zt3sn(jpi,nn_hls,ipk,ipl,ipf,2),   &
+         &      zt3ew(jpj,nn_hls,ipk,ipl,ipf,2), zt3we(jpj,nn_hls,ipk,ipl,ipf,2)  )
       !
       ll_Iperio = nbondi == 2 .AND. (nperio == 1 .OR. nperio == 4 .OR. nperio == 6)
@@ -116 +116 @@
                ARRAY_IN(jpi,:,:,:,jf) = ARRAY_IN(  2  ,:,:,:,jf)
             ELSE                                   !* closed
-               IF( .NOT. NAT_IN(jf) == 'F' )   ARRAY_IN(     1       :jpreci,:,:,:,jf) = zland    ! east except F-point
-                                               ARRAY_IN(nlci-jpreci+1:jpi   ,:,:,:,jf) = zland    ! west
+               IF( .NOT. NAT_IN(jf) == 'F' )   ARRAY_IN(     1       :nn_hls,:,:,:,jf) = zland    ! east except F-point
+                                               ARRAY_IN(nlci-nn_hls+1:jpi   ,:,:,:,jf) = zland    ! west
             ENDIF
             !                                ! North-South boundaries
@@ -124 +124 @@
                ARRAY_IN(:,jpj,:,:,jf) = ARRAY_IN(:,   2  ,:,:,jf)
             ELSE                                   !* closed
-               IF( .NOT. NAT_IN(jf) == 'F' )   ARRAY_IN(:,     1       :jprecj,:,:,jf) = zland    ! south except F-point
-                                               ARRAY_IN(:,nlcj-jprecj+1:jpj   ,:,:,jf) = zland    ! north
+               IF( .NOT. NAT_IN(jf) == 'F' )   ARRAY_IN(:,     1       :nn_hls,:,:,jf) = zland    ! south except F-point
+                                               ARRAY_IN(:,nlcj-nn_hls+1:jpj   ,:,:,jf) = zland    ! north
             ENDIF
          END DO
@@ -142 +142 @@
             DO jl = 1, ipl
                DO jk = 1, ipk
-                  DO jh = 1, jpreci
-                     zt3ew(:,jh,jk,jl,jf,1) = ARRAY_IN(jpreci+jh,:,jk,jl,jf)
+                  DO jh = 1, nn_hls
+                     zt3ew(:,jh,jk,jl,jf,1) = ARRAY_IN(nn_hls+jh,:,jk,jl,jf)
                      zt3we(:,jh,jk,jl,jf,1) = ARRAY_IN(iihom +jh,:,jk,jl,jf)
                   END DO
@@ -152 +152 @@
       !
       !                           ! Migrations
-      imigr = jpreci * jpj * ipk * ipl * ipf
+      imigr = nn_hls * jpj * ipk * ipl * ipf
       !
       SELECT CASE ( nbondi )
@@ -173 +173 @@
       !
       !                           ! Write Dirichlet lateral conditions
-      iihom = nlci-jpreci
+      iihom = nlci-nn_hls
       !
       SELECT CASE ( nbondi )
@@ -180 +180 @@
             DO jl = 1, ipl
                DO jk = 1, ipk
-                  DO jh = 1, jpreci
+                  DO jh = 1, nn_hls
                      ARRAY_IN(iihom+jh,:,jk,jl,jf) = zt3ew(:,jh,jk,jl,jf,2)
                   END DO
@@ -190 +190 @@
             DO jl = 1, ipl
                DO jk = 1, ipk
-                  DO jh = 1, jpreci
+                  DO jh = 1, nn_hls
                      ARRAY_IN(jh      ,:,jk,jl,jf) = zt3we(:,jh,jk,jl,jf,2)
                      ARRAY_IN(iihom+jh,:,jk,jl,jf) = zt3ew(:,jh,jk,jl,jf,2)
@@ -201 +201 @@
             DO jl = 1, ipl
                DO jk = 1, ipk
-                  DO jh = 1, jpreci
+                  DO jh = 1, nn_hls
                      ARRAY_IN(jh      ,:,jk,jl,jf) = zt3we(:,jh,jk,jl,jf,2)
                   END DO
@@ -218 +218 @@
             DO jl = 1, ipl
                DO jk = 1, ipk
-                  DO jh = 1, jprecj
+                  DO jh = 1, nn_hls
                      zt3sn(:,jh,jk,jl,jf,1) = ARRAY_IN(:,ijhom +jh,jk,jl,jf)
-                     zt3ns(:,jh,jk,jl,jf,1) = ARRAY_IN(:,jprecj+jh,jk,jl,jf)
+                     zt3ns(:,jh,jk,jl,jf,1) = ARRAY_IN(:,nn_hls+jh,jk,jl,jf)
                   END DO
                END DO
@@ -228 +228 @@
       !
       !                           ! Migrations
-      imigr = jprecj * jpi * ipk * ipl * ipf
+      imigr = nn_hls * jpi * ipk * ipl * ipf
       !
       SELECT CASE ( nbondj )
@@ -249 +249 @@
       !
       !                           ! Write Dirichlet lateral conditions
-      ijhom = nlcj-jprecj
+      ijhom = nlcj-nn_hls
       !
       SELECT CASE ( nbondj )
@@ -256 +256 @@
             DO jl = 1, ipl
                DO jk = 1, ipk
-                  DO jh = 1, jprecj
+                  DO jh = 1, nn_hls
                      ARRAY_IN(:,ijhom+jh,jk,jl,jf) = zt3ns(:,jh,jk,jl,jf,2)
                   END DO
@@ -266 +266 @@
             DO jl = 1, ipl
                DO jk = 1, ipk
-                  DO jh = 1, jprecj
+                  DO jh = 1, nn_hls
                      ARRAY_IN(:,      jh,jk,jl,jf) = zt3sn(:,jh,jk,jl,jf,2)
                      ARRAY_IN(:,ijhom+jh,jk,jl,jf) = zt3ns(:,jh,jk,jl,jf,2)
@@ -277 +277 @@
             DO jl = 1, ipl
                DO jk = 1, ipk
-                  DO jh = 1, jprecj
+                  DO jh = 1, nn_hls
                      ARRAY_IN(:,jh,jk,jl,jf) = zt3sn(:,jh,jk,jl,jf,2)
                   END DO