/[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.11 by jmc, Sun May 15 03:06:01 2005 UTC revision 1.12 by edhill, Wed May 25 04:03:10 2005 UTC
# Line 58  C     Write to files Line 58  C     Write to files
58  #ifdef ALLOW_MNC  #ifdef ALLOW_MNC
59         IF (useMNC .AND. PTRACERS_write_mnc) THEN         IF (useMNC .AND. PTRACERS_write_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)
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22