--- MITgcm/model/src/ini_cartesian_grid.F 1998/04/24 02:05:41 1.2 +++ MITgcm/model/src/ini_cartesian_grid.F 1998/05/25 18:01:32 1.4 @@ -1,4 +1,4 @@ -C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/model/src/ini_cartesian_grid.F,v 1.2 1998/04/24 02:05:41 cnh Exp $ +C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/model/src/ini_cartesian_grid.F,v 1.4 1998/05/25 18:01:32 cnh Exp $ #include "CPP_EEOPTIONS.h" @@ -221,9 +221,8 @@ _EXCH_XYZ_R4(rHFacS , myThid ) _EXCH_XYZ_R4(maskW , myThid ) _EXCH_XYZ_R4(maskS , myThid ) + _EXCH_XY_R4 (zA , myThid ) C RETURN END - -C $Id: ini_cartesian_grid.F,v 1.2 1998/04/24 02:05:41 cnh Exp $