Parent Directory | Revision Log | 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 |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |