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

Diff of /trunk/phylmd/phyredem.f

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

revision 43 by guez, Fri Apr 8 12:43:31 2011 UTC revision 54 by guez, Tue Dec 6 15:07:04 2011 UTC
# Line 128  contains Line 128  contains
128      call nf95_enddef(nid)      call nf95_enddef(nid)
129      call nf95_put_var(nid, nvarid, pctsrf(:, is_sic))      call nf95_put_var(nid, nvarid, pctsrf(:, is_sic))
130    
   
   
131      DO nsrf = 1, nbsrf      DO nsrf = 1, nbsrf
132         IF (nsrf<=99) THEN         IF (nsrf<=99) THEN
133            WRITE (str2, '(i2.2)') nsrf            WRITE (str2, '(i2.2)') nsrf
# Line 245  contains Line 243  contains
243         call nf95_put_var(nid, nvarid, evap(:, nsrf))         call nf95_put_var(nid, nvarid, evap(:, nsrf))
244      END DO      END DO
245    
   
246      DO nsrf = 1, nbsrf      DO nsrf = 1, nbsrf
247         IF (nsrf<=99) THEN         IF (nsrf<=99) THEN
248            WRITE (str2, '(i2.2)') nsrf            WRITE (str2, '(i2.2)') nsrf
# Line 261  contains Line 258  contains
258         call nf95_put_var(nid, nvarid, snow(:, nsrf))         call nf95_put_var(nid, nvarid, snow(:, nsrf))
259      END DO      END DO
260    
   
261      call nf95_redef(nid)      call nf95_redef(nid)
262      call nf95_def_var(nid, 'RADS', nf90_float, idim2, nvarid)      call nf95_def_var(nid, 'RADS', nf90_float, idim2, nvarid)
263      call nf95_put_att(nid, nvarid, 'title', &      call nf95_put_att(nid, nvarid, 'title', &
# Line 404  contains Line 400  contains
400      call nf95_enddef(nid)      call nf95_enddef(nid)
401      call nf95_put_var(nid, nvarid, run_off_lic_0)      call nf95_put_var(nid, nvarid, run_off_lic_0)
402    
   
403      call nf95_close(nid)      call nf95_close(nid)
404    
405    END SUBROUTINE phyredem    END SUBROUTINE phyredem
Legend:
Removed from v.43  
changed lines
  Added in v.54
  ViewVC Help
Powered by ViewVC 1.1.21