/[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 254 by guez, Mon Feb 5 10:39:38 2018 UTC
# Line 16  SUBROUTINE laplacien_rot(klevel, rotin, Line 16  SUBROUTINE laplacien_rot(klevel, rotin,
16    USE dimens_m    USE dimens_m
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 rotatf_m, only: rotatf
21    
22    IMPLICIT NONE    IMPLICIT NONE
23    
24    
# Line 24  SUBROUTINE laplacien_rot(klevel, rotin, Line 26  SUBROUTINE laplacien_rot(klevel, rotin,
26    ! ..........    variables  en  arguments     .............    ! ..........    variables  en  arguments     .............
27    
28    INTEGER, INTENT (IN) :: klevel    INTEGER, INTENT (IN) :: klevel
29    REAL rotin(ip1jm, klevel), rotout(ip1jm, klevel)    REAL rotin(iim + 1, jjm, klevel), rotout(ip1jm, klevel)
30    
31    ! ..........    variables   locales       ................    ! ..........    variables   locales       ................
32    
# 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_v(rotin, 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.82  
changed lines
  Added in v.254
  ViewVC Help
Powered by ViewVC 1.1.21