5 |
contains |
contains |
6 |
|
|
7 |
SUBROUTINE phyredem(fichnom, pctsrf, tsol, tsoil, tslab, seaice, qsurf, & |
SUBROUTINE phyredem(fichnom, pctsrf, tsol, tsoil, tslab, seaice, qsurf, & |
8 |
qsol, snow, albedo, alblw, evap, rain_fall, snow_fall, solsw, sollw, & |
qsol, snow, albedo, evap, rain_fall, snow_fall, solsw, sollw, & |
9 |
fder, radsol, frugs, agesno, zmea, zstd, zsig, zgam, zthe, zpic, zval, & |
fder, radsol, frugs, agesno, zmea, zstd, zsig, zgam, zthe, zpic, zval, & |
10 |
t_ancien, q_ancien, rnebcon, ratqs, clwcon, run_off_lic_0, sig1, w01) |
t_ancien, q_ancien, rnebcon, ratqs, clwcon, run_off_lic_0, sig1, w01) |
11 |
|
|
37 |
|
|
38 |
REAL, INTENT(IN):: snow(klon, nbsrf) |
REAL, INTENT(IN):: snow(klon, nbsrf) |
39 |
REAL, INTENT(IN):: albedo(klon, nbsrf) |
REAL, INTENT(IN):: albedo(klon, nbsrf) |
|
REAL, INTENT(IN):: alblw(klon, nbsrf) |
|
40 |
REAL, INTENT(IN):: evap(klon, nbsrf) |
REAL, INTENT(IN):: evap(klon, nbsrf) |
41 |
REAL, INTENT(IN):: rain_fall(klon) |
REAL, INTENT(IN):: rain_fall(klon) |
42 |
REAL, INTENT(IN):: snow_fall(klon) |
REAL, INTENT(IN):: snow_fall(klon) |
175 |
call nf95_put_var(ncid, varid, albedo(:, nsrf)) |
call nf95_put_var(ncid, varid, albedo(:, nsrf)) |
176 |
END DO |
END DO |
177 |
|
|
|
!IM BEG albedo LW |
|
|
DO nsrf = 1, nbsrf |
|
|
IF (nsrf<=99) THEN |
|
|
WRITE (str2, '(i2.2)') nsrf |
|
|
call nf95_redef(ncid) |
|
|
call nf95_def_var(ncid, 'ALBLW'//str2, nf90_float, idim2, varid) |
|
|
call nf95_put_att(ncid, varid, 'title', & |
|
|
'albedo LW de surface No.'//str2) |
|
|
call nf95_enddef(ncid) |
|
|
ELSE |
|
|
PRINT *, 'Trop de sous-mailles' |
|
|
STOP 1 |
|
|
END IF |
|
|
call nf95_put_var(ncid, varid, alblw(:, nsrf)) |
|
|
END DO |
|
|
!IM END albedo LW |
|
|
|
|
178 |
DO nsrf = 1, nbsrf |
DO nsrf = 1, nbsrf |
179 |
IF (nsrf<=99) THEN |
IF (nsrf<=99) THEN |
180 |
WRITE (str2, '(i2.2)') nsrf |
WRITE (str2, '(i2.2)') nsrf |