/[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 23 by guez, Mon Dec 14 15:25:16 2009 UTC revision 25 by guez, Fri Mar 5 16:43:45 2010 UTC
# Line 12  SUBROUTINE sortvarc(itau,ucov,teta,ps,ma Line 12  SUBROUTINE sortvarc(itau,ucov,teta,ps,ma
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    
Legend:
Removed from v.23  
changed lines
  Added in v.25
  ViewVC Help
Powered by ViewVC 1.1.21