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) |
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) |
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 |
|
|