/[lmdze]/trunk/dyn3d/sortvarc0.f
ViewVC logotype

Diff of /trunk/dyn3d/sortvarc0.f

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

trunk/libf/dyn3d/sortvarc0.f90 revision 23 by guez, Mon Dec 14 15:25:16 2009 UTC trunk/dyn3d/sortvarc0.f90 revision 76 by guez, Fri Nov 15 18:45:49 2013 UTC
# Line 9  SUBROUTINE sortvarc0(ucov, teta, ps, mas Line 9  SUBROUTINE sortvarc0(ucov, teta, ps, mas
9    USE comconst, ONLY : daysec, g, omeg, rad    USE comconst, ONLY : daysec, g, omeg, rad
10    USE comgeom, ONLY : aire, cu, rlatu    USE comgeom, ONLY : aire, cu, rlatu
11    USE ener, ONLY : ang0, etot0, ptot0, rmsdpdt, rmsv, stot0, ztot0    USE ener, ONLY : ang0, etot0, ptot0, rmsdpdt, rmsv, stot0, ztot0
12      use filtreg_m, only: filtreg
13    
14    IMPLICIT NONE    IMPLICIT NONE
15    
16    !   Arguments:    !   Arguments:
17    
18    REAL, INTENT (IN) :: ucov(ip1jmp1, llm)    REAL, INTENT (IN) :: ucov(ip1jmp1, llm)
19    REAL :: teta(ip1jmp1, llm), masse(ip1jmp1, llm)    REAL, INTENT(IN):: teta(ip1jmp1, llm)
20      real masse(ip1jmp1, llm)
21    REAL, INTENT (IN) :: ps(ip1jmp1)    REAL, INTENT (IN) :: ps(ip1jmp1)
22    REAL, INTENT (IN) :: phis(ip1jmp1)    REAL, INTENT (IN) :: phis(ip1jmp1)
23    REAL :: vorpot(ip1jm, llm)    REAL :: vorpot(ip1jm, llm)
# Line 45  SUBROUTINE sortvarc0(ucov, teta, ps, mas Line 47  SUBROUTINE sortvarc0(ucov, teta, ps, mas
47    rmsdpdt = ssum(ip1jmp1, ge, 1) - ssum(jjp1, ge, iip1)    rmsdpdt = ssum(ip1jmp1, ge, 1) - ssum(jjp1, ge, iip1)
48    rmsdpdt = daysec*1.E-2*sqrt(rmsdpdt / (iim * jjp1))    rmsdpdt = daysec*1.E-2*sqrt(rmsdpdt / (iim * jjp1))
49    CALL scopy(ijp1llm, bern, 1, bernf, 1)    CALL scopy(ijp1llm, bern, 1, bernf, 1)
50    CALL filtreg(bernf, jjp1, llm, -2, 2, .TRUE., 1)    CALL filtreg(bernf, jjp1, llm, -2, 2, .TRUE.)
51    
52    !  Calcul du moment  angulaire    !  Calcul du moment  angulaire
53    
Legend:
Removed from v.23  
changed lines
  Added in v.76
  ViewVC Help
Powered by ViewVC 1.1.21