pkg/gchem/gchem_write_pickup.F

C $Header: /u/gcmpack/MITgcm_contrib/darwin/pkg/gchem/gchem_write_pickup.F,v 1.1 2008/06/02 20:32:49 jahn Exp $
C $Name:  $

#include "GCHEM_OPTIONS.h"

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 )
      ENDIF
#endif /* ALLOW_DARWIN */

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