Changeset 8523

Timestamp:

2017-09-15T13:56:16+02:00 (7 years ago)

Author:

cbricaud

Message:

bugfix in nemo_v3_6_STABLE for ticket #1922

File:

• branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/OPA_SRC/BDY/bdydta.F90 (modified) (2 diffs)

branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/OPA_SRC/BDY/bdydta.F90

@@ -36 +36 @@
    USE limvar          ! redistribute ice input into categories
 #endif
+   USE sbc_oce
    USE sbcapr
 
@@ -395 +396 @@
       ! end jchanut tschanges
 
-      IF ( ln_apr_obc ) THEN
-         DO ib_bdy = 1, nb_bdy
-            IF (cn_tra(ib_bdy) /= 'runoff')THEN
-               igrd = 1                      ! meridional velocity
-               DO ib = 1, idx_bdy(ib_bdy)%nblenrim(igrd)
-                  ii   = idx_bdy(ib_bdy)%nbi(ib,igrd)
-                  ij   = idx_bdy(ib_bdy)%nbj(ib,igrd)
-                  dta_bdy(ib_bdy)%ssh(ib) = dta_bdy(ib_bdy)%ssh(ib) + ssh_ib(ii,ij)
-               ENDDO
-            ENDIF
-         ENDDO
+      IF( ln_apr_dyn )THEN
+         IF( ln_apr_obc ) THEN
+            DO ib_bdy = 1, nb_bdy
+               IF (cn_tra(ib_bdy) /= 'runoff')THEN
+                  igrd = 1                      ! meridional velocity
+                  DO ib = 1, idx_bdy(ib_bdy)%nblenrim(igrd)
+                     ii   = idx_bdy(ib_bdy)%nbi(ib,igrd)
+                     ij   = idx_bdy(ib_bdy)%nbj(ib,igrd)
+                     dta_bdy(ib_bdy)%ssh(ib) = dta_bdy(ib_bdy)%ssh(ib) + ssh_ib(ii,ij)
+                  ENDDO
+               ENDIF
+            ENDDO
+         ENDIF
       ENDIF