/[lmdze]/trunk/libf/dyn3d/Dissipation/nxgrarot.f
ViewVC logotype

Diff of /trunk/libf/dyn3d/Dissipation/nxgrarot.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

trunk/libf/dyn3d/nxgrarot.f revision 27 by guez, Thu Mar 25 14:29:07 2010 UTC trunk/libf/dyn3d/Dissipation/nxgrarot.f revision 57 by guez, Mon Jan 30 12:54:02 2012 UTC
# Line 1  Line 1 
1  !  !
2  ! $Header: /home/cvsroot/LMDZ4/libf/dyn3d/nxgrarot.F,v 1.1.1.1 2004/05/19 12:53:06 lmdzadmin Exp $  ! $Header: /home/cvsroot/LMDZ4/libf/dyn3d/nxgrarot.F,v 1.1.1.1 2004/05/19 12:53:06 lmdzadmin Exp $
3  !  !
4        SUBROUTINE nxgrarot (klevel,xcov, ycov, lr, grx, gry )        SUBROUTINE nxgrarot (klevel,xcov, ycov, lr, grx, gry, crot )
5  c   ***********************************************************  c   ***********************************************************
6  c  c
7  c    Auteur :  P.Le Van    c    Auteur :  P.Le Van  
# Line 17  c Line 17  c
17  c  c
18        use dimens_m        use dimens_m
19        use paramet_m        use paramet_m
20        use logic        use conf_gcm_m
             use inidissip_m  
21        use filtreg_m, only: filtreg        use filtreg_m, only: filtreg
22        IMPLICIT NONE        IMPLICIT NONE
23  c  c
24  c  c
25  c  c
26        INTEGER klevel        INTEGER klevel
27        REAL xcov( ip1jmp1,klevel ), ycov( ip1jm,klevel )        REAL, intent(in):: xcov( ip1jmp1,klevel ), ycov( ip1jm,klevel )
28        REAL  grx( ip1jmp1,klevel ),  gry( ip1jm,klevel )        REAL, intent(out)::  grx( ip1jmp1,klevel ),  gry( ip1jm,klevel )
29          real, intent(in):: crot
30  c  c
31        REAL rot(ip1jm,llm)        REAL rot(ip1jm,llm)
32    
# Line 35  c Line 35  c
35  c  c
36  c  c
37  c  c
38        CALL SCOPY ( ip1jmp1*klevel, xcov, 1, grx, 1 )        grx = xcov
39        CALL SCOPY (  ip1jm*klevel, ycov, 1, gry, 1 )        gry = ycov
40  c  c
41        DO 10 iter = 1,lr        DO 10 iter = 1,lr
42        CALL  rotat (klevel,grx, gry, rot )        CALL  rotat (klevel,grx, gry, rot )
Legend:
Removed from v.27  
changed lines
  Added in v.57
  ViewVC Help
Powered by ViewVC 1.1.21