bibio/Writefield/writefield_gen.f

module writefield_gen_m

  implicit none

contains

  subroutine WriteField_gen(name, Field, dimx, dimy, dimz)

    use CreateNewField_m, only: CreateNewField
    use GetFieldIndex_m, only: GetFieldIndex
    USE netcdf95, ONLY: nf95_put_var
    USE write_field, ONLY: fieldid, fieldindex, fieldvarid

    character(len=*) :: name
    integer :: dimx, dimy, dimz
    real, dimension(dimx, dimy, dimz) :: Field
    integer :: index
    integer :: start(4)
    integer :: count(4)

    !------------------------------------------------------------

    Index=GetFieldIndex(name)
    if (Index==-1) then
       call CreateNewField(name, dimx, dimy, dimz)
       Index=GetFieldIndex(name)
    else
       FieldIndex(Index)=FieldIndex(Index)+1
    endif

    start(1)=1
    start(2)=1
    start(3)=1
    start(4)=FieldIndex(Index)

    count(1)=dimx
    count(2)=dimy
    count(3)=dimz
    count(4)=1

    call NF95_PUT_VAR(FieldId(Index), FieldVarId(Index), Field, start, count)

  end subroutine WriteField_gen

end module writefield_gen_m
1	module writefield_gen_m
2
3	implicit none
4
5	contains
6
7	subroutine WriteField_gen(name, Field, dimx, dimy, dimz)
8
9	use CreateNewField_m, only: CreateNewField
10	use GetFieldIndex_m, only: GetFieldIndex
11	USE netcdf95, ONLY: nf95_put_var
12	USE write_field, ONLY: fieldid, fieldindex, fieldvarid
13
14	character(len=*) :: name
15	integer :: dimx, dimy, dimz
16	real, dimension(dimx, dimy, dimz) :: Field
17	integer :: index
18	integer :: start(4)
19	integer :: count(4)
20
21	!------------------------------------------------------------
22
23	Index=GetFieldIndex(name)
24	if (Index==-1) then
25	call CreateNewField(name, dimx, dimy, dimz)
26	Index=GetFieldIndex(name)
27	else
28	FieldIndex(Index)=FieldIndex(Index)+1
29	endif
30
31	start(1)=1
32	start(2)=1
33	start(3)=1
34	start(4)=FieldIndex(Index)
35
36	count(1)=dimx
37	count(2)=dimy
38	count(3)=dimz
39	count(4)=1
40
41	call NF95_PUT_VAR(FieldId(Index), FieldVarId(Index), Field, start, count)
42
43	end subroutine WriteField_gen
44
45	end module writefield_gen_m