Ignore:
Timestamp:
Apr 8, 2014 3:21:23 PM (7 years ago)
Author:
heinze
Message:

REAL constants provided with KIND-attribute

File:
1 edited

Legend:

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

    r1329 r1353  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! REAL constants provided with KIND-attribute,
     23! declaration for unused variables xkoor, ykoor, zkoor removed
    2324!
    2425! Former revisions:
     
    147148    LOGICAL ::  twoya = .TRUE.                !:
    148149
    149     REAL(wp) ::  ansx = -999.999 !:
    150     REAL(wp) ::  ansy = -999.999 !:
    151     REAL(wp) ::  gwid = 0.1      !:
    152     REAL(wp) ::  rlegfak = 1.5   !:
    153     REAL(wp) ::  sizex = 250.0   !:
    154     REAL(wp) ::  sizey = 40.0    !:
    155     REAL(wp) ::  texfac = 1.5    !:
     150    REAL(wp) ::  ansx = -999.999_wp !:
     151    REAL(wp) ::  ansy = -999.999_wp !:
     152    REAL(wp) ::  gwid = 0.1_wp      !:
     153    REAL(wp) ::  rlegfak = 1.5_wp   !:
     154    REAL(wp) ::  sizex = 250.0_wp   !:
     155    REAL(wp) ::  sizey = 40.0_wp    !:
     156    REAL(wp) ::  texfac = 1.5_wp    !:
    156157
    157158    REAL(wp), DIMENSION(:), ALLOCATABLE      ::  eta !:
    158159    REAL(wp), DIMENSION(:), ALLOCATABLE      ::  ho  !:
    159160    REAL(wp), DIMENSION(:), ALLOCATABLE      ::  hu  !:
    160    
    161     REAL(sp), DIMENSION(:), ALLOCATABLE ::  xkoor !:
    162     REAL(sp), DIMENSION(:), ALLOCATABLE ::  ykoor !:
    163     REAL(sp), DIMENSION(:), ALLOCATABLE ::  zkoor !: 
     161 
    164162
    165163
     
    363361!--          Determine and write ISO2D coordiante header
    364362             ALLOCATE( eta(0:ny+1), ho(0:nx+1), hu(0:nx+1) )
    365              hu = 0.0
     363             hu = 0.0_wp
    366364             ho = (ny+1) * dy
    367365             DO  i = 1, ny
    368                 eta(i) = REAL( i ) / ( ny + 1.0 )
     366                eta(i) = REAL( i ) / ( ny + 1.0_wp )
    369367             ENDDO
    370              eta(0)    = 0.0
    371              eta(ny+1) = 1.0
     368             eta(0)    = 0.0_wp
     369             eta(ny+1) = 1.0_wp
    372370
    373371             WRITE (21)  dx,eta,hu,ho
     
    396394!--          Determine and write ISO2D coordinate header
    397395             ALLOCATE( eta(0:nz+1), ho(0:nx+1), hu(0:nx+1) )
    398              hu = 0.0
     396             hu = 0.0_wp
    399397             ho = zu(nz+1)
    400398             DO  i = 1, nz
    401399                eta(i) = REAL( zu(i) ) / zu(nz+1)
    402400             ENDDO
    403              eta(0)    = 0.0
    404              eta(nz+1) = 1.0
     401             eta(0)    = 0.0_wp
     402             eta(nz+1) = 1.0_wp
    405403
    406404             WRITE (22)  dx,eta,hu,ho
     
    429427!--          Determine and write ISO2D coordiante header
    430428             ALLOCATE( eta(0:nz+1), ho(0:ny+1), hu(0:ny+1) )
    431              hu = 0.0
     429             hu = 0.0_wp
    432430             ho = zu(nz+1)
    433431             DO  i = 1, nz
    434432                eta(i) = REAL( zu(i) ) / zu(nz+1)
    435433             ENDDO
    436              eta(0)    = 0.0
    437              eta(nz+1) = 1.0
     434             eta(0)    = 0.0_wp
     435             eta(nz+1) = 1.0_wp
    438436
    439437             WRITE (23)  dx,eta,hu,ho
Note: See TracChangeset for help on using the changeset viewer.