--- MITgcm/model/src/ini_cg2d.F 2000/03/14 17:47:25 1.27 +++ MITgcm/model/src/ini_cg2d.F 2001/01/30 21:02:59 1.27.2.1 @@ -1,4 +1,4 @@ -C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/model/src/ini_cg2d.F,v 1.27 2000/03/14 17:47:25 adcroft Exp $ +C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/model/src/ini_cg2d.F,v 1.27.2.1 2001/01/30 21:02:59 adcroft Exp $ #include "CPP_OPTIONS.h" @@ -71,7 +71,7 @@ ENDDO ENDDO #ifdef ALLOW_OBCS - IF (openBoundaries) THEN + IF (useOBCS) THEN DO I=1,sNx IF (OB_Jn(I,bi,bj).NE.0) aS2d(I,OB_Jn(I,bi,bj),bi,bj)=0. IF (OB_Jn(I,bi,bj).NE.0) aS2d(I,OB_Jn(I,bi,bj)+1,bi,bj)=0.