Ignore:
Timestamp:
2011-04-08T14:05:35+02:00 (10 years ago)
Author:
rblod
Message:

Changes for Agrif in MPI

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90

    r2715 r2731  
    248248      WRITE(ldtxt(ii),*) '      size in bytes of exported buffer   nn_buffer   = ', nn_buffer     ;   ii = ii + 1 
    249249 
     250#if defined key_agrif 
     251      IF( .NOT. Agrif_Root() ) THEN 
     252         jpni  = Agrif_Parent(jpni )  
     253         jpnj  = Agrif_Parent(jpnj ) 
     254         jpnij = Agrif_Parent(jpnij) 
     255      ENDIF 
     256#endif 
     257 
    250258      IF(jpnij < 1)THEN 
    251259         ! If jpnij is not specified in namelist then we calculate it - this 
Note: See TracChangeset for help on using the changeset viewer.