pkg/gchem/gchem_write_pickup.F

C $Header: /u/gcmpack/MITgcm_contrib/darwin/pkg/gchem/gchem_write_pickup.F,v 1.2 2009/03/04 20:40:42 jahn Exp $
C $Name:  $

#include "GCHEM_OPTIONS.h"
#ifdef ALLOW_DARWIN
#include "DARWIN_OPTIONS.h"
#endif

CBOP
C !ROUTINE: GCHEM_WRITE_PICKUP

C !INTERFACE: ==========================================================
      SUBROUTINE GCHEM_WRITE_PICKUP( permPickup, suff,
     I                               myTime, myIter, myThid )

C !DESCRIPTION:
C     Writes pickup files needed for a restart
C     (wrapper interface to GCHEM sub-packages)

C !USES: ===============================================================
      IMPLICIT NONE
C     === Global variables ===
#include "SIZE.h"
#include "EEPARAMS.h"
c#include "PARAMS.h"
#include "GCHEM.h"

C !INPUT PARAMETERS: ===================================================
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
CEOP

#ifdef ALLOW_GCHEM
C     !LOCAL VARIABLES:

#ifdef ALLOW_DIC
      IF ( useDIC ) THEN
        CALL DIC_WRITE_PICKUP( permPickup, suff,
     I                         myTime, myIter, myThid )
      ENDIF
#endif /* ALLOW_DIC */

#ifdef ALLOW_DARWIN
      IF ( useDARWIN ) THEN
        CALL DARWIN_WRITE_PICKUP( permPickup, suff,
     I                            myTime, myIter, myThid )
#ifdef ALLOW_CARBON
        CALL DIC_WRITE_PICKUP( permPickup, suff,
     I                         myTime, myIter, myThid )
#endif
      ENDIF
#endif /* ALLOW_DARWIN */

#endif /* ALLOW_GCHEM */
      RETURN
      END
1	stephd	1.3	C $Header: /u/gcmpack/MITgcm_contrib/darwin/pkg/gchem/gchem_write_pickup.F,v 1.2 2009/03/04 20:40:42 jahn Exp $
2	jahn	1.2	C $Name: $
3	jahn	1.1
4			#include "GCHEM_OPTIONS.h"
5	stephd	1.3	#ifdef ALLOW_DARWIN
6			#include "DARWIN_OPTIONS.h"
7			#endif
8	jahn	1.1
9			CBOP
10			C !ROUTINE: GCHEM_WRITE_PICKUP
11
12			C !INTERFACE: ==========================================================
13			SUBROUTINE GCHEM_WRITE_PICKUP( permPickup, suff,
14			I myTime, myIter, myThid )
15
16			C !DESCRIPTION:
17			C Writes pickup files needed for a restart
18			C (wrapper interface to GCHEM sub-packages)
19
20			C !USES: ===============================================================
21			IMPLICIT NONE
22			C === Global variables ===
23			#include "SIZE.h"
24			#include "EEPARAMS.h"
25			c#include "PARAMS.h"
26			#include "GCHEM.h"
27
28			C !INPUT PARAMETERS: ===================================================
29			C permPickup :: write a permanent pickup
30			C suff :: suffix for pickup file (eg. ckptA or 0000000010)
31			C myTime :: Current time in simulation
32			C myIter :: Current iteration number in simulation
33			C myThid :: My Thread Id number
34			LOGICAL permPickup
35			CHARACTER() suff
36			_RL myTime
37			INTEGER myIter
38			INTEGER myThid
39			CEOP
40
41			#ifdef ALLOW_GCHEM
42			C !LOCAL VARIABLES:
43
44			#ifdef ALLOW_DIC
45			IF ( useDIC ) THEN
46			CALL DIC_WRITE_PICKUP( permPickup, suff,
47			I myTime, myIter, myThid )
48			ENDIF
49			#endif /* ALLOW_DIC */
50
51	jahn	1.2	#ifdef ALLOW_DARWIN
52			IF ( useDARWIN ) THEN
53			CALL DARWIN_WRITE_PICKUP( permPickup, suff,
54			I myTime, myIter, myThid )
55	stephd	1.3	#ifdef ALLOW_CARBON
56			CALL DIC_WRITE_PICKUP( permPickup, suff,
57			I myTime, myIter, myThid )
58			#endif
59	jahn	1.2	ENDIF
60			#endif /* ALLOW_DARWIN */
61
62	jahn	1.1	#endif /* ALLOW_GCHEM */
63			RETURN
64			END