/[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

revision 82 by guez, Wed Mar 5 14:57:53 2014 UTC revision 266 by guez, Thu Apr 19 17:54:55 2018 UTC
# Line 13  SUBROUTINE laplacien_rot(klevel, rotin, Line 13  SUBROUTINE laplacien_rot(klevel, rotin,
13    ! klevel et rotin  sont des arguments  d'entree pour le s-prog    ! klevel et rotin  sont des arguments  d'entree pour le s-prog
14    ! rotout           est  un argument  de sortie pour le s-prog    ! rotout           est  un argument  de sortie pour le s-prog
15    
16    USE dimens_m    USE dimensions
17    USE paramet_m    USE paramet_m
18    USE comgeom    USE comgeom
19    USE filtreg_m, ONLY: filtreg    USE filtreg_v_m, ONLY: filtreg_v
20      use nxgrad_m, only: nxgrad
21      use rotatf_m, only: rotatf
22    
23    IMPLICIT NONE    IMPLICIT NONE
24    
25    
# Line 24  SUBROUTINE laplacien_rot(klevel, rotin, Line 27  SUBROUTINE laplacien_rot(klevel, rotin,
27    ! ..........    variables  en  arguments     .............    ! ..........    variables  en  arguments     .............
28    
29    INTEGER, INTENT (IN) :: klevel    INTEGER, INTENT (IN) :: klevel
30    REAL rotin(ip1jm, klevel), rotout(ip1jm, klevel)    REAL rotin(iim + 1, jjm, klevel), rotout(ip1jm, klevel)
31    
32    ! ..........    variables   locales       ................    ! ..........    variables   locales       ................
33    
# Line 32  SUBROUTINE laplacien_rot(klevel, rotin, Line 35  SUBROUTINE laplacien_rot(klevel, rotin,
35    ! ........................................................    ! ........................................................
36    
37    
38    CALL filtreg(rotin, jjm, klevel, 2, 1, .FALSE.)    CALL filtreg_v(rotin, intensive = .true.)
39    
40    CALL nxgrad(klevel, rotin, ghx, ghy)    CALL nxgrad(klevel, rotin, ghx, ghy)
41    CALL rotatf(klevel, ghx, ghy, rotout)    CALL rotatf(klevel, ghx, ghy, rotout)
Legend:
Removed from v.82  
changed lines
  Added in v.266
  ViewVC Help
Powered by ViewVC 1.1.21