Changeset 3045 for palm/trunk/SOURCE/vertical_nesting_mod.f90
- Timestamp:
- May 28, 2018 7:55:41 AM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/vertical_nesting_mod.f90
r2718 r3045 26 26 ! ----------------- 27 27 ! $Id$ 28 ! Error message revised 29 ! 30 ! 2718 2018-01-02 08:49:38Z maronga 28 31 ! Corrected "Former revisions" section 29 32 ! … … 267 270 268 271 IF ( myid == 0) THEN 269 CALL MPI_SENDRECV( terminate_coupled, 1, MPI_INTEGER, &270 target_id, 0, &271 terminate_coupled_remote, 1, MPI_INTEGER, &272 target_id, 0, &272 CALL MPI_SENDRECV( terminate_coupled, 1, MPI_INTEGER, & 273 target_id, 0, & 274 terminate_coupled_remote, 1, MPI_INTEGER, & 275 target_id, 0, & 273 276 comm_inter, status, ierr ) 274 277 ENDIF … … 277 280 278 281 IF ( terminate_coupled_remote > 0 ) THEN 279 WRITE( message_string, * ) 'remote model "', 280 TRIM( coupling_mode_remote ), &281 '" terminated', &282 ' &with terminate_coupled_remote = ',&283 terminate_coupled_remote, &284 ' &local model "', TRIM( coupling_mode ),&285 '" has', &286 ' &terminate_coupled = ',&282 WRITE( message_string, * ) 'remote model "', & 283 TRIM( coupling_mode_remote ), & 284 '" terminated', & 285 ' with terminate_coupled_remote = ', & 286 terminate_coupled_remote, & 287 ' local model "', TRIM( coupling_mode ), & 288 '" has', & 289 ' terminate_coupled = ', & 287 290 terminate_coupled 288 291 CALL message( 'vnest_init_fine', 'PA0310', 1, 2, 0, 6, 0 ) … … 2777 2780 2778 2781 IF ( terminate_coupled_remote > 0 ) THEN 2779 WRITE( message_string, * ) 'remote model "', 2780 TRIM( coupling_mode_remote ), &2781 '" terminated', &2782 ' &with terminate_coupled_remote = ',&2783 terminate_coupled_remote, &2784 ' &local model "', TRIM( coupling_mode ),&2785 '" has', &2786 ' &terminate_coupled = ',&2782 WRITE( message_string, * ) 'remote model "', & 2783 TRIM( coupling_mode_remote ), & 2784 '" terminated', & 2785 ' with terminate_coupled_remote = ', & 2786 terminate_coupled_remote, & 2787 ' local model "', TRIM( coupling_mode ), & 2788 '" has', & 2789 ' terminate_coupled = ', & 2787 2790 terminate_coupled 2788 2791 CALL message( 'vnest_anterpolate', 'PA0310', 1, 2, 0, 6, 0 ) … … 3315 3318 3316 3319 IF ( myid == 0) THEN 3317 CALL MPI_SENDRECV( terminate_coupled, 1, MPI_INTEGER, &3318 target_id, 0, &3319 terminate_coupled_remote, 1, MPI_INTEGER, &3320 target_id, 0, &3320 CALL MPI_SENDRECV( terminate_coupled, 1, MPI_INTEGER, & 3321 target_id, 0, & 3322 terminate_coupled_remote, 1, MPI_INTEGER, & 3323 target_id, 0, & 3321 3324 comm_inter, status, ierr ) 3322 3325 ENDIF 3323 CALL MPI_BCAST( terminate_coupled_remote, 1, MPI_INTEGER, 0, comm2d, &3326 CALL MPI_BCAST( terminate_coupled_remote, 1, MPI_INTEGER, 0, comm2d, & 3324 3327 ierr ) 3325 3328 3326 3329 IF ( terminate_coupled_remote > 0 ) THEN 3327 WRITE( message_string, * ) 'remote model "', 3328 TRIM( coupling_mode_remote ), &3329 '" terminated', &3330 ' &with terminate_coupled_remote = ',&3331 terminate_coupled_remote, &3332 ' &local model "', TRIM( coupling_mode ), &3333 '" has', &3334 ' &terminate_coupled = ',&3330 WRITE( message_string, * ) 'remote model "', & 3331 TRIM( coupling_mode_remote ), & 3332 '" terminated', & 3333 ' with terminate_coupled_remote = ', & 3334 terminate_coupled_remote, & 3335 ' local model "', TRIM( coupling_mode ), & 3336 '" has', & 3337 ' terminate_coupled = ', & 3335 3338 terminate_coupled 3336 3339 CALL message( 'vnest_anterpolate_e', 'PA0310', 1, 2, 0, 6, 0 )
Note: See TracChangeset
for help on using the changeset viewer.