source:
branches/nemo_v3_3_beta/NEMOGCM/TOOLS/WEIGHTS/src/scripgrid.F90
@
4291
Last change on this file since 4291 was 2352, checked in by sga, 14 years ago | |
---|---|
|
|
File size: 475 bytes |
Rev | Line | |
---|---|---|
[2352] | 1 | ! ============================================================================== |
2 | ||
3 | PROGRAM 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 | ||
26 | END PROGRAM scripgrid |
Note: See TracBrowser
for help on using the repository browser.