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

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

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

trunk/libf/dyn3d/vlxqs.f90 revision 43 by guez, Fri Apr 8 12:43:31 2011 UTC trunk/Sources/dyn3d/vlxqs.f revision 134 by guez, Wed Apr 29 15:47:56 2015 UTC
# Line 10  Line 10 
10        use dimens_m        use dimens_m
11        use paramet_m        use paramet_m
12        use comconst        use comconst
13        use comvert        use disvert_m
14        use logic        use conf_gcm_m
15        IMPLICIT NONE        IMPLICIT NONE
16  !  !
17  !  !
# Line 38  Line 38 
38        Logical first,testcpu        Logical first,testcpu
39        SAVE first,testcpu        SAVE first,testcpu
40    
41        REAL      SSUM        REAL temps1,temps2,temps3,temps4,temps5
42        REAL temps0,temps1,temps2,temps3,temps4,temps5        SAVE temps1,temps2,temps3,temps4,temps5
       SAVE temps0,temps1,temps2,temps3,temps4,temps5  
43    
44    
45        DATA first,testcpu/.true.,.false./        DATA first,testcpu/.true.,.false./
Legend:
Removed from v.43  
changed lines
  Added in v.134
  ViewVC Help
Powered by ViewVC 1.1.21