/[lmdze]/trunk/Sources/phylmd/vdif_kcay.f
ViewVC logotype

Diff of /trunk/Sources/phylmd/vdif_kcay.f

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

revision 145 by guez, Tue Jun 16 15:23:29 2015 UTC revision 178 by guez, Fri Mar 11 18:47:26 2016 UTC
# Line 107  contains Line 107  contains
107      ! gnmax : borne superieure de gn (0.0233)      ! gnmax : borne superieure de gn (0.0233)
108      ! gninf : vrai si gn est en dessous de sa borne inferieure      ! gninf : vrai si gn est en dessous de sa borne inferieure
109      ! gnsup : vrai si gn est en dessus de sa borne superieure      ! gnsup : vrai si gn est en dessus de sa borne superieure
     ! gm : drole d'objet bien utile  
110      ! ri : nombre de Richardson      ! ri : nombre de Richardson
111      ! sn : coefficient de stabilite pour n      ! sn : coefficient de stabilite pour n
112      ! snq2 : premier terme du developement limite de sn en q2      ! snq2 : premier terme du developement limite de sn en q2
# Line 119  contains Line 118  contains
118      REAL gnmax      REAL gnmax
119      LOGICAL gninf      LOGICAL gninf
120      LOGICAL gnsup      LOGICAL gnsup
     REAL gm  
     ! REAL ri(klon, klev+1)  
121      REAL sn(klon, klev+1)      REAL sn(klon, klev+1)
122      REAL snq2(klon, klev+1)      REAL snq2(klon, klev+1)
123      REAL sm(klon, klev+1)      REAL sm(klon, klev+1)
# Line 326  contains Line 323  contains
323    
324            gn=-long(igrid, ilev)**2 / q2(igrid, ilev) &            gn=-long(igrid, ilev)**2 / q2(igrid, ilev) &
325                 * n2(igrid, ilev)                 * n2(igrid, ilev)
           gm=long(igrid, ilev)**2 / q2(igrid, ilev) &  
                * m2(igrid, ilev)  
   
326            gninf=.false.            gninf=.false.
327            gnsup=.false.            gnsup=.false.
328            long(igrid, ilev)=long(igrid, ilev)            long(igrid, ilev)=long(igrid, ilev)
Legend:
Removed from v.145  
changed lines
  Added in v.178
  ViewVC Help
Powered by ViewVC 1.1.21