46 real(dp),
intent(out) :: dxi, deta
66 #if (GRID==0 || GRID==1)
76 stop
' topography2: GRID==2 not allowed for this application!'
87 xi(i) = xi0 +
real(i,dp)*dxi
88 eta(j) = eta0 +
real(j,dp)*deta
90 call
geo_coord(phi(j,i), lambda(j,i), xi(i), eta(j))
98 dzs_dtau(j,i) = 0.0_dp
99 dzm_dtau(j,i) = 0.0_dp
100 dzb_dtau(j,i) = 0.0_dp
101 dzl_dtau(j,i) = 0.0_dp
102 dh_c_dtau(j,i) = 0.0_dp
103 dh_t_dtau(j,i) = 0.0_dp
122 area(j,i) = sq_g11_g(j,i)*sq_g22_g(j,i)*dxi*deta