pkg/dic/dic_read_pickup.F

C $Header:  $
C $Name:  $

#include "GCHEM_OPTIONS.h"
#include "DIC_OPTIONS.h"

      SUBROUTINE DIC_READ_PICKUP( myIter, myThid )

      IMPLICIT NONE
C     === Global variables ===
#include "SIZE.h"
#include "EEPARAMS.h"
#include "PARAMS.h"
#include "DIC_ABIOTIC.h"

C     == Routine arguments ==
C     myThid -  Number of this instance of DIC_READ_CHECKPOINT
      INTEGER myIter
      INTEGER myThid

#ifdef ALLOW_DIC
#ifdef DIC_BIOTIC

C     !LOCAL VARIABLES:
C     == Local variables ==
      CHARACTER*(MAX_LEN_FNAM) fn
      CHARACTER*(10) suff
      INTEGER prec
CEOP

C--   Suffix for pickup files
      IF (pickupSuff.EQ.' ') THEN
         WRITE(suff,'(I10.10)') myIter
      ELSE
         WRITE(suff,'(A10)') pickupSuff
      ENDIF

      _BARRIER

      prec = precFloat64

      WRITE(fn,'(A,A10)') 'pickup_dic.',suff
      CALL READ_REC_3D_RL( fn, prec, 1, pH, 1, myIter, myThid )

      _EXCH_XY_R8( pH, myThid )

#endif /*  DIC_BIOTIC  */
#endif /*  ALLOW_DIC  */

      RETURN
      END

1	C $Header: $
2	C $Name: $
3
4	#include "GCHEM_OPTIONS.h"
5	#include "DIC_OPTIONS.h"
6
7	SUBROUTINE DIC_READ_PICKUP( myIter, myThid )
8
9	IMPLICIT NONE
10	C === Global variables ===
11	#include "SIZE.h"
12	#include "EEPARAMS.h"
13	#include "PARAMS.h"
14	#include "DIC_ABIOTIC.h"
15
16	C == Routine arguments ==
17	C myThid - Number of this instance of DIC_READ_CHECKPOINT
18	INTEGER myIter
19	INTEGER myThid
20
21	#ifdef ALLOW_DIC
22	#ifdef DIC_BIOTIC
23
24	C !LOCAL VARIABLES:
25	C == Local variables ==
26	CHARACTER*(MAX_LEN_FNAM) fn
27	CHARACTER*(10) suff
28	INTEGER prec
29	CEOP
30
31	C-- Suffix for pickup files
32	IF (pickupSuff.EQ.' ') THEN
33	WRITE(suff,'(I10.10)') myIter
34	ELSE
35	WRITE(suff,'(A10)') pickupSuff
36	ENDIF
37
38	_BARRIER
39
40	prec = precFloat64
41
42	WRITE(fn,'(A,A10)') 'pickup_dic.',suff
43	CALL READ_REC_3D_RL( fn, prec, 1, pH, 1, myIter, myThid )
44
45	_EXCH_XY_R8( pH, myThid )
46
47	#endif /* DIC_BIOTIC */
48	#endif /* ALLOW_DIC */
49
50	RETURN
51	END
52