Parent Directory | Revision Log
Simplified "etat0_lim.sh" and "gcm.sh" because the full versions depended on personal arrangements for directories and machines. Translated included files into modules. Encapsulated procedures into modules. Moved variables from module "comgeom" to local variables of "inigeom". Deleted some unused variables in "comgeom". Moved variable "day_ini" from module "temps" to module "dynetat0_m". Removed useless test on variable "time" and useless "close" statement in procedure "leapfrog". Removed useless call to "inigeom" in procedure "limit".
1 | module coefils |
2 | |
3 | ! From filtrez/coefils.h,v 1.1.1.1 2004/05/19 12:53:09 |
4 | |
5 | use dimens_m, only: iim, jjm |
6 | |
7 | implicit none |
8 | |
9 | private iim, jjm |
10 | |
11 | real sddu(iim),sddv(iim) |
12 | real unsddu(iim),unsddv(iim),coefilu(iim,jjm),coefilv(iim,jjm) |
13 | integer modfrstu(jjm),modfrstv(jjm) |
14 | real eignfnu(iim,iim),eignfnv(iim,iim) |
15 | real coefilu2(iim,jjm),coefilv2(iim,jjm) |
16 | INTEGER jfiltnu,jfiltsu,jfiltnv,jfiltsv |
17 | |
18 | end module coefils |
Name | Value |
---|---|
svn:eol-style | native |
ViewVC Help | |
Powered by ViewVC 1.1.21 |