Changeset 5299 for branches/2015/dev_r5218_CNRS17_coupling/NEMOGCM/NEMO/OPA_SRC/SBC/cpl_oasis3.F90

Timestamp:

2015-05-27T18:17:08+02:00 (9 years ago)

Author:

smasson

Message:

dev_r5218_CNRS17_coupling: bugfixes

File:

• branches/2015/dev_r5218_CNRS17_coupling/NEMOGCM/NEMO/OPA_SRC/SBC/cpl_oasis3.F90 (modified) (1 diff)

branches/2015/dev_r5218_CNRS17_coupling/NEMOGCM/NEMO/OPA_SRC/SBC/cpl_oasis3.F90

@@ -433 +433 @@
       !
       DO ji = 1, nsnd
-         DO jm = 1, ncplmodel
-            IF( ssnd(ji)%nid(1,jm) /= -1 ) THEN
-               IF( TRIM(cdfieldname) == TRIM(ssnd(ji)%clname) ) id = ssnd(ji)%nid(1,jm)
-            ENDIF
-         ENDDO
+         IF (ssnd(ji)%laction ) THEN
+            DO jm = 1, ncplmodel
+               IF( ssnd(ji)%nid(1,jm) /= -1 ) THEN
+                  IF( TRIM(cdfieldname) == TRIM(ssnd(ji)%clname) ) THEN
+                     id = ssnd(ji)%nid(1,jm)
+                  ENDIF
+               ENDIF
+            ENDDO
+         ENDIF
       ENDDO
       DO ji = 1, nrcv
-         DO jm = 1, ncplmodel
-            IF( srcv(ji)%nid(1,jm) /= -1 ) THEN
-               IF( TRIM(cdfieldname) == TRIM(srcv(ji)%clname) ) id = srcv(ji)%nid(1,jm)
-            ENDIF
-         ENDDO
+         IF (srcv(ji)%laction ) THEN
+            DO jm = 1, ncplmodel
+               IF( srcv(ji)%nid(1,jm) /= -1 ) THEN
+                  IF( TRIM(cdfieldname) == TRIM(srcv(ji)%clname) ) THEN
+                     id = srcv(ji)%nid(1,jm)
+                  ENDIF
+               ENDIF
+            ENDDO
+         ENDIF
       ENDDO
       !