- Timestamp:
- 2020-03-27T20:55:44+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r12377_KERNEL-06_techene_e3/src/OCE/DIA/diadct.F90
r12377 r12622 95 95 !! Software governed by the CeCILL license (see ./LICENSE) 96 96 !!---------------------------------------------------------------------- 97 # include "domzgr_substitute.h90" 98 97 99 CONTAINS 98 100 … … 1119 1121 !! | | | interpolation between ptab(I,J,K) and ptab(I,J,K+1) 1120 1122 !! | | | zbis = 1121 !! | | | [ e3w (I+1,J,K)*ptab(I,J,K) + ( e3w(I,J,K) - e3w(I+1,J,K) ) * ptab(I,J,K-1) ]1122 !! | | | /[ e3w (I+1,J,K) + e3w(I,J,K) - e3w(I+1,J,K) ]1123 !! | | | [ e3w_n(I+1,J,K)*ptab(I,J,K) + ( e3w_n(I,J,K) - e3w_n(I+1,J,K) ) * ptab(I,J,K-1) ] 1124 !! | | | /[ e3w_n(I+1,J,K) + e3w_n(I,J,K) - e3w_n(I+1,J,K) ] 1123 1125 !! | | | 1124 1126 !! | | | 2. Horizontal interpolation: compute value at U/V point … … 1212 1214 ELSE ! full step or partial step case 1213 1215 1214 ze3t = e3t(ii2,ij2,kk,Kmm) - e3t(ii1,ij1,kk,Kmm) 1215 zwgt1 = ( e3w(ii2,ij2,kk,Kmm) - e3w(ii1,ij1,kk,Kmm) ) / e3w(ii2,ij2,kk,Kmm) 1216 zwgt2 = ( e3w(ii1,ij1,kk,Kmm) - e3w(ii2,ij2,kk,Kmm) ) / e3w(ii1,ij1,kk,Kmm) 1216 ze3t = e3t(ii2,ij2,kk,Kmm) - e3t(ii1,ij1,kk,Kmm) 1217 zwgt1 = ( e3w(ii2,ij2,kk,Kmm) - e3w(ii1,ij1,kk,Kmm) ) & 1218 & / e3w(ii2,ij2,kk,Kmm) 1219 zwgt2 = ( e3w(ii1,ij1,kk,Kmm) - e3w(ii2,ij2,kk,Kmm) ) & 1220 & / e3w(ii1,ij1,kk,Kmm) 1217 1221 1218 1222 IF(kk .NE. 1)THEN
Note: See TracChangeset
for help on using the changeset viewer.