/[lmdze]/trunk/dyn3d/vlxqs.f90
ViewVC logotype

Diff of /trunk/dyn3d/vlxqs.f90

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 178 by guez, Fri Mar 11 18:47:26 2016 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 35  Line 35 
35        REAL adxqu(ip1jmp1),dxqmax(ip1jmp1,llm)        REAL adxqu(ip1jmp1),dxqmax(ip1jmp1,llm)
36        REAL u_mq(ip1jmp1,llm)        REAL u_mq(ip1jmp1,llm)
37    
       Logical first,testcpu  
       SAVE first,testcpu  
   
       REAL      SSUM  
       REAL temps0,temps1,temps2,temps3,temps4,temps5  
       SAVE temps0,temps1,temps2,temps3,temps4,temps5  
   
   
       DATA first,testcpu/.true.,.false./  
   
       IF(first) THEN  
          temps1=0.  
          temps2=0.  
          temps3=0.  
          temps4=0.  
          temps5=0.  
          first=.false.  
       ENDIF  
   
38  !   calcul de la pente a droite et a gauche de la maille  !   calcul de la pente a droite et a gauche de la maille
39    
40    
Legend:
Removed from v.43  
changed lines
  Added in v.178
  ViewVC Help
Powered by ViewVC 1.1.21