Changeset 7851 for trunk

Timestamp:

2017-03-30T16:03:21+02:00 (7 years ago)

Author:

cetlod

Message:

trunk: minor bugfix in cpl_oasis.F90

File:

• trunk/NEMOGCM/NEMO/OPA_SRC/SBC/cpl_oasis3.F90 (modified) (1 diff)

trunk/NEMOGCM/NEMO/OPA_SRC/SBC/cpl_oasis3.F90

@@ -514 +514 @@
    END SUBROUTINE oasis_get_localcomm
 
-   SUBROUTINE oasis_def_partition(k1,k2,k3)
+   SUBROUTINE oasis_def_partition(k1,k2,k3,k4)
       INTEGER     , INTENT(  out) ::  k1,k3
       INTEGER     , INTENT(in   ) ::  k2(5)
-      k1 = k2(1) ; k3 = k2(5)
+      INTEGER     , INTENT(in   ) ::  k4
+      k1 = k2(1) ; k3 = k2(5)+k4
       WRITE(numout,*) 'oasis_def_partition: Error you sould not be there...'
    END SUBROUTINE oasis_def_partition