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

Diff of /trunk/libf/dyn3d/nxgrarot.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 18  c Line 18  c
18        use dimens_m        use dimens_m
19        use paramet_m        use paramet_m
20        use logic        use logic
21                use inidissip_m
22        IMPLICIT NONE        IMPLICIT NONE
23  c  c
24  c  c
       include "comdissipn.h"  
25  c  c
26        INTEGER klevel        INTEGER klevel
27        REAL xcov( ip1jmp1,klevel ), ycov( ip1jm,klevel )        REAL xcov( ip1jmp1,klevel ), ycov( ip1jm,klevel )
# Line 29  c Line 29  c
29  c  c
30        REAL rot(ip1jm,llm)        REAL rot(ip1jm,llm)
31    
32        INTEGER l,ij,iter,lr        INTEGER l,ij,iter
33          integer, intent(in):: lr
34  c  c
35  c  c
36  c  c
Legend:
Removed from v.3  
changed lines
  Added in v.26
  ViewVC Help
Powered by ViewVC 1.1.21