[MITgcm-devel] cs- this block needed by cubed sphere

[Dimitris Menemenlis]

Is the ini_curvilinear_grid.F routine hard-coded for cube sphere?
Wouldn't block below cause trouble if one is not using cube sphere?

D.

cs-   this block needed by cubed sphere until we write more useful I/O
routines
      bi=3
      bj=1
      YG(1,sNy+1,bj,1)=YG(1,1,bi,1)
      bj=bj+2
      YG(1,sNy+1,bj,1)=YG(1,1,bi,1)
      bj=bj+2
      YG(1,sNy+1,bj,1)=YG(1,1,bi,1)
      bi=6
      bj=2
      YG(sNx+1,1,bj,1)=YG(1,1,bi,1)
      bj=bj+2
      YG(sNx+1,1,bj,1)=YG(1,1,bi,1)
      bj=bj+2
      YG(sNx+1,1,bj,1)=YG(1,1,bi,1)
cs-   end block