New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
tests.c in trunk/AGRIF/LIB – NEMO

source: trunk/AGRIF/LIB/tests.c @ 396

Last change on this file since 396 was 396, checked in by opalod, 18 years ago

Initial revision

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 2.0 KB
Line 
1/******************************************************************************/
2/*                                                                            */
3/*     CONV (converter) for Agrif (Adaptive Grid Refinement In Fortran)       */
4/*                                                                            */
5/*     Copyright (C) 2005 Laurent Debreu (Laurent.Debreu@imag.fr)             */
6/*                        Cyril Mazauric (Cyril.Mazauric@imag.fr)             */
7/*                                                                            */
8/*     This program is free software; you can redistribute it and/or modify   */
9/*    it                                                                      */
10/*                                                                            */
11/*    This program is distributed in the hope that it will be useful,         */
12/*     but WITHOUT ANY WARRANTY; without even the implied warranty of         */
13/*     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the          */
14/*    GNU General Public License for more details.                            */
15/*                                                                            */
16/******************************************************************************/
17#include <stdlib.h>
18#include <stdio.h>
19#include <string.h>
20#include "decl.h"
21
22/*Tests de correction*/
23
24int tests_entrees() 
25{
26   int erreur=0;
27
28   if (onlyfixedgrids == 0)
29   {
30      if(regridding==0)
31      {
32         printf("ERROR: Regridding interval is missing or equals 0\n");
33         erreur=1;
34      }
35 
36      if (userefficiency==1) 
37      {
38         if ((efficiency>100) || (efficiency < 0)) 
39         {   
40            printf("ERROR : invalid efficiency (must be between 0 and 100) \n");
41            erreur=1;
42         }
43      }
44      else 
45      {
46         printf("WARNING : clustering efficiency not given: set to 70%% \n");
47         efficiency=70;
48      } 
49   }
50 
51
52   if(erreur) return 1;
53 
54   return erreur;
55}
Note: See TracBrowser for help on using the repository browser.