[MITgcm-support] orcs_calc.F

[smaeilpour]

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
-------------------------------^
ifort -fp-model source -132 -r8 -i4 -w95 -W0 -WB -convert big_endian -assume byterecl -O3 -align -ip  -c debug_msg.f
ifort -fp-model source -132 -r8 -i4 -w95 -W0 -WB -convert big_endian -assume byterecl -O3 -align -ip  -c debug_stats_rl.f
compilation aborted for obcs_calc.f (code 1)
ifort -fp-model source -132 -r8 -i4 -w95 -W0 -WB -convert big_endian -assume byterecl -O3 -align -ip  -c debug_stats_rs.f
ifort -fp-model source -132 -r8 -i4 -w95 -W0 -WB -convert big_endian -assume byterecl -O3 -align -ip  -c fill_in_corners_rl.f
ifort -fp-model source -132 -r8 -i4 -w95 -W0 -WB -convert big_endian -assume byterecl -O3 -align -ip  -c write_fullarray_rl.f
ifort -fp-model source -132 -r8 -i4 -w95 -W0 -WB -convert big_endian -assume byterecl -O3 -align -ip  -c write_fullarray_rs.f
ifort -fp-model source -132 -r8 -i4 -w95 -W0 -WB -convert big_endian -assume byterecl -O3 -align -ip  -c gad_advection.f
ifort -fp-model source -132 -r8 -i4 -w95 -W0 -WB -convert big_endian -assume byterecl -O3 -align -ip  -c gad_advscheme.f
make[1]: *** [obcs_calc.o] Error 1
make[1]: *** Waiting for unfinished jobs....
make[1]: Leaving directory `/nfs/hood.math/fsys5/smollaesmaeilpour/MITgcm/verification/internal_wave-2040-840/build'
make: *** [fwd_exe_target] Error 2

I would really appreciate if somebody fix and e_mailed it to me.

Saeid