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 3377 for branches/2012/dev_r3337_NOCS10_ICB – NEMO

Context Navigation

← Previous Change
Next Change →

Changeset 3377 for branches/2012/dev_r3337_NOCS10_ICB

Timestamp:

2012-05-01T09:28:06+02:00 (12 years ago)

Author:

sga

Message:

NEMO branch dev_r3337_NOCS10_ICB: make the obscure slightly less obscure by correcting a typing error

File:

: 1 edited

branches/2012/dev_r3337_NOCS10_ICB/NEMOGCM/NEMO/OPA_SRC/ICB/icbthm.F90 (modified) (1 diff)

Legend:

: Unmodified
: Added
: Removed

branches/2012/dev_r3337_NOCS10_ICB/NEMOGCM/NEMO/OPA_SRC/ICB/icbthm.F90

r3374	r3377
85	85	ii = mi1( ii )
86	86	ij = INT( zyj + 0.5 )
87		ij = mi1( ij )
	87	ij = mj1( ij )
88	88	zVol = zT * zW * zL
89	89	zdt = berg_dt ; z1_dt = 1._wp / zdt

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

Download in other formats: