Changes between Initial Version and Version 1 of Ticket #68


Ignore:
Timestamp:
07/30/07 16:34:38 (18 years ago)
Author:
arango
Comment:

Legend:

Unmodified
Added
Removed
Modified

  • Ticket #68

    • Property Resolution → Done
    • Property Status new → closed

  • Ticket #68 – Description

    initial v1  
    11In function ROMS/Utility/nf_fread2d, lines 223:237
    22***************************
     3
     4{{{
    35      status=nf90_noerr
    46      IF (InpThread) THEN
    57        status=nf90_get_var(ncid, ncvarid, wrk, start, total)
    68        IF (status.eq.nf90_noerr) THEN
    7 ...........
     9          ...
    810        END IF
    911      END IF
    10 ......
     12
     13      ...
     14
    1115      IF (status.ne.nf90_noerr) RETURN
    12 ***************************
     16}}}
     17
     18
    1319If the file is not read correctly, then "status" will not equal nf90_noerr, and the code will return. But we need to have the value of "nf_fread" set to = the value of status before the return happens.
    1420IF the file is read correctly, then at the bottom of nf_fread2d we have:
     21
     22{{{
    1523      nf_fread2d=status
     24}}}
    1625so that is ok.
    1726
    1827Suggest that we add a line
     28{{{
    1929      nf_fread2d=status
     30}}}
    2031before the return statement.
    2132This also needs to be addressed in read 3d, 4d.