ocean_inversion_project/write_netCDF/nc_util.F

!***********************************************************************
! $Header: /usr/data/cvsroot/fletcher/MOM_3/MOM_3/ocmip2/nc_util.F,v 1.1.1.1 2003/05/01 21:25:53 fletcher Exp $
!***********************************************************************


      SUBROUTINE DEF_DIM(NC_ID, NAME, LEN, DIMID)

      IMPLICIT NONE
#include "netcdf.inc"

! Arguments
      INTEGER NC_ID, LEN, DIMID
      CHARACTER*(*) NAME

! Local variables
      INTEGER STATUS

      STATUS = NF_DEF_DIM(NC_ID, NAME, LEN, DIMID)
      IF (STATUS .NE. NF_NOERR) THEN
         PRINT *, 'NetCDF error defining dimension ', NAME
         PRINT *, NF_STRERROR(STATUS)
         STOP 'Stopped'
      ENDIF

      END


!***********************************************************************


      SUBROUTINE DEF_REAL(NC_ID, NAME, VARID, NDIMS, DIMIDS)

      IMPLICIT NONE
#include "netcdf.inc"

! Arguments
      INTEGER NC_ID, VARID, NDIMS, DIMIDS(*)
      CHARACTER*(*) NAME

! Local variables
      INTEGER STATUS

      STATUS = NF_DEF_VAR(NC_ID, NAME, NF_FLOAT, NDIMS, DIMIDS, VARID)
      IF (STATUS .NE. NF_NOERR) THEN
         PRINT *, 'NetCDF error defining variable ', NAME
         PRINT *, NF_STRERROR(STATUS)
         STOP 'Stopped'
      ENDIF

      END


!***********************************************************************


      SUBROUTINE ADD_ATT_TEXT(NC_ID, VARID, NAME, TEXT)

      IMPLICIT NONE
#include "netcdf.inc"

! Arguments
      INTEGER NC_ID, VARID
      CHARACTER*(*) NAME, TEXT

! Local variables
      INTEGER STATUS

! Function
!     INTEGER LEN_TRIM

      STATUS = NF_PUT_ATT_TEXT(NC_ID, VARID, NAME,
     &                         LEN_TRIM(TEXT), TEXT)
      IF (STATUS .NE. NF_NOERR) THEN
         PRINT *, 'NetCDF error creating ', NAME, ' attribute ', TEXT
         PRINT *, NF_STRERROR(STATUS)
         STOP 'Stopped'
      ENDIF

      END


!***********************************************************************


      SUBROUTINE ADD_ATT_REAL(NC_ID, VARID, NAME, VAL)

      IMPLICIT NONE
#include "netcdf.inc"

! Arguments
      INTEGER NC_ID, VARID
      CHARACTER*(*) NAME
      REAL VAL

! Local variables
      INTEGER STATUS

      STATUS = NF_PUT_ATT_REAL(NC_ID, VARID, NAME, NF_FLOAT, 1, VAL)
      IF (STATUS .NE. NF_NOERR) THEN
         PRINT *, 'NetCDF error creating ', NAME, ' attribute ', VAL
         PRINT *, NF_STRERROR(STATUS)
         STOP 'Stopped'
      ENDIF

      END


!***********************************************************************


      SUBROUTINE PUT_REAL(NC_ID, VARID, VAL, NAME)

      IMPLICIT NONE
#include "netcdf.inc"

! Arguments
      INTEGER NC_ID, VARID
      REAL VAL(*)
      CHARACTER*(*) NAME

! Local variables
      INTEGER STATUS

      STATUS = NF_PUT_VAR_REAL(NC_ID, VARID, VAL)
      IF (STATUS .NE. NF_NOERR) THEN
         PRINT *, 'NetCDF error putting ', NAME
         PRINT *, NF_STRERROR(STATUS)
         STOP 'Stopped'
      ENDIF

      END


!***********************************************************************


!     FUNCTION LEN_TRIM(STRING)

!     CHARACTER*(*) STRING
!     INTEGER I 
!       
!     DO I = LEN(STRING), 1, -1
!        LEN_TRIM = I
!        IF (STRING(I:I) .NE. ' ') RETURN
!     END DO

!     END
1	dimitri	1.1	!***********************************************************************
2			! $Header: /usr/data/cvsroot/fletcher/MOM_3/MOM_3/ocmip2/nc_util.F,v 1.1.1.1 2003/05/01 21:25:53 fletcher Exp $
3			!***********************************************************************
4
5
6			SUBROUTINE DEF_DIM(NC_ID, NAME, LEN, DIMID)
7
8			IMPLICIT NONE
9			#include "netcdf.inc"
10
11			! Arguments
12			INTEGER NC_ID, LEN, DIMID
13			CHARACTER() NAME
14
15			! Local variables
16			INTEGER STATUS
17
18			STATUS = NF_DEF_DIM(NC_ID, NAME, LEN, DIMID)
19			IF (STATUS .NE. NF_NOERR) THEN
20			PRINT *, 'NetCDF error defining dimension ', NAME
21			PRINT *, NF_STRERROR(STATUS)
22			STOP 'Stopped'
23			ENDIF
24
25			END
26
27
28			!***********************************************************************
29
30
31			SUBROUTINE DEF_REAL(NC_ID, NAME, VARID, NDIMS, DIMIDS)
32
33			IMPLICIT NONE
34			#include "netcdf.inc"
35
36			! Arguments
37			INTEGER NC_ID, VARID, NDIMS, DIMIDS(*)
38			CHARACTER() NAME
39
40			! Local variables
41			INTEGER STATUS
42
43			STATUS = NF_DEF_VAR(NC_ID, NAME, NF_FLOAT, NDIMS, DIMIDS, VARID)
44			IF (STATUS .NE. NF_NOERR) THEN
45			PRINT *, 'NetCDF error defining variable ', NAME
46			PRINT *, NF_STRERROR(STATUS)
47			STOP 'Stopped'
48			ENDIF
49
50			END
51
52
53			!***********************************************************************
54
55
56			SUBROUTINE ADD_ATT_TEXT(NC_ID, VARID, NAME, TEXT)
57
58			IMPLICIT NONE
59			#include "netcdf.inc"
60
61			! Arguments
62			INTEGER NC_ID, VARID
63			CHARACTER() NAME, TEXT
64
65			! Local variables
66			INTEGER STATUS
67
68			! Function
69			! INTEGER LEN_TRIM
70
71			STATUS = NF_PUT_ATT_TEXT(NC_ID, VARID, NAME,
72			& LEN_TRIM(TEXT), TEXT)
73			IF (STATUS .NE. NF_NOERR) THEN
74			PRINT *, 'NetCDF error creating ', NAME, ' attribute ', TEXT
75			PRINT *, NF_STRERROR(STATUS)
76			STOP 'Stopped'
77			ENDIF
78
79			END
80
81
82			!***********************************************************************
83
84
85			SUBROUTINE ADD_ATT_REAL(NC_ID, VARID, NAME, VAL)
86
87			IMPLICIT NONE
88			#include "netcdf.inc"
89
90			! Arguments
91			INTEGER NC_ID, VARID
92			CHARACTER() NAME
93			REAL VAL
94
95			! Local variables
96			INTEGER STATUS
97
98			STATUS = NF_PUT_ATT_REAL(NC_ID, VARID, NAME, NF_FLOAT, 1, VAL)
99			IF (STATUS .NE. NF_NOERR) THEN
100			PRINT *, 'NetCDF error creating ', NAME, ' attribute ', VAL
101			PRINT *, NF_STRERROR(STATUS)
102			STOP 'Stopped'
103			ENDIF
104
105			END
106
107
108			!***********************************************************************
109
110
111			SUBROUTINE PUT_REAL(NC_ID, VARID, VAL, NAME)
112
113			IMPLICIT NONE
114			#include "netcdf.inc"
115
116			! Arguments
117			INTEGER NC_ID, VARID
118			REAL VAL(*)
119			CHARACTER() NAME
120
121			! Local variables
122			INTEGER STATUS
123
124			STATUS = NF_PUT_VAR_REAL(NC_ID, VARID, VAL)
125			IF (STATUS .NE. NF_NOERR) THEN
126			PRINT *, 'NetCDF error putting ', NAME
127			PRINT *, NF_STRERROR(STATUS)
128			STOP 'Stopped'
129			ENDIF
130
131			END
132
133
134			!***********************************************************************
135
136
137			! FUNCTION LEN_TRIM(STRING)
138
139			! CHARACTER() STRING
140			! INTEGER I
141			!
142			! DO I = LEN(STRING), 1, -1
143			! LEN_TRIM = I
144			! IF (STRING(I:I) .NE. ' ') RETURN
145			! END DO
146
147			! END