pkg/gchem/gchem_write_pickup.F

C $Header: /u/gcmpack/MITgcm/pkg/gchem/gchem_init_fixed.F,v 1.8 2007/07/31 23:01:58 ce107 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 */

#endif /* ALLOW_GCHEM */
      RETURN
      END
1	C $Header: /u/gcmpack/MITgcm/pkg/gchem/gchem_init_fixed.F,v 1.8 2007/07/31 23:01:58 ce107 Exp $
2	C $Name: $
3
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	#endif /* ALLOW_GCHEM */
49	RETURN
50	END