Changeset 4577
- Timestamp:
- 2014-03-26T09:45:28+01:00 (10 years ago)
- Location:
- branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/NEMO/OPATAM_SRC
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/NEMO/OPATAM_SRC/DOM/istate_tam.F90
r4572 r4577 132 132 tsb_ad (:,:,:,:) = 0.0_wp 133 133 sshn_ad (:,: ) = sshn_ad(:,: ) + sshb_ad (:,: ) 134 sshb_ad (:,: ) = 0.0_wp 134 sshb_ad (:,: ) = 0.0_wp 135 135 ! 136 136 rhd_ad (:,:,:) = 0.0_wp -
branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/NEMO/OPATAM_SRC/DYN/dynnxt_tam.F90
r3611 r4577 291 291 ! 292 292 #else 293 !294 ! Update after velocity on domain lateral boundaries295 !296 293 ! Update after velocity on domain lateral boundaries 297 294 ! -------------------------------------------------- 298 CALL lbc_lnk_adj( va_ad, ' U', -1.0_wp ) !* local domain boundaries299 CALL lbc_lnk_adj( ua_ad, ' V', -1.0_wp )295 CALL lbc_lnk_adj( va_ad, 'V', -1.0_wp ) !* local domain boundaries 296 CALL lbc_lnk_adj( ua_ad, 'U', -1.0_wp ) 300 297 ! Next velocity : Leap-frog time stepping 301 298 ! -------------
Note: See TracChangeset
for help on using the changeset viewer.