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

Diff of /trunk/dyn3d/grille_m.f

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

revision 212 by guez, Thu Jan 12 12:31:31 2017 UTC revision 214 by guez, Wed Mar 22 13:40:27 2017 UTC
# Line 44  contains Line 44  contains
44    
45      !-------------------------      !-------------------------
46    
     print *, "Call sequence information: grille_m"  
   
47      imdep = assert_eq(size(xdata), size(entree, 1), "grille_m")      imdep = assert_eq(size(xdata), size(entree, 1), "grille_m")
48      jmdep = assert_eq(size(ydata), size(entree, 2), "grille_m")      jmdep = assert_eq(size(ydata), size(entree, 2), "grille_m")
49      imar = size(x)      imar = size(x)

Legend:
Removed from v.212  
changed lines
  Added in v.214

  ViewVC Help
Powered by ViewVC 1.1.21