[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Small Error in "write_nc_Biotic_equil.f"




- --------------B1F5AAA1E42D751570859EE7
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit

Dear all,

in the Output routine "write_nc_Biotic_equil.f" which puts the results
of the biotic run into NetCDF-form and
can be downloaded from the web, there is a little error.
Infact  one has to add  the following lines in the  part where the
variables are defined (it
begins at line 156) because the variable DIC has been omitted there.


Lines to add:

            STATUS=NF_DEF_VAR(NC_ID,'DIC',NF_FLOAT,
     &    4,DIMS_4D,DIC_ID)
            IF (STATUS.NE.NF_NOERR) CALL HANDLE_ERRORS(STATUS)


Best regards
Marie-France

***********************************************************************************************

Marie-France Weirig

Alfred Wegener Institute for Polar and Marine Research
Columbusstrasse
P.O. Box: 12 01 61
D-27515 Bremerhaven/Germany

Phone: (49) (0)471-4831-367
Fax:   (49) (0)471-4831-149
e-mail: mweirig@awi-bremerhaven.de
http://www.awi-bremerhaven.de
>



- --------------B1F5AAA1E42D751570859EE7
Content-Type: text/html; charset=us-ascii
Content-Transfer-Encoding: 7bit

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
Dear all,
<P>in the Output routine "write_nc_Biotic_equil.f" which puts the results
of the biotic run into NetCDF-form and
<BR>can be downloaded from the web, there is a little error.
<BR>Infact&nbsp; one has to add&nbsp; the following lines in the&nbsp;
part where the variables are defined (it
<BR>begins at line 156) because the variable DIC has been omitted there.
<BR>&nbsp;
<P>Lines to add:
<P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; STATUS=NF_DEF_VAR(NC_ID,'<B>DIC</B>',NF_FLOAT,
<BR>&nbsp;&nbsp;&nbsp;&nbsp; &amp;&nbsp;&nbsp;&nbsp; 4,DIMS_4D,<B>DIC</B>_ID)
<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
IF (STATUS.NE.NF_NOERR) CALL HANDLE_ERRORS(STATUS)
<BR>&nbsp;
<P>Best regards
<BR>Marie-France
<PRE>***********************************************************************************************</PRE>

<PRE>Marie-France Weirig

Alfred Wegener Institute for Polar and Marine Research
Columbusstrasse
P.O. Box: 12 01 61
D-27515 Bremerhaven/Germany

Phone: (49) (0)471-4831-367
Fax:&nbsp;&nbsp; (49) (0)471-4831-149
e-mail: mweirig@awi-bremerhaven.de
<A HREF="http://www.awi-bremerhaven.de">http://www.awi-bremerhaven.de</A>
></PRE>
&nbsp;</HTML>

- --------------B1F5AAA1E42D751570859EE7--