/[MITgcm]/MITgcm/pkg/mnc/mnc_cw_cvars.F
ViewVC logotype

Diff of /MITgcm/pkg/mnc/mnc_cw_cvars.F

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

revision 1.11 by utke, Fri Jun 20 20:36:58 2008 UTC revision 1.12 by mlosch, Sat Oct 25 20:36:34 2008 UTC
# Line 400  C       unknown grid type Line 400  C       unknown grid type
400        IF ( doit .EQ. 1 ) THEN        IF ( doit .EQ. 1 ) THEN
401    
402          CALL MNC_FILE_REDEF(fname, myThid)          CALL MNC_FILE_REDEF(fname, myThid)
403    #ifdef REAL4_IS_SLOW
404          err = NF_DEF_VAR(fid, cvname, NF_DOUBLE,          err = NF_DEF_VAR(fid, cvname, NF_DOUBLE,
405       &       nids, cv_did, vid)       &       nids, cv_did, vid)
406    #else
407            err = NF_DEF_VAR(fid, cvname, NF_FLOAT,
408         &       nids, cv_did, vid)
409    #endif /* REAL4_IS_SLOW */
410          i = ILNBLNK( fname )          i = ILNBLNK( fname )
411          write(msgbuf,'(5a)') 'defining coordinate variable ''',          write(msgbuf,'(5a)') 'defining coordinate variable ''',
412       &       cvname(nnf:nnl), ''' in file ''', fname(1:i), ''''       &       cvname(nnf:nnl), ''' in file ''', fname(1:i), ''''
# Line 433  C     add attributes if set Line 438  C     add attributes if set
438          ENDIF          ENDIF
439  C      C    
440          CALL MNC_FILE_ENDDEF(fname, myThid)          CALL MNC_FILE_ENDDEF(fname, myThid)
441    #ifdef REAL4_IS_SLOW
442          err = NF_PUT_VARA_DOUBLE(fid, vid,          err = NF_PUT_VARA_DOUBLE(fid, vid,
443       &       cv_start, cv_count, rtmp)       &       cv_start, cv_count, rtmp)
444    #else
445            err = NF_PUT_VARA_REAL(fid, vid,
446         &       cv_start, cv_count, rtmp)
447    #endif /* REAL4_IS_SLOW */
448          write(msgbuf,'(5a)') 'writing coordinate variable ''',          write(msgbuf,'(5a)') 'writing coordinate variable ''',
449       &       cvname(nnf:nnl), ''' in file ''', fname(1:i), ''''       &       cvname(nnf:nnl), ''' in file ''', fname(1:i), ''''
450          CALL MNC_HANDLE_ERR(err, msgbuf, myThid)          CALL MNC_HANDLE_ERR(err, msgbuf, myThid)
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22