|
Last change
on this file since 5099 was
5099,
checked in by abarral, 4 months ago
|
|
Replace most uses of CPP_DUST by the corresponding logical defined in lmdz_cppkeys_wrapper.F90
Convert several files from .F to .f90 to allow Dust to compile w/o rrtm/ecrad
Create lmdz_yoerad.f90
(lint) Remove "!" on otherwise empty line
|
-
Property copyright set to
Name of program: LMDZ
Creation date: 1984
Version: LMDZ5
License: CeCILL version 2
Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
See the license file in the root directory
-
Property svn:eol-style set to
native
-
Property svn:keywords set to
Author Date Id Revision
|
|
File size:
837 bytes
|
| Rev | Line | |
|---|
| [5099] | 1 | |
|---|
| [1591] | 2 | ! $Id $ |
|---|
| [5099] | 3 | |
|---|
| [1146] | 4 | COMMON/coefils/jfiltnu,jfiltsu,jfiltnv,jfiltsv,sddu(iim),sddv(iim)& |
|---|
| 5 | & ,unsddu(iim),unsddv(iim),coefilu(iim,jjm),coefilv(iim,jjm), & |
|---|
| 6 | & modfrstu(jjm),modfrstv(jjm),eignfnu(iim,iim),eignfnv(iim,iim) & |
|---|
| 7 | & ,coefilu2(iim,jjm),coefilv2(iim,jjm) |
|---|
| 8 | !c |
|---|
| [1591] | 9 | INTEGER jfiltnu ! index of the last lat line filtered in NH (U grid) |
|---|
| 10 | INTEGER jfiltsu ! index of the first lat line filtered in SH (U grid) |
|---|
| 11 | INTEGER jfiltnv ! index of the last lat line filtered in NH (V grid) |
|---|
| 12 | INTEGER jfiltsv ! index of the first lat line filtered in SH (V grid) |
|---|
| 13 | INTEGER modfrstu ! number of retained (ie: unfiltered) modes on U grid |
|---|
| 14 | INTEGER modfrstv ! number of retained (ie: unfiltered) modes on V grid |
|---|
| [524] | 15 | REAL sddu,sddv,unsddu,unsddv,coefilu,coefilv,eignfnu,eignfnv |
|---|
| 16 | REAL coefilu2,coefilv2 |
|---|
Note: See
TracBrowser
for help on using the repository browser.
