Changeset 14868


Ignore:
Timestamp:
2021-05-14T20:03:04+02:00 (4 months ago)
Author:
smueller
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2021/dev_r14122_HPC-08_Mueller_OSMOSIS_streamlining/src/OCE/ZDF/zdfosm.F90

    r14859 r14868  
    882882      ! Lateral boundary conditions on final outputs for hbl, on T-grid (sign unchanged) 
    883883      CALL lbc_lnk( 'zdfosm', hbl,  'T', 1.0_wp,   & 
    884          &                    dh,   'T', 1.0_wp,   & 
    885884         &                    hmle, 'T', 1.0_wp ) 
    886       ! Lateral boundary conditions on final outputs for gham[ts], on W-grid  (sign unchanged) 
    887       ! Lateral boundary conditions on final outputs for gham[uv], on [UV]-grid  (sign changed) 
    888       CALL lbc_lnk( 'zdfosm', ghamt, 'W',  1.0_wp,   & 
    889          &                    ghams, 'W',  1.0_wp,   & 
    890          &                    ghamu, 'U', -1.0_wp,   & 
    891          &                    ghamv, 'V', -1.0_wp ) 
    892885      ! 
    893886      IF ( ln_dia_osm ) THEN 
Note: See TracChangeset for help on using the changeset viewer.