Opened 7 years ago

Closed 7 years ago

#1223 closed Bug (fixed)

Surface pressure gradient error

Reported by: JohnSiddorn Owned by: acc
Priority: low Milestone:
Component: OCE Version: release-3.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)

ChangesetAuthorTimeChangeLog
4487acc2014-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 7 years ago by clevy

  • Owner changed from NEMO team to acc

comment:2 Changed 7 years ago by acc

  • Resolution set to fixed
  • Status changed from new to closed

Fixed at changeset 4487

Note: See TracTickets for help on using tickets.