pkg/dic/dic_write_pickup.F

C $Header:  $
C $Name:  $

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

      SUBROUTINE DIC_WRITE_PICKUP( permPickup, suff,
     I                               myTime, myIter, myThid )

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

C     == Routine arguments ==
C     permPickup :: write a permanent pickup
C     suff    :: suffix for pickup file (eg. ckptA or 0000000010)
C     myTime  :: Current time in simulation
C     myIter  :: Current iteration number in simulation
C     myThid  :: My Thread Id number
      LOGICAL permPickup
      CHARACTER*(*) suff
      _RL     myTime
      INTEGER myIter
      INTEGER myThid

#ifdef ALLOW_DIC
#ifdef DIC_BIOTIC

C     !LOCAL VARIABLES:
C     == Local variables ==
      CHARACTER*(MAX_LEN_FNAM) fn
      INTEGER prec
c     CHARACTER*(MAX_LEN_MBUF) msgBuf
CEOP

      prec = precFloat64
      WRITE(fn,'(A,A)') 'pickup_dic.',suff

      CALL WRITE_REC_3D_RL( fn, prec, 1, pH, 1, myIter, myThid )

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

      RETURN
      END
1	dfer	1.1	C $Header: $
2			C $Name: $
3
4			#include "GCHEM_OPTIONS.h"
5			#include "DIC_OPTIONS.h"
6
7			SUBROUTINE DIC_WRITE_PICKUP( permPickup, suff,
8			I myTime, myIter, myThid )
9
10			IMPLICIT NONE
11			C === Global variables ===
12			#include "SIZE.h"
13			#include "EEPARAMS.h"
14			#include "PARAMS.h"
15			#include "DIC_ABIOTIC.h"
16
17			C == Routine arguments ==
18			C permPickup :: write a permanent pickup
19			C suff :: suffix for pickup file (eg. ckptA or 0000000010)
20			C myTime :: Current time in simulation
21			C myIter :: Current iteration number in simulation
22			C myThid :: My Thread Id number
23			LOGICAL permPickup
24			CHARACTER() suff
25			_RL myTime
26			INTEGER myIter
27			INTEGER myThid
28
29			#ifdef ALLOW_DIC
30			#ifdef DIC_BIOTIC
31
32			C !LOCAL VARIABLES:
33			C == Local variables ==
34			CHARACTER*(MAX_LEN_FNAM) fn
35			INTEGER prec
36			c CHARACTER*(MAX_LEN_MBUF) msgBuf
37			CEOP
38
39			prec = precFloat64
40			WRITE(fn,'(A,A)') 'pickup_dic.',suff
41
42			CALL WRITE_REC_3D_RL( fn, prec, 1, pH, 1, myIter, myThid )
43
44			#endif /* DIC_BIOTIC */
45			#endif /* ALLOW_DIC */
46
47			RETURN
48			END