/[MITgcm]/MITgcm/pkg/ptracers/ptracers_write_state.F
ViewVC logotype

Diff of /MITgcm/pkg/ptracers/ptracers_write_state.F

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

revision 1.14 by jmc, Wed Aug 24 23:23:34 2005 UTC revision 1.15 by edhill, Thu Sep 29 12:19:52 2005 UTC
# Line 40  C     iRec      :: record number Line 40  C     iRec      :: record number
40        INTEGER iTracer        INTEGER iTracer
41        CHARACTER*(MAX_LEN_MBUF) suff        CHARACTER*(MAX_LEN_MBUF) suff
42        INTEGER iRec        INTEGER iRec
43          CHARACTER*(1) pf
44    
45        LOGICAL  DIFFERENT_MULTIPLE        LOGICAL  DIFFERENT_MULTIPLE
46        EXTERNAL DIFFERENT_MULTIPLE        EXTERNAL DIFFERENT_MULTIPLE
# Line 51  C     iRec      :: record number Line 52  C     iRec      :: record number
52       &                             myTime.EQ.startTime  )       &                             myTime.EQ.startTime  )
53       &   ) THEN       &   ) THEN
54                
55            IF ( writeBinaryPrec .EQ. precFloat64 ) THEN
56              pf(1:1) = 'D'
57            ELSE
58              pf(1:1) = 'R'
59            ENDIF
60    
61  C     Write to files  C     Write to files
62         _BARRIER         _BARRIER
63         _BEGIN_MASTER( myThid )         _BEGIN_MASTER( myThid )
# Line 62  C     Write to files Line 69  C     Write to files
69          CALL MNC_CW_SET_UDIM('ptracers', 0, myThid)          CALL MNC_CW_SET_UDIM('ptracers', 0, myThid)
70          CALL MNC_CW_I_W_S('I','ptracers',0,0,'iter',myIter,myThid)          CALL MNC_CW_I_W_S('I','ptracers',0,0,'iter',myIter,myThid)
71          DO iTracer = 1,PTRACERS_numInUse          DO iTracer = 1,PTRACERS_numInUse
72           CALL MNC_CW_RL_W('D','ptracers',0,0,PTRACERS_names(iTracer),           CALL MNC_CW_RL_W(pf,'ptracers',0,0,PTRACERS_names(iTracer),
73       &        pTracer(1-OLx,1-OLy,1,1,1,iTracer),myThid)       &        pTracer(1-OLx,1-OLy,1,1,1,iTracer),myThid)
74          ENDDO          ENDDO
75         ENDIF         ENDIF
Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15
  ViewVC Help
Powered by ViewVC 1.1.22