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, |