Changeset 7851


Ignore:
Timestamp:
2017-03-30T16:03:21+02:00 (3 years ago)
Author:
cetlod
Message:

trunk: minor bugfix in cpl_oasis.F90

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/OPA_SRC/SBC/cpl_oasis3.F90

    r7848 r7851  
    514514   END SUBROUTINE oasis_get_localcomm 
    515515 
    516    SUBROUTINE oasis_def_partition(k1,k2,k3) 
     516   SUBROUTINE oasis_def_partition(k1,k2,k3,k4) 
    517517      INTEGER     , INTENT(  out) ::  k1,k3 
    518518      INTEGER     , INTENT(in   ) ::  k2(5) 
    519       k1 = k2(1) ; k3 = k2(5) 
     519      INTEGER     , INTENT(in   ) ::  k4 
     520      k1 = k2(1) ; k3 = k2(5)+k4 
    520521      WRITE(numout,*) 'oasis_def_partition: Error you sould not be there...' 
    521522   END SUBROUTINE oasis_def_partition 
Note: See TracChangeset for help on using the changeset viewer.