/[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.9 by jahn, Tue Nov 5 22:19:10 2013 UTC revision 1.10 by jmc, Wed Nov 20 16:01:04 2013 UTC
# Line 43  C     == Local variables == Line 43  C     == Local variables ==
43        INTEGER prec        INTEGER prec
44  #ifndef USE_ATMOSCO2  #ifndef USE_ATMOSCO2
45        INTEGER ioUnit        INTEGER ioUnit
46          _RL tmpFld(2)
47        _RS dummyRS(1)        _RS dummyRS(1)
48  #endif  #endif
49  #ifdef DIC_BIOTIC  #ifdef DIC_BIOTIC
# Line 62  c     IF ( DIC_pickup_write_mdsio ) THEN Line 63  c     IF ( DIC_pickup_write_mdsio ) THEN
63          IF ( dic_int1.EQ.3 ) THEN          IF ( dic_int1.EQ.3 ) THEN
64            WRITE(fn,'(A,A)') 'pickup_dic_co2atm.',suff            WRITE(fn,'(A,A)') 'pickup_dic_co2atm.',suff
65            ioUnit = 0            ioUnit = 0
66    #ifdef ALLOW_AUTODIFF_OPENAD
67              tmpFld(1) = total_atmos_carbon%v
68              tmpFld(2) = atpco2%v
69    #else /* ALLOW_AUTODIFF_OPENAD */
70              tmpFld(1) = total_atmos_carbon
71              tmpFld(2) = atpco2
72    #endif /* ALLOW_AUTODIFF_OPENAD */
73  #ifdef ALLOW_MDSIO  #ifdef ALLOW_MDSIO
74            CALL MDS_WRITEVEC_LOC(            CALL MDS_WRITEVEC_LOC(
75       I                         fn, prec, ioUnit,       I                         fn, prec, ioUnit,
76       I                         'RL', 1, total_atmos_carbon, dummyRS,       I                         'RL', 2, tmpFld, dummyRS,
77       I                         0, 0, 1, myIter, myThid )       I                         0, 0, 1, myIter, myThid )
           CALL MDS_WRITEVEC_LOC(  
      I                         fn, prec, ioUnit,  
      I                         'RL', 1, atpco2, dummyRS,  
      I                         0, 0, 2, myIter, myThid )  
78  #endif  #endif
79          ENDIF          ENDIF
80  #endif /* ndef USE_ATMOSCO2 */  #endif /* ndef USE_ATMOSCO2 */
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22