/[lmdze]/trunk/dyn3d/advn.f
ViewVC logotype

Diff of /trunk/dyn3d/advn.f

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

trunk/dyn3d/advn.f90 revision 81 by guez, Wed Mar 5 14:38:41 2014 UTC trunk/dyn3d/advn.f revision 265 by guez, Tue Mar 20 09:35:59 2018 UTC
# Line 15  SUBROUTINE advn(q, masse, w, pbaru, pbar Line 15  SUBROUTINE advn(q, masse, w, pbaru, pbar
15    ! pdt pas de temps    ! pdt pas de temps
16    
17    ! --------------------------------------------------------------------    ! --------------------------------------------------------------------
18    USE dimens_m    USE dimensions
19    USE paramet_m    USE paramet_m
20    USE comconst    USE comconst
21    USE disvert_m    USE disvert_m
# Line 36  SUBROUTINE advn(q, masse, w, pbaru, pbar Line 36  SUBROUTINE advn(q, masse, w, pbaru, pbar
36    ! Local    ! Local
37    ! ---------    ! ---------
38    
39    INTEGER i, ij, l, j, ii    INTEGER ij, l
40    INTEGER ijlqmin, iqmin, jqmin, lqmin    REAL zm(ip1jmp1, llm)
   INTEGER ismin  
   
   REAL zm(ip1jmp1, llm), newmasse  
41    REAL mu(ip1jmp1, llm)    REAL mu(ip1jmp1, llm)
42    REAL mv(ip1jm, llm)    REAL mv(ip1jm, llm)
43    REAL mw(ip1jmp1, llm+1)    REAL mw(ip1jmp1, llm+1)
44    REAL zq(ip1jmp1, llm), zz, qpn, qps    REAL zq(ip1jmp1, llm), qpn, qps
45    REAL zqg(ip1jmp1, llm), zqd(ip1jmp1, llm)    REAL zqg(ip1jmp1, llm), zqd(ip1jmp1, llm)
46    REAL zqs(ip1jmp1, llm), zqn(ip1jmp1, llm)    REAL zqs(ip1jmp1, llm), zqn(ip1jmp1, llm)
47    REAL zqh(ip1jmp1, llm), zqb(ip1jmp1, llm)    REAL zqh(ip1jmp1, llm), zqb(ip1jmp1, llm)
48    REAL temps0, temps1, temps2, temps3    REAL ssum
   REAL ztemps1, ztemps2, ztemps3, ssum  
   LOGICAL testcpu  
   SAVE testcpu  
   SAVE temps1, temps2, temps3  
49    REAL zzpbar, zzw    REAL zzpbar, zzw
50    
   REAL qmin, qmax  
   DATA qmin, qmax/0., 1./  
   DATA testcpu/.FALSE./  
   DATA temps1, temps2, temps3/0., 0., 0./  
   
51    zzpbar = 0.5*pdt    zzpbar = 0.5*pdt
52    zzw = pdt    zzw = pdt
53    
# Line 135  SUBROUTINE advnqx(q, qg, qd) Line 123  SUBROUTINE advnqx(q, qg, qd)
123    ! Auteurs:   Calcul des valeurs de q aux point u.    ! Auteurs:   Calcul des valeurs de q aux point u.
124    
125    ! --------------------------------------------------------------------    ! --------------------------------------------------------------------
126    USE dimens_m    USE dimensions
127    USE paramet_m    USE paramet_m
128    USE conf_gcm_m    USE conf_gcm_m
129    IMPLICIT NONE    IMPLICIT NONE
# Line 250  SUBROUTINE advnqy(q, qs, qn) Line 238  SUBROUTINE advnqy(q, qs, qn)
238    ! Auteurs:   Calcul des valeurs de q aux point v.    ! Auteurs:   Calcul des valeurs de q aux point v.
239    
240    ! --------------------------------------------------------------------    ! --------------------------------------------------------------------
241    USE dimens_m    USE dimensions
242    USE paramet_m    USE paramet_m
243    USE conf_gcm_m    USE conf_gcm_m
244    IMPLICIT NONE    IMPLICIT NONE
# Line 346  SUBROUTINE advnqz(q, qh, qb) Line 334  SUBROUTINE advnqz(q, qh, qb)
334    ! Auteurs:   Calcul des valeurs de q aux point v.    ! Auteurs:   Calcul des valeurs de q aux point v.
335    
336    ! --------------------------------------------------------------------    ! --------------------------------------------------------------------
337    USE dimens_m    USE dimensions
338    USE paramet_m    USE paramet_m
339    USE conf_gcm_m    USE conf_gcm_m
340    IMPLICIT NONE    IMPLICIT NONE
# Line 468  SUBROUTINE advnx(q, qg, qd, masse, u_m, Line 456  SUBROUTINE advnx(q, qg, qd, masse, u_m,
456    
457    
458    ! --------------------------------------------------------------------    ! --------------------------------------------------------------------
459    USE dimens_m    USE dimensions
460    USE paramet_m    USE paramet_m
461    USE comconst    USE comconst
462    USE disvert_m    USE disvert_m
# Line 707  SUBROUTINE advny(q, qs, qn, masse, v_m) Line 695  SUBROUTINE advny(q, qs, qn, masse, v_m)
695    
696    
697    ! --------------------------------------------------------------------    ! --------------------------------------------------------------------
698    USE dimens_m    USE dimensions
699    USE paramet_m    USE paramet_m
700    USE comgeom    USE comgeom
701    USE conf_gcm_m    USE conf_gcm_m
# Line 821  SUBROUTINE advnz(q, qh, qb, masse, w_m) Line 809  SUBROUTINE advnz(q, qh, qb, masse, w_m)
809    
810    
811    ! --------------------------------------------------------------------    ! --------------------------------------------------------------------
812    USE dimens_m    USE dimensions
813    USE paramet_m    USE paramet_m
814    USE comgeom    USE comgeom
815    USE conf_gcm_m    USE conf_gcm_m
Legend:
Removed from v.81  
changed lines
  Added in v.265
  ViewVC Help
Powered by ViewVC 1.1.21