source: vendor/nemo/v3.4_r_3220_dev_NEMO_MERGE_2011/NEMOGCM/TOOLS/OBSTOOLS/src/ctl_stop.h90 @ 1

Last change on this file since 1 was 1, checked in by cholod, 12 years ago

importing initial nemo vendor drop (v3.4_r_3220)
File size: 562 bytes
Line 
1   SUBROUTINE ctl_stop( cerr )
2      !!---------------------------------------------------------------------
3      !!
4      !!                     ** ROUTINE ctl_stop **
5      !!
6      !!  ** Purpose : Stop execution
7      !!
8      !!  ** Method  :
9      !!
10      !!  ** Action  :
11      !!
12      !!   History :   (2008-12) K. Mogensen. NEMOVAR version
13      !!----------------------------------------------------------------------
14      CHARACTER(len=*) :: cerr
15
16      WRITE(*,*)'Error:'
17      WRITE(*,*)TRIM(cerr)
18      CALL abort
19
20   END SUBROUTINE ctl_stop
21
Note: See TracBrowser for help on using the repository browser.