Context Navigation

scripinterp.F90 @ 2352

Last change on this file since 2352 was 2352, checked in by sga, 13 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
3	program 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
23	end program scripinterp

Note: See TracBrowser for help on using the repository browser.