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

Diff of /trunk/libf/dyn3d/laplacien.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 60 by guez, Mon Jan 30 14:37:26 2012 UTC
# Line 11  c   ************************************ Line 11  c   ************************************
11  c     klevel et teta  sont des arguments  d'entree pour le s-prog  c     klevel et teta  sont des arguments  d'entree pour le s-prog
12  c      divgra     est  un argument  de sortie pour le s-prog  c      divgra     est  un argument  de sortie pour le s-prog
13  c  c
14          use grad_m, only: grad
15        use dimens_m        use dimens_m
16        use paramet_m        use paramet_m
17        use comgeom        use comgeom
18          use filtreg_m, only: filtreg
19          use divergf_m, only: divergf
20    
21        IMPLICIT NONE        IMPLICIT NONE
22  c  c
23    
24  c  c
25  c    .........      variables  en arguments   ..............  c    .........      variables  en arguments   ..............
26  c  c
27        INTEGER klevel        INTEGER, intent(in):: klevel
28        REAL teta( ip1jmp1,klevel ), divgra( ip1jmp1,klevel )        REAL teta( ip1jmp1,klevel ), divgra( ip1jmp1,klevel )
29  c  c
30  c    ............     variables  locales      ..............  c    ............     variables  locales      ..............
Legend:
Removed from v.3  
changed lines
  Added in v.60
  ViewVC Help
Powered by ViewVC 1.1.21