/[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.7 by edhill, Sun Oct 10 06:08:50 2004 UTC
# Line 18  C     !USES: Line 18  C     !USES:
18  #include "SIZE.h"  #include "SIZE.h"
19  #include "EEPARAMS.h"  #include "EEPARAMS.h"
20  #include "PARAMS.h"  #include "PARAMS.h"
 #ifdef ALLOW_MNC  
 #include "MNC_PARAMS.h"  
 #endif  
21  #include "PTRACERS_SIZE.h"  #include "PTRACERS_SIZE.h"
22  #include "PTRACERS.h"  #include "PTRACERS.h"
23    
# Line 47  C     iRec      :: record number Line 44  C     iRec      :: record number
44    
45        IF (useMNC .AND. PTRACERS_write_mnc) THEN        IF (useMNC .AND. PTRACERS_write_mnc) THEN
46          CALL MNC_CW_SET_UDIM('ptracers', -1, myThid)          CALL MNC_CW_SET_UDIM('ptracers', -1, myThid)
47          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)
48          CALL MNC_CW_SET_UDIM('ptracers', 0, myThid)          CALL MNC_CW_SET_UDIM('ptracers', 0, myThid)
49          DO ii = 1,PTRACERS_numInUse          DO ii = 1,PTRACERS_numInUse
50            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.7
  ViewVC Help
Powered by ViewVC 1.1.22