Update of /u/gcmpack/MITgcm/model/src In directory forge:/tmp/cvs-serv10129 Modified Files: solve_for_pressure.F ini_cg3d.F cg3d.F Log Message: make 3.D solver compatible with Free-surface at k > 1 (p-coordinate): compute & store in commom block solver main diagonal element.