New URL for NEMO forge!   http://forge.nemo-ocean.eu

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.
#2002 (minor bugs in dynnxt and icbtrj (v3.6 and trunk)) – NEMO

Opened 6 years ago

Last modified 2 years ago

#2002 closed Bug

minor bugs in dynnxt and icbtrj (v3.6 and trunk) — at Initial Version

Reported by: gm Owned by: systeam
Priority: low Milestone:
Component: OCE Version: v3.6
Severity: minor Keywords: OPA v3.6
Cc:

Description

In v3.6 stable, trunk and dev_merge_2017, two MINOR bugs :

In dynnxt.F90

context : variable volume (key_vvl in v3.6 ; ln_linssh=F in trunk), and model starts with a euler time-stepping (starting from rest or data assimilation), the swap of e3t, u and v is wrong : swap of now to before time-step instead of after to now.
Only a minor bug as it only concerns the very first Euler time-step of a model run

Fix : lines 233-235, change "_b" by "_n" and "_n" by "_a"

               e3t_b(:,:,jk) = e3t_n(:,:,jk)
               e3u_b(:,:,jk) = e3u_n(:,:,jk)
               e3v_b(:,:,jk) = e3v_n(:,:,jk)

replaced by

               e3t_n(:,:,jk) = e3t_a(:,:,jk)
               e3u_n(:,:,jk) = e3u_a(:,:,jk)
               e3v_n(:,:,jk) = e3v_a(:,:,jk)


In icbtrj.F90

context : in iceberg trajectory output files long name of two variables (ssh_x and ssh_y) has been inverted

Fix : lines 112-113, the last argument of NF90_DEF_VAR function has been inverted:

iret = NF90_DEF_VAR(ntrajid, 'ssh_x', NF90_DOUBLE, n_dim, nsshyid)
iret = NF90_DEF_VAR(ntrajid, 'ssh_y', NF90_DOUBLE, n_dim, nsshxid)

replaced by

iret = NF90_DEF_VAR(ntrajid, 'ssh_x', NF90_DOUBLE, n_dim, nsshxid)
iret = NF90_DEF_VAR(ntrajid, 'ssh_y', NF90_DOUBLE, n_dim, nsshyid)

Commit History (3)

ChangesetAuthorTimeChangeLog
9239gm2018-01-15T18:22:41+01:00

dev_merge_2017: #2002 : sshwzv.F90 same small bug as for dynnxt

9226gm2018-01-15T10:25:23+01:00

dev_merge_2017: #2002 : dynnxt.F90 and icbtrj.F90: minor bug correction

9225gm2018-01-15T10:17:26+01:00

#2002 : v3.6_STABLE : dynnxt.F90 and icbtrj.F90: minor bug correction

Change History (0)

Note: See TracTickets for help on using tickets.