/[lmdze]/trunk/bibio/writefield.f
ViewVC logotype

Diff of /trunk/bibio/writefield.f

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

revision 112 by guez, Wed Sep 17 11:57:10 2014 UTC revision 113 by guez, Thu Sep 18 19:56:46 2014 UTC
# Line 46  contains Line 46  contains
46    
47    subroutine WriteField2d(name,Field)    subroutine WriteField2d(name,Field)
48    
49        use netcdf, only: nf90_sync
50    
51      character(len=*), intent(in):: name      character(len=*), intent(in):: name
52      real, intent(in):: Field(:, :)      real, intent(in):: Field(:, :)
53    
54      ! Local:      ! Local:
55      integer index      integer index, status
56    
57      !-------------------------------------------      !-------------------------------------------
58    
# Line 66  contains Line 68  contains
68    
69      call NF95_PUT_VAR(Ncid(Index), Varid = 1, values = Field, &      call NF95_PUT_VAR(Ncid(Index), Varid = 1, values = Field, &
70           start = (/1, 1, Record(Index)/))           start = (/1, 1, Record(Index)/))
71        status = nf90_sync(Ncid(Index))
72    
73    end subroutine WriteField2d    end subroutine WriteField2d
74    
Legend:
Removed from v.112  
changed lines
  Added in v.113
  ViewVC Help
Powered by ViewVC 1.1.21