Changeset 9190 for branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/LBC/lbc_nfd_nogather_generic.h90

Timestamp:

2018-01-06T15:18:23+01:00 (6 years ago)

Author:

gm

Message:

dev_merge_2017: OPA_SRC: style only, results unchanged

File:

• branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/LBC/lbc_nfd_nogather_generic.h90 (modified) (6 diffs)

branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/LBC/lbc_nfd_nogather_generic.h90

@@ -55 +55 @@
 
    SUBROUTINE ROUTINE_NFD( ptab, ptab2, cd_nat, psgn, kfld )
-      !
       !!----------------------------------------------------------------------
       !!
@@ -85 +84 @@
       !
       DO jf = 1, ipf                      ! Loop over the number of arrays to be processed
+         !
          SELECT CASE ( npolj )
          !
@@ -90 +90 @@
             !
             SELECT CASE ( NAT_IN(jf) )
-               CASE ( 'T' , 'W' )                         ! T-, W-point
-                  IF ( nimpp /= 1 ) THEN   ;   startloop = 1
-                  ELSE                     ;   startloop = 2
-               ENDIF
-                  !
+            !
+            CASE ( 'T' , 'W' )                         ! T-, W-point
+               IF ( nimpp /= 1 ) THEN   ;   startloop = 1
+               ELSE                     ;   startloop = 2
+               ENDIF
+               !
                DO ji = startloop, nlci
-                 ijt=jpiglo - ji - nimpp - nfiimpp(isendto(1),jpnj) + 4
-                        ARRAY_IN(ji,ijpj,:,:,jf) = SGN_IN(jf) * ARRAY2_IN(ijt,ijpj-2,:,:,jf)
-               END DO
-               IF(nimpp .eq. 1) THEN
-                 ARRAY_IN(1,ijpj,:,:,jf) = SGN_IN(jf) * ARRAY_IN(3,ijpj-2,:,:,jf)
-               ENDIF
-   
+                  ijt = jpiglo - ji - nimpp - nfiimpp(isendto(1),jpnj) + 4
+                  ARRAY_IN(ji,ijpj,:,:,jf) = SGN_IN(jf) * ARRAY2_IN(ijt,ijpj-2,:,:,jf)
+               END DO
+               IF( nimpp == 1 ) THEN
+                  ARRAY_IN(1,ijpj,:,:,jf) = SGN_IN(jf) * ARRAY_IN(3,ijpj-2,:,:,jf)
+               ENDIF
+               !
                IF( nimpp >= jpiglo/2+1 ) THEN
                   startloop = 1
@@ -110 +111 @@
                   startloop = nlci + 1
                ENDIF
-               IF(startloop <= nlci) THEN
-               DO ji = startloop, nlci
-                  ijt = jpiglo - ji - nimpp - nfiimpp(isendto(1),jpnj) + 4
-                  jia = ji + nimpp - 1
-                  ijta = jpiglo - jia + 2
-                  IF( ijta >= startloop+nimpp-1 .AND. ijta < jia ) THEN
-                             ARRAY_IN(ji,ijpjm1,:,:,jf) = SGN_IN(jf) * ARRAY_IN(ijta-nimpp+1,ijpjm1,:,:,jf)
-                  ELSE
-                             ARRAY_IN(ji,ijpjm1,:,:,jf) = SGN_IN(jf) * ARRAY2_IN(ijt,ijpjm1,:,:,jf)
-                  ENDIF
-               END DO
+               IF( startloop <= nlci ) THEN
+                  DO ji = startloop, nlci
+                     ijt  = jpiglo - ji - nimpp - nfiimpp(isendto(1),jpnj) + 4
+                     jia  = ji + nimpp - 1
+                     ijta = jpiglo - jia + 2
+                     IF( ijta >= startloop+nimpp-1 .AND. ijta < jia ) THEN
+                        ARRAY_IN(ji,ijpjm1,:,:,jf) = SGN_IN(jf) * ARRAY_IN(ijta-nimpp+1,ijpjm1,:,:,jf)
+                     ELSE
+                        ARRAY_IN(ji,ijpjm1,:,:,jf) = SGN_IN(jf) * ARRAY2_IN(ijt,ijpjm1,:,:,jf)
+                     ENDIF
+                  END DO
                ENDIF
                !
@@ -289 +290 @@
                !
             CASE ( 'I' )                                  ! ice U-V point (I-point)
-                  IF( nimpp /= 1 ) THEN
-                     startloop = 1
-                  ELSE
-                     startloop = 2
-                  ENDIF
-                  IF( nimpp + nlci - 1 /= jpiglo ) THEN
-                     endloop = nlci
-                  ELSE
-                     endloop = nlci - 1
-                  ENDIF
-                  DO ji = startloop , endloop
-                     ijt = jpiglo - ji - nimpp - nfiimpp(isendto(1),jpnj) + 4
-                     ARRAY_IN(ji,ijpj,:,:,jf) = 0.5 * (ARRAY_IN(ji,ijpjm1,:,:,jf) + SGN_IN(jf) * ARRAY2_IN(ijt,ijpjm1,:,:,jf))
-                  END DO
-                  !
+               IF( nimpp /= 1 ) THEN
+                  startloop = 1
+               ELSE
+                  startloop = 2
+               ENDIF
+               IF( nimpp + nlci - 1 /= jpiglo ) THEN
+                  endloop = nlci
+               ELSE
+                  endloop = nlci - 1
+               ENDIF
+               DO ji = startloop , endloop
+                  ijt = jpiglo - ji - nimpp - nfiimpp(isendto(1),jpnj) + 4
+                  ARRAY_IN(ji,ijpj,:,:,jf) = 0.5 * (ARRAY_IN(ji,ijpjm1,:,:,jf) + SGN_IN(jf) * ARRAY2_IN(ijt,ijpjm1,:,:,jf))
+               END DO
+               !
             END SELECT
             !
@@ -310 +311 @@
             SELECT CASE ( NAT_IN(jf))
             CASE ( 'T' , 'U' , 'V' , 'W' )                 ! T-, U-, V-, W-points
-                  ARRAY_IN(:, 1  ,:,:,jf) = 0._wp
-                  ARRAY_IN(:,ijpj,:,:,jf) = 0._wp
+               ARRAY_IN(:, 1  ,:,:,jf) = 0._wp
+               ARRAY_IN(:,ijpj,:,:,jf) = 0._wp
             CASE ( 'F' )                                   ! F-point
-                  ARRAY_IN(:,ijpj,:,:,jf) = 0._wp
+               ARRAY_IN(:,ijpj,:,:,jf) = 0._wp
             CASE ( 'I' )                                   ! ice U-V point
-                  ARRAY_IN(:, 1  ,:,:,jf) = 0._wp
-                  ARRAY_IN(:,ijpj,:,:,jf) = 0._wp
+               ARRAY_IN(:, 1  ,:,:,jf) = 0._wp
+               ARRAY_IN(:,ijpj,:,:,jf) = 0._wp
             END SELECT
             !