/[MITgcm]/MITgcm/pkg/mypackage/mypackage_write_pickup.F
ViewVC logotype

Diff of /MITgcm/pkg/mypackage/mypackage_write_pickup.F

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

revision 1.1 by jmc, Sun Jan 27 20:52:11 2008 UTC revision 1.2 by jmc, Sun Apr 6 02:03:17 2008 UTC
# Line 8  C !ROUTINE: MYPACKAGE_WRITE_PICKUP Line 8  C !ROUTINE: MYPACKAGE_WRITE_PICKUP
8    
9  C !INTERFACE: ==========================================================  C !INTERFACE: ==========================================================
10        SUBROUTINE MYPACKAGE_WRITE_PICKUP( permPickup,        SUBROUTINE MYPACKAGE_WRITE_PICKUP( permPickup,
11       &                    suff, myIter, myTime, myThid )       &                    suff, myTime, myIter, myThid )
12    
13  C !DESCRIPTION:  C !DESCRIPTION:
14  C     Writes current state of passive tracers to a pickup file  C     Writes current state of passive tracers to a pickup file
# Line 23  C !USES: =============================== Line 23  C !USES: ===============================
23  C !INPUT PARAMETERS: ===================================================  C !INPUT PARAMETERS: ===================================================
24  C     permPickup      :: write a permanent pickup  C     permPickup      :: write a permanent pickup
25  C     suff            :: suffix for pickup file (eg. ckptA or 0000000010)  C     suff            :: suffix for pickup file (eg. ckptA or 0000000010)
 C     myIter          :: time-step number  
26  C     myTime          :: model time  C     myTime          :: model time
27    C     myIter          :: time-step number
28  C     myThid          :: thread number  C     myThid          :: thread number
29        LOGICAL permPickup        LOGICAL permPickup
30        CHARACTER*(*) suff        CHARACTER*(*) suff
       INTEGER myIter  
31        _RL myTime        _RL myTime
32          INTEGER myIter
33        INTEGER myThid        INTEGER myThid
34    
35  C !OUTPUT PARAMETERS: ==================================================  C !OUTPUT PARAMETERS: ==================================================
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22