Changeset 2363


Ignore:
Timestamp:
2010-11-05T14:11:29+01:00 (10 years ago)
Author:
rblod
Message:

Fixes to compile with key_agrif and key_mpp_mpi

Location:
branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/OBS/mpp_map.F90

    r2335 r2363  
    4747#if defined key_mpp_mpi 
    4848      INTEGER :: ierr 
     49 
    4950INCLUDE 'mpif.h' 
    5051#endif 
  • branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/OBS/obs_mpp.F90

    r2335 r2363  
    6666      !! 
    6767#if defined key_mpp_mpi 
    68       INTEGER :: ierr 
     68      INTEGER :: ierr  
     69 
    6970INCLUDE 'mpif.h' 
    7071      !!---------------------------------------------------------------------- 
     
    9899      !! 
    99100#if defined key_mpp_mpi 
    100       INTEGER :: ierr 
     101      INTEGER :: ierr  
    101102      INTEGER, DIMENSION(kno) ::   ivals 
     103 
    102104INCLUDE 'mpif.h' 
    103105      !!---------------------------------------------------------------------- 
  • branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/lib_mpp.F90

    r2304 r2363  
    114114   INTEGER ::   mppsize        ! number of process 
    115115   INTEGER ::   mpprank        ! process number  [ 0 - size-1 ] 
     116!$AGRIF_DO_NOT_TREAT 
    116117   INTEGER, PUBLIC ::   mpi_comm_opa   ! opa local communicator 
     118!$AGRIF_END_DO_NOT_TREAT 
    117119 
    118120   INTEGER, PUBLIC :: MPI_SUMDD 
Note: See TracChangeset for help on using the changeset viewer.