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

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

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

revision 156 by guez, Thu Jul 16 17:39:10 2015 UTC revision 157 by guez, Mon Jul 20 16:01:49 2015 UTC
# Line 53  SUBROUTINE prather(q, w, masse, pbaru, p Line 53  SUBROUTINE prather(q, w, masse, pbaru, p
53    
54    REAL sinlon(iip1), sinlondlon(iip1)    REAL sinlon(iip1), sinlondlon(iip1)
55    REAL coslon(iip1), coslondlon(iip1)    REAL coslon(iip1), coslondlon(iip1)
   REAL qmin, qmax  
   SAVE qmin, qmax  
56    SAVE sinlon, coslon, sinlondlon, coslondlon    SAVE sinlon, coslon, sinlondlon, coslondlon
57    REAL dyn1, dyn2, dys1, dys2, qpn, qps, dqzpn, dqzps    REAL dyn1, dyn2, dys1, dys2, qpn, qps, dqzpn, dqzps
58    REAL masn, mass    REAL masn, mass
# Line 68  SUBROUTINE prather(q, w, masse, pbaru, p Line 66  SUBROUTINE prather(q, w, masse, pbaru, p
66    
67    
68    DATA first/.TRUE./    DATA first/.TRUE./
   DATA qmin, qmax/ -1.E33, 1.E33/  
   
69    
70    ! ==========================================================================    ! ==========================================================================
71    ! ==========================================================================    ! ==========================================================================
Legend:
Removed from v.156  
changed lines
  Added in v.157
  ViewVC Help
Powered by ViewVC 1.1.21