/[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 3 by guez, Wed Feb 27 13:16:39 2008 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        IMPLICIT NONE    USE comgeom
19  c    USE filtreg_v_m, ONLY: filtreg_v
20      use nxgrad_m, only: nxgrad
21  c    use rotatf_m, only: rotatf
22  c   ..........    variables  en  arguments     .............  
23  c    IMPLICIT NONE
24        INTEGER klevel  
25        REAL rotin( ip1jm,klevel ), rotout( ip1jm,klevel )  
26  c  
27  c   ..........    variables   locales       ................    ! ..........    variables  en  arguments     .............
28  c  
29        REAL ghy(ip1jm,klevel), ghx(ip1jmp1,klevel)    INTEGER, INTENT (IN) :: klevel
30  c   ........................................................    REAL rotin(iim + 1, jjm, klevel), rotout(ip1jm, klevel)
31  c  
32  c    ! ..........    variables   locales       ................
33        CALL  filtreg ( rotin ,   jjm, klevel,   2, 1, .FALSE., 1 )  
34      REAL ghy(ip1jm, klevel), ghx(ip1jmp1, klevel)
35        CALL   nxgrad ( klevel, rotin,   ghx ,  ghy               )    ! ........................................................
36        CALL   rotatf  ( klevel, ghx  ,   ghy , rotout             )  
37  c  
38        RETURN    CALL filtreg_v(rotin, intensive = .true.)
39        END  
40      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.3  
changed lines
  Added in v.266
  ViewVC Help
Powered by ViewVC 1.1.21