/[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/libf/dyn3d/laplacien_rot.f revision 27 by guez, Thu Mar 25 14:29:07 2010 UTC trunk/dyn3d/laplacien_rot.f revision 266 by guez, Thu Apr 19 17:54:55 2018 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 dimensions
17        use comgeom    USE paramet_m
18        use filtreg_m, only: filtreg    USE comgeom
19        IMPLICIT NONE    USE filtreg_v_m, ONLY: filtreg_v
20  c    use nxgrad_m, only: nxgrad
21      use rotatf_m, only: rotatf
22  c  
23  c   ..........    variables  en  arguments     .............    IMPLICIT NONE
24  c  
25        INTEGER klevel  
26        REAL rotin( ip1jm,klevel ), rotout( ip1jm,klevel )  
27  c    ! ..........    variables  en  arguments     .............
28  c   ..........    variables   locales       ................  
29  c    INTEGER, INTENT (IN) :: klevel
30        REAL ghy(ip1jm,klevel), ghx(ip1jmp1,klevel)    REAL rotin(iim + 1, jjm, klevel), rotout(ip1jm, klevel)
31  c   ........................................................  
32  c    ! ..........    variables   locales       ................
33  c  
34        CALL  filtreg ( rotin ,   jjm, klevel,   2, 1, .FALSE., 1 )    REAL ghy(ip1jm, klevel), ghx(ip1jmp1, klevel)
35      ! ........................................................
36        CALL   nxgrad ( klevel, rotin,   ghx ,  ghy               )  
37        CALL   rotatf  ( klevel, ghx  ,   ghy , rotout             )  
38  c    CALL filtreg_v(rotin, intensive = .true.)
39        RETURN  
40        END    CALL nxgrad(klevel, rotin, ghx, ghy)
41      CALL rotatf(klevel, ghx, ghy, rotout)
42    
43      RETURN
44    END SUBROUTINE laplacien_rot
Legend:
Removed from v.27  
changed lines
  Added in v.266
  ViewVC Help
Powered by ViewVC 1.1.21