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 3107 for branches/2011/dev_LOCEAN_CMCC_INGV_MERCATOR_2011/NEMOGCM – NEMO

Context Navigation

← Previous Change
Next Change →

Changeset 3107 for branches/2011/dev_LOCEAN_CMCC_INGV_MERCATOR_2011/NEMOGCM

Timestamp:

2011-11-15T12:41:47+01:00 (13 years ago)

Author:

poddo

Message:

correct bug to to tsn in mfs bulk

File:

: 1 edited

branches/2011/dev_LOCEAN_CMCC_INGV_MERCATOR_2011/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_mfs.F90 (modified) (1 diff)

Legend:

: Unmodified
: Added
: Removed

branches/2011/dev_LOCEAN_CMCC_INGV_MERCATOR_2011/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_mfs.F90

r3105	r3107
193	193	alonl(:,:) = glamt(:,:) * rad
194	194	alatl(:,:) = gphit(:,:) * rad
195		gsst(:,:) = t~~n(:,:,1~~) * tmask(:,:,1)
	195	gsst(:,:) = tsn(:,:,1,jp_tem) * tmask(:,:,1)
196	196
197	197	IF( MOD( kt - 1, nn_fsbc ) == 0 ) THEN

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

Download in other formats: