/[lmdze]/trunk/Sources/dyn3d/Dissipation/nxgraro2.f
ViewVC logotype

Diff of /trunk/Sources/dyn3d/Dissipation/nxgraro2.f

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

revision 25 by guez, Fri Mar 5 16:43:45 2010 UTC revision 27 by guez, Thu Mar 25 14:29:07 2010 UTC
# Line 16  c Line 16  c
16  c  c
17        use dimens_m        use dimens_m
18        use paramet_m        use paramet_m
19              use comdissipn              use inidissip_m
20          use filtreg_m, only: filtreg
21        IMPLICIT NONE        IMPLICIT NONE
22  c  c
23  c  c
# Line 29  c Line 30  c
30  c    ......   variables locales     ........  c    ......   variables locales     ........
31  c  c
32        REAL rot(ip1jm,llm) , signe, nugradrs        REAL rot(ip1jm,llm) , signe, nugradrs
33        INTEGER l,ij,iter,lr        INTEGER l,ij,iter
34          integer, intent(in):: lr
35  c    ........................................................  c    ........................................................
36  c  c
37  c  c
Legend:
Removed from v.25  
changed lines
  Added in v.27
  ViewVC Help
Powered by ViewVC 1.1.21