/[MITgcm]/MITgcm/pkg/diagnostics/diagnostics_out.F
ViewVC logotype

Diff of /MITgcm/pkg/diagnostics/diagnostics_out.F

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

revision 1.12 by jmc, Mon Apr 4 22:05:14 2005 UTC revision 1.13 by edhill, Mon May 2 21:24:12 2005 UTC
# Line 249  C-        end of empty diag / not empty Line 249  C-        end of empty diag / not empty
249  #ifdef ALLOW_MDSIO  #ifdef ALLOW_MDSIO
250  C         Prepare for mdsio optionality  C         Prepare for mdsio optionality
251            IF (diag_mdsio) THEN            IF (diag_mdsio) THEN
252              CALL mdswritefield_new(fn,writeBinaryPrec,glf,'RL',              IF (fflags(listnum)(1:1) .EQ. ' ') THEN
253       &           Nr+Nrphys,nlevels(listnum),qtmp1,n,myIter,myThid)  C             This is the old default behavior
254                  CALL mdswritefield_new(fn,writeBinaryPrec,glf,'RL',
255         &             Nr+Nrphys,nlevels(listnum),qtmp1,n,myIter,myThid)
256                ELSEIF (fflags(listnum)(1:1) .EQ. 'R') THEN
257    C             Force it to be 32-bit precision
258                  CALL mdswritefield_new(fn,precFloat32,glf,'RL',
259         &             Nr+Nrphys,nlevels(listnum),qtmp1,n,myIter,myThid)
260                ELSEIF (fflags(listnum)(1:1) .EQ. 'D') THEN
261    C             Force it to be 64-bit precision
262                  CALL mdswritefield_new(fn,precFloat64,glf,'RL',
263         &             Nr+Nrphys,nlevels(listnum),qtmp1,n,myIter,myThid)
264                ENDIF
265            ENDIF            ENDIF
266  #endif /*  ALLOW_MDSIO  */  #endif /*  ALLOW_MDSIO  */
267    
# Line 333  C           Time dimension Line 344  C           Time dimension
344              CALL MNC_CW_ADD_VATTR_TEXT(cdiag(m),'units',              CALL MNC_CW_ADD_VATTR_TEXT(cdiag(m),'units',
345       &             udiag(m),myThid)       &             udiag(m),myThid)
346    
347              CALL MNC_CW_RL_W('D',diag_mnc_bn,0,0,              IF ((fflags(listnum)(1:1) .EQ. ' ')
348         &           .OR. (fflags(listnum)(1:1) .EQ. 'R')) THEN
349                  CALL MNC_CW_RL_W('R',diag_mnc_bn,0,0,
350       &             cdiag(m), qtmp1, myThid)       &             cdiag(m), qtmp1, myThid)
351                ELSEIF (fflags(listnum)(1:1) .EQ. 'D') THEN
352                  CALL MNC_CW_RL_W('D',diag_mnc_bn,0,0,
353         &             cdiag(m), qtmp1, myThid)
354                ENDIF
355                
356              CALL MNC_CW_DEL_VNAME(cdiag(m), myThid)              CALL MNC_CW_DEL_VNAME(cdiag(m), myThid)
357              CALL MNC_CW_DEL_GNAME(d_cw_name, myThid)              CALL MNC_CW_DEL_GNAME(d_cw_name, myThid)
358    
Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13
  ViewVC Help
Powered by ViewVC 1.1.22