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

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

NEMO trunk: small corrections to the weights generation code in the TOOLS directory for nemo 3.3

  • typos in README file corrected
  • scripgrid.F90 now allows any input nemo grid filename (but lat/lon names have to begin with glam/gphi)
  • scripinterp.F90 now actually does something
File size: 490 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  call process_grid(nm_in)
22#endif
23
24end program scripinterp
Note: See TracBrowser for help on using the repository browser.