- Timestamp:
- 07/18/19 13:44:18 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/devel/src/vertical/vertical_remap.f90
r948 r961 140 140 IMPLICIT NONE 141 141 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) 144 144 REAL(rstd) :: coeff, target_pval,testp1,testp2 145 145 INTEGER :: i,j,ij,l,n,nb_level
Note: See TracChangeset
for help on using the changeset viewer.