Changeset 8598


Ignore:
Timestamp:
2024-06-25T18:48:22+02:00 (4 days ago)
Author:
josefine.ghattas
Message:

Bug correction that was done in the trunk just after this tag was created in [5293]. This bug is only seen if using gnu compiler. Reported by Amaury Barral, LMD

File:
1 edited

Legend:

Unmodified
Added
Removed

  • tags/ORCHIDEE_2_0/ORCHIDEE/src_parameters/vertical_soil.f90

    r5359 r8598  
    178178    INTEGER(i_std)                       :: igeo              !! Related to refine at bottom. Work in progress... 
    179179    REAL(r_std), DIMENSION(nblayermax+1) :: ztmp              !! Depth at the node of each layer (m) 
    180     REAL(r_std), DIMENSION(nblayermax+1) :: zint              !! Depth at the interface of each layer (m) 
     180    REAL(r_std), DIMENSION(nblayermax)  :: zint              !! Depth at the interface of each layer (m) 
    181181    REAL(r_std), DIMENSION(nblayermax+1) :: dtmp              !! Distance between the current node and the one above (m) 
    182182    REAL(r_std), DIMENSION(nblayermax+1) :: drefine           !! Related to refine at bottom. Work in progress... 
Note: See TracChangeset for help on using the changeset viewer.