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

Diff of /trunk/dyn3d/advn.f

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

revision 264 by guez, Mon Feb 5 10:39:38 2018 UTC 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 123  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 238  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 334  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 456  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 695  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 809  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.264  
changed lines
  Added in v.265
  ViewVC Help
Powered by ViewVC 1.1.21