source: NEMO/branches/2020/dev_r12377_KERNEL-06_techene_e3/src/OCE/DOM/domzgr_substitute.h90 @ 12624

Last change on this file since 12624 was 12624, checked in by techene, 8 months ago

all: add e3 substitute and limit precompiled files lines to about 130 character, change key_LF into key_QCO, change module name (dynatfQCO, traatfQCO, stepLF)

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_QCO
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)     (e3f_0(i,j,k)*(1.+r3f(i,j)*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.