[MITgcm-support] OBCS bug

[Jean-Michel Campin]

Hi Gianmaria,

It should be fixed now.
Thanks,

Jean-Michel

On Thu, Jul 13, 2006 at 11:09:04PM +0200, Gianmaria Sannino wrote:
> 
> Dear all,
> 
> there is a bug in obcs_calc.F, in particular when the 
> nonlinear free surface option is defined on, the OBSeta 
> and OBNeta are defined:
> 
> #ifdef NONLIN_FRSURF
>               OBSeta(J,bi,bj)=0.
> #endif
> 
> #ifdef NONLIN_FRSURF
>               OBNeta(J,bi,bj)=0.
> #endif
> 
> 
> instead of:
> 
> #ifdef NONLIN_FRSURF
>               OBSeta(I,bi,bj)=0.
> #endif
> 
> #ifdef NONLIN_FRSURF
>               OBNeta(I,bi,bj)=0.
> #endif
> 
> 
> ciao
> gianmaria
> _______________________________________________
> MITgcm-support mailing list
> MITgcm-support at mitgcm.org
> http://mitgcm.org/mailman/listinfo/mitgcm-support