/[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.4 by edhill, Fri Sep 3 20:10:47 2004 UTC revision 1.5 by edhill, Fri Sep 10 12:19:31 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"
21    #ifdef ALLOW_MNC
22    #include "MNC_PARAMS.h"
23    #endif
24  #include "PTRACERS_SIZE.h"  #include "PTRACERS_SIZE.h"
25  #include "PTRACERS.h"  #include "PTRACERS.h"
26    
# Line 42  C     iRec      :: record number Line 45  C     iRec      :: record number
45  #ifdef ALLOW_MNC  #ifdef ALLOW_MNC
46        INTEGER ii        INTEGER ii
47    
48        IF (useMNC        IF (useMNC .AND. PTRACERS_write_mnc) THEN
      &     .AND. (mod(PTRACERS_iotypes,4) .GT. 1)  
      &     .AND. PTRACERS_mnc_write ) 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('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
 CEH3          WRITE(*,*) 'PTRACERS_names(',ii,') = ''',  
 CEH3     &         PTRACERS_names(ii),''''  
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),
54       &         pTracer(1-OLx,1-OLy,1,1,1,ii),myThid)       &         pTracer(1-OLx,1-OLy,1,1,1,ii),myThid)
55          ENDDO          ENDDO
56        ENDIF        ENDIF
57  #endif /*  ALLOW_MNC  */  #endif /*  ALLOW_MNC  */
58    
59        IF (mod(PTRACERS_iotypes,2) .GT. 0) THEN        IF (PTRACERS_write_mdsio) THEN
 C       use MDSIO  
60    
61  C       Loop over tracers  C       Loop over tracers
62          DO iTracer=1,PTRACERS_numInUse          DO iTracer=1,PTRACERS_numInUse
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22