/[lmdze]/trunk/dyn3d/inigrads.f
ViewVC logotype

Diff of /trunk/dyn3d/inigrads.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

trunk/libf/dyn3d/inigrads.f90 revision 3 by guez, Wed Feb 27 13:16:39 2008 UTC trunk/dyn3d/inigrads.f90 revision 76 by guez, Fri Nov 15 18:45:49 2013 UTC
# Line 1  Line 1 
1  module inigrads_m  module inigrads_m
2    
   ! This module is clean: no C preprocessor directive, no include line.  
   
3    implicit none    implicit none
4    
5  contains  contains
# Line 9  contains Line 7  contains
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
Legend:
Removed from v.3  
changed lines
  Added in v.76
  ViewVC Help
Powered by ViewVC 1.1.21