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