Changeset 497 for trunk/NEMO/OFF_SRC/DOM/domzgr_substitute.h90
- Timestamp:
- 2006-09-12T13:03:53+02:00 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OFF_SRC/DOM/domzgr_substitute.h90
r343 r497 5 5 !! factors depending on the vertical coord. used, using CPP macro. 6 6 !!---------------------------------------------------------------------- 7 !! OPA 9.0 , LOCEAN-IPSL (2005)8 !! $Header$9 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt10 7 !!---------------------------------------------------------------------- 11 #if defined key_s_coord 12 !! s-coord: substitution fsdep.(,,) ==> hbat.(,) * gsig.() 13 !! fse3.(,,) ==> hbat.(,) * esig.() 14 # define fsdept(i,j,k) hbatt(i,j)*gsigt(k) 15 # define fsdepu(i,j,k) hbatu(i,j)*gsigt(k) 16 # define fsdepv(i,j,k) hbatv(i,j)*gsigt(k) 17 # define fsdepf(i,j,k) hbatf(i,j)*gsigt(k) 18 # define fsdepw(i,j,k) hbatt(i,j)*gsigw(k) 19 # define fsdepuw(i,j,k) hbatu(i,j)*gsi3w(k) 20 # define fsdepvw(i,j,k) hbatv(i,j)*gsi3w(k) 21 # define fsde3w(i,j,k) hbatt(i,j)*gsi3w(k) 22 # define fse3t(i,j,k) hbatt(i,j)*esigt(k) 23 # define fse3u(i,j,k) hbatu(i,j)*esigt(k) 24 # define fse3v(i,j,k) hbatv(i,j)*esigt(k) 25 # define fse3f(i,j,k) hbatf(i,j)*esigt(k) 26 # define fse3w(i,j,k) hbatt(i,j)*esigw(k) 27 # define fse3uw(i,j,k) hbatu(i,j)*esigw(k) 28 # define fse3vw(i,j,k) hbatv(i,j)*esigw(k) 29 #elif defined key_partial_steps 30 !! z-coord: substitution fsdep.(,,) ==> gdep._ps() 31 !! fse3.(,,) ==> e3._ps() 32 # define fsdept(i,j,k) gdept_ps(i,j,k) 33 # define fsdepw(i,j,k) gdepw_ps(i,j,k) 34 # define fsde3w(i,j,k) gdep3w(i,j,k) 35 # define fsdepuw(i,j,k) gdepw(k) 36 # define fsdepvw(i,j,k) gdepw(k) 37 # define fse3t(i,j,k) e3t_ps(i,j,k) 38 # define fse3u(i,j,k) e3u_ps(i,j,k) 39 # define fse3v(i,j,k) e3v_ps(i,j,k) 40 # define fse3f(i,j,k) e3f_ps(i,j,k) 41 # define fse3w(i,j,k) e3w_ps(i,j,k) 42 # define fse3uw(i,j,k) e3uw_ps(i,j,k) 43 # define fse3vw(i,j,k) e3vw_ps(i,j,k) 8 !! OPA 9.0 , LOCEAN-IPSL (2005) 9 !! 10 !! History : 11 !! 9.0 ! 05-10 (A. Beckmann, G. Madec) generalisation to all coord. 12 !!---------------------------------------------------------------------- 13 #if defined key_zco 14 # define fsdept(i,j,k) gdept_0(k) 15 16 # define fsdepw(i,j,k) gdepw_0(k) 17 # define fsde3w(i,j,k) gdepw_0(k) 18 19 # define fse3t(i,j,k) e3t_0(k) 20 # define fse3u(i,j,k) e3t_0(k) 21 # define fse3v(i,j,k) e3t_0(k) 22 # define fse3f(i,j,k) e3t_0(k) 23 24 # define fse3w(i,j,k) e3w_0(k) 25 # define fse3uw(i,j,k) e3w_0(k) 26 # define fse3vw(i,j,k) e3w_0(k) 44 27 #else 45 !! z-coord: substitution fsdep.(,,) ==> gdep() 46 !! fse3.(,,) ==> e3.() 47 # define fsdept(i,j,k) gdept(k) 48 # define fsdepu(i,j,k) gdept(k) 49 # define fsdepv(i,j,k) gdept(k) 50 # define fsdepf(i,j,k) gdept(k) 51 # define fsdepw(i,j,k) gdepw(k) 52 # define fsdepuw(i,j,k) gdepw(k) 53 # define fsdepvw(i,j,k) gdepw(k) 54 # define fse3t(i,j,k) e3t(k) 55 # define fse3u(i,j,k) e3t(k) 56 # define fse3v(i,j,k) e3t(k) 57 # define fse3f(i,j,k) e3t(k) 58 # define fse3w(i,j,k) e3w(k) 59 # define fse3uw(i,j,k) e3w(k) 60 # define fse3vw(i,j,k) e3w(k) 28 # define fsdept(i,j,k) gdept(i,j,k) 29 30 # define fsdepw(i,j,k) gdepw(i,j,k) 31 # define fsde3w(i,j,k) gdep3w(i,j,k) 32 33 # define fse3t(i,j,k) e3t(i,j,k) 34 # define fse3u(i,j,k) e3u(i,j,k) 35 # define fse3v(i,j,k) e3v(i,j,k) 36 # define fse3f(i,j,k) e3f(i,j,k) 37 38 # define fse3w(i,j,k) e3w(i,j,k) 39 # define fse3uw(i,j,k) e3uw(i,j,k) 40 # define fse3vw(i,j,k) e3vw(i,j,k) 61 41 #endif
Note: See TracChangeset
for help on using the changeset viewer.