source: LMDZ4/trunk/libf/bibio/xercnt.F @ 3751

Last change on this file since 3751 was 1425, checked in by lguez, 14 years ago

Replaced Numerical Recipes procedures for spline interpolation (not in
the public domain) by procedures from the Pchip package in the Slatec
library. This only affects the program "ce0l", not the program
"gcm". Tested on Brodie SX8 with "-debug" and "-prod", "-parallel
none" and "-parallel mpi". "start.nc" and "limit.nc" are
changed. "startphy.nc" is not changed. The relative change is of order
1e-7 or less. The revision makes the program faster (tested on Brodie
with "-prod -d 144x142x39", CPU time is 38 s, instead of 54
s). Procedures from Slatec are untouched, except for
"i1mach.F". Created procedures "pchfe_95" and "pchsp_95" which are
wrappers for "pchfe" and "pchsp" from Slatec. "pchfe_95" and
"pchsp_95" have a safer and simpler interface.

Replaced "make" by "sxgmake" in "arch-SX8_BRODIE.fcm". Added files for
compilation by FCM with "g95".

In "arch-linux-32bit.fcm", replaced "pgf90" by "pgf95". There was no
difference between "dev" and "debug" so added "-O1" to "dev". Added
debugging options. Removed "-Wl,-Bstatic
-L/usr/lib/gcc-lib/i386-linux/2.95.2", which usually produces an error
at link-time.

Bash is now ubiquitous while KornShell? is not so use Bash instead of
KornShell? in FCM.

Replaced some statements "write(6,*)" by "write(lunout,*)". Replaced
"stop" by "stop 1" in the case where "abort_gcm" is called with "ierr
/= 0". Removed "stop" statements at the end of procedures
"limit_netcdf" and main program "ce0l" (why not let the program end
normally?).

Made some arrays automatic instead of allocatable in "start_inter_3d".

Zeroed "wake_pe", "fm_therm", "entr_therm" and "detr_therm" in
"dyn3dpar/etat0_netcdf.F90". The parallel and sequential results of
"ce0l" are thus identical.

File size: 2.5 KB
RevLine 
[1425]1*DECK XERCNT
2      SUBROUTINE XERCNT (LIBRAR, SUBROU, MESSG, NERR, LEVEL, KONTRL)
3C***BEGIN PROLOGUE  XERCNT
4C***SUBSIDIARY
5C***PURPOSE  Allow user control over handling of errors.
6C***LIBRARY   SLATEC (XERROR)
7C***CATEGORY  R3C
8C***TYPE      ALL (XERCNT-A)
9C***KEYWORDS  ERROR, XERROR
10C***AUTHOR  Jones, R. E., (SNLA)
11C***DESCRIPTION
12C
13C     Abstract
14C        Allows user control over handling of individual errors.
15C        Just after each message is recorded, but before it is
16C        processed any further (i.e., before it is printed or
17C        a decision to abort is made), a call is made to XERCNT.
18C        If the user has provided his own version of XERCNT, he
19C        can then override the value of KONTROL used in processing
20C        this message by redefining its value.
21C        KONTRL may be set to any value from -2 to 2.
22C        The meanings for KONTRL are the same as in XSETF, except
23C        that the value of KONTRL changes only for this message.
24C        If KONTRL is set to a value outside the range from -2 to 2,
25C        it will be moved back into that range.
26C
27C     Description of Parameters
28C
29C      --Input--
30C        LIBRAR - the library that the routine is in.
31C        SUBROU - the subroutine that XERMSG is being called from
32C        MESSG  - the first 20 characters of the error message.
33C        NERR   - same as in the call to XERMSG.
34C        LEVEL  - same as in the call to XERMSG.
35C        KONTRL - the current value of the control flag as set
36C                 by a call to XSETF.
37C
38C      --Output--
39C        KONTRL - the new value of KONTRL.  If KONTRL is not
40C                 defined, it will remain at its original value.
41C                 This changed value of control affects only
42C                 the current occurrence of the current message.
43C
44C***REFERENCES  R. E. Jones and D. K. Kahaner, XERROR, the SLATEC
45C                 Error-handling Package, SAND82-0800, Sandia
46C                 Laboratories, 1982.
47C***ROUTINES CALLED  (NONE)
48C***REVISION HISTORY  (YYMMDD)
49C   790801  DATE WRITTEN
50C   861211  REVISION DATE from Version 3.2
51C   891214  Prologue converted to Version 4.0 format.  (BAB)
52C   900206  Routine changed from user-callable to subsidiary.  (WRB)
53C   900510  Changed calling sequence to include LIBRARY and SUBROUTINE
54C           names, changed routine name from XERCTL to XERCNT.  (RWC)
55C   920501  Reformatted the REFERENCES section.  (WRB)
56C***END PROLOGUE  XERCNT
57      CHARACTER*(*) LIBRAR, SUBROU, MESSG
58C***FIRST EXECUTABLE STATEMENT  XERCNT
59      RETURN
60      END
Note: See TracBrowser for help on using the repository browser.