Changeset 13413


Ignore:
Timestamp:
2020-08-19T10:57:01+02:00 (5 months ago)
Author:
gsamson
Message:

oasis partition definition update; see ticket #2513

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/OCE/SBC/cpl_oasis3.F90

    r13286 r13413  
    186186       
    187187      paral(1) = 2                                              ! box partitioning 
    188       paral(2) = jpiglo * (Njs0-1+njmpp-1) + (Nis0-1+nimpp-1)   ! NEMO lower left corner global offset     
     188      paral(2) = Ni0glo * mjg0(nn_hls) + mig0(nn_hls)           ! NEMO lower left corner global offset  
    189189      paral(3) = Ni_0                                           ! local extent in i  
    190190      paral(4) = Nj_0                                           ! local extent in j 
    191       paral(5) = jpiglo                                         ! global extent in x 
    192        
     191      paral(5) = Ni0glo                                         ! global extent in x 
     192 
    193193      IF( sn_cfctl%l_oasout ) THEN 
    194194         WRITE(numout,*) ' multiexchg: paral (1:5)', paral 
     
    198198      ENDIF 
    199199    
    200       CALL oasis_def_partition ( id_part, paral, nerror, jpiglo*jpjglo ) 
     200      CALL oasis_def_partition ( id_part, paral, nerror, Ni0glo*Nj0glo ) 
    201201      ! 
    202202      ! ... Announce send variables.  
Note: See TracChangeset for help on using the changeset viewer.