/[lmdze]/trunk/phylmd/Interface_surf/clqh.f
ViewVC logotype

Diff of /trunk/phylmd/Interface_surf/clqh.f

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

revision 286 by guez, Tue Jul 24 15:22:48 2018 UTC revision 290 by guez, Tue Jul 24 16:57:36 2018 UTC
# Line 134  contains Line 134  contains
134      h = RCPD * t * pkf      h = RCPD * t * pkf
135    
136      ! Convertir les coefficients en variables convenables au calcul:      ! Convertir les coefficients en variables convenables au calcul:
137      forall (k = 2:klev) zx_coef(:, k) = coef(:, k) * RG &      forall (k = 2:klev) zx_coef(:, k) = coef(:, k) &
138           / (pplay(:, k - 1) - pplay(:, k)) &           / (pplay(:, k - 1) - pplay(:, k)) &
139           * (paprs(:, k) * 2 / (t(:, k) + t(:, k - 1)) / RD)**2 * dtime * RG           * (paprs(:, k) * 2 / (t(:, k) + t(:, k - 1)) / RD)**2 * dtime * RG**2
140    
141      ! Preparer les flux lies aux contre-gardients      ! Preparer les flux lies aux contre-gardients
142      forall (k = 2:klev) gamah(:, k) = gamt(:, k) * (RD * (t(:, k - 1) &      forall (k = 2:klev) gamah(:, k) = gamt(:, k) * (RD * (t(:, k - 1) &
Legend:
Removed from v.286  
changed lines
  Added in v.290
  ViewVC Help
Powered by ViewVC 1.1.21