/[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.8 by mlosch, Wed Dec 1 22:54:02 2004 UTC revision 1.9 by edhill, Sat Dec 18 02:18:56 2004 UTC
# Line 60  C     Write to files Line 60  C     Write to files
60  #ifdef ALLOW_MNC  #ifdef ALLOW_MNC
61         IF (useMNC .AND. PTRACERS_write_mnc) THEN         IF (useMNC .AND. PTRACERS_write_mnc) THEN
62          CALL MNC_CW_SET_UDIM('ptracers', -1, myThid)          CALL MNC_CW_SET_UDIM('ptracers', -1, myThid)
63          CALL MNC_CW_I_W_S('I','ptracers',0,0,'iter',myIter,myThid)          CALL MNC_CW_I_W_S('I','ptracers',0,0,'T',myIter,myThid)
64          CALL MNC_CW_SET_UDIM('ptracers', 0, myThid)          CALL MNC_CW_SET_UDIM('ptracers', 0, myThid)
65          DO iTracer = 1,PTRACERS_numInUse          DO iTracer = 1,PTRACERS_numInUse
66           CALL MNC_CW_RL_W('D','ptracers',0,0,PTRACERS_names(iTracer),           CALL MNC_CW_RL_W('D','ptracers',0,0,PTRACERS_names(iTracer),
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22