Parent Directory
| 
Revision Log
Inlined procedure "pression". Split "guide.f90" into "guide.f90" and "tau2alpha.f90". Split "read_reanalyse.f" into single-procedure files in directory "Read_reanalyse". Useless copy of variables in "iniphysiq". Directly define module variables in "gcm" and remove procedure "iniphysiq". Added "pressure-altitude" in "test_disvert".
| 1 | guez | 37 | |
| 2 | |||
| 3 | |||
| 4 | !=========================================================================== | ||
| 5 | subroutine correctbid(iim,nl,x) | ||
| 6 | !=========================================================================== | ||
| 7 | integer iim,nl | ||
| 8 | real x(iim+1,nl) | ||
| 9 | integer i,l | ||
| 10 | real zz | ||
| 11 | |||
| 12 | do l=1,nl | ||
| 13 | do i=2,iim-1 | ||
| 14 | if(abs(x(i,l)).gt.1.e10) then | ||
| 15 | zz=0.5*(x(i-1,l)+x(i+1,l)) | ||
| 16 | ! print*,'correction ',i,l,x(i,l),zz | ||
| 17 | x(i,l)=zz | ||
| 18 | endif | ||
| 19 | enddo | ||
| 20 | enddo | ||
| 21 | return | ||
| 22 | end |
| ViewVC Help | |
| Powered by ViewVC 1.1.21 |