/[MITgcm]/MITgcm/pkg/aim_compon_interf/cpl_write_pickup.F
ViewVC logotype

Diff of /MITgcm/pkg/aim_compon_interf/cpl_write_pickup.F

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

revision 1.3 by jmc, Mon Jun 18 21:28:53 2007 UTC revision 1.4 by jmc, Fri Oct 19 03:21:39 2007 UTC
# Line 7  CBOP Line 7  CBOP
7  C     !ROUTINE: CPL_WRITE_PICKUP  C     !ROUTINE: CPL_WRITE_PICKUP
8  C     !INTERFACE:  C     !INTERFACE:
9        SUBROUTINE CPL_WRITE_PICKUP(        SUBROUTINE CPL_WRITE_PICKUP(
10       &               prec, lgf, permCheckPoint, myIter, myThid)       I                             suff, myTime, myIter, myThid )
11    
12  C     !DESCRIPTION: \bv  C     !DESCRIPTION: \bv
13  C     *==========================================================*  C     *==========================================================*
# Line 29  C     == Global variables == Line 29  C     == Global variables ==
29    
30  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
31  C     == Routine arguments ==  C     == Routine arguments ==
32  C     lgf            :: Controls whether global files are used.  C     suff    :: suffix for pickup file (eg. ckptA or 0000000010)
33  C     permCheckpoint :: Controls whether timestamped or rolling checkpoint.  C     myTime  :: Current time in simulation
34  C     myIter  :: Current timestep number.  C     myIter  :: Current iteration number in simulation
35  C     myThid  :: my Thread Id number  C     myThid  :: My Thread Id number
36        INTEGER prec        CHARACTER*(*) suff
37        LOGICAL lgf        _RL     myTime
       LOGICAL permCheckPoint  
38        INTEGER myIter        INTEGER myIter
39        INTEGER myThid        INTEGER myThid
40  CEOP  CEOP
# Line 44  CEOP Line 43  CEOP
43  C     == Local variables ==  C     == Local variables ==
44  C     fn          - Workspace for building file name  C     fn          - Workspace for building file name
45        CHARACTER*(MAX_LEN_FNAM) fn        CHARACTER*(MAX_LEN_FNAM) fn
46          INTEGER prec
47    
48          prec = precFloat64
49          WRITE(fn,'(A,A)') 'pickup_cpl.',suff
50    
       IF ( permCheckPoint ) THEN  
        WRITE(fn,'(A,I10.10)') 'pickup_cpl.',myIter  
       ELSE  
        WRITE(fn,'(A,A)') 'pickup_cpl.',checkPtSuff(nCheckLev)  
       ENDIF  
51  c     CALL WRITE_REC_3D_RL(fn,prec,1,SSTocn    , 1,myIter,myThid)  c     CALL WRITE_REC_3D_RL(fn,prec,1,SSTocn    , 1,myIter,myThid)
52  c     CALL WRITE_REC_3D_RL(fn,prec,1,HeatFlux  , 2,myIter,myThid)  c     CALL WRITE_REC_3D_RL(fn,prec,1,HeatFlux  , 2,myIter,myThid)
53  c     CALL WRITE_REC_3D_RL(fn,prec,1,tauX      , 3,myIter,myThid)  c     CALL WRITE_REC_3D_RL(fn,prec,1,tauX      , 3,myIter,myThid)
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22