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

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

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

revision 134 by guez, Wed Apr 29 15:47:56 2015 UTC revision 155 by guez, Wed Jul 8 17:03:45 2015 UTC
# Line 14  SUBROUTINE limy(s0, sy, sm, pente_max) Line 14  SUBROUTINE limy(s0, sy, sm, pente_max)
14    
15    
16    ! --------------------------------------------------------------------    ! --------------------------------------------------------------------
   USE dimens_m  
   USE paramet_m  
17    USE comconst    USE comconst
18    USE disvert_m    use comgeom, only: aire
19    USE conf_gcm_m    USE conf_gcm_m
20    USE comgeom    USE dimens_m
21      USE disvert_m
22      USE dynetat0_m, only: rlonv, rlonu
23    USE nr_util, ONLY: pi    USE nr_util, ONLY: pi
24      USE paramet_m
25    
26    IMPLICIT NONE    IMPLICIT NONE
27    
28    
# Line 37  SUBROUTINE limy(s0, sy, sm, pente_max) Line 39  SUBROUTINE limy(s0, sy, sm, pente_max)
39    
40    REAL q(ip1jmp1, llm)    REAL q(ip1jmp1, llm)
41    REAL airej2, airejjm, airescb(iim), airesch(iim)    REAL airej2, airejjm, airescb(iim), airesch(iim)
42    REAL sigv, dyq(ip1jmp1), dyqv(ip1jm)    REAL dyq(ip1jmp1), dyqv(ip1jm)
43    REAL adyqv(ip1jm), dyqmax(ip1jmp1)    REAL adyqv(ip1jm), dyqmax(ip1jmp1)
   REAL qbyv(ip1jm, llm)  
44    
45    REAL qpns, qpsn, apn, aps, dyn1, dys1, dyn2, dys2    REAL qpns, qpsn
46    LOGICAL extremum, first    LOGICAL first
47    SAVE first    SAVE first
48    
   REAL convpn, convps, convmpn, convmps  
49    REAL sinlon(iip1), sinlondlon(iip1)    REAL sinlon(iip1), sinlondlon(iip1)
50    REAL coslon(iip1), coslondlon(iip1)    REAL coslon(iip1), coslondlon(iip1)
51    SAVE sinlon, coslon, sinlondlon, coslondlon    SAVE sinlon, coslon, sinlondlon, coslondlon
Legend:
Removed from v.134  
changed lines
  Added in v.155
  ViewVC Help
Powered by ViewVC 1.1.21