/[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.1 by mlosch, Wed Dec 1 22:54:02 2004 UTC revision 1.2 by edhill, Sat Dec 18 02:18:56 2004 UTC
# Line 85  C       Write to files Line 85  C       Write to files
85  #ifdef ALLOW_MNC  #ifdef ALLOW_MNC
86          IF (useMNC .AND. PTRACERS_write_mnc) THEN          IF (useMNC .AND. PTRACERS_write_mnc) THEN
87            CALL MNC_CW_SET_UDIM('ptr_tave', -1, myThid)            CALL MNC_CW_SET_UDIM('ptr_tave', -1, myThid)
88            CALL MNC_CW_I_W_S('I','ptr_tave',0,0,'iter',myIter,myThid)            CALL MNC_CW_I_W_S('I','ptr_tave',0,0,'T',myIter,myThid)
89            CALL MNC_CW_SET_UDIM('ptr_tave', 0, myThid)            CALL MNC_CW_SET_UDIM('ptr_tave', 0, myThid)
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,'iter',myIter,            CALL MNC_CW_I_W_S('I','ptr_flux_tave',0,0,'T',myIter,
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            DO ii = 1,PTRACERS_numInUse            DO ii = 1,PTRACERS_numInUse
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22