/[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 106 by guez, Tue Sep 9 12:54:30 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 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.106  
changed lines
  Added in v.266
  ViewVC Help
Powered by ViewVC 1.1.21