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 | |
| 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 |