/[MITgcm]/MITgcm/pkg/mnc/mnc_var.F
ViewVC logotype

Diff of /MITgcm/pkg/mnc/mnc_var.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.14 by edhill, Mon Mar 29 03:33:52 2004 UTC revision 1.18 by edhill, Sun Dec 26 15:24:50 2004 UTC
# Line 4  C $Name$ Line 4  C $Name$
4  #include "MNC_OPTIONS.h"  #include "MNC_OPTIONS.h"
5                
6  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
7  CBOP  CBOP 1
8  C     !ROUTINE: MNC_VAR_INIT_DBL  C     !ROUTINE: MNC_VAR_INIT_DBL
9    
10  C     !INTERFACE:  C     !INTERFACE:
# Line 32  CEOP Line 32  CEOP
32        END        END
33    
34  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
35  CBOP  CBOP 1
36  C     !ROUTINE: MNC_VAR_INIT_REAL  C     !ROUTINE: MNC_VAR_INIT_REAL
37    
38  C     !INTERFACE:  C     !INTERFACE:
# Line 60  CEOP Line 60  CEOP
60        END        END
61    
62  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
63  CBOP  CBOP 1
64  C     !ROUTINE: MNC_VAR_INIT_INT  C     !ROUTINE: MNC_VAR_INIT_INT
65    
66  C     !INTERFACE:  C     !INTERFACE:
# Line 87  CEOP Line 87  CEOP
87        END        END
88    
89  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
90  CBOP  CBOP 1
91  C     !ROUTINE: MNC_VAR_INIT_ANY  C     !ROUTINE: MNC_VAR_INIT_ANY
92    
93  C     !INTERFACE:  C     !INTERFACE:
# Line 112  C     !INPUT PARAMETERS: Line 112  C     !INPUT PARAMETERS:
112        integer myThid        integer myThid
113        character*(*) fname,gname,vname        character*(*) fname,gname,vname
114        integer vtype        integer vtype
115    CEOP
116    
117  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
118        integer i,j,k, n, indf,indv, fid, nd, ngrid, is,ie, err        integer i,j,k, n, indf,indv, fid, nd, ngrid, is,ie, err
# Line 119  C     !LOCAL VARIABLES: Line 120  C     !LOCAL VARIABLES:
120        character*(MAX_LEN_MBUF) msgbuf        character*(MAX_LEN_MBUF) msgbuf
121        integer ids(20)        integer ids(20)
122        integer lenf,leng,lenv        integer lenf,leng,lenv
123  CEOP  
124  C     Functions  C     Functions
125        integer ILNBLNK        integer ILNBLNK
126    
# Line 201  C           Its OK, the variable and gri Line 202  C           Its OK, the variable and gri
202  C     Add the variable definition  C     Add the variable definition
203        CALL MNC_FILE_REDEF(fname, myThid)        CALL MNC_FILE_REDEF(fname, myThid)
204        err = NF_DEF_VAR(fid, vname, vtype, nd, ids, vid)        err = NF_DEF_VAR(fid, vname, vtype, nd, ids, vid)
205        write(msgbuf,'(5a)') 'defining variable ''', vname(1:lenv),        IF ( err .NE. NF_NOERR ) THEN
206            write(msgbuf,'(2a)') 'ERROR:  MNC will not ',
207         &       'overwrite variables in existing NetCDF'
208            CALL PRINT_ERROR( msgBuf, myThid )
209            write(msgbuf,'(2a)') '        files.  Please',
210         &       ' make sure that you are not trying to'
211            CALL PRINT_ERROR( msgBuf, myThid )
212            write(msgbuf,'(2a)') '        overwrite output',
213         &       'files from a previous model run!'
214            CALL PRINT_ERROR( msgBuf, myThid )
215            write(msgbuf,'(5a)') 'defining variable ''', vname(1:lenv),
216       &     ''' in file ''', fname(1:lenf), ''''       &     ''' in file ''', fname(1:lenf), ''''
217        CALL MNC_HANDLE_ERR(err, msgbuf, myThid)          CALL MNC_HANDLE_ERR(err, msgbuf, myThid)
218          ENDIF
219    
220  C     Success, so save the variable info  C     Success, so save the variable info
221        CALL MNC_GET_NEXT_EMPTY_IND(MNC_MAX_ID,mnc_v_names,indv, myThid)        CALL MNC_GET_NEXT_EMPTY_IND(MNC_MAX_ID,mnc_v_names,indv, myThid)
# Line 219  C     Success, so save the variable info Line 231  C     Success, so save the variable info
231        END        END
232    
233  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
234  CBOP  CBOP 1
235  C     !ROUTINE: MNC_VAR_ADD_ATTR_STR  C     !ROUTINE: MNC_VAR_ADD_ATTR_STR
236    
237  C     !INTERFACE:  C     !INTERFACE:
# Line 241  C     !INPUT PARAMETERS: Line 253  C     !INPUT PARAMETERS:
253        integer myThid        integer myThid
254        character*(*) fname,vname,atname,sval        character*(*) fname,vname,atname,sval
255  CEOP  CEOP
256          real*8 dZero(1)
257          real*4 sZero(1)
258          integer iZero(1)
259          dZero(1) = 0.0D0
260          sZero(1) = 0.0
261          iZero(1) = 0
262    
263        CALL MNC_VAR_ADD_ATTR_ANY(fname,vname,atname,        CALL MNC_VAR_ADD_ATTR_ANY(fname,vname,atname,
264       &     1, sval, 0, 0.0D0, 0.0, 0, myThid)       &     1, sval, 0, dZero, sZero, iZero, myThid)
265        RETURN        RETURN
266        END        END
267  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
268  CBOP  CBOP 1
269  C     !ROUTINE: MNC_VAR_ADD_ATTR_DBL  C     !ROUTINE: MNC_VAR_ADD_ATTR_DBL
270    
271  C     !INTERFACE:  C     !INTERFACE:
# Line 271  C     !INPUT PARAMETERS: Line 289  C     !INPUT PARAMETERS:
289        character*(*) fname,vname,atname        character*(*) fname,vname,atname
290        REAL*8 dval(*)        REAL*8 dval(*)
291  CEOP  CEOP
292          real*4 sZero(1)
293          integer iZero(1)
294          sZero(1) = 0.0
295          iZero(1) = 0
296    
297        CALL MNC_VAR_ADD_ATTR_ANY(fname,vname,atname,        CALL MNC_VAR_ADD_ATTR_ANY(fname,vname,atname,
298       &     2, ' ', nv, dval, 0.0, 0, myThid)       &     2, ' ', nv, dval, sZero, iZero, myThid)
299        RETURN        RETURN
300        END        END
301    
302  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
303  CBOP  CBOP 1
304  C     !ROUTINE:  C     !ROUTINE: MNC_VAR_ADD_ATTR_REAL
305    
306  C     !INTERFACE:  C     !INTERFACE:
307        SUBROUTINE MNC_VAR_ADD_ATTR_REAL(        SUBROUTINE MNC_VAR_ADD_ATTR_REAL(
# Line 302  C     !INPUT PARAMETERS: Line 324  C     !INPUT PARAMETERS:
324        character*(*) fname,vname,atname        character*(*) fname,vname,atname
325        REAL*4 rval(*)        REAL*4 rval(*)
326  CEOP  CEOP
327          real*8 dZero(1)
328          integer iZero(1)
329          dZero(1) = 0.0D0
330          iZero(1) = 0
331    
332        CALL MNC_VAR_ADD_ATTR_ANY(fname,vname,atname,        CALL MNC_VAR_ADD_ATTR_ANY(fname,vname,atname,
333       &     3, ' ', nv, 0.0D0, rval, 0, myThid)       &     3, ' ', nv, dZero, rval, iZero, myThid)
334        RETURN        RETURN
335        END        END
336    
337  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
338  CBOP  CBOP 1
339  C     !ROUTINE: MNC_VAR_ADD_ATTR_INT  C     !ROUTINE: MNC_VAR_ADD_ATTR_INT
340    
341  C     !INTERFACE:  C     !INTERFACE:
# Line 333  C     !INPUT PARAMETERS: Line 359  C     !INPUT PARAMETERS:
359        character*(*) fname,vname,atname        character*(*) fname,vname,atname
360        integer ival(*)        integer ival(*)
361  CEOP  CEOP
362          real*8 dZero(1)
363          real*4 sZero(1)
364          dZero(1) = 0.0D0
365          sZero(1) = 0.0
366    
367        CALL MNC_VAR_ADD_ATTR_ANY(fname,vname,atname,        CALL MNC_VAR_ADD_ATTR_ANY(fname,vname,atname,
368       &     4, ' ', nv, 0.0D0, 0.0, ival, myThid)       &     4, ' ', nv, dZero, sZero, ival, myThid)
369        RETURN        RETURN
370        END        END
371    
372  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
373  CBOP  CBOP 1
374  C     !ROUTINE: MNC_VAR_ADD_ATTR_ANY  C     !ROUTINE: MNC_VAR_ADD_ATTR_ANY
375    
376  C     !INTERFACE:  C     !INTERFACE:
# Line 367  C     !INPUT PARAMETERS: Line 397  C     !INPUT PARAMETERS:
397        REAL*8 dv(*)        REAL*8 dv(*)
398        REAL*4 rv(*)        REAL*4 rv(*)
399        integer iv(*)        integer iv(*)
400    CEOP
401    
402  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
403        integer n, indf,ind_fv_ids, fid,vid, err        integer n, indf,ind_fv_ids, fid,vid, err
404        character*(MAX_LEN_MBUF) msgbuf        character*(MAX_LEN_MBUF) msgbuf
405        integer lenf,lenv,lenat,lens        integer lenf,lenv,lenat,lens
406  CEOP  
407  C     Functions  C     Functions
408        integer ILNBLNK        integer ILNBLNK
409    
Legend:
Removed from v.1.14  
changed lines
  Added in v.1.18
  ViewVC Help
Powered by ViewVC 1.1.22