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