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

Diff of /trunk/dyn3d/laplacien_gam.f

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

revision 27 by guez, Thu Mar 25 14:29:07 2010 UTC revision 55 by guez, Mon Dec 12 13:25:01 2011 UTC
# Line 22  c Line 22  c
22  c  c
23  c    ............     variables  en arguments    ..........  c    ............     variables  en arguments    ..........
24  c  c
25        INTEGER klevel        INTEGER, intent(in):: klevel
26        REAL teta( ip1jmp1,klevel ), divgra( ip1jmp1,klevel )        REAL teta( ip1jmp1,klevel ), divgra( ip1jmp1,klevel )
27        REAL cuvsga(ip1jm) , cvusga( ip1jmp1 ),unsaigam(ip1jmp1),        REAL cuvsga(ip1jm) , cvusga( ip1jmp1 ),unsaigam(ip1jmp1),
28       *     unsapolnga, unsapolsga       *     unsapolnga, unsapolsga
Legend:
Removed from v.27  
changed lines
  Added in v.55
  ViewVC Help
Powered by ViewVC 1.1.21