[MITgcm-support] orcs_calc.F

[Martin Losch]

did anyone reply yet or did you solve the problem yourself.

In fortran you cannot have two dots like that in a row. It needs to be

OBSv(I,K,bi,bj)=0.D0
or
OBSv(I,K,bi,bj)=0.

In the obcs_calc.F you should already have 
OBSv(I,K,bi,bj)=0.
or
OBSv(I,K,bi,bj)=0. _d 0 ! “ _d “ is a macro that is replaced by “D”. I assume you had "0. . _d 0" or similar

M.

> On 27. Jun 2017, at 02:10, smaeilpour <saeid_gal at yahoo.com> wrote:
> 
> Hi everyone,
> In obcs_calc.F file that's available into code directory in Internal wave testcase, I'd like to open two boundaries (North and South) and close each of east and west boundaries, 
> I did it, but during run I see the following error, that is Syntax error:
> 
> obcs_calc.f(3577): error #5082: Syntax error, found '.' when expecting one of: * ) :: , <END-OF-STATEMENT> ; + . - (/ [ : ] /) ' ** / // > .LT. ...
>            OBSv(I,K,bi,bj)=0. .D0
> -------------------------------^
> obcs_calc.f(3631): error #5082: Syntax error, found '.' when expecting one of: * ) :: , <END-OF-STATEMENT> ; + . - (/ [ : ] /) ' ** / // > .LT. ...
>            OBSv(I,K,bi,bj)=0. .D0
> -------------------------------^