New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 10115 for NEMO/branches/2018/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/OPA_SRC/SBC/cpl_oasis3.F90 – NEMO

Ignore:
Timestamp:
2018-09-12T15:59:13+02:00 (6 years ago)
Author:
cbricaud
Message:

phase 3.6 coarsening branch with nemo_3.6_rev9192

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2018/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/OPA_SRC/SBC/cpl_oasis3.F90

    r5602 r10115  
     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.