|
Last change
on this file since 620 was
575,
checked in by emillour, 13 years ago
|
|
Mars GCM:
correction in nirco2abs: io and ico2 should be declared as integers
Update sponge: remove posibility of specifying 'hsponge', all modes
apply to the last upper "nsponge" layers (default nsponge=3) and
sponge time scale doubles with every level, starting from top.
EM
|
|
File size:
510 bytes
|
| Line | |
|---|
| 1 | c----------------------------------------------------------------------- |
|---|
| 2 | c INCLUDE 'sponge.h' |
|---|
| 3 | |
|---|
| 4 | COMMON/com_sponge_l/callsponge |
|---|
| 5 | common/com_sponge_i/mode_sponge,nsponge |
|---|
| 6 | common/com_sponge_r/tetasponge |
|---|
| 7 | |
|---|
| 8 | LOGICAL callsponge ! do we use a sponge on upper layers |
|---|
| 9 | INTEGER mode_sponge ! sponge mode |
|---|
| 10 | INTEGER nsponge ! number of sponge layers |
|---|
| 11 | REAL tetasponge ! sponge time scale (s) at topmost layer |
|---|
| 12 | c----------------------------------------------------------------------- |
|---|
Note: See
TracBrowser
for help on using the repository browser.
