Changeset 7995


Ignore:
Timestamp:
2017-05-04T16:47:44+02:00 (3 years ago)
Author:
timgraham
Message:

Some array indexes were starting from zero where they shouldn't have been. These have now been removed

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_r7881_no_wrk_alloc/NEMOGCM/NEMO/LIM_SRC_3/limthd_dif.F90

    r7956 r7995  
    142142      REAL(wp), DIMENSION(jpij,0:nlay_s)   ::   ztsb        ! Temporary temperature in the snow 
    143143      REAL(wp), DIMENSION(jpij,0:nlay_s)   ::   z_s         ! Vertical cotes of the layers in the snow 
    144       REAL(wp), DIMENSION(jpij,0:nlay_i+3)   ::   zindterm    ! 'Ind'ependent term 
    145       REAL(wp), DIMENSION(jpij,0:nlay_i+3)   ::   zindtbis    ! Temporary 'ind'ependent term 
    146       REAL(wp), DIMENSION(jpij,0:nlay_i+3)   ::   zdiagbis    ! Temporary 'dia'gonal term 
    147       REAL(wp), DIMENSION(jpij,0:nlay_i+3,3) ::   ztrid       ! Tridiagonal system terms 
     144      REAL(wp), DIMENSION(jpij,nlay_i+3)   ::   zindterm    ! 'Ind'ependent term 
     145      REAL(wp), DIMENSION(jpij,nlay_i+3)   ::   zindtbis    ! Temporary 'ind'ependent term 
     146      REAL(wp), DIMENSION(jpij,nlay_i+3)   ::   zdiagbis    ! Temporary 'dia'gonal term 
     147      REAL(wp), DIMENSION(jpij,nlay_i+3,3) ::   ztrid       ! Tridiagonal system terms 
    148148       
    149149      ! diag errors on heat 
Note: See TracChangeset for help on using the changeset viewer.