/[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.5 by edhill, Fri Sep 10 12:19:31 2004 UTC revision 1.6 by edhill, Thu Oct 7 01:48:08 2004 UTC
# Line 47  C     iRec      :: record number Line 47  C     iRec      :: record number
47    
48        IF (useMNC .AND. PTRACERS_write_mnc) THEN        IF (useMNC .AND. PTRACERS_write_mnc) THEN
49          CALL MNC_CW_SET_UDIM('ptracers', -1, myThid)          CALL MNC_CW_SET_UDIM('ptracers', -1, myThid)
50          CALL MNC_CW_I_W('I','ptracers',0,0,'iter',myIter,myThid)          CALL MNC_CW_I_W_S('I','ptracers',0,0,'iter',myIter,myThid)
51          CALL MNC_CW_SET_UDIM('ptracers', 0, myThid)          CALL MNC_CW_SET_UDIM('ptracers', 0, myThid)
52          DO ii = 1,PTRACERS_numInUse          DO ii = 1,PTRACERS_numInUse
53            CALL MNC_CW_RL_W('D','ptracers',0,0,PTRACERS_names(ii),            CALL MNC_CW_RL_W('D','ptracers',0,0,PTRACERS_names(ii),
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22