Changeset 811 for LMDZ4/trunk/libf/dyn3dpar
- Timestamp:
- Jul 5, 2007, 4:04:10 PM (17 years ago)
- Location:
- LMDZ4/trunk/libf/dyn3dpar
- Files:
-
- 2 edited
-
mod_const_para.F90 (modified) (1 diff)
-
parallel.F90 (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/trunk/libf/dyn3dpar/mod_const_para.F90
r806 r811 11 11 INCLUDE 'mpif.h' 12 12 INTEGER :: ierr 13 INTEGER :: comp_id 13 14 14 15 #ifdef CPP_COUPLE -
LMDZ4/trunk/libf/dyn3dpar/parallel.F90
r806 r811 21 21 subroutine init_parallel 22 22 USE vampir 23 #ifdef CPP_COUPLE24 USE mod_prism_proto25 #endif26 23 implicit none 27 24 … … 30 27 integer :: type_size 31 28 integer, dimension(3) :: blocklen,type 32 integer :: comp_id33 29 34 30
Note: See TracChangeset
for help on using the changeset viewer.
