Changeset 7846


Ignore:
Timestamp:
2017-03-30T15:25:01+02:00 (4 years ago)
Author:
cetlod
Message:

Minor improvment to handle land processor removal, see shaconemo ticket #65

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/OPA_SRC/SBC/cpl_oasis3.F90

    r5407 r7846  
     1 
    12MODULE cpl_oasis3 
    23   !!====================================================================== 
     
    196197      ENDIF 
    197198       
    198       CALL oasis_def_partition ( id_part, paral, nerror ) 
     199      CALL oasis_def_partition ( id_part, paral, nerror, jpiglo*jpjglo ) 
    199200      ! 
    200201      ! ... Announce send variables.  
     
    514515   END SUBROUTINE oasis_get_localcomm 
    515516 
    516    SUBROUTINE oasis_def_partition(k1,k2,k3) 
     517   SUBROUTINE oasis_def_partition(k1,k2,k3,k4) 
    517518      INTEGER     , INTENT(  out) ::  k1,k3 
    518519      INTEGER     , INTENT(in   ) ::  k2(5) 
    519       k1 = k2(1) ; k3 = k2(5) 
     520      INTEGER     , INTENT(in   ) ::  k4 
     521      k1 = k2(1) ; k3 = k2(5)+k4 
    520522      WRITE(numout,*) 'oasis_def_partition: Error you sould not be there...' 
    521523   END SUBROUTINE oasis_def_partition 
Note: See TracChangeset for help on using the changeset viewer.