source: trunk/LMDZ.MARS/libf/aeronomars/conc.h @ 517

Last change on this file since 517 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: 403 bytes
Line 
1!**********************************************************************
2
3!       conc.h
4       
5!**********************************************************************
6
7      integer ncomptot
8
9      parameter (ncomptot=ncomp+1)
10
11      common/conc/mmean,Akknew,cpnew,rnew
12 
13      real mmean(ngridmx,nlayermx)
14      real Akknew(ngridmx,nlayermx)
15      real cpnew(ngridmx,nlayermx)
16      real rnew(ngridmx,nlayermx)
17
18
Note: See TracBrowser for help on using the repository browser.