source: vendor/nemo/v3.4_r_3220_dev_NEMO_MERGE_2011/NEMOGCM/TOOLS/WEIGHTS/nocsutil/scripinterp.F90 @ 1

Last change on this file since 1 was 1, checked in by cholod, 13 years ago

importing initial nemo vendor drop (v3.4_r_3220)
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.