source: branches/nemo_v3_3_beta/NEMOGCM/TOOLS/WEIGHTS/nocsutil/scripinterp.F90 @ 2352

Last change on this file since 2352 was 2352, checked in by sga, 11 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)

File size: 463 bytes
Line 
1! ==========================================================================
2
3program scripinterp
4
5  use scripinterp_mod
6
7  character (char_len) ::  nm_in
8#if defined ARGC
9  integer :: iargc
10  external iargc
11
12  if (iargc() == 1) then
13    call getarg(1, nm_in)
14    call process_grid(nm_in)
15  else
16    write(6,*) 'need the name of an input namelist'
17  endif
18#else
19  write(6,*) 'enter the name of an input namelist'
20  read(5,*) nm_in
21#endif
22
23end program scripinterp
Note: See TracBrowser for help on using the repository browser.