/[MITgcm]/MITgcm/pkg/dic/dic_write_pickup.F
ViewVC logotype

Diff of /MITgcm/pkg/dic/dic_write_pickup.F

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

revision 1.6 by jmc, Sun Apr 11 20:59:27 2010 UTC revision 1.14 by jmc, Mon Jan 11 21:46:55 2016 UTC
# Line 41  C     !LOCAL VARIABLES: Line 41  C     !LOCAL VARIABLES:
41  C     == Local variables ==  C     == Local variables ==
42        CHARACTER*(MAX_LEN_FNAM) fn        CHARACTER*(MAX_LEN_FNAM) fn
43        INTEGER prec        INTEGER prec
 #ifndef USE_ATMOSCO2  
44        INTEGER ioUnit        INTEGER ioUnit
45        _RL tmpFld(2)        _RL tmpFld(2)
46        _RS dummyRS(1)        _RS dummyRS(1)
 #endif  
47  #ifdef DIC_BIOTIC  #ifdef DIC_BIOTIC
48        LOGICAL glf        LOGICAL glf
49          _RL     timList(1)
50        INTEGER j, nj        INTEGER j, nj
51        INTEGER listDim, nWrFlds        INTEGER listDim, nWrFlds
52        PARAMETER( listDim = 2 )        PARAMETER( listDim = 2 )
# Line 55  C     == Local variables == Line 54  C     == Local variables ==
54        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
55  #endif  #endif
56    
   
57  c     IF ( DIC_pickup_write_mdsio ) THEN  c     IF ( DIC_pickup_write_mdsio ) THEN
58          prec = precFloat64          prec = precFloat64
59    
 #ifndef USE_ATMOSCO2  
60          IF ( dic_int1.EQ.3 ) THEN          IF ( dic_int1.EQ.3 ) THEN
61            WRITE(fn,'(A,A)') 'pickup_dic_co2atm.',suff            WRITE(fn,'(A,A)') 'pickup_dic_co2atm.',suff
62            ioUnit = 0            ioUnit = 0
63    #ifdef ALLOW_OPENAD
64              tmpFld(1) = total_atmos_carbon%v
65              tmpFld(2) = atpco2%v
66    #else /* ALLOW_OPENAD */
67            tmpFld(1) = total_atmos_carbon            tmpFld(1) = total_atmos_carbon
68            tmpFld(2) = atpco2            tmpFld(2) = atpco2
69    #endif /* ALLOW_OPENAD */
70  #ifdef ALLOW_MDSIO  #ifdef ALLOW_MDSIO
71            CALL MDS_WRITEVEC_LOC(            CALL MDS_WRITEVEC_LOC(
72       I                         fn, prec, ioUnit,       I                         fn, prec, ioUnit,
# Line 72  c     IF ( DIC_pickup_write_mdsio ) THEN Line 74  c     IF ( DIC_pickup_write_mdsio ) THEN
74       I                         0, 0, 1, myIter, myThid )       I                         0, 0, 1, myIter, myThid )
75  #endif  #endif
76          ENDIF          ENDIF
 #endif /* ndef USE_ATMOSCO2 */  
77    
78  #ifdef DIC_BIOTIC  #ifdef DIC_BIOTIC
79          WRITE(fn,'(A,A)') 'pickup_dic.',suff          WRITE(fn,'(A,A)') 'pickup_dic.',suff
# Line 111  C     files Line 112  C     files
112            nj = nWrFlds            nj = nWrFlds
113          ENDIF          ENDIF
114          glf  = globalFiles          glf  = globalFiles
115            timList(1) = myTime
116          CALL MDS_WR_METAFILES( fn, prec, glf, .FALSE.,          CALL MDS_WR_METAFILES( fn, prec, glf, .FALSE.,
117       &                         0, 0, j, ' ',       &                         0, 0, j, ' ',
118       &                         nWrFlds, wrFldList,       &                         nWrFlds, wrFldList,
119       &                         1, myTime,       &                         1, timList, oneRL,
120       &                         nj, myIter, myThid )       &                         nj, myIter, myThid )
121  #endif /* ALLOW_MDSIO */  #endif /* ALLOW_MDSIO */
122  C--------------------------  C--------------------------
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.22