File indexing completed on 2018-03-02 18:40:53 UTC
view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC
a9504b1b15 Jean*0001 #include "GCHEM_OPTIONS.h"
5dae554984 Oliv*0002 #ifdef ALLOW_DARWIN
0003 #include "DARWIN_OPTIONS.h"
0004 #endif
a9504b1b15 Jean*0005
0006
0007
0008
0009
0010 SUBROUTINE GCHEM_WRITE_PICKUP( permPickup, suff,
0011 I myTime, myIter, myThid )
0012
0013
0014
0015
0016
0017
0018 IMPLICIT NONE
0019
0020 #include "SIZE.h"
0021 #include "EEPARAMS.h"
0022
0023 #include "GCHEM.h"
0024
0025
0026
0027
0028
0029
0030
0031 LOGICAL permPickup
0032 CHARACTER*(*) suff
0033 _RL myTime
0034 INTEGER myIter
0035 INTEGER myThid
0036
0037
0038 #ifdef ALLOW_GCHEM
0039
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