Changeset 14868 for NEMO/branches/2021

Timestamp:

2021-05-14T20:03:04+02:00 (3 years ago)

Author:

smueller

Message:

Removal of redundant halo exchanges in subroutine zdf_osm of module zdfosm (ticket #2353)

File:

• NEMO/branches/2021/dev_r14122_HPC-08_Mueller_OSMOSIS_streamlining/src/OCE/ZDF/zdfosm.F90 (modified) (1 diff)

NEMO/branches/2021/dev_r14122_HPC-08_Mueller_OSMOSIS_streamlining/src/OCE/ZDF/zdfosm.F90

@@ -882 +882 @@
       ! Lateral boundary conditions on final outputs for hbl, on T-grid (sign unchanged)
       CALL lbc_lnk( 'zdfosm', hbl,  'T', 1.0_wp,   &
-         &                    dh,   'T', 1.0_wp,   &
          &                    hmle, 'T', 1.0_wp )
-      ! Lateral boundary conditions on final outputs for gham[ts], on W-grid  (sign unchanged)
-      ! Lateral boundary conditions on final outputs for gham[uv], on [UV]-grid  (sign changed)
-      CALL lbc_lnk( 'zdfosm', ghamt, 'W',  1.0_wp,   &
-         &                    ghams, 'W',  1.0_wp,   &
-         &                    ghamu, 'U', -1.0_wp,   &
-         &                    ghamv, 'V', -1.0_wp )
       !
       IF ( ln_dia_osm ) THEN