mod_netcdf::netcdf_put_fvar Interface Reference

Public Member Functions
subroutine	netcdf_put_fvar_0dp (ng, model, ncname, myvarname, a, start, total, ncid, varid)
subroutine	netcdf_put_fvar_1dp (ng, model, ncname, myvarname, a, start, total, ncid, varid)
subroutine	netcdf_put_fvar_2dp (ng, model, ncname, myvarname, a, start, total, ncid, varid)
subroutine	netcdf_put_fvar_3dp (ng, model, ncname, myvarname, a, start, total, ncid, varid)
subroutine	netcdf_put_fvar_0d (ng, model, ncname, myvarname, a, start, total, ncid, varid)
subroutine	netcdf_put_fvar_1d (ng, model, ncname, myvarname, a, start, total, ncid, varid)
subroutine	netcdf_put_fvar_2d (ng, model, ncname, myvarname, a, start, total, ncid, varid)
subroutine	netcdf_put_fvar_3d (ng, model, ncname, myvarname, a, start, total, ncid, varid)
subroutine	netcdf_put_fvar_4d (ng, model, ncname, myvarname, a, start, total, ncid, varid)

Detailed Description

Definition at line 82 of file mod_netcdf.F.

Member Function/Subroutine Documentation

netcdf_put_fvar_0d()

subroutine mod_netcdf::netcdf_put_fvar::netcdf_put_fvar_0d	(	integer, intent(in)	ng,
		integer, intent(in)	model,
		character (len=*), intent(in)	ncname,
		character (len=*), intent(in)	myvarname,
		real(r8), intent(in)	a,
		integer, dimension(:), intent(in)	start,
		integer, dimension(:), intent(in)	total,
		integer, intent(in), optional	ncid,
		integer, intent(in), optional	varid )

Definition at line 6956 of file mod_netcdf.F.

!
!=======================================================================
!                                                                      !
!  This routine writes a floating-point scalar variable into a NetCDF  !
!  file.  If the NetCDF ID is not provided, it opens the file, writes  !
!  data, and then closes the file.                                     !
!                                                                      !
!  On Input:                                                           !
!                                                                      !
!     ng           Nested grid number (integer)                        !
!     model        Calling model identifier (integer)                  !
!     ncname       NetCDF file name (string)                           !
!     myVarName    Variable name (string)                              !
!     A            Data value(s) to be written (real)                  !
!     start        Starting index where the first of the data values   !
!                    will be written along each dimension (integer)    !
!     total        Number of data values to be written along each      !
!                    dimension (integer)                               !
!     ncid         NetCDF file ID (integer, OPTIONAL)                  !
!     varid        NetCDF variable ID (integer, OPTIONAL)              !
!                                                                      !
!  On Ouput:                                                           !
!                                                                      !
!     exit_flag    Error flag (integer) stored in MOD_SCALARS          !
!     ioerror      NetCDF return code (integer) stored in MOD_IOUNITS  !
!                                                                      !
!  Notice: This routine must be used to write only nontiled variables. !
!                                                                      !
!=======================================================================
!
!  Imported variable declarations.
!
      integer, intent(in) :: ng, model
 
      integer, intent(in) :: start(:), total(:)
 
      integer, intent(in), optional :: ncid, varid
!
      real(r8), intent(in) :: A
!
      character (len=*), intent(in) :: ncname
      character (len=*), intent(in) :: myVarName
!
!  Local variable declarations.
!
      integer :: my_ncid, my_varid, status
 
#if !defined PARALLEL_IO && defined DISTRIBUTE
      integer, dimension(2) :: ibuffer
#endif
!
      real(r8), dimension(1) :: my_A
!
      character (len=*), parameter :: MyFile =                          &
     &  __FILE__//", netcdf_put_fvar_0d"
!
!-----------------------------------------------------------------------
!  Read in a floating-point scalar variable.
!-----------------------------------------------------------------------
!
!  If file ID is not provided, open file for writing.
!
      IF (.not.PRESENT(ncid)) THEN
        CALL netcdf_open (ng, model, trim(ncname), 1, my_ncid)
        IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
      ELSE
        my_ncid=ncid
      END IF
!
!  If variable ID is not provided, inquire its value.
!
      IF (outthread) THEN
        IF (.not.PRESENT(varid)) THEN
          status=nf90_inq_varid(my_ncid, trim(myvarname), my_varid)
          IF (founderror(status, nf90_noerr, __line__, myfile)) THEN
            WRITE (stdout,10) trim(myvarname), trim(ncname),            &
     &                        trim(sourcefile), nf90_strerror(status)
            exit_flag=3
            ioerror=status
          END IF
        ELSE
          my_varid=varid
        END IF
!
!  Write out data.
!
        IF (exit_flag.eq.noerror) THEN
          IF ((start(1).eq.0).and.(total(1).eq.0)) THEN
            status=nf90_put_var(my_ncid, my_varid, a)
          ELSE
            my_a(1)=a
            status=nf90_put_var(my_ncid, my_varid, my_a, start, total)
          END IF
          IF (founderror(status, nf90_noerr, __line__, myfile)) THEN
            WRITE (stdout,20) trim(myvarname), trim(ncname),            &
     &                        trim(sourcefile), nf90_strerror(status)
            exit_flag=3
            ioerror=status
          END IF
        END IF
      END IF
 
#if !defined PARALLEL_IO && defined DISTRIBUTE
!
!  Broadcast error flags to all processors in the group.
!
      ibuffer(1)=exit_flag
      ibuffer(2)=ioerror
      CALL mp_bcasti (ng, model, ibuffer)
      exit_flag=ibuffer(1)
      ioerror=ibuffer(2)
#endif
!
!  Close input file.
!
      IF (.not.PRESENT(ncid)) THEN
        CALL netcdf_close (ng, model, my_ncid, ncname, .false.)
      END IF
!
  10  FORMAT (/,' NETCDF_PUT_FVAR_0D - error while inquiring ID for ',  &
     &        'variable:',2x,a,/,22x,'in input file:',2x,a,/,22x,       &
     &        'call from:',2x,a,/,22x,a)
  20  FORMAT (/,' NETCDF_PUT_FVAR_0D - error while writing variable:',  &
     &        2x,a,/,22x,'in input file:',2x,a,/,22x,'call from:',2x,a, &
     &        /,22x,a)
!
      RETURN

References mod_scalars::exit_flag, mod_iounits::ioerror, mod_netcdf::netcdf_close(), mod_netcdf::netcdf_open(), mod_scalars::noerror, mod_parallel::outthread, mod_iounits::sourcefile, and mod_iounits::stdout.

Here is the call graph for this function:

netcdf_put_fvar_0dp()

subroutine mod_netcdf::netcdf_put_fvar::netcdf_put_fvar_0dp	(	integer, intent(in)	ng,
		integer, intent(in)	model,
		character (len=*), intent(in)	ncname,
		character (len=*), intent(in)	myvarname,
		real(dp), intent(in)	a,
		integer, dimension(:), intent(in)	start,
		integer, dimension(:), intent(in)	total,
		integer, intent(in), optional	ncid,
		integer, intent(in), optional	varid )

Definition at line 6452 of file mod_netcdf.F.

!
!=======================================================================
!                                                                      !
!  This routine writes a double-precision scalar variable into a       !
!  NetCDF file. If the NetCDF ID is not provided, it opens the file,   !
!  writes data, and then closes the file.                              !
!                                                                      !
!  On Input:                                                           !
!                                                                      !
!     ng           Nested grid number (integer)                        !
!     model        Calling model identifier (integer)                  !
!     ncname       NetCDF file name (string)                           !
!     myVarName    Variable name (string)                              !
!     A            Data value(s) to be written (double precision)      !
!     start        Starting index where the first of the data values   !
!                    will be written along each dimension (integer)    !
!     total        Number of data values to be written along each      !
!                    dimension (integer)                               !
!     ncid         NetCDF file ID (integer, OPTIONAL)                  !
!     varid        NetCDF variable ID (integer, OPTIONAL)              !
!                                                                      !
!  On Ouput:                                                           !
!                                                                      !
!     exit_flag    Error flag (integer) stored in MOD_SCALARS          !
!     ioerror      NetCDF return code (integer) stored in MOD_IOUNITS  !
!                                                                      !
!  Notice: This routine must be used to write only nontiled variables. !
!                                                                      !
!=======================================================================
!
!  Imported variable declarations.
!
      integer, intent(in) :: ng, model
 
      integer, intent(in) :: start(:), total(:)
 
      integer, intent(in), optional :: ncid, varid
!
      real(dp), intent(in) :: A
!
      character (len=*), intent(in) :: ncname
      character (len=*), intent(in) :: myVarName
!
!  Local variable declarations.
!
      integer :: my_ncid, my_varid, status
 
# if !defined PARALLEL_IO && defined DISTRIBUTE
      integer, dimension(2) :: ibuffer
# endif
!
      real(dp), dimension(1) :: my_A
!
      character (len=*), parameter :: MyFile =                          &
     &  __FILE__//", netcdf_put_fvar_0dp"
!
!-----------------------------------------------------------------------
!  Read in a double-precision scalar variable.
!-----------------------------------------------------------------------
!
!  If file ID is not provided, open file for writing.
!
      IF (.not.PRESENT(ncid)) THEN
        CALL netcdf_open (ng, model, trim(ncname), 1, my_ncid)
        IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
      ELSE
        my_ncid=ncid
      END IF
!
!  If variable ID is not provided, inquire its value.
!
      IF (outthread) THEN
        IF (.not.PRESENT(varid)) THEN
          status=nf90_inq_varid(my_ncid, trim(myvarname), my_varid)
          IF (founderror(status, nf90_noerr, __line__, myfile)) THEN
            WRITE (stdout,10) trim(myvarname), trim(ncname),            &
     &                        trim(sourcefile), nf90_strerror(status)
            exit_flag=3
            ioerror=status
          END IF
        ELSE
          my_varid=varid
        END IF
!
!  Write out data.
!
        IF (exit_flag.eq.noerror) THEN
          IF ((start(1).eq.0).and.(total(1).eq.0)) THEN
            status=nf90_put_var(my_ncid, my_varid, a)
          ELSE
            my_a(1)=a
            status=nf90_put_var(my_ncid, my_varid, my_a, start, total)
          END IF
          IF (founderror(status, nf90_noerr, __line__, myfile)) THEN
            WRITE (stdout,20) trim(myvarname), trim(ncname),            &
     &                        trim(sourcefile), nf90_strerror(status)
            exit_flag=3
            ioerror=status
          END IF
        END IF
      END IF
 
# if !defined PARALLEL_IO && defined DISTRIBUTE
!
!  Broadcast error flags to all processors in the group.
!
      ibuffer(1)=exit_flag
      ibuffer(2)=ioerror
      CALL mp_bcasti (ng, model, ibuffer)
      exit_flag=ibuffer(1)
      ioerror=ibuffer(2)
# endif
!
!  Close input file.
!
      IF (.not.PRESENT(ncid)) THEN
        CALL netcdf_close (ng, model, my_ncid, ncname, .false.)
      END IF
!
  10  FORMAT (/,' NETCDF_PUT_FVAR_0DP - error while inquiring ID for ', &
     &        'variable:',2x,a,/,23x,'in input file:',2x,a,/,23x,       &
     &        'call from:',2x,a,/,23x,a)
  20  FORMAT (/,' NETCDF_PUT_FVAR_0DP - error while writing variable:', &
     &        2x,a,/,23x,'in input file:',2x,a,/,23x,'call from:',2x,a, &
     &        /,23x,a)
!
      RETURN

References mod_scalars::exit_flag, mod_iounits::ioerror, mod_netcdf::netcdf_close(), mod_netcdf::netcdf_open(), mod_scalars::noerror, mod_parallel::outthread, mod_iounits::sourcefile, and mod_iounits::stdout.

Here is the call graph for this function:

netcdf_put_fvar_1d()

subroutine mod_netcdf::netcdf_put_fvar::netcdf_put_fvar_1d	(	integer, intent(in)	ng,
		integer, intent(in)	model,
		character (len=*), intent(in)	ncname,
		character (len=*), intent(in)	myvarname,
		real(r8), dimension(:), intent(in)	a,
		integer, dimension(:), intent(in)	start,
		integer, dimension(:), intent(in)	total,
		integer, intent(in), optional	ncid,
		integer, intent(in), optional	varid )

Definition at line 7087 of file mod_netcdf.F.

!
!=======================================================================
!                                                                      !
!  This routine writes a floating-point 1D-array variable into a file. !
!  If the NetCDF ID is not provided,  it opens the file,  writes data, !
!  and then closes the file.                                           !
!                                                                      !
!  On Input:                                                           !
!                                                                      !
!     ng           Nested grid number (integer)                        !
!     model        Calling model identifier (integer)                  !
!     ncname       NetCDF file name (string)                           !
!     myVarName    Variable name (string)                              !
!     A            Data value(s) to be written (real)                  !
!     start        Starting index where the first of the data values   !
!                    will be written along each dimension (integer)    !
!     total        Number of data values to be written along each      !
!                    dimension (integer)                               !
!     ncid         NetCDF file ID (integer, OPTIONAL)                  !
!     varid        NetCDF variable ID (integer, OPTIONAL)              !
!                                                                      !
!  On Ouput:                                                           !
!                                                                      !
!     exit_flag    Error flag (integer) stored in MOD_SCALARS          !
!     ioerror      NetCDF return code (integer) stored in MOD_IOUNITS  !
!                                                                      !
!  Notice: This routine must be used to write only nontiled variables. !
!                                                                      !
!=======================================================================
!
!  Imported variable declarations.
!
      integer, intent(in) :: ng, model
 
      integer, intent(in) :: start(:), total(:)
 
      integer, intent(in), optional :: ncid, varid
!
      real(r8), intent(in) :: A(:)
!
      character (len=*), intent(in) :: ncname
      character (len=*), intent(in) :: myVarName
!
!  Local variable declarations.
!
      integer :: my_ncid, my_varid, status
 
#if !defined PARALLEL_IO && defined DISTRIBUTE
      integer, dimension(2) :: ibuffer
#endif
!
      character (len=*), parameter :: MyFile =                          &
     &  __FILE__//", netcdf_put_fvar_1d"
!
!-----------------------------------------------------------------------
!  Read in a floating-point 1D-array variable.
!-----------------------------------------------------------------------
!
!  If file ID is not provided, open file for writing.
!
      IF (.not.PRESENT(ncid)) THEN
        CALL netcdf_open (ng, model, trim(ncname), 1, my_ncid)
        IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
      ELSE
        my_ncid=ncid
      END IF
!
!  If variable ID is not provided, inquire its value.
!
      IF (outthread) THEN
        IF (.not.PRESENT(varid)) THEN
          status=nf90_inq_varid(my_ncid, trim(myvarname), my_varid)
          IF (founderror(status, nf90_noerr, __line__, myfile)) THEN
            WRITE (stdout,10) trim(myvarname), trim(ncname),            &
     &                        trim(sourcefile), nf90_strerror(status)
            exit_flag=3
            ioerror=status
          END IF
        ELSE
          my_varid=varid
        END IF
!
!  Write out data.
!
        IF (exit_flag.eq.noerror) THEN
          status=nf90_put_var(my_ncid, my_varid, a, start, total)
          IF (founderror(status, nf90_noerr, __line__, myfile)) THEN
            WRITE (stdout,20) trim(myvarname), trim(ncname),            &
     &                        trim(sourcefile), nf90_strerror(status)
            exit_flag=3
            ioerror=status
          END IF
        END IF
      END IF
 
#if !defined PARALLEL_IO && defined DISTRIBUTE
!
!  Broadcast error flags to all processors in the group.
!
      ibuffer(1)=exit_flag
      ibuffer(2)=ioerror
      CALL mp_bcasti (ng, model, ibuffer)
      exit_flag=ibuffer(1)
      ioerror=ibuffer(2)
#endif
!
!  Close input file.
!
      IF (.not.PRESENT(ncid)) THEN
        CALL netcdf_close (ng, model, my_ncid, ncname, .false.)
      END IF
!
  10  FORMAT (/,' NETCDF_PUT_FVAR_1D - error while inquiring ID for ',  &
     &        'variable:',2x,a,/,22x,'in input file:',2x,a,/,22x,       &
     &        'call from:',2x,a,/,22x,a)
  20  FORMAT (/,' NETCDF_PUT_FVAR_1D - error while writing variable:',  &
     &        2x,a,/,22x,'in input file:',2x,a,/,22x,'call from:',2x,a, &
     &        /,22x,a)
!
      RETURN

References mod_scalars::exit_flag, mod_iounits::ioerror, mod_netcdf::netcdf_close(), mod_netcdf::netcdf_open(), mod_scalars::noerror, mod_parallel::outthread, mod_iounits::sourcefile, and mod_iounits::stdout.

Here is the call graph for this function:

netcdf_put_fvar_1dp()

subroutine mod_netcdf::netcdf_put_fvar::netcdf_put_fvar_1dp	(	integer, intent(in)	ng,
		integer, intent(in)	model,
		character (len=*), intent(in)	ncname,
		character (len=*), intent(in)	myvarname,
		real(dp), dimension(:), intent(in)	a,
		integer, dimension(:), intent(in)	start,
		integer, dimension(:), intent(in)	total,
		integer, intent(in), optional	ncid,
		integer, intent(in), optional	varid )

Definition at line 6583 of file mod_netcdf.F.

!
!=======================================================================
!                                                                      !
!  This routine writes a double-precision 1D-array variable into a     !
!  file. If the NetCDF ID is not provided, it opens the file, writes   !
!  data, and then closes the file.                                     !
!                                                                      !
!  On Input:                                                           !
!                                                                      !
!     ng           Nested grid number (integer)                        !
!     model        Calling model identifier (integer)                  !
!     ncname       NetCDF file name (string)                           !
!     myVarName    Variable name (string)                              !
!     A            Data value(s) to be written (double precision)      !
!     start        Starting index where the first of the data values   !
!                    will be written along each dimension (integer)    !
!     total        Number of data values to be written along each      !
!                    dimension (integer)                               !
!     ncid         NetCDF file ID (integer, OPTIONAL)                  !
!     varid        NetCDF variable ID (integer, OPTIONAL)              !
!                                                                      !
!  On Ouput:                                                           !
!                                                                      !
!     exit_flag    Error flag (integer) stored in MOD_SCALARS          !
!     ioerror      NetCDF return code (integer) stored in MOD_IOUNITS  !
!                                                                      !
!  Notice: This routine must be used to write only nontiled variables. !
!                                                                      !
!=======================================================================
!
!  Imported variable declarations.
!
      integer, intent(in) :: ng, model
 
      integer, intent(in) :: start(:), total(:)
 
      integer, intent(in), optional :: ncid, varid
!
      real(dp), intent(in) :: A(:)
!
      character (len=*), intent(in) :: ncname
      character (len=*), intent(in) :: myVarName
!
!  Local variable declarations.
!
      integer :: my_ncid, my_varid, status
 
# if !defined PARALLEL_IO && defined DISTRIBUTE
      integer, dimension(2) :: ibuffer
# endif
!
      character (len=*), parameter :: MyFile =                          &
     &  __FILE__//", netcdf_put_fvar_1dp"
!
!-----------------------------------------------------------------------
!  Read in a double-precision 1D-array variable.
!-----------------------------------------------------------------------
!
!  If file ID is not provided, open file for writing.
!
      IF (.not.PRESENT(ncid)) THEN
        CALL netcdf_open (ng, model, trim(ncname), 1, my_ncid)
        IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
      ELSE
        my_ncid=ncid
      END IF
!
!  If variable ID is not provided, inquire its value.
!
      IF (outthread) THEN
        IF (.not.PRESENT(varid)) THEN
          status=nf90_inq_varid(my_ncid, trim(myvarname), my_varid)
          IF (founderror(status, nf90_noerr, __line__, myfile)) THEN
            WRITE (stdout,10) trim(myvarname), trim(ncname),            &
     &                        trim(sourcefile), nf90_strerror(status)
            exit_flag=3
            ioerror=status
          END IF
        ELSE
          my_varid=varid
        END IF
!
!  Write out data.
!
        IF (exit_flag.eq.noerror) THEN
          status=nf90_put_var(my_ncid, my_varid, a, start, total)
          IF (founderror(status, nf90_noerr, __line__, myfile)) THEN
            WRITE (stdout,20) trim(myvarname), trim(ncname),            &
     &                        trim(sourcefile), nf90_strerror(status)
            exit_flag=3
            ioerror=status
          END IF
        END IF
      END IF
 
# if !defined PARALLEL_IO && defined DISTRIBUTE
!
!  Broadcast error flags to all processors in the group.
!
      ibuffer(1)=exit_flag
      ibuffer(2)=ioerror
      CALL mp_bcasti (ng, model, ibuffer)
      exit_flag=ibuffer(1)
      ioerror=ibuffer(2)
# endif
!
!  Close input file.
!
      IF (.not.PRESENT(ncid)) THEN
        CALL netcdf_close (ng, model, my_ncid, ncname, .false.)
      END IF
!
  10  FORMAT (/,' NETCDF_PUT_FVAR_1DP - error while inquiring ID for ', &
     &        'variable:',2x,a,/,23x,'in input file:',2x,a,/,23x,       &
     &        'call from:',2x,a,/,23x,a)
  20  FORMAT (/,' NETCDF_PUT_FVAR_1DP - error while writing variable:', &
     &        2x,a,/,23x,'in input file:',2x,a,/,23x,'call from:',2x,a, &
     &        /,23x,a)
!
      RETURN

References mod_scalars::exit_flag, mod_iounits::ioerror, mod_netcdf::netcdf_close(), mod_netcdf::netcdf_open(), mod_scalars::noerror, mod_parallel::outthread, mod_iounits::sourcefile, and mod_iounits::stdout.

Here is the call graph for this function:

netcdf_put_fvar_2d()

subroutine mod_netcdf::netcdf_put_fvar::netcdf_put_fvar_2d	(	integer, intent(in)	ng,
		integer, intent(in)	model,
		character (len=*), intent(in)	ncname,
		character (len=*), intent(in)	myvarname,
		real(r8), dimension(:,:), intent(in)	a,
		integer, dimension(:), intent(in)	start,
		integer, dimension(:), intent(in)	total,
		integer, intent(in), optional	ncid,
		integer, intent(in), optional	varid )

Definition at line 7211 of file mod_netcdf.F.

!
!=======================================================================
!                                                                      !
!  This routine writes a floating-point 2D-array variable into a file. !
!  If the NetCDF ID is not provided,  it opens the file,  writes data, !
!  and then closes the file.                                           !
!                                                                      !
!  On Input:                                                           !
!                                                                      !
!     ng           Nested grid number (integer)                        !
!     model        Calling model identifier (integer)                  !
!     ncname       NetCDF file name (string)                           !
!     myVarName    Variable name (string)                              !
!     A            Data value(s) to be written (real)                  !
!     start        Starting index where the first of the data values   !
!                    will be written along each dimension (integer)    !
!     total        Number of data values to be written along each      !
!                    dimension (integer)                               !
!     ncid         NetCDF file ID (integer, OPTIONAL)                  !
!     varid        NetCDF variable ID (integer, OPTIONAL)              !
!                                                                      !
!  On Ouput:                                                           !
!                                                                      !
!     exit_flag    Error flag (integer) stored in MOD_SCALARS          !
!     ioerror      NetCDF return code (integer) stored in MOD_IOUNITS  !
!                                                                      !
!  Notice: This routine must be used to write only nontiled variables. !
!                                                                      !
!=======================================================================
!
!  Imported variable declarations.
!
      integer, intent(in) :: ng, model
 
      integer, intent(in) :: start(:), total(:)
 
      integer, intent(in), optional :: ncid, varid
!
      real(r8), intent(in) :: A(:,:)
!
      character (len=*), intent(in) :: ncname
      character (len=*), intent(in) :: myVarName
!
!  Local variable declarations.
!
      integer :: my_ncid, my_varid, status
 
#if !defined PARALLEL_IO && defined DISTRIBUTE
      integer, dimension(2) :: ibuffer
#endif
!
      character (len=*), parameter :: MyFile =                          &
     &  __FILE__//", netcdf_put_fvar_2d"
!
!-----------------------------------------------------------------------
!  Read in a floating-point 2D-array variable.
!-----------------------------------------------------------------------
!
!  If file ID is not provided, open file for writing.
!
      IF (.not.PRESENT(ncid)) THEN
        CALL netcdf_open (ng, model, trim(ncname), 1, my_ncid)
        IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
      ELSE
        my_ncid=ncid
      END IF
!
!  If variable ID is not provided, inquire its value.
!
      IF (outthread) THEN
        IF (.not.PRESENT(varid)) THEN
          status=nf90_inq_varid(my_ncid, trim(myvarname), my_varid)
          IF (founderror(status, nf90_noerr, __line__, myfile)) THEN
            WRITE (stdout,10) trim(myvarname), trim(ncname),            &
     &                        trim(sourcefile), nf90_strerror(status)
            exit_flag=3
            ioerror=status
          END IF
        ELSE
          my_varid=varid
        END IF
!
!  Write out data.
!
        IF (exit_flag.eq.noerror) THEN
          status=nf90_put_var(my_ncid, my_varid, a, start, total)
          IF (founderror(status, nf90_noerr, __line__, myfile)) THEN
            WRITE (stdout,20) trim(myvarname), trim(ncname),            &
     &                        trim(sourcefile), nf90_strerror(status)
            exit_flag=3
            ioerror=status
          END IF
        END IF
      END IF
 
#if !defined PARALLEL_IO && defined DISTRIBUTE
!
!  Broadcast error flags to all processors in the group.
!
      ibuffer(1)=exit_flag
      ibuffer(2)=ioerror
      CALL mp_bcasti (ng, model, ibuffer)
      exit_flag=ibuffer(1)
      ioerror=ibuffer(2)
#endif
!
!  Close input NetCDF file.
!
      IF (.not.PRESENT(ncid)) THEN
        CALL netcdf_close (ng, model, my_ncid, ncname, .false.)
      END IF
!
  10  FORMAT (/,' NETCDF_PUT_FVAR_2D - error while inquiring ID for ',  &
     &        'variable:',2x,a,/,22x,'in input file:',2x,a,/,22x,       &
     &        'call from:',2x,a,/,22x,a)
  20  FORMAT (/,' NETCDF_PUT_FVAR_2D - error while writing variable:',  &
     &        2x,a,/,22x,'in input file:',2x,a,/,22x,'call from:',2x,a, &
     &        /,22x,a)
!
      RETURN

References mod_scalars::exit_flag, mod_iounits::ioerror, mod_netcdf::netcdf_close(), mod_netcdf::netcdf_open(), mod_scalars::noerror, mod_parallel::outthread, mod_iounits::sourcefile, and mod_iounits::stdout.

Here is the call graph for this function:

netcdf_put_fvar_2dp()

subroutine mod_netcdf::netcdf_put_fvar::netcdf_put_fvar_2dp	(	integer, intent(in)	ng,
		integer, intent(in)	model,
		character (len=*), intent(in)	ncname,
		character (len=*), intent(in)	myvarname,
		real(dp), dimension(:,:), intent(in)	a,
		integer, dimension(:), intent(in)	start,
		integer, dimension(:), intent(in)	total,
		integer, intent(in), optional	ncid,
		integer, intent(in), optional	varid )

Definition at line 6707 of file mod_netcdf.F.

!
!=======================================================================
!                                                                      !
!  This routine writes a double-precision 2D-array variable into a     !
!  file. If the NetCDF ID is not provided, it opens the file, writes   !
!  data, and then closes the file.                                     !
!                                                                      !
!  On Input:                                                           !
!                                                                      !
!     ng           Nested grid number (integer)                        !
!     model        Calling model identifier (integer)                  !
!     ncname       NetCDF file name (string)                           !
!     myVarName    Variable name (string)                              !
!     A            Data value(s) to be written (double precision)      !
!     start        Starting index where the first of the data values   !
!                    will be written along each dimension (integer)    !
!     total        Number of data values to be written along each      !
!                    dimension (integer)                               !
!     ncid         NetCDF file ID (integer, OPTIONAL)                  !
!     varid        NetCDF variable ID (integer, OPTIONAL)              !
!                                                                      !
!  On Ouput:                                                           !
!                                                                      !
!     exit_flag    Error flag (integer) stored in MOD_SCALARS          !
!     ioerror      NetCDF return code (integer) stored in MOD_IOUNITS  !
!                                                                      !
!  Notice: This routine must be used to write only nontiled variables. !
!                                                                      !
!=======================================================================
!
!  Imported variable declarations.
!
      integer, intent(in) :: ng, model
 
      integer, intent(in) :: start(:), total(:)
 
      integer, intent(in), optional :: ncid, varid
 
      real(dp), intent(in) :: A(:,:)
 
      character (len=*), intent(in) :: ncname
      character (len=*), intent(in) :: myVarName
!
!  Local variable declarations.
!
      integer :: my_ncid, my_varid, status
 
# if !defined PARALLEL_IO && defined DISTRIBUTE
      integer, dimension(2) :: ibuffer
# endif
!
      character (len=*), parameter :: MyFile =                          &
     &  __FILE__//", netcdf_put_fvar_2dp"
!
!-----------------------------------------------------------------------
!  Read in a double-precision 2D-array variable.
!-----------------------------------------------------------------------
!
!  If file ID is not provided, open file for writing.
!
      IF (.not.PRESENT(ncid)) THEN
        CALL netcdf_open (ng, model, trim(ncname), 1, my_ncid)
        IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
      ELSE
        my_ncid=ncid
      END IF
!
!  If variable ID is not provided, inquire its value.
!
      IF (outthread) THEN
        IF (.not.PRESENT(varid)) THEN
          status=nf90_inq_varid(my_ncid, trim(myvarname), my_varid)
          IF (founderror(status, nf90_noerr, __line__, myfile)) THEN
            WRITE (stdout,10) trim(myvarname), trim(ncname),            &
     &                        trim(sourcefile), nf90_strerror(status)
            exit_flag=3
            ioerror=status
          END IF
        ELSE
          my_varid=varid
        END IF
!
!  Write out data.
!
        IF (exit_flag.eq.noerror) THEN
          status=nf90_put_var(my_ncid, my_varid, a, start, total)
          IF (founderror(status, nf90_noerr, __line__, myfile)) THEN
            WRITE (stdout,20) trim(myvarname), trim(ncname),            &
     &                        trim(sourcefile), nf90_strerror(status)
            exit_flag=3
            ioerror=status
          END IF
        END IF
      END IF
 
# if !defined PARALLEL_IO && defined DISTRIBUTE
!
!  Broadcast error flags to all processors in the group.
!
      ibuffer(1)=exit_flag
      ibuffer(2)=ioerror
      CALL mp_bcasti (ng, model, ibuffer)
      exit_flag=ibuffer(1)
      ioerror=ibuffer(2)
# endif
!
!  Close input NetCDF file.
!
      IF (.not.PRESENT(ncid)) THEN
        CALL netcdf_close (ng, model, my_ncid, ncname, .false.)
      END IF
!
  10  FORMAT (/,' NETCDF_PUT_FVAR_2DP - error while inquiring ID for ', &
     &        'variable:',2x,a,/,23x,'in input file:',2x,a,/,22x,       &
     &        'call from:',2x,a,/23x,a)
  20  FORMAT (/,' NETCDF_PUT_FVAR_2DP - error while writing variable:', &
     &        2x,a,/,23x,'in input file:',2x,a,/,23x,'call from:',2x,a, &
     &        /,23x,a)
!
      RETURN

References mod_scalars::exit_flag, mod_iounits::ioerror, mod_netcdf::netcdf_close(), mod_netcdf::netcdf_open(), mod_scalars::noerror, mod_parallel::outthread, mod_iounits::sourcefile, and mod_iounits::stdout.

Here is the call graph for this function:

netcdf_put_fvar_3d()

subroutine mod_netcdf::netcdf_put_fvar::netcdf_put_fvar_3d	(	integer, intent(in)	ng,
		integer, intent(in)	model,
		character (len=*), intent(in)	ncname,
		character (len=*), intent(in)	myvarname,
		real(r8), dimension(:,:,:), intent(in)	a,
		integer, dimension(:), intent(in)	start,
		integer, dimension(:), intent(in)	total,
		integer, intent(in), optional	ncid,
		integer, intent(in), optional	varid )

Definition at line 7335 of file mod_netcdf.F.

!
!=======================================================================
!                                                                      !
!  This routine writes a floating-point 3D-array variable into a file. !
!  If the NetCDF ID is not provided,  it opens the file,  writes data, !
!  and then closes the file.                                           !
!                                                                      !
!  On Input:                                                           !
!                                                                      !
!     ng           Nested grid number (integer)                        !
!     model        Calling model identifier (integer)                  !
!     ncname       NetCDF file name (string)                           !
!     myVarName    Variable name (string)                              !
!     A            Data value(s) to be written (real)                  !
!     start        Starting index where the first of the data values   !
!                    will be written along each dimension (integer)    !
!     total        Number of data values to be written along each      !
!                    dimension (integer)                               !
!     ncid         NetCDF file ID (integer, OPTIONAL)                  !
!     varid        NetCDF variable ID (integer, OPTIONAL)              !
!                                                                      !
!  On Ouput:                                                           !
!                                                                      !
!     exit_flag    Error flag (integer) stored in MOD_SCALARS          !
!     ioerror      NetCDF return code (integer) stored in MOD_IOUNITS  !
!                                                                      !
!  Notice: This routine must be used to write only nontiled variables. !
!                                                                      !
!=======================================================================
!
!  Imported variable declarations.
!
      integer, intent(in) :: ng, model
 
      integer, intent(in) :: start(:), total(:)
 
      integer, intent(in), optional :: ncid, varid
!
      real(r8), intent(in) :: A(:,:,:)
!
      character (len=*), intent(in) :: ncname
      character (len=*), intent(in) :: myVarName
!
!  Local variable declarations.
!
      integer :: my_ncid, my_varid, status
 
#if !defined PARALLEL_IO && defined DISTRIBUTE
      integer, dimension(2) :: ibuffer
#endif
!
      character (len=*), parameter :: MyFile =                          &
     &  __FILE__//", netcdf_put_fvar_3d"
!
!-----------------------------------------------------------------------
!  Read in a floating-point 3D-array variable.
!-----------------------------------------------------------------------
!
!  If file ID is not provided, open file for writing.
!
      IF (.not.PRESENT(ncid)) THEN
        CALL netcdf_open (ng, model, trim(ncname), 1, my_ncid)
        IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
      ELSE
        my_ncid=ncid
      END IF
!
!  If variable ID is not provided, inquire its value.
!
      IF (outthread) THEN
        IF (.not.PRESENT(varid)) THEN
          status=nf90_inq_varid(my_ncid, trim(myvarname), my_varid)
          IF (founderror(status, nf90_noerr, __line__, myfile)) THEN
            WRITE (stdout,10) trim(myvarname), trim(ncname),            &
     &                        trim(sourcefile), nf90_strerror(status)
            exit_flag=3
            ioerror=status
          END IF
        ELSE
          my_varid=varid
        END IF
!
!  Write out data.
!
        IF (exit_flag.eq.noerror) THEN
          status=nf90_put_var(my_ncid, my_varid, a, start, total)
          IF (founderror(status, nf90_noerr, __line__, myfile)) THEN
            WRITE (stdout,20) trim(myvarname), trim(ncname),            &
     &                        trim(sourcefile), nf90_strerror(status)
            exit_flag=3
            ioerror=status
          END IF
        END IF
      END IF
 
#if !defined PARALLEL_IO && defined DISTRIBUTE
!
!  Broadcast error flags to all processors in the group.
!
      ibuffer(1)=exit_flag
      ibuffer(2)=ioerror
      CALL mp_bcasti (ng, model, ibuffer)
      exit_flag=ibuffer(1)
      ioerror=ibuffer(2)
#endif
!
!  Close input NetCDF file.
!
      IF (.not.PRESENT(ncid)) THEN
        CALL netcdf_close (ng, model, my_ncid, ncname, .false.)
      END IF
!
  10  FORMAT (/,' NETCDF_PUT_FVAR_3D - error while inquiring ID for ',  &
     &        'variable:',2x,a,/,22x,'in input file:',2x,a,/,22x,       &
     &        'call from:',2x,a,/,22x,a)
  20  FORMAT (/,' NETCDF_PUT_FVAR_3D - error while writing variable:',  &
     &        2x,a,/,22x,'in input file:',2x,a,/,22x,'call from:',2x,a, &
     &        /,22x,a)
!
      RETURN

References mod_scalars::exit_flag, mod_iounits::ioerror, mod_netcdf::netcdf_close(), mod_netcdf::netcdf_open(), mod_scalars::noerror, mod_parallel::outthread, mod_iounits::sourcefile, and mod_iounits::stdout.

Here is the call graph for this function:

netcdf_put_fvar_3dp()

subroutine mod_netcdf::netcdf_put_fvar::netcdf_put_fvar_3dp	(	integer, intent(in)	ng,
		integer, intent(in)	model,
		character (len=*), intent(in)	ncname,
		character (len=*), intent(in)	myvarname,
		real(dp), dimension(:,:,:), intent(in)	a,
		integer, dimension(:), intent(in)	start,
		integer, dimension(:), intent(in)	total,
		integer, intent(in), optional	ncid,
		integer, intent(in), optional	varid )

Definition at line 6831 of file mod_netcdf.F.

!
!=======================================================================
!                                                                      !
!  This routine writes a double-precision 3D-array variable into a     !
!  file. If the NetCDF ID is not provided, it opens the file, writes   !
!  data, and then closes the file.                                     !
!                                                                      !
!  On Input:                                                           !
!                                                                      !
!     ng           Nested grid number (integer)                        !
!     model        Calling model identifier (integer)                  !
!     ncname       NetCDF file name (string)                           !
!     myVarName    Variable name (string)                              !
!     A            Data value(s) to be written (real)                  !
!     start        Starting index where the first of the data values   !
!                    will be written along each dimension (integer)    !
!     total        Number of data values to be written along each      !
!                    dimension (integer)                               !
!     ncid         NetCDF file ID (integer, OPTIONAL)                  !
!     varid        NetCDF variable ID (integer, OPTIONAL)              !
!                                                                      !
!  On Ouput:                                                           !
!                                                                      !
!     exit_flag    Error flag (integer) stored in MOD_SCALARS          !
!     ioerror      NetCDF return code (integer) stored in MOD_IOUNITS  !
!                                                                      !
!  Notice: This routine must be used to write only nontiled variables. !
!                                                                      !
!=======================================================================
!
!  Imported variable declarations.
!
      integer, intent(in) :: ng, model
 
      integer, intent(in) :: start(:), total(:)
 
      integer, intent(in), optional :: ncid, varid
!
      real(dp), intent(in) :: A(:,:,:)
!
      character (len=*), intent(in) :: ncname
      character (len=*), intent(in) :: myVarName
!
!  Local variable declarations.
!
      integer :: my_ncid, my_varid, status
 
# if !defined PARALLEL_IO && defined DISTRIBUTE
      integer, dimension(2) :: ibuffer
# endif
!
      character (len=*), parameter :: MyFile =                          &
     &  __FILE__//", netcdf_put_fvar_3dp"
!
!-----------------------------------------------------------------------
!  Read in a double-precision 3D-array variable.
!-----------------------------------------------------------------------
!
!  If file ID is not provided, open file for writing.
!
      IF (.not.PRESENT(ncid)) THEN
        CALL netcdf_open (ng, model, trim(ncname), 1, my_ncid)
        IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
      ELSE
        my_ncid=ncid
      END IF
!
!  If variable ID is not provided, inquire its value.
!
      IF (outthread) THEN
        IF (.not.PRESENT(varid)) THEN
          status=nf90_inq_varid(my_ncid, trim(myvarname), my_varid)
          IF (founderror(status, nf90_noerr, __line__, myfile)) THEN
            WRITE (stdout,10) trim(myvarname), trim(ncname),            &
     &                        trim(sourcefile), nf90_strerror(status)
            exit_flag=3
            ioerror=status
          END IF
        ELSE
          my_varid=varid
        END IF
!
!  Write out data.
!
        IF (exit_flag.eq.noerror) THEN
          status=nf90_put_var(my_ncid, my_varid, a, start, total)
          IF (founderror(status, nf90_noerr, __line__, myfile)) THEN
            WRITE (stdout,20) trim(myvarname), trim(ncname),            &
     &                        trim(sourcefile), nf90_strerror(status)
            exit_flag=3
            ioerror=status
          END IF
        END IF
      END IF
 
# if !defined PARALLEL_IO && defined DISTRIBUTE
!
!  Broadcast error flags to all processors in the group.
!
      ibuffer(1)=exit_flag
      ibuffer(2)=ioerror
      CALL mp_bcasti (ng, model, ibuffer)
      exit_flag=ibuffer(1)
      ioerror=ibuffer(2)
# endif
!
!  Close input NetCDF file.
!
      IF (.not.PRESENT(ncid)) THEN
        CALL netcdf_close (ng, model, my_ncid, ncname, .false.)
      END IF
!
  10  FORMAT (/,' NETCDF_PUT_FVAR_3DP - error while inquiring ID for ', &
     &        'variable:',2x,a,/,23x,'in input file:',2x,a,/,22x,       &
     &        'call from:',2x,a,/,23x,a)
  20  FORMAT (/,' NETCDF_PUT_FVAR_3DP - error while writing variable:', &
     &        2x,a,/,23x,'in input file:',2x,a,/,23x,'call from:',2x,a, &
     &        /,23x,a)
!
      RETURN

References mod_scalars::exit_flag, mod_iounits::ioerror, mod_netcdf::netcdf_close(), mod_netcdf::netcdf_open(), mod_scalars::noerror, mod_parallel::outthread, mod_iounits::sourcefile, and mod_iounits::stdout.

Here is the call graph for this function:

netcdf_put_fvar_4d()

subroutine mod_netcdf::netcdf_put_fvar::netcdf_put_fvar_4d	(	integer, intent(in)	ng,
		integer, intent(in)	model,
		character (len=*), intent(in)	ncname,
		character (len=*), intent(in)	myvarname,
		real(r8), dimension(:,:,:,:), intent(in)	a,
		integer, dimension(:), intent(in)	start,
		integer, dimension(:), intent(in)	total,
		integer, intent(in), optional	ncid,
		integer, intent(in), optional	varid )

Definition at line 7459 of file mod_netcdf.F.

!
!=======================================================================
!                                                                      !
!  This routine writes a floating-point 4D-array variable into a file. !
!  If the NetCDF ID is not provided,  it opens the file,  writes data, !
!  and then closes the file.                                           !
!                                                                      !
!  On Input:                                                           !
!                                                                      !
!     ng           Nested grid number (integer)                        !
!     model        Calling model identifier (integer)                  !
!     ncname       NetCDF file name (string)                           !
!     myVarName    Variable name (string)                              !
!     A            Data value(s) to be written (real)                  !
!     start        Starting index where the first of the data values   !
!                    will be written along each dimension (integer)    !
!     total        Number of data values to be written along each      !
!                    dimension (integer)                               !
!     ncid         NetCDF file ID (integer, OPTIONAL)                  !
!     varid        NetCDF variable ID (integer, OPTIONAL)              !
!                                                                      !
!  On Ouput:                                                           !
!                                                                      !
!     exit_flag    Error flag (integer) stored in MOD_SCALARS          !
!     ioerror      NetCDF return code (integer) stored in MOD_IOUNITS  !
!                                                                      !
!  Notice: This routine must be used to write only nontiled variables. !
!                                                                      !
!=======================================================================
!
!  Imported variable declarations.
!
      integer, intent(in) :: ng, model
 
      integer, intent(in) :: start(:), total(:)
 
      integer, intent(in), optional :: ncid, varid
!
      real(r8), intent(in) :: A(:,:,:,:)
!
      character (len=*), intent(in) :: ncname
      character (len=*), intent(in) :: myVarName
!
!  Local variable declarations.
!
      integer :: my_ncid, my_varid, status
 
#if !defined PARALLEL_IO && defined DISTRIBUTE
      integer, dimension(2) :: ibuffer
#endif
!
      character (len=*), parameter :: MyFile =                          &
     &  __FILE__//", netcdf_put_fvar_4d"
!
!-----------------------------------------------------------------------
!  Read in a floating-point 4D-array variable.
!-----------------------------------------------------------------------
!
!  If NetCDF file ID is not provided, open NetCDF for writing.
!
      IF (.not.PRESENT(ncid)) THEN
        CALL netcdf_open (ng, model, trim(ncname), 1, my_ncid)
        IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
      ELSE
        my_ncid=ncid
      END IF
!
!  If variable ID is not provided, inquire its value.
!
      IF (outthread) THEN
        IF (.not.PRESENT(varid)) THEN
          status=nf90_inq_varid(my_ncid, trim(myvarname), my_varid)
          IF (founderror(status, nf90_noerr, __line__, myfile)) THEN
            WRITE (stdout,10) trim(myvarname), trim(ncname),            &
     &                        trim(sourcefile), nf90_strerror(status)
            exit_flag=3
            ioerror=status
          END IF
        ELSE
          my_varid=varid
        END IF
!
!  Write out data.
!
        IF (exit_flag.eq.noerror) THEN
          status=nf90_put_var(my_ncid, my_varid, a, start, total)
          IF (founderror(status, nf90_noerr, __line__, myfile)) THEN
            WRITE (stdout,20) trim(myvarname), trim(ncname),            &
     &                        trim(sourcefile), nf90_strerror(status)
            exit_flag=3
            ioerror=status
          END IF
        END IF
      END IF
 
#if !defined PARALLEL_IO && defined DISTRIBUTE
!
!  Broadcast error flags to all processors in the group.
!
      ibuffer(1)=exit_flag
      ibuffer(2)=ioerror
      CALL mp_bcasti (ng, model, ibuffer)
      exit_flag=ibuffer(1)
      ioerror=ibuffer(2)
#endif
!
!  Close input NetCDF file.
!
      IF (.not.PRESENT(ncid)) THEN
        CALL netcdf_close (ng, model, my_ncid, ncname, .false.)
      END IF
!
  10  FORMAT (/,' NETCDF_PUT_FVAR_4D - error while inquiring ID for ',  &
     &        'variable:',2x,a,/,22x,'in input file:',2x,a,/,22x,       &
     &        'call from:',2x,a,/,22x,a)
  20  FORMAT (/,' NETCDF_PUT_FVAR_4D - error while writing variable:',  &
     &        2x,a,/,22x,'in input file:',2x,a,/,22x,'call from:',2x,a, &
     &        /,22x,a)
!
      RETURN

References mod_scalars::exit_flag, mod_iounits::ioerror, mod_netcdf::netcdf_close(), mod_netcdf::netcdf_open(), mod_scalars::noerror, mod_parallel::outthread, mod_iounits::sourcefile, and mod_iounits::stdout.

Here is the call graph for this function:

---

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

• ROMS/Modules/mod_netcdf.F