*IDENT convppfix
*DECLARE CONVPP1
*/
*/ Note: this mod not tested. I just did the code by hand.
*/       the code is in ~/um/vn4.5/exec_build/convpp_dir
*/       and when re-make'ed the executable goes into
*/       ~/um/vn4.5/exec
*/
*/ From Marks Webb's email:
*/
*/ Comparing the 5.3 version of the source code with that
*/ release in PUM 4.5, I can see that the two references to
*/ FIXHD(3) in convpp1.f have been changed to FIXHD(5).
*/
*/ This is in the part of the code which, according to the
*/ comments, is to:
*/ 
*/'Take off the extra columns if the dump is cyclic using the E1 array'
*/
*D UDG5F404.139
C WMC/Mark Webb: fixes problem with ocean diags losing 2 points
!       IF(FIXHD(3).NE.3)THEN
        IF(FIXHD(5).NE.3)THEN
*D UDG5F404.168   
C WMC/Mark Webb: fixes problem with ocean diags losing 2 points
!       IF(FIXHD(3).NE.3)THEN 
        IF(FIXHD(5).NE.3)THEN