Changeset 3243 for branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC
- Timestamp:
- 2012-01-03T17:20:07+01:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90
r3193 r3243 1740 1740 !! *** routine mppstop *** 1741 1741 !! 1742 !! ** purpose : Stop massi lively parallel processors method1742 !! ** purpose : Stop massively parallel processors method 1743 1743 !! 1744 1744 !!---------------------------------------------------------------------- … … 2815 2815 2816 2816 SUBROUTINE mppstop 2817 WRITE(*,*) 'mppstop: You should not have seen this print! error?' 2817 WRITE(*,*) 'mppstop: You should not have seen this print if running in mpp mode! error?...' 2818 WRITE(*,*) 'mppstop: ..otherwise this is a stop condition raised by ctl_stop in single processor mode' 2819 STOP 2818 2820 END SUBROUTINE mppstop 2819 2821
Note: See TracChangeset
for help on using the changeset viewer.