Ignore:
Timestamp:
2020-04-06T17:36:16+02:00 (8 months ago)
Author:
davestorkey
Message:

UKMO/NEMO_4.0.1_biharmonic_GM : stabilising correction terms

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/UKMO/NEMO_4.0.1_biharmonic_GM/src/OCE/LDF/ldfdyn.F90

    r12688 r12691  
    521521            ELSEIF( ln_dynldf_bgm ) THEN                 !bi-Laplacian GM operator (mask only) 
    522522               bhm(:,:,1:jpkm1) =       bhm(:,:,1:jpkm1)   * wmask(:,:,1:jpkm1) 
     523               CALL lbc_lnk( 'ldf_dyn_init', bhm , 'W', 1. )  
    523524               ! 
    524525            ENDIF 
Note: See TracChangeset for help on using the changeset viewer.