Changeset 118 for codes/icosagcm/trunk
- Timestamp:
- 01/17/13 23:49:09 (11 years ago)
- Location:
- codes/icosagcm/trunk/src
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/trunk/src/mpi_mod.F90
r26 r118 19 19 20 20 SUBROUTINE MPI_INIT 21 PRINT *, 'Compiled without MPI' 21 22 END 22 23 -
codes/icosagcm/trunk/src/mpipara.F90
r26 r118 25 25 CALL MPI_COMM_SIZE(comm_icosa,mpi_size,ierr) 26 26 CALL MPI_COMM_RANK(comm_icosa,mpi_rank,ierr) 27 PRINT *, 'MPI Process ', mpi_rank, '/', mpi_size 27 28 ELSE 28 29 comm_icosa=-1
Note: See TracChangeset
for help on using the changeset viewer.