Context Navigation

Changeset 286

Timestamp:

2005-09-22T12:40:01+02:00 (19 years ago)

Author:

opalod

Message:

nemo_v1_bugfix_003 : CT : when not using sea-ice the damping term qrp(:,:) must be computed only if not using the monthly bulk neither the daily bulk

File:

r258	r286
496	496	& + freeze(ji,jj) * zqrj ) ) * tmask(ji,jj,1)
497	497
498		#if ! defined key_flx_bulk_monthly \|\| defined key_flx_bulk_daily
	498	#if ! defined key_flx_bulk_monthly \|\| ! defined key_flx_bulk_daily
499	499	zqrp = ztrp * ( tb(ji,jj,1) - ztdta )
500	500	qrp(ji,jj) = qrp(ji,jj) + (1. - ziclim(ji,jj)) * zqrp

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