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 12911 – NEMO

Context Navigation

← Previous Changeset
Next Changeset →

Changeset 12911

Timestamp:

2020-05-12T11:24:31+02:00 (3 years ago)

Author:

techene

Message:

debug: gdept has to be defined over the whole water column

Location:

NEMO/branches/2020/dev_r12377_KERNEL-06_techene_e3/src/OCE

Files:

: 3 edited

DIA/diaar5.F90 (modified) (1 diff)
DIA/diawri.F90 (modified) (1 diff)
DOM/istate.F90 (modified) (1 diff)

Legend:

: Unmodified
: Added
: Removed

NEMO/branches/2020/dev_r12377_KERNEL-06_techene_e3/src/OCE/DIA/diaar5.F90

r12732	r12911
132	132	ztsn(:,:,:,jp_tem) = ts(:,:,:,jp_tem,Kmm) ! thermosteric ssh
133	133	ztsn(:,:,:,jp_sal) = sn0(:,:,:)
134		DO jk = 1, jpkm1
	134	DO jk = 1, jpk
135	135	zgdept(:,:,jk) = gdept(:,:,jk,Kmm)
136	136	END DO

NEMO/branches/2020/dev_r12377_KERNEL-06_techene_e3/src/OCE/DIA/diawri.F90

r12732	r12911
478	478	! store e3t for subsitute
479	479	DO jk = 1, jpk
480		ze3t~~(:,:,jk) = e3t~~(:,:,jk,Kmm)
	480	ze3t (:,:,jk) = e3t (:,:,jk,Kmm)
481	481	zgdept(:,:,jk) = gdept(:,:,jk,Kmm)
482	482	END DO

NEMO/branches/2020/dev_r12377_KERNEL-06_techene_e3/src/OCE/DOM/istate.F90

r12732	r12911
117	117	!
118	118	ELSE ! user defined initial T and S
119		DO jk = 1, jpkm1
	119	DO jk = 1, jpk
120	120	zgdept(:,:,jk) = gdept(:,:,jk,Kbb)
121	121	END DO

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

Download in other formats: