source:
utils/tools_AGRIF_CMEMS_2020/NESTING_AGRIF/src/agrif_create_coordinates.f90
@
10084
| Last change on this file since 10084 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.
