/[MITgcm]/MITgcm/pkg/cd_code/cd_code_write_pickup.F
ViewVC logotype

Diff of /MITgcm/pkg/cd_code/cd_code_write_pickup.F

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

revision 1.3 by edhill, Fri Mar 2 16:42:39 2007 UTC revision 1.4 by jmc, Fri Oct 19 03:21:39 2007 UTC
# Line 9  C     !ROUTINE: CD_CODE_WRITE_PICKUP Line 9  C     !ROUTINE: CD_CODE_WRITE_PICKUP
9    
10  C     !INTERFACE:  C     !INTERFACE:
11        SUBROUTINE CD_CODE_WRITE_PICKUP(        SUBROUTINE CD_CODE_WRITE_PICKUP(
12       I     prec,       I                         permPickup, suff,
13       I     lgf,       I                         myTime, myIter, myThid )
      I     permCheckPoint,  
      I     myIter,  
      I     myThid )  
14    
15  C     !DESCRIPTION:  C     !DESCRIPTION:
16  C     Read the pickup.  C     Read the pickup.
# Line 29  C     !USES: Line 26  C     !USES:
26  #endif  #endif
27    
28  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
29        INTEGER prec  C     permPickup :: Is or is not a permanent pickup
30        LOGICAL lgf  C     suff    :: suffix for pickup file (eg. ckptA or 0000000010)
31        LOGICAL permCheckPoint  C     myTime  :: Current time in simulation
32    C     myIter  :: Current iteration number in simulation
33    C     myThid  :: My Thread Id number
34          LOGICAL permPickup
35          CHARACTER*(*) suff
36          _RL     myTime
37        INTEGER myIter        INTEGER myIter
38        INTEGER myThid        INTEGER myThid
39  CEOP  CEOP
# Line 40  CEOP Line 42  CEOP
42    
43  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
44        CHARACTER*(MAX_LEN_FNAM) fn        CHARACTER*(MAX_LEN_FNAM) fn
45          INTEGER prec
       IF ( permCheckPoint ) THEN  
         WRITE(fn,'(A)') 'pickup_cd'  
       ELSE  
         WRITE(fn,'(A,A)') 'pickup_cd.',checkPtSuff(nCheckLev)  
       ENDIF  
46    
47  #ifdef ALLOW_MNC  #ifdef ALLOW_MNC
48        IF (useMNC .AND. pickup_write_mnc) THEN        IF (useMNC .AND. pickup_write_mnc) THEN
49    
50            IF ( permPickup ) THEN
51              WRITE(fn,'(A)') 'pickup_cd'
52            ELSE
53              WRITE(fn,'(A,A)') 'pickup_cd.',suff
54            ENDIF
55    
56  C       Read variables from the pickup file  C       Read variables from the pickup file
57          CALL MNC_CW_SET_UDIM(fn, 1, myThid)          CALL MNC_CW_SET_UDIM(fn, 1, myThid)
58          IF ( permCheckPoint ) THEN          IF ( permPickup ) THEN
59            CALL MNC_CW_SET_CITER(fn, 3, 3, myIter, -1, myThid)            CALL MNC_CW_SET_CITER(fn, 3, 3, myIter, -1, myThid)
60          ELSE          ELSE
61            CALL MNC_CW_SET_CITER(fn, 2, -1, -1, -1, myThid)            CALL MNC_CW_SET_CITER(fn, 2, -1, -1, -1, myThid)
# Line 66  C       Read variables from the pickup f Line 70  C       Read variables from the pickup f
70        ENDIF        ENDIF
71  #endif /*  ALLOW_MNC  */  #endif /*  ALLOW_MNC  */
72    
       IF ( permCheckPoint ) THEN  
         WRITE(fn,'(A,I10.10)') 'pickup_cd.',myIter  
       ELSE  
         WRITE(fn,'(A,A)') 'pickup_cd.',checkPtSuff(nCheckLev)  
       ENDIF  
   
73        IF (pickup_write_mdsio) THEN        IF (pickup_write_mdsio) THEN
74    
75            prec = precFloat64
76            WRITE(fn,'(A,A)') 'pickup_cd.',suff
77    
78          CALL WRITE_REC_3D_RL( fn, prec, Nr, uVelD, 1, myIter, myThid )          CALL WRITE_REC_3D_RL( fn, prec, Nr, uVelD, 1, myIter, myThid )
79          CALL WRITE_REC_3D_RL( fn, prec, Nr, vVelD, 2, myIter, myThid )          CALL WRITE_REC_3D_RL( fn, prec, Nr, vVelD, 2, myIter, myThid )
80          CALL WRITE_REC_3D_RL( fn, prec, Nr, uNM1,  3, myIter, myThid )          CALL WRITE_REC_3D_RL( fn, prec, Nr, uNM1,  3, myIter, myThid )
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22