/[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.15 by edhill, Fri Apr 2 05:13:33 2004 UTC revision 1.17 by jmc, Thu Sep 23 16:17:57 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 219  C     Success, so save the variable info Line 220  C     Success, so save the variable info
220        END        END
221    
222  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
223  CBOP  CBOP 1
224  C     !ROUTINE: MNC_VAR_ADD_ATTR_STR  C     !ROUTINE: MNC_VAR_ADD_ATTR_STR
225    
226  C     !INTERFACE:  C     !INTERFACE:
# Line 241  C     !INPUT PARAMETERS: Line 242  C     !INPUT PARAMETERS:
242        integer myThid        integer myThid
243        character*(*) fname,vname,atname,sval        character*(*) fname,vname,atname,sval
244  CEOP  CEOP
245          real*8 dZero(1)
246          real*4 sZero(1)
247          integer iZero(1)
248          dZero(1) = 0.0D0
249          sZero(1) = 0.0
250          iZero(1) = 0
251    
252        CALL MNC_VAR_ADD_ATTR_ANY(fname,vname,atname,        CALL MNC_VAR_ADD_ATTR_ANY(fname,vname,atname,
253       &     1, sval, 0, 0.0D0, 0.0, 0, myThid)       &     1, sval, 0, dZero, sZero, iZero, myThid)
254        RETURN        RETURN
255        END        END
256  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
257  CBOP  CBOP 1
258  C     !ROUTINE: MNC_VAR_ADD_ATTR_DBL  C     !ROUTINE: MNC_VAR_ADD_ATTR_DBL
259    
260  C     !INTERFACE:  C     !INTERFACE:
# Line 271  C     !INPUT PARAMETERS: Line 278  C     !INPUT PARAMETERS:
278        character*(*) fname,vname,atname        character*(*) fname,vname,atname
279        REAL*8 dval(*)        REAL*8 dval(*)
280  CEOP  CEOP
281          real*4 sZero(1)
282          integer iZero(1)
283          sZero(1) = 0.0
284          iZero(1) = 0
285    
286        CALL MNC_VAR_ADD_ATTR_ANY(fname,vname,atname,        CALL MNC_VAR_ADD_ATTR_ANY(fname,vname,atname,
287       &     2, ' ', nv, dval, 0.0, 0, myThid)       &     2, ' ', nv, dval, sZero, iZero, myThid)
288        RETURN        RETURN
289        END        END
290    
291  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
292  CBOP  CBOP 1
293  C     !ROUTINE: MNC_VAR_ADD_ATTR_REAL  C     !ROUTINE: MNC_VAR_ADD_ATTR_REAL
294    
295  C     !INTERFACE:  C     !INTERFACE:
# Line 302  C     !INPUT PARAMETERS: Line 313  C     !INPUT PARAMETERS:
313        character*(*) fname,vname,atname        character*(*) fname,vname,atname
314        REAL*4 rval(*)        REAL*4 rval(*)
315  CEOP  CEOP
316          real*8 dZero(1)
317          integer iZero(1)
318          dZero(1) = 0.0D0
319          iZero(1) = 0
320    
321        CALL MNC_VAR_ADD_ATTR_ANY(fname,vname,atname,        CALL MNC_VAR_ADD_ATTR_ANY(fname,vname,atname,
322       &     3, ' ', nv, 0.0D0, rval, 0, myThid)       &     3, ' ', nv, dZero, rval, iZero, myThid)
323        RETURN        RETURN
324        END        END
325    
326  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
327  CBOP  CBOP 1
328  C     !ROUTINE: MNC_VAR_ADD_ATTR_INT  C     !ROUTINE: MNC_VAR_ADD_ATTR_INT
329    
330  C     !INTERFACE:  C     !INTERFACE:
# Line 333  C     !INPUT PARAMETERS: Line 348  C     !INPUT PARAMETERS:
348        character*(*) fname,vname,atname        character*(*) fname,vname,atname
349        integer ival(*)        integer ival(*)
350  CEOP  CEOP
351          real*8 dZero(1)
352          real*4 sZero(1)
353          dZero(1) = 0.0D0
354          sZero(1) = 0.0
355    
356        CALL MNC_VAR_ADD_ATTR_ANY(fname,vname,atname,        CALL MNC_VAR_ADD_ATTR_ANY(fname,vname,atname,
357       &     4, ' ', nv, 0.0D0, 0.0, ival, myThid)       &     4, ' ', nv, dZero, sZero, ival, myThid)
358        RETURN        RETURN
359        END        END
360    
361  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
362  CBOP  CBOP 1
363  C     !ROUTINE: MNC_VAR_ADD_ATTR_ANY  C     !ROUTINE: MNC_VAR_ADD_ATTR_ANY
364    
365  C     !INTERFACE:  C     !INTERFACE:
# Line 367  C     !INPUT PARAMETERS: Line 386  C     !INPUT PARAMETERS:
386        REAL*8 dv(*)        REAL*8 dv(*)
387        REAL*4 rv(*)        REAL*4 rv(*)
388        integer iv(*)        integer iv(*)
389    CEOP
390    
391  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
392        integer n, indf,ind_fv_ids, fid,vid, err        integer n, indf,ind_fv_ids, fid,vid, err
393        character*(MAX_LEN_MBUF) msgbuf        character*(MAX_LEN_MBUF) msgbuf
394        integer lenf,lenv,lenat,lens        integer lenf,lenv,lenat,lens
395  CEOP  
396  C     Functions  C     Functions
397        integer ILNBLNK        integer ILNBLNK
398    
Legend:
Removed from v.1.15  
changed lines
  Added in v.1.17
  ViewVC Help
Powered by ViewVC 1.1.22