Last change
on this file since 23 was
4,
checked in by dumas, 10 years ago
|
initial import GRISLI trunk
|
File size:
743 bytes
|
Line | |
---|
1 | |
---|
2 | module interface_input |
---|
3 | interface !<<<<<<<<<<<<<<<<<<< |
---|
4 | subroutine lect_input (numcol,basename,col,tabvar,filename,ncfileout) |
---|
5 | integer,intent(in) :: numcol !< column number |
---|
6 | character(len=*), intent(in) :: basename !< base name of the variable to write |
---|
7 | integer,intent(in) :: col !< column 1->average, 2->minval 3->maxval |
---|
8 | real,dimension(:,:),intent(inout) :: tabvar !< array to read in the variable |
---|
9 | character(len=*),intent(in) :: filename !< name of the file to read |
---|
10 | character(len=*)::ncfileout !< name of the nc file to create |
---|
11 | end subroutine lect_input |
---|
12 | end interface !<<<<<<<<<<<<<<<<<<< |
---|
13 | end module interface_input |
---|
Note: See
TracBrowser
for help on using the repository browser.