Changeset 2707 for branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DOM/domzgr.F90

Timestamp:

2011-03-25T15:49:07+01:00 (14 years ago)

Author:

rblod

Message:

Correct for s-coordinate

File:

• branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DOM/domzgr.F90 (modified) (1 diff)

branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DOM/domzgr.F90

@@ -1424 +1424 @@
             END DO
          END DO
+
+         CALL lbc_lnk( e3t , 'T', 1._wp )
+         CALL lbc_lnk( e3u , 'U', 1._wp )
+         CALL lbc_lnk( e3v , 'V', 1._wp )
+         CALL lbc_lnk( e3f , 'F', 1._wp )
+         CALL lbc_lnk( e3w , 'W', 1._wp )
+         CALL lbc_lnk( e3uw, 'U', 1._wp )
+         CALL lbc_lnk( e3vw, 'V', 1._wp )
+
          !
       ELSE   ! not ln_s_sigma