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 12775 for NEMO/branches/UKMO/NEMO_4.0.1_biharmonic_GM/src/OCE/LDF/ldfdyn.F90 – NEMO

Context Navigation

← Previous Change
Next Change →

Changeset 12775 for NEMO/branches/UKMO/NEMO_4.0.1_biharmonic_GM/src/OCE/LDF/ldfdyn.F90

Timestamp:

2020-04-20T09:15:34+02:00 (4 years ago)

Author:

davestorkey

Message:

UKMO/NEMO_4.0.1_biharmonic_GM : bug fixes.

File:

: 1 edited

NEMO/branches/UKMO/NEMO_4.0.1_biharmonic_GM/src/OCE/LDF/ldfdyn.F90 (modified) (1 diff)

Legend:

: Unmodified
: Added
: Removed

NEMO/branches/UKMO/NEMO_4.0.1_biharmonic_GM/src/OCE/LDF/ldfdyn.F90

r12691	r12775
414	414	ENDDO
415	415
416		IF ( lhscrit .ge. 1._wp/32._wp) THEN
	416	IF ( lhscritmax .ge. 1._wp/32._wp) THEN
417	417	IF(lwp) THEN
418	418	WRITE(numout,*)

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

Download in other formats: