/[lmdze]/trunk/phylmd/fisrtilp.f
ViewVC logotype

Diff of /trunk/phylmd/fisrtilp.f

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

revision 3 by guez, Wed Feb 27 13:16:39 2008 UTC revision 10 by guez, Fri Apr 18 14:45:53 2008 UTC
# Line 29  c Arguments: Line 29  c Arguments:
29  c  c
30        REAL dtime ! intervalle du temps (s)        REAL dtime ! intervalle du temps (s)
31        REAL, intent(in):: paprs(klon,klev+1) ! pression a inter-couche        REAL, intent(in):: paprs(klon,klev+1) ! pression a inter-couche
32        REAL pplay(klon,klev) ! pression au milieu de couche        REAL, intent(in):: pplay(klon,klev) ! pression au milieu de couche
33        REAL t(klon,klev) ! temperature (K)        REAL t(klon,klev) ! temperature (K)
34        REAL q(klon,klev) ! humidite specifique (kg/kg)        REAL q(klon,klev) ! humidite specifique (kg/kg)
35        REAL d_t(klon,klev) ! incrementation de la temperature (K)        REAL d_t(klon,klev) ! incrementation de la temperature (K)
# Line 96  c--------------------------------------- Line 96  c---------------------------------------
96  c  c
97  cAA Variables traceurs:  cAA Variables traceurs:
98  cAA  Provisoire !!! Parametres alpha du lessivage  cAA  Provisoire !!! Parametres alpha du lessivage
99  cAA  A priori on a 4 scavenging # possibles  cAA  A priori on a 4 scavenging numbers possibles
100  c  c
101        REAL a_tr_sca(4)        REAL a_tr_sca(4)
102        save a_tr_sca        save a_tr_sca
Legend:
Removed from v.3  
changed lines
  Added in v.10
  ViewVC Help
Powered by ViewVC 1.1.21