Changeset 1001 for LMDZ4/trunk/libf/phylmd/surf_land_orchidee_mod.F90
- Timestamp:
- Oct 6, 2008, 11:11:53 AM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/trunk/libf/phylmd/surf_land_orchidee_mod.F90
r996 r1001 480 480 USE mod_surf_para 481 481 482 #ifdef CPP_ PARA482 #ifdef CPP_MPI 483 483 INCLUDE 'mpif.h' 484 484 #endif … … 502 502 ENDIF 503 503 504 #ifdef CPP_ PARA504 #ifdef CPP_MPI 505 505 CALL MPI_COMM_SPLIT(COMM_LMDZ_PHY,color,mpi_rank,orch_comm,ierr) 506 506 #endif … … 529 529 INCLUDE "indicesol.h" 530 530 531 #ifdef CPP_ PARA531 #ifdef CPP_MPI 532 532 INCLUDE 'mpif.h' 533 533 #endif
Note: See TracChangeset
for help on using the changeset viewer.