/[lmdze]/trunk/Sources/dyn3d/fluxstokenc.f
ViewVC logotype

Diff of /trunk/Sources/dyn3d/fluxstokenc.f

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

revision 207 by guez, Thu Sep 1 10:30:53 2016 UTC revision 208 by guez, Wed Dec 7 16:44:53 2016 UTC
# Line 76  contains Line 76  contains
76         ! normalisation         ! normalisation
77         DO l = 1, llm         DO l = 1, llm
78            DO ij = 1, ip1jmp1            DO ij = 1, ip1jmp1
79               pbaruc(ij, l) = pbaruc(ij, l)/float(istdyn)               pbaruc(ij, l) = pbaruc(ij, l)/real(istdyn)
80               tetac(ij, l) = tetac(ij, l)/float(istdyn)               tetac(ij, l) = tetac(ij, l)/real(istdyn)
81               phic(ij, l) = phic(ij, l)/float(istdyn)               phic(ij, l) = phic(ij, l)/real(istdyn)
82            END DO            END DO
83            DO ij = 1, ip1jm            DO ij = 1, ip1jm
84               pbarvc(ij, l) = pbarvc(ij, l)/float(istdyn)               pbarvc(ij, l) = pbarvc(ij, l)/real(istdyn)
85            END DO            END DO
86         END DO         END DO
87    
Legend:
Removed from v.207  
changed lines
  Added in v.208
  ViewVC Help
Powered by ViewVC 1.1.21