- Timestamp:
- 2016-10-18T15:32:04+02:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2016/dev_r6519_HPC_4/NEMOGCM/NEMO/OPA_SRC/TRA/traadv.F90
r6748 r7037 108 108 ! 109 109 IF( ln_vvl_ztilde .OR. ln_vvl_layer ) THEN ! add z-tilde and/or vvl corrections 110 !$OMP PARALLEL WORKSHARE 110 111 zun(:,:,:) = zun(:,:,:) + un_td(:,:,:) 111 112 zvn(:,:,:) = zvn(:,:,:) + vn_td(:,:,:) 112 ENDIF 113 ! 113 !$OMP END PARALLEL WORKSHARE 114 ENDIF 115 ! 116 !$OMP PARALLEL WORKSHARE 114 117 zun(:,:,jpk) = 0._wp ! no transport trough the bottom 115 118 zvn(:,:,jpk) = 0._wp 116 119 zwn(:,:,jpk) = 0._wp 120 !$OMP END PARALLEL WORKSHARE 117 121 ! 118 122 IF( ln_ldfeiv .AND. .NOT. ln_traldf_triad ) &
Note: See TracChangeset
for help on using the changeset viewer.