- Timestamp:
- 2016-01-15T13:11:56+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_r5803_UKMO_AGRIF_Vert_interp/NEMOGCM/NEMO/OPA_SRC/TRA/trazdf_imp.F90
r5819 r6258 210 210 DO ji = fs_2, fs_jpim1 211 211 ze3tb = ( 1. - r_vvl ) + r_vvl * fse3t_b(ji,jj,jk) 212 ze3tn = ( 1. - r_vvl ) + r_vvl * fse3t 212 ze3tn = ( 1. - r_vvl ) + r_vvl * fse3t(ji,jj,jk) 213 213 zrhs = ze3tb * ptb(ji,jj,jk,jn) + p2dt(jk) * ze3tn * pta(ji,jj,jk,jn) ! zrhs=right hand side 214 214 pta(ji,jj,jk,jn) = zrhs - zwi(ji,jj,jk) / zwt(ji,jj,jk-1) * pta(ji,jj,jk-1,jn)
Note: See TracChangeset
for help on using the changeset viewer.