New URL for NEMO forge!

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
#1223 (Surface pressure gradient error) – NEMO

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


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)




Commit History (1)


#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

Note: See TracTickets for help on using tickets.