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 |