New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 12807 for NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/OCE/LBC/mpp_lnk_generic.h90 – NEMO

Ignore:
Timestamp:
2020-04-23T15:14:45+02:00 (4 years ago)
Author:
smasson
Message:

Extra_Halo: input file only over inner domain + new variables names, see #2366

File:
1 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/OCE/LBC/mpp_lnk_generic.h90

    r12719 r12807  
    189189         DO jf = 1, ipf   ;   DO jl = 1, ipl   ;   DO jk = 1, ipk   ;   DO jj = 1, jpj   ;   DO ji = 1, nn_hls 
    190190            ARRAY_IN(ji,jj,jk,jl,jf) = zrcv_we(ji,jj,jk,jl,jf)   ! 1 -> nn_hls 
    191          END DO;   END DO   ;   END DO   ;   END DO   ;   END DO 
     191         END DO   ;   END DO   ;   END DO   ;   END DO   ;   END DO 
    192192      CASE ( jpfillperio )                 ! use east-weast periodicity 
    193193         ishift2 = jpi - 2 * nn_hls 
    194194         DO jf = 1, ipf   ;   DO jl = 1, ipl   ;   DO jk = 1, ipk   ;   DO jj = 1, jpj   ;   DO ji = 1, nn_hls 
    195195            ARRAY_IN(ji,jj,jk,jl,jf) = ARRAY_IN(ishift2+ji,jj,jk,jl,jf) 
    196          END DO;   END DO   ;   END DO   ;   END DO   ;   END DO 
     196         END DO   ;   END DO   ;   END DO   ;   END DO   ;   END DO 
    197197      CASE ( jpfillcopy  )                 ! filling with inner domain values 
    198          DO jf = 1, ipf                               ! number of arrays to be treated 
    199             IF( .NOT. NAT_IN(jf) == 'F' ) THEN        ! do nothing for F point 
    200                DO jl = 1, ipl   ;   DO jk = 1, ipk   ;   DO jj = 1, jpj   ;   DO ji = 1, nn_hls 
    201                   ARRAY_IN(ji,jj,jk,jl,jf) = ARRAY_IN(nn_hls+1,jj,jk,jl,jf) 
    202                END DO   ;   END DO   ;   END DO   ;   END DO 
    203             ENDIF 
    204          END DO 
     198         DO jf = 1, ipf   ;   DO jl = 1, ipl   ;   DO jk = 1, ipk   ;   DO jj = 1, jpj   ;   DO ji = 1, nn_hls 
     199            ARRAY_IN(ji,jj,jk,jl,jf) = ARRAY_IN(nn_hls+1,jj,jk,jl,jf) 
     200         END DO   ;   END DO   ;   END DO   ;   END DO   ;   END DO 
    205201      CASE ( jpfillcst   )                 ! filling with constant value 
    206          DO jf = 1, ipf                               ! number of arrays to be treated 
    207             IF( .NOT. NAT_IN(jf) == 'F' ) THEN        ! do nothing for F point 
    208                DO jl = 1, ipl   ;   DO jk = 1, ipk   ;   DO jj = 1, jpj   ;   DO ji = 1, nn_hls 
    209                   ARRAY_IN(ji,jj,jk,jl,jf) = zland 
    210                END DO;   END DO   ;   END DO   ;   END DO 
    211             ENDIF 
    212          END DO 
     202         DO jf = 1, ipf   ;   DO jl = 1, ipl   ;   DO jk = 1, ipk   ;   DO jj = 1, jpj   ;   DO ji = 1, nn_hls 
     203            ARRAY_IN(ji,jj,jk,jl,jf) = zland 
     204         END DO   ;   END DO   ;   END DO   ;   END DO   ;   END DO 
    213205      END SELECT 
    214206      ! 
    … …  
    234226         DO jf = 1, ipf   ;   DO jl = 1, ipl   ;   DO jk = 1, ipk   ;   DO jj = 1, jpj   ;   DO ji = 1, nn_hls 
    235227            ARRAY_IN(ishift+ji,jj,jk,jl,jf) = zland 
    236          END DO;   END DO   ;   END DO   ;   END DO   ;   END DO 
     228         END DO   ;   END DO   ;   END DO   ;   END DO   ;   END DO 
    237229      END SELECT 
    238230      ! 
    … …  
    303295         DO jf = 1, ipf   ;   DO jl = 1, ipl   ;   DO jk = 1, ipk   ;   DO jj = 1, nn_hls   ;   DO ji = 1, jpi 
    304296            ARRAY_IN(ji,jj,jk,jl,jf) = zrcv_so(ji,jj,jk,jl,jf)   ! 1 -> nn_hls 
    305          END DO;   END DO   ;   END DO   ;   END DO   ;   END DO 
     297         END DO   ;   END DO   ;   END DO   ;   END DO   ;   END DO 
    306298      CASE ( jpfillperio )                 ! use north-south periodicity 
    307299         ishift2 = jpj - 2 * nn_hls 
    308300         DO jf = 1, ipf   ;   DO jl = 1, ipl   ;   DO jk = 1, ipk   ;   DO jj = 1, nn_hls   ;   DO ji = 1, jpi 
    309301            ARRAY_IN(ji,jj,jk,jl,jf) = ARRAY_IN(ji,ishift2+jj,jk,jl,jf) 
    310          END DO;   END DO   ;   END DO   ;   END DO   ;   END DO 
     302         END DO   ;   END DO   ;   END DO   ;   END DO   ;   END DO 
    311303      CASE ( jpfillcopy  )                 ! filling with inner domain values 
    312          DO jf = 1, ipf                               ! number of arrays to be treated 
    313             IF( .NOT. NAT_IN(jf) == 'F' ) THEN        ! do nothing for F point 
    314                DO jl = 1, ipl   ;   DO jk = 1, ipk   ;   DO jj = 1, nn_hls   ;   DO ji = 1, jpi 
    315                   ARRAY_IN(ji,jj,jk,jl,jf) = ARRAY_IN(ji,nn_hls+1,jk,jl,jf) 
    316                END DO   ;   END DO   ;   END DO   ;   END DO 
    317             ENDIF 
    318          END DO 
     304         DO jf = 1, ipf   ;   DO jl = 1, ipl   ;   DO jk = 1, ipk   ;   DO jj = 1, nn_hls   ;   DO ji = 1, jpi 
     305            ARRAY_IN(ji,jj,jk,jl,jf) = ARRAY_IN(ji,nn_hls+1,jk,jl,jf) 
     306         END DO   ;   END DO   ;   END DO   ;   END DO   ;   END DO 
    319307      CASE ( jpfillcst   )                 ! filling with constant value 
    320          DO jf = 1, ipf                               ! number of arrays to be treated 
    321             IF( .NOT. NAT_IN(jf) == 'F' ) THEN        ! do nothing for F point 
    322                DO jl = 1, ipl   ;   DO jk = 1, ipk   ;   DO jj = 1, nn_hls   ;   DO ji = 1, jpi  
    323                   ARRAY_IN(ji,jj,jk,jl,jf) = zland 
    324                END DO;   END DO   ;   END DO   ;   END DO 
    325             ENDIF 
    326          END DO 
     308         DO jf = 1, ipf   ;   DO jl = 1, ipl   ;   DO jk = 1, ipk   ;   DO jj = 1, nn_hls   ;   DO ji = 1, jpi  
     309            ARRAY_IN(ji,jj,jk,jl,jf) = zland 
     310         END DO   ;   END DO   ;   END DO   ;   END DO   ;   END DO 
    327311      END SELECT 
    328312      ! 
    … …  
    340324         DO jf = 1, ipf   ;   DO jl = 1, ipl   ;   DO jk = 1, ipk   ;   DO jj = 1, nn_hls   ;   DO ji = 1, jpi 
    341325            ARRAY_IN(ji,ishift+jj,jk,jl,jf) = ARRAY_IN(ji,ishift2+jj,jk,jl,jf) 
    342          END DO;   END DO   ;   END DO   ;   END DO   ;   END DO 
     326         END DO   ;   END DO   ;   END DO   ;   END DO   ;   END DO 
    343327      CASE ( jpfillcopy  )                 ! filling with inner domain values 
    344328         DO jf = 1, ipf   ;   DO jl = 1, ipl   ;   DO jk = 1, ipk   ;   DO jj = 1, nn_hls   ;   DO ji = 1, jpi 
    345329            ARRAY_IN(ji,ishift+jj,jk,jl,jf) = ARRAY_IN(ji,ishift,jk,jl,jf) 
    346          END DO;   END DO   ;   END DO   ;   END DO   ;   END DO 
     330         END DO   ;   END DO   ;   END DO   ;   END DO   ;   END DO 
    347331      CASE ( jpfillcst   )                 ! filling with constant value 
    348332         DO jf = 1, ipf   ;   DO jl = 1, ipl   ;   DO jk = 1, ipk   ;   DO jj = 1, nn_hls   ;   DO ji = 1, jpi 
    349333            ARRAY_IN(ji,ishift+jj,jk,jl,jf) = zland 
    350          END DO;   END DO   ;   END DO   ;   END DO   ;   END DO 
     334         END DO   ;   END DO   ;   END DO   ;   END DO   ;   END DO 
    351335      END SELECT 
    352336      ! 
Note: See TracChangeset for help on using the changeset viewer.