Changeset 108 for palm/trunk/SOURCE/palm.f90
- Timestamp:
- Aug 24, 2007 3:10:38 PM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/palm.f90
r102 r108 5 5 ! ----------------- 6 6 ! Get coupling mode from environment variable 7 ! Change localtion of debug output 7 8 ! 8 9 ! Former revisions: … … 101 102 CALL MPI_COMM_RANK( comm_palm, myid, ierr ) 102 103 #endif 103 CALL init_dvrp_logging104 105 !106 !-- Read control parameters from NAMELIST files and read environment-variables107 CALL parin108 109 !110 !-- Determine processor topology and local array indices111 CALL init_pegrid112 104 113 105 ! 114 106 !-- Open a file for debug output 107 WRITE (myid_char,'(''_'',I4.4)') myid 115 108 OPEN( 9, FILE='DEBUG'//TRIM( coupling_char )//myid_char, FORM='FORMATTED' ) 116 109 … … 122 115 print*, '*** PE', myid, ' ', TRIM( coupling_mode ) 123 116 #endif 117 118 CALL init_dvrp_logging 119 120 ! 121 !-- Read control parameters from NAMELIST files and read environment-variables 122 CALL parin 123 124 ! 125 !-- Determine processor topology and local array indices 126 CALL init_pegrid 124 127 125 128 !
Note: See TracChangeset
for help on using the changeset viewer.