source: CPL/oasis3-mct/branches/OASIS3-MCT_2.0_branch/lib/mct/mpeu/m_stdio.F90 @ 4775

Last change on this file since 4775 was 4775, checked in by aclsce, 4 years ago
  • Imported oasis3-mct from Cerfacs svn server (not suppotred anymore).

The version has been extracted from https://oasis3mct.cerfacs.fr/svn/branches/OASIS3-MCT_2.0_branch/oasis3-mct@1818

File size: 1.4 KB
Line 
1!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
2!       NASA/GSFC, Data Assimilation Office, Code 910.3, GEOS/DAS      !
3!-----------------------------------------------------------------------
4! CVS m_stdio.F90,v 1.3 2002-08-22 23:14:53 jacob Exp
5! CVS MCT_2_8_0 
6!-----------------------------------------------------------------------
7!BOP
8!
9! !MODULE: m_stdio - a F90 module defines std. I/O parameters
10!
11! !DESCRIPTION:
12!       Define system dependent I/O parameters.
13!
14! !INTERFACE:
15
16        module m_stdio
17        implicit none
18        private
19
20        public  :: stdin        ! a unit linked to UNIX stdin
21        public  :: stdout       ! a unit linked to UNIX stdout
22        public  :: stderr       ! a unit linked to UNIX stderr
23
24        public  :: LEN_FILENAME
25
26! !REVISION HISTORY:
27!       10oct96 - Jing G.       - Defined
28!       25Jul02 - J. Larson     - Changed cpp define token HP-UX to
29!                                 HP_UX for compatibility with Fujitsu
30!                                 cpp.
31!EOP
32!_______________________________________________________________________
33
34!    Defines standar i/o units.
35
36        integer, parameter :: stdin  = 5
37        integer, parameter :: stdout = 6
38
39#ifdef  sysHP_UX
40                ! Special setting for HP-UX
41
42        integer, parameter :: stderr = 7
43#else
44                ! Generic setting for UNIX other than HP-UX
45
46        integer, parameter :: stderr = 0
47#endif
48
49        integer, parameter :: LEN_FILENAME = 128
50
51!-----------------------------------------------------------------------
52end module m_stdio
53!.
Note: See TracBrowser for help on using the repository browser.