/[lmdze]/trunk/libf/dyn3d/Dissipation/divgrad.f
ViewVC logotype

Diff of /trunk/libf/dyn3d/Dissipation/divgrad.f

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

revision 60 by guez, Mon Jan 30 14:37:26 2012 UTC revision 64 by guez, Wed Aug 29 14:47:17 2012 UTC
# Line 42  c Line 42  c
42  c  c
43        DO 10 iter = 1,lh        DO 10 iter = 1,lh
44    
45        CALL filtreg ( divgra,jjp1,klevel,2,1,.true.,1  )        CALL filtreg ( divgra,jjp1,klevel,2,1,.true.)
46    
47        CALL    grad (klevel,divgra, ghx  , ghy          )        CALL    grad (klevel,divgra, ghx  , ghy          )
48        CALL  diverg (klevel,  ghx , ghy  , divgra       )        CALL  diverg (klevel,  ghx , ghy  , divgra       )
49    
50        CALL filtreg ( divgra,jjp1,klevel,2,1,.true.,1)        CALL filtreg ( divgra,jjp1,klevel,2,1,.true.)
51    
52        DO 5 l = 1,klevel        DO 5 l = 1,klevel
53        DO 4  ij = 1, ip1jmp1        DO 4  ij = 1, ip1jmp1
Legend:
Removed from v.60  
changed lines
  Added in v.64
  ViewVC Help
Powered by ViewVC 1.1.21