Changeset 560 for palm/trunk/SOURCE

Timestamp:

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

Author:

weinreis

Message:

correction of calculating ngp_3d for 64 bit

File:

• palm/trunk/SOURCE/init_3d_model.f90 (modified) (2 diffs)

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 ) )
 
 !