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

Diff of /trunk/phylmd/clqh.f

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

revision 7 by guez, Mon Mar 31 12:24:17 2008 UTC revision 12 by guez, Mon Jul 21 16:05:07 2008 UTC
# Line 38  c======================================= Line 38  c=======================================
38    
39  c Arguments:  c Arguments:
40        INTEGER knon        INTEGER knon
41        REAL dtime              ! intervalle du temps (s)        REAL, intent(in):: dtime              ! intervalle du temps (s)
42        real date0        real date0
43        REAL u1lay(klon)        ! vitesse u de la 1ere couche (m/s)        REAL u1lay(klon)        ! vitesse u de la 1ere couche (m/s)
44        REAL v1lay(klon)        ! vitesse v de la 1ere couche (m/s)        REAL v1lay(klon)        ! vitesse v de la 1ere couche (m/s)
# Line 71  c                               indique Line 71  c                               indique
71        real cufi(klon), cvfi(klon)        real cufi(klon), cvfi(klon)
72        logical ok_veget        logical ok_veget
73        REAL co2_ppm            ! taux CO2 atmosphere        REAL co2_ppm            ! taux CO2 atmosphere
74        character*6 ocean        character(len=*), intent(in):: ocean
75        integer npas, nexca        integer npas, nexca
76  c -- LOOP  c -- LOOP
77         REAL yu10mx(klon)         REAL yu10mx(klon)
# Line 144  c Rajout pour l'interface Line 144  c Rajout pour l'interface
144        real sollw(klon), sollwdown(klon), swnet(klon), swdown(klon)        real sollw(klon), sollwdown(klon), swnet(klon), swdown(klon)
145        real p1lay(klon)        real p1lay(klon)
146  c$$$C PB ajout pour soil  c$$$C PB ajout pour soil
147        LOGICAL soil_model        LOGICAL, intent(in):: soil_model
148        REAL tsoil(klon, nsoilmx)        REAL tsoil(klon, nsoilmx)
149        REAL qsol(klon)        REAL qsol(klon)
150    
Legend:
Removed from v.7  
changed lines
  Added in v.12
  ViewVC Help
Powered by ViewVC 1.1.21