Changeset 560

Timestamp:

Sep 9, 2010 10:06:09 AM (14 years ago)

Author:

weinreis

Message:

correction of calculating ngp_3d for 64 bit

Location:

palm/trunk

Files:

• DOC/tec/technical_documentation.html (modified) (2 diffs)
• SOURCE/init_3d_model.f90 (modified) (2 diffs)

palm/trunk/DOC/tec/technical_documentation.html

@@ -7 +7 @@
         <META NAME="AUTHOR" CONTENT="Siegfried Raasch">
         <META NAME="CREATED" CONTENT="0;0">
-        <META NAME="CHANGED" CONTENT="20100907;16492700">
+        <META NAME="CHANGED" CONTENT="20100909;12050600">
         <META NAME="KEYWORDS" CONTENT="parallel LES model">
 </HEAD>
@@ -90 +90 @@
                 <TD WIDTH=393>
                         <P><FONT SIZE=4><B>affected routines</B></FONT></P>
+                </TD>
+        </TR>
+        <TR>
+                <TD WIDTH=37 SDVAL="40430" SDNUM="1033;0;MM/DD/YY">
+                        <P STYLE="font-weight: normal"><FONT SIZE=3>09/09/10</FONT></P>
+                </TD>
+                <TD WIDTH=56>
+                        <P STYLE="font-weight: normal"><FONT SIZE=3>CH</FONT></P>
+                </TD>
+                <TD WIDTH=68 SDVAL="560" SDNUM="1033;">
+                        <P STYLE="font-weight: normal"><FONT SIZE=3>560</FONT></P>
+                </TD>
+                <TD WIDTH=62>
+                        <P STYLE="font-weight: normal"><FONT SIZE=3>3.7a</FONT></P>
+                </TD>
+                <TD WIDTH=36>
+                        <P STYLE="font-weight: normal"><FONT SIZE=3>B</FONT></P>
+                </TD>
+                <TD WIDTH=517>
+                        <P STYLE="font-weight: normal"><FONT SIZE=3>Bugfix of calculating
+                        <FONT FACE="Courier New, monospace">ngp_3d</FONT> for 64 bit. So
+                        far <FONT FACE="Courier New, monospace">ngp_3d</FONT><FONT FACE="Times New Roman, serif">
+                        has not been 64 bit.</FONT></FONT></P>
+                </TD>
+                <TD WIDTH=393>
+                        <P STYLE="font-weight: normal"><FONT SIZE=3>init_3d_model</FONT></P>
                 </TD>
         </TR>

palm/trunk/SOURCE/init_3d_model.f90

@@ -7 +7 @@
 ! Current revisions:
 ! -----------------
-! 
+! bugfix: correction of calculating ngp_3d for 64 bit
 !
 ! Former revisions:
@@ -1573 +1573 @@
 #endif
 
-    ngp_3d = INT( ngp_2dh * ( nz + 2 ), KIND = SELECTED_INT_KIND( 18 ) )
+    ngp_3d = INT ( ngp_2dh, KIND = SELECTED_INT_KIND( 18 ) ) * &
+             INT ( (nz + 2 ), KIND = SELECTED_INT_KIND( 18 ) )
 
 !