/[lmdze]/trunk/dyn3d/interpre.f
ViewVC logotype

Diff of /trunk/dyn3d/interpre.f

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

revision 82 by guez, Wed Mar 5 14:57:53 2014 UTC revision 105 by guez, Thu Sep 4 10:40:24 2014 UTC
# Line 13  SUBROUTINE interpre(q, qppm, w, fluxwppm Line 13  SUBROUTINE interpre(q, qppm, w, fluxwppm
13    USE conf_gcm_m    USE conf_gcm_m
14    USE comgeom    USE comgeom
15    USE temps    USE temps
   USE ener  
16    IMPLICIT NONE    IMPLICIT NONE
17    
18    ! ---------------------------------------------------    ! ---------------------------------------------------
# Line 37  SUBROUTINE interpre(q, qppm, w, fluxwppm Line 36  SUBROUTINE interpre(q, qppm, w, fluxwppm
36    REAL fluxw(iip1, jjp1, llm)    REAL fluxw(iip1, jjp1, llm)
37    REAL smass(iip1, jjp1)    REAL smass(iip1, jjp1)
38    ! ----------------------------------------------------    ! ----------------------------------------------------
39    INTEGER l, ij, i, j    INTEGER l, i, j
40    
41    ! CALCUL DE LA PRESSION DE SURFACE    ! CALCUL DE LA PRESSION DE SURFACE
42    ! Les coefficients ap et bp sont passés en common    ! Les coefficients ap et bp sont passés en common
Legend:
Removed from v.82  
changed lines
  Added in v.105
  ViewVC Help
Powered by ViewVC 1.1.21