Changeset 560 for palm


Ignore:
Timestamp:
Sep 9, 2010 10:06:09 AM (11 years ago)
Author:
weinreis
Message:

correction of calculating ngp_3d for 64 bit

Location:
palm/trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/DOC/tec/technical_documentation.html

    r557 r560  
    77        <META NAME="AUTHOR" CONTENT="Siegfried Raasch">
    88        <META NAME="CREATED" CONTENT="0;0">
    9         <META NAME="CHANGED" CONTENT="20100907;16492700">
     9        <META NAME="CHANGED" CONTENT="20100909;12050600">
    1010        <META NAME="KEYWORDS" CONTENT="parallel LES model">
    1111</HEAD>
     
    9090                <TD WIDTH=393>
    9191                        <P><FONT SIZE=4><B>affected routines</B></FONT></P>
     92                </TD>
     93        </TR>
     94        <TR>
     95                <TD WIDTH=37 SDVAL="40430" SDNUM="1033;0;MM/DD/YY">
     96                        <P STYLE="font-weight: normal"><FONT SIZE=3>09/09/10</FONT></P>
     97                </TD>
     98                <TD WIDTH=56>
     99                        <P STYLE="font-weight: normal"><FONT SIZE=3>CH</FONT></P>
     100                </TD>
     101                <TD WIDTH=68 SDVAL="560" SDNUM="1033;">
     102                        <P STYLE="font-weight: normal"><FONT SIZE=3>560</FONT></P>
     103                </TD>
     104                <TD WIDTH=62>
     105                        <P STYLE="font-weight: normal"><FONT SIZE=3>3.7a</FONT></P>
     106                </TD>
     107                <TD WIDTH=36>
     108                        <P STYLE="font-weight: normal"><FONT SIZE=3>B</FONT></P>
     109                </TD>
     110                <TD WIDTH=517>
     111                        <P STYLE="font-weight: normal"><FONT SIZE=3>Bugfix of calculating
     112                        <FONT FACE="Courier New, monospace">ngp_3d</FONT> for 64 bit. So
     113                        far <FONT FACE="Courier New, monospace">ngp_3d</FONT><FONT FACE="Times New Roman, serif">
     114                        has not been 64 bit.</FONT></FONT></P>
     115                </TD>
     116                <TD WIDTH=393>
     117                        <P STYLE="font-weight: normal"><FONT SIZE=3>init_3d_model</FONT></P>
    92118                </TD>
    93119        </TR>
  • palm/trunk/SOURCE/init_3d_model.f90

    r559 r560  
    77! Current revisions:
    88! -----------------
    9 !
     9! bugfix: correction of calculating ngp_3d for 64 bit
    1010!
    1111! Former revisions:
     
    15731573#endif
    15741574
    1575     ngp_3d = INT( ngp_2dh * ( nz + 2 ), KIND = SELECTED_INT_KIND( 18 ) )
     1575    ngp_3d = INT ( ngp_2dh, KIND = SELECTED_INT_KIND( 18 ) ) * &
     1576             INT ( (nz + 2 ), KIND = SELECTED_INT_KIND( 18 ) )
    15761577
    15771578!
Note: See TracChangeset for help on using the changeset viewer.