/[MITgcm]/MITgcm/model/src/packages_write_pickup.F
ViewVC logotype

Diff of /MITgcm/model/src/packages_write_pickup.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.42 by jmc, Sat Mar 29 19:40:11 2014 UTC revision 1.43 by jmc, Thu Sep 4 22:30:46 2014 UTC
# Line 21  C     This routine (S/R PACKAGES_WRITE_P Line 21  C     This routine (S/R PACKAGES_WRITE_P
21  C     write-pickup (or checkpoint) routines.  It writes both  C     write-pickup (or checkpoint) routines.  It writes both
22  C     "rolling-pickup" files (ckptA,ckptB) and permanent pickup.  C     "rolling-pickup" files (ckptA,ckptB) and permanent pickup.
23    
24    C     !CALLING SEQUENCE:
25    C     PACKAGES_WRITE_PICKUP
26    C       |
27    C       |-- GAD_WRITE_PICKUP
28    C       |
29    C       |-- CD_CODE_WRITE_PICKUP
30    C       |
31    C       |-- OBCS_WRITE_PICKUP
32    C       |
33    C       |-- GGL90_WRITE_PICKUP
34    C       |
35    C       |-- BBL_WRITE_PICKUP
36    C       |
37    C       |-- CHEAPAML_WRITE_PICKUP
38    C       |
39    C       |-- FLT_WRITE_PICKUP
40    C       |
41    C       |-- PTRACERS_WRITE_PICKUP
42    C       |
43    C       |-- GCHEM_WRITE_PICKUP
44    C       |
45    C       |-- SEAICE_WRITE_PICKUP
46    C       |
47    C       |-- STREAMICE_WRITE_PICKUP
48    C       |
49    C       |-- THSICE_WRITE_PICKUP
50    C       |
51    C       |-- LAND_WRITE_PICKUP
52    C       |
53    C       |-- ATM_PHYS_WRITE_PICKUP
54    C       |
55    C       |-- FIZHI_WRITE_PICKUP
56    C       |-- FIZHI_WRITE_VEGTILES
57    C       |-- FIZHI_WRITE_DATETIME
58    C       |
59    C       |-- DIAGNOSTICS_WRITE_PICKUP
60    C       |
61    C       |-- GMREDI_WRITE_PICKUP
62    C       |
63    C       |-- CPL_WRITE_PICKUP
64    C       |
65    C       |-- MYPACKAGE_WRITE_PICKUP
66    
67  C     !USES:  C     !USES:
68        IMPLICIT NONE        IMPLICIT NONE
69  #include "SIZE.h"  #include "SIZE.h"
# Line 177  C     Write pickup file for diagnostics Line 220  C     Write pickup file for diagnostics
220  #endif  #endif
221    
222  #ifdef ALLOW_GMREDI  #ifdef ALLOW_GMREDI
223        CALL GMREDI_WRITE_PICKUP( permPickup,        IF ( useGMRedi ) THEN
224       I                          suffix, myTime, myIter, myThid )          CALL GMREDI_WRITE_PICKUP( permPickup,
225         I                            suffix, myTime, myIter, myThid )
226          ENDIF
227  #endif  #endif
228    
229  #ifdef  COMPONENT_MODULE  #ifdef  COMPONENT_MODULE
Legend:
Removed from v.1.42  
changed lines
  Added in v.1.43
  ViewVC Help
Powered by ViewVC 1.1.22