43 |
INTEGER prec |
INTEGER prec |
44 |
#ifndef USE_ATMOSCO2 |
#ifndef USE_ATMOSCO2 |
45 |
INTEGER ioUnit |
INTEGER ioUnit |
|
_RL tmpFld(2) |
|
46 |
_RS dummyRS(1) |
_RS dummyRS(1) |
47 |
#endif |
#endif |
48 |
#ifdef DIC_BIOTIC |
#ifdef DIC_BIOTIC |
62 |
IF ( dic_int1.EQ.3 ) THEN |
IF ( dic_int1.EQ.3 ) THEN |
63 |
WRITE(fn,'(A,A)') 'pickup_dic_co2atm.',suff |
WRITE(fn,'(A,A)') 'pickup_dic_co2atm.',suff |
64 |
ioUnit = 0 |
ioUnit = 0 |
|
tmpFld(1) = total_atmos_carbon |
|
|
tmpFld(2) = atpco2 |
|
65 |
#ifdef ALLOW_MDSIO |
#ifdef ALLOW_MDSIO |
66 |
CALL MDS_WRITEVEC_LOC( |
CALL MDS_WRITEVEC_LOC( |
67 |
I fn, prec, ioUnit, |
I fn, prec, ioUnit, |
68 |
I 'RL', 2, tmpFld, dummyRS, |
I 'RL', 1, total_atmos_carbon, dummyRS, |
69 |
I 0, 0, 1, myIter, myThid ) |
I 0, 0, 1, myIter, myThid ) |
70 |
|
CALL MDS_WRITEVEC_LOC( |
71 |
|
I fn, prec, ioUnit, |
72 |
|
I 'RL', 1, atpco2, dummyRS, |
73 |
|
I 0, 0, 2, myIter, myThid ) |
74 |
#endif |
#endif |
75 |
ENDIF |
ENDIF |
76 |
#endif /* ndef USE_ATMOSCO2 */ |
#endif /* ndef USE_ATMOSCO2 */ |