Changeset 13008
- Timestamp:
- 2020-06-03T08:30:25+02:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/AMM15_v3_6_STABLE_package_reanalysis4/NEMOGCM/NEMO/TOP_SRC/trcbdy.F90
r11639 r13008 9 9 !! 3.5 ! 2012 (S. Mocavero, I. Epicoco) Optimization of BDY communications 10 10 !! 3.6 ! 2015 (T. Lovato) Adapt BDY for tracers in TOP component 11 ! RJR: Sarah's boundary changes reverted here to see if they fix the BGC blow-ups 11 12 !!---------------------------------------------------------------------- 12 13 #if defined key_bdy && key_top … … 109 110 ii = idx%nbi(ib,igrd) 110 111 ij = idx%nbj(ib,igrd) 111 zwgt = idx%nbw(ib,igrd) * rdttrc(ik) / 86400.d0 ! damping with a timescale of day 112 ! RJR: Sarah's boundary changes reverted here to see if they fix the BGC blow-ups 113 ! zwgt = idx%nbw(ib,igrd) * rdttrc(ik) / 86400.d0 ! damping with a timescale of day 114 zwgt = idx%nbw(ib,igrd) 112 115 tra(ii,ij,ik,jn) = ( tra(ii,ij,ik,jn) + zwgt * ( ( dta%trc(ib,ik) * dta%rn_fac) & 113 116 & - tra(ii,ij,ik,jn) ) ) * tmask(ii,ij,ik) 114 117 END DO 115 118 END DO 116 ! tra is overwritten at the boundary so damping doesn't work here - need neumann in addition117 ! to duplicate the internal value at the boundary118 CALL bdy_trc_nmn( jn, idx, dta, kt )119 ! ! tra is overwritten at the boundary so damping doesn't work here - need neumann in addition 120 ! ! to duplicate the internal value at the boundary 121 ! CALL bdy_trc_nmn( jn, idx, dta, kt ) 119 122 120 123
Note: See TracChangeset
for help on using the changeset viewer.