/[lmdze]/trunk/Sources/dyn3d/pentes_ini.f
ViewVC logotype

Diff of /trunk/Sources/dyn3d/pentes_ini.f

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

trunk/dyn3d/pentes_ini.f90 revision 81 by guez, Wed Mar 5 14:38:41 2014 UTC trunk/Sources/dyn3d/pentes_ini.f revision 139 by guez, Tue May 26 17:46:03 2015 UTC
# Line 3  Line 3 
3  ! 12:53:07 lmdzadmin Exp $  ! 12:53:07 lmdzadmin Exp $
4    
5  SUBROUTINE pentes_ini(q, w, masse, pbaru, pbarv, mode)  SUBROUTINE pentes_ini(q, w, masse, pbaru, pbarv, mode)
6    USE dimens_m  
   USE paramet_m  
7    USE comconst    USE comconst
8      USE dynetat0_m, only: rlonv, rlonu
9      USE dimens_m
10    USE disvert_m    USE disvert_m
   USE comgeom  
11    USE nr_util, ONLY: pi    USE nr_util, ONLY: pi
12      USE paramet_m
13    
14    IMPLICIT NONE    IMPLICIT NONE
15    
16    ! =======================================================================    ! =======================================================================
# Line 53  SUBROUTINE pentes_ini(q, w, masse, pbaru Line 55  SUBROUTINE pentes_ini(q, w, masse, pbaru
55    REAL dyn1, dyn2, dys1, dys2    REAL dyn1, dyn2, dys1, dys2
56    REAL qpn, qps, dqzpn, dqzps    REAL qpn, qps, dqzpn, dqzps
57    REAL smn, sms, s0n, s0s, sxn(iip1), sxs(iip1)    REAL smn, sms, s0n, s0s, sxn(iip1), sxs(iip1)
58    REAL qmin, zq, pente_max    REAL qmin, pente_max
59    
60    REAL ssum    REAL ssum
61    INTEGER ismax, ismin, lati, latf    INTEGER ismax, ismin, lati, latf
Legend:
Removed from v.81  
changed lines
  Added in v.139
  ViewVC Help
Powered by ViewVC 1.1.21