/[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.8 by edhill, Sat Jan 17 13:55:49 2004 UTC revision 1.9 by edhill, Sun Jan 18 23:23:15 2004 UTC
# Line 341  C     Arguments Line 341  C     Arguments
341        character*(*) fname,vname        character*(*) fname,vname
342        REAL*8 var(*)        REAL*8 var(*)
343    
344        CALL MNC_VAR_WRITE_ANY(myThid,fname,vname, 1, var, 0.0, 0 )        CALL MNC_VAR_WRITE_ANY(myThid,fname,vname,1,0,var,0.0,0)
345        RETURN        RETURN
346        END        END
347    
# Line 359  C     Arguments Line 359  C     Arguments
359        character*(*) fname,vname        character*(*) fname,vname
360        REAL*4 var(*)        REAL*4 var(*)
361    
362        CALL MNC_VAR_WRITE_ANY(myThid,fname,vname, 2, 0.0D0, var, 0 )        CALL MNC_VAR_WRITE_ANY(myThid,fname,vname,2,0,0.0D0,var,0)
363        RETURN        RETURN
364        END        END
365    
# Line 377  C     Arguments Line 377  C     Arguments
377        character*(*) fname,vname        character*(*) fname,vname
378        integer var(*)        integer var(*)
379    
380        CALL MNC_VAR_WRITE_ANY(myThid,fname,vname, 3, 0.0D0, 0.0, var )        CALL MNC_VAR_WRITE_ANY(myThid,fname,vname,3,0,0.0D0,0.0,var)
381          RETURN
382          END
383    
384    C==================================================================
385    
386          SUBROUTINE MNC_VAR_APPEND_DBL(
387         I     myThid,
388         I     fname,
389         I     vname,
390         I     var,
391         I     append )
392    
393          implicit none
394    C     Arguments
395          integer myThid, append
396          character*(*) fname,vname
397          REAL*8 var(*)
398    
399          CALL MNC_VAR_WRITE_ANY(myThid,fname,vname,1,append,var,0.0,0)
400          RETURN
401          END
402    
403    C==================================================================
404    
405          SUBROUTINE MNC_VAR_APPEND_REAL(
406         I     myThid,
407         I     fname,
408         I     vname,
409         I     var,
410         I     append )
411    
412          implicit none
413    C     Arguments
414          integer myThid, append
415          character*(*) fname,vname
416          REAL*4 var(*)
417    
418          CALL MNC_VAR_WRITE_ANY(myThid,fname,vname,2,append,0.0D0,var,0)
419          RETURN
420          END
421    
422    C==================================================================
423    
424          SUBROUTINE MNC_VAR_APPEND_INT(
425         I     myThid,
426         I     fname,
427         I     vname,
428         I     var,
429         I     append )
430    
431          implicit none
432    C     Arguments
433          integer myThid, append
434          character*(*) fname,vname
435          integer var(*)
436    
437          CALL MNC_VAR_WRITE_ANY(myThid,fname,vname,3,append,0.0D0,0.0,var)
438        RETURN        RETURN
439        END        END
440    
# Line 388  C======================================= Line 445  C=======================================
445       I     fname,       I     fname,
446       I     vname,       I     vname,
447       I     vtype,       I     vtype,
448         I     append,
449       I     dv,       I     dv,
450       I     rv,       I     rv,
451       I     iv )       I     iv )
# Line 403  C     Arguments Line 461  C     Arguments
461        REAL*8 dv(*)        REAL*8 dv(*)
462        REAL*4 rv(*)        REAL*4 rv(*)
463        integer iv(*)        integer iv(*)
464          integer append
465    
466  C     Functions  C     Functions
467        integer ILNBLNK        integer ILNBLNK
# Line 446  C     Check for the unlimited dimension Line 505  C     Check for the unlimited dimension
505          err = NF_INQ_DIMLEN(fid, did, lend)          err = NF_INQ_DIMLEN(fid, did, lend)
506          write(msgbuf,'(a)') 'reading current length of unlimited dim'          write(msgbuf,'(a)') 'reading current length of unlimited dim'
507          CALL MNC_HANDLE_ERR(myThid, err, msgbuf)          CALL MNC_HANDLE_ERR(myThid, err, msgbuf)
508          IF (lend .LT. 1)  lend = lend + 1          IF (append .GT. 0) THEN
509              lend = lend + append
510            ENDIF
511            IF (lend .LT. 1) lend = 1
512          vstart(k) = lend          vstart(k) = lend
513          vcount(k) = 1          vcount(k) = 1
514        ENDIF        ENDIF
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22