/[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.11 by jmc, Fri Apr 4 19:33:48 2014 UTC revision 1.12 by jmc, Sat Aug 30 00:56:44 2014 UTC
# Line 63  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_OPENAD  c#ifdef ALLOW_OPENAD
67            tmpFld(1) = total_atmos_carbon%v  C-  keep it (commented out) in case these 2 vars become again active
68            tmpFld(2) = atpco2%v  c         tmpFld(1) = total_atmos_carbon%v
69  #else /* ALLOW_OPENAD */  c         tmpFld(2) = atpco2%v
70    c#else /* ALLOW_OPENAD */
71            tmpFld(1) = total_atmos_carbon            tmpFld(1) = total_atmos_carbon
72            tmpFld(2) = atpco2            tmpFld(2) = atpco2
73  #endif /* ALLOW_OPENAD */  c#endif /* ALLOW_OPENAD */
74  #ifdef ALLOW_MDSIO  #ifdef ALLOW_MDSIO
75            CALL MDS_WRITEVEC_LOC(            CALL MDS_WRITEVEC_LOC(
76       I                         fn, prec, ioUnit,       I                         fn, prec, ioUnit,
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22