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 |
|
|
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 |
|
|