go to 100

  These lines are here to deliberately cause a compile-time error.

  You need to place you own copy of SIZE.h in the include

      These lines are put here on purpose to cause the compilation 

      to fail because the following code is retired and can no longer

         go to 9000

         go to 9000

         go to 9000

         go to 9000

            go to 10

  and b) to comment out these lines.

  These lines are here to deliberately cause a compile-time error.

  You need: a) to place you own copy of OCNIDS.h in a directory

  and b) to comment out these lines.

  These lines are here to deliberately cause a compile-time error.

  You need: a) to place you own copy of ATMIDS.h in a directory

  and b) to comment out these lines.

  These lines are here to deliberately cause a compile-time error.

  You need: a) to place you own copy of OCNIDS.h in a directory

        to=theta(i,j,1,bi,bj)

        toa=to+273.16d0

              deltap = t  - to + gamma_blk*ht

        xolw=stefan*(to+273.16d0)**4

        _RL xrel,to

         go to 999

            go to 500

            go to 320

         if (ifail.eq.0) go to 350

         go to 999

         if (td .ne. 0.0) go to 500

         go to 900

         if (td .eq. 0.0)     go to 950

         if (td-tg .lt. tmin) go to 920

            if ((z.ne.xx(i)) .and. (z.ne.xdiff(i))) go to 950

         go to 999

     .                    go to 200