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)
Changeset | Author | Time | ChangeLog |
---|---|---|---|
9239 | gm | 2018-01-15T18:22:41+01:00 | dev_merge_2017: #2002 : sshwzv.F90 same small bug as for dynnxt |
9226 | gm | 2018-01-15T10:25:23+01:00 | dev_merge_2017: #2002 : dynnxt.F90 and icbtrj.F90: minor bug correction |
9225 | gm | 2018-01-15T10:17:26+01:00 | #2002 : v3.6_STABLE : dynnxt.F90 and icbtrj.F90: minor bug correction |