Parent Directory
| 
Revision Log
Split "stringop.f90" into single-procedure files. Gathered files in directory "IOIPSL/Stringop". Split "flincom.f90" into "flincom.f90" and "flinget.f90". Removed unused procedures from module "flincom". Removed unused argument "filename" of procedure "flinopen_nozoom". Removed unused files. Split "grid_change.f90" into "grid_change.f90" and "gr_phy_write_3d.f90". Removed unused procedures from modules "calendar", "ioipslmpp", "grid_atob", "gath_cpl" and "getincom". Removed unused procedures in files "ppm3d.f" and "thermcell.f". Split "mathelp.f90" into "mathelp.f90" and "mathop.f90". Removed unused variable "dpres" of module "comvert". Use argument "itau" instead of local variables "iadvtr" and "first" to control algorithm in procedure "fluxstokenc". Removed unused arguments of procedure "integrd". Removed useless computations at the end of procedure "leapfrog". Merged common block "matrfil" into module "parafilt".
| 1 | module parafilt |
| 2 | |
| 3 | ! From filtrez/parafilt.h, v 1.1.1.1 2004/05/19 12:53:09 |
| 4 | |
| 5 | ! La premiere fois que le Gcm rentrera dans le Filtre , |
| 6 | ! il indiquera les bonnes valeurs de nfilun , nflius, nfilvn et |
| 7 | ! nfilvs a mettre . Il suffira alors de changer ces valeurs dans |
| 8 | ! Parameter ci-dessus et de relancer le run. |
| 9 | |
| 10 | use dimens_m, only: iim |
| 11 | |
| 12 | implicit none |
| 13 | |
| 14 | private iim |
| 15 | |
| 16 | INTEGER, PARAMETER:: nfilun=3, nfilus=2, nfilvn=2, nfilvs=2 |
| 17 | |
| 18 | real matriceun(iim,iim,nfilun), matriceus(iim,iim,nfilus) |
| 19 | real matricevn(iim,iim,nfilvn), matricevs(iim,iim,nfilvs) |
| 20 | real matrinvn(iim,iim,nfilun), matrinvs(iim,iim,nfilus) |
| 21 | |
| 22 | end module parafilt |
| Name | Value |
|---|---|
| svn:eol-style | native |
| ViewVC Help | |
| Powered by ViewVC 1.1.21 |