source: LMDZ6/trunk/libf/phylmd/ecrad/raise.h @ 4744

Last change on this file since 4744 was 3908, checked in by idelkadi, 3 years ago

Online implementation of the radiative transfer code ECRAD in the LMDZ model.

  • Inclusion of the ecrad directory containing the sources of the ECRAD code
    • interface routine : radiation_scheme.F90
  • Adaptation of compilation scripts :
    • compilation under CPP key CPP_ECRAD
    • compilation with option "-rad ecard" or "-ecard true"
    • The "-rad old/rtm/ecran" build option will need to replace the "-rrtm true" and "-ecrad true" options in the future.
  • Runing LMDZ simulations with ecrad, you need :
    • logical key iflag_rrtm = 2 in physiq.def
    • namelist_ecrad (DefLists?)
    • the directory "data" containing the configuration files is temporarily placed in ../libfphylmd/ecrad/
  • Compilation and execution are tested in the 1D case. The repository under svn would allow to continue the implementation work: tests, verification of the results, ...
File size: 1.2 KB
Line 
1/**
2 * (C) Copyright 2014- ECMWF.
3 *
4 * This software is licensed under the terms of the Apache Licence Version 2.0
5 * which can be obtained at http://www.apache.org/licenses/LICENSE-2.0.
6 *
7 * In applying this licence, ECMWF does not waive the privileges and immunities
8 * granted to it by virtue of its status as an intergovernmental organisation
9 * nor does it submit to any jurisdiction.
10 */
11
12#ifndef _RAISE_H_
13#define _RAISE_H_
14
15/* raise.h */
16
17#include <stdio.h>
18#include <string.h>
19#include <signal.h>
20#include <unistd.h>
21
22extern void abor1fl_(const char *filename, const int *linenum, 
23                     const char *s, 
24                     int filenamelen, int slen);
25extern void abor1_(const char *s, int slen);
26
27#define ABOR1(txt) { const char *t = (txt); t ? abor1_(t, strlen(t)) : abor1_("",0); }
28
29#define ABOR1FL(txt) { \
30  const char *t = (txt); \
31  int linenum=__LINE__; \
32  t ? abor1fl_(__FILE__, &linenum,  t, sizeof(__FILE__)-1, strlen(t)) \
33    : abor1fl_(__FILE__, &linenum, "", sizeof(__FILE__)-1, 0); \
34  _exit(1); /* Should never end up here */ }
35
36#define RAISE(x) { \
37  if ((x) == SIGABRT) { \
38    ABOR1FL("*** Fatal error; aborting (SIGABRT) ..."); \
39    _exit(1); /* Should never end up here */ \
40  } \
41  else raise(x); \
42}
43
44#endif /* _RAISE_H_ */
Note: See TracBrowser for help on using the repository browser.