Last change
on this file since 23 was
4,
checked in by dumas, 10 years ago
|
initial import GRISLI trunk
|
File size:
743 bytes
|
Rev | Line | |
---|
[4] | 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.