/[MITgcm]/MITgcm/pkg/dic/dic_write_pickup.F
ViewVC logotype

Diff of /MITgcm/pkg/dic/dic_write_pickup.F

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

revision 1.3 by jmc, Sun Apr 6 03:26:01 2008 UTC revision 1.4 by jmc, Sun Apr 6 20:54:09 2008 UTC
# Line 4  C $Name$ Line 4  C $Name$
4  #include "GCHEM_OPTIONS.h"  #include "GCHEM_OPTIONS.h"
5  #include "DIC_OPTIONS.h"  #include "DIC_OPTIONS.h"
6    
7        SUBROUTINE DIC_WRITE_PICKUP( permPickup, suff,  CBOP
8       I                               myTime, myIter, myThid )  C !ROUTINE: DIC_WRITE_PICKUP
9    
10    C !INTERFACE: ==========================================================
11          SUBROUTINE DIC_WRITE_PICKUP( permPickup,
12         I                             suff, myTime, myIter, myThid )
13    
14    C !DESCRIPTION:
15    C     Writes DIC arrays (needed for a restart) to a pickup file
16    
17    C !USES: ===============================================================
18        IMPLICIT NONE        IMPLICIT NONE
19  C     === Global variables ===  C     === Global variables ===
20  #include "SIZE.h"  #include "SIZE.h"
# Line 14  C     === Global variables === Line 22  C     === Global variables ===
22  #include "PARAMS.h"  #include "PARAMS.h"
23  #include "DIC_VARS.h"  #include "DIC_VARS.h"
24    
25  C     == Routine arguments ==  C !INPUT PARAMETERS: ===================================================
26  C     permPickup :: write a permanent pickup  C     permPickup :: write a permanent pickup
27  C     suff    :: suffix for pickup file (eg. ckptA or 0000000010)  C     suff       :: suffix for pickup file (eg. ckptA or 0000000010)
28  C     myTime  :: Current time in simulation  C     myTime     :: Current time in simulation
29  C     myIter  :: Current iteration number in simulation  C     myIter     :: Current iteration number in simulation
30  C     myThid  :: My Thread Id number  C     myThid     :: My Thread Id number
31        LOGICAL permPickup        LOGICAL permPickup
32        CHARACTER*(*) suff        CHARACTER*(*) suff
33        _RL     myTime        _RL     myTime
34        INTEGER myIter        INTEGER myIter
35        INTEGER myThid        INTEGER myThid
36    CEOP
37    
38  #ifdef ALLOW_DIC  #ifdef ALLOW_DIC
39  #ifdef DIC_BIOTIC  #ifdef DIC_BIOTIC
# Line 38  C     == Local variables == Line 47  C     == Local variables ==
47        PARAMETER( listDim = 2 )        PARAMETER( listDim = 2 )
48        CHARACTER*(8) wrFldList(listDim)        CHARACTER*(8) wrFldList(listDim)
49        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
 CEOP  
50    
51  c     IF ( DIC_pickup_write_mdsio ) THEN  c     IF ( DIC_pickup_write_mdsio ) THEN
52          prec = precFloat64          prec = precFloat64
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22