Changeset 961 for codes


Ignore:
Timestamp:
07/18/19 13:44:18 (5 years ago)
Author:
jisesh
Message:

devel: fixed array index in vertical_remap

File:
1 edited

Legend:

Unmodified
Added
Removed

  • codes/icosagcm/devel/src/vertical/vertical_remap.f90

    r948 r961  
    140140  IMPLICIT NONE 
    141141    REAL(rstd),INTENT(IN)  :: in(:,:) 
    142     REAL(rstd),INTENT(IN)  :: target_pressure(iim*jjm,llm+1)  
    143     REAL(rstd),INTENT(OUT) :: out2d_press(iim*jjm,llm+1) 
     142    REAL(rstd),INTENT(IN)  :: target_pressure(iim*jjm,llm)  
     143    REAL(rstd),INTENT(OUT) :: out2d_press(iim*jjm,llm) 
    144144    REAL(rstd) :: coeff, target_pval,testp1,testp2 
    145145    INTEGER :: i,j,ij,l,n,nb_level 
Note: See TracChangeset for help on using the changeset viewer.