12 |
USE paramet_m, ONLY : iip1, iip2, ijp1llm, ip1jm, ip1jmp1, jjp1 |
USE paramet_m, ONLY : iip1, iip2, ijp1llm, ip1jm, ip1jmp1, jjp1 |
13 |
USE comconst, ONLY : daysec, dtvr, g, omeg, rad |
USE comconst, ONLY : daysec, dtvr, g, omeg, rad |
14 |
USE comgeom, ONLY : aire, cu, rlatu |
USE comgeom, ONLY : aire, cu, rlatu |
15 |
USE temps, ONLY : day_ini |
USE dynetat0_m, ONLY : day_ini |
16 |
USE ener, ONLY : ang, ang0, etot, etot0, ptot, ptot0, rmsdpdt, rmsv, & |
USE ener, ONLY : ang, ang0, etot, etot0, ptot, ptot0, rmsdpdt, rmsv, & |
17 |
stot, stot0, ztot, ztot0 |
stot, stot0, ztot, ztot0 |
18 |
|
|