|
Last change
on this file since 706 was
517,
checked in by emillour, 13 years ago
|
|
Mars GCM: Adding the new molecular diffusion routines (old "moldiff" and "moldiffcoeff" are kept for now and if further tests are needed) by JYC:
moldiffcoeff_red.F, moldiff_red.F90, diffusion.h
Also updated "phymars/comdiurn.h", "aeronomars/conc.h" and "aeronomars/chimiedata.h" to be fixed/free form compatible.
|
|
File size:
212 bytes
|
| Line | |
|---|
| 1 | COMMON/comdiurn_r/sinlon(ngridmx),coslon(ngridmx), & |
|---|
| 2 | & sinlat(ngridmx),coslat(ngridmx) |
|---|
| 3 | COMMON/comdiurn_l/ldiurn |
|---|
| 4 | |
|---|
| 5 | REAL sinlon,coslon,sinlat,coslat |
|---|
| 6 | LOGICAL ldiurn |
|---|
Note: See
TracBrowser
for help on using the repository browser.
