/[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 154 by guez, Tue May 26 17:46:03 2015 UTC revision 155 by guez, Wed Jul 8 17:03:45 2015 UTC
# Line 39  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.154  
changed lines
  Added in v.155
  ViewVC Help
Powered by ViewVC 1.1.21