Ray:

I have changed twodsodium so there are more contour line labels, but
hopefully not too many. I agree, it was looking pretty sparse.
(I'll do the same in timesproc)
I have also added 3 header files with the large blank common,
and the commons /SODIUM/ and /SOLARS/ (so if you need to make
changes in those commons, use blank.h, sodium.h, or solars.h.

There are some interface errors in the code, which I have not changed,
but you may want to look at:

--Ben

*****************************************************************************
     Function TVEF1                     File ionden.f             Line 54

>      VUT=W(C,RLT,PHI)
>                     ^
ionden.f:TVEF1 line 61:
INTERFACE ERROR #56- not enough arguments.
*****************************************************************************
   Subroutine SOLHEAT                   File solheat.f            Line 2
 
>      CALL TANCOMP(ZG,XMO2,XMN2,XMO,XMO3,TMM,CNGO2,CNGN2,CNGO,CNGO3,
>     1CLNO3)
>      ^
solheat.f:SOLHEAT line 156:
INTERFACE ERROR #57- too many arguments.
*****************************************************************************
   Subroutine PSETB                     File solvers.f            Line 1374
 
>      CALL PDB (N, T, Y, PW, N0, ML, MU)
>                ^
solvers.f:PSETB line 1402:
INTERFACE ERROR #57- too many arguments.
*****************************************************************************
   Subroutine INTERPV                   File tides.f              Line 788
 
USAGE ERROR #126- local variables referenced but never set:  SLP1 (Line 804), 
          SLPN (Line 804)
*****************************************************************************

I also noticed that in gwave2d, the dimension statement for SHTO has
been commented out, but later (line 269) there is a reference to it:
      WW(J)=WWIND(I,J)/SHTO(J)
I'm not sure why this does'nt cause a problem considering that 
preset=indef.

Remember that when dealing with a code like this that has been
broken up into multiple source files, you can use fgrep to find
strings in the files, e.g.:

sting$ fgrep SHTO *.h *.f

--Ben