7 |
subroutine inigrads(i_f, x, fx, xmin, xmax, y, ymin, ymax, fy, z, fz, dt, & |
subroutine inigrads(i_f, x, fx, xmin, xmax, y, ymin, ymax, fy, z, fz, dt, & |
8 |
file, titlel) |
file, titlel) |
9 |
|
|
10 |
! From dyn3d/inigrads.F, v 1.1.1.1 2004/05/19 12:53:07 |
! From dyn3d/inigrads.F, version 1.1.1.1 2004/05/19 12:53:07 |
11 |
|
|
12 |
use gradsdef, only: unit, title, ivar, fichier, firsttime, dtime, iid, & |
use gradsdef, only: unit, title, ivar, fichier, firsttime, dtime, iid, & |
13 |
ifd, imd, xd, iid, jid, jfd, jmd, yd, lmd, zd, irec |
ifd, imd, xd, iid, jid, jfd, jmd, yd, lmd, zd, irec |