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

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

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

revision 139 by guez, Tue May 26 17:46:03 2015 UTC revision 157 by guez, Mon Jul 20 16:01:49 2015 UTC
# Line 41  Line 41 
41        REAL qbyv(ip1jm,llm)        REAL qbyv(ip1jm,llm)
42    
43        REAL qpns,qpsn,dyn1,dys1,dyn2,dys2,newmasse,fn,fs        REAL qpns,qpsn,dyn1,dys1,dyn2,dys2,newmasse,fn,fs
44  !     REAL newq,oldmasse        Logical first
45        Logical first,testcpu        SAVE first
       REAL temps0,temps1,temps2,temps3,temps4,temps5  
       SAVE temps0,temps1,temps2,temps3,temps4,temps5  
       SAVE first,testcpu  
46    
47        REAL convpn,convps,convmpn,convmps        REAL convpn,convps,convmpn,convmps
48        REAL sinlon(iip1),sinlondlon(iip1)        REAL sinlon(iip1),sinlondlon(iip1)
# Line 56  Line 53 
53  !  !
54        REAL      SSUM        REAL      SSUM
55    
56        DATA first,testcpu/.true.,.false./        DATA first/.true./
       DATA temps0,temps1,temps2,temps3,temps4,temps5/0.,0.,0.,0.,0.,0./  
57    
58        IF(first) THEN        IF(first) THEN
59           PRINT*,'Shema  Amont nouveau  appele dans  Vanleer   '           PRINT*,'Shema  Amont nouveau  appele dans  Vanleer   '
Legend:
Removed from v.139  
changed lines
  Added in v.157
  ViewVC Help
Powered by ViewVC 1.1.21