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

Diff of /trunk/dyn3d/sortvarc.f

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

revision 57 by guez, Mon Jan 30 12:54:02 2012 UTC revision 64 by guez, Wed Aug 29 14:47:17 2012 UTC
# Line 60  contains Line 60  contains
60      rmsdpdt = ssum(ip1jmp1, ge, 1) - ssum(jjp1, ge, iip1)      rmsdpdt = ssum(ip1jmp1, ge, 1) - ssum(jjp1, ge, iip1)
61      rmsdpdt = daysec*1.E-2*sqrt(rmsdpdt/imjmp1)      rmsdpdt = daysec*1.E-2*sqrt(rmsdpdt/imjmp1)
62      CALL scopy(ijp1llm, bern, 1, bernf, 1)      CALL scopy(ijp1llm, bern, 1, bernf, 1)
63      CALL filtreg(bernf, jjp1, llm, -2, 2, .TRUE., 1)      CALL filtreg(bernf, jjp1, llm, -2, 2, .TRUE.)
64    
65      ! Calcul du moment  angulaire      ! Calcul du moment  angulaire
66      radsg = rad/g      radsg = rad/g
Legend:
Removed from v.57  
changed lines
  Added in v.64
  ViewVC Help
Powered by ViewVC 1.1.21