mod_station_timeseries::putvar Interface Reference

Public Member Functions
subroutine	putvar1d_int (i1, i2, n1, n1gl, kt, k1, map_type, var, nc_fid, vid, myid, nprocs, ipt, stk)
subroutine	putvar1d_real (i1, i2, n1, n1gl, kt, k1, map_type, var, nc_fid, vid, myid, nprocs, ipt, stk)
subroutine	putvar2d_int (i1, i2, n1, n1gl, kt, k1, map_type, var, nc_fid, vid, myid, nprocs, ipt, stk)
subroutine	putvar2d_real (i1, i2, n1, n1gl, kt, k1, map_type, var, nc_fid, vid, myid, nprocs, ipt, stk)

Detailed Description

Definition at line 91 of file mod_station_timeseries.f90.

Member Function/Subroutine Documentation

putvar1d_int()

subroutine mod_station_timeseries::putvar::putvar1d_int	(	integer, intent(in)	i1,
		integer, intent(in)	i2,
		integer, intent(in)	n1,
		integer, intent(in)	n1gl,
		integer, intent(in)	kt,
		integer, intent(in)	k1,
		character(len=*), intent(in)	map_type,
		integer, dimension(i1:i2)	var,
		integer, intent(in)	nc_fid,
		integer, intent(in)	vid,
		integer, intent(in)	myid,
		integer, intent(in)	nprocs,
		integer, intent(in)	ipt,
		integer, intent(in)	stk
	)

Definition at line 825 of file mod_station_timeseries.f90.

   
   !------------------------------------------------------------------------------|
   implicit none
   integer, intent(in) :: i1,i2,n1,n1gl,kt,k1,nc_fid,vid,myid,nprocs&
        &,ipt, stk
   character(len=*),intent(in)   :: map_type
   INTEGER, dimension(i1:i2) :: var
   
   INTEGER, allocatable, dimension(:,:) :: temp
   
   allocate(temp(i1:i2,kt))
   temp(i1:i2,kt)= var
   
   call putvar2d_int(i1,i2,n1,n1gl,kt,k1,map_type,temp,nc_fid,vid&
        &,myid,nprocs,ipt, stk)
   
   deallocate(temp)
   

putvar1d_real()

subroutine mod_station_timeseries::putvar::putvar1d_real	(	integer, intent(in)	i1,
		integer, intent(in)	i2,
		integer, intent(in)	n1,
		integer, intent(in)	n1gl,
		integer, intent(in)	kt,
		integer, intent(in)	k1,
		character(len=*), intent(in)	map_type,
		real(sp), dimension(i1:i2)	var,
		integer, intent(in)	nc_fid,
		integer, intent(in)	vid,
		integer, intent(in)	myid,
		integer, intent(in)	nprocs,
		integer, intent(in)	ipt,
		integer, intent(in)	stk
	)

Definition at line 721 of file mod_station_timeseries.f90.

   
   !------------------------------------------------------------------------------|
   implicit none
   integer, intent(in) :: i1,i2,n1,n1gl,kt,k1,nc_fid,vid,myid,nprocs&
        &,ipt,stk
   character(len=*),intent(in)   :: map_type
   real(sp), dimension(i1:i2) :: var
   
   real(sp), allocatable, dimension(:,:) :: temp

   allocate(temp(i1:i2,kt))
   temp(i1:i2,1)=var

   CALL putvar2d_real(i1,i2,n1,n1gl,kt,k1,map_type,temp,nc_fid,vid&
        &,myid,nprocs,ipt,stk)
   
   deallocate(temp)

putvar2d_int()

subroutine mod_station_timeseries::putvar::putvar2d_int	(	integer, intent(in)	i1,
		integer, intent(in)	i2,
		integer, intent(in)	n1,
		integer, intent(in)	n1gl,
		integer, intent(in)	kt,
		integer, intent(in)	k1,
		character(len=*), intent(in)	map_type,
		integer, dimension(:,:), allocatable	var,
		integer, intent(in)	nc_fid,
		integer, intent(in)	vid,
		integer, intent(in)	myid,
		integer, intent(in)	nprocs,
		integer, intent(in)	ipt,
		integer, intent(in)	stk
	)

Definition at line 847 of file mod_station_timeseries.f90.

   
   !------------------------------------------------------------------------------|
   
   use all_vars, only : nvg
   use mod_nctools,only : handle_ncerr
   use mod_utils, only : pstop
   implicit none
   integer, intent(in) :: i1,i2,n1,n1gl,kt,k1,nc_fid,vid,myid,nprocs&
        &,ipt,stk
   character(len=*),intent(in)   :: map_type
   INTEGER, allocatable :: var(:,:)

   INTEGER, allocatable, dimension(:,:) :: temp,gtemp
   integer :: ierr,k1m1,i,j
   integer, allocatable :: dims(:)
   

   k1m1 = k1 
   if(k1m1 == 1)then
     allocate(dims(2))
     dims(1) = 1 
     dims(2) = stk
   else
     allocate(dims(3))
     dims(1) = 1 
     dims(2) = 1 
     dims(3) = stk 
   end if
     

   if(map_type(1:1) /= "e" .and. map_type(1:1) /= "n")then
     write(ipt,*)'map_type input to putvar should be "e" OR "n"'
     call pstop
   end if

   if(nprocs==1)then
     allocate(temp(nsta,k1m1))

     if(map_type(1:1) == 'n' .and. trim(location_type) == 'node')then
      do i=1,nsta
       temp(i,1:k1m1) = var(node_sta(i),1:k1m1)
      end do  
     else if(map_type(1:1) == 'e' .and. trim(location_type) == 'cell')then
      do i=1,nsta
       temp(i,1:k1m1) = var(element_sta(i),1:k1m1)
      end do  
     else if(map_type(1:1) == 'n' .and. trim(location_type) == 'cell')then
      do i=1,nsta
       temp(i,:) = 0.0_sp
       do j =1,3
        temp(i,1:k1m1) = temp(i,1:k1m1) + var(nvg(element_sta(i),j),1:k1m1)
       end do
       temp(i,:) = temp(i,:)/3.0_sp
      end do   
     else if(map_type(1:1) == 'e' .and. trim(location_type) == 'node')then
      do i=1,nsta
       temp(i,:) = 0.0_sp
       do j =1, ntvegl(node_sta(i))
        temp(i,1:k1m1) = temp(i,1:k1m1) + var(nbvegl(node_sta(i),j),1:k1m1)
       end do
       temp(i,:) = temp(i,:)/ntvegl(node_sta(i))
      end do   
     end if
   end if


!   if(myid /= 1) return
   if(myid == 1) then
     ierr = nf90_put_var(nc_fid,vid,temp,start=dims)
     if(ierr /= nf90_noerr)then
       call handle_ncerr(ierr,"error writing variable to netcdf")
     end if
   end if  
   deallocate(dims,temp)

   return

putvar2d_real()

subroutine mod_station_timeseries::putvar::putvar2d_real	(	integer, intent(in)	i1,
		integer, intent(in)	i2,
		integer, intent(in)	n1,
		integer, intent(in)	n1gl,
		integer, intent(in)	kt,
		integer, intent(in)	k1,
		character(len=*), intent(in)	map_type,
		real(sp), dimension(:,:), allocatable	var,
		integer, intent(in)	nc_fid,
		integer, intent(in)	vid,
		integer, intent(in)	myid,
		integer, intent(in)	nprocs,
		integer, intent(in)	ipt,
		integer, intent(in)	stk
	)

Definition at line 744 of file mod_station_timeseries.f90.

!------------------------------------------------------------------------------|

   use all_vars, only : nvg
   use mod_nctools,only : handle_ncerr
   use mod_types
   use mod_utils, only : pstop
   implicit none
   integer, intent(in) :: i1,i2,n1,n1gl,kt,k1,nc_fid,vid,myid,nprocs&
        &,ipt, stk
   character(len=*),intent(in)   :: map_type
   real(sp), allocatable :: var(:,:)

   real(sp), allocatable, dimension(:,:) :: temp,gtemp
   integer :: ierr,k1m1,i,j
   integer, allocatable :: dims(:)
   

   k1m1 = k1 
   if(k1m1 == 1)then
     allocate(dims(2))
     dims(1) = 1 
     dims(2) = stk
   else
     allocate(dims(3))
     dims(1) = 1 
     dims(2) = 1 
     dims(3) = stk      
   end if
     

   if(map_type(1:1) /= "e" .and. map_type(1:1) /= "n")then
     write(ipt,*)'map_type input to putvar should be "e" OR "n"'
     call pstop
   end if

   if(nprocs==1)then
     allocate(temp(nsta,k1m1))  

     if(map_type(1:1) == 'n' .and. trim(location_type) == 'node')then
      do i=1,nsta
       temp(i,1:k1m1) = var(node_sta(i),1:k1m1)
      end do  
     else if(map_type(1:1) == 'e' .and. trim(location_type) == 'cell')then
      do i=1,nsta
       temp(i,1:k1m1) = var(element_sta(i),1:k1m1)
      end do  
     else if(map_type(1:1) == 'n' .and. trim(location_type) == 'cell')then
      do i=1,nsta
       temp(i,:) = 0.0_sp
       do j =1,3
        temp(i,1:k1m1) = temp(i,1:k1m1) + var(nvg(element_sta(i),j),1:k1m1)
       end do
       temp(i,:) = temp(i,:)/3.0_sp
      end do   
     else if(map_type(1:1) == 'e' .and. trim(location_type) == 'node')then
      do i=1,nsta
       temp(i,:) = 0.0_sp
       do j =1, ntvegl(node_sta(i))
        temp(i,1:k1m1) = temp(i,1:k1m1) + var(nbvegl(node_sta(i),j),1:k1m1)
       end do
       temp(i,:) = temp(i,:)/ntvegl(node_sta(i))
      end do   
     end if
   end if


!   if(myid /= 1) return
   if(myid == 1) then
     ierr = nf90_put_var(nc_fid,vid,temp,start=dims)
     if(ierr /= nf90_noerr)then
       call handle_ncerr(ierr,"error writing variable to netcdf")
     end if
   end if  
   deallocate(dims,temp)

   return

---

The documentation for this interface was generated from the following file:

• FVCOMg01/mod_station_timeseries.f90