/[lmdze]/trunk/libf/dyn3d/sortvarc0.f90
ViewVC logotype

Diff of /trunk/libf/dyn3d/sortvarc0.f90

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

revision 27 by guez, Thu Mar 25 14:29:07 2010 UTC revision 64 by guez, Wed Aug 29 14:47:17 2012 UTC
# Line 46  SUBROUTINE sortvarc0(ucov, teta, ps, mas Line 46  SUBROUTINE sortvarc0(ucov, teta, ps, mas
46    rmsdpdt = ssum(ip1jmp1, ge, 1) - ssum(jjp1, ge, iip1)    rmsdpdt = ssum(ip1jmp1, ge, 1) - ssum(jjp1, ge, iip1)
47    rmsdpdt = daysec*1.E-2*sqrt(rmsdpdt / (iim * jjp1))    rmsdpdt = daysec*1.E-2*sqrt(rmsdpdt / (iim * jjp1))
48    CALL scopy(ijp1llm, bern, 1, bernf, 1)    CALL scopy(ijp1llm, bern, 1, bernf, 1)
49    CALL filtreg(bernf, jjp1, llm, -2, 2, .TRUE., 1)    CALL filtreg(bernf, jjp1, llm, -2, 2, .TRUE.)
50    
51    !  Calcul du moment  angulaire    !  Calcul du moment  angulaire
52    
Legend:
Removed from v.27  
changed lines
  Added in v.64
  ViewVC Help
Powered by ViewVC 1.1.21