Changeset 4600 for LMDZ6/trunk/libf/dynphy_lonlat/calfis_loc.F
- Timestamp:
- Jun 30, 2023, 8:18:43 PM (11 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/dynphy_lonlat/calfis_loc.F
r4464 r4600 38 38 USE IOPHY 39 39 #endif 40 USE lmdz_mpi 41 40 42 #ifdef CPP_PARA 41 43 USE parallel_lmdz,ONLY:omp_chunk,using_mpi,jjb_u,jje_u,jjb_v,jje_v … … 117 119 include "comgeom2.h" 118 120 include "iniprint.h" 119 #ifdef CPP_MPI120 include 'mpif.h'121 #endif122 121 c Arguments : 123 122 c ----------- … … 233 232 REAL,SAVE,dimension(1:iim,1:llm):: du_send,du_recv,dv_send,dv_recv 234 233 INTEGER :: ierr 235 #ifdef CPP_MPI236 234 INTEGER,dimension(MPI_STATUS_SIZE,4) :: Status 237 #else238 INTEGER,dimension(1,4) :: Status239 #endif240 235 INTEGER, dimension(4) :: Req 241 236 REAL,ALLOCATABLE,SAVE:: zdufi2(:,:),zdvfi2(:,:) … … 873 868 874 869 c$OMP BARRIER 875 #ifdef CPP_MPI 870 876 871 c$OMP MASTER 877 872 !$OMP CRITICAL (MPI) … … 882 877 !$OMP END CRITICAL (MPI) 883 878 c$OMP END MASTER 884 #endif 879 885 880 c$OMP BARRIER 886 881 … … 889 884 if (MPI_rank<MPI_Size-1) then 890 885 c$OMP BARRIER 891 #ifdef CPP_MPI 886 892 887 c$OMP MASTER 893 888 !$OMP CRITICAL (MPI) … … 898 893 !$OMP END CRITICAL (MPI) 899 894 c$OMP END MASTER 900 #endif 895 901 896 endif 902 897 … … 904 899 905 900 906 #ifdef CPP_MPI907 901 c$OMP MASTER 908 902 !$OMP CRITICAL (MPI) … … 916 910 !$OMP END CRITICAL (MPI) 917 911 c$OMP END MASTER 918 #endif919 912 920 913 c$OMP BARRIER
Note: See TracChangeset
for help on using the changeset viewer.