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

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

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

revision 23 by guez, Mon Dec 14 15:25:16 2009 UTC revision 27 by guez, Thu Mar 25 14:29:07 2010 UTC
# Line 9  SUBROUTINE sortvarc0(ucov, teta, ps, mas Line 9  SUBROUTINE sortvarc0(ucov, teta, ps, mas
9    USE comconst, ONLY : daysec, g, omeg, rad    USE comconst, ONLY : daysec, g, omeg, rad
10    USE comgeom, ONLY : aire, cu, rlatu    USE comgeom, ONLY : aire, cu, rlatu
11    USE ener, ONLY : ang0, etot0, ptot0, rmsdpdt, rmsv, stot0, ztot0    USE ener, ONLY : ang0, etot0, ptot0, rmsdpdt, rmsv, stot0, ztot0
12      use filtreg_m, only: filtreg
13    
14    IMPLICIT NONE    IMPLICIT NONE
15    
Legend:
Removed from v.23  
changed lines
  Added in v.27
  ViewVC Help
Powered by ViewVC 1.1.21