/[lmdze]/trunk/Sources/dyn3d/Vlsplt/vly.f
ViewVC logotype

Diff of /trunk/Sources/dyn3d/Vlsplt/vly.f

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

trunk/libf/dyn3d/Vlsplt/vly.f90 revision 32 by guez, Tue Apr 6 17:52:58 2010 UTC trunk/Sources/dyn3d/Vlsplt/vly.f revision 157 by guez, Mon Jul 20 16:01:49 2015 UTC
# Line 7  Line 7 
7  !    *************************************************************  !    *************************************************************
8  !     q,masse_adv_v,w sont des arguments d'entree  pour le s-pg ....  !     q,masse_adv_v,w sont des arguments d'entree  pour le s-pg ....
9  !     dq              sont des arguments de sortie pour le s-pg ....  !     dq              sont des arguments de sortie pour le s-pg ....
10  !  
11  !        use comconst
12  !   ----------------------------------------------------------------        use comgeom, only: aire
13          use conf_gcm_m
14        use dimens_m        use dimens_m
15          use disvert_m
16          USE dynetat0_m, only: rlonv, rlonu
17          USE nr_util, ONLY : pi
18        use paramet_m        use paramet_m
19        use comconst  
       use comvert  
       use logic  
       use comgeom  
20        IMPLICIT NONE        IMPLICIT NONE
21  !  !
22  !  !
23  !  !
24  !   Arguments:  !   Arguments:
25  !   ----------  !   ----------
26        REAL masse(ip1jmp1,llm),pente_max        REAL masse(ip1jmp1,llm)
27          real, intent(in):: pente_max
28        REAL masse_adv_v( ip1jm,llm)        REAL masse_adv_v( ip1jm,llm)
29        REAL q(ip1jmp1,llm), dq( ip1jmp1,llm)        REAL q(ip1jmp1,llm)
30  !  !
31  !      Local  !      Local
32  !   ---------  !   ---------
# Line 32  Line 34 
34        INTEGER i,ij,l        INTEGER i,ij,l
35  !  !
36        REAL airej2,airejjm,airescb(iim),airesch(iim)        REAL airej2,airejjm,airescb(iim),airesch(iim)
37        REAL dyq(ip1jmp1,llm),dyqv(ip1jm),zdvm(ip1jmp1,llm)        REAL dyq(ip1jmp1,llm),dyqv(ip1jm)
38        REAL adyqv(ip1jm),dyqmax(ip1jmp1)        REAL adyqv(ip1jm),dyqmax(ip1jmp1)
39        REAL qbyv(ip1jm,llm)        REAL qbyv(ip1jm,llm)
40    
41        REAL qpns,qpsn,apn,aps,dyn1,dys1,dyn2,dys2,newmasse,fn,fs        REAL qpns,qpsn,dyn1,dys1,dyn2,dys2,newmasse,fn,fs
42  !     REAL newq,oldmasse  !     REAL newq,oldmasse
43        Logical extremum,first,testcpu        Logical first
44        REAL temps0,temps1,temps2,temps3,temps4,temps5,second        SAVE first
       SAVE temps0,temps1,temps2,temps3,temps4,temps5  
       SAVE first,testcpu  
45    
46        REAL convpn,convps,convmpn,convmps        REAL convpn,convps,convmpn,convmps
47        real massepn,masseps,qpn,qps        real massepn,masseps,qpn,qps
# Line 53  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.32  
changed lines
  Added in v.157
  ViewVC Help
Powered by ViewVC 1.1.21