/[MITgcm]/MITgcm/pkg/ptracers/ptracers_write_timeave.F
ViewVC logotype

Diff of /MITgcm/pkg/ptracers/ptracers_write_timeave.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.4 by jmc, Sun May 15 03:06:01 2005 UTC revision 1.5 by edhill, Wed May 25 04:03:10 2005 UTC
# Line 83  C       Write to files Line 83  C       Write to files
83  #ifdef ALLOW_MNC  #ifdef ALLOW_MNC
84          IF (useMNC .AND. PTRACERS_write_mnc) THEN          IF (useMNC .AND. PTRACERS_write_mnc) THEN
85            CALL MNC_CW_SET_UDIM('ptr_tave', -1, myThid)            CALL MNC_CW_SET_UDIM('ptr_tave', -1, myThid)
86            CALL MNC_CW_I_W_S('I','ptr_tave',0,0,'T',myIter,myThid)            CALL MNC_CW_RL_W_S('D','ptr_tave',0,0,'T',myTime,myThid)
87            CALL MNC_CW_SET_UDIM('ptr_tave', 0, myThid)            CALL MNC_CW_SET_UDIM('ptr_tave', 0, myThid)
88              CALL MNC_CW_I_W_S('I','ptr_tave',0,0,'iter',myIter,myThid)
89    
90            CALL MNC_CW_SET_UDIM('ptr_flux_tave', -1, myThid)            CALL MNC_CW_SET_UDIM('ptr_flux_tave', -1, myThid)
91            CALL MNC_CW_I_W_S('I','ptr_flux_tave',0,0,'T',myIter,            CALL MNC_CW_RL_W_S('D','ptr_flux_tave',0,0,'T',myTime,
92       &         myThid)       &         myThid)
93            CALL MNC_CW_SET_UDIM('ptr_flux_tave', 0, myThid)            CALL MNC_CW_SET_UDIM('ptr_flux_tave', 0, myThid)
94              CALL MNC_CW_I_W_S('I','ptr_flux_tave',0,0,'iter',myIter,
95         &         myThid)
96    
97            DO ii = 1,PTRACERS_numInUse            DO ii = 1,PTRACERS_numInUse
98              CALL MNC_CW_RL_W('D','ptr_tave',0,0,PTRACERS_names(ii),              CALL MNC_CW_RL_W('D','ptr_tave',0,0,PTRACERS_names(ii),
99       &           ptracertave(1-OLx,1-OLy,1,1,1,ii),myThid)       &           ptracertave(1-OLx,1-OLy,1,1,1,ii),myThid)
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22