/[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 104 by guez, Thu Sep 4 10:05:52 2014 UTC revision 107 by guez, Thu Sep 11 15:09:15 2014 UTC
# Line 53  contains Line 53  contains
53      rmsdpdt = sum(ge) - sum(ge(1, :))      rmsdpdt = sum(ge) - sum(ge(1, :))
54      rmsdpdt = daysec*1.E-2*sqrt(rmsdpdt / (iim * jjp1))      rmsdpdt = daysec*1.E-2*sqrt(rmsdpdt / (iim * jjp1))
55      bernf = bern      bernf = bern
56      CALL filtreg(bernf, jjp1, llm, -2, 2, .TRUE.)      CALL filtreg(bernf, direct = .false., intensive = .false.)
57    
58      ! Calcul du moment  angulaire      ! Calcul du moment  angulaire
59      radsg = rad/g      radsg = rad/g
Legend:
Removed from v.104  
changed lines
  Added in v.107
  ViewVC Help
Powered by ViewVC 1.1.21