/[lmdze]/trunk/dyn3d/sortvarc.f
ViewVC logotype

Diff of /trunk/dyn3d/sortvarc.f

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

trunk/Sources/dyn3d/sortvarc.f revision 134 by guez, Wed Apr 29 15:47:56 2015 UTC trunk/dyn3d/sortvarc.f revision 254 by guez, Mon Feb 5 10:39:38 2018 UTC
# Line 11  contains Line 11  contains
11    
12      ! From dyn3d/sortvarc.F, version 1.1.1.1 2004/05/19 12:53:07      ! From dyn3d/sortvarc.F, version 1.1.1.1 2004/05/19 12:53:07
13      ! Author: P. Le Van      ! Author: P. Le Van
14      ! Objet : sortie des variables de contrôle      ! Objet : sortie des variables de contr\^ole
15    
16      USE comconst, ONLY: daysec, g, omeg, rad      USE comconst, ONLY: daysec, g, omeg, rad
17      USE comgeom, ONLY: aire_2d, cu_2d, rlatu      USE comgeom, ONLY: aire_2d, cu_2d
18      USE dimens_m, ONLY: iim, jjm, llm      USE dimens_m, ONLY: iim, jjm, llm
19        use dynetat0_m, ONLY: rlatu
20      USE ener, ONLY: ang0, etot0, ptot0, stot0, ztot0      USE ener, ONLY: ang0, etot0, ptot0, stot0, ztot0
21      use filtreg_m, only: filtreg      use filtreg_scal_m, only: filtreg_scal
22      use massbarxy_m, only: massbarxy      use massbarxy_m, only: massbarxy
23      USE paramet_m, ONLY: iip1, ip1jm, jjp1      USE paramet_m, ONLY: iip1, ip1jm, jjp1
24    
# Line 53  contains Line 54  contains
54      rmsdpdt = sum(ge) - sum(ge(1, :))      rmsdpdt = sum(ge) - sum(ge(1, :))
55      rmsdpdt = daysec*1.E-2*sqrt(rmsdpdt / (iim * jjp1))      rmsdpdt = daysec*1.E-2*sqrt(rmsdpdt / (iim * jjp1))
56      bernf = bern      bernf = bern
57      CALL filtreg(bernf, direct = .false., intensive = .false.)      CALL filtreg_scal(bernf, direct = .false., intensive = .false.)
58    
59      ! Calcul du moment  angulaire      ! Calcul du moment  angulaire
60      radsg = rad/g      radsg = rad/g
Legend:
Removed from v.134  
changed lines
  Added in v.254
  ViewVC Help
Powered by ViewVC 1.1.21