/[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.12 by edhill, Wed May 25 04:03:10 2005 UTC revision 1.13 by edhill, Sat Jul 30 00:58:41 2005 UTC
# Line 56  C     Write to files Line 56  C     Write to files
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_RL_W_S('D','ptracers',0,0,'T',myTime,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)
# Line 68  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
Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13
  ViewVC Help
Powered by ViewVC 1.1.22