/[lmdze]/trunk/filtrez/inifgn.f
ViewVC logotype

Diff of /trunk/filtrez/inifgn.f

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

revision 152 by guez, Tue Jun 23 18:18:12 2015 UTC revision 153 by guez, Tue Jun 23 18:26:18 2015 UTC
# Line 42  contains Line 42  contains
42      unsddv = 1. / sddv      unsddv = 1. / sddv
43    
44      b = 0.      b = 0.
45      b(iim, 1) = 1. / (sddu(iim) * sddv(1))      b(iim, 1) = unsddu(iim) * unsddv(1)
46      forall (i = 1:iim) b(i, i) = - 1./ (sddu(i) * sddv(i))      forall (i = 1:iim) b(i, i) = - unsddu(i) * unsddv(i)
47      forall (i = 1:iim - 1) b(i, i + 1) = 1. / (sddu(i) * sddv(i + 1))      forall (i = 1:iim - 1) b(i, i + 1) = unsddu(i) * unsddv(i + 1)
48    
49      c = - transpose(b)      c = - transpose(b)
50    
Legend:
Removed from v.152  
changed lines
  Added in v.153
  ViewVC Help
Powered by ViewVC 1.1.21