ERROR in read_netcdf HORIZON – in #10: INT2LM

in #10: INT2LM

<p> There has been new lines (from 1475 onwards) implemented in version 2.05 in the subroutine <code> io_utilities.f90 </code> : <br/> <pre> IF (<acronym title="dimname3"><span class="caps">TRIM</span></acronym> /= ‘time’) THEN yerrmsg = ‘Name of 3rd dimension of ‘//<acronym title="varname"><span class="caps">TRIM</span></acronym>//’ (‘//<acronym title="dimname3"><span class="caps">TRIM</span></acronym>//’) is not valid! Must be “time”!‘ <span class="caps">PRINT</span> *, ‘*** <span class="caps">ERROR</span> in read_netcdf ‘//<acronym title="varname"><span class="caps">TRIM</span></acronym>//’: ‘, ierror, <acronym title="yerrmsg"><span class="caps">TRIM</span></acronym> RETURN <span class="caps">END</span> IF</pre> </p> <p> </p> <p> please replace these by <br/> <pre> IF (TRIM(dimname3) /= 'time' .AND. TRIM(dimname3) /= 'nhori' .AND. TRIM(dimname3) /= 'nclass_lu') THEN yerrmsg = 'Name of 3rd dimension of '//TRIM(varname)// &amp; ' ('//TRIM(dimname3)//') is not valid! Must be "time", "nhori" or "nclass_lu"!' PRINT *, '*** ERROR in read_netcdf '//TRIM(varname)//': ', ierror, TRIM(yerrmsg) RETURN </pre> </p> <p> and let me know, if this works. </p>

  @burkhardtrockel in #94d030e

<p> There has been new lines (from 1475 onwards) implemented in version 2.05 in the subroutine <code> io_utilities.f90 </code> : <br/> <pre> IF (<acronym title="dimname3"><span class="caps">TRIM</span></acronym> /= ‘time’) THEN yerrmsg = ‘Name of 3rd dimension of ‘//<acronym title="varname"><span class="caps">TRIM</span></acronym>//’ (‘//<acronym title="dimname3"><span class="caps">TRIM</span></acronym>//’) is not valid! Must be “time”!‘ <span class="caps">PRINT</span> *, ‘*** <span class="caps">ERROR</span> in read_netcdf ‘//<acronym title="varname"><span class="caps">TRIM</span></acronym>//’: ‘, ierror, <acronym title="yerrmsg"><span class="caps">TRIM</span></acronym> RETURN <span class="caps">END</span> IF</pre> </p> <p> </p> <p> please replace these by <br/> <pre> IF (TRIM(dimname3) /= 'time' .AND. TRIM(dimname3) /= 'nhori' .AND. TRIM(dimname3) /= 'nclass_lu') THEN yerrmsg = 'Name of 3rd dimension of '//TRIM(varname)// &amp; ' ('//TRIM(dimname3)//') is not valid! Must be "time", "nhori" or "nclass_lu"!' PRINT *, '*** ERROR in read_netcdf '//TRIM(varname)//': ', ierror, TRIM(yerrmsg) RETURN </pre> </p> <p> and let me know, if this works. </p>
BR replied

There has been new lines (from 1475 onwards) implemented in version 2.05 in the subroutine io_utilities.f90 : 

      IF (TRIM /= ‘time’) THEN
        yerrmsg = ‘Name of 3rd dimension of ‘//TRIM//’ (‘//TRIM//’) is not valid! Must be “time”!‘
        PRINT *, ‘*** ERROR in read_netcdf ‘//TRIM//’:  ‘, ierror, TRIM
        RETURN
      END IF

please replace these by 

      IF (TRIM(dimname3) /= 'time' .AND. TRIM(dimname3) /= 'nhori' .AND. TRIM(dimname3) /= 'nclass_lu') THEN
        yerrmsg = 'Name of 3rd dimension of '//TRIM(varname)// &
                  ' ('//TRIM(dimname3)//') is not valid! Must be "time", "nhori" or "nclass_lu"!'
        PRINT *, '*** ERROR in read_netcdf '//TRIM(varname)//':  ', ierror, TRIM(yerrmsg)
        RETURN

and let me know, if this works.

View in channel