SURFEX v8.1
General documentation of Surfex
lfi_dumm.c
Go to the documentation of this file.
1 /**** *lfi_dumm.c* - Implementation of dummy LFI routines
2  *
3  * Author.
4  * -------
5  * Philippe Marguinaud *METEO-FRANCE*
6  * Original : 12-08-2013
7  *
8  */
9 
10 
11 #include "lfi_dumm.h"
12 
13 /*
14  * We define two macros to define dummy LFI routines
15  */
16 
17 #define lfi_dumm(lfixxx, LFIXXX) \
18 void lfixxx##_dumm (LFIXXX##_ARGS_DECL) \
19 { \
20 }
21 
22 #define lfi_dumm_krep(lfixxx, LFIXXX) \
23 void lfixxx##_dumm (LFIXXX##_ARGS_DECL) \
24 { \
25  *KREP = 0; \
26 }
27 
28 
29 lfi_dumm_krep (lfiouv, LFIOUV)
30 lfi_dumm_krep (lficas, LFICAS)
31 lfi_dumm_krep (lfiecr, LFIECR)
32 lfi_dumm_krep (lfifer, LFIFER)
33 lfi_dumm_krep (lfilec, LFILEC)
34 lfi_dumm_krep (lfinfo, LFINFO)
35 lfi_dumm_krep (lfipos, LFIPOS)
36 lfi_dumm (lfiver, LFIVER)
37 lfi_dumm_krep (lfiofm, LFIOFM)
38 lfi_dumm (lfineg, LFINEG)
39 lfi_dumm_krep (lfilaf, LFILAF)
40 lfi_dumm (lfiosg, LFIOSG)
41 lfi_dumm (lfinum, LFINUM)
42 lfi_dumm_krep (lfisup, LFISUP)
43 lfi_dumm_krep (lfiopt, LFIOPT)
44 lfi_dumm (lfinmg, LFINMG)
45 lfi_dumm_krep (lficap, LFICAP)
46 lfi_dumm (lfifra, LFIFRA)
47 lfi_dumm (lficfg, LFICFG)
48 lfi_dumm_krep (lfierf, LFIERF)
49 lfi_dumm_krep (lfilas, LFILAS)
50 lfi_dumm_krep (lfiren, LFIREN)
51 lfi_dumm (lfiini, LFIINI)
52 lfi_dumm_krep (lfipxf, LFIPXF)
53 lfi_dumm (lfioeg, LFIOEG)
54 lfi_dumm_krep (lfinaf, LFINAF)
55 lfi_dumm (lfiofd, LFIOFD)
56 lfi_dumm_krep (lfiomf, LFIOMF)
57 lfi_dumm_krep (lfiafm, LFIAFM)
58 lfi_dumm_krep (lfista, LFISTA)
59 lfi_dumm_krep (lfiosf, LFIOSF)
60 lfi_dumm_krep (lfilap, LFILAP)
61 lfi_dumm_krep (lfioef, LFIOEF)
62 lfi_dumm_krep (lfimst, LFIMST)
63 lfi_dumm_krep (lfinim, LFINIM)
64 lfi_dumm_krep (lfisfm, LFISFM)
65 lfi_dumm (lfinsg, LFINSG)
66 lfi_dumm (lfideb, LFIDEB)
67 lfi_dumm (lfiomg, LFIOMG)
68 lfi_dumm (lfifmd, LFIFMD)
subroutine lfiosf(KREP, KNUMER, LDIMST)
Definition: lfiosf.F90:106
subroutine lfiofd(KFACMD)
Definition: lfiofd.F90:79
subroutine lfipxf(KREP, KNUMER, KNUMEX, CDCFGX, KLAREX, KXCNEX, KFACEX, KNUTRA, CDNOMA, KLONG)
Definition: lfipxf.F90:509
subroutine lfiren(KREP, KNUMER, CDNOM1, CDNOM2)
Definition: lfiren.F90:334
subroutine lfilap(KREP, KNUMER, CDNOMA, KTAB, KLONG)
Definition: lfilap.F90:290
subroutine lfista(KREP, KNUMER)
Definition: lfista.F90:120
subroutine lfideb(LDEBUG)
Definition: lfideb.F90:78
subroutine lfifer(KREP, KNUMER, CDSTTC)
Definition: lfifer.F90:1180
subroutine lficas(KREP, KNUMER, CDNOMA, KLONG, KPOSEX, LDAVAN)
Definition: lficas.F90:252
subroutine lfifmd(KFACMD)
Definition: lfifmd.F90:138
subroutine lfiecr(KREP, KNUMER, CDNOMA, KTAB, KLONG)
Definition: lfiecr.F90:524
subroutine lfinaf(KREP, KNUMER, KNALDO, KNTROU, KNARES, KNAMAX)
Definition: lfinaf.F90:146
subroutine lfierf(KREP, KNUMER, LDERFA)
Definition: lfierf.F90:99
subroutine lfiomg(KNIVAU, KULOUT)
Definition: lfiomg.F90:90
subroutine lfisfm(KREP, KNUMER)
Definition: lfisfm.F90:189
subroutine lfinsg(KNIVAU)
Definition: lfinsg.F90:116
subroutine lfiafm(KREP, KNUMER, KFACTM)
Definition: lfiafm.F90:220
subroutine lfiomf(KREP, KNUMER, KNIMES)
Definition: lfiomf.F90:99
subroutine lfioeg(KNIVAU)
Definition: lfioeg.F90:89
subroutine lfilas(KREP, KNUMER, CDNOMA, KTAB, KLONG)
Definition: lfilas.F90:290
subroutine lfimst(KREP, KNUMER, LDIMST)
Definition: lfimst.F90:103
subroutine lfifra(LDFRAN)
Definition: lfifra.F90:90
subroutine lfipos(KREP, KNUMER)
Definition: lfipos.F90:122
subroutine lfisup(KREP, KNUMER, CDNOMA, KLONUT)
Definition: lfisup.F90:389
subroutine lfinim(KREP, KNUMER, KNIMES)
Definition: lfinim.F90:102
subroutine lfiopt(KREP, KNUMER, LDNOMM, CDNOMF, CDSTTO, LDERFA, LDIMST, KNIMES)
Definition: lfiopt.F90:104
subroutine lfinmg(KNIVAU, KULOUT)
Definition: lfinmg.F90:133
subroutine lfiini(KOPTIO)
Definition: lfiini.F90:260
subroutine lficfg()
Definition: lficfg.F90:275
subroutine lfinfo(KREP, KNUMER, CDNOMA, KLONG, KPOSEX)
Definition: lfinfo.F90:254
subroutine lfineg(KNIVAU)
Definition: lfineg.F90:115
subroutine lfiouv(KREP, KNUMER, LDNOMM, CDNOMF, CDSTTO, LDERFA, LDIMST, KNIMES, KNBARP, KNBARI)
Definition: lfiouv.F90:1226
subroutine lfioef(KREP, KNUMER, LDERFA)
Definition: lfioef.F90:101
subroutine lfiver(PVEROU, CDSENS)
Definition: lfiver.F90:73
subroutine lfilec(KREP, KNUMER, CDNOMA, KTAB, KLONG)
Definition: lfilec.F90:292
subroutine lfinum(KNUMER, KRANG)
Definition: lfinum.F90:105
subroutine lfilaf(KREP, KNUMER, LDTOUT)
Definition: lfilaf.F90:623
subroutine lficap(KREP, KNUMER, CDNOMA, KLONG, KPOSEX, LDRECU)
Definition: lficap.F90:251
subroutine lfiosg(KNIVAU)
Definition: lfiosg.F90:86
subroutine lfiofm(KREP, KNUMER, KFACTM, LDOUVR)
Definition: lfiofm.F90:161