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

Diff of /trunk/dyn3d/advn.f90

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

trunk/dyn3d/advn.f revision 112 by guez, Thu Sep 18 13:36:51 2014 UTC trunk/dyn3d/advn.f90 revision 328 by guez, Thu Jun 13 14:40:06 2019 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 45  SUBROUTINE advn(q, masse, w, pbaru, pbar Line 45  SUBROUTINE advn(q, masse, w, pbaru, pbar
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)
   REAL temps1, temps2, temps3  
48    REAL ssum    REAL 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 132  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 247  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 343  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 465  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 704  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 818  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.112  
changed lines
  Added in v.328
  ViewVC Help
Powered by ViewVC 1.1.21