/[lmdze]/trunk/libf/dyn3d/sortvarc.f90
ViewVC logotype

Diff of /trunk/libf/dyn3d/sortvarc.f90

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 25 by guez, Fri Mar 5 16:43:45 2010 UTC revision 27 by guez, Thu Mar 25 14:29:07 2010 UTC
# Line 15  SUBROUTINE sortvarc(itau,ucov,teta,ps,ma Line 15  SUBROUTINE sortvarc(itau,ucov,teta,ps,ma
15    USE dynetat0_m, 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      use filtreg_m, only: filtreg
19    
20    IMPLICIT NONE    IMPLICIT NONE
21    
Legend:
Removed from v.25  
changed lines
  Added in v.27
  ViewVC Help
Powered by ViewVC 1.1.21