/[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 107 by guez, Thu Sep 11 15:09:15 2014 UTC
# Line 17  SUBROUTINE laplacien_rot(klevel, rotin, Line 17  SUBROUTINE laplacien_rot(klevel, rotin,
17    USE paramet_m    USE paramet_m
18    USE comgeom    USE comgeom
19    USE filtreg_m, ONLY: filtreg    USE filtreg_m, ONLY: filtreg
20      use rotatf_m, only: rotatf
21    
22    IMPLICIT NONE    IMPLICIT NONE
23    
24    
# Line 32  SUBROUTINE laplacien_rot(klevel, rotin, Line 34  SUBROUTINE laplacien_rot(klevel, rotin,
34    ! ........................................................    ! ........................................................
35    
36    
37    CALL filtreg(rotin, jjm, klevel, 2, 1, .FALSE.)    CALL filtreg(rotin, direct = .true., intensive = .true.)
38    
39    CALL nxgrad(klevel, rotin, ghx, ghy)    CALL nxgrad(klevel, rotin, ghx, ghy)
40    CALL rotatf(klevel, ghx, ghy, rotout)    CALL rotatf(klevel, ghx, ghy, rotout)
Legend:
Removed from v.106  
changed lines
  Added in v.107
  ViewVC Help
Powered by ViewVC 1.1.21