- Timestamp:
- 2021-06-21T15:27:34+02:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2021/dev_r14318_RK3_stage1/src/OCE/DOM/domzgr_substitute.h90
r14143 r15036 25 25 # define r1_hu(i,j,t) (r1_hu_0(i,j)/(1._wp+r3u(i,j,t))) 26 26 # define r1_hv(i,j,t) (r1_hv_0(i,j)/(1._wp+r3v(i,j,t))) 27 # if defined key_isf 28 # define gdept(i,j,k,t) ((gdept_0(i,j,k)-risfdep(i,j))*(1._wp+r3t(i,j,t))+risfdep(i,j)) 29 # define gdepw(i,j,k,t) ((gdepw_0(i,j,k)-risfdep(i,j))*(1._wp+r3t(i,j,t))+risfdep(i,j)) 30 # else 27 31 # define gdept(i,j,k,t) (gdept_0(i,j,k)*(1._wp+r3t(i,j,t))) 28 32 # define gdepw(i,j,k,t) (gdepw_0(i,j,k)*(1._wp+r3t(i,j,t))) 29 # define gde3w(i,j,k) (gdept_0(i,j,k)*(1._wp+r3t(i,j,Kmm))-ssh(i,j,Kmm)) 33 # endif 34 # define gde3w(i,j,k) (gdept(i,j,k,Kmm)-ssh(i,j,Kmm)) 30 35 #elif defined key_linssh 31 36 # define e3t(i,j,k,t) e3t_0(i,j,k) … … 47 52 #endif 48 53 !!---------------------------------------------------------------------- 49
Note: See TracChangeset
for help on using the changeset viewer.