/[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.14 by jmc, Wed Aug 24 23:23:34 2005 UTC
# Line 41  C     iRec      :: record number Line 41  C     iRec      :: record number
41        CHARACTER*(MAX_LEN_MBUF) suff        CHARACTER*(MAX_LEN_MBUF) suff
42        INTEGER iRec        INTEGER iRec
43    
44        LOGICAL  DIFF_BASE_MULTIPLE        LOGICAL  DIFFERENT_MULTIPLE
45        EXTERNAL DIFF_BASE_MULTIPLE        EXTERNAL DIFFERENT_MULTIPLE
46        INTEGER  IO_ERRCOUNT        INTEGER  IO_ERRCOUNT
47        EXTERNAL IO_ERRCOUNT        EXTERNAL IO_ERRCOUNT
48    
49        IF (        IF ( DIFFERENT_MULTIPLE( PTRACERS_dumpFreq, myTime, deltaTClock )
50       &     DIFF_BASE_MULTIPLE(baseTime,PTRACERS_dumpFreq,       &  .OR. dumpInitAndLast.AND.( myTime.EQ.endTime .OR.
51       &     myTime,deltaTClock) .OR.       &                             myTime.EQ.startTime  )
52       &     myTime.EQ.endTime .OR.       &   ) THEN
      &     myTime.EQ.startTime  
      &     ) THEN  
53                
54  C     Write to files  C     Write to files
55         _BARRIER         _BARRIER
56         _BEGIN_MASTER( myThid )         _BEGIN_MASTER( myThid )
57    
58  #ifdef ALLOW_MNC  #ifdef ALLOW_MNC
59         IF (useMNC .AND. PTRACERS_write_mnc) THEN         IF ( PTRACERS_snapshot_mnc ) THEN
60          CALL MNC_CW_SET_UDIM('ptracers', -1, myThid)          CALL MNC_CW_SET_UDIM('ptracers', -1, myThid)
61          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)
62          CALL MNC_CW_SET_UDIM('ptracers', 0, myThid)          CALL MNC_CW_SET_UDIM('ptracers', 0, myThid)
63            CALL MNC_CW_I_W_S('I','ptracers',0,0,'iter',myIter,myThid)
64          DO iTracer = 1,PTRACERS_numInUse          DO iTracer = 1,PTRACERS_numInUse
65           CALL MNC_CW_RL_W('D','ptracers',0,0,PTRACERS_names(iTracer),           CALL MNC_CW_RL_W('D','ptracers',0,0,PTRACERS_names(iTracer),
66       &        pTracer(1-OLx,1-OLy,1,1,1,iTracer),myThid)       &        pTracer(1-OLx,1-OLy,1,1,1,iTracer),myThid)
# Line 69  C     Write to files Line 68  C     Write to files
68         ENDIF         ENDIF
69  #endif /*  ALLOW_MNC  */  #endif /*  ALLOW_MNC  */
70    
71         IF (PTRACERS_write_mdsio) THEN         IF ( PTRACERS_snapshot_mdsio ) THEN
72    
73  C       Loop over tracers  C       Loop over tracers
74          DO iTracer=1,PTRACERS_numInUse          DO iTracer=1,PTRACERS_numInUse
# Line 113  C     End of tracer loop Line 112  C     End of tracer loop
112    
113         _END_MASTER( myThid )         _END_MASTER( myThid )
114         _BARRIER         _BARRIER
 C     DIFF_BASE_MULTIPLE  
115        ENDIF        ENDIF
116    
117  #endif /* ALLOW_PTRACERS */  #endif /* ALLOW_PTRACERS */
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.22