Commit 0e8563905ceeb4f96dc1cb1264d56274c50e1453

Authored by James Caveen
1 parent 028b00b9
Exists in master

Adaptation a ferret 7.1 et ajout de fichier test data

Showing 3 changed files with 77 additions and 24 deletions   Show diff stats
Makefile_install 0 → 100644
... ... @@ -0,0 +1,69 @@
  1 +#
  2 +# Makefile pour compiler les fonctions externes
  3 +# developpees à l'ISMER
  4 +#
  5 +#Fonctionne avec une installation dans /usr/local/ferret/ext_func/src/ferret_ef
  6 +#Version de Ferret 7.1
  7 +#
  8 +# Construit par James Caveen a partir du Makefile
  9 +# deja fourni par ferret fevrier 2007
  10 +#
  11 +# January 20 1998
  12 +# Jonathan Callahan
  13 +#
  14 +# 15-Nov-1999 Ansley Manke
  15 +# remove refs to ef_utility/*.o (now in ferret executable)
  16 +#
  17 +# include platform specific macro definitions
  18 +#
  19 +HOSTTYPE = x86_64-linux
  20 +MY_EXTFCNS = /usr/local/ferret/ext_func/libs
  21 +#
  22 +# Pour le developpement, adapter la valeur de FER_LOCAL_EXTFCNS
  23 +#selon vos besoins
  24 +#
  25 +
  26 +FER_LOCAL_EXTFCNS = $(MY_EXTFCNS)
  27 +
  28 +FFLAGS_DEBUG = -g -DDEBUG
  29 +CFLAGS_DEBUG = -g -DDEBUG
  30 +
  31 +include ../ef_utility/platform_specific.mk.$(HOSTTYPE)
  32 +
  33 +
  34 +#
  35 +# Macros
  36 +#
  37 +
  38 +.SUFFIXES: .so
  39 +
  40 +#
  41 +# Rules
  42 +#
  43 +
  44 +.F.so:
  45 + $(F77) $(FFLAGS) -c $<
  46 + $(LD) $(LD_DYN_FLAGS) $(SYSLIBS) $*.o -o $*.so
  47 +
  48 +
  49 +#
  50 +# Targets
  51 +#
  52 +
  53 +all: ferret_cmn nc_rar.so rom_flip.so
  54 +
  55 +debug:
  56 + $(MAKE) "FFLAGS = $(FFLAGS) $(FFLAGS_DEBUG)" "CFLAGS = $(CFLAGS) $(CFLAGS_DEBUG)" all
  57 +
  58 +ferret_cmn:
  59 + ln -s ../ef_utility/ferret_cmn ferret_cmn
  60 +
  61 +install:
  62 + cp *.so $(FER_LOCAL_EXTFCNS)
  63 +
  64 +clean:
  65 + -rm -f *.o *.so core a.out temp.* ferret_cmn
  66 +
  67 +#
  68 +# End of Makefile
  69 +#
... ...
fatm_gsl_201201_TT.nc 0 → 100644
No preview for this file type
test_ferret.go
... ... @@ -4,33 +4,17 @@
4 4 ! 25-Jan-07 09:35
5 5  
6 6 set memory/size=500
7   -use temp_avec_iwet3d.nc
8   -let a = x[gx=xgulf]*0 + y[gy=ygulf]*0 + z[gz=zgulf]*0 + t[gt=tgulf]*0
9   -let b = nc_rar(a,temp,indexwet3d)
10   -shade b[l=1,k=1]
  7 +use fatm_gsl_201201_TT.nc
11 8  
  9 +show data
  10 +let a = x[gx=krom]*0 + y[gy=irom]*0 + t[gt=trom]*0
  11 +plot TT[l=1]
12 12 set window 2
13   -shade b[l=3,k=10,i=20:200:2]
14   -
15   -
  13 +let b = nc_rar(a,TT,INDEXVALID2D)
  14 +shade b[l=1]
16 15 set window 3
17   -shade b[l=2,j=40]
18   -let c = nc_rar(a,temp,indexwet3d)
19   -
20   -let d = c[l=4] - b[l=3]
  16 +shade b[l=1],longitudes,latitudes
21 17 set window 4
22   -shade d[k=2]
23   -
24   -set window 5
25   -shade d[z=@din]
26   -
27   -use ll5km.nc
  18 +shade/l=3 rom_flip(b)
28 19  
29   -set window 6
30   -shade d[k=2,d=1],lon[d=2],lat[d=2]
31   -set window 7
32   -shade b[l=2,i=80,d=1]
33 20  
34   -set window 8
35   -shade b[z=@din,t=@sum,d=1]
36   -quit
... ...