--- trunk/libf/phylmd/phyredem.f90	2008/10/15 16:51:38	21
+++ trunk/libf/phylmd/phyredem.f90	2011/12/06 15:07:04	54
@@ -29,7 +29,7 @@
 
     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)
 
@@ -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