source: branches/UKMO/r6232_tracer_advection/NEMOGCM/TOOLS/WEIGHTS/nocsutil/scripgrid.F90 @ 9295

Last change on this file since 9295 was 2352, checked in by sga, 10 years ago

NEMO branch nemo_v3_3_beta
Add NOCS tools based on SCRIP package for creating weights for interpolation on the fly
These now should build with the maketools script in the TOOLS directory using the same
architecture configuration file as the model (hopefully)

  • Property svn:executable set to *
File size: 475 bytes
Line 
1! ==============================================================================
2
3PROGRAM scripgrid
4
5  USE scripgrid_mod
6
7  CHARACTER(char_len) :: infile
8
9#if defined ARGC
10  INTEGER :: IARGC
11  EXTERNAL IARGC
12
13  if (IARGC() == 1) then
14    CALL GETARG(1, infile)
15    CALL convert( infile )
16  ELSE
17    write(6,*) 'need to supply a namelist file'
18  ENDIF
19#else
20  write(6,*) 'enter name of namelist file'
21  read(5,*) infile
22
23  CALL convert( infile )
24#endif
25
26END PROGRAM scripgrid
Note: See TracBrowser for help on using the repository browser.