/[lmdze]/trunk/dyn3d/laplacien_rot.f
ViewVC logotype

Diff of /trunk/dyn3d/laplacien_rot.f

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

trunk/dyn3d/laplacien_rot.f revision 80 by guez, Fri Nov 15 18:45:49 2013 UTC trunk/dyn3d/laplacien_rot.f90 revision 81 by guez, Wed Mar 5 14:38:41 2014 UTC
# Line 1  Line 1 
1  !  
2  ! $Header: /home/cvsroot/LMDZ4/libf/dyn3d/laplacien_rot.F,v 1.1.1.1 2004/05/19 12:53:07 lmdzadmin Exp $  ! $Header: /home/cvsroot/LMDZ4/libf/dyn3d/laplacien_rot.F,v 1.1.1.1
3  !  ! 2004/05/19 12:53:07 lmdzadmin Exp $
4        SUBROUTINE laplacien_rot ( klevel, rotin, rotout,ghx,ghy )  
5  c  SUBROUTINE laplacien_rot(klevel, rotin, rotout, ghx, ghy)
6  c    P. Le Van  
7  c    ! P. Le Van
8  c   ************************************************************  
9  c    ...  calcul de  ( rotat x nxgrad )  du rotationnel rotin  .    ! ************************************************************
10  c   ************************************************************    ! ...  calcul de  ( rotat x nxgrad )  du rotationnel rotin  .
11  c    ! ************************************************************
12  c     klevel et rotin  sont des arguments  d'entree pour le s-prog  
13  c      rotout           est  un argument  de sortie pour le s-prog    ! klevel et rotin  sont des arguments  d'entree pour le s-prog
14  c    ! rotout           est  un argument  de sortie pour le s-prog
15        use dimens_m  
16        use paramet_m    USE dimens_m
17        use comgeom    USE paramet_m
18        use filtreg_m, only: filtreg    USE comgeom
19        IMPLICIT NONE    USE filtreg_m, ONLY: filtreg
20  c    IMPLICIT NONE
21    
22  c  
23  c   ..........    variables  en  arguments     .............  
24  c    ! ..........    variables  en  arguments     .............
25        INTEGER, intent(in):: klevel  
26        REAL rotin( ip1jm,klevel ), rotout( ip1jm,klevel )    INTEGER, INTENT (IN) :: klevel
27  c    REAL rotin(ip1jm, klevel), rotout(ip1jm, klevel)
28  c   ..........    variables   locales       ................  
29  c    ! ..........    variables   locales       ................
30        REAL ghy(ip1jm,klevel), ghx(ip1jmp1,klevel)  
31  c   ........................................................    REAL ghy(ip1jm, klevel), ghx(ip1jmp1, klevel)
32  c    ! ........................................................
33  c  
34        CALL  filtreg ( rotin ,   jjm, klevel,   2, 1, .FALSE.)  
35      CALL filtreg(rotin, jjm, klevel, 2, 1, .FALSE.)
36        CALL   nxgrad ( klevel, rotin,   ghx ,  ghy               )  
37        CALL   rotatf  ( klevel, ghx  ,   ghy , rotout             )    CALL nxgrad(klevel, rotin, ghx, ghy)
38  c    CALL rotatf(klevel, ghx, ghy, rotout)
39        RETURN  
40        END    RETURN
41    END SUBROUTINE laplacien_rot
Legend:
Removed from v.80  
changed lines
  Added in v.81
  ViewVC Help
Powered by ViewVC 1.1.21