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 14712 for NEMO/branches/2021/dev_r14273_HPC-02_Daley_Tiling/src/OCE/DYN/dynhpg.F90 – NEMO

Ignore:
Timestamp:
2021-04-14T12:17:14+02:00 (3 years ago)
Author:
hadcv
Message:

#2600: Merge in dev_r14393_HPC-03_Mele_Comm_Cleanup [14682]

File:
1 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/2021/dev_r14273_HPC-02_Daley_Tiling/src/OCE/DYN/dynhpg.F90

    r14574 r14712  
    462462          END IF 
    463463        END_2D 
    464         CALL lbc_lnk( 'dynhpg', zcpx, 'U', 1.0_wp, zcpy, 'V', 1.0_wp ) 
     464        ! [ comm_cleanup ] ! I think lbc_lnk can be deleted for halo 1 case, too: 
     465        ! zcpx and zcpy are written and used only in the inner domain - can't test it  
     466        ! CALL lbc_lnk( 'dynhpg', zcpx, 'U', 1.0_wp, zcpy, 'V', 1.0_wp ) 
    465467      END IF 
    466468      ! 
    … …  
    689691          END IF 
    690692        END_2D 
    691         CALL lbc_lnk( 'dynhpg', zcpx, 'U', 1.0_wp, zcpy, 'V', 1.0_wp ) 
     693        ! [ comm_cleanup ] ! I think lbc_lnk can be deleted for halo 1 case, too: 
     694        ! zcpx and zcpy are written and used only in the inner domain - can't test it  
     695        ! CALL lbc_lnk( 'dynhpg', zcpx, 'U', 1.0_wp, zcpy, 'V', 1.0_wp ) 
    692696      END IF 
    693697 
    … …  
    786790      !---------------------------------------------------------------------------------------- 
    787791 
    788       DO_3D( 1, 0, 1, 0, 1, jpkm1 ) 
     792      ! [ comm_cleanup ] ! DO_3D( 1, 0, 1, 0, 1, jpkm1 )  
     793      DO_3D( nn_hls-1, nn_hls-1, nn_hls-1, nn_hls-1, 1, jpkm1 ) 
    789794         zdrhox(ji,jj,jk) =   rhd    (ji+1,jj  ,jk) - rhd    (ji,jj,jk  ) 
    790795         zdzx  (ji,jj,jk) = - gde3w(ji+1,jj  ,jk) + gde3w(ji,jj,jk  ) 
    … …  
    10431048            ENDIF 
    10441049         END_2D 
    1045          CALL lbc_lnk( 'dynhpg', zcpx, 'U', 1.0_wp, zcpy, 'V', 1.0_wp ) 
     1050         ! [ comm_cleanup ] ! I think lbc_lnk can be deleted for halo 1 case, too: 
     1051         ! zcpx and zcpy are written and used only in the inner domain - can't test it  
     1052         ! CALL lbc_lnk( 'dynhpg', zcpx, 'U', 1.0_wp, zcpy, 'V', 1.0_wp ) 
    10461053      ENDIF 
    10471054 
    … …  
    11131120      END_2D 
    11141121 
    1115       CALL lbc_lnk ('dynhpg', zsshu_n, 'U', 1.0_wp, zsshv_n, 'V', 1.0_wp ) 
     1122      ! [ comm_cleanup ] ! I think lbc_lnk can be deleted for halo 1 case, too: 
     1123      ! zcpx and zcpy are written and used only in the inner domain  
     1124      ! CALL lbc_lnk ('dynhpg', zsshu_n, 'U', 1.0_wp, zsshv_n, 'V', 1.0_wp ) 
    11161125 
    11171126      DO_2D( 0, 0, 0, 0 ) 
Note: See TracChangeset for help on using the changeset viewer.