/[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.6 by edhill, Sat Jul 30 00:58:41 2005 UTC revision 1.7 by edhill, Thu Sep 29 12:19:52 2005 UTC
# Line 54  C     TimeAve ::  total time over averag Line 54  C     TimeAve ::  total time over averag
54        CHARACTER*(MAX_LEN_FNAM) name        CHARACTER*(MAX_LEN_FNAM) name
55  C     Functions  C     Functions
56        INTEGER ILNBLNK        INTEGER ILNBLNK
57          CHARACTER*(1) pf
58  #endif /*  ALLOW_MNC  */  #endif /*  ALLOW_MNC  */
59    
60  C     Final Time Averages and Dump Files if needed  C     Final Time Averages and Dump Files if needed
# Line 80  C       Write to files Line 81  C       Write to files
81    
82  #ifdef ALLOW_MNC  #ifdef ALLOW_MNC
83          IF ( PTRACERS_timeave_mnc ) THEN          IF ( PTRACERS_timeave_mnc ) THEN
84              IF ( writeBinaryPrec .EQ. precFloat64 ) THEN
85                pf(1:1) = 'D'
86              ELSE
87                pf(1:1) = 'R'
88              ENDIF
89            CALL MNC_CW_SET_UDIM('ptr_tave', -1, myThid)            CALL MNC_CW_SET_UDIM('ptr_tave', -1, myThid)
90            CALL MNC_CW_RL_W_S('D','ptr_tave',0,0,'T',myTime,myThid)            CALL MNC_CW_RL_W_S('D','ptr_tave',0,0,'T',myTime,myThid)
91            CALL MNC_CW_SET_UDIM('ptr_tave', 0, myThid)            CALL MNC_CW_SET_UDIM('ptr_tave', 0, myThid)
# Line 93  C       Write to files Line 99  C       Write to files
99       &         myThid)       &         myThid)
100    
101            DO ii = 1,PTRACERS_numInUse            DO ii = 1,PTRACERS_numInUse
102              CALL MNC_CW_RL_W('D','ptr_tave',0,0,PTRACERS_names(ii),              CALL MNC_CW_RL_W(pf,'ptr_tave',0,0,PTRACERS_names(ii),
103       &           ptracertave(1-OLx,1-OLy,1,1,1,ii),myThid)       &           ptracertave(1-OLx,1-OLy,1,1,1,ii),myThid)
104              DO jj = 1,MAX_LEN_FNAM              DO jj = 1,MAX_LEN_FNAM
105                name(jj:jj) = ' '                name(jj:jj) = ' '
106              ENDDO              ENDDO
107              ilnb = ILNBLNK(PTRACERS_names(ii))              ilnb = ILNBLNK(PTRACERS_names(ii))
108              WRITE(name,'(a,a)') 'surf_',PTRACERS_names(ii)(1:ilnb)              WRITE(name,'(a,a)') 'surf_',PTRACERS_names(ii)(1:ilnb)
109              CALL MNC_CW_RL_W('D','ptr_flux_tave',0,0,name,              CALL MNC_CW_RL_W(pf,'ptr_flux_tave',0,0,name,
110       &           ptracerFluxtave(1-OLx,1-OLy,1,1,ii),myThid)       &           ptracerFluxtave(1-OLx,1-OLy,1,1,ii),myThid)
111            ENDDO            ENDDO
112          ENDIF          ENDIF
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22