id	summary	reporter	owner	description	type	status	priority	milestone	component	version	resolution	keywords	cc
631	Corrected a bug in ana_nudgcoef.h	arango	arango	"There is a bug in '''ana_nudgcoef.h''' in the '''MPI''' exchange of variables '''M3nudgcof''' and '''Tnudgcof'''.  We need to have instead:
{{{
# ifdef SOLVE3D
!
      IF (LnudgeM3CLM(ng)) THEN
        CALL mp_exchange3d (ng, tile, model, 1,                         &
     &                      LBi, UBi, LBj, UBj, 1, N(ng),               &
     &                      NghostPoints, .FALSE., .FALSE.,             &
     &                      CLIMA(ng)%M3nudgcof)
      END IF
!
      IF (ANY(LnudgeTCLM(:,ng))) THEN
        CALL mp_exchange4d (ng, tile, model, 1,                         &
     &                      LBi, UBi, LBj, UBj, 1, N(ng), 1, NTCLM(ng), &
     &                      NghostPoints, .FALSE., .FALSE.,             &
     &                      CLIMA(ng)%Tnudgcof)
      END IF
# endif
}}}
Many thanks to Julia Levin for bringing this to my attention."	bug	closed	major	Release ROMS/TOMS 3.7	Nonlinear	3.7	Fixed