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.

Changeset 6770 – NEMO

Context Navigation

← Previous Changeset
Next Changeset →

Changeset 6770

Timestamp:

2016-07-01T13:43:36+02:00 (8 years ago)

Author:

mathiot

Message:

Add ztrs surface initialisation in traadv_tvd_zts, as discussed in ticket #1755

File:

: 1 edited

branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_tvd.F90 (modified) (1 diff)

Legend:

: Unmodified
: Added
: Removed

branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_tvd.F90

r6692	r6770
469	469	!
470	470	ztrs(:,:,:,1) = ptb(:,:,:,jn)
	471	ztrs(:,:,1,2) = ptb(:,:,1,jn)
	472	ztrs(:,:,1,3) = ptb(:,:,1,jn)
471	473	zwzts(:,:,:) = 0._wp
472	474

Note: See TracChangeset for help on using the changeset viewer.

Download in other formats: