Changeset 631 for palm


Ignore:
Timestamp:
Dec 13, 2010 3:06:48 PM (11 years ago)
Author:
maronga
Message:

bugfix: type conversion (init_3d_model, error on ibm machines)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/init_3d_model.f90

    r623 r631  
    77! Current revisions:
    88! -----------------
    9 !
     9! Bugfix: type conversion of '1' to 64bit for the MAX function (ngp_3d_inner)
    1010!
    1111! Former revisions:
     
    15941594!-- buoyancy, etc. A zero value will occur for cases where all grid points of
    15951595!-- the respective subdomain lie below the surface topography
    1596     ngp_2dh_outer   = MAX( 1, ngp_2dh_outer(:,:)   )
    1597     ngp_3d_inner    = MAX( 1, ngp_3d_inner(:)      )
    1598     ngp_2dh_s_inner = MAX( 1, ngp_2dh_s_inner(:,:) )
     1596    ngp_2dh_outer   = MAX( 1, ngp_2dh_outer(:,:)   )
     1597    ngp_3d_inner    = MAX( INT(1, KIND = SELECTED_INT_KIND( 18 )),            &
     1598                           ngp_3d_inner(:) )
     1599    ngp_2dh_s_inner = MAX( 1, ngp_2dh_s_inner(:,:) )
    15991600
    16001601    DEALLOCATE( ngp_2dh_l, ngp_2dh_outer_l, ngp_3d_inner_l, ngp_3d_inner_tmp )
Note: See TracChangeset for help on using the changeset viewer.