source: LMDZ4/trunk/libf/bibio/fdump.F @ 5442

Last change on this file since 5442 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: 1.0 KB
RevLine 
[1425]1*DECK FDUMP
2      SUBROUTINE FDUMP
3C***BEGIN PROLOGUE  FDUMP
4C***PURPOSE  Symbolic dump (should be locally written).
5C***LIBRARY   SLATEC (XERROR)
6C***CATEGORY  R3
7C***TYPE      ALL (FDUMP-A)
8C***KEYWORDS  ERROR, XERMSG
9C***AUTHOR  Jones, R. E., (SNLA)
10C***DESCRIPTION
11C
12C        ***Note*** Machine Dependent Routine
13C        FDUMP is intended to be replaced by a locally written
14C        version which produces a symbolic dump.  Failing this,
15C        it should be replaced by a version which prints the
16C        subprogram nesting list.  Note that this dump must be
17C        printed on each of up to five files, as indicated by the
18C        XGETUA routine.  See XSETUA and XGETUA for details.
19C
20C     Written by Ron Jones, with SLATEC Common Math Library Subcommittee
21C
22C***REFERENCES  (NONE)
23C***ROUTINES CALLED  (NONE)
24C***REVISION HISTORY  (YYMMDD)
25C   790801  DATE WRITTEN
26C   861211  REVISION DATE from Version 3.2
27C   891214  Prologue converted to Version 4.0 format.  (BAB)
28C***END PROLOGUE  FDUMP
29C***FIRST EXECUTABLE STATEMENT  FDUMP
30      RETURN
31      END
Note: See TracBrowser for help on using the repository browser.