/[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.10 by jmc, Wed Apr 6 18:45:48 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  DIFF_BASE_MULTIPLE        LOGICAL  DIFFERENT_MULTIPLE
46        EXTERNAL DIFF_BASE_MULTIPLE        EXTERNAL DIFFERENT_MULTIPLE
47        INTEGER  IO_ERRCOUNT        INTEGER  IO_ERRCOUNT
48        EXTERNAL IO_ERRCOUNT        EXTERNAL IO_ERRCOUNT
49    
50        IF (        IF ( DIFFERENT_MULTIPLE( PTRACERS_dumpFreq, myTime, deltaTClock )
51       &     DIFF_BASE_MULTIPLE(baseTime,PTRACERS_dumpFreq,       &  .OR. dumpInitAndLast.AND.( myTime.EQ.endTime .OR.
52       &     myTime,deltaTClock) .OR.       &                             myTime.EQ.startTime  )
53       &     myTime.EQ.endTime .OR.       &   ) THEN
      &     myTime.EQ.startTime  
      &     ) 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 )
64    
65  #ifdef ALLOW_MNC  #ifdef ALLOW_MNC
66         IF (useMNC .AND. PTRACERS_write_mnc) THEN         IF ( PTRACERS_snapshot_mnc ) THEN
67          CALL MNC_CW_SET_UDIM('ptracers', -1, myThid)          CALL MNC_CW_SET_UDIM('ptracers', -1, myThid)
68          CALL MNC_CW_I_W_S('I','ptracers',0,0,'T',myIter,myThid)          CALL MNC_CW_RL_W_S('D','ptracers',0,0,'T',myTime,myThid)
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)
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
76  #endif /*  ALLOW_MNC  */  #endif /*  ALLOW_MNC  */
77    
78         IF (PTRACERS_write_mdsio) THEN         IF ( PTRACERS_snapshot_mdsio ) THEN
79    
80  C       Loop over tracers  C       Loop over tracers
81          DO iTracer=1,PTRACERS_numInUse          DO iTracer=1,PTRACERS_numInUse
# Line 113  C     End of tracer loop Line 119  C     End of tracer loop
119    
120         _END_MASTER( myThid )         _END_MASTER( myThid )
121         _BARRIER         _BARRIER
 C     DIFF_BASE_MULTIPLE  
122        ENDIF        ENDIF
123    
124  #endif /* ALLOW_PTRACERS */  #endif /* ALLOW_PTRACERS */
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.15
  ViewVC Help
Powered by ViewVC 1.1.22