Changeset 2239 for trunk/LMDZ.TITAN/libf
- Timestamp:
- Feb 6, 2020, 4:49:54 PM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.TITAN/libf/phytitan/bilinearbig.F90
r1722 r2239 55 55 56 56 ! ... and for y within the temperature range 57 if ((y.l t.y_arr(1)).or.(y.gt.y_arr(nY))) then58 print*,y_arr(1),y_arr(nY)57 if ((y.le.y_arr(1)).or.(y.ge.y_arr(nY))) then 58 !print*,y_arr(1),y_arr(nY) 59 59 !write(*,*) 'Warning from bilinearbig routine:' 60 60 !write(*,*) 'Outside continuum temperature range!' 61 if(y.l t.y_arr(1))then61 if(y.le.y_arr(1))then 62 62 y=y_arr(1)+0.01 63 63 b=1 … … 65 65 y2=y_arr(b+1) 66 66 endif 67 if(y.g t.y_arr(nY))then67 if(y.ge.y_arr(nY))then 68 68 y=y_arr(nY)-0.01 69 69 b=nY-1 … … 74 74 j=1 75 75 y2=y_arr(j) 76 do while ( y2 .l e. y )76 do while ( y2 .lt. y ) 77 77 y1=y2 78 78 j=j+1
Note: See TracChangeset
for help on using the changeset viewer.