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	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	C $Name: $
3
4	#include "GCHEM_OPTIONS.h"
5	#ifdef ALLOW_DARWIN
6	#include "DARWIN_OPTIONS.h"
7	#endif
8
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	#ifdef ALLOW_DARWIN
52	IF ( useDARWIN ) THEN
53	CALL DARWIN_WRITE_PICKUP( permPickup, suff,
54	I myTime, myIter, myThid )
55	#ifdef ALLOW_CARBON
56	CALL DIC_WRITE_PICKUP( permPickup, suff,
57	I myTime, myIter, myThid )
58	#endif
59	ENDIF
60	#endif /* ALLOW_DARWIN */
61
62	#endif /* ALLOW_GCHEM */
63	RETURN
64	END