Opened 10 years ago
Closed 10 years ago
#1223 closed Bug (fixed)
Surface pressure gradient error
Reported by: | JohnSiddorn | Owned by: | acc |
---|---|---|---|
Priority: | low | Milestone: | |
Component: | OCE | Version: | v3.6 |
Severity: | Keywords: | ||
Cc: | jchanut, rfurner |
Description
Line 136 in the DYN/dynspg.F90 routine at NEMO3.6 updates the surface pressure trend for v twice, rather than for u.
! !== tide potential forcing term ==!
IF( .NOT.lk_dynspg_ts .AND. ( ln_tide_pot .AND. lk_tide ) ) THEN ! N.B. added directly at sub-time-step in ts-case
!
CALL upd_tide( kt ) ! update tide potential
!
DO jj = 2, jpjm1 ! add tide potential forcing
DO ji = fs_2, fs_jpim1 ! vector opt.
spgv(ji,jj) = spgu(ji,jj) + grav * ( pot_astro(ji+1,jj) - pot_astro(ji,jj) ) / e1u(ji,jj)
spgv(ji,jj) = spgv(ji,jj) + grav * ( pot_astro(ji,jj+1) - pot_astro(ji,jj) ) / e2v(ji,jj)
END DO
END DO
ENDIF
Commit History (1)
Changeset | Author | Time | ChangeLog |
---|---|---|---|
4487 | acc | 2014-02-05T16:46:50+01:00 | #1223 fix surface pressure gradient typo error in dynspg.F90 for the case of tidal potential forcing with dynspg_flt |
Change History (2)
comment:1 Changed 10 years ago by clevy
- Owner changed from NEMO team to acc
comment:2 Changed 10 years ago by acc
- Resolution set to fixed
- Status changed from new to closed
Fixed at changeset 4487