- Timestamp:
- 2010-07-07T17:58:55+02:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/DEV_r1879_FCM/NEMOGCM/EXTERNAL/AGRIF/AGRIF_FILES/modinterp.F
r1901 r1988 37 37 Use Agrif_Mask 38 38 Use Agrif_CurgridFunctions 39 #if defined AGRIF_MPI39 #if defined key_mpp_mpi 40 40 Use Agrif_mpp 41 41 #endif … … 656 656 657 657 C 658 #ifdef AGRIF_MPI658 #ifdef key_mpp_mpi 659 659 C 660 660 #include "mpif.h" … … 715 715 INTEGER,DIMENSION(nbdim) :: indminglob2,indmaxglob2 716 716 C 717 #ifdef AGRIF_MPI717 #ifdef key_mpp_mpi 718 718 C 719 719 LOGICAL :: memberout … … 739 739 & indmaxglob,indminglob2,indmaxglob2,parentarray, 740 740 & pttruetab,cetruetab,member,memberin,find_list_interp 741 #if defined AGRIF_MPI741 #if defined key_mpp_mpi 742 742 & ,tab4t,memberinall,sendtoproc1,recvfromproc1 743 743 #endif … … 766 766 & child % var % root_var % interptab) 767 767 768 #ifdef AGRIF_MPI768 #ifdef key_mpp_mpi 769 769 IF (memberin) THEN 770 770 Call Agrif_Parentbounds(TYPEinterp,nbdim,indmin,indmax, … … 810 810 ELSE 811 811 812 #if !defined AGRIF_MPI812 #if !defined key_mpp_mpi 813 813 parentarray(:,1,1) = indminglob 814 814 parentarray(:,2,1) = indmaxglob … … 885 885 endif 886 886 887 #ifdef AGRIF_MPI887 #ifdef key_mpp_mpi 888 888 if (.not.find_list_interp) then 889 889 tab3(:,1) = indminglob2(:) … … 936 936 & indminglob,indmaxglob,indminglob2,indmaxglob2,parentarray, 937 937 & pttruetab,cetruetab,member,memberin,nbdim 938 #if defined AGRIF_MPI938 #if defined key_mpp_mpi 939 939 & ,tab4t,memberinall,sendtoproc1,recvfromproc1 940 940 #endif … … 1034 1034 & lowerbound,upperbound,nbdim) 1035 1035 1036 #ifdef AGRIF_MPI1036 #ifdef key_mpp_mpi 1037 1037 Call Agrif_GlobtoLocInd2(childarray, 1038 1038 & lowerbound,upperbound, … … 1069 1069 if (torestore) then 1070 1070 C 1071 #ifdef AGRIF_MPI1071 #ifdef key_mpp_mpi 1072 1072 C 1073 1073 SELECT CASE (nbdim) … … 1301 1301 C 1302 1302 C Deallocations 1303 #ifdef AGRIF_MPI1303 #ifdef key_mpp_mpi 1304 1304 IF (member) THEN 1305 1305 Call Agrif_nbdim_deallocation(tempP%var,nbdim) … … 2136 2136 & pttruetab,cetruetab,member,memberin, 2137 2137 & find_list_interp 2138 #if defined AGRIF_MPI2138 #if defined key_mpp_mpi 2139 2139 & ,tab4t,memberinall,sendtoproc1,recvfromproc1 2140 2140 #endif … … 2152 2152 LOGICAL :: member, memberin 2153 2153 INTEGER :: i 2154 #ifdef AGRIF_MPI2154 #ifdef key_mpp_mpi 2155 2155 C 2156 2156 INTEGER,DIMENSION(nbdim,0:Agrif_Nbprocs-1,8) :: tab4t … … 2180 2180 cetruetab = parcours%interp_loc%cetruetab(1:nbdim) 2181 2181 2182 #if !defined AGRIF_MPI2182 #if !defined key_mpp_mpi 2183 2183 indminglob = parcours%interp_loc%indminglob(1:nbdim) 2184 2184 indmaxglob = parcours%interp_loc%indmaxglob(1:nbdim) … … 2207 2207 & parentarray,pttruetab,cetruetab, 2208 2208 & member,memberin,nbdim 2209 #if defined AGRIF_MPI2209 #if defined key_mpp_mpi 2210 2210 & ,tab4t,memberinall,sendtoproc1,recvfromproc1 2211 2211 #endif … … 2221 2221 INTEGER,DIMENSION(nbdim,2,2) :: parentarray 2222 2222 LOGICAL :: member, memberin 2223 #ifdef AGRIF_MPI2223 #ifdef key_mpp_mpi 2224 2224 C 2225 2225 INTEGER,DIMENSION(nbdim,0:Agrif_Nbprocs-1,8) :: tab4t … … 2243 2243 2244 2244 parcours%interp_loc%memberin = memberin 2245 #if !defined AGRIF_MPI2245 #if !defined key_mpp_mpi 2246 2246 parcours%interp_loc%indminglob(1:nbdim) = indminglob(1:nbdim) 2247 2247 parcours%interp_loc%indmaxglob(1:nbdim) = indmaxglob(1:nbdim)
Note: See TracChangeset
for help on using the changeset viewer.