Changeset 4287 for branches/2013/dev_r3858_NOC_ZTC
- Timestamp:
- 2013-11-20T15:51:55+01:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_r3858_NOC_ZTC/NEMOGCM/NEMO/OPA_SRC/DOM/domvvl.F90
r4286 r4287 344 344 DO jj = 1, jpjm1 345 345 DO ji = 1, fs_jpim1 ! vector opt. 346 un_td(ji,jj,jk) = rn_ahe3 * umask(ji,jj,jk) * re2u_e1u(ji,jj) * ( tilde_e3t_b(ji,jj,jk) - tilde_e3t_b(ji+1,jj ,jk) ) 347 vn_td(ji,jj,jk) = rn_ahe3 * vmask(ji,jj,jk) * re1v_e2v(ji,jj) * ( tilde_e3t_b(ji,jj,jk) - tilde_e3t_b(ji ,jj+1,jk) ) 346 un_td(ji,jj,jk) = rn_ahe3 * umask(ji,jj,jk) * re2u_e1u(ji,jj) & 347 & * ( tilde_e3t_b(ji,jj,jk) - tilde_e3t_b(ji+1,jj ,jk) ) 348 vn_td(ji,jj,jk) = rn_ahe3 * vmask(ji,jj,jk) * re1v_e2v(ji,jj) & 349 & * ( tilde_e3t_b(ji,jj,jk) - tilde_e3t_b(ji ,jj+1,jk) ) 348 350 zwu(ji,jj) = zwu(ji,jj) + un_td(ji,jj,jk) 349 351 zwv(ji,jj) = zwv(ji,jj) + vn_td(ji,jj,jk) … … 555 557 tilde_e3t_b(:,:,:) = tilde_e3t_n(:,:,:) 556 558 ELSE 557 tilde_e3t_b(:,:,:) = tilde_e3t_n(:,:,:) + atfp * ( tilde_e3t_b(:,:,:) - 2.0_wp * tilde_e3t_n(:,:,:) + tilde_e3t_a(:,:,:) ) 559 tilde_e3t_b(:,:,:) = tilde_e3t_n(:,:,:) & 560 & + atfp * ( tilde_e3t_b(:,:,:) - 2.0_wp * tilde_e3t_n(:,:,:) + tilde_e3t_a(:,:,:) ) 558 561 ENDIF 559 562 tilde_e3t_n(:,:,:) = tilde_e3t_a(:,:,:)
Note: See TracChangeset
for help on using the changeset viewer.