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