Context Navigation

domzgr_substitute.h90 @ 12583

Last change on this file since 12583 was 12583, checked in by techene, 4 years ago
OCE/DOM/domqe.F90: add gdep at time level Kbb in dom_qe_sf_update, OCE/DOM/domzgr_substitute.h90: create the substitute module, OCE/DYN/dynatfLF.F90, OCE/TRA/traatfLF.F90: move boundary condition management and agrif management from atf modules to OCE/steplf.F90, OCE/SBC/sbcice_cice.F90, ICE/iceistate.F90 : remove dom_vvl_interpol and replace by dom_vvl_zgr ?
File size: 1.3 KB

Line
1	!!----------------------------------------------------------------------
2	!! * domzgr_substitute.h90 *
3	!!----------------------------------------------------------------------
4	!! ** purpose : substitute fsdep. and fse.., the vert. depth and scale
5	!! factors depending on the vertical coord. used, using CPP macro.
6	!!----------------------------------------------------------------------
7	!! History : 4.2 ! 2020-02 (S. Techene, G. Madec) star coordinate
8	!!----------------------------------------------------------------------
9	!! NEMO/OCE 4.2 , NEMO Consortium (2020)
10	!! $Id$
11	!! Software governed by the CeCILL license (see ./LICENSE)
12	!!----------------------------------------------------------------------
13	!#if defined key_lf
14	# define e3t(i,j,k,t) (e3t_0(i,j,k)(1.+r3t(i,j,t)tmask(i,j,k)))
15	# define e3u(i,j,k,t) (e3u_0(i,j,k)(1.+r3u(i,j,t)umask(i,j,k)))
16	# define e3v(i,j,k,t) (e3v_0(i,j,k)(1.+r3v(i,j,t)vmask(i,j,k)))
17	# define e3f(i,j,k,t) (e3f_0(i,j,k)(1.+r3f(i,j,t)fmask(i,j,k)))
18	# define e3w(i,j,k,t) (e3w_0(i,j,k)*(1.+r3t(i,j,t)))
19	# define e3uw(i,j,k,t) (e3uw_0(i,j,k)*(1.+r3u(i,j,t)))
20	# define e3vw(i,j,k,t) (e3vw_0(i,j,k)*(1.+r3v(i,j,t)))
21	!#endif
22	!!----------------------------------------------------------------------

Note: See TracBrowser for help on using the repository browser.