--- trunk/libf/phylmd/phyredem.f90	2008/10/15 16:51:38	21
+++ trunk/libf/phylmd/phyredem.f90	2012/07/26 14:37:37	62
@@ -5,10 +5,10 @@
 contains
 
   SUBROUTINE phyredem(fichnom, rlat, rlon, pctsrf, tsol, tsoil, tslab, &
-       seaice, qsurf, qsol, snow, albedo, alblw, evap, rain_fall,&
-       snow_fall, solsw, sollw, fder, radsol, frugs, agesno, zmea,&
-       zstd, zsig, zgam, zthe, zpic, zval, t_ancien, q_ancien,&
-       rnebcon, ratqs, clwcon, run_off_lic_0)
+       seaice, qsurf, qsol, snow, albedo, alblw, evap, rain_fall, snow_fall, &
+       solsw, sollw, fder, radsol, frugs, agesno, zmea, zstd, zsig, zgam, &
+       zthe, zpic, zval, t_ancien, q_ancien, rnebcon, ratqs, clwcon, &
+       run_off_lic_0)
 
     ! From phylmd/phyredem.F, v 1.3 2005/05/25 13:10:09
     ! Auteur(s) Z.X. Li (LMD/CNRS) date: 19930818
@@ -23,20 +23,20 @@
     USE netcdf, ONLY : nf90_clobber, nf90_global, nf90_float
 
     CHARACTER(len=*) fichnom
-    REAL, INTENT (IN) :: rlat(klon), rlon(klon)
+    REAL, INTENT(IN):: rlat(klon), rlon(klon)
     REAL :: tsol(klon, nbsrf)
     REAL :: tsoil(klon, nsoilmx, nbsrf)
 
     REAL :: tslab(klon), seaice(klon) !IM "slab" ocean
     REAL :: qsurf(klon, nbsrf)
-    REAL :: qsol(klon)
+    REAL, intent(in):: qsol(klon)
     REAL :: snow(klon, nbsrf)
     REAL :: albedo(klon, nbsrf)
 
     REAL :: alblw(klon, nbsrf)
 
     REAL :: evap(klon, nbsrf)
-    REAL :: rain_fall(klon)
+    REAL, INTENT(IN):: rain_fall(klon)
     REAL :: snow_fall(klon)
     REAL :: solsw(klon)
     REAL :: sollw(klon)
@@ -128,8 +128,6 @@
     call nf95_enddef(nid)
     call nf95_put_var(nid, nvarid, pctsrf(:, is_sic))
 
-
-
     DO nsrf = 1, nbsrf
        IF (nsrf<=99) THEN
           WRITE (str2, '(i2.2)') nsrf
@@ -245,7 +243,6 @@
        call nf95_put_var(nid, nvarid, evap(:, nsrf))
     END DO
 
-
     DO nsrf = 1, nbsrf
        IF (nsrf<=99) THEN
           WRITE (str2, '(i2.2)') nsrf
@@ -261,7 +258,6 @@
        call nf95_put_var(nid, nvarid, snow(:, nsrf))
     END DO
 
-
     call nf95_redef(nid)
     call nf95_def_var(nid, 'RADS', nf90_float, idim2, nvarid)
     call nf95_put_att(nid, nvarid, 'title', &
@@ -404,7 +400,6 @@
     call nf95_enddef(nid)
     call nf95_put_var(nid, nvarid, run_off_lic_0)
 
-
     call nf95_close(nid)
 
   END SUBROUTINE phyredem