Ignore:
Timestamp:
2017-12-15T18:12:43+01:00 (3 years ago)
Author:
flavoni
Message:

change lbc_lnk in lbc_lnk_multi

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/DOM/dommsk.F90

    r9023 r9090  
    184184         END DO 
    185185      END DO 
    186       CALL lbc_lnk( umask  , 'U', 1._wp )      ! Lateral boundary conditions 
    187       CALL lbc_lnk( vmask  , 'V', 1._wp ) 
    188       CALL lbc_lnk( fmask  , 'F', 1._wp ) 
    189  
     186      CALL lbc_lnk_multi( umask, 'U', 1., vmask, 'V', 1., fmask, 'F', 1. )      ! Lateral boundary conditions 
    190187  
    191188      ! Ocean/land mask at wu-, wv- and w points    (computed from tmask) 
     
    276273            END DO 
    277274#if defined key_agrif  
    278        IF( .NOT. AGRIF_Root() ) THEN  
    279           IF ((nbondi ==  1).OR.(nbondi == 2)) fmask(nlci-1 , :     ,jk) = 0.e0      ! east  
    280           IF ((nbondi == -1).OR.(nbondi == 2)) fmask(1      , :     ,jk) = 0.e0      ! west  
    281           IF ((nbondj ==  1).OR.(nbondj == 2)) fmask(:      ,nlcj-1 ,jk) = 0.e0      ! north  
    282           IF ((nbondj == -1).OR.(nbondj == 2)) fmask(:      ,1      ,jk) = 0.e0      ! south  
    283        ENDIF  
     275            IF( .NOT. AGRIF_Root() ) THEN  
     276               IF ((nbondi ==  1).OR.(nbondi == 2)) fmask(nlci-1 , :     ,jk) = 0.e0      ! east  
     277               IF ((nbondi == -1).OR.(nbondi == 2)) fmask(1      , :     ,jk) = 0.e0      ! west  
     278               IF ((nbondj ==  1).OR.(nbondj == 2)) fmask(:      ,nlcj-1 ,jk) = 0.e0      ! north  
     279               IF ((nbondj == -1).OR.(nbondj == 2)) fmask(:      ,1      ,jk) = 0.e0      ! south  
     280            ENDIF  
    284281#endif  
    285282         END DO 
Note: See TracChangeset for help on using the changeset viewer.