/[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

trunk/dyn3d/vlyqs.f90 revision 76 by guez, Fri Nov 15 18:45:49 2013 UTC trunk/Sources/dyn3d/vlyqs.f revision 157 by guez, Mon Jul 20 16:01:49 2015 UTC
# Line 11  Line 11 
11  !  !
12  !   --------------------------------------------------------------------  !   --------------------------------------------------------------------
13  !  !
       use dimens_m  
       use paramet_m  
14        use comconst        use comconst
15          use dimens_m
16        use disvert_m        use disvert_m
17        use conf_gcm_m        use conf_gcm_m
18        use comgeom        use comgeom, only: aire, apoln, apols
19        USE nr_util, ONLY : pi        USE nr_util, ONLY : pi
20          USE dynetat0_m, only: rlonv, rlonu
21          use paramet_m
22    
23        IMPLICIT NONE        IMPLICIT NONE
24  !  !
25  !  !
# Line 39  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 54  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.76  
changed lines
  Added in v.157
  ViewVC Help
Powered by ViewVC 1.1.21