Last change
on this file was
11,
checked in by aslmd, 14 years ago
|
spiga@svn-planeto:ajoute le modele meso-echelle martien
|
File size:
473 bytes
|
Line | |
---|
1 | 26a27 |
---|
2 | > MARS_ALB,MARS_TI, & !MARS Stuff |
---|
3 | 75c76 |
---|
4 | < itimestep & !Optional obs fdda |
---|
5 | --- |
---|
6 | > itimestep & !Optional obs fdda |
---|
7 | 151a153,158 |
---|
8 | > !****MARS |
---|
9 | > REAL, DIMENSION( ims:ime , jms:jme ) , INTENT(INOUT) :: & |
---|
10 | > MARS_ALB,MARS_TI |
---|
11 | > !****MARS |
---|
12 | > |
---|
13 | > |
---|
14 | 315a323,326 |
---|
15 | > !!****MARS |
---|
16 | > MARS_ALB(i,j)=0. |
---|
17 | > MARS_TI(i,j)=0. |
---|
18 | > !!****MARS |
---|
Note: See
TracBrowser
for help on using the repository browser.