/[lmdze]/trunk/libf/filtrez/coefils.f90
ViewVC logotype

Contents of /trunk/libf/filtrez/coefils.f90

Parent Directory Parent Directory | Revision Log Revision Log


Revision 25 - (show annotations)
Fri Mar 5 16:43:45 2010 UTC (14 years, 2 months ago) by guez
File size: 419 byte(s)
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

Properties

Name Value
svn:eol-style native

  ViewVC Help
Powered by ViewVC 1.1.21