Changeset 1151 for trunk/NEMO/OPA_SRC/DYN

Timestamp:

2008-06-26T14:54:53+02:00 (16 years ago)

Author:

rblod

Message:

Add new OBC, see ticket #224

Location:

trunk/NEMO/OPA_SRC/DYN

Files:

• dynspg_flt.F90 (modified) (1 diff)
• wzvmod.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/DYN/dynspg_flt.F90

@@ -434 +434 @@
       ENDIF
 
+#if defined key_agrif
+      IF (lk_obc .AND. Agrif_Root() ) THEN
+#else
+      IF (lk_obc) THEN
+#endif
+         zssha(:,:)=zssha(:,:)*obctmsk(:,:)
+         CALL lbc_lnk(zssha,'T',1.)  ! absolutly compulsory !! (jmm)
+      ENDIF
+
       IF( neuler == 0 .AND. kt == nit000 ) THEN      ! Euler (forward) time stepping, no time filter
          ! swap of arrays

trunk/NEMO/OPA_SRC/DYN/wzvmod.F90

@@ -104 +104 @@
          END DO
 
-#if defined key_obc && ( key_dynspg_exp || key_dynspg_ts )
+#if defined key_obc && ( defined key_dynspg_exp || defined key_dynspg_ts )
          ! open boundaries (div must be zero behind the open boundary)
          !  mpp remark: The zeroing of hdiv can probably be extended to 1->jpi/jpj for the correct row/column