!!----------------------------------------------------------------------
   !!                    ***  domzgr_substitute.h90   ***
   !!----------------------------------------------------------------------
   !! ** purpose :   substitute fsdep. and fse.., the vert. depth and scale
   !!      factors depending on the vertical coord. used, using CPP macro.
   !!----------------------------------------------------------------------
   !!----------------------------------------------------------------------
   !!  OPA 9.0 , LOCEAN-IPSL (2005) 
   !!
   !! History :
   !!   9.0  !  05-10  (A. Beckmann, G. Madec) generalisation to all coord.
   !!----------------------------------------------------------------------
#if defined key_zco
#   define  fsdept(i,j,k)  gdept_0(k)

#   define  fsdepw(i,j,k)  gdepw_0(k)
#   define  fsde3w(i,j,k)  gdepw_0(k)

#   define  fse3t(i,j,k)   e3t_0(k)
#   define  fse3u(i,j,k)   e3t_0(k)
#   define  fse3v(i,j,k)   e3t_0(k)
#   define  fse3f(i,j,k)   e3t_0(k)

#   define  fse3w(i,j,k)   e3w_0(k)
#   define  fse3uw(i,j,k)  e3w_0(k)
#   define  fse3vw(i,j,k)  e3w_0(k)
#else
#   define  fsdept(i,j,k)  gdept(i,j,k)

#   define  fsdepw(i,j,k)  gdepw(i,j,k)
#   define  fsde3w(i,j,k)  gdep3w(i,j,k)
 
#   define  fse3t(i,j,k)   e3t(i,j,k)
#   define  fse3u(i,j,k)   e3u(i,j,k)
#   define  fse3v(i,j,k)   e3v(i,j,k)
#   define  fse3f(i,j,k)   e3f(i,j,k)

#   define  fse3w(i,j,k)   e3w(i,j,k)
#   define  fse3uw(i,j,k)  e3uw(i,j,k)
#   define  fse3vw(i,j,k)  e3vw(i,j,k)
#endif

#if defined key_vvl
#   define  fsvdept(i,j,k)  gdept_1(i,j,k)

#   define  fsvdepw(i,j,k)  gdepw_1(i,j,k)
#   define  fsvde3w(i,j,k)  gdep3w_1(i,j,k)

#   define  fsve3t(i,j,k)   e3t_1(i,j,k)
#   define  fsve3u(i,j,k)   e3u_1(i,j,k)
#   define  fsve3v(i,j,k)   e3v_1(i,j,k)
#   define  fsve3f(i,j,k)   e3f_1(i,j,k)

#   define  fsve3w(i,j,k)   e3w_1(i,j,k)
#   define  fsve3uw(i,j,k)  e3uw_1(i,j,k)
#   define  fsve3vw(i,j,k)  e3vw_1(i,j,k)
#else
#   define  fsvdept(i,j,k)  fsdept(i,j,k)

#   define  fsvdepw(i,j,k)  fsdepw(i,j,k)
#   define  fsvde3w(i,j,k)  fsde3w(i,j,k)

#   define  fsve3t(i,j,k)   fse3t(i,j,k)
#   define  fsve3u(i,j,k)   fse3u(i,j,k)
#   define  fsve3v(i,j,k)   fse3v(i,j,k)
#   define  fsve3f(i,j,k)   fse3f(i,j,k)

#   define  fsve3w(i,j,k)   fse3w(i,j,k)
#   define  fsve3uw(i,j,k)  fse3uw(i,j,k)
#   define  fsve3vw(i,j,k)  fse3vw(i,j,k)
#endif