pkg/gchem/gchem_write_pickup.F

a9504b1b15 Jean*0001 #include "GCHEM_OPTIONS.h"
5dae554984 Oliv*0002 #ifdef ALLOW_DARWIN
                0003 #include "DARWIN_OPTIONS.h"
                0004 #endif
a9504b1b15 Jean*0005
                0006 CBOP
                0007 C !ROUTINE: GCHEM_WRITE_PICKUP
                0008
                0009 C !INTERFACE: ==========================================================
                0010       SUBROUTINE GCHEM_WRITE_PICKUP( permPickup, suff,
                0011      I                               myTime, myIter, myThid )
                0012
                0013 C !DESCRIPTION:
                0014 C     Writes pickup files needed for a restart
                0015 C     (wrapper interface to GCHEM sub-packages)
                0016
                0017 C !USES: ===============================================================
                0018       IMPLICIT NONE
                0019 C     === Global variables ===
                0020 #include "SIZE.h"
                0021 #include "EEPARAMS.h"
                0022 c#include "PARAMS.h"
                0023 #include "GCHEM.h"
                0024
                0025 C !INPUT PARAMETERS: ===================================================
                0026 C     permPickup :: write a permanent pickup
                0027 C     suff       :: suffix for pickup file (eg. ckptA or 0000000010)
                0028 C     myTime     :: Current time in simulation
                0029 C     myIter     :: Current iteration number in simulation
                0030 C     myThid     :: My Thread Id number
                0031       LOGICAL permPickup
                0032       CHARACTER*(*) suff
                0033       _RL     myTime
                0034       INTEGER myIter
                0035       INTEGER myThid
                0036 CEOP
                0037
                0038 #ifdef ALLOW_GCHEM
                0039 C     !LOCAL VARIABLES:
                0040
                0041 #ifdef ALLOW_DIC
                0042       IF ( useDIC ) THEN
                0043         CALL DIC_WRITE_PICKUP( permPickup, suff,
                0044      I                         myTime, myIter, myThid )
                0045       ENDIF
                0046 #endif /* ALLOW_DIC */
                0047
0b2b69e236 Jean*0048 #ifdef ALLOW_BLING
                0049       IF ( useBLING ) THEN
                0050         CALL BLING_WRITE_PICKUP( permPickup, suff,
                0051      I                         myTime, myIter, myThid )
                0052       ENDIF
                0053 #endif /* ALLOW_BLING */
                0054
5dae554984 Oliv*0055 #ifdef ALLOW_DARWIN
                0056       IF ( useDARWIN ) THEN
                0057         CALL DARWIN_WRITE_PICKUP( permPickup, suff,
                0058      I                            myTime, myIter, myThid )
                0059 #ifdef ALLOW_CARBON
                0060         CALL DIC_WRITE_PICKUP( permPickup, suff,
                0061      I                         myTime, myIter, myThid )
                0062 #endif
                0063       ENDIF
                0064 #endif /* ALLOW_DARWIN */
                0065
a9504b1b15 Jean*0066 #endif /* ALLOW_GCHEM */
                0067       RETURN
                0068       END