/[lmdze]/trunk/libf/dyn3d/divgrad2.f
ViewVC logotype

Diff of /trunk/libf/dyn3d/divgrad2.f

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

revision 3 by guez, Wed Feb 27 13:16:39 2008 UTC revision 26 by guez, Tue Mar 9 15:27:15 2010 UTC
# Line 15  c Line 15  c
15        use dimens_m        use dimens_m
16        use paramet_m        use paramet_m
17        use comgeom        use comgeom
18                use inidissip_m
19        IMPLICIT NONE        IMPLICIT NONE
20  c  c
       include "comdissipn.h"  
21    
22  c    .......    variables en arguments   .......  c    .......    variables en arguments   .......
23  c  c
# Line 28  c Line 28  c
28  c    .......    variables  locales    ..........  c    .......    variables  locales    ..........
29  c  c
30        REAL     signe, nudivgrs, sqrtps( ip1jmp1,llm )        REAL     signe, nudivgrs, sqrtps( ip1jmp1,llm )
31        INTEGER  l,ij,iter,lh        INTEGER  l,ij,iter
32          integer, intent(in):: lh
33  c    ...................................................................  c    ...................................................................
34    
35  c  c
Legend:
Removed from v.3  
changed lines
  Added in v.26
  ViewVC Help
Powered by ViewVC 1.1.21