/[lmdze]/trunk/libf/dyn3d/divergf.f90
ViewVC logotype

Diff of /trunk/libf/dyn3d/divergf.f90

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

revision 3 by guez, Wed Feb 27 13:16:39 2008 UTC revision 55 by guez, Mon Dec 12 13:25:01 2011 UTC
# Line 13  c  ************************************* Line 13  c  *************************************
13        use dimens_m        use dimens_m
14        use paramet_m        use paramet_m
15        use comgeom        use comgeom
16          use filtreg_m, only: filtreg
17        IMPLICIT NONE        IMPLICIT NONE
18  c  c
19  c      x  et  y  sont des arguments  d'entree pour le s-prog  c      x  et  y  sont des arguments  d'entree pour le s-prog
# Line 27  c   ------------------------------------ Line 28  c   ------------------------------------
28  c  c
29  c    ..........          variables en arguments    ...................  c    ..........          variables en arguments    ...................
30  c  c
31        INTEGER klevel        INTEGER, intent(in):: klevel
32        REAL x( ip1jmp1,klevel ),y( ip1jm,klevel ),div( ip1jmp1,klevel )        REAL x( ip1jmp1,klevel ),y( ip1jm,klevel ),div( ip1jmp1,klevel )
33        INTEGER   l,ij        INTEGER   l,ij
34  c  c
Legend:
Removed from v.3  
changed lines
  Added in v.55
  ViewVC Help
Powered by ViewVC 1.1.21