40 |
|
|
41 |
C !LOCAL VARIABLES: |
C !LOCAL VARIABLES: |
42 |
C == Local variables == |
C == Local variables == |
|
C prec :: file precision |
|
43 |
C suffix :: pickup-name suffix |
C suffix :: pickup-name suffix |
|
C lgf :: Flag to indicate whether to use global file mode. |
|
44 |
CHARACTER*(10) suffix |
CHARACTER*(10) suffix |
|
INTEGER prec |
|
|
LOGICAL lgf |
|
45 |
CEOP |
CEOP |
46 |
|
|
47 |
C Going to really do some IO. Make everyone except master thread wait. |
C Going to really do some IO. Make everyone except master thread wait. |
48 |
_BARRIER |
C this is done within IO routines => no longer needed |
49 |
|
c _BARRIER |
|
prec = precFloat64 |
|
|
lgf = globalFiles |
|
50 |
|
|
51 |
C Create suffix to pass on to package pickup routines |
C Create suffix to pass on to package pickup routines |
52 |
IF ( permPickup ) THEN |
IF ( permPickup ) THEN |
73 |
#ifdef ALLOW_OBCS |
#ifdef ALLOW_OBCS |
74 |
C SPK 4/9/01: Open boundary checkpointing |
C SPK 4/9/01: Open boundary checkpointing |
75 |
c IF (useOBCS) THEN |
c IF (useOBCS) THEN |
76 |
c CALL OBCS_WRITE_CHECKPOINT( |
c CALL OBCS_WRITE_PICKUP( |
77 |
c & prec, lgf, permPickup, myIter, myThid) |
c & suffix, myTime, myIter, myThid ) |
78 |
c ENDIF |
c ENDIF |
79 |
#endif /* ALLOW_OBCS */ |
#endif /* ALLOW_OBCS */ |
80 |
|
|
102 |
#ifdef ALLOW_FLT |
#ifdef ALLOW_FLT |
103 |
C Write restart file for floats |
C Write restart file for floats |
104 |
IF (useFLT) THEN |
IF (useFLT) THEN |
105 |
CALL FLT_RESTART(myTime, myIter, myThid) |
CALL FLT_WRITE_PICKUP( |
106 |
|
& suffix, myTime, myIter, myThid ) |
107 |
ENDIF |
ENDIF |
108 |
#endif |
#endif |
109 |
|
|
150 |
#ifdef ALLOW_GCHEM |
#ifdef ALLOW_GCHEM |
151 |
C Write restart file for GCHEM pkg & GCHEM sub-packages |
C Write restart file for GCHEM pkg & GCHEM sub-packages |
152 |
IF ( useGCHEM ) THEN |
IF ( useGCHEM ) THEN |
153 |
CALL DIC_WRITE_PICKUP( permPickup, |
CALL GCHEM_WRITE_PICKUP( permPickup, |
154 |
I suffix, myTime, myIter, myThid ) |
I suffix, myTime, myIter, myThid ) |
155 |
ENDIF |
ENDIF |
156 |
#endif |
#endif |
157 |
|
|
158 |
|
#ifdef ALLOW_CHEAPAML |
159 |
|
C Write restart file for CHEAPAML pkg |
160 |
|
IF ( useCheapAML ) THEN |
161 |
|
CALL CHEAPAML_WRITE_PICKUP( permPickup, |
162 |
|
I suffix, myTime, myIter, myThid) |
163 |
|
ENDIF |
164 |
|
#endif /* ALLOW_CHEAPAML */ |
165 |
|
|
166 |
#ifdef ALLOW_MYPACKAGE |
#ifdef ALLOW_MYPACKAGE |
167 |
IF (useMYPACKAGE) THEN |
IF (useMYPACKAGE) THEN |
168 |
CALL MYPACKAGE_WRITE_PICKUP( permPickup, |
CALL MYPACKAGE_WRITE_PICKUP( permPickup, |
171 |
#endif /* ALLOW_MYPACKAGE */ |
#endif /* ALLOW_MYPACKAGE */ |
172 |
|
|
173 |
C-- Every one else must wait until writing is done. |
C-- Every one else must wait until writing is done. |
174 |
_BARRIER |
C this is done within IO routines => no longer needed |
175 |
|
c _BARRIER |
176 |
|
|
177 |
RETURN |
RETURN |
178 |
END |
END |