Changeset 4354 for LMDZ6/trunk


Ignore:
Timestamp:
Nov 25, 2022, 12:36:39 PM (2 years ago)
Author:
idelkadi
Message:

Hexadecimal constant Z"3FFFFFFF" can appear in a "data" statement but not in a "parameter" statement

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/ecrad/random_numbers_mix.F90

    r3908 r4354  
    239239  ! Generate uniformly distributed random numbers in the range 0.0<= px < 1.0
    240240  !--------------------------------------------------------------------------------
    241   INTEGER(KIND=JPIM), PARAMETER :: IVAR=Z"3FFFFFFF"
     241!  INTEGER(KIND=JPIM), PARAMETER :: IVAR=Z"3FFFFFFF"
     242  INTEGER(KIND=JPIM) :: IVAR
     243  DATA IVAR /Z"3FFFFFFF"/
    242244  TYPE(RANDOMNUMBERSTREAM), INTENT(INOUT) :: YD_STREAM
    243245  REAL(KIND=JPRB), DIMENSION(:),     INTENT(  OUT) :: PX
    244 
    245246  INTEGER(KIND=JPIM)                :: JJ, JK, IN, IFILLED
    246247 
Note: See TracChangeset for help on using the changeset viewer.