source:
utils/tools_ticket2457/NESTING_AGRIF/src/agrif_create_coordinates.f90
Last change on this file was 10084, checked in by rblod, 6 years ago | |
---|---|
File size: 486 bytes |
Line | |
---|---|
1 | program create_coordinates |
2 | use agrif_util |
3 | use par_oce |
4 | use user_allocate |
5 | use variables |
6 | use io_netcdf |
7 | |
8 | INTEGER :: narg,iargc |
9 | CHARACTER(len=80) :: namelistname |
10 | |
11 | call agrif_init_grids() |
12 | |
13 | narg = iargc() |
14 | |
15 | IF (narg == 0) THEN |
16 | namelistname = 'namelist.input' |
17 | ELSE |
18 | CALL getarg(1,namelistname) |
19 | ENDIF |
20 | |
21 | ! read input file (namelist.input) |
22 | CALL read_namelist(namelistname) |
23 | |
24 | CALL read_ncdf_var('glamt',TRIM(parent_coordinate_file),glamt) |
25 | |
26 | call allocate_arrays() |
27 | stop |
28 | end |
Note: See TracBrowser
for help on using the repository browser.