Changeset 4577 for branches/2012

Timestamp:

2014-03-26T09:45:28+01:00 (10 years ago)

Author:

pabouttier

Message:

Fix wrong calls to lbc_lnk_adj in dyn_nxt_adj, see Ticket #1272

Location:

branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/NEMO/OPATAM_SRC

Files:

• DOM/istate_tam.F90 (modified) (1 diff)
• DYN/dynnxt_tam.F90 (modified) (1 diff)

branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/NEMO/OPATAM_SRC/DOM/istate_tam.F90

@@ -132 +132 @@
       tsb_ad   (:,:,:,:) = 0.0_wp
       sshn_ad   (:,:  ) = sshn_ad(:,:  ) + sshb_ad (:,:  )
-      sshb_ad   (:,:  ) = 0.0_wp
+      sshb_ad   (:,:  ) = 0.0_wp 
       !
       rhd_ad  (:,:,:) = 0.0_wp

branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/NEMO/OPATAM_SRC/DYN/dynnxt_tam.F90

@@ -291 +291 @@
       !
 #else
-      !
-      ! Update after velocity on domain lateral boundaries
-      !
       ! Update after velocity on domain lateral boundaries
       ! --------------------------------------------------
-      CALL lbc_lnk_adj( va_ad, 'U', -1.0_wp )     !* local domain boundaries
-      CALL lbc_lnk_adj( ua_ad, 'V', -1.0_wp )
+      CALL lbc_lnk_adj( va_ad, 'V', -1.0_wp )     !* local domain boundaries
+      CALL lbc_lnk_adj( ua_ad, 'U', -1.0_wp )
       ! Next velocity :   Leap-frog time stepping
       ! -------------