Index: /trunk/LMDZ.COMMON/libf/dyn3d/gcm.F90 =================================================================== --- /trunk/LMDZ.COMMON/libf/dyn3d/gcm.F90 (revision 1643) +++ /trunk/LMDZ.COMMON/libf/dyn3d/gcm.F90 (revision 1644) @@ -372,4 +372,6 @@ write(lunout,*)'jD_ref+jH_ref,an, mois, jour, heure' write(lunout,*)jD_ref+jH_ref,an, mois, jour, heure + else if (planet_type.eq.'titan') then + jD_ref=1 ! Because we use old Titan starts (J.V.O 2016) else ! A voir pour Titan et Venus Index: /trunk/LMDZ.COMMON/libf/dyn3dpar/gcm.F =================================================================== --- /trunk/LMDZ.COMMON/libf/dyn3dpar/gcm.F (revision 1643) +++ /trunk/LMDZ.COMMON/libf/dyn3dpar/gcm.F (revision 1644) @@ -396,4 +396,6 @@ write(lunout,*)'jD_ref+jH_ref,an, mois, jour, heure' write(lunout,*)jD_ref+jH_ref,an, mois, jour, heure + else if (planet_type.eq.'titan') then + jD_ref=1 ! Because we use old Titan starts (J.V.O 2016) else ! A voir pour Titan et Venus Index: /trunk/LMDZ.COMMON/libf/dynphy_lonlat/phytitan =================================================================== --- /trunk/LMDZ.COMMON/libf/dynphy_lonlat/phytitan (revision 1644) +++ /trunk/LMDZ.COMMON/libf/dynphy_lonlat/phytitan (revision 1644) @@ -0,0 +1,1 @@ +link ../../../LMDZ.TITAN/libf/dynphy_lonlat/phytitan Index: /trunk/LMDZ.COMMON/libf/dynphy_lonlat/phytitan.old/callphysiq_mod.F90 =================================================================== --- /trunk/LMDZ.COMMON/libf/dynphy_lonlat/phytitan.old/callphysiq_mod.F90 (revision 1644) +++ /trunk/LMDZ.COMMON/libf/dynphy_lonlat/phytitan.old/callphysiq_mod.F90 (revision 1644) @@ -0,0 +1,97 @@ +! +! $Id: $ +! +MODULE callphysiq_mod + +IMPLICIT NONE + +CONTAINS + +SUBROUTINE call_physiq(klon,llm,nqtot,tname, & + debut_split,lafin_split, & + jD_cur,jH_cur_split,zdt_split, & + zplev_omp,zplay_omp, & + zpk_omp,zphi_omp,zphis_omp, & + presnivs_omp, & + zufi_omp,zvfi_omp,zrfi_omp,ztfi_omp,zqfi_omp, & + flxwfi_omp,pducov, & + zdufi_omp,zdvfi_omp,zdtfi_omp,zdqfi_omp,zdpsrf_omp) + + USE control_mod, ONLY: planet_type + USE mod_grid_phy_lmdz, ONLY: nbp_lon, nbp_lat + USE physiq_mod, ONLY: physiq + IMPLICIT NONE + + INTEGER,INTENT(IN) :: klon ! (local) number of atmospheric columns + INTEGER,INTENT(IN) :: llm ! number of atmospheric layers + INTEGER,INTENT(IN) :: nqtot ! number of tracers + CHARACTER(len=*),INTENT(IN) :: tname(nqtot) ! tracer names + LOGICAL,INTENT(IN) :: debut_split ! .true. if very first call to physics + LOGICAL,INTENT(IN) :: lafin_split ! .true. if last call to physics + REAL,INTENT(IN) :: JD_cur ! Julian day + REAL,INTENT(IN) :: JH_cur_split ! Julian hour (fraction of day) + REAL,INTENT(IN) :: zdt_split ! time step over which the physics are evaluated + REAL,INTENT(IN) :: zplev_omp(klon,llm+1) ! interlayer pressure (Pa) + REAL,INTENT(IN) :: zplay_omp(klon,llm) ! mid-layer pressure (Pa) + REAL,INTENT(IN) :: zpk_omp(klon,llm) + REAL,INTENT(IN) :: zphi_omp(klon,llm) ! geopotential at midlayer + REAL,INTENT(IN) :: zphis_omp(klon) ! surface geopotential + REAL,INTENT(IN) :: presnivs_omp(llm) ! approximate pressure of atm. layers + REAL,INTENT(IN) :: zufi_omp(klon,llm) ! zonal wind (m/s) + REAL,INTENT(IN) :: zvfi_omp(klon,llm) ! meridional wind (m/s) + REAL,INTENT(IN) :: zrfi_omp(klon,llm) ! relative wind vorticity, in s-1 + REAL,INTENT(IN) :: ztfi_omp(klon,llm) ! temperature (K) + REAL,INTENT(IN) :: zqfi_omp(klon,llm,nqtot) ! tracers (*/kg of air) + REAL,INTENT(IN) :: flxwfi_omp(klon,llm) ! Vertical mass flux on lower mesh interfaces (kg/s) + REAL,INTENT(IN) :: pducov(nbp_lon+1,nbp_lat,llm) ! dynamical tendency on ucov + ! tendencies (in */s) from the physics: + REAL,INTENT(OUT) :: zdufi_omp(klon,llm) ! tendency on zonal winds + REAL,INTENT(OUT) :: zdvfi_omp(klon,llm) ! tendency on meridional winds + REAL,INTENT(OUT) :: zdtfi_omp(klon,llm) ! tendency on temperature + REAL,INTENT(OUT) :: zdqfi_omp(klon,llm,nqtot) ! tendency on tracers + REAL,INTENT(OUT) :: zdpsrf_omp(klon) ! tendency on surface pressure + + ! Local variables + CHARACTER(len=11) :: modname="call_physiq" + LOGICAL,SAVE :: firstcall=.true. +!$OMP THREADPRIVATE(firstcall) + +! Sanity check on physics package type + IF (firstcall) THEN + IF (planet_type.ne."titan") THEN + CALL abort_gcm(modname,"wrong planet_type for this physics package",1) + ENDIF + firstcall=.false. + ENDIF + + +! Call physics package with required inputs/outputs + CALL physiq(klon, & + llm, & + nqtot, & + debut_split, & + lafin_split, & + jD_cur, & + jH_cur_split, & + zdt_split, & + zplev_omp, & + zplay_omp, & + zpk_omp, & + zphi_omp, & + zphis_omp, & + presnivs_omp, & + zufi_omp, & + zvfi_omp, & + ztfi_omp, & + zqfi_omp, & + flxwfi_omp, & + zdufi_omp, & + zdvfi_omp, & + zdtfi_omp, & + zdqfi_omp, & + zdpsrf_omp) + + +END SUBROUTINE call_physiq + +END MODULE callphysiq_mod Index: /trunk/LMDZ.COMMON/libf/dynphy_lonlat/phytitan.old/conf_dat3d.F =================================================================== --- /trunk/LMDZ.COMMON/libf/dynphy_lonlat/phytitan.old/conf_dat3d.F (revision 1644) +++ /trunk/LMDZ.COMMON/libf/dynphy_lonlat/phytitan.old/conf_dat3d.F (revision 1644) @@ -0,0 +1,296 @@ +! +! $Header$ +! +C +C + SUBROUTINE conf_dat3d( title, lons,lats,levs,xd,yd,zd,xf,yf,zf, + , champd , interbar ) +c +c Auteur : P. Le Van +c +c Ce s-pr. configure le champ de donnees 3D 'champd' de telle facon +c qu'on ait - pi a pi en longitude +c qu'on ait pi/2. a - pi/2. en latitude +c et qu'on ait les niveaux verticaux variant du sol vers le ht de l'atmos. +c ( en Pascals ) . +c +c xd et yd sont les longitudes et latitudes initiales +c zd les pressions initiales +c +c xf et yf sont les longitudes et latitudes en sortie , eventuellement +c modifiees pour etre configurees comme ci-dessus . +c zf les pressions en sortie +c +c champd en meme temps le champ initial et final +c +c interbar = .TRUE. si on appelle l'interpo. barycentrique inter_barxy +c sinon , l'interpolation grille_m ( grid_atob ) . +c + + IMPLICIT NONE + +c *** Arguments en entree *** + CHARACTER*(*) :: title + INTEGER lons, lats, levs + REAL xd(lons), yd(lats), zd(levs) + LOGICAL interbar +c +c *** Arguments en sortie *** + REAL xf(lons), yf(lats), zf(levs) + +c *** Arguments en entree et sortie *** + REAL champd(lons,lats,levs) + +c *** Variables locales *** +c + REAL pi,pis2,depi,presmax + LOGICAL radianlon, invlon ,radianlat, invlat, invlev, alloc + REAL rlatmin,rlatmax,oldxd1 + INTEGER i,j,ip180,ind,l + + REAL, ALLOCATABLE :: xtemp(:) + REAL, ALLOCATABLE :: ytemp(:) + REAL, ALLOCATABLE :: ztemp(:) + REAL, ALLOCATABLE :: champf(:,:,:) + + +c WRITE(6,*) ' Conf_dat3d pour ',title + + ALLOCATE(xtemp(lons)) + ALLOCATE(ytemp(lats)) + ALLOCATE(ztemp(levs)) + + DO i = 1, lons + xtemp(i) = xd(i) + ENDDO + DO j = 1, lats + ytemp(j) = yd(j) + ENDDO + DO l = 1, levs + ztemp(l) = zd(l) + ENDDO + + pi = 2. * ASIN(1.) + pis2 = pi/2. + depi = 2. * pi + + IF( xtemp(1).GE.-pi-0.5.AND. xtemp(lons).LE.pi+0.5 ) THEN + radianlon = .TRUE. + invlon = .FALSE. + ELSE IF (xtemp(1).GE.-0.5.AND.xtemp(lons).LE.depi+0.5 ) THEN + radianlon = .TRUE. + invlon = .TRUE. + ELSE IF ( xtemp(1).GE.-180.5.AND. xtemp(lons).LE.180.5 ) THEN + radianlon = .FALSE. + invlon = .FALSE. + ELSE IF ( xtemp(1).GE.-0.5.AND.xtemp(lons).LE.360.5 ) THEN + radianlon = .FALSE. + invlon = .TRUE. + ELSE + WRITE(6,*) 'Pbs. sur les longitudes des donnees pour le fichier' + , , title + ENDIF + + invlat = .FALSE. + + IF( ytemp(1).LT.ytemp(lats) ) THEN + invlat = .TRUE. + ENDIF + + rlatmin = MIN( ytemp(1), ytemp(lats) ) + rlatmax = MAX( ytemp(1), ytemp(lats) ) + + IF( rlatmin.GE.-pis2-0.5.AND.rlatmax.LE.pis2+0.5)THEN + radianlat = .TRUE. + ELSE IF ( rlatmin.GE.-90.-0.5.AND.rlatmax.LE.90.+0.5 ) THEN + radianlat = .FALSE. + ELSE + WRITE(6,*) ' Pbs. sur les latitudes des donnees pour le fichier' + , , title + ENDIF + + IF( .NOT. radianlon ) THEN + DO i = 1, lons + xtemp(i) = xtemp(i) * pi/180. + ENDDO + ENDIF + + IF( .NOT. radianlat ) THEN + DO j = 1, lats + ytemp(j) = ytemp(j) * pi/180. + ENDDO + ENDIF + + + alloc =.FALSE. + + IF ( invlon ) THEN + + ALLOCATE(champf(lons,lats,levs)) + alloc = .TRUE. + + DO i = 1 ,lons + xf(i) = xtemp(i) + ENDDO + + DO l = 1, levs + DO j = 1, lats + DO i= 1, lons + champf (i,j,l) = champd (i,j,l) + ENDDO + ENDDO + ENDDO +c +c *** On tourne les longit. pour avoir - pi a + pi **** +c + DO i=1,lons + IF( xf(i).GT. pi ) THEN + GO TO 88 + ENDIF + ENDDO + +88 CONTINUE +c + ip180 = i + + DO i = 1,lons + IF (xf(i).GT. pi) THEN + xf(i) = xf(i) - depi + ENDIF + ENDDO + + DO i= ip180,lons + ind = i-ip180 +1 + xtemp(ind) = xf(i) + ENDDO + + DO i= ind +1,lons + xtemp(i) = xf(i-ind) + ENDDO + +c ..... on tourne les longitudes pour champf .... +c + DO l = 1,levs + DO j = 1,lats + DO i = ip180,lons + ind = i-ip180 +1 + champd (ind,j,l) = champf (i,j,l) + ENDDO + + DO i= ind +1,lons + champd (i,j,l) = champf (i-ind,j,l) + ENDDO + ENDDO + ENDDO + + ENDIF +c +c ***** fin de IF(invlon) **** + + IF ( invlat ) THEN + + IF(.NOT.alloc) THEN + ALLOCATE(champf(lons,lats,levs)) + alloc = .TRUE. + ENDIF + + DO j = 1, lats + yf(j) = ytemp(j) + ENDDO + + DO l = 1,levs + DO j = 1, lats + DO i = 1,lons + champf(i,j,l) = champd(i,j,l) + ENDDO + ENDDO + + DO j = 1, lats + ytemp( lats-j+1 ) = yf(j) + DO i = 1, lons + champd (i,lats-j+1,l) = champf (i,j,l) + ENDDO + ENDDO + ENDDO + + + ENDIF + +c ***** fin de IF(invlat) **** +c +c + IF( interbar ) THEN + oldxd1 = xtemp(1) + DO i = 1, lons -1 + xtemp(i) = 0.5 * ( xtemp(i) + xtemp(i+1) ) + ENDDO + xtemp(lons) = 0.5 * ( xtemp(lons) + oldxd1 + depi ) + + DO j = 1, lats -1 + ytemp(j) = 0.5 * ( ytemp(j) + ytemp(j+1) ) + ENDDO + ENDIF +c + + invlev = .FALSE. + IF( ztemp(1).LT.ztemp(levs) ) invlev = .TRUE. + + presmax = MAX( ztemp(1), ztemp(levs) ) + IF( presmax.LT.1200. ) THEN + DO l = 1,levs + ztemp(l) = ztemp(l) * 100. + ENDDO + ENDIF + + IF( invlev ) THEN + + IF(.NOT.alloc) THEN + ALLOCATE(champf(lons,lats,levs)) + alloc = .TRUE. + ENDIF + + DO l = 1,levs + zf(l) = ztemp(l) + ENDDO + + DO l = 1,levs + DO j = 1, lats + DO i = 1,lons + champf(i,j,l) = champd(i,j,l) + ENDDO + ENDDO + ENDDO + + DO l = 1,levs + ztemp(levs+1-l) = zf(l) + ENDDO + + DO l = 1,levs + DO j = 1, lats + DO i = 1,lons + champd(i,j,levs+1-l) = champf(i,j,l) + ENDDO + ENDDO + ENDDO + + + ENDIF + + IF(alloc) DEALLOCATE(champf) + + DO i = 1, lons + xf(i) = xtemp(i) + ENDDO + DO j = 1, lats + yf(j) = ytemp(j) + ENDDO + DO l = 1, levs + zf(l) = ztemp(l) + ENDDO + + DEALLOCATE(xtemp) + DEALLOCATE(ytemp) + DEALLOCATE(ztemp) + + RETURN + END Index: /trunk/LMDZ.COMMON/libf/dynphy_lonlat/phytitan.old/ini_archive.F =================================================================== --- /trunk/LMDZ.COMMON/libf/dynphy_lonlat/phytitan.old/ini_archive.F (revision 1644) +++ /trunk/LMDZ.COMMON/libf/dynphy_lonlat/phytitan.old/ini_archive.F (revision 1644) @@ -0,0 +1,353 @@ +c======================================================================= + subroutine ini_archive(nid,phis,tab_cntrl_dyn,tab_cntrl_fi) +c======================================================================= +c +c +c Date: 01/1997 +c ---- +c +c Objet: ecriture de l'entete du fichier "start_archive" +c ----- +c +c Proche de iniwrite.F +c +c Arguments: +c --------- +c +c Inputs: +c ------ +c +c nid unite logique du fichier "start_archive" +c phis geopotentiel au sol +c tab_cntrl_dyn tableau des param dynamiques +c tab_cntrl_fi tableau des param physiques +c + +c======================================================================= + + USE control_mod + USE comconst_mod + USE comvert_mod, ONLY: ap,bp,presnivs,pa,preff,nivsigs,nivsig, + . aps,bps,scaleheight,pseudoalt, + . disvert_type,pressure_exner + + implicit none + +#include "dimensions.h" +#include "paramet.h" +#include "comgeom.h" +#include "description.h" +#include "netcdf.inc" + +c----------------------------------------------------------------------- +c Declarations +c----------------------------------------------------------------------- + +c Local: +c ------ + INTEGER length,l + parameter (length = 100) + REAL tab_cntrl(2*length) ! tableau des parametres du run + INTEGER loop + INTEGER ierr, setvdim, putvdim, putdat, setname,cluvdb + INTEGER setdim + INTEGER ind1,indlast + +c Arguments: +c ---------- + REAL phis(ip1jmp1) + REAL tab_cntrl_dyn(length) + REAL tab_cntrl_fi(length) + +!Mars --------Ajouts----------- +c Variables locales pour NetCDF: +c + INTEGER dims2(2), dims3(3), dims4(4) + INTEGER idim_index + INTEGER idim_rlonu, idim_rlonv, idim_rlatu, idim_rlatv + INTEGER idim_llmp1,idim_llm + INTEGER idim_tim + INTEGER nid,nvarid + real sig_s(llm),s(llm) + + pi = 2. * ASIN(1.) + + +c----------------------------------------------------------------------- +c Remplissage du tableau des parametres de controle du RUN +c----------------------------------------------------------------------- + + DO l=1,length + tab_cntrl(l) = tab_cntrl_dyn(l) + tab_cntrl(length+l)= tab_cntrl_fi(l) + ENDDO + +c======================================================================= +c Ecriture NetCDF de l''entete du fichier "start_archive" +c======================================================================= + +c +c Preciser quelques attributs globaux: +c + ierr = NF_PUT_ATT_TEXT (nid, NF_GLOBAL, "title", 27, + . "Fichier start_archive") +c +c Definir les dimensions du fichiers: +c +c CHAMPS AJOUTES POUR LA VISUALISATION T,ps, etc... avec Grads ou ferret: + ierr = NF_DEF_DIM (nid,"index", 2*length, idim_index) + ierr = NF_DEF_DIM (nid,"rlonu", iip1, idim_rlonu) + ierr = NF_DEF_DIM (nid,"rlatu", jjp1, idim_rlatu) + ierr = NF_DEF_DIM (nid,"rlonv", iip1, idim_rlonv) + ierr = NF_DEF_DIM (nid,"rlatv", jjm, idim_rlatv) + ierr = NF_DEF_DIM (nid,"sigs", llm, idim_llm) + ierr = NF_DEF_DIM (nid,"sig", llmp1, idim_llmp1) + ierr = NF_DEF_DIM (nid,"Time", NF_UNLIMITED, idim_tim) + +c + ierr = NF_ENDDEF(nid) ! sortir du mode de definition + +c----------------------------------------------------------------------- +c Ecriture du tableau des parametres du run +c----------------------------------------------------------------------- + + call def_var(nid,"Time","Time","days since 00:00:00",1, + . idim_tim,nvarid,ierr) + + ierr = NF_REDEF (nid) +#ifdef NC_DOUBLE + ierr = NF_DEF_VAR (nid,"controle",NF_DOUBLE,1,idim_index,nvarid) +#else + ierr = NF_DEF_VAR (nid,"controle",NF_FLOAT,1,idim_index,nvarid) +#endif + ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 22, + . "Parametres de controle") + ierr = NF_ENDDEF(nid) +#ifdef NC_DOUBLE + ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,tab_cntrl) +#else + ierr = NF_PUT_VAR_REAL (nid,nvarid,tab_cntrl) +#endif + +c----------------------------------------------------------------------- +c Ecriture des longitudes et latitudes +c----------------------------------------------------------------------- + + ierr = NF_REDEF (nid) +#ifdef NC_DOUBLE + ierr = NF_DEF_VAR (nid,"rlonu",NF_DOUBLE,1,idim_rlonu,nvarid) +#else + ierr = NF_DEF_VAR (nid,"rlonu",NF_FLOAT,1,idim_rlonu,nvarid) +#endif + ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 23, + . "Longitudes des points U") + ierr = NF_ENDDEF(nid) +#ifdef NC_DOUBLE + ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,rlonu) +#else + ierr = NF_PUT_VAR_REAL (nid,nvarid,rlonu) +#endif +c + ierr = NF_REDEF (nid) +#ifdef NC_DOUBLE + ierr = NF_DEF_VAR (nid,"rlatu",NF_DOUBLE,1,idim_rlatu,nvarid) +#else + ierr = NF_DEF_VAR (nid,"rlatu",NF_FLOAT,1,idim_rlatu,nvarid) +#endif + ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 22, + . "Latitudes des points U") + ierr = NF_ENDDEF(nid) +#ifdef NC_DOUBLE + ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,rlatu) +#else + ierr = NF_PUT_VAR_REAL (nid,nvarid,rlatu) +#endif +c + ierr = NF_REDEF (nid) +#ifdef NC_DOUBLE + ierr = NF_DEF_VAR (nid,"rlonv",NF_DOUBLE,1,idim_rlonv,nvarid) +#else + ierr = NF_DEF_VAR (nid,"rlonv",NF_FLOAT,1,idim_rlonv,nvarid) +#endif + ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 23, + . "Longitudes des points V") + ierr = NF_ENDDEF(nid) +#ifdef NC_DOUBLE + ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,rlonv) +#else + ierr = NF_PUT_VAR_REAL (nid,nvarid,rlonv) +#endif +c + ierr = NF_REDEF (nid) +#ifdef NC_DOUBLE + ierr = NF_DEF_VAR (nid,"rlatv",NF_DOUBLE,1,idim_rlatv,nvarid) +#else + ierr = NF_DEF_VAR (nid,"rlatv",NF_FLOAT,1,idim_rlatv,nvarid) +#endif + ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 22, + . "Latitudes des points V") + ierr = NF_ENDDEF(nid) +#ifdef NC_DOUBLE + ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,rlatv) +#else + ierr = NF_PUT_VAR_REAL (nid,nvarid,rlatv) +#endif + +c----------------------------------------------------------------------- +c Ecriture des niveaux verticaux +c----------------------------------------------------------------------- + + ierr = NF_REDEF (nid) +#ifdef NC_DOUBLE + ierr = NF_DEF_VAR (nid,"nivsigs",NF_DOUBLE,1,idim_llm,nvarid) +#else + ierr = NF_DEF_VAR (nid,"nivsigs",NF_FLOAT,1,idim_llm,nvarid) +#endif + ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 28, + . "Numero naturel des couches s") + ierr = NF_ENDDEF(nid) +#ifdef NC_DOUBLE + ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,nivsigs) +#else + ierr = NF_PUT_VAR_REAL (nid,nvarid,nivsigs) +#endif +c + ierr = NF_REDEF (nid) +#ifdef NC_DOUBLE + ierr = NF_DEF_VAR (nid,"nivsig",NF_DOUBLE,1,idim_llmp1,nvarid) +#else + ierr = NF_DEF_VAR (nid,"nivsig",NF_FLOAT,1,idim_llmp1,nvarid) +#endif + ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 28, + . "Numero naturel des couches sigma") + ierr = NF_ENDDEF(nid) +#ifdef NC_DOUBLE + ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,nivsig) +#else + ierr = NF_PUT_VAR_REAL (nid,nvarid,nivsig) +#endif +c + ierr = NF_REDEF (nid) +#ifdef NC_DOUBLE + ierr = NF_DEF_VAR (nid,"ap",NF_DOUBLE,1,idim_llmp1,nvarid) +#else + ierr = NF_DEF_VAR (nid,"ap",NF_FLOAT,1,idim_llmp1,nvarid) +#endif + ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 32, + . "Coef A: niveaux pression hybride") + ierr = NF_ENDDEF(nid) +#ifdef NC_DOUBLE + ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,ap) +#else + ierr = NF_PUT_VAR_REAL (nid,nvarid,ap) +#endif +c + ierr = NF_REDEF (nid) +#ifdef NC_DOUBLE + ierr = NF_DEF_VAR (nid,"bp",NF_DOUBLE,1,idim_llmp1,nvarid) +#else + ierr = NF_DEF_VAR (nid,"bp",NF_FLOAT,1,idim_llmp1,nvarid) +#endif + ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 35, + . "Coefficient B niveaux sigma hybride") + ierr = NF_ENDDEF(nid) +#ifdef NC_DOUBLE + ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,bp) +#else + ierr = NF_PUT_VAR_REAL (nid,nvarid,bp) +#endif +c +c ---------------------- + ierr = NF_REDEF (nid) +#ifdef NC_DOUBLE + ierr = NF_DEF_VAR (nid,"presnivs",NF_DOUBLE,1,idim_llm,nvarid) +#else + ierr = NF_DEF_VAR (nid,"presnivs",NF_FLOAT,1,idim_llm,nvarid) +#endif + ierr = NF_ENDDEF(nid) +#ifdef NC_DOUBLE + ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,presnivs) +#else + ierr = NF_PUT_VAR_REAL (nid,nvarid,presnivs) +#endif + +c----------------------------------------------------------------------- +c Ecriture aire et coefficients de passage cov. <-> contra. <--> naturel +c----------------------------------------------------------------------- + + ierr = NF_REDEF (nid) + dims2(1) = idim_rlonu + dims2(2) = idim_rlatu +#ifdef NC_DOUBLE + ierr = NF_DEF_VAR (nid,"cu",NF_DOUBLE,2,dims2,nvarid) +#else + ierr = NF_DEF_VAR (nid,"cu",NF_FLOAT,2,dims2,nvarid) +#endif + ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 29, + . "Coefficient de passage pour U") + ierr = NF_ENDDEF(nid) +#ifdef NC_DOUBLE + ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,cu) +#else + ierr = NF_PUT_VAR_REAL (nid,nvarid,cu) +#endif +c + ierr = NF_REDEF (nid) + dims2(1) = idim_rlonv + dims2(2) = idim_rlatv +#ifdef NC_DOUBLE + ierr = NF_DEF_VAR (nid,"cv",NF_DOUBLE,2,dims2,nvarid) +#else + ierr = NF_DEF_VAR (nid,"cv",NF_FLOAT,2,dims2,nvarid) +#endif + ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 29, + . "Coefficient de passage pour V") + ierr = NF_ENDDEF(nid) +#ifdef NC_DOUBLE + ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,cv) +#else + ierr = NF_PUT_VAR_REAL (nid,nvarid,cv) +#endif +c +c Aire de chaque maille: +c + ierr = NF_REDEF (nid) + dims2(1) = idim_rlonv + dims2(2) = idim_rlatu +#ifdef NC_DOUBLE + ierr = NF_DEF_VAR (nid,"aire",NF_DOUBLE,2,dims2,nvarid) +#else + ierr = NF_DEF_VAR (nid,"aire",NF_FLOAT,2,dims2,nvarid) +#endif + ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 22, + . "Aires de chaque maille") + ierr = NF_ENDDEF(nid) +#ifdef NC_DOUBLE + ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,aire) +#else + ierr = NF_PUT_VAR_REAL (nid,nvarid,aire) +#endif + +c----------------------------------------------------------------------- +c Ecriture du geopentiel au sol +c----------------------------------------------------------------------- + + ierr = NF_REDEF (nid) + dims2(1) = idim_rlonv + dims2(2) = idim_rlatu +#ifdef NC_DOUBLE + ierr = NF_DEF_VAR (nid,"phisinit",NF_DOUBLE,2,dims2,nvarid) +#else + ierr = NF_DEF_VAR (nid,"phisinit",NF_FLOAT,2,dims2,nvarid) +#endif + ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 19, + . "Geopotentiel au sol") + ierr = NF_ENDDEF(nid) +#ifdef NC_DOUBLE + ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,phis) +#else + ierr = NF_PUT_VAR_REAL (nid,nvarid,phis) +#endif + + RETURN + END Index: /trunk/LMDZ.COMMON/libf/dynphy_lonlat/phytitan.old/iniphysiq_mod.F90 =================================================================== --- /trunk/LMDZ.COMMON/libf/dynphy_lonlat/phytitan.old/iniphysiq_mod.F90 (revision 1644) +++ /trunk/LMDZ.COMMON/libf/dynphy_lonlat/phytitan.old/iniphysiq_mod.F90 (revision 1644) @@ -0,0 +1,149 @@ +! +! $Id: iniphysiq.F90 2225 2015-03-11 14:55:23Z emillour $ +! +MODULE iniphysiq_mod + +CONTAINS + +SUBROUTINE iniphysiq(ii,jj,nlayer, & + nbp, communicator, & + punjours, pdayref,ptimestep, & + rlatudyn,rlatvdyn,rlonudyn,rlonvdyn, & + airedyn,cudyn,cvdyn, & + prad,pg,pr,pcpp,iflag_phys) + + USE temps_mod, ONLY: annee_ref, day_ref, day_ini, day_end + USE comconst_mod, ONLY: cpp + USE cpdet_phy_mod, ONLY: init_cpdet_phy + USE infotrac, ONLY: nqtot, tname, ttext + USE logic_mod, ONLY: iflag_trac + USE infotrac_phy, ONLY: init_infotrac_phy + USE time_phylmdz_mod, ONLY: init_time + USE inigeomphy_mod, ONLY: inigeomphy + USE control_mod, ONLY: nday + USE dimphy, ONLY: init_dimphy + USE mod_phys_lmdz_para, ONLY: klon_omp ! number of columns (on local omp grid) + IMPLICIT NONE + + ! ======================================================================= + ! Initialisation of the physical constants and some positional and + ! geometrical arrays for the physics + ! ======================================================================= + + include "YOMCST.h" + include "iniprint.h" + + REAL, INTENT (IN) :: prad ! radius of the planet (m) + REAL, INTENT (IN) :: pg ! gravitational acceleration (m/s2) + REAL, INTENT (IN) :: pr ! ! reduced gas constant R/mu + REAL, INTENT (IN) :: pcpp ! specific heat Cp + REAL, INTENT (IN) :: punjours ! length (in s) of a standard day + INTEGER, INTENT (IN) :: nlayer ! number of atmospheric layers + INTEGER, INTENT (IN) :: ii ! number of atmospheric columns along longitudes + INTEGER, INTENT (IN) :: jj ! number of atompsheric columns along latitudes + INTEGER, INTENT(IN) :: nbp ! number of physics columns for this MPI process + INTEGER, INTENT(IN) :: communicator ! MPI communicator + REAL, INTENT (IN) :: rlatudyn(jj+1) ! latitudes of the physics grid + REAL, INTENT (IN) :: rlatvdyn(jj) ! latitude boundaries of the physics grid + REAL, INTENT (IN) :: rlonvdyn(ii+1) ! longitudes of the physics grid + REAL, INTENT (IN) :: rlonudyn(ii+1) ! longitude boundaries of the physics grid + REAL, INTENT (IN) :: airedyn(ii+1,jj+1) ! area of the dynamics grid (m2) + REAL, INTENT (IN) :: cudyn((ii+1)*(jj+1)) ! cu coeff. (u_covariant = cu * u) + REAL, INTENT (IN) :: cvdyn((ii+1)*jj) ! cv coeff. (v_covariant = cv * v) + INTEGER, INTENT (IN) :: pdayref ! reference day of for the simulation + REAL, INTENT (IN) :: ptimestep !physics time step (s) + INTEGER, INTENT (IN) :: iflag_phys ! type of physics to be called + + CHARACTER (LEN=20) :: modname = 'iniphysiq' + CHARACTER (LEN=80) :: abort_message + + ! the common part for all planetary physics + !------------------------------------------ + ! --> initialize physics distribution, global fields and geometry + ! (i.e. things in phy_common or dynphy_lonlat) + CALL inigeomphy(ii,jj,nlayer, & + nbp, communicator, & + rlatudyn,rlatvdyn, & + rlonudyn,rlonvdyn, & + airedyn,cudyn,cvdyn) + + ! the distinct part for all planetary physics (ie. things in phytitan) + !------------------------------------------ + +!$OMP PARALLEL + + ! Initialize dimphy module + call init_dimphy(klon_omp,nlayer) + + ! Initialize some physical constants + call suphec + + ! Initialize cpdet_phy module + call init_cpdet_phy(cpp) + + ! Initialize some "temporal and calendar" related variables + CALL init_time(annee_ref,day_ref,day_ini,day_end,nday,ptimestep) + + ! Initialize tracers in physics + CALL init_infotrac_phy(iflag_trac,nqtot,tname,ttext) + +!$OMP END PARALLEL + + + ! check that physical constants set in 'suphec' are coherent + ! with values set in the dynamics: + IF (rday/=punjours) THEN + WRITE (lunout, *) 'iniphysiq: length of day discrepancy!!!' + WRITE (lunout, *) ' in the dynamics punjours=', punjours + WRITE (lunout, *) ' but in the physics RDAY=', rday + IF (abs(rday-punjours)>0.01*punjours) THEN + ! stop here if the relative difference is more than 1% + abort_message = 'length of day discrepancy' + CALL abort_gcm(modname, abort_message, 1) + END IF + END IF + + IF (rg/=pg) THEN + WRITE (lunout, *) 'iniphysiq: gravity discrepancy !!!' + WRITE (lunout, *) ' in the dynamics pg=', pg + WRITE (lunout, *) ' but in the physics RG=', rg + IF (abs(rg-pg)>0.01*pg) THEN + ! stop here if the relative difference is more than 1% + abort_message = 'gravity discrepancy' + CALL abort_gcm(modname, abort_message, 1) + END IF + END IF + IF (ra/=prad) THEN + WRITE (lunout, *) 'iniphysiq: planet radius discrepancy !!!' + WRITE (lunout, *) ' in the dynamics prad=', prad + WRITE (lunout, *) ' but in the physics RA=', ra + IF (abs(ra-prad)>0.01*prad) THEN + ! stop here if the relative difference is more than 1% + abort_message = 'planet radius discrepancy' + CALL abort_gcm(modname, abort_message, 1) + END IF + END IF + IF (rd/=pr) THEN + WRITE (lunout, *) 'iniphysiq: reduced gas constant discrepancy !!!' + WRITE (lunout, *) ' in the dynamics pr=', pr + WRITE (lunout, *) ' but in the physics RD=', rd + IF (abs(rd-pr)>0.01*pr) THEN + ! stop here if the relative difference is more than 1% + abort_message = 'reduced gas constant discrepancy' + CALL abort_gcm(modname, abort_message, 1) + END IF + END IF + IF (rcpd/=pcpp) THEN + WRITE (lunout, *) 'iniphysiq: specific heat discrepancy !!!' + WRITE (lunout, *) ' in the dynamics pcpp=', pcpp + WRITE (lunout, *) ' but in the physics RCPD=', rcpd + IF (abs(rcpd-pcpp)>0.01*pcpp) THEN + ! stop here if the relative difference is more than 1% + abort_message = 'specific heat discrepancy' + CALL abort_gcm(modname, abort_message, 1) + END IF + END IF + +END SUBROUTINE iniphysiq + +END MODULE iniphysiq_mod Index: /trunk/LMDZ.COMMON/libf/dynphy_lonlat/phytitan.old/newstart.F =================================================================== --- /trunk/LMDZ.COMMON/libf/dynphy_lonlat/phytitan.old/newstart.F (revision 1644) +++ /trunk/LMDZ.COMMON/libf/dynphy_lonlat/phytitan.old/newstart.F (revision 1644) @@ -0,0 +1,1144 @@ +C====================================================================== + PROGRAM newstart +c======================================================================= +c +c +c Auteur: S. Lebonnois, +c a partir des newstart/start_archive/lect_start_archive martiens +c +c Derniere modif : 02/09 (ecriture des q*) +c 01/12 (inclusion dans svn dyn3d) +c +c Objet: Modify the grid for the initial state (LMD GCM VENUS/TITAN) +c ----- (from file NetCDF start_archive.nc) +c +c +c======================================================================= + + use IOIPSL + USE filtreg_mod + USE startvar + USE control_mod + USE infotrac + use cpdet_mod, only: ini_cpdet,t2tpot + use exner_hyb_m, only: exner_hyb + use exner_milieu_m, only: exner_milieu + USE comconst_mod + USE comvert_mod, ONLY: ap,bp,presnivs,pa,preff,nivsigs,nivsig, + . aps,bps,scaleheight,pseudoalt, + . disvert_type,pressure_exner + USE serre_mod, ONLY: clon,clat,grossismx,grossismy, + & dzoomx,dzoomy,taux,tauy + USE ener_mod, ONLY: etot0,ptot0,ztot0,stot0,ang0 + USE logic_mod, ONLY: iflag_trac,fxyhypb,ysinus + USE temps_mod, ONLY: day_ref,annee_ref + implicit none + +#include "dimensions.h" +#include "paramet.h" +#include "comdissnew.h" +#include "comgeom2.h" +#include "description.h" +#include "dimsoil.h" +#include "netcdf.inc" + +c----------------------------------------------------------------------- +c Declarations +c----------------------------------------------------------------------- + +c Variables pour fichier "ini" +c------------------------------------ + INTEGER imold,jmold,lmold,nqold,ip1jmp1old + INTEGER length + parameter (length = 100) + real tab_cntrl(2*length) + INTEGER isoil,iq,iqmax + CHARACTER*2 str2 + +c Variable histoire +c------------------ + REAL vcov(iip1,jjm,llm),ucov(iip1,jjp1,llm) ! vents covariants + REAL teta(iip1,jjp1,llm),ps(iip1,jjp1) + REAL phis(iip1,jjp1) ! geopotentiel au sol + REAL masse(ip1jmp1,llm) ! masse de l'atmosphere + REAL, ALLOCATABLE, DIMENSION(:,:,:,:):: q! champs advectes + REAL tab_cntrl_dyn(length) ! tableau des parametres de start + +c variable physique +c------------------ + integer ngridmx + parameter (ngridmx=(2+(jjm-1)*iim - 1/jjm)) + REAL tab_cntrl_fi(length) ! tableau des parametres de startfi + real rlat(ngridmx),rlon(ngridmx) + REAL tsurf(ngridmx),tsoil(ngridmx,nsoilmx) + REAL albe(ngridmx),radsol(ngridmx),sollw(ngridmx) + real solsw(ngridmx),dlw(ngridmx) + REAL zmea(ngridmx), zstd(ngridmx) + REAL zsig(ngridmx), zgam(ngridmx), zthe(ngridmx) + REAL zpic(ngridmx), zval(ngridmx) + real t_fi(ngridmx,llm) + +c Variable nouvelle grille naturelle au point scalaire +c------------------------------------------------------ + real us(iip1,jjp1,llm),vs(iip1,jjp1,llm) + REAL p3d(iip1,jjp1,llm+1) ! pression aux interfaces + REAL phisold_newgrid(iip1,jjp1) + REAL T(iip1,jjp1,llm) + real rlonS(iip1,jjp1),rlatS(iip1,jjp1) + real tsurfS(iip1,jjp1),tsoilS(iip1,jjp1,nsoilmx) + real albeS(ip1jmp1),radsolS(ip1jmp1),sollwS(ip1jmp1) + real solswS(ip1jmp1),dlwS(ip1jmp1) + real zmeaS(ip1jmp1),zstdS(ip1jmp1),zsigS(ip1jmp1) + real zgamS(ip1jmp1),ztheS(ip1jmp1),zpicS(ip1jmp1) + real zvalS(ip1jmp1) + + real ptotal + +c Var intermediaires : vent naturel, mais pas coord scalaire +c----------------------------------------------------------- + real vnat(iip1,jjm,llm),unat(iip1,jjp1,llm) + + REAL pks(iip1,jjp1) ! exner (f pour filtre) + REAL pk(iip1,jjp1,llm) + REAL pkf(iip1,jjp1,llm) + REAL alpha(iip1,jjp1,llm),beta(iip1,jjp1,llm) + + +c Variable de l'ancienne grille +c--------------------------------------------------------- + + real, dimension(:), allocatable :: rlonuold, rlatvold + real, dimension(:), allocatable :: rlonvold, rlatuold + real, dimension(:), allocatable :: nivsigsold,nivsigold + real, dimension(:), allocatable :: apold,bpold + real, dimension(:), allocatable :: presnivsold + real, dimension(:,:,:), allocatable :: uold,vold,told + real, dimension(:,:,:,:), allocatable :: qold + real, dimension(:,:,:), allocatable :: tsoilold + real, dimension(:,:), allocatable :: psold,phisold + real, dimension(:,:), allocatable :: tsurfold + real, dimension(:,:), allocatable :: albeold,radsolold + real, dimension(:,:), allocatable :: sollwold,solswold + real, dimension(:,:), allocatable :: dlwold + real, dimension(:,:), allocatable :: zmeaold,zstdold,zsigold + real, dimension(:,:), allocatable :: zgamold,ztheold,zpicold + real, dimension(:,:), allocatable :: zvalold + + real ptotalold + +c Variable intermediaires iutilise pour l'extrapolation verticale +c---------------------------------------------------------------- + real, dimension(:,:,:), allocatable :: var,varp1 + +c divers local +c----------------- + + integer ierr,nid,nvarid + INTEGER ij, l,i,j + character*80 fichnom + integer, dimension(4) :: start,counter + REAL phisinverse(iip1,jjp1) ! geopotentiel au sol avant inversion + logical topoflag,albedoflag,razvitu,razvitv + real albedo + +c======================================================================= +c INITIALISATIONS DIVERSES +c======================================================================= + +c VENUS/TITAN + + iflag_trac = 1 +c----------------------------------------------------------------------- +c Initialisation des traceurs +c --------------------------- +c Choix du nombre de traceurs et du schema pour l'advection +c dans fichier traceur.def, par default ou via INCA + call infotrac_init + +c Allocation de la tableau q : champs advectes + allocate(q(iip1,jjp1,llm,nqtot)) + +c----------------------------------------------------------------------- +c Ouverture du fichier a modifier (start_archive.nc) +c----------------------------------------------------------------------- + + write(*,*) 'Creation d un etat initial a partir de' + write(*,*) './start_archive.nc' + write(*,*) + fichnom = 'start_archive.nc' + ierr = NF_OPEN (fichnom, NF_NOWRITE,nid) + IF (ierr.NE.NF_NOERR) THEN + write(6,*)' Pb d''ouverture du fichier ',fichnom + write(6,*)' ierr = ', ierr + CALL ABORT + ENDIF + +c----------------------------------------------------------------------- +c Lecture du tableau des parametres du run (pour la dynamique) +c----------------------------------------------------------------------- + + write(*,*) 'lecture tab_cntrl START_ARCHIVE' +c + ierr = NF_INQ_VARID (nid, "controle", nvarid) +#ifdef NC_DOUBLE + ierr = NF_GET_VAR_DOUBLE(nid, nvarid, tab_cntrl) +#else + ierr = NF_GET_VAR_REAL(nid, nvarid, tab_cntrl) +#endif +c + write(*,*) 'Impression de tab_cntrl' + do i=1,200 + write(*,*) i,tab_cntrl(i) + enddo + +c----------------------------------------------------------------------- +c Initialisation des constantes +c----------------------------------------------------------------------- + + imold = tab_cntrl(1) + jmold = tab_cntrl(2) + lmold = tab_cntrl(3) + day_ref = tab_cntrl(4) + annee_ref = tab_cntrl(5) + rad = tab_cntrl(6) + omeg = tab_cntrl(7) + g = tab_cntrl(8) + cpp = tab_cntrl(9) + kappa = tab_cntrl(10) + daysec = tab_cntrl(11) + dtvr = tab_cntrl(12) + etot0 = tab_cntrl(13) + ptot0 = tab_cntrl(14) + ztot0 = tab_cntrl(15) + stot0 = tab_cntrl(16) + ang0 = tab_cntrl(17) + pa = tab_cntrl(18) + preff = tab_cntrl(19) +c + clon = tab_cntrl(20) + clat = tab_cntrl(21) + grossismx = tab_cntrl(22) + grossismy = tab_cntrl(23) + + IF ( tab_cntrl(24).EQ.1. ) THEN + fxyhypb = . TRUE . + dzoomx = tab_cntrl(25) + dzoomy = tab_cntrl(26) + taux = tab_cntrl(28) + tauy = tab_cntrl(29) + ELSE + fxyhypb = . FALSE . + ysinus = . FALSE . + IF( tab_cntrl(27).EQ.1. ) ysinus = . TRUE. + ENDIF + + ptotalold = tab_cntrl(2*length) + + write(*,*) "Old dimensions:" + write(*,*) "longitude: ",imold + write(*,*) "latitude: ",jmold + write(*,*) "altitude: ",lmold + write(*,*) + + ip1jmp1old = (imold+1-1/imold)*(jmold+1-1/jmold) + +c dans run.def + CALL getin('planet_type',planet_type) + call ini_cpdet + +c======================================================================= +c CHANGEMENT DE CONSTANTES CONTENUES DANS tab_cntrl +c======================================================================= +c changement de la resolution dans le fichier de controle + tab_cntrl(1) = REAL(iim) + tab_cntrl(2) = REAL(jjm) + tab_cntrl(3) = REAL(llm) + +c-------------------------------- +c We use a specific run.def to read new parameters that need to be changed +c-------------------------------- + +c Changement de cpp: + CALL getin('cpp',cpp) + kappa = (8.314511/43.44E-3)/cpp + tab_cntrl(9) = cpp + tab_cntrl(10) = kappa + +c CHANGING THE ZOOM PARAMETERS TO CHANGE THE GRID + CALL getin('clon',clon) + CALL getin('clat',clat) + tab_cntrl(20) = clon + tab_cntrl(21) = clat + CALL getin('grossismx',grossismx) + CALL getin('grossismy',grossismy) + tab_cntrl(22) = grossismx + tab_cntrl(23) = grossismy + CALL getin('fxyhypb',fxyhypb) + IF ( fxyhypb ) THEN + CALL getin('dzoomx',dzoomx) + CALL getin('dzoomy',dzoomy) + tab_cntrl(25) = dzoomx + tab_cntrl(26) = dzoomy + CALL getin('taux',taux) + CALL getin('tauy',tauy) + tab_cntrl(28) = taux + tab_cntrl(29) = tauy + ELSE + CALL getin('ysinus',ysinus) + IF (ysinus) THEN + tab_cntrl(27) = 1 + ELSE + tab_cntrl(27) = 0 + ENDIF + ENDIF + +c changes must be done BEFORE these lines... + DO l=1,length + tab_cntrl_dyn(l)= tab_cntrl(l) + tab_cntrl_fi(l) = tab_cntrl(l+length) + ENDDO + +c----------------------------------------------------------------------- +c Autres initialisations +c----------------------------------------------------------------------- + + CALL iniconst + CALL inigeom + call inifilr + +c----------------------------------------------------------------------- +c Allocations des anciennes variables +c----------------------------------------------------------------------- + + allocate(rlonuold(imold+1), rlatvold(jmold)) + allocate(rlonvold(imold+1), rlatuold(jmold+1)) + allocate(nivsigsold(lmold+1),nivsigold(lmold)) + allocate(apold(lmold),bpold(lmold)) + allocate(presnivsold(lmold)) + allocate(uold(imold+1,jmold+1,lmold)) + allocate(vold(imold+1,jmold+1,lmold)) + allocate(told(imold+1,jmold+1,lmold)) + allocate(qold(imold+1,jmold+1,lmold,nqtot)) + allocate(psold(imold+1,jmold+1)) + allocate(phisold(imold+1,jmold+1)) + allocate(tsurfold(imold+1,jmold+1)) + allocate(tsoilold(imold+1,jmold+1,nsoilmx)) + allocate(albeold(imold+1,jmold+1),radsolold(imold+1,jmold+1)) + allocate(sollwold(imold+1,jmold+1),solswold(imold+1,jmold+1)) + allocate(dlwold(imold+1,jmold+1)) + allocate(zmeaold(imold+1,jmold+1),zstdold(imold+1,jmold+1)) + allocate(zsigold(imold+1,jmold+1),zgamold(imold+1,jmold+1)) + allocate(ztheold(imold+1,jmold+1),zpicold(imold+1,jmold+1)) + allocate(zvalold(imold+1,jmold+1)) + + allocate(var (imold+1,jmold+1,llm)) + allocate(varp1 (imold+1,jmold+1,llm+1)) + + print*,"Initialisations OK" + +c----------------------------------------------------------------------- +c Lecture des longitudes et latitudes +c----------------------------------------------------------------------- +c + ierr = NF_INQ_VARID (nid, "rlonv", nvarid) + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "new_grid: Le champ est absent de start.nc" + CALL abort + ENDIF +#ifdef NC_DOUBLE + ierr = NF_GET_VAR_DOUBLE(nid, nvarid, rlonvold) +#else + ierr = NF_GET_VAR_REAL(nid, nvarid, rlonvold) +#endif + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "new_grid: Lecture echouee pour " + CALL abort + ENDIF +c + ierr = NF_INQ_VARID (nid, "rlatu", nvarid) + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "new_grid: Le champ est absent de start.nc" + CALL abort + ENDIF +#ifdef NC_DOUBLE + ierr = NF_GET_VAR_DOUBLE(nid, nvarid, rlatuold) +#else + ierr = NF_GET_VAR_REAL(nid, nvarid, rlatuold) +#endif + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "new_grid: Lecture echouee pour " + CALL abort + ENDIF +c + ierr = NF_INQ_VARID (nid, "rlonu", nvarid) + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "new_grid: Le champ est absent de start.nc" + CALL abort + ENDIF +#ifdef NC_DOUBLE + ierr = NF_GET_VAR_DOUBLE(nid, nvarid, rlonuold) +#else + ierr = NF_GET_VAR_REAL(nid, nvarid, rlonuold) +#endif + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "new_grid: Lecture echouee pour " + CALL abort + ENDIF +c + ierr = NF_INQ_VARID (nid, "rlatv", nvarid) + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "new_grid: Le champ est absent de start.nc" + CALL abort + ENDIF +#ifdef NC_DOUBLE + ierr = NF_GET_VAR_DOUBLE(nid, nvarid, rlatvold) +#else + ierr = NF_GET_VAR_REAL(nid, nvarid, rlatvold) +#endif + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "new_grid: Lecture echouee pour " + CALL abort + ENDIF +c + + print*,"Lecture lon/lat OK" + +c----------------------------------------------------------------------- +c Lecture des niveaux verticaux +c----------------------------------------------------------------------- +c + ierr = NF_INQ_VARID (nid, "nivsigs", nvarid) + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "dynetat0: Le champ est absent" + CALL abort + ENDIF +#ifdef NC_DOUBLE + ierr = NF_GET_VAR_DOUBLE(nid, nvarid, nivsigsold) +#else + ierr = NF_GET_VAR_REAL(nid, nvarid, nivsigsold) +#endif + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "dynetat0: Lecture echouee pour " + CALL abort + ENDIF + + ierr = NF_INQ_VARID (nid, "nivsig", nvarid) + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "dynetat0: Le champ est absent" + CALL abort + ENDIF +#ifdef NC_DOUBLE + ierr = NF_GET_VAR_DOUBLE(nid, nvarid, nivsigold) +#else + ierr = NF_GET_VAR_REAL(nid, nvarid, nivsigold) +#endif + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "dynetat0: Lecture echouee pour " + CALL abort + ENDIF + + ierr = NF_INQ_VARID (nid, "ap", nvarid) + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "new_grid: Le champ est absent de start.nc" + CALL abort + ELSE +#ifdef NC_DOUBLE + ierr = NF_GET_VAR_DOUBLE(nid, nvarid, apold) +#else + ierr = NF_GET_VAR_REAL(nid, nvarid, apold) +#endif + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "new_grid: Lecture echouee pour " + ENDIF + ENDIF +c + ierr = NF_INQ_VARID (nid, "bp", nvarid) + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "new_grid: Le champ est absent de start.nc" + CALL abort + ENDIF +#ifdef NC_DOUBLE + ierr = NF_GET_VAR_DOUBLE(nid, nvarid, bpold) +#else + ierr = NF_GET_VAR_REAL(nid, nvarid, bpold) +#endif + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "new_grid: Lecture echouee pour " + CALL abort + END IF + + ierr = NF_INQ_VARID (nid, "presnivs", nvarid) + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "dynetat0: Le champ est absent" + CALL abort + ENDIF +#ifdef NC_DOUBLE + ierr = NF_GET_VAR_DOUBLE(nid, nvarid, presnivsold) +#else + ierr = NF_GET_VAR_REAL(nid, nvarid, presnivsold) +#endif + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "dynetat0: Lecture echouee pour " + CALL abort + ENDIF + +c----------------------------------------------------------------------- +c Lecture geopotentiel au sol +c----------------------------------------------------------------------- +c + ierr = NF_INQ_VARID (nid, "phisinit", nvarid) + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "new_grid: Le champ est absent de start.nc" + CALL abort + ENDIF +#ifdef NC_DOUBLE + ierr = NF_GET_VAR_DOUBLE(nid, nvarid, phisold) +#else + ierr = NF_GET_VAR_REAL(nid, nvarid, phisold) +#endif + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "new_grid: Lecture echouee pour " + CALL abort + ENDIF + + print*,"Lecture niveaux et geopot OK" + +c----------------------------------------------------------------------- +c Lecture des champs 2D () +c----------------------------------------------------------------------- + + start=(/1,1,1,0/) + counter=(/imold+1,jmold+1,1,0/) + + ierr = NF_INQ_VARID (nid, "ps", nvarid) + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "lect_start_archive: Le champ est absent" + CALL abort + ENDIF +#ifdef NC_DOUBLE + ierr = NF_GET_VARA_DOUBLE(nid, nvarid,start,counter,psold) +#else + ierr = NF_GET_VARA_REAL(nid, nvarid,start,counter,psold) +#endif + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "lect_start_archive: Lecture echouee pour " + CALL abort + ENDIF +c + ierr = NF_INQ_VARID (nid, "tsurf", nvarid) + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "lect_start_archive: Le champ est absent" + CALL abort + ENDIF +#ifdef NC_DOUBLE + ierr = NF_GET_VARA_DOUBLE(nid, nvarid,start,counter,tsurfold) +#else + ierr = NF_GET_VARA_REAL(nid, nvarid,start,counter,tsurfold) +#endif + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "lect_start_archive: Lecture echouee pour " + CALL abort + ENDIF +c + do isoil=1,nsoilmx + write(str2,'(i2.2)') isoil +c + ierr = NF_INQ_VARID (nid, "Tsoil"//str2, nvarid) + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "lect_start_archive: + . Le champ <","Tsoil"//str2,"> est absent" + CALL abort + ENDIF +#ifdef NC_DOUBLE + ierr = NF_GET_VARA_DOUBLE(nid, nvarid,start,counter, + . tsoilold(1,1,isoil)) +#else + ierr = NF_GET_VARA_REAL(nid, nvarid,start,counter, + . tsoilold(1,1,isoil)) +#endif + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "lect_start_archive: + . Lecture echouee pour <","Tsoil"//str2,">" + CALL abort + ENDIF + end do +c + ierr = NF_INQ_VARID (nid, "albe", nvarid) + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "lect_start_archive: Le champ est absent" + CALL abort + ENDIF +#ifdef NC_DOUBLE + ierr = NF_GET_VARA_DOUBLE(nid, nvarid,start,counter,albeold) +#else + ierr = NF_GET_VARA_REAL(nid, nvarid,start,counter,albeold) +#endif + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "lect_start_archive: Lecture echouee pour " + CALL abort + ENDIF +c + ierr = NF_INQ_VARID (nid, "radsol", nvarid) + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "lect_start_archive: Le champ est absent" + CALL abort + ENDIF +#ifdef NC_DOUBLE + ierr = NF_GET_VARA_DOUBLE(nid, nvarid,start,counter,radsolold) +#else + ierr = NF_GET_VARA_REAL(nid, nvarid,start,counter,radsolold) +#endif + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "lect_start_archive: Lecture echouee pour " + CALL abort + ENDIF +c + ierr = NF_INQ_VARID (nid, "sollw", nvarid) + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "lect_start_archive: Le champ est absent" + CALL abort + ENDIF +#ifdef NC_DOUBLE + ierr = NF_GET_VARA_DOUBLE(nid, nvarid,start,counter,sollwold) +#else + ierr = NF_GET_VARA_REAL(nid, nvarid,start,counter,sollwold) +#endif + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "lect_start_archive: Lecture echouee pour " + CALL abort + ENDIF +c + ierr = NF_INQ_VARID (nid, "solsw", nvarid) + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "lect_start_archive: Le champ est absent" + CALL abort + ENDIF +#ifdef NC_DOUBLE + ierr = NF_GET_VARA_DOUBLE(nid, nvarid,start,counter,solswold) +#else + ierr = NF_GET_VARA_REAL(nid, nvarid,start,counter,solswold) +#endif + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "lect_start_archive: Lecture echouee pour " + CALL abort + ENDIF +c + ierr = NF_INQ_VARID (nid, "dlw", nvarid) + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "lect_start_archive: Le champ est absent" + CALL abort + ENDIF +#ifdef NC_DOUBLE + ierr = NF_GET_VARA_DOUBLE(nid, nvarid,start,counter,dlwold) +#else + ierr = NF_GET_VARA_REAL(nid, nvarid,start,counter,dlwold) +#endif + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "lect_start_archive: Lecture echouee pour " + CALL abort + ENDIF +c + ierr = NF_INQ_VARID (nid, "zmea", nvarid) + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "lect_start_archive: Le champ est absent" + PRINT*, " Il est donc initialise a zero" + zmeaold=0. + ENDIF +#ifdef NC_DOUBLE + ierr = NF_GET_VARA_DOUBLE(nid, nvarid,start,counter,zmeaold) +#else + ierr = NF_GET_VARA_REAL(nid, nvarid,start,counter,zmeaold) +#endif + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "lect_start_archive: Lecture echouee pour " + CALL abort + ENDIF +c + ierr = NF_INQ_VARID (nid, "zstd", nvarid) + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "lect_start_archive: Le champ est absent" + PRINT*, " Il est donc initialise a zero" + zstdold=0. + ENDIF +#ifdef NC_DOUBLE + ierr = NF_GET_VARA_DOUBLE(nid, nvarid,start,counter,zstdold) +#else + ierr = NF_GET_VARA_REAL(nid, nvarid,start,counter,zstdold) +#endif + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "lect_start_archive: Lecture echouee pour " + CALL abort + ENDIF +c + ierr = NF_INQ_VARID (nid, "zsig", nvarid) + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "lect_start_archive: Le champ est absent" + PRINT*, " Il est donc initialise a zero" + zsigold=0. + ENDIF +#ifdef NC_DOUBLE + ierr = NF_GET_VARA_DOUBLE(nid, nvarid,start,counter,zsigold) +#else + ierr = NF_GET_VARA_REAL(nid, nvarid,start,counter,zsigold) +#endif + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "lect_start_archive: Lecture echouee pour " + CALL abort + ENDIF +c + ierr = NF_INQ_VARID (nid, "zgam", nvarid) + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "lect_start_archive: Le champ est absent" + PRINT*, " Il est donc initialise a zero" + zgamold=0. + ENDIF +#ifdef NC_DOUBLE + ierr = NF_GET_VARA_DOUBLE(nid, nvarid,start,counter,zgamold) +#else + ierr = NF_GET_VARA_REAL(nid, nvarid,start,counter,zgamold) +#endif + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "lect_start_archive: Lecture echouee pour " + CALL abort + ENDIF +c + ierr = NF_INQ_VARID (nid, "zthe", nvarid) + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "lect_start_archive: Le champ est absent" + PRINT*, " Il est donc initialise a zero" + ztheold=0. + ENDIF +#ifdef NC_DOUBLE + ierr = NF_GET_VARA_DOUBLE(nid, nvarid,start,counter,ztheold) +#else + ierr = NF_GET_VARA_REAL(nid, nvarid,start,counter,ztheold) +#endif + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "lect_start_archive: Lecture echouee pour " + CALL abort + ENDIF +c + ierr = NF_INQ_VARID (nid, "zpic", nvarid) + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "lect_start_archive: Le champ est absent" + PRINT*, " Il est donc initialise a zero" + zpicold=0. + ENDIF +#ifdef NC_DOUBLE + ierr = NF_GET_VARA_DOUBLE(nid, nvarid,start,counter,zpicold) +#else + ierr = NF_GET_VARA_REAL(nid, nvarid,start,counter,zpicold) +#endif + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "lect_start_archive: Lecture echouee pour " + CALL abort + ENDIF +c + ierr = NF_INQ_VARID (nid, "zval", nvarid) + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "lect_start_archive: Le champ est absent" + PRINT*, " Il est donc initialise a zero" + zvalold=0. + ENDIF +#ifdef NC_DOUBLE + ierr = NF_GET_VARA_DOUBLE(nid, nvarid,start,counter,zvalold) +#else + ierr = NF_GET_VARA_REAL(nid, nvarid,start,counter,zvalold) +#endif + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "lect_start_archive: Lecture echouee pour " + CALL abort + ENDIF +c + + print*,"Lecture champs 2D OK" + +c----------------------------------------------------------------------- +c Lecture des champs 3D () +c----------------------------------------------------------------------- + + start=(/1,1,1,1/) + counter=(/imold+1,jmold+1,lmold,1/) +c + ierr = NF_INQ_VARID (nid,"temp", nvarid) + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "lect_start_archive: Le champ est absent" + CALL abort + ENDIF +#ifdef NC_DOUBLE + ierr = NF_GET_VARA_DOUBLE(nid, nvarid, start, counter, told) +#else + ierr = NF_GET_VARA_REAL(nid, nvarid, start, counter, told) +#endif + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "lect_start_archive: Lecture echouee pour " + CALL abort + ENDIF +c + ierr = NF_INQ_VARID (nid,"u", nvarid) + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "lect_start_archive: Le champ est absent" + CALL abort + ENDIF +#ifdef NC_DOUBLE + ierr = NF_GET_VARA_DOUBLE(nid, nvarid,start,counter,uold) +#else + ierr = NF_GET_VARA_REAL(nid, nvarid,start,counter,uold) +#endif + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "lect_start_archive: Lecture echouee pour " + CALL abort + ENDIF +c + ierr = NF_INQ_VARID (nid,"v", nvarid) + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "lect_start_archive: Le champ est absent" + CALL abort + ENDIF +#ifdef NC_DOUBLE + ierr = NF_GET_VARA_DOUBLE(nid, nvarid,start,counter,vold) +#else + ierr = NF_GET_VARA_REAL(nid, nvarid,start,counter,vold) +#endif + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "lect_start_archive: Lecture echouee pour " + CALL abort + ENDIF +c + +c TNAME: IL EST LU A PARTIR DE traceur.def (mettre l'ancien si +c changement du nombre de traceurs) + + IF(iflag_trac.eq.1) THEN + DO iq=1,nqtot + ierr = NF_INQ_VARID (nid, tname(iq), nvarid) + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "dynetat0: Le champ <"//tname(iq)//"> est absent" + PRINT*, " Il est donc initialise a zero" + qold(:,:,:,iq)=0. + ELSE +#ifdef NC_DOUBLE + ierr = NF_GET_VARA_DOUBLE(nid,nvarid,start,counter,qold(1,1,1,iq)) +#else + ierr = NF_GET_VARA_REAL(nid, nvarid,start,counter,qold(1,1,1,iq)) +#endif + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "dynetat0: Lecture echouee pour "//tname(iq) + CALL abort + ENDIF + ENDIF + ENDDO + ENDIF + + + print*,"Lecture champs 3D OK" + +c======================================================================= +c INTERPOLATION DANS LA NOUVELLE GRILLE et initialisation des variables +c======================================================================= +c Interpolation horizontale puis passage dans la grille physique pour +c les variables physique +c Interpolation verticale puis horizontale pour chaque variable 3D +c======================================================================= + +c----------------------------------------------------------------------- +c Variable 2d : +c----------------------------------------------------------------------- + +c Relief +! topoflag = F: we keep the existing topography +! = T: we read it from the Relief.nc file +! topoflag need to be in the specific run.def for newstart + topoflag = . FALSE . + CALL getin('topoflag',topoflag) + + IF ( topoflag ) then + print*,"Topography (phis) read in file Relief.nc" + print*,"For Venus, map directly inverted in Relief.nc" + CALL startget_phys2d('surfgeo',iip1,jjp1,rlonv,rlatu,phis,0.0, + . jjm ,rlonu,rlatv,.true.) +c needed ? + phis(iip1,:) = phis(1,:) + + CALL startget_phys1d('zmea',iip1,jjp1,rlonv,rlatu,ngridmx,zmea, + . 0.0,jjm,rlonu,rlatv,.true.) + CALL startget_phys1d('zstd',iip1,jjp1,rlonv,rlatu,ngridmx,zstd, + . 0.0,jjm,rlonu,rlatv,.true.) + CALL startget_phys1d('zsig',iip1,jjp1,rlonv,rlatu,ngridmx,zsig, + . 0.0,jjm,rlonu,rlatv,.true.) + CALL startget_phys1d('zgam',iip1,jjp1,rlonv,rlatu,ngridmx,zgam, + . 0.0,jjm,rlonu,rlatv,.true.) + CALL startget_phys1d('zthe',iip1,jjp1,rlonv,rlatu,ngridmx,zthe, + . 0.0,jjm,rlonu,rlatv,.true.) + CALL startget_phys1d('zpic',iip1,jjp1,rlonv,rlatu,ngridmx,zpic, + . 0.0,jjm,rlonu,rlatv,.true.) + CALL startget_phys1d('zval',iip1,jjp1,rlonv,rlatu,ngridmx,zval, + . 0.0,jjm,rlonu,rlatv,.true.) + + ELSE + print*,'Using existing topography' + call interp_horiz (phisold,phis,imold,jmold,iim,jjm,1, + & rlonuold,rlatvold,rlonu,rlatv) + + call interp_horiz (zmeaold,zmeaS,imold,jmold,iim,jjm,1, + & rlonuold,rlatvold,rlonu,rlatv) + call gr_dyn_fi (1,iip1,jjp1,ngridmx,zmeaS,zmea) + call interp_horiz (zstdold,zstdS,imold,jmold,iim,jjm,1, + & rlonuold,rlatvold,rlonu,rlatv) + call gr_dyn_fi (1,iip1,jjp1,ngridmx,zstdS,zstd) + call interp_horiz (zsigold,zsigS,imold,jmold,iim,jjm,1, + & rlonuold,rlatvold,rlonu,rlatv) + call gr_dyn_fi (1,iip1,jjp1,ngridmx,zsigS,zsig) + call interp_horiz (zgamold,zgamS,imold,jmold,iim,jjm,1, + & rlonuold,rlatvold,rlonu,rlatv) + call gr_dyn_fi (1,iip1,jjp1,ngridmx,zgamS,zgam) + call interp_horiz (ztheold,ztheS,imold,jmold,iim,jjm,1, + & rlonuold,rlatvold,rlonu,rlatv) + call gr_dyn_fi (1,iip1,jjp1,ngridmx,ztheS,zthe) + call interp_horiz (zpicold,zpicS,imold,jmold,iim,jjm,1, + & rlonuold,rlatvold,rlonu,rlatv) + call gr_dyn_fi (1,iip1,jjp1,ngridmx,zpicS,zpic) + call interp_horiz (zvalold,zvalS,imold,jmold,iim,jjm,1, + & rlonuold,rlatvold,rlonu,rlatv) + call gr_dyn_fi (1,iip1,jjp1,ngridmx,zvalS,zval) + ENDIF + + print*,"New surface geopotential OK" + +c Lat et lon pour physique + do i=1,iip1 + rlatS(i,:)=rlatu(:)*180./pi + enddo + call gr_dyn_fi (1,iip1,jjp1,ngridmx,rlatS,rlat) + + do j=2,jjm + rlonS(:,j)=rlonv(:)*180./pi + enddo + rlonS(:,1)=0. + rlonS(:,jjp1)=0. + call gr_dyn_fi (1,iip1,jjp1,ngridmx,rlonS,rlon) + +c Temperature de surface + call interp_horiz (tsurfold,tsurfS,imold,jmold,iim,jjm,1, + & rlonuold,rlatvold,rlonu,rlatv) + call gr_dyn_fi (1,iip1,jjp1,ngridmx,tsurfS,tsurf) +c write(44,*) 'tsurf', tsurf + +c Temperature du sous-sol + call interp_horiz(tsoilold,tsoilS, + & imold,jmold,iim,jjm,nsoilmx, + & rlonuold,rlatvold,rlonu,rlatv) + call gr_dyn_fi (nsoilmx,iip1,jjp1,ngridmx,tsoilS,tsoil) +c write(45,*) 'tsoil',tsoil + +! CHANGING ALBEDO: may be done through run.def + albedoflag = . FALSE . + CALL getin('albedoflag',albedoflag) + + IF ( albedoflag ) then + print*,"Albedo is reinitialized to the albedo value in run.def" + print*,"We may want to consider a map later on..." + albedo=0.1 + CALL getin('albedo',albedo) + albe=albedo + ELSE + call interp_horiz (albeold,albeS,imold,jmold,iim,jjm,1, + & rlonuold,rlatvold,rlonu,rlatv) + call gr_dyn_fi (1,iip1,jjp1,ngridmx,albeS,albe) + ENDIF + + call interp_horiz (radsolold,radsolS,imold,jmold,iim,jjm,1, + & rlonuold,rlatvold,rlonu,rlatv) + call gr_dyn_fi (1,iip1,jjp1,ngridmx,radsolS,radsol) + + call interp_horiz (sollwold,sollwS,imold,jmold,iim,jjm,1, + & rlonuold,rlatvold,rlonu,rlatv) + call gr_dyn_fi (1,iip1,jjp1,ngridmx,sollwS,sollw) + + call interp_horiz (solswold,solswS,imold,jmold,iim,jjm,1, + & rlonuold,rlatvold,rlonu,rlatv) + call gr_dyn_fi (1,iip1,jjp1,ngridmx,solswS,solsw) + + call interp_horiz (dlwold,dlwS,imold,jmold,iim,jjm,1, + & rlonuold,rlatvold,rlonu,rlatv) + call gr_dyn_fi (1,iip1,jjp1,ngridmx,dlwS,dlw) + + print*,"Nouvelles var physiques OK" + +c----------------------------------------------------------------------- +c Traitement special de la pression au sol : +c----------------------------------------------------------------------- + +c Extrapolation la pression dans la nouvelle grille + call interp_horiz(psold,ps,imold,jmold,iim,jjm,1, + & rlonuold,rlatvold,rlonu,rlatv) + +c On assure la conservation de la masse de l'atmosphere +c-------------------------------------------------------------- + +!!! ATTENTION TEMPORAIRE +c ps(:,:)=146700. + + ptotal = 0. + DO j=1,jjp1 + DO i=1,iim + ptotal=ptotal+ps(i,j)*aire(i,j)/g + END DO + END DO + + write(*,*) + write(*,*)'Ancienne grille: masse de l atm :',ptotalold + write(*,*)'Nouvelle grille: masse de l atm :',ptotal + write (*,*) 'Ratio new atm./ old atm =', ptotal/ptotalold + write(*,*) + + + DO j=1,jjp1 + DO i=1,iip1 + ps(i,j)=ps(i,j) * ptotalold/ptotal + END DO + END DO + +c la pression de surface et les temperatures ne sont pas reequilibrees en fonction +c de la nouvelle topographie... +c Si l'ajustement inevitable du debut pose des problemes, voir le newstart martien. + + print*,"Nouvelle ps OK" + print*,"If changes done on topography, beware !" + print*,"Some time may be needed for adjustments at the beginning" + print*,"so if unstable, relax the timestep and/or dissipation." + +c----------------------------------------------------------------------- +c Variable 3d : +c----------------------------------------------------------------------- + + CALL pression(ip1jmp1, ap, bp, ps, p3d) + if (disvert_type==1) then + CALL exner_hyb( ip1jmp1, ps, p3d, pks, pk, pkf ) + else ! we assume that we are in the disvert_type==2 case + CALL exner_milieu( ip1jmp1, ps, p3d, pks, pk, pkf ) + endif + +c temperatures atmospheriques + +c ATTENTION: peut servir, mais bon... +c do l=1,lmold +c do j=1,jmold+1 +c do i=1,imold+1 +c modif: profil uniforme +c told(i,j,l)=told(1,jmold/2,l) +c mean T profile: +c told(i,j,l) = 142.1*exp(-((p3d(i,j,l)/100.+21.45)/40.11)**2.) +c . + 106.3*exp(-((p3d(i,j,l)/100.-3183.)/4737.)**2.) +c enddo +c enddo +c enddo + + write (*,*) 'told ', told (1,jmold+1,1) ! INFO + call interp_vert + & (told,var,lmold,llm,apold,bpold,ap,bp, + & psold,(imold+1)*(jmold+1)) + write (*,*) 'var ', var (1,jmold+1,1) ! INFO + call interp_horiz(var,t,imold,jmold,iim,jjm,llm, + & rlonuold,rlatvold,rlonu,rlatv) + write (*,*) 'T ', T(1,jjp1,1) ! INFO +! pour info: +! Si extension verticale, la T est extrapolee constante au-dessus de lmold + +c passage grille physique pour restartphy.nc + call gr_dyn_fi (llm,iip1,jjp1,ngridmx,T,t_fi) + +! ADAPTATION GCM POUR CP(T) +c passage en temperature potentielle + call t2tpot(ip1jmp1*llm,T,teta,pk) +c on assure la periodicite + teta(iip1,:,:) = teta(1,:,:) + +! RESETING U TO 0: may be done through run.def + razvitu = . FALSE . + CALL getin('razvitu',razvitu) + razvitv = . FALSE . + CALL getin('razvitv',razvitv) + +c calcul des champ de vent; passage en vent covariant + write (*,*) 'uold ', uold (1,2,1) ! INFO + call interp_vert + & (uold,var,lmold,llm,apold,bpold,ap,bp, + & psold,(imold+1)*(jmold+1)) + write (*,*) 'var ', var (1,2,1) ! INFO + call interp_horiz(var,us,imold,jmold,iim,jjm,llm, + & rlonuold,rlatvold,rlonu,rlatv) + write (*,*) 'us ', us (1,2,1) ! INFO + + call interp_vert + & (vold,var,lmold,llm, + & apold,bpold,ap,bp,psold,(imold+1)*(jmold+1)) + call interp_horiz(var,vs,imold,jmold,iim,jjm,llm, + & rlonuold,rlatvold,rlonu,rlatv) + call scal_wind(us,vs,unat,vnat) +! Reseting u=0 + if (razvitu) then + unat(:,:,:) = 0. + endif + write (*,*) 'unat ', unat (1,2,1) ! INFO + do l=1,llm + do j = 1, jjp1 + do i=1,iip1 + ucov( i,j,l ) = unat( i,j,l ) * cu(i,j) +! pour info: +! Si extension verticale, on impose u=0 au-dessus de lmold + if (l.gt.lmold) ucov( i,j,l ) = 0 + end do + end do + end do + write (*,*) 'ucov ', ucov (1,2,1) ! INFO +c write(48,*) 'ucov',ucov +! Reseting v=0 + if (razvitv) then + vnat(:,:,:) = 0. + endif + write (*,*) 'vnat ', vnat (1,2,1) ! INFO + do l=1,llm + do j = 1, jjm + do i=1,iim + vcov( i,j,l ) = vnat( i,j,l ) * cv(i,j) +! pour info: +! Si extension verticale, on impose v=0 au-dessus de lmold + if (l.gt.lmold) vcov( i,j,l ) = 0 + end do + vcov( iip1,j,l ) = vcov( 1,j,l ) + end do + end do +c write(49,*) 'ucov',vcov + +c masse: on la recalcule (ps a été ajustée pour conserver la masse totale) + call massdair(p3d,masse) + +c traceurs 3D + do iq = 1, nqtot + call interp_vert(qold(1,1,1,iq),var,lmold,llm, + & apold,bpold,ap,bp,psold,(imold+1)*(jmold+1)) + call interp_horiz(var,q(1,1,1,iq),imold,jmold,iim,jjm,llm, + & rlonuold,rlatvold,rlonu,rlatv) + enddo + + print*,"Nouvelles var dynamiques OK" + +c======================================================================= +c Ecriture des restart.nc et restartphy.nc : +c======================================================================= + + call writerestart('restart.nc',tab_cntrl_dyn, + . phis,vcov,ucov,teta,masse,q,ps) + + print*,"restart OK" + + call writerestartphy('restartphy.nc',tab_cntrl_fi,ngridmx,llm, + . rlat,rlon,tsurf,tsoil,albe,solsw, sollw,dlw, + . radsol, + . zmea,zstd,zsig,zgam,zthe,zpic,zval, + . t_fi) + + print*,"restartphy OK" + + end Index: /trunk/LMDZ.COMMON/libf/dynphy_lonlat/phytitan.old/readstart.F =================================================================== --- /trunk/LMDZ.COMMON/libf/dynphy_lonlat/phytitan.old/readstart.F (revision 1644) +++ /trunk/LMDZ.COMMON/libf/dynphy_lonlat/phytitan.old/readstart.F (revision 1644) @@ -0,0 +1,499 @@ +! +! $Header: /home/cvsroot/LMDZ4/libf/dyn3d/dynetat0.F,v 1.2 2004/06/22 11:45:30 lmdzadmin Exp $ +! + SUBROUTINE readstart(fichnom,nq,vcov,ucov, + . teta,q,masse,ps,phis,tab_cntrl) + + USE infotrac + USE comconst_mod + USE comvert_mod, ONLY: ap,bp,presnivs,pa,preff,nivsigs,nivsig, + . aps,bps,scaleheight,pseudoalt, + . disvert_type,pressure_exner + USE serre_mod, ONLY: clon,clat,grossismx,grossismy + USE ener_mod, ONLY: etot0,ptot0,ztot0,stot0,ang0 + USE temps_mod, ONLY: day_ref,annee_ref,day_ini,itau_dyn, + & start_time + USE logic_mod, ONLY: fxyhypb,ysinus,iflag_trac + IMPLICIT NONE + +c======================================================================= +c +c Auteur: P. Le Van / L.Fairhead +c ------- +c +c objet: +c ------ +c +c Lecture de l'etat initial +c +c======================================================================= +c----------------------------------------------------------------------- +c Declarations: +c ------------- + +#include "dimensions.h" +#include "paramet.h" +#include "comgeom.h" +#include "description.h" +#include "netcdf.inc" + +c Arguments: +c ---------- + + CHARACTER*(*) fichnom + INTEGER nq + REAL vcov(ip1jm,llm),ucov(ip1jmp1,llm),teta(ip1jmp1,llm) + REAL q(ip1jmp1,llm,nq),masse(ip1jmp1,llm) + REAL ps(ip1jmp1),phis(ip1jmp1) + REAL time + INTEGER length + PARAMETER (length=100) + REAL tab_cntrl(length) ! tableau des parametres du run + +c Variables +c + INTEGER iq,i,j,ij,l + INTEGER ierr, nid, nvarid + +c local, cas particulier compo.dat + integer nyread + real qy(jjp1,llm,nq) + character*10 nomy(nq) + +c----------------------------------------------------------------------- + +c Ouverture NetCDF du fichier etat initial + + ierr = NF_OPEN (fichnom, NF_NOWRITE,nid) + IF (ierr.NE.NF_NOERR) THEN + write(6,*)' Pb d''ouverture du fichier start.nc' + write(6,*)' ierr = ', ierr + CALL ABORT + ENDIF + +c + ierr = NF_INQ_VARID (nid, "controle", nvarid) + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "dynetat0: Le champ est absent" + CALL abort + ENDIF +#ifdef NC_DOUBLE + ierr = NF_GET_VAR_DOUBLE(nid, nvarid, tab_cntrl) +#else + ierr = NF_GET_VAR_REAL(nid, nvarid, tab_cntrl) +#endif + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "dynetat0: Lecture echoue pour " + CALL abort + ENDIF + + im = tab_cntrl(1) + jm = tab_cntrl(2) + lllm = tab_cntrl(3) + day_ref = tab_cntrl(4) + annee_ref = tab_cntrl(5) + rad = tab_cntrl(6) + omeg = tab_cntrl(7) + g = tab_cntrl(8) + cpp = tab_cntrl(9) + kappa = tab_cntrl(10) + daysec = tab_cntrl(11) + dtvr = tab_cntrl(12) + etot0 = tab_cntrl(13) + ptot0 = tab_cntrl(14) + ztot0 = tab_cntrl(15) + stot0 = tab_cntrl(16) + ang0 = tab_cntrl(17) + pa = tab_cntrl(18) + preff = tab_cntrl(19) +c + clon = tab_cntrl(20) + clat = tab_cntrl(21) + grossismx = tab_cntrl(22) + grossismy = tab_cntrl(23) +c + IF ( tab_cntrl(24).EQ.1. ) THEN + fxyhypb = . TRUE . +c dzoomx = tab_cntrl(25) +c dzoomy = tab_cntrl(26) +c taux = tab_cntrl(28) +c tauy = tab_cntrl(29) + ELSE + fxyhypb = . FALSE . + ysinus = . FALSE . + IF( tab_cntrl(27).EQ.1. ) ysinus = . TRUE. + ENDIF + + day_ini = tab_cntrl(30) + itau_dyn = tab_cntrl(31) + start_time = tab_cntrl(32) +c ................................................................. +c +c + PRINT*,'rad,omeg,g,cpp,kappa',rad,omeg,g,cpp,kappa + + IF( im.ne.iim ) THEN + PRINT 1,im,iim + STOP + ELSE IF( jm.ne.jjm ) THEN + PRINT 2,jm,jjm + STOP + ELSE IF( lllm.ne.llm ) THEN + PRINT 3,lllm,llm + STOP + ENDIF + + ierr = NF_INQ_VARID (nid, "rlonu", nvarid) + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "dynetat0: Le champ est absent" + CALL abort + ENDIF +#ifdef NC_DOUBLE + ierr = NF_GET_VAR_DOUBLE(nid, nvarid, rlonu) +#else + ierr = NF_GET_VAR_REAL(nid, nvarid, rlonu) +#endif + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "dynetat0: Lecture echouee pour " + CALL abort + ENDIF + + ierr = NF_INQ_VARID (nid, "rlatu", nvarid) + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "dynetat0: Le champ est absent" + CALL abort + ENDIF +#ifdef NC_DOUBLE + ierr = NF_GET_VAR_DOUBLE(nid, nvarid, rlatu) +#else + ierr = NF_GET_VAR_REAL(nid, nvarid, rlatu) +#endif + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "dynetat0: Lecture echouee pour " + CALL abort + ENDIF + + ierr = NF_INQ_VARID (nid, "rlonv", nvarid) + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "dynetat0: Le champ est absent" + CALL abort + ENDIF +#ifdef NC_DOUBLE + ierr = NF_GET_VAR_DOUBLE(nid, nvarid, rlonv) +#else + ierr = NF_GET_VAR_REAL(nid, nvarid, rlonv) +#endif + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "dynetat0: Lecture echouee pour " + CALL abort + ENDIF + + ierr = NF_INQ_VARID (nid, "rlatv", nvarid) + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "dynetat0: Le champ est absent" + CALL abort + ENDIF +#ifdef NC_DOUBLE + ierr = NF_GET_VAR_DOUBLE(nid, nvarid, rlatv) +#else + ierr = NF_GET_VAR_REAL(nid, nvarid, rlatv) +#endif + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "dynetat0: Lecture echouee pour rlatv" + CALL abort + ENDIF + + ierr = NF_INQ_VARID (nid, "nivsigs", nvarid) + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "dynetat0: Le champ est absent" + CALL abort + ENDIF +#ifdef NC_DOUBLE + ierr = NF_GET_VAR_DOUBLE(nid, nvarid, nivsigs) +#else + ierr = NF_GET_VAR_REAL(nid, nvarid, nivsigs) +#endif + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "dynetat0: Lecture echouee pour " + CALL abort + ENDIF + + ierr = NF_INQ_VARID (nid, "nivsig", nvarid) + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "dynetat0: Le champ est absent" + CALL abort + ENDIF +#ifdef NC_DOUBLE + ierr = NF_GET_VAR_DOUBLE(nid, nvarid, nivsig) +#else + ierr = NF_GET_VAR_REAL(nid, nvarid, nivsig) +#endif + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "dynetat0: Lecture echouee pour " + CALL abort + ENDIF + + ierr = NF_INQ_VARID (nid, "ap", nvarid) + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "dynetat0: Le champ est absent" + CALL abort + ENDIF +#ifdef NC_DOUBLE + ierr = NF_GET_VAR_DOUBLE(nid, nvarid, ap) +#else + ierr = NF_GET_VAR_REAL(nid, nvarid, ap) +#endif + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "dynetat0: Lecture echouee pour " + CALL abort + ENDIF + + ierr = NF_INQ_VARID (nid, "bp", nvarid) + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "dynetat0: Le champ est absent" + CALL abort + ENDIF +#ifdef NC_DOUBLE + ierr = NF_GET_VAR_DOUBLE(nid, nvarid, bp) +#else + ierr = NF_GET_VAR_REAL(nid, nvarid, bp) +#endif + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "dynetat0: Lecture echouee pour " + CALL abort + ENDIF + + ierr = NF_INQ_VARID (nid, "presnivs", nvarid) + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "dynetat0: Le champ est absent" + CALL abort + ENDIF +#ifdef NC_DOUBLE + ierr = NF_GET_VAR_DOUBLE(nid, nvarid, presnivs) +#else + ierr = NF_GET_VAR_REAL(nid, nvarid, presnivs) +#endif + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "dynetat0: Lecture echouee pour " + CALL abort + ENDIF + + ierr = NF_INQ_VARID (nid, "cu", nvarid) + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "dynetat0: Le champ est absent" + CALL abort + ENDIF +#ifdef NC_DOUBLE + ierr = NF_GET_VAR_DOUBLE(nid, nvarid, cu) +#else + ierr = NF_GET_VAR_REAL(nid, nvarid, cu) +#endif + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "dynetat0: Lecture echouee pour " + CALL abort + ENDIF + + ierr = NF_INQ_VARID (nid, "cv", nvarid) + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "dynetat0: Le champ est absent" + CALL abort + ENDIF +#ifdef NC_DOUBLE + ierr = NF_GET_VAR_DOUBLE(nid, nvarid, cv) +#else + ierr = NF_GET_VAR_REAL(nid, nvarid, cv) +#endif + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "dynetat0: Lecture echouee pour " + CALL abort + ENDIF + + ierr = NF_INQ_VARID (nid, "aire", nvarid) + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "dynetat0: Le champ est absent" + CALL abort + ENDIF +#ifdef NC_DOUBLE + ierr = NF_GET_VAR_DOUBLE(nid, nvarid, aire) +#else + ierr = NF_GET_VAR_REAL(nid, nvarid, aire) +#endif + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "dynetat0: Lecture echouee pour " + CALL abort + ENDIF + + ierr = NF_INQ_VARID (nid, "phisinit", nvarid) + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "dynetat0: Le champ est absent" + CALL abort + ENDIF +#ifdef NC_DOUBLE + ierr = NF_GET_VAR_DOUBLE(nid, nvarid, phis) +#else + ierr = NF_GET_VAR_REAL(nid, nvarid, phis) +#endif + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "dynetat0: Lecture echouee pour " + CALL abort + ENDIF + + ierr = NF_INQ_VARID (nid, "temps", nvarid) + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "dynetat0: Le champ est absent" + CALL abort + ENDIF +#ifdef NC_DOUBLE + ierr = NF_GET_VAR_DOUBLE(nid, nvarid, time) +#else + ierr = NF_GET_VAR_REAL(nid, nvarid, time) +#endif + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "dynetat0: Lecture echouee " + CALL abort + ENDIF + + ierr = NF_INQ_VARID (nid, "ucov", nvarid) + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "dynetat0: Le champ est absent" + CALL abort + ENDIF +#ifdef NC_DOUBLE + ierr = NF_GET_VAR_DOUBLE(nid, nvarid, ucov) +#else + ierr = NF_GET_VAR_REAL(nid, nvarid, ucov) +#endif + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "dynetat0: Lecture echouee pour " + CALL abort + ENDIF + + ierr = NF_INQ_VARID (nid, "vcov", nvarid) + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "dynetat0: Le champ est absent" + CALL abort + ENDIF +#ifdef NC_DOUBLE + ierr = NF_GET_VAR_DOUBLE(nid, nvarid, vcov) +#else + ierr = NF_GET_VAR_REAL(nid, nvarid, vcov) +#endif + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "dynetat0: Lecture echouee pour " + CALL abort + ENDIF + + ierr = NF_INQ_VARID (nid, "teta", nvarid) + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "dynetat0: Le champ est absent" + CALL abort + ENDIF +#ifdef NC_DOUBLE + ierr = NF_GET_VAR_DOUBLE(nid, nvarid, teta) +#else + ierr = NF_GET_VAR_REAL(nid, nvarid, teta) +#endif + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "dynetat0: Lecture echouee pour " + CALL abort + ENDIF + +c TNAME: IL EST LU A PARTIR DE traceur.def (mettre l'ancien si +c changement du nombre de traceurs) + + IF((nq.GE.1).and.(iflag_trac.eq.1)) THEN + DO iq=1,nq + ierr = NF_INQ_VARID (nid, tname(iq), nvarid) + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "dynetat0: Le champ <"//tname(iq)//"> est absent" + PRINT*, " Il est donc initialise a zero" + q(:,:,iq)=0. + ELSE +#ifdef NC_DOUBLE + ierr = NF_GET_VAR_DOUBLE(nid, nvarid, q(1,1,iq)) +#else + ierr = NF_GET_VAR_REAL(nid, nvarid, q(1,1,iq)) +#endif + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "dynetat0: Lecture echouee pour "//tname(iq) + CALL abort + ENDIF + ENDIF + ENDDO + ENDIF + +c-------------------------------------------- +c cas particulier: lecture des traceurs 2D dans compo.dat (issu de start 2d) +c + if (1.eq.0) then + OPEN(10,file='compo.dat',status='old',form='formatted', + . iostat=ierr) + IF (ierr.ne.0) THEN + WRITE(6,*)' Pb d''ouverture du fichier de demarrage (compo.dat)' + WRITE(6,*)' ierr = ', ierr + CALL exit(1) + ENDIF + READ(10,*) nyread + print*,"nombre de composes chimiques ajoutes:",nyread + READ(10,*) (((qy(ij,l,iq),ij=1,jjp1),l=1,llm), + s iq=1,nyread) + do iq=1,nyread + READ(10,'(1X,A10)') nomy(iq) + print*,nomy(iq)," = ", tname(iq+10) + do i=1,iip1 + do j=1,jjp1 + ij = (j-1)*iip1+i + q(ij,:,iq+10) = qy(j,:,iq) + enddo + enddo + enddo + CLOSE(10) + endif +c-------------------------------------------- + + ierr = NF_INQ_VARID (nid, "masse", nvarid) + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "dynetat0: Le champ est absent" + CALL abort + ENDIF +#ifdef NC_DOUBLE + ierr = NF_GET_VAR_DOUBLE(nid, nvarid, masse) +#else + ierr = NF_GET_VAR_REAL(nid, nvarid, masse) +#endif + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "dynetat0: Lecture echouee pour " + CALL abort + ENDIF + + ierr = NF_INQ_VARID (nid, "ps", nvarid) + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "dynetat0: Le champ est absent" + CALL abort + ENDIF +#ifdef NC_DOUBLE + ierr = NF_GET_VAR_DOUBLE(nid, nvarid, ps) +#else + ierr = NF_GET_VAR_REAL(nid, nvarid, ps) +#endif + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "dynetat0: Lecture echouee pour " + CALL abort + ENDIF + + ierr = NF_CLOSE(nid) + + day_ini=day_ini+INT(time) + time=time-INT(time) + + 1 FORMAT(//10x,'la valeur de im =',i4,2x,'lue sur le fichier de dem + *arrage est differente de la valeur parametree iim =',i4//) + 2 FORMAT(//10x,'la valeur de jm =',i4,2x,'lue sur le fichier de dem + *arrage est differente de la valeur parametree jjm =',i4//) + 3 FORMAT(//10x,'la valeur de lmax =',i4,2x,'lue sur le fichier dema + *rrage est differente de la valeur parametree llm =',i4//) + 4 FORMAT(//10x,'la valeur de dtrv =',i4,2x,'lue sur le fichier dema + *rrage est differente de la valeur dtinteg =',i4//) + + RETURN + END Index: /trunk/LMDZ.COMMON/libf/dynphy_lonlat/phytitan.old/readstartphy.F =================================================================== --- /trunk/LMDZ.COMMON/libf/dynphy_lonlat/phytitan.old/readstartphy.F (revision 1644) +++ /trunk/LMDZ.COMMON/libf/dynphy_lonlat/phytitan.old/readstartphy.F (revision 1644) @@ -0,0 +1,477 @@ +! +! $Header: /home/cvsroot/LMDZ4/libf/phylmd/phyetat0.F,v 1.2 2004/06/22 11:45:33 lmdzadmin Exp $ +! +c +c + SUBROUTINE readstartphy(fichnom, + . rlat,rlon, tsol,tsoil, + . albe, solsw, sollw, + . fder,radsol, + . zmea, zstd, zsig, zgam, zthe, zpic, zval, + . tabcntr0) +c====================================================================== +c Auteur(s) Z.X. Li (LMD/CNRS) date: 19930818 +c Objet: Lecture de l'etat initial pour la physique +c====================================================================== + use dimphy + IMPLICIT none +#include "dimensions.h" +#include "netcdf.inc" +#include "dimsoil.h" +c====================================================================== + integer ngridmx + parameter (ngridmx=(2+(jjm-1)*iim - 1/jjm)) + + CHARACTER*(*) fichnom + REAL rlat(ngridmx), rlon(ngridmx) + REAL tsol(ngridmx) + REAL tsoil(ngridmx,nsoilmx) + REAL albe(ngridmx) +cIM BEG alblw + REAL alblw(ngridmx) +cIM END alblw + REAL radsol(ngridmx) + REAL sollw(ngridmx) + real solsw(ngridmx) + real fder(ngridmx) + REAL zmea(ngridmx), zstd(ngridmx) + REAL zsig(ngridmx), zgam(ngridmx), zthe(ngridmx) + REAL zpic(ngridmx), zval(ngridmx) + INTEGER length + PARAMETER (length=100) + REAL tabcntr0(length) + + REAL xmin, xmax +c + INTEGER nid, nvarid + INTEGER ierr, i, nsrf, isoil + CHARACTER*2 str2 +c +c Ouvrir le fichier contenant l'etat initial: +c + print*,'fichnom',fichnom + ierr = NF_OPEN (fichnom, NF_NOWRITE,nid) + IF (ierr.NE.NF_NOERR) THEN + write(6,*)' Pb d''ouverture du fichier '//fichnom + write(6,*)' ierr = ', ierr + CALL ABORT + ENDIF +c +c Lecture des parametres de controle: +c + ierr = NF_INQ_VARID (nid, "controle", nvarid) + IF (ierr.NE.NF_NOERR) THEN + PRINT*, 'phyetat0: Le champ est absent' + CALL abort + ENDIF +#ifdef NC_DOUBLE + ierr = NF_GET_VAR_DOUBLE(nid, nvarid, tabcntr0) +#else + ierr = NF_GET_VAR_REAL(nid, nvarid, tabcntr0) +#endif + IF (ierr.NE.NF_NOERR) THEN + PRINT*, 'phyetat0: Lecture echouee pour ' + CALL abort + ENDIF +c +c +c Lecture des latitudes (coordonnees): +c + ierr = NF_INQ_VARID (nid, "latitude", nvarid) + IF (ierr.NE.NF_NOERR) THEN + PRINT*, 'phyetat0: Le champ est absent' + CALL abort + ENDIF +#ifdef NC_DOUBLE + ierr = NF_GET_VAR_DOUBLE(nid, nvarid, rlat) +#else + ierr = NF_GET_VAR_REAL(nid, nvarid, rlat) +#endif + IF (ierr.NE.NF_NOERR) THEN + PRINT*, 'phyetat0: Lecture echouee pour ' + CALL abort + ENDIF +c +c Lecture des longitudes (coordonnees): +c + ierr = NF_INQ_VARID (nid, "longitude", nvarid) + IF (ierr.NE.NF_NOERR) THEN + PRINT*, 'phyetat0: Le champ est absent' + CALL abort + ENDIF +#ifdef NC_DOUBLE + ierr = NF_GET_VAR_DOUBLE(nid, nvarid, rlon) +#else + ierr = NF_GET_VAR_REAL(nid, nvarid, rlon) +#endif + IF (ierr.NE.NF_NOERR) THEN + PRINT*, 'phyetat0: Lecture echouee pour ' + CALL abort + ENDIF +C +c Lecture des temperatures du sol: +c + ierr = NF_INQ_VARID (nid, "TS", nvarid) + IF (ierr.NE.NF_NOERR) THEN + PRINT*, 'phyetat0: Le champ est absent' + PRINT*, "phyetat0: Lecture echouee pour " + CALL abort + ELSE + PRINT*, 'phyetat0: Le champ est present' +#ifdef NC_DOUBLE + ierr = NF_GET_VAR_DOUBLE(nid, nvarid, tsol) +#else + ierr = NF_GET_VAR_REAL(nid, nvarid, tsol) +#endif + IF (ierr.NE.NF_NOERR) THEN + PRINT*, "phyetat0: Lecture echouee pour " + CALL abort + ENDIF + xmin = 1.0E+20 + xmax = -1.0E+20 + DO i = 1, ngridmx + xmin = MIN(tsol(i),xmin) + xmax = MAX(tsol(i),xmax) + ENDDO + PRINT*,'Temperature du sol ', xmin, xmax + ENDIF +c +c Lecture des temperatures du sol profond: +c + DO isoil=1, nsoilmx + IF (isoil.GT.99) THEN + PRINT*, "Trop de couches" + CALL abort + ENDIF + WRITE(str2,'(i2.2)') isoil + ierr = NF_INQ_VARID (nid, 'Tsoil'//str2, nvarid) + IF (ierr.NE.NF_NOERR) THEN + PRINT*, "phyetat0: Le champ est absent" + PRINT*, " Il prend donc la valeur de surface" + DO i=1, ngridmx + tsoil(i,isoil)=tsol(i) + ENDDO + ELSE +#ifdef NC_DOUBLE + ierr = NF_GET_VAR_DOUBLE(nid, nvarid, tsoil(1,isoil)) +#else + ierr = NF_GET_VAR_REAL(nid, nvarid, tsoil(1,isoil)) +#endif + IF (ierr.NE.NF_NOERR) THEN + PRINT*, "Lecture echouee pour " + CALL abort + ENDIF + ENDIF + ENDDO + +c +c Lecture de albedo au sol: +c + ierr = NF_INQ_VARID (nid, "ALBE", nvarid) + IF (ierr.NE.NF_NOERR) THEN + PRINT*, 'phyetat0: Le champ est absent' + PRINT*, "phyetat0: Lecture echouee pour " + CALL abort + ELSE + PRINT*, 'phyetat0: Le champ est present' +#ifdef NC_DOUBLE + ierr = NF_GET_VAR_DOUBLE(nid, nvarid, albe(1)) +#else + ierr = NF_GET_VAR_REAL(nid, nvarid, albe(1)) +#endif + IF (ierr.NE.NF_NOERR) THEN + PRINT*, "phyetat0: Lecture echouee pour " + CALL abort + ENDIF + xmin = 1.0E+20 + xmax = -1.0E+20 + DO i = 1, ngridmx + xmin = MIN(albe(i),xmin) + xmax = MAX(albe(i),xmax) + ENDDO + PRINT*,'Albedo du sol ', xmin, xmax + ENDIF + +c +c Lecture rayonnement solaire au sol: +c + ierr = NF_INQ_VARID (nid, "solsw", nvarid) + IF (ierr.NE.NF_NOERR) THEN + PRINT*, 'phyetat0: Le champ est absent' + PRINT*, 'mis a zero' + solsw = 0. + ELSE +#ifdef NC_DOUBLE + ierr = NF_GET_VAR_DOUBLE(nid, nvarid, solsw) +#else + ierr = NF_GET_VAR_REAL(nid, nvarid, solsw) +#endif + IF (ierr.NE.NF_NOERR) THEN + PRINT*, 'phyetat0: Lecture echouee pour ' + CALL abort + ENDIF + ENDIF + xmin = 1.0E+20 + xmax = -1.0E+20 + DO i = 1, ngridmx + xmin = MIN(solsw(i),xmin) + xmax = MAX(solsw(i),xmax) + ENDDO + PRINT*,'Rayonnement solaire au sol solsw:', xmin, xmax +c +c Lecture rayonnement IF au sol: +c + ierr = NF_INQ_VARID (nid, "sollw", nvarid) + IF (ierr.NE.NF_NOERR) THEN + PRINT*, 'phyetat0: Le champ est absent' + PRINT*, 'mis a zero' + sollw = 0. + ELSE +#ifdef NC_DOUBLE + ierr = NF_GET_VAR_DOUBLE(nid, nvarid, sollw) +#else + ierr = NF_GET_VAR_REAL(nid, nvarid, sollw) +#endif + IF (ierr.NE.NF_NOERR) THEN + PRINT*, 'phyetat0: Lecture echouee pour ' + CALL abort + ENDIF + ENDIF + xmin = 1.0E+20 + xmax = -1.0E+20 + DO i = 1, ngridmx + xmin = MIN(sollw(i),xmin) + xmax = MAX(sollw(i),xmax) + ENDDO + PRINT*,'Rayonnement IF au sol sollw:', xmin, xmax + +c +c Lecture derive des flux: +c + ierr = NF_INQ_VARID (nid, "fder", nvarid) + IF (ierr.NE.NF_NOERR) THEN + PRINT*, 'phyetat0: Le champ est absent' + PRINT*, 'mis a zero' + fder = 0. + ELSE +#ifdef NC_DOUBLE + ierr = NF_GET_VAR_DOUBLE(nid, nvarid, fder) +#else + ierr = NF_GET_VAR_REAL(nid, nvarid, fder) +#endif + IF (ierr.NE.NF_NOERR) THEN + PRINT*, 'phyetat0: Lecture echouee pour ' + CALL abort + ENDIF + ENDIF + xmin = 1.0E+20 + xmax = -1.0E+20 + DO i = 1, ngridmx + xmin = MIN(fder(i),xmin) + xmax = MAX(fder(i),xmax) + ENDDO + PRINT*,'Derive des flux fder:', xmin, xmax + +c +c Lecture du rayonnement net au sol: +c + ierr = NF_INQ_VARID (nid, "RADS", nvarid) + IF (ierr.NE.NF_NOERR) THEN + PRINT*, 'phyetat0: Le champ est absent' + CALL abort + ENDIF +#ifdef NC_DOUBLE + ierr = NF_GET_VAR_DOUBLE(nid, nvarid, radsol) +#else + ierr = NF_GET_VAR_REAL(nid, nvarid, radsol) +#endif + IF (ierr.NE.NF_NOERR) THEN + PRINT*, 'phyetat0: Lecture echouee pour ' + CALL abort + ENDIF + xmin = 1.0E+20 + xmax = -1.0E+20 + DO i = 1, ngridmx + xmin = MIN(radsol(i),xmin) + xmax = MAX(radsol(i),xmax) + ENDDO + PRINT*,'Rayonnement net au sol radsol:', xmin, xmax + +c +c Lecture des parametres orographie sous-maille: +c + ierr = NF_INQ_VARID (nid, "ZMEA", nvarid) + IF (ierr.NE.NF_NOERR) THEN + PRINT*, 'phyetat0: Le champ est absent' + PRINT*, 'mis a zero' + zmea = 0. + ELSE +#ifdef NC_DOUBLE + ierr = NF_GET_VAR_DOUBLE(nid, nvarid, zmea) +#else + ierr = NF_GET_VAR_REAL(nid, nvarid, zmea) +#endif + IF (ierr.NE.NF_NOERR) THEN + PRINT*, 'phyetat0: Lecture echouee pour ' + CALL abort + ENDIF + ENDIF + xmin = 1.0E+20 + xmax = -1.0E+20 + DO i = 1, ngridmx + xmin = MIN(zmea(i),xmin) + xmax = MAX(zmea(i),xmax) + ENDDO + PRINT*,'zmea:', xmin, xmax +c + ierr = NF_INQ_VARID (nid, "ZSTD", nvarid) + IF (ierr.NE.NF_NOERR) THEN + PRINT*, 'phyetat0: Le champ est absent' + PRINT*, 'mis a zero' + zstd = 0. + ELSE +#ifdef NC_DOUBLE + ierr = NF_GET_VAR_DOUBLE(nid, nvarid, zstd) +#else + ierr = NF_GET_VAR_REAL(nid, nvarid, zstd) +#endif + IF (ierr.NE.NF_NOERR) THEN + PRINT*, 'phyetat0: Lecture echouee pour ' + CALL abort + ENDIF + ENDIF + xmin = 1.0E+20 + xmax = -1.0E+20 + DO i = 1, ngridmx + xmin = MIN(zstd(i),xmin) + xmax = MAX(zstd(i),xmax) + ENDDO + PRINT*,'zstd:', xmin, xmax +c + ierr = NF_INQ_VARID (nid, "ZSIG", nvarid) + IF (ierr.NE.NF_NOERR) THEN + PRINT*, 'phyetat0: Le champ est absent' + PRINT*, 'mis a zero' + zsig = 0. + ELSE +#ifdef NC_DOUBLE + ierr = NF_GET_VAR_DOUBLE(nid, nvarid, zsig) +#else + ierr = NF_GET_VAR_REAL(nid, nvarid, zsig) +#endif + IF (ierr.NE.NF_NOERR) THEN + PRINT*, 'phyetat0: Lecture echouee pour ' + CALL abort + ENDIF + ENDIF + xmin = 1.0E+20 + xmax = -1.0E+20 + DO i = 1, ngridmx + xmin = MIN(zsig(i),xmin) + xmax = MAX(zsig(i),xmax) + ENDDO + PRINT*,'zsig:', xmin, xmax +c + ierr = NF_INQ_VARID (nid, "ZGAM", nvarid) + IF (ierr.NE.NF_NOERR) THEN + PRINT*, 'phyetat0: Le champ est absent' + PRINT*, 'mis a zero' + zgam = 0. + ELSE +#ifdef NC_DOUBLE + ierr = NF_GET_VAR_DOUBLE(nid, nvarid, zgam) +#else + ierr = NF_GET_VAR_REAL(nid, nvarid, zgam) +#endif + IF (ierr.NE.NF_NOERR) THEN + PRINT*, 'phyetat0: Lecture echouee pour ' + CALL abort + ENDIF + ENDIF + xmin = 1.0E+20 + xmax = -1.0E+20 + DO i = 1, ngridmx + xmin = MIN(zgam(i),xmin) + xmax = MAX(zgam(i),xmax) + ENDDO + PRINT*,'zgam:', xmin, xmax +c + ierr = NF_INQ_VARID (nid, "ZTHE", nvarid) + IF (ierr.NE.NF_NOERR) THEN + PRINT*, 'phyetat0: Le champ est absent' + PRINT*, 'mis a zero' + zthe = 0. + ELSE +#ifdef NC_DOUBLE + ierr = NF_GET_VAR_DOUBLE(nid, nvarid, zthe) +#else + ierr = NF_GET_VAR_REAL(nid, nvarid, zthe) +#endif + IF (ierr.NE.NF_NOERR) THEN + PRINT*, 'phyetat0: Lecture echouee pour ' + CALL abort + ENDIF + ENDIF + xmin = 1.0E+20 + xmax = -1.0E+20 + DO i = 1, ngridmx + xmin = MIN(zthe(i),xmin) + xmax = MAX(zthe(i),xmax) + ENDDO + PRINT*,'zthe:', xmin, xmax +c + ierr = NF_INQ_VARID (nid, "ZPIC", nvarid) + IF (ierr.NE.NF_NOERR) THEN + PRINT*, 'phyetat0: Le champ est absent' + PRINT*, 'mis a zero' + zpic = 0. + ELSE +#ifdef NC_DOUBLE + ierr = NF_GET_VAR_DOUBLE(nid, nvarid, zpic) +#else + ierr = NF_GET_VAR_REAL(nid, nvarid, zpic) +#endif + IF (ierr.NE.NF_NOERR) THEN + PRINT*, 'phyetat0: Lecture echouee pour ' + CALL abort + ENDIF + ENDIF + xmin = 1.0E+20 + xmax = -1.0E+20 + DO i = 1, ngridmx + xmin = MIN(zpic(i),xmin) + xmax = MAX(zpic(i),xmax) + ENDDO + PRINT*,'zpic:', xmin, xmax +c + ierr = NF_INQ_VARID (nid, "ZVAL", nvarid) + IF (ierr.NE.NF_NOERR) THEN + PRINT*, 'phyetat0: Le champ est absent' + PRINT*, 'mis a zero' + zval = 0. + ELSE +#ifdef NC_DOUBLE + ierr = NF_GET_VAR_DOUBLE(nid, nvarid, zval) +#else + ierr = NF_GET_VAR_REAL(nid, nvarid, zval) +#endif + IF (ierr.NE.NF_NOERR) THEN + PRINT*, 'phyetat0: Lecture echouee pour ' + CALL abort + ENDIF + ENDIF + xmin = 1.0E+20 + xmax = -1.0E+20 + DO i = 1, ngridmx + xmin = MIN(zval(i),xmin) + xmax = MAX(zval(i),xmax) + ENDDO + PRINT*,'zval:', xmin, xmax +c +c Fermer le fichier: +c + ierr = NF_CLOSE(nid) +c + RETURN + END + Index: /trunk/LMDZ.COMMON/libf/dynphy_lonlat/phytitan.old/scal_wind.F =================================================================== --- /trunk/LMDZ.COMMON/libf/dynphy_lonlat/phytitan.old/scal_wind.F (revision 1644) +++ /trunk/LMDZ.COMMON/libf/dynphy_lonlat/phytitan.old/scal_wind.F (revision 1644) @@ -0,0 +1,54 @@ + SUBROUTINE scal_wind(xus,xvs,xu,xv) +c======================================================================= +c +c +c Subject: +c ------ +c On passe les variable xus, xvs aux points de vent u et v (xu et xv) +c +c======================================================================= + IMPLICIT NONE +c----------------------------------------------------------------------- +c Declararations: +c --------------- + +#include "dimensions.h" +#include "paramet.h" + +c Arguments: +c ---------- + + REAL xu(iip1,jjp1,llm),xv(iip1,jjm,llm) + REAL xus(iip1,jjp1,llm), xvs (iip1,jjp1,llm) + +c Local: +c ------ + + INTEGER i,j,l + +c----------------------------------------------------------------------- + +c transport zonal: +c ---------------- + DO l=1,llm + Do j=1,jjp1 + DO i=1,iim + xu(i,j,l)=0.5*(xus(i,j,l)+xus(i+1,j,l)) + ENDDO + xu(iip1,j,l)=xu(1,j,l) + ENDDO + ENDDO + + +c Transport meridien: +c ------------------- + DO l=1,llm + DO j=1,jjm + do i=1 ,iip1 + xv(i,j,l)=.5*(xvs(i,j,l)+xvs(i,j+1,l)) + end do + ENDDO + ENDDO + + RETURN + END Index: /trunk/LMDZ.COMMON/libf/dynphy_lonlat/phytitan.old/start2archive.F =================================================================== --- /trunk/LMDZ.COMMON/libf/dynphy_lonlat/phytitan.old/start2archive.F (revision 1644) +++ /trunk/LMDZ.COMMON/libf/dynphy_lonlat/phytitan.old/start2archive.F (revision 1644) @@ -0,0 +1,317 @@ +c======================================================================= + PROGRAM start2archive +c======================================================================= +c +c +c Date: 01/1997 +c ---- +c +c Version Venus: 09/2007 +c Titan: 02/2009 +c +c Objet: Passage des fichiers netcdf d etat initial "start" et +c ----- "startphy" a un fichier netcdf unique "start_archive" +c +c======================================================================= + + USE filtreg_mod + USE infotrac + USE control_mod + use cpdet_mod, only: tpot2t,ini_cpdet + use exner_hyb_m, only: exner_hyb + use exner_milieu_m, only: exner_milieu + USE comconst_mod + USE comvert_mod, ONLY: ap,bp,presnivs,pa,preff,nivsigs,nivsig, + . aps,bps,scaleheight,pseudoalt, + . disvert_type,pressure_exner + USE logic_mod, ONLY: iflag_trac + + implicit none + +#include "dimensions.h" +#include "paramet.h" +#include "comdissnew.h" +#include "comgeom.h" +#include "description.h" +#include "dimsoil.h" +#include "netcdf.inc" + +c----------------------------------------------------------------------- +c Declarations +c----------------------------------------------------------------------- + +c variables dynamiques du GCM +c ----------------------------- + REAL vcov(ip1jm,llm),ucov(ip1jmp1,llm) ! vents covariants + REAL teta(ip1jmp1,llm) ! temperature potentielle + REAL, ALLOCATABLE, DIMENSION(:,:,:):: q! champs advectes + REAL pks(ip1jmp1) ! exner (f pour filtre) + REAL pk(ip1jmp1,llm) + REAL pkf(ip1jmp1,llm) + REAL alpha(iip1,jjp1,llm),beta(iip1,jjp1,llm) + REAL phis(ip1jmp1) ! geopotentiel au sol + REAL masse(ip1jmp1,llm) ! masse de l'atmosphere + REAL ps(ip1jmp1) ! pression au sol + REAL p3d(iip1, jjp1, llm+1) ! pression aux interfaces + +c Variable Physiques (grille physique) +c ------------------------------------ + integer ngridmx,nlayermx + parameter (ngridmx=(2+(jjm-1)*iim - 1/jjm)) + parameter (nlayermx=llm) + + real rlat(ngridmx),rlon(ngridmx) + REAL tsurf(ngridmx),tsoil(ngridmx,nsoilmx) + REAL albe(ngridmx),radsol(ngridmx),sollw(ngridmx) + real solsw(ngridmx),dlw(ngridmx) + REAL zmea(ngridmx), zstd(ngridmx) + REAL zsig(ngridmx), zgam(ngridmx), zthe(ngridmx) + REAL zpic(ngridmx), zval(ngridmx) + + INTEGER start,length + PARAMETER (length = 100) + REAL tab_cntrl_fi(length) ! tableau des parametres de startfi + REAL tab_cntrl_dyn(length) ! tableau des parametres de start + INTEGER*4 day_ini_fi + +c Variable naturelle / grille scalaire +c ------------------------------------ + REAL T(ip1jmp1,llm),us(ip1jmp1,llm),vs(ip1jmp1,llm) + REAL tsurfS(ip1jmp1),tsoilS(ip1jmp1,nsoilmx) + real rlatS(ip1jmp1),rlonS(ip1jmp1) + real albeS(ip1jmp1),radsolS(ip1jmp1),sollwS(ip1jmp1) + real solswS(ip1jmp1),dlwS(ip1jmp1) + real zmeaS(ip1jmp1),zstdS(ip1jmp1),zsigS(ip1jmp1) + real zgamS(ip1jmp1),ztheS(ip1jmp1),zpicS(ip1jmp1) + real zvalS(ip1jmp1) + +c Variables intermediaires : vent naturel, mais pas coord scalaire +c---------------------------------------------------------------- + REAL vn(ip1jm,llm),un(ip1jmp1,llm) + +c Autres variables +c ----------------- + REAL ptotal + + CHARACTER*2 str2 + + INTEGER ij, l,i,j,isoil,iq + character*80 fichnom + integer :: ierr + +c Netcdf +c------- + integer varid,dimid + INTEGER nid + +c----------------------------------------------------------------------- +c Initialisations +c----------------------------------------------------------------------- + +c VENUS/TITAN + + iflag_trac = 1 +c----------------------------------------------------------------------- +c Initialisation des traceurs +c --------------------------- +c Choix du nombre de traceurs et du schema pour l advection +c dans fichier traceur.def, par default ou via INCA + call infotrac_init + +c Allocation de la tableau q : champs advectes + allocate(q(ip1jmp1,llm,nqtot)) + +c======================================================================= +c Lecture des donnees +c======================================================================= + + fichnom = 'start.nc' + CALL readstart(fichnom,nqtot,vcov,ucov,teta,q,masse, + . ps,phis,tab_cntrl_dyn) + + fichnom = 'startphy.nc' + CALL readstartphy(fichnom, + . rlat,rlon,tsurf,tsoil, + . albe, solsw, sollw, + . dlw,radsol, + . zmea,zstd,zsig,zgam,zthe,zpic,zval, + . tab_cntrl_fi) + +c----------------------------------------------------------------------- +c Initialisations +c----------------------------------------------------------------------- + + CALL conf_gcm( 99, .TRUE. ) + call iniconst + call inigeom + call inifilr + call ini_cpdet + + CALL pression(ip1jmp1, ap, bp, ps, p3d) + if (disvert_type==1) then + CALL exner_hyb( ip1jmp1, ps, p3d, pks, pk, pkf ) + else ! we assume that we are in the disvert_type==2 case + CALL exner_milieu( ip1jmp1, ps, p3d, pks, pk, pkf ) + endif + +c======================================================================= +c Transformation EN VARIABLE NATURELLE / GRILLE SCALAIRE si necessaire +c======================================================================= +c Les variables modeles dependent de la resolution. Il faut donc +c eliminer les facteurs responsables de cette dependance +c (pour utiliser newstart) +c======================================================================= + +c----------------------------------------------------------------------- +c Vent (depend de la resolution horizontale) +c----------------------------------------------------------------------- +c +c ucov --> un et vcov --> vn +c un --> us et vn --> vs +c +c----------------------------------------------------------------------- + + call covnat(llm,ucov, vcov, un, vn) + call wind_scal(un,vn,us,vs) + +c----------------------------------------------------------------------- +c Temperature (depend de la resolution verticale => de "sigma.def") +c----------------------------------------------------------------------- +c +c h --> T +c +c----------------------------------------------------------------------- +! ADAPTATION GCM POUR CP(T) + + call tpot2t(ip1jmp1*llm,teta,T,pk) + +c----------------------------------------------------------------------- +c Variable physique +c----------------------------------------------------------------------- +c +c tsurf --> tsurfS +c et autres... +c +c----------------------------------------------------------------------- + + call gr_fi_dyn(1,ngridmx,iip1,jjp1,tsurf,tsurfS) + call gr_fi_dyn(nsoilmx,ngridmx,iip1,jjp1,tsoil,tsoilS) + call gr_fi_dyn(1,ngridmx,iip1,jjp1,rlat,rlatS) + call gr_fi_dyn(1,ngridmx,iip1,jjp1,rlon,rlonS) + call gr_fi_dyn(1,ngridmx,iip1,jjp1,albe,albeS) + call gr_fi_dyn(1,ngridmx,iip1,jjp1,radsol,radsolS) + call gr_fi_dyn(1,ngridmx,iip1,jjp1,sollw,sollwS) + call gr_fi_dyn(1,ngridmx,iip1,jjp1,solsw,solswS) + call gr_fi_dyn(1,ngridmx,iip1,jjp1,dlw,dlwS) + call gr_fi_dyn(1,ngridmx,iip1,jjp1,zmea,zmeaS) + call gr_fi_dyn(1,ngridmx,iip1,jjp1,zstd,zstdS) + call gr_fi_dyn(1,ngridmx,iip1,jjp1,zsig,zsigS) + call gr_fi_dyn(1,ngridmx,iip1,jjp1,zgam,zgamS) + call gr_fi_dyn(1,ngridmx,iip1,jjp1,zthe,ztheS) + call gr_fi_dyn(1,ngridmx,iip1,jjp1,zpic,zpicS) + call gr_fi_dyn(1,ngridmx,iip1,jjp1,zval,zvalS) + +c======================================================================= +c Info pour controler +c======================================================================= + + ptotal = 0. + DO j=1,jjp1 + DO i=1,iim + ptotal=ptotal+aire(i+(iim+1)*(j-1))*ps(i+(iim+1)*(j-1))/g + ENDDO + ENDDO + write(*,*)'Ancienne grille : masse de l''atm :',ptotal + +c----------------------------------------------------------------------- +c Passage de "ptotal" par tab_cntrl_fi +c----------------------------------------------------------------------- + + tab_cntrl_fi(length) = ptotal + +c======================================================================= +c Ecriture dans le fichier "start_archive" +c======================================================================= + +c----------------------------------------------------------------------- +c Ouverture de "start_archive" +c----------------------------------------------------------------------- + + ierr = NF_OPEN ('start_archive.nc', NF_WRITE,nid) + +c----------------------------------------------------------------------- +c si "start_archive" n'existe pas: +c 1_ ouverture +c 2_ creation de l'entete dynamique ("ini_archive") +c----------------------------------------------------------------------- +c ini_archive: +c On met dans l'entete le tab_cntrl_dyn (1 a length) +c On y ajoute les valeurs du tab_cntrl_fi (length+1 a 2*length) +c----------------------------------------------------------------------- + + if (ierr.ne.NF_NOERR) then + write(*,*)'OK, Could not open file "start_archive.nc"' + write(*,*)'So let s create a new "start_archive"' + ierr = NF_CREATE('start_archive.nc', NF_CLOBBER, nid) + call ini_archive(nid,phis,tab_cntrl_dyn,tab_cntrl_fi) + else + write(*,*)'Attention, start_archive.nc existe deja...' + call abort + endif + +c----------------------------------------------------------------------- +c Ecriture des champs +c----------------------------------------------------------------------- + + call write_archive(nid,'u','Vent zonal','m.s-1',3,us) + call write_archive(nid,'v','Vent merid','m.s-1',3,vs) + call write_archive(nid,'temp','temperature','K',3,T) +c----------------------------------------------------------------------- +c Ecriture du champs q ( q[1,nqtot] ) +c----------------------------------------------------------------------- + do iq=1,nqtot + write(str2,'(i2.2)') iq + call write_archive(nid,tname(iq),'tracer','kg/kg', + . 3,q(1,1,iq)) + end do +c----------------------------------------------------------------------- + call write_archive(nid,'masse','Masse','kg',3,masse) + call write_archive(nid,'ps','Psurf','Pa',2,ps) + call write_archive(nid,'tsurf','surf T','K',2,tsurfS) +c----------------------------------------------------------------------- +c Ecriture du champs tsoil ( Tsoil[1,nsoilmx] ) +c----------------------------------------------------------------------- +c "tsoil" Temperature au sol definie dans nsoilmx couches dans le sol +c Les nsoilmx couches sont lues comme nsoilmx champs +c nommees Tsoil[1,nsoilmx] + do isoil=1,nsoilmx + write(str2,'(i2.2)') isoil + call write_archive(nid,'Tsoil'//str2,'Ground Temperature ', + . 'K',2,tsoilS(1,isoil)) + enddo +c----------------------------------------------------------------------- + call write_archive(nid,'rlat','Latitude','rad',2,rlatS) + call write_archive(nid,'rlon','Longitude','rad',2,rlonS) + call write_archive(nid,'albe','Albedo','',2,albeS) + call write_archive(nid,'radsol', + . 'Net flux at surface','W m-2',2,radsolS) + call write_archive(nid,'sollw', + . 'LW flux at surface','W m-2',2,sollwS) + call write_archive(nid,'solsw', + . 'SW flux at surface','W m-2',2,solswS) + call write_archive(nid,'dlw','LW derive','?',2,dlwS) + call write_archive(nid,'zmea','param oro sous-maille','m',2,zmeaS) + call write_archive(nid,'zstd','param oro sous-maille','m',2,zstdS) + call write_archive(nid,'zsig','param oro sous-maille','m',2,zsigS) + call write_archive(nid,'zgam','param oro sous-maille','m',2,zgamS) + call write_archive(nid,'zthe','param oro sous-maille','m',2,ztheS) + call write_archive(nid,'zpic','param oro sous-maille','m',2,zpicS) + call write_archive(nid,'zval','param oro sous-maille','m',2,zvalS) + + ierr=NF_CLOSE(nid) + +c----------------------------------------------------------------------- +c Fin +c----------------------------------------------------------------------- + + end Index: /trunk/LMDZ.COMMON/libf/dynphy_lonlat/phytitan.old/startvar.F90 =================================================================== --- /trunk/LMDZ.COMMON/libf/dynphy_lonlat/phytitan.old/startvar.F90 (revision 1644) +++ /trunk/LMDZ.COMMON/libf/dynphy_lonlat/phytitan.old/startvar.F90 (revision 1644) @@ -0,0 +1,771 @@ +! +! $Id: startvar.F90 1425 2010-09-02 13:45:23Z lguez $ +! +!******************************************************************************* +! +MODULE startvar +! +!******************************************************************************* +! +!------------------------------------------------------------------------------- +! Purpose: Access data from the database of atmospheric to initialize the model. +!------------------------------------------------------------------------------- +! Comments: +! +! * This module is designed to work for Earth (and with ioipsl) +! +! * There are three ways to acces data, depending on the type of field +! which needs to be extracted. In any case the call should come after a restget +! and should be of the type : CALL startget(...) +! +! - A 1D variable on the physical grid : +! CALL startget_phys1d((varname, iml, jml, lon_in, lat_in, nbindex, & +! champ, val_exp, jml2, lon_in2, lat_in2, ibar ) +! +! - A 2D variable on the dynamical grid : +! CALL startget_phys2d(varname, iml, jml, lon_in, lat_in, & +! champ, val_exp, jml2, lon_in2, lat_in2, ibar ) +! +! - A 3D variable on the dynamical grid : +! CALL startget_dyn((varname, iml, jml, lon_in, lat_in, lml, pls, workvar, & +! champ, val_exp, jml2, lon_in2, lat_in2, ibar ) +! +! * Data needs to be in NetCDF format +! +! * Variables should have the following names in the files: +! 'RELIEF' : High resolution orography +! 'ST' : Surface temperature +! 'CDSW' : Soil moisture +! 'Z' : Surface geopotential +! 'SP' : Surface pressure +! 'U' : East ward wind +! 'V' : Northward wind +! 'TEMP' : Temperature +! 'R' : Relative humidity +! +! * There is a big mess with the longitude size. Should it be iml or iml+1 ? +! I have chosen to use the iml+1 as an argument to this routine and we declare +! internaly smaller fields when needed. This needs to be cleared once and for +! all in LMDZ. A convention is required. +!------------------------------------------------------------------------------- + USE ioipsl + IMPLICIT NONE + + PRIVATE + PUBLIC startget_phys2d, startget_phys1d, startget_dyn +! INTERFACE startget +! MODULE PROCEDURE startget_phys1d, startget_phys2d, startget_dyn +! END INTERFACE + + REAL, SAVE :: deg2rad, pi + INTEGER, SAVE :: iml_rel, jml_rel + INTEGER, SAVE :: fid_phys, iml_phys, jml_phys + INTEGER, SAVE :: fid_dyn, iml_dyn, jml_dyn, llm_dyn, ttm_dyn + REAL, DIMENSION(:,:), ALLOCATABLE, TARGET, SAVE :: lon_phys, lon_dyn + REAL, DIMENSION(:,:), ALLOCATABLE, TARGET, SAVE :: lat_phys, lat_dyn + REAL, DIMENSION(:,:), ALLOCATABLE, TARGET, SAVE :: lon_rug, lon_alb, lon_rel + REAL, DIMENSION(:,:), ALLOCATABLE, TARGET, SAVE :: lat_rug, lat_alb, lat_rel + REAL, DIMENSION(:), ALLOCATABLE, TARGET, SAVE :: levdyn_ini + REAL, DIMENSION(:,:), ALLOCATABLE, TARGET, SAVE :: relief, zstd, zsig, zgam + REAL, DIMENSION(:,:), ALLOCATABLE, TARGET, SAVE :: zthe, zpic, zval + REAL, DIMENSION(:,:), ALLOCATABLE, TARGET, SAVE :: rugo, phis, tsol, qsol + REAL, DIMENSION(:,:), ALLOCATABLE, TARGET, SAVE :: psol_dyn + REAL, DIMENSION(:,:,:), ALLOCATABLE, TARGET, SAVE :: var_ana3d + + CONTAINS + +!------------------------------------------------------------------------------- +! +SUBROUTINE startget_phys1d(varname, iml, jml, lon_in, lat_in, nbindex, champ, & + val_exp ,jml2, lon_in2, lat_in2, ibar) +! +!------------------------------------------------------------------------------- +! Comment: +! This routine only works if the variable does not exist or is constant. +!------------------------------------------------------------------------------- +! Arguments: + CHARACTER(LEN=*), INTENT(IN) :: varname + INTEGER, INTENT(IN) :: iml, jml + REAL, DIMENSION(iml), INTENT(IN) :: lon_in + REAL, DIMENSION(jml), INTENT(IN) :: lat_in + INTEGER, INTENT(IN) :: nbindex + REAL, DIMENSION(nbindex), INTENT(INOUT) :: champ + REAL, INTENT(IN) :: val_exp + INTEGER, INTENT(IN) :: jml2 + REAL, DIMENSION(iml), INTENT(IN) :: lon_in2 + REAL, DIMENSION(jml2), INTENT(IN) :: lat_in2 + LOGICAL, INTENT(IN) :: ibar +!------------------------------------------------------------------------------- +! Local variables: +#include "iniprint.h" + REAL, DIMENSION(:,:), POINTER :: v2d +!------------------------------------------------------------------------------- + v2d=>NULL() + IF(MINVAL(champ)==MAXVAL(champ).AND.MINVAL(champ)==val_exp) THEN + +!--- CHECKING IF THE FIELD IS KNOWN ; READING UNALLOCATED FILES + SELECT CASE(varname) + CASE('tsol') + IF(.NOT.ALLOCATED(tsol)) & + CALL start_init_phys(iml,jml,lon_in,lat_in,jml2,lon_in2,lat_in2,ibar) + CASE('qsol') + IF(.NOT.ALLOCATED(qsol)) & + CALL start_init_phys(iml,jml,lon_in,lat_in,jml2,lon_in2,lat_in2,ibar) + CASE('psol') + IF(.NOT.ALLOCATED(psol_dyn)) & + CALL start_init_dyn (iml,jml,lon_in,lat_in,jml2,lon_in2,lat_in2,ibar) + CASE('zmea','zstd','zsig','zgam','zthe','zpic','zval') + IF(.NOT.ALLOCATED(relief)) & + CALL start_init_orog(iml,jml,lon_in,lat_in) + CASE('rads','snow','tslab','seaice','rugmer','agsno') + CASE DEFAULT + WRITE(lunout,*)'startget_phys1d' + WRITE(lunout,*)'No rule is present to extract variable '//TRIM(varname)& + //' from any data set'; STOP + END SELECT + +!--- SELECTING v2d FOR WANTED VARIABLE AND CHEKING ITS SIZE + SELECT CASE(varname) + CASE('rads','snow','tslab','seaice'); champ=0.0 + CASE('rugmer'); champ(:)=0.001 + CASE('agsno'); champ(:)=50.0 + CASE DEFAULT + SELECT CASE(varname) + CASE('tsol'); v2d=>tsol + CASE('qsol'); v2d=>qsol + CASE('psol'); v2d=>psol_dyn + CASE('zmea'); v2d=>relief + CASE('zstd'); v2d=>zstd + CASE('zsig'); v2d=>zsig + CASE('zgam'); v2d=>zgam + CASE('zthe'); v2d=>zthe + CASE('zpic'); v2d=>zpic + CASE('zval'); v2d=>zval + END SELECT + IF(SIZE(v2d)/=SIZE(lon_in)*SIZE(lat_in)) THEN + WRITE(lunout,*)'STARTVAR module has been initialized to the wrong size' + STOP + END IF + CALL gr_dyn_fi(1,iml,jml,nbindex,v2d,champ) + END SELECT + + ELSE + +!--- SOME FIELDS ARE CAUGHT: MAY BE NEEDED FOR A 3D INTEPROLATION + SELECT CASE(varname) + CASE('tsol') + IF(.NOT.ALLOCATED(tsol)) ALLOCATE(tsol(iml,jml)) + CALL gr_fi_dyn(1,iml,jml,nbindex,champ,tsol) + END SELECT + + END IF + +END SUBROUTINE startget_phys1d +! +!------------------------------------------------------------------------------- + + +!------------------------------------------------------------------------------- +! +SUBROUTINE startget_phys2d(varname, iml, jml, lon_in, lat_in, champ, val_exp, & + jml2, lon_in2, lat_in2 , ibar) +! +!------------------------------------------------------------------------------- +! Comment: +! This routine only works if the variable does not exist or is constant. +!------------------------------------------------------------------------------- +! Arguments: + CHARACTER(LEN=*), INTENT(IN) :: varname + INTEGER, INTENT(IN) :: iml, jml + REAL, DIMENSION(iml), INTENT(IN) :: lon_in + REAL, DIMENSION(jml), INTENT(IN) :: lat_in + REAL, DIMENSION(iml,jml), INTENT(INOUT) :: champ + REAL, INTENT(IN) :: val_exp + INTEGER, INTENT(IN) :: jml2 + REAL, DIMENSION(iml), INTENT(IN) :: lon_in2 + REAL, DIMENSION(jml2), INTENT(IN) :: lat_in2 + LOGICAL, INTENT(IN) :: ibar +!------------------------------------------------------------------------------- +! Local variables: +#include "iniprint.h" + REAL, DIMENSION(:,:), POINTER :: v2d=>NULL() +!------------------------------------------------------------------------------- + v2d=>NULL() + IF(MINVAL(champ)==MAXVAL(champ).AND.MINVAL(champ)==val_exp) THEN + +!--- CHECKING IF THE FIELD IS KNOWN ; READING UNALLOCATED FILES + SELECT CASE(varname) + CASE('psol') + IF(.NOT.ALLOCATED(psol_dyn)) & + CALL start_init_dyn (iml,jml,lon_in,lat_in,jml2,lon_in2,lat_in2,ibar) + CASE('relief') + IF(.NOT.ALLOCATED(relief)) CALL start_init_orog(iml,jml,lon_in,lat_in) + CASE('surfgeo') + IF(.NOT.ALLOCATED(phis)) CALL start_init_orog(iml,jml,lon_in,lat_in) + CASE('rugosite') + IF(.NOT.ALLOCATED(rugo)) CALL start_init_orog(iml,jml,lon_in,lat_in) + CASE DEFAULT + WRITE(lunout,*)'startget_phys2d' + WRITE(lunout,*)'No rule is present to extract variable '//TRIM(varname)& + //' from any data set'; STOP + END SELECT + +!--- SELECTING v2d FOR WANTED VARIABLE AND CHEKING ITS SIZE + SELECT CASE(varname) + CASE('psol'); v2d=>psol_dyn + CASE('relief'); v2d=>relief + CASE('rugosite'); v2d=>rugo + CASE('surfgeo'); v2d=>phis + END SELECT + IF(SIZE(champ)/=SIZE(v2d)) THEN + WRITE(lunout,*) 'STARTVAR module has been initialized to the wrong size' + STOP + END IF + + champ(:,:)=v2d(:,:) + + ELSE + +!--- SOME FIELDS ARE CAUGHT: MAY BE NEEDED FOR A 3D INTEPROLATION + SELECT CASE(varname) + CASE ('surfgeo') + IF(.NOT.ALLOCATED(phis)) ALLOCATE(phis(iml,jml)) + IF(SIZE(phis)/=SIZE(champ)) THEN + WRITE(lunout,*)'STARTVAR module has been initialized to the wrong size' + STOP + END IF + phis(:,:)=champ(:,:) + END SELECT + + END IF + +END SUBROUTINE startget_phys2d +! +!------------------------------------------------------------------------------- + + +!------------------------------------------------------------------------------- +! +SUBROUTINE startget_dyn(varname, lon_in, lat_in, pls,workvar,& + champ, val_exp, lon_in2, lat_in2, ibar) + + use assert_eq_m, only: assert_eq + USE comconst_mod + +!------------------------------------------------------------------------------- +! Comment: +! This routine only works if the variable does not exist or is constant. +!------------------------------------------------------------------------------- +! Arguments: + CHARACTER(LEN=*), INTENT(IN) :: varname + REAL, INTENT(IN) :: lon_in(:) ! dim(iml) + REAL, INTENT(IN) :: lat_in(:) ! dim(jml) + REAL, INTENT(IN) :: pls(:, :, :) ! dim(iml, jml, lml) + REAL, INTENT(IN) :: workvar(:, :, :) ! dim(iml, jml, lml) + REAL, INTENT(INOUT) :: champ(:, :, :) ! dim(iml, jml, lml) + REAL, INTENT(IN) :: val_exp + REAL, INTENT(IN) :: lon_in2(:) ! dim(iml) + REAL, INTENT(IN) :: lat_in2(:) ! dim(jml2) + LOGICAL, INTENT(IN) :: ibar +!------------------------------------------------------------------------------- +! Local variables: +#include "iniprint.h" +#include "dimensions.h" +#include "paramet.h" +#include "comgeom2.h" + INTEGER :: iml, jml + INTEGER :: lml + INTEGER :: jml2 + REAL, DIMENSION(:,:,:), POINTER :: v3d=>NULL() + CHARACTER(LEN=10) :: vname + INTEGER :: il + REAL :: xppn, xpps +!------------------------------------------------------------------------------- + NULLIFY(v3d) + IF(MINVAL(champ)==MAXVAL(champ).AND.MINVAL(champ)==val_exp) THEN + + iml = assert_eq((/size(lon_in), size(pls, 1), size(workvar, 1), & + & size(champ, 1), size(lon_in2)/), "startget_dyn iml") + jml = assert_eq(size(lat_in), size(pls, 2), size(workvar, 2), & + & size(champ, 2), "startget_dyn jml") + lml = assert_eq(size(pls, 3), size(workvar, 3), size(champ, 3), & + & "startget_dyn lml") + jml2 = size(lat_in2) + +!--- READING UNALLOCATED FILES + IF(.NOT.ALLOCATED(psol_dyn)) & + CALL start_init_dyn(iml,jml,lon_in,lat_in,jml2,lon_in2,lat_in2,ibar) + +!--- CHECKING IF THE FIELD IS KNOWN AND INTERPOLATING 3D FIELDS + SELECT CASE(varname) + CASE('u'); vname='U' + CASE('v'); vname='V' + CASE('t','tpot'); vname='TEMP' + CASE('q'); vname='R' + CASE DEFAULT + WRITE(lunout,*)'startget_dyn' + WRITE(lunout,*)'No rule is present to extract variable '//TRIM(varname)& + //' from any data set'; STOP + END SELECT + CALL start_inter_3d(TRIM(vname), iml, jml, lml, lon_in, lat_in, jml2, & + lon_in2, lat_in2, pls, champ,ibar ) + +!--- COMPUTING THE REQUIRED FILED + SELECT CASE(varname) + CASE('u') !--- Eastward wind + DO il=1,lml; champ(:,:,il)=champ(:,:,il)*cu(:,1:jml); END DO + champ(iml,:,:)=champ(1,:,:) + + CASE('v') !--- Northward wind + DO il=1,lml; champ(:,:,il)=champ(:,:,il)*cv(:,1:jml); END DO + champ(iml,:,:)=champ(1,:,:) + + CASE('tpot') !--- Temperature + IF(MINVAL(workvar)/=MAXVAL(workvar)) THEN + champ=champ*cpp/workvar + DO il=1,lml + xppn = SUM(aire(:,1 )*champ(:,1 ,il))/apoln + xpps = SUM(aire(:,jml)*champ(:,jml,il))/apols + champ(:,1 ,il) = xppn + champ(:,jml,il) = xpps + END DO + ELSE + WRITE(lunout,*)'Could not compute potential temperature as the' + WRITE(lunout,*)'Exner function is missing or constant.'; STOP + END IF + + CASE('q') !--- Relat. humidity + IF(MINVAL(workvar)/=MAXVAL(workvar)) THEN + champ=0.01*champ*workvar + WHERE(champ<0.) champ=1.0E-10 + DO il=1,lml + xppn = SUM(aire(:,1 )*champ(:,1 ,il))/apoln + xpps = SUM(aire(:,jml)*champ(:,jml,il))/apols + champ(:,1 ,il) = xppn + champ(:,jml,il) = xpps + END DO + ELSE + WRITE(lunout,*)'Could not compute specific humidity as the' + WRITE(lunout,*)'saturated humidity is missing or constant.'; STOP + END IF + + END SELECT + + END IF + +END SUBROUTINE startget_dyn +! +!------------------------------------------------------------------------------- + + +!------------------------------------------------------------------------------- +! +SUBROUTINE start_init_orog(iml,jml,lon_in,lat_in) + USE comconst_mod + USE grid_atob_m, ONLY: rugsoro + +!------------------------------------------------------------------------------- +! Arguments: + INTEGER, INTENT(IN) :: iml, jml + REAL, DIMENSION(iml), INTENT(IN) :: lon_in + REAL, DIMENSION(jml), INTENT(IN) :: lat_in +!------------------------------------------------------------------------------- +! Local variables: +#include "iniprint.h" + CHARACTER(LEN=25) :: title + CHARACTER(LEN=120) :: orofname + LOGICAL :: check=.TRUE. + REAL, DIMENSION(1) :: lev + REAL :: date, dt + INTEGER, DIMENSION(1) :: itau + INTEGER :: fid, llm_tmp, ttm_tmp + REAL, DIMENSION(:,:), ALLOCATABLE :: relief_hi, tmp_var + REAL, DIMENSION(:), ALLOCATABLE :: lon_rad, lat_rad, lon_ini, lat_ini +!------------------------------------------------------------------------------- + pi=2.0*ASIN(1.0); deg2rad=pi/180.0 + + orofname = 'Relief.nc'; title='RELIEF' + IF(check) WRITE(lunout,*)'Reading the high resolution orography' + CALL flininfo(orofname, iml_rel, jml_rel, llm_tmp, ttm_tmp, fid) + + ALLOCATE(lat_rel(iml_rel,jml_rel),lon_rel(iml_rel,jml_rel)) + CALL flinopen(orofname, .FALSE., iml_rel, jml_rel, llm_tmp, lon_rel, lat_rel,& + lev, ttm_tmp, itau, date, dt, fid) + ALLOCATE(relief_hi(iml_rel,jml_rel)) + CALL flinget(fid, title, iml_rel, jml_rel, llm_tmp, ttm_tmp, 1, 1, relief_hi) + CALL flinclo(fid) + +!--- IF ANGLES ARE IN DEGREES, THEY ARE CONVERTED INTO RADIANS + ALLOCATE(lon_ini(iml_rel),lat_ini(jml_rel)) + lon_ini(:)=lon_rel(:,1); IF(MAXVAL(lon_rel)>pi) lon_ini=lon_ini*deg2rad + lat_ini(:)=lat_rel(1,:); IF(MAXVAL(lat_rel)>pi) lat_ini=lat_ini*deg2rad + +!--- FIELDS ARE PROCESSED TO BE ON STANDARD ANGULAR DOMAINS + ALLOCATE(lon_rad(iml_rel),lat_rad(jml_rel)) + CALL conf_dat2d(title, iml_rel, jml_rel, lon_ini, lat_ini, lon_rad, lat_rad, & + relief_hi, .FALSE.) + DEALLOCATE(lon_ini,lat_ini) + +!--- COMPUTING THE REQUIRED FIELDS USING ROUTINE grid_noro + IF(check) WRITE(lunout,*)'Computes all parameters needed for gravity wave dra& + &g code' + + ALLOCATE(phis(iml,jml)) ! Geopotentiel au sol + ALLOCATE(zstd(iml,jml)) ! Deviation standard de l'orographie sous-maille + ALLOCATE(zsig(iml,jml)) ! Pente de l'orographie sous-maille + ALLOCATE(zgam(iml,jml)) ! Anisotropie de l'orographie sous maille + ALLOCATE(zthe(iml,jml)) ! Orientation axe +grande pente d'oro sous maille + ALLOCATE(zpic(iml,jml)) ! Hauteur pics de la SSO + ALLOCATE(zval(iml,jml)) ! Hauteur vallees de la SSO + ALLOCATE(relief(iml,jml)) ! Orographie moyenne + + CALL grid_noro(iml_rel, jml_rel, lon_rad, lat_rad, relief_hi, iml-1, jml, & + lon_in, lat_in, phis, relief, zstd, zsig, zgam, zthe, zpic, zval) + phis = phis * g + +!--- SURFACE ROUGHNESS COMPUTATION (UNUSED FOR THE MOMENT !!! ) + IF(check) WRITE(lunout,*)'Compute surface roughness induced by the orography' + ALLOCATE(rugo (iml ,jml)) + ALLOCATE(tmp_var(iml-1,jml)) + CALL rugsoro(lon_rad, lat_rad, relief_hi, & + lon_in, lat_in, tmp_var) + rugo(1:iml-1,:)=tmp_var; rugo(iml,:)=tmp_var(1,:) + DEALLOCATE(relief_hi,tmp_var,lon_rad,lat_rad) + RETURN + +END SUBROUTINE start_init_orog +! +!------------------------------------------------------------------------------- + + +!------------------------------------------------------------------------------- +! +SUBROUTINE start_init_phys(iml,jml,lon_in,lat_in,jml2,lon_in2,lat_in2,ibar) +! +!------------------------------------------------------------------------------- +! Arguments: + INTEGER, INTENT(IN) :: iml, jml + REAL, DIMENSION(iml), INTENT(IN) :: lon_in + REAL, DIMENSION(jml), INTENT(IN) :: lat_in + INTEGER, INTENT(IN) :: jml2 + REAL, DIMENSION(iml), INTENT(IN) :: lon_in2 + REAL, DIMENSION(jml2), INTENT(IN) :: lat_in2 + LOGICAL, INTENT(IN) :: ibar +!------------------------------------------------------------------------------- +! Local variables: +#include "iniprint.h" + CHARACTER(LEN=25) :: title + CHARACTER(LEN=120) :: physfname + LOGICAL :: check=.TRUE. + REAL :: date, dt + INTEGER, DIMENSION(1) :: itau + INTEGER :: llm_tmp, ttm_tmp + REAL, DIMENSION(:,:), ALLOCATABLE :: var_ana + REAL, DIMENSION(:), ALLOCATABLE :: lon_rad, lat_rad, lon_ini, lat_ini + REAL, DIMENSION(:), ALLOCATABLE :: levphys_ini +!------------------------------------------------------------------------------- + physfname = 'ECPHY.nc'; pi=2.0*ASIN(1.0); deg2rad=pi/180.0 + IF(check) WRITE(lunout,*)'Opening the surface analysis' + CALL flininfo(physfname, iml_phys, jml_phys, llm_tmp, ttm_tmp, fid_phys) + + ALLOCATE(lat_phys(iml_phys,jml_phys)) + ALLOCATE(lon_phys(iml_phys,jml_phys)) + ALLOCATE(levphys_ini(llm_tmp)) + CALL flinopen(physfname, .FALSE., iml_phys, jml_phys, llm_tmp, lon_phys, & + lat_phys, levphys_ini, ttm_tmp, itau, date, dt, fid_phys) + DEALLOCATE(levphys_ini) + +!--- IF ANGLES ARE IN DEGREES, THEY ARE CONVERTED INTO RADIANS + ALLOCATE(lon_ini(iml_phys),lat_ini(jml_phys)) + lon_ini(:)=lon_phys(:,1); IF(MAXVAL(lon_phys)>pi) lon_ini=lon_ini*deg2rad + lat_ini(:)=lat_phys(1,:); IF(MAXVAL(lat_phys)>pi) lat_ini=lat_ini*deg2rad + + ALLOCATE(var_ana(iml_phys,jml_phys),lon_rad(iml_phys),lat_rad(jml_phys)) + +!--- SURFACE TEMPERATURE + title='ST' + ALLOCATE(tsol(iml,jml)) + CALL flinget(fid_phys,title,iml_phys,jml_phys,llm_tmp,ttm_tmp,1,1,var_ana) + CALL conf_dat2d(title,iml_phys, jml_phys, lon_ini, lat_ini, lon_rad, lat_rad,& + var_ana , ibar ) + CALL interp_startvar(title, ibar, .TRUE., & + iml_phys, jml_phys, lon_rad, lat_rad, var_ana, iml, jml, jml-1, & + lon_in, lat_in, lon_in2, lat_in2, tsol) + +!--- SOIL MOISTURE + title='CDSW' + ALLOCATE(qsol(iml,jml)) + CALL flinget(fid_phys,title,iml_phys,jml_phys,llm_tmp,ttm_tmp,1,1,var_ana) + CALL conf_dat2d(title,iml_phys, jml_phys, lon_ini, lat_ini, lon_rad, lat_rad,& + var_ana, ibar ) + CALL interp_startvar(title, ibar, .TRUE., & + iml_phys, jml_phys, lon_rad, lat_rad, var_ana, iml, jml, jml-1, & + lon_in, lat_in, lon_in2, lat_in2, qsol) + + CALL flinclo(fid_phys) + + DEALLOCATE(var_ana,lon_rad,lat_rad,lon_ini,lat_ini) + +END SUBROUTINE start_init_phys +! +!------------------------------------------------------------------------------- + + +!------------------------------------------------------------------------------- +! +SUBROUTINE start_init_dyn(iml,jml,lon_in,lat_in,jml2,lon_in2,lat_in2,ibar) +! +!------------------------------------------------------------------------------- +! Arguments: + INTEGER, INTENT(IN) :: iml, jml + REAL, DIMENSION(iml), INTENT(IN) :: lon_in + REAL, DIMENSION(jml), INTENT(IN) :: lat_in + INTEGER, INTENT(IN) :: jml2 + REAL, DIMENSION(iml), INTENT(IN) :: lon_in2 + REAL, DIMENSION(jml2), INTENT(IN) :: lat_in2 + LOGICAL, INTENT(IN) :: ibar +!------------------------------------------------------------------------------- +! Local variables: +#include "iniprint.h" +#include "dimensions.h" +#include "paramet.h" +#include "comgeom2.h" + CHARACTER(LEN=25) :: title + CHARACTER(LEN=120) :: physfname + LOGICAL :: check=.TRUE. + REAL :: date, dt + INTEGER, DIMENSION(1) :: itau + INTEGER :: i, j + REAL, DIMENSION(:,:), ALLOCATABLE :: var_ana, z + REAL, DIMENSION(:), ALLOCATABLE :: lon_rad, lat_rad, lon_ini, lat_ini + REAL, DIMENSION(:), ALLOCATABLE :: xppn, xpps +!------------------------------------------------------------------------------- + +!--- KINETIC ENERGY + physfname = 'ECDYN.nc'; pi=2.0*ASIN(1.0); deg2rad=pi/180.0 + IF(check) WRITE(lunout,*) 'Opening the surface analysis' + CALL flininfo(physfname, iml_dyn, jml_dyn, llm_dyn, ttm_dyn, fid_dyn) + IF(check) WRITE(lunout,*) 'Values read: ', iml_dyn, jml_dyn, llm_dyn, ttm_dyn + + ALLOCATE(lat_dyn(iml_dyn,jml_dyn)) + ALLOCATE(lon_dyn(iml_dyn,jml_dyn)) + ALLOCATE(levdyn_ini(llm_dyn)) + CALL flinopen(physfname, .FALSE., iml_dyn, jml_dyn, llm_dyn, lon_dyn,lat_dyn,& + levdyn_ini, ttm_dyn, itau, date, dt, fid_dyn) + +!--- IF ANGLES ARE IN DEGREES, THEY ARE CONVERTED INTO RADIANS + ALLOCATE(lon_ini(iml_dyn),lat_ini(jml_dyn)) + lon_ini(:)=lon_dyn(:,1); IF(MAXVAL(lon_dyn)>pi) lon_ini=lon_ini*deg2rad + lat_ini(:)=lat_dyn(1,:); IF(MAXVAL(lat_dyn)>pi) lat_ini=lat_ini*deg2rad + + ALLOCATE(var_ana(iml_dyn,jml_dyn),lon_rad(iml_dyn),lat_rad(jml_dyn)) + +!--- SURFACE GEOPOTENTIAL + title='Z' + ALLOCATE(z(iml,jml)) + CALL flinget(fid_dyn, title, iml_dyn, jml_dyn, 0, ttm_dyn, 1, 1, var_ana) + CALL conf_dat2d(title, iml_dyn, jml_dyn, lon_ini, lat_ini, lon_rad, lat_rad, & + var_ana, ibar) + CALL interp_startvar(title, ibar, .TRUE., & + iml_dyn, jml_dyn, lon_rad, lat_rad, var_ana, iml, jml, jml-1, & + lon_in, lat_in, lon_in2, lat_in2, z) + +!--- SURFACE PRESSURE + title='SP' + ALLOCATE(psol_dyn(iml,jml)) + CALL flinget(fid_dyn, title, iml_dyn, jml_dyn, 0, ttm_dyn, 1, 1, var_ana) + CALL conf_dat2d(title, iml_dyn, jml_dyn, lon_ini, lat_ini, lon_rad, lat_rad, & + var_ana, ibar) + CALL interp_startvar(title, ibar, .TRUE., & + iml_dyn, jml_dyn, lon_rad, lat_rad, var_ana, iml, jml, jml-1, & + lon_in, lat_in, lon_in2, lat_in2, psol_dyn) + + DEALLOCATE(var_ana,lon_rad,lat_rad,lon_ini,lat_ini) + +!--- ALLOCATION OF VARIABLES CREATED IN OR COMING FROM RESTART FILE + IF(.NOT.ALLOCATED(tsol)) THEN + CALL start_init_phys(iml,jml,lon_in,lat_in,jml2,lon_in2,lat_in2,ibar) + ELSE + IF(SIZE(tsol)/=SIZE(psol_dyn)) THEN + WRITE(lunout,*)'start_init_dyn :' + WRITE(lunout,*)'The temperature field we have does not have the right size' + STOP + END IF + END IF + + IF(.NOT.ALLOCATED(phis)) THEN + CALL start_init_orog(iml,jml,lon_in,lat_in) + ELSE + IF(SIZE(phis)/=SIZE(psol_dyn)) THEN + WRITE(lunout,*)'start_init_dyn :' + WRITE(lunout,*)'The orography field we have does not have the right size' + STOP + END IF + END IF + +!--- PSOL IS COMPUTED IN PASCALS + DO j = 1, jml + DO i = 1, iml-1 + psol_dyn(i,j) = psol_dyn(i,j)*(1.0+(z(i,j)-phis(i,j))/287.0/tsol(i,j)) + END DO + psol_dyn(iml,j) = psol_dyn(1,j) + END DO + DEALLOCATE(z) + + ALLOCATE(xppn(iml-1),xpps(iml-1)) + DO i = 1, iml-1 + xppn(i) = aire( i,1) * psol_dyn( i,1) + xpps(i) = aire( i,jml) * psol_dyn( i,jml) + END DO + DO i = 1, iml + psol_dyn(i,1 ) = SUM(xppn)/apoln + psol_dyn(i,jml) = SUM(xpps)/apols + END DO + DEALLOCATE(xppn,xpps) + + RETURN + +END SUBROUTINE start_init_dyn +! +!------------------------------------------------------------------------------- + + +!------------------------------------------------------------------------------- +! +SUBROUTINE start_inter_3d(varname, iml, jml, lml, lon_in, lat_in, jml2, & + lon_in2, lat_in2, pls_in, var3d, ibar) + + use pchsp_95_m, only: pchsp_95 + use pchfe_95_m, only: pchfe_95 + +! Arguments: + CHARACTER(LEN=*), INTENT(IN) :: varname + INTEGER, INTENT(IN) :: iml, jml, lml + REAL, DIMENSION(iml), INTENT(IN) :: lon_in + REAL, DIMENSION(jml), INTENT(IN) :: lat_in + INTEGER, INTENT(IN) :: jml2 + REAL, DIMENSION(iml), INTENT(IN) :: lon_in2 + REAL, DIMENSION(jml2), INTENT(IN) :: lat_in2 + REAL, DIMENSION(iml, jml, lml), INTENT(IN) :: pls_in + REAL, DIMENSION(iml, jml, lml), INTENT(OUT) :: var3d + LOGICAL, INTENT(IN) :: ibar +!---------------------------------------------------------------------------- +! Local variables: +#include "iniprint.h" + LOGICAL:: check=.TRUE., skip + REAL chmin, chmax + INTEGER ii, ij, il, ierr + integer n_extrap ! number of extrapolated points + REAL, DIMENSION(iml, jml, llm_dyn):: var_tmp3d + REAL, DIMENSION(:), ALLOCATABLE :: lon_rad, lat_rad, lon_ini, lat_ini + REAL, DIMENSION(llm_dyn):: lev_dyn, ax, ay, yder + +!--------------------------------------------------------------------------- + IF(check) WRITE(lunout, *)'Going into flinget to extract the 3D field.' + IF(check) WRITE(lunout, *) fid_dyn, varname, iml_dyn, jml_dyn, llm_dyn, & + ttm_dyn + IF(check) WRITE(lunout, *) 'Allocating space for interpolation', iml, jml, & + llm_dyn + + IF(.NOT.ALLOCATED(var_ana3d)) ALLOCATE(var_ana3d(iml_dyn, jml_dyn, llm_dyn)) + CALL flinget(fid_dyn, varname, iml_dyn, jml_dyn, llm_dyn, ttm_dyn, 1, 1, & + var_ana3d) + +!--- IF ANGLES ARE IN DEGREES, THEY ARE CONVERTED INTO RADIANS + ALLOCATE(lon_ini(iml_dyn), lat_ini(jml_dyn)) + lon_ini(:)=lon_dyn(:, 1); IF(MAXVAL(lon_dyn)>pi) lon_ini=lon_ini*deg2rad + lat_ini(:)=lat_dyn(1, :); IF(MAXVAL(lat_dyn)>pi) lat_ini=lat_ini*deg2rad + +!--- FIELDS ARE PROCESSED TO BE ON STANDARD ANGULAR DOMAINS + ALLOCATE(lon_rad(iml_dyn), lat_rad(jml_dyn)) + CALL conf_dat3d (varname, iml_dyn, jml_dyn, llm_dyn, lon_ini, lat_ini, & + levdyn_ini, lon_rad, lat_rad, lev_dyn, var_ana3d, ibar) + DEALLOCATE(lon_ini, lat_ini) + +!--- COMPUTING THE REQUIRED FIELDS USING ROUTINE grid_noro + DO il=1, llm_dyn + CALL interp_startvar(varname, ibar, il==1, iml_dyn, jml_dyn, lon_rad, & + lat_rad, var_ana3d(:, :, il), iml, jml, jml2, lon_in, lat_in, & + lon_in2, lat_in2, var_tmp3d(:, :, il)) + END DO + DEALLOCATE(lon_rad, lat_rad) + +!--- VERTICAL INTERPOLATION IS PERFORMED FROM TOP OF ATMOSPHERE TO GROUND + ax = lev_dyn(llm_dyn:1:-1) + skip = .false. + n_extrap = 0 + DO ij=1, jml + DO ii=1, iml-1 + ay = var_tmp3d(ii, ij, llm_dyn:1:-1) + yder = pchsp_95(ax, ay, ibeg=2, iend=2, vc_beg=0., vc_end=0.) + CALL pchfe_95(ax, ay, yder, skip, pls_in(ii, ij, lml:1:-1), & + var3d(ii, ij, lml:1:-1), ierr) + if (ierr < 0) stop 1 + n_extrap = n_extrap + ierr + END DO + END DO + if (n_extrap /= 0) then + print *, "start_inter_3d pchfe_95: n_extrap = ", n_extrap + end if + var3d(iml, :, :) = var3d(1, :, :) + + DO il=1, lml + CALL minmax(iml*jml, var3d(1, 1, il), chmin, chmax) + WRITE(lunout, *)' '//TRIM(varname)//' min max l ', il, chmin, chmax + END DO + +END SUBROUTINE start_inter_3d +! +!------------------------------------------------------------------------------- + + +!------------------------------------------------------------------------------- +! +SUBROUTINE interp_startvar(vname, ibar, ibeg, ii, jj, lon, lat, vari, & + i1, j1, j2, lon1, lat1, lon2, lat2, varo) +! +!------------------------------------------------------------------------------- + + USE inter_barxy_m, only: inter_barxy + USE grid_atob_m, only: grille_m + +! Arguments: + CHARACTER(LEN=*), INTENT(IN) :: vname + LOGICAL, INTENT(IN) :: ibar, ibeg + INTEGER, INTENT(IN) :: ii, jj + REAL, DIMENSION(ii), INTENT(IN) :: lon + REAL, DIMENSION(jj), INTENT(IN) :: lat + REAL, DIMENSION(ii,jj), INTENT(IN) :: vari + INTEGER, INTENT(IN) :: i1, j1, j2 + REAL, DIMENSION(i1), INTENT(IN) :: lon1 + REAL, DIMENSION(j1), INTENT(IN) :: lat1 + REAL, DIMENSION(i1), INTENT(IN) :: lon2 + REAL, DIMENSION(j2), INTENT(IN) :: lat2 + REAL, DIMENSION(i1,j1), INTENT(OUT) :: varo +!------------------------------------------------------------------------------- +! Local variables: +#include "iniprint.h" + REAL, DIMENSION(i1-1,j1) :: vtmp +!------------------------------------------------------------------------------- + IF(ibar) THEN + IF(ibeg) THEN + WRITE(lunout,*) & + '---------------------------------------------------------------' + WRITE(lunout,*) & + '$$$ Utilisation de l interpolation barycentrique pour '//TRIM(vname)//' $$$' + WRITE(lunout,*) & + '---------------------------------------------------------------' + END IF + CALL inter_barxy(lon, lat(:jj-1), vari, lon2(:i1-1), lat2(:j2), vtmp) + ELSE + CALL grille_m (lon, lat, vari, lon1, lat1, vtmp) + END IF + CALL gr_int_dyn(vtmp, varo, i1-1, j1) + +END SUBROUTINE interp_startvar +! +!------------------------------------------------------------------------------- + +END MODULE startvar +! +!******************************************************************************* Index: /trunk/LMDZ.COMMON/libf/dynphy_lonlat/phytitan.old/wind_scal.F =================================================================== --- /trunk/LMDZ.COMMON/libf/dynphy_lonlat/phytitan.old/wind_scal.F (revision 1644) +++ /trunk/LMDZ.COMMON/libf/dynphy_lonlat/phytitan.old/wind_scal.F (revision 1644) @@ -0,0 +1,54 @@ + SUBROUTINE wind_scal(pbaru,pbarv,us,vs) +c======================================================================= +c +c +c Subject: +c ------ +c On ramene les flux de masse /vents aux points scalaires. +c +c======================================================================= + IMPLICIT NONE +c----------------------------------------------------------------------- +c Declararations: +c --------------- + +#include "dimensions.h" +#include "paramet.h" + +c Arguments: +c ---------- + + REAL pbaru(ip1jmp1,llm),pbarv(ip1jm,llm) + REAL us(ip1jmp1,llm), vs (ip1jmp1,llm) + +c Local: +c ------ + + INTEGER ij,l + +c----------------------------------------------------------------------- + +c transport zonal: +c ---------------- + DO l=1,llm + DO ij=2,ip1jmp1 + us(ij,l)=.5*(pbaru(ij,l)+pbaru(ij-1,l)) + ENDDO + ENDDO + CALL SCOPY(jjp1*llm,us(iip1,1),iip1,us(1,1),iip1) + + +c Transport meridien: +c ------------------- + DO l=1,llm + DO ij=iip2,ip1jm + vs(ij,l)=.5*(pbarv(ij,l)+pbarv(ij-iip1,l)) + ENDDO + DO ij=1,iip1 + vs(ij,l)=0. + vs(ip1jm+ij,l)=0. + ENDDO + ENDDO + + RETURN + END Index: /trunk/LMDZ.COMMON/libf/dynphy_lonlat/phytitan.old/write_archive.F =================================================================== --- /trunk/LMDZ.COMMON/libf/dynphy_lonlat/phytitan.old/write_archive.F (revision 1644) +++ /trunk/LMDZ.COMMON/libf/dynphy_lonlat/phytitan.old/write_archive.F (revision 1644) @@ -0,0 +1,198 @@ +c======================================================================= + subroutine write_archive(nid,nom,titre,unite,dim,px) +c======================================================================= +c +c +c Date: 01/1997 +c ---- +c +c Objet: Ecriture de champs sur grille scalaire (iip1*jjp1) +c ----- dans un fichier DRS nomme "start_archive" +c +c Il faut au prealable avoir cree un entete avec un "call ini_archive". +c Ces variables peuvent etre 3d (ex: temperature), 2d (ex: temperature +c de surface), ou 0d (pour un scalaire qui ne depend que du temps) +c (ex: la longitude solaire) +c +c +c Arguments: +c ---------- +c +c Inputs: +c ------ +c +c nid Unite logique du fichier "start_archive" +c nom nom du champ a ecrire dans le fichier "start_archive" +c titre titre de la variable dans le fichier DRS "start_archive" +c unite unite de la variable .... +c dim dimension de la variable a ecrire +c px tableau contenant la variable a ecrire +c +c +c======================================================================= + + USE control_mod + USE comvert_mod, ONLY: ap,bp,presnivs,pa,preff,nivsigs,nivsig, + . aps,bps,scaleheight,pseudoalt, + . disvert_type,pressure_exner + + implicit none + +#include "dimensions.h" +#include "paramet.h" +#include "comgeom.h" +#include "description.h" +#include "netcdf.inc" + +c----------------------------------------------------------------------- +c Declarations +c----------------------------------------------------------------------- + +c Arguments: + + INTEGER nid,ntime,dim + REAL px(iip1,jjp1,llm) + + CHARACTER*(*) nom, titre, unite + + integer ierr + + +c local + integer, dimension(4) :: edges,corner,id + integer :: varid,i,j,l + + ntime = 1 + +c----------------------------------------------------------------------- +c Ecriture du champs dans le fichier (3 cas) +c----------------------------------------------------------------------- + +!Cas Variable 3D +!--------------- + if (dim.eq.3) then + +! Ecriture du champs + +! nom de la variable + ierr= NF_INQ_VARID(nid,nom,varid) + if (ierr /= NF_NOERR) then +! choix du nom des coordonnees + ierr= NF_INQ_DIMID(nid,"rlonv",id(1)) + ierr= NF_INQ_DIMID(nid,"rlatu",id(2)) + ierr= NF_INQ_DIMID(nid,"sigs",id(3)) + ierr= NF_INQ_DIMID(nid,"Time",id(4)) + +! Creation de la variable si elle n'existait pas + + write (*,*) "=====================" + write (*,*) "creation de ",nom + call def_var(nid,nom,titre,unite,4,id,varid,ierr) + + endif + + corner(1)=1 + corner(2)=1 + corner(3)=1 + corner(4)=ntime + + edges(1)=iip1 + edges(2)=jjp1 + edges(3)=llm + edges(4)=1 +#ifdef NC_DOUBLE + ierr= NF_PUT_VARA_DOUBLE(nid,varid,corner,edges,px) +#else + ierr= NF_PUT_VARA_REAL(nid,varid,corner,edges,px) +#endif + + if (ierr.ne.NF_NOERR) then + write(*,*) "***** PUT_VAR matter in write_archive" + write(*,*) "***** with ",nom," ",nf_STRERROR(ierr) + call abort + endif + +!Cas Variable 2D +!--------------- + + else if (dim.eq.2) then + +! Ecriture du champs + + ierr= NF_INQ_VARID(nid,nom,varid) + if (ierr /= NF_NOERR) then +! choix du nom des coordonnees + ierr= NF_INQ_DIMID(nid,"rlonv",id(1)) + ierr= NF_INQ_DIMID(nid,"rlatu",id(2)) + ierr= NF_INQ_DIMID(nid,"Time",id(3)) + +! Creation de la variable si elle n'existait pas + + write (*,*) "=====================" + write (*,*) "creation de ",nom + + call def_var(nid,nom,titre,unite,3,id,varid,ierr) + + endif + + corner(1)=1 + corner(2)=1 + corner(3)=ntime + edges(1)=iip1 + edges(2)=jjp1 + edges(3)=1 + + +#ifdef NC_DOUBLE + ierr = NF_PUT_VARA_DOUBLE (nid,varid,corner,edges,px) +#else + ierr= NF_PUT_VARA_REAL(nid,varid,corner,edges,px) +#endif + + if (ierr.ne.NF_NOERR) then + write(*,*) "***** PUT_VAR matter in write_archive" + write(*,*) "***** with ",nom,nf_STRERROR(ierr) + call abort + endif + + +!Cas Variable 0D (scalaire dependant du temps) +!--------------------------------------------- + + else if (dim.eq.0) then + +! Ecriture du champs + + ierr= NF_INQ_VARID(nid,nom,varid) + if (ierr /= NF_NOERR) then +! choix du nom des coordonnees + ierr= NF_INQ_DIMID(nid,"temps",id(1)) + +! Creation de la variable si elle n'existait pas + + write (*,*) "=====================" + write (*,*) "creation de ",nom + + call def_var(nid,nom,titre,unite,1,id,varid,ierr) + + endif + + corner(1)=ntime + edges(1)=1 + +#ifdef NC_DOUBLE + ierr = NF_PUT_VARA_DOUBLE (nid,varid,corner,edges,px) +#else + ierr= NF_PUT_VARA_REAL(nid,varid,corner,edges,px) +#endif + if (ierr.ne.NF_NOERR) then + write(*,*) "***** PUT_VAR matter in write_archive" + write(*,*) "***** with ",nom,nf_STRERROR(ierr) + call abort + endif + + endif + + return + end + Index: /trunk/LMDZ.COMMON/libf/dynphy_lonlat/phytitan.old/writerestart.F =================================================================== --- /trunk/LMDZ.COMMON/libf/dynphy_lonlat/phytitan.old/writerestart.F (revision 1644) +++ /trunk/LMDZ.COMMON/libf/dynphy_lonlat/phytitan.old/writerestart.F (revision 1644) @@ -0,0 +1,494 @@ + SUBROUTINE writerestart(fichnom,tab_cntrl, + . phis,vcov,ucov,teta,masse,q,ps) + + USE IOIPSL + USE infotrac + USE comconst_mod + USE comvert_mod, ONLY: ap,bp,presnivs,pa,preff,nivsigs,nivsig, + . aps,bps,scaleheight,pseudoalt, + . disvert_type,pressure_exner + + IMPLICIT NONE + +c======================================================================= +c Ecriture du fichier de redemarrage sous format NetCDF (pour newstart) +c======================================================================= +c Declarations: +c ------------- +#include "dimensions.h" +#include "paramet.h" +#include "comgeom.h" +#include "netcdf.inc" +#include "description.h" + +c Arguments: +c ---------- + CHARACTER*(*) fichnom + INTEGER length + PARAMETER (length = 100) + REAL tab_cntrl(length) ! tableau des parametres du run + REAL phis(ip1jmp1) + REAL vcov(ip1jm,llm),ucov(ip1jmp1,llm) + REAL teta(ip1jmp1,llm),q(ip1jmp1,llm,nqtot) + REAL ps(ip1jmp1),masse(ip1jmp1,llm) + +c Local: +c ------ + INTEGER iq,l + INTEGER ierr + character*20 modname + character*80 abort_message + +c Variables locales pour NetCDF: +c + INTEGER dims2(2), dims3(3), dims4(4) + INTEGER idim_index + INTEGER idim_rlonu, idim_rlonv, idim_rlatu, idim_rlatv + INTEGER idim_s, idim_sig + INTEGER idim_tim + INTEGER nid,nvarid + + character*30 unites + + +c----------------------------------------------------------------------- +c Creation du fichier: +c----------------------------------------------------------------------- +c + modname='write_restart_ini' + + ierr = NF_CREATE(fichnom, NF_CLOBBER, nid) + IF (ierr.NE.NF_NOERR) THEN + WRITE(6,*)" Pb d ouverture du fichier "//fichnom + WRITE(6,*)' ierr = ', ierr + CALL ABORT + ENDIF +c +c Preciser quelques attributs globaux: +c + ierr = NF_PUT_ATT_TEXT (nid, NF_GLOBAL, "title", 27, + . "Fichier demarrage dynamique") +c +c Definir les dimensions du fichiers: +c + ierr = NF_DEF_DIM (nid, "index", length, idim_index) + ierr = NF_DEF_DIM (nid, "rlonu", iip1, idim_rlonu) + ierr = NF_DEF_DIM (nid, "rlatu", jjp1, idim_rlatu) + ierr = NF_DEF_DIM (nid, "rlonv", iip1, idim_rlonv) + ierr = NF_DEF_DIM (nid, "rlatv", jjm, idim_rlatv) + ierr = NF_DEF_DIM (nid, "sigs", llm, idim_s) + ierr = NF_DEF_DIM (nid, "sig", llmp1, idim_sig) + ierr = NF_DEF_DIM (nid, "temps", NF_UNLIMITED, idim_tim) +c + ierr = NF_ENDDEF(nid) ! sortir du mode de definition +c +c Definir et enregistrer certains champs invariants: +c + ierr = NF_REDEF (nid) +#ifdef NC_DOUBLE + ierr = NF_DEF_VAR (nid,"controle",NF_DOUBLE,1,idim_index,nvarid) +#else + ierr = NF_DEF_VAR (nid,"controle",NF_FLOAT,1,idim_index,nvarid) +#endif + ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 22, + . "Parametres de controle") + ierr = NF_ENDDEF(nid) +#ifdef NC_DOUBLE + ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,tab_cntrl) +#else + ierr = NF_PUT_VAR_REAL (nid,nvarid,tab_cntrl) +#endif +c + ierr = NF_REDEF (nid) +#ifdef NC_DOUBLE + ierr = NF_DEF_VAR (nid,"rlonu",NF_DOUBLE,1,idim_rlonu,nvarid) +#else + ierr = NF_DEF_VAR (nid,"rlonu",NF_FLOAT,1,idim_rlonu,nvarid) +#endif + ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 23, + . "Longitudes des points U") + ierr = NF_ENDDEF(nid) +#ifdef NC_DOUBLE + ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,rlonu) +#else + ierr = NF_PUT_VAR_REAL (nid,nvarid,rlonu) +#endif +c + ierr = NF_REDEF (nid) +#ifdef NC_DOUBLE + ierr = NF_DEF_VAR (nid,"rlatu",NF_DOUBLE,1,idim_rlatu,nvarid) +#else + ierr = NF_DEF_VAR (nid,"rlatu",NF_FLOAT,1,idim_rlatu,nvarid) +#endif + ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 22, + . "Latitudes des points U") + ierr = NF_ENDDEF(nid) +#ifdef NC_DOUBLE + ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,rlatu) +#else + ierr = NF_PUT_VAR_REAL (nid,nvarid,rlatu) +#endif +c + ierr = NF_REDEF (nid) +#ifdef NC_DOUBLE + ierr = NF_DEF_VAR (nid,"rlonv",NF_DOUBLE,1,idim_rlonv,nvarid) +#else + ierr = NF_DEF_VAR (nid,"rlonv",NF_FLOAT,1,idim_rlonv,nvarid) +#endif + ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 23, + . "Longitudes des points V") + ierr = NF_ENDDEF(nid) +#ifdef NC_DOUBLE + ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,rlonv) +#else + ierr = NF_PUT_VAR_REAL (nid,nvarid,rlonv) +#endif +c + ierr = NF_REDEF (nid) +#ifdef NC_DOUBLE + ierr = NF_DEF_VAR (nid,"rlatv",NF_DOUBLE,1,idim_rlatv,nvarid) +#else + ierr = NF_DEF_VAR (nid,"rlatv",NF_FLOAT,1,idim_rlatv,nvarid) +#endif + ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 22, + . "Latitudes des points V") + ierr = NF_ENDDEF(nid) +#ifdef NC_DOUBLE + ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,rlatv) +#else + ierr = NF_PUT_VAR_REAL (nid,nvarid,rlatv) +#endif +c + ierr = NF_REDEF (nid) +#ifdef NC_DOUBLE + ierr = NF_DEF_VAR (nid,"nivsigs",NF_DOUBLE,1,idim_s,nvarid) +#else + ierr = NF_DEF_VAR (nid,"nivsigs",NF_FLOAT,1,idim_s,nvarid) +#endif + ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 28, + . "Numero naturel des couches s") + ierr = NF_ENDDEF(nid) +#ifdef NC_DOUBLE + ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,nivsigs) +#else + ierr = NF_PUT_VAR_REAL (nid,nvarid,nivsigs) +#endif +c + ierr = NF_REDEF (nid) +#ifdef NC_DOUBLE + ierr = NF_DEF_VAR (nid,"nivsig",NF_DOUBLE,1,idim_sig,nvarid) +#else + ierr = NF_DEF_VAR (nid,"nivsig",NF_FLOAT,1,idim_sig,nvarid) +#endif + ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 32, + . "Numero naturel des couches sigma") + ierr = NF_ENDDEF(nid) +#ifdef NC_DOUBLE + ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,nivsig) +#else + ierr = NF_PUT_VAR_REAL (nid,nvarid,nivsig) +#endif +c + ierr = NF_REDEF (nid) +#ifdef NC_DOUBLE + ierr = NF_DEF_VAR (nid,"ap",NF_DOUBLE,1,idim_sig,nvarid) +#else + ierr = NF_DEF_VAR (nid,"ap",NF_FLOAT,1,idim_sig,nvarid) +#endif + ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 26, + . "Coefficient A pour hybride") + ierr = NF_ENDDEF(nid) +#ifdef NC_DOUBLE + ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,ap) +#else + ierr = NF_PUT_VAR_REAL (nid,nvarid,ap) +#endif +c + ierr = NF_REDEF (nid) +#ifdef NC_DOUBLE + ierr = NF_DEF_VAR (nid,"bp",NF_DOUBLE,1,idim_sig,nvarid) +#else + ierr = NF_DEF_VAR (nid,"bp",NF_FLOAT,1,idim_sig,nvarid) +#endif + ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 26, + . "Coefficient B pour hybride") + ierr = NF_ENDDEF(nid) +#ifdef NC_DOUBLE + ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,bp) +#else + ierr = NF_PUT_VAR_REAL (nid,nvarid,bp) +#endif +c + ierr = NF_REDEF (nid) +#ifdef NC_DOUBLE + ierr = NF_DEF_VAR (nid,"presnivs",NF_DOUBLE,1,idim_s,nvarid) +#else + ierr = NF_DEF_VAR (nid,"presnivs",NF_FLOAT,1,idim_s,nvarid) +#endif + ierr = NF_ENDDEF(nid) +#ifdef NC_DOUBLE + ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,presnivs) +#else + ierr = NF_PUT_VAR_REAL (nid,nvarid,presnivs) +#endif +c +c Coefficients de passage cov. <-> contra. <--> naturel +c + ierr = NF_REDEF (nid) + dims2(1) = idim_rlonu + dims2(2) = idim_rlatu +#ifdef NC_DOUBLE + ierr = NF_DEF_VAR (nid,"cu",NF_DOUBLE,2,dims2,nvarid) +#else + ierr = NF_DEF_VAR (nid,"cu",NF_FLOAT,2,dims2,nvarid) +#endif + ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 29, + . "Coefficient de passage pour U") + ierr = NF_ENDDEF(nid) +#ifdef NC_DOUBLE + ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,cu) +#else + ierr = NF_PUT_VAR_REAL (nid,nvarid,cu) +#endif +c + ierr = NF_REDEF (nid) + dims2(1) = idim_rlonv + dims2(2) = idim_rlatv +#ifdef NC_DOUBLE + ierr = NF_DEF_VAR (nid,"cv",NF_DOUBLE,2,dims2,nvarid) +#else + ierr = NF_DEF_VAR (nid,"cv",NF_FLOAT,2,dims2,nvarid) +#endif + ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 29, + . "Coefficient de passage pour V") + ierr = NF_ENDDEF(nid) +#ifdef NC_DOUBLE + ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,cv) +#else + ierr = NF_PUT_VAR_REAL (nid,nvarid,cv) +#endif +c +c Aire de chaque maille: +c + ierr = NF_REDEF (nid) + dims2(1) = idim_rlonv + dims2(2) = idim_rlatu +#ifdef NC_DOUBLE + ierr = NF_DEF_VAR (nid,"aire",NF_DOUBLE,2,dims2,nvarid) +#else + ierr = NF_DEF_VAR (nid,"aire",NF_FLOAT,2,dims2,nvarid) +#endif + ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 22, + . "Aires de chaque maille") + ierr = NF_ENDDEF(nid) +#ifdef NC_DOUBLE + ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,aire) +#else + ierr = NF_PUT_VAR_REAL (nid,nvarid,aire) +#endif +c +c Geopentiel au sol: +c + ierr = NF_REDEF (nid) + dims2(1) = idim_rlonv + dims2(2) = idim_rlatu +#ifdef NC_DOUBLE + ierr = NF_DEF_VAR (nid,"phisinit",NF_DOUBLE,2,dims2,nvarid) +#else + ierr = NF_DEF_VAR (nid,"phisinit",NF_FLOAT,2,dims2,nvarid) +#endif + ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 19, + . "Geopotentiel au sol") + ierr = NF_ENDDEF(nid) +#ifdef NC_DOUBLE + ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,phis) +#else + ierr = NF_PUT_VAR_REAL (nid,nvarid,phis) +#endif +c +c Definir les variables pour pouvoir les enregistrer plus tard: +c + ierr = NF_REDEF (nid) ! entrer dans le mode de definition +c +#ifdef NC_DOUBLE + ierr = NF_DEF_VAR (nid,"temps",NF_DOUBLE,1,idim_tim,nvarid) +#else + ierr = NF_DEF_VAR (nid,"temps",NF_FLOAT,1,idim_tim,nvarid) +#endif + ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 19, + . "Temps de simulation") + write(unites,200) 1990,1,1 +200 format('days since ',i4,'-',i2.2,'-',i2.2,' 00:00:00') + ierr = NF_PUT_ATT_TEXT (nid, nvarid, "units", 30, + . unites) + +c + dims4(1) = idim_rlonu + dims4(2) = idim_rlatu + dims4(3) = idim_s + dims4(4) = idim_tim +#ifdef NC_DOUBLE + ierr = NF_DEF_VAR (nid,"ucov",NF_DOUBLE,4,dims4,nvarid) +#else + ierr = NF_DEF_VAR (nid,"ucov",NF_FLOAT,4,dims4,nvarid) +#endif + ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 9, + . "Vitesse U") +c + dims4(1) = idim_rlonv + dims4(2) = idim_rlatv + dims4(3) = idim_s + dims4(4) = idim_tim +#ifdef NC_DOUBLE + ierr = NF_DEF_VAR (nid,"vcov",NF_DOUBLE,4,dims4,nvarid) +#else + ierr = NF_DEF_VAR (nid,"vcov",NF_FLOAT,4,dims4,nvarid) +#endif + ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 9, + . "Vitesse V") +c + dims4(1) = idim_rlonv + dims4(2) = idim_rlatu + dims4(3) = idim_s + dims4(4) = idim_tim +#ifdef NC_DOUBLE + ierr = NF_DEF_VAR (nid,"teta",NF_DOUBLE,4,dims4,nvarid) +#else + ierr = NF_DEF_VAR (nid,"teta",NF_FLOAT,4,dims4,nvarid) +#endif + ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 11, + . "Temperature") +c + dims4(1) = idim_rlonv + dims4(2) = idim_rlatu + dims4(3) = idim_s + dims4(4) = idim_tim + DO iq=1,nqtot +#ifdef NC_DOUBLE + ierr = NF_DEF_VAR (nid,tname(iq),NF_DOUBLE,4,dims4,nvarid) +#else + ierr = NF_DEF_VAR (nid,tname(iq),NF_FLOAT,4,dims4,nvarid) +#endif + ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 12,ttext(iq)) + ENDDO +c + dims4(1) = idim_rlonv + dims4(2) = idim_rlatu + dims4(3) = idim_s + dims4(4) = idim_tim +#ifdef NC_DOUBLE + ierr = NF_DEF_VAR (nid,"masse",NF_DOUBLE,4,dims4,nvarid) +#else + ierr = NF_DEF_VAR (nid,"masse",NF_FLOAT,4,dims4,nvarid) +#endif + ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 12, + . "C est quoi ?") +c + dims3(1) = idim_rlonv + dims3(2) = idim_rlatu + dims3(3) = idim_tim +#ifdef NC_DOUBLE + ierr = NF_DEF_VAR (nid,"ps",NF_DOUBLE,3,dims3,nvarid) +#else + ierr = NF_DEF_VAR (nid,"ps",NF_FLOAT,3,dims3,nvarid) +#endif + ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 15, + . "Pression au sol") +c + ierr = NF_ENDDEF(nid) ! sortir du mode de definition + +c----------------------------------------------------------------------- +c Ecriture des variables: +c----------------------------------------------------------------------- +c + modname='write_restart' + + ierr = NF_INQ_VARID(nid, "temps", nvarid) + IF (ierr .NE. NF_NOERR) THEN + print *, NF_STRERROR(ierr) + abort_message='Variable temps n est pas definie' + CALL abort_gcm(modname,abort_message,ierr) + ENDIF +#ifdef NC_DOUBLE + ierr = NF_PUT_VAR1_DOUBLE (nid,nvarid,1,0.) +#else + ierr = NF_PUT_VAR1_REAL (nid,nvarid,1,0.) +#endif + + ierr = NF_INQ_VARID(nid, "ucov", nvarid) + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "Variable ucov n est pas definie" + CALL abort + ENDIF +#ifdef NC_DOUBLE + ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,ucov) +#else + ierr = NF_PUT_VAR_REAL (nid,nvarid,ucov) +#endif + + ierr = NF_INQ_VARID(nid, "vcov", nvarid) + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "Variable vcov n est pas definie" + CALL abort + ENDIF +#ifdef NC_DOUBLE + ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,vcov) +#else + ierr = NF_PUT_VAR_REAL (nid,nvarid,vcov) +#endif + + ierr = NF_INQ_VARID(nid, "teta", nvarid) + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "Variable teta n est pas definie" + CALL abort + ENDIF +#ifdef NC_DOUBLE + ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,teta) +#else + ierr = NF_PUT_VAR_REAL (nid,nvarid,teta) +#endif + + do iq=1,nqtot + ierr = NF_INQ_VARID(nid, tname(iq), nvarid) + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "Variable tname(iq) n est pas definie" + CALL abort + ENDIF +#ifdef NC_DOUBLE + ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,q(1,1,iq)) +#else + ierr = NF_PUT_VAR_REAL (nid,nvarid,q(1,1,iq)) +#endif + ENDDO +c + ierr = NF_INQ_VARID(nid, "masse", nvarid) + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "Variable masse n est pas definie" + CALL abort + ENDIF +#ifdef NC_DOUBLE + ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,masse) +#else + ierr = NF_PUT_VAR_REAL (nid,nvarid,masse) +#endif +c + ierr = NF_INQ_VARID(nid, "ps", nvarid) + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "Variable ps n est pas definie" + CALL abort + ENDIF +#ifdef NC_DOUBLE + ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,ps) +#else + ierr = NF_PUT_VAR_REAL (nid,nvarid,ps) +#endif + + ierr = NF_CLOSE(nid) ! fermer le fichier + +c PRINT*,'iim,jjm,llm,iday_end',iim,jjm,llm,iday_end +c PRINT*,'rad,omeg,g,cpp,kappa', +c , rad,omeg,g,cpp,kappa + + RETURN + END + Index: /trunk/LMDZ.COMMON/libf/dynphy_lonlat/phytitan.old/writerestartphy.F =================================================================== --- /trunk/LMDZ.COMMON/libf/dynphy_lonlat/phytitan.old/writerestartphy.F (revision 1644) +++ /trunk/LMDZ.COMMON/libf/dynphy_lonlat/phytitan.old/writerestartphy.F (revision 1644) @@ -0,0 +1,343 @@ + SUBROUTINE writerestartphy(fichnom,tab_cntrl,klon,klev, + . rlat,rlon, tsol,tsoil, + . albedo, + . solsw, sollw,fder, + . radsol, + . zmea, zstd, zsig, zgam, zthe, zpic, zval, + . t_ancien) + + +c====================================================================== +c Ecriture de l'etat de redemarrage pour la physique (pour newstart) +c====================================================================== + IMPLICIT none +#include "dimensions.h" +#include "netcdf.inc" +#include "dimsoil.h" +c====================================================================== + CHARACTER*13 fichnom + INTEGER length,klon,klev + PARAMETER (length=100) + REAL tab_cntrl(length) + REAL rlat(klon), rlon(klon) + REAL tsol(klon) + REAL tsoil(klon,nsoilmx) + REAL albedo(klon) + real solsw(klon) + real sollw(klon) + real fder(klon) + REAL radsol(klon) + REAL zmea(klon), zstd(klon) + REAL zsig(klon), zgam(klon), zthe(klon) + REAL zpic(klon), zval(klon) + REAL t_ancien(klon,klev) +c + INTEGER nid, nvarid, idim1, idim2, idim3 + INTEGER ierr +c + INTEGER isoil + CHARACTER*2 str2 +c +c----------------------------------------------------------------------- +c Creation du fichier: +c----------------------------------------------------------------------- +c +c print*,'fichnom',fichnom + ierr = NF_CREATE(fichnom, NF_CLOBBER, nid) + IF (ierr.NE.NF_NOERR) THEN + write(6,*)' Pb d''ouverture du fichier '//fichnom + write(6,*)' ierr = ', ierr + CALL ABORT + ENDIF +c + ierr = NF_PUT_ATT_TEXT (nid, NF_GLOBAL, "title", 28, + . "Fichier redemarrage physique") +c + ierr = NF_DEF_DIM (nid, "index", length, idim1) + ierr = NF_DEF_DIM (nid, "points_physiques", klon, idim2) + ierr = NF_DEF_DIM (nid, "horizon_vertical", klon*klev, idim3) +c + +#ifdef NC_DOUBLE + ierr = NF_DEF_VAR (nid, "controle", NF_DOUBLE, 1, idim1,nvarid) +#else + ierr = NF_DEF_VAR (nid, "controle", NF_FLOAT, 1, idim1,nvarid) +#endif + ierr = NF_PUT_ATT_TEXT (nid,nvarid,"title", 22, + . "Parametres de controle") + ierr = NF_ENDDEF(nid) +#ifdef NC_DOUBLE + ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,tab_cntrl) +#else + ierr = NF_PUT_VAR_REAL (nid,nvarid,tab_cntrl) +#endif +c + ierr = NF_REDEF (nid) +#ifdef NC_DOUBLE + ierr = NF_DEF_VAR (nid, "longitude", NF_DOUBLE, 1, idim2,nvarid) +#else + ierr = NF_DEF_VAR (nid, "longitude", NF_FLOAT, 1, idim2,nvarid) +#endif + ierr = NF_PUT_ATT_TEXT (nid,nvarid,"title", 32, + . "Longitudes de la grille physique") + ierr = NF_ENDDEF(nid) +#ifdef NC_DOUBLE + ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,rlon) +#else + ierr = NF_PUT_VAR_REAL (nid,nvarid,rlon) +#endif +c + ierr = NF_REDEF (nid) +#ifdef NC_DOUBLE + ierr = NF_DEF_VAR (nid, "latitude", NF_DOUBLE, 1, idim2,nvarid) +#else + ierr = NF_DEF_VAR (nid, "latitude", NF_FLOAT, 1, idim2,nvarid) +#endif + ierr = NF_PUT_ATT_TEXT (nid,nvarid,"title", 31, + . "Latitudes de la grille physique") + ierr = NF_ENDDEF(nid) +#ifdef NC_DOUBLE + ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,rlat) +#else + ierr = NF_PUT_VAR_REAL (nid,nvarid,rlat) +#endif +c +c----------------------------------------------------------------------- +c Ecriture des variables: +c----------------------------------------------------------------------- +c + ierr = NF_REDEF (nid) +#ifdef NC_DOUBLE + ierr = NF_DEF_VAR (nid, "TS", NF_DOUBLE, 1, idim2,nvarid) +#else + ierr = NF_DEF_VAR (nid, "TS", NF_FLOAT, 1, idim2,nvarid) +#endif + ierr = NF_PUT_ATT_TEXT (nid,nvarid,"title", 22, + . "Temperature de surface") + ierr = NF_ENDDEF(nid) +#ifdef NC_DOUBLE + ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,tsol) +#else + ierr = NF_PUT_VAR_REAL (nid,nvarid,tsol) +#endif +c + DO isoil=1, nsoilmx + IF (isoil.LE.99) THEN + WRITE(str2,'(i2.2)') isoil + ierr = NF_REDEF (nid) +#ifdef NC_DOUBLE + ierr = NF_DEF_VAR (nid, "Tsoil"//str2,NF_DOUBLE,1,idim2,nvarid) +#else + ierr = NF_DEF_VAR (nid, "Tsoil"//str2,NF_FLOAT,1,idim2,nvarid) +#endif + ierr = NF_PUT_ATT_TEXT (nid,nvarid,"title", 24, + . "Temperature du sol No."//str2) + ierr = NF_ENDDEF(nid) + ELSE + PRINT*, "Trop de couches" + CALL abort + ENDIF +#ifdef NC_DOUBLE + ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,tsoil(1,isoil)) +#else + ierr = NF_PUT_VAR_REAL (nid,nvarid,tsoil(1,isoil)) +#endif + ENDDO +c + ierr = NF_REDEF (nid) +#ifdef NC_DOUBLE + ierr = NF_DEF_VAR (nid,"ALBE",NF_DOUBLE,1,idim2,nvarid) +#else + ierr = NF_DEF_VAR (nid,"ALBE",NF_FLOAT,1,idim2,nvarid) +#endif + ierr = NF_PUT_ATT_TEXT (nid,nvarid,"title", 18, + . "albedo de surface") + ierr = NF_ENDDEF(nid) +#ifdef NC_DOUBLE + ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,albedo) +#else + ierr = NF_PUT_VAR_REAL (nid,nvarid,albedo) +#endif +c + ierr = NF_REDEF (nid) +#ifdef NC_DOUBLE + ierr = NF_DEF_VAR (nid, "solsw", NF_DOUBLE, 1, idim2,nvarid) +#else + ierr = NF_DEF_VAR (nid, "solsw", NF_FLOAT, 1, idim2,nvarid) +#endif + ierr = NF_PUT_ATT_TEXT (nid,nvarid,"title", 32, + . "Rayonnement solaire a la surface") + ierr = NF_ENDDEF(nid) +#ifdef NC_DOUBLE + ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,solsw) +#else + ierr = NF_PUT_VAR_REAL (nid,nvarid,solsw) +#endif +c + ierr = NF_REDEF (nid) +#ifdef NC_DOUBLE + ierr = NF_DEF_VAR (nid, "sollw", NF_DOUBLE, 1, idim2,nvarid) +#else + ierr = NF_DEF_VAR (nid, "sollw", NF_FLOAT, 1, idim2,nvarid) +#endif + ierr = NF_PUT_ATT_TEXT (nid,nvarid,"title", 27, + . "Rayonnement IF a la surface") + ierr = NF_ENDDEF(nid) +#ifdef NC_DOUBLE + ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,sollw) +#else + ierr = NF_PUT_VAR_REAL (nid,nvarid,sollw) +#endif +c + ierr = NF_REDEF (nid) +#ifdef NC_DOUBLE + ierr = NF_DEF_VAR (nid, "fder", NF_DOUBLE, 1, idim2,nvarid) +#else + ierr = NF_DEF_VAR (nid, "fder", NF_FLOAT, 1, idim2,nvarid) +#endif + ierr = NF_PUT_ATT_TEXT (nid,nvarid,"title", 14, + . "Derive de flux") + ierr = NF_ENDDEF(nid) +#ifdef NC_DOUBLE + ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,fder) +#else + ierr = NF_PUT_VAR_REAL (nid,nvarid,fder) +#endif +c + ierr = NF_REDEF (nid) +#ifdef NC_DOUBLE + ierr = NF_DEF_VAR (nid, "RADS", NF_DOUBLE, 1, idim2,nvarid) +#else + ierr = NF_DEF_VAR (nid, "RADS", NF_FLOAT, 1, idim2,nvarid) +#endif + ierr = NF_PUT_ATT_TEXT (nid,nvarid,"title", 28, + . "Rayonnement net a la surface") + ierr = NF_ENDDEF(nid) +#ifdef NC_DOUBLE + ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,radsol) +#else + ierr = NF_PUT_VAR_REAL (nid,nvarid,radsol) +#endif +c + ierr = NF_REDEF (nid) +#ifdef NC_DOUBLE + ierr = NF_DEF_VAR (nid, "ZMEA", NF_DOUBLE, 1, idim2,nvarid) +#else + ierr = NF_DEF_VAR (nid, "ZMEA", NF_FLOAT, 1, idim2,nvarid) +#endif + ierr = NF_PUT_ATT_TEXT (nid,nvarid,"title", 28, + . "zmea Orographie sous-maille") + ierr = NF_ENDDEF(nid) +#ifdef NC_DOUBLE + ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,zmea) +#else + ierr = NF_PUT_VAR_REAL (nid,nvarid,zmea) +#endif +c + ierr = NF_REDEF (nid) +#ifdef NC_DOUBLE + ierr = NF_DEF_VAR (nid, "ZSTD", NF_DOUBLE, 1, idim2,nvarid) +#else + ierr = NF_DEF_VAR (nid, "ZSTD", NF_FLOAT, 1, idim2,nvarid) +#endif + ierr = NF_PUT_ATT_TEXT (nid,nvarid,"title", 28, + . "zstd Orographie sous-maille") + ierr = NF_ENDDEF(nid) +#ifdef NC_DOUBLE + ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,zstd) +#else + ierr = NF_PUT_VAR_REAL (nid,nvarid,zstd) +#endif +c + ierr = NF_REDEF (nid) +#ifdef NC_DOUBLE + ierr = NF_DEF_VAR (nid, "ZSIG", NF_DOUBLE, 1, idim2,nvarid) +#else + ierr = NF_DEF_VAR (nid, "ZSIG", NF_FLOAT, 1, idim2,nvarid) +#endif + ierr = NF_PUT_ATT_TEXT (nid,nvarid,"title", 28, + . "zsig Orographie sous-maille") + ierr = NF_ENDDEF(nid) +#ifdef NC_DOUBLE + ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,zsig) +#else + ierr = NF_PUT_VAR_REAL (nid,nvarid,zsig) +#endif +c + ierr = NF_REDEF (nid) +#ifdef NC_DOUBLE + ierr = NF_DEF_VAR (nid, "ZGAM", NF_DOUBLE, 1, idim2,nvarid) +#else + ierr = NF_DEF_VAR (nid, "ZGAM", NF_FLOAT, 1, idim2,nvarid) +#endif + ierr = NF_PUT_ATT_TEXT (nid,nvarid,"title", 28, + . "zgam Orographie sous-maille") + ierr = NF_ENDDEF(nid) +#ifdef NC_DOUBLE + ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,zgam) +#else + ierr = NF_PUT_VAR_REAL (nid,nvarid,zgam) +#endif +c + ierr = NF_REDEF (nid) +#ifdef NC_DOUBLE + ierr = NF_DEF_VAR (nid, "ZTHE", NF_DOUBLE, 1, idim2,nvarid) +#else + ierr = NF_DEF_VAR (nid, "ZTHE", NF_FLOAT, 1, idim2,nvarid) +#endif + ierr = NF_PUT_ATT_TEXT (nid,nvarid,"title", 28, + . "zthe Orographie sous-maille") + ierr = NF_ENDDEF(nid) +#ifdef NC_DOUBLE + ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,zthe) +#else + ierr = NF_PUT_VAR_REAL (nid,nvarid,zthe) +#endif +c + ierr = NF_REDEF (nid) +#ifdef NC_DOUBLE + ierr = NF_DEF_VAR (nid, "ZPIC", NF_DOUBLE, 1, idim2,nvarid) +#else + ierr = NF_DEF_VAR (nid, "ZPIC", NF_FLOAT, 1, idim2,nvarid) +#endif + ierr = NF_PUT_ATT_TEXT (nid,nvarid,"title", 28, + . "zpic Orographie sous-maille") + ierr = NF_ENDDEF(nid) +#ifdef NC_DOUBLE + ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,zpic) +#else + ierr = NF_PUT_VAR_REAL (nid,nvarid,zpic) +#endif +c + ierr = NF_REDEF (nid) +#ifdef NC_DOUBLE + ierr = NF_DEF_VAR (nid, "ZVAL", NF_DOUBLE, 1, idim2,nvarid) +#else + ierr = NF_DEF_VAR (nid, "ZVAL", NF_FLOAT, 1, idim2,nvarid) +#endif + ierr = NF_PUT_ATT_TEXT (nid,nvarid,"title", 28, + . "zval Orographie sous-maille") + ierr = NF_ENDDEF(nid) +#ifdef NC_DOUBLE + ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,zval) +#else + ierr = NF_PUT_VAR_REAL (nid,nvarid,zval) +#endif +c + ierr = NF_REDEF (nid) +#ifdef NC_DOUBLE + ierr = NF_DEF_VAR (nid, "TANCIEN", NF_DOUBLE, 1, idim3,nvarid) +#else + ierr = NF_DEF_VAR (nid, "TANCIEN", NF_FLOAT, 1, idim3,nvarid) +#endif + ierr = NF_ENDDEF(nid) +#ifdef NC_DOUBLE + ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,t_ancien) +#else + ierr = NF_PUT_VAR_REAL (nid,nvarid,t_ancien) +#endif +c + ierr = NF_CLOSE(nid) +c + RETURN + END Index: /trunk/LMDZ.TITAN/DOC/Fig/grid.fig =================================================================== --- /trunk/LMDZ.TITAN/DOC/Fig/grid.fig (revision 1644) +++ /trunk/LMDZ.TITAN/DOC/Fig/grid.fig (revision 1644) @@ -0,0 +1,588 @@ +#FIG 2.1 +80 2 +6 134 449 369 674 +1 4 0 1 0 0 0 11 0.00000 1 0.000 359 459 5 5 354 454 364 464 +1 4 0 1 0 0 0 11 0.00000 1 0.000 159 459 5 5 154 454 164 464 +1 4 0 1 0 0 0 11 0.00000 1 0.000 259 459 5 5 254 454 264 464 +1 4 0 1 0 0 0 11 0.00000 1 0.000 359 659 5 5 354 654 364 664 +1 4 0 1 0 0 0 11 0.00000 1 0.000 359 559 5 5 354 554 364 564 +1 4 0 1 0 0 0 11 0.00000 1 0.000 159 659 5 5 154 654 164 664 +1 4 0 1 0 0 0 11 0.00000 1 0.000 259 659 5 5 254 654 264 664 +1 4 0 1 0 0 0 11 0.00000 1 0.000 259 559 5 5 254 554 264 564 +1 4 0 1 0 0 0 11 0.00000 1 0.000 159 559 5 5 154 554 164 564 +2 1 0 1 0 0 0 6 0.000 -1 1 0 + 0 0 1.000 4.000 8.000 + 179 459 239 459 9999 9999 +2 1 0 1 0 0 0 21 0.000 -1 0 0 + 204 454 204 464 9999 9999 +2 1 0 1 0 0 0 6 0.000 -1 1 0 + 0 0 1.000 4.000 8.000 + 279 459 339 459 9999 9999 +2 1 0 1 0 0 0 21 0.000 -1 0 0 + 304 454 304 464 9999 9999 +2 1 0 1 -1 0 0 0 0.000 -1 0 1 + 0 0 1.000 4.000 8.000 + 359 579 359 639 9999 9999 +2 1 0 1 0 0 0 21 0.000 -1 0 0 + 354 609 364 609 9999 9999 +2 1 0 1 -1 0 0 0 0.000 -1 0 1 + 0 0 1.000 4.000 8.000 + 359 479 359 539 9999 9999 +2 1 0 1 0 0 0 21 0.000 -1 0 0 + 354 509 364 509 9999 9999 +2 1 0 1 0 0 0 6 0.000 -1 1 0 + 0 0 1.000 4.000 8.000 + 179 659 239 659 9999 9999 +2 1 0 1 0 0 0 21 0.000 -1 0 0 + 204 654 204 664 9999 9999 +2 1 0 1 -1 0 0 0 0.000 -1 0 1 + 0 0 1.000 4.000 8.000 + 159 579 159 639 9999 9999 +2 1 0 1 0 0 0 21 0.000 -1 0 0 + 154 609 164 609 9999 9999 +2 1 0 1 0 0 0 6 0.000 -1 1 0 + 0 0 1.000 4.000 8.000 + 279 659 339 659 9999 9999 +2 1 0 1 0 0 0 21 0.000 -1 0 0 + 304 654 304 664 9999 9999 +2 1 0 1 0 0 0 21 0.000 -1 0 0 + 254 609 264 609 9999 9999 +2 1 0 1 -1 0 0 0 0.000 -1 0 1 + 0 0 1.000 4.000 8.000 + 259 479 259 539 9999 9999 +2 1 0 1 0 0 0 21 0.000 -1 0 0 + 254 509 264 509 9999 9999 +2 1 0 1 -1 0 0 0 0.000 -1 0 1 + 0 0 1.000 4.000 8.000 + 159 479 159 539 9999 9999 +2 1 0 1 0 0 0 21 0.000 -1 0 0 + 154 509 164 509 9999 9999 +2 1 0 1 -1 0 0 0 0.000 -1 0 1 + 0 0 1.000 4.000 8.000 + 259 579 259 639 9999 9999 +2 1 0 1 0 0 0 6 0.000 -1 1 0 + 0 0 1.000 4.000 8.000 + 279 559 339 559 9999 9999 +2 1 0 1 0 0 0 21 0.000 -1 0 0 + 304 554 304 564 9999 9999 +2 1 0 1 0 0 0 6 0.000 -1 1 0 + 0 0 1.000 4.000 8.000 + 179 559 239 559 9999 9999 +2 1 0 1 0 0 0 21 0.000 -1 0 0 + 204 554 204 564 9999 9999 +2 2 0 1 -1 0 0 0 0.000 0 0 0 + 369 469 369 449 349 449 349 469 369 469 9999 9999 +2 2 0 1 -1 0 0 0 0.000 0 0 0 + 169 469 169 449 149 449 149 469 169 469 9999 9999 +2 2 0 1 -1 0 0 0 0.000 0 0 0 + 169 569 169 549 149 549 149 569 169 569 9999 9999 +2 2 0 1 -1 0 0 0 0.000 0 0 0 + 269 569 269 549 249 549 249 569 269 569 9999 9999 +2 2 0 1 -1 0 0 0 0.000 0 0 0 + 269 469 269 449 249 449 249 469 269 469 9999 9999 +2 2 0 1 -1 0 0 0 0.000 0 0 0 + 369 569 369 549 349 549 349 569 369 569 9999 9999 +2 2 0 1 -1 0 0 0 0.000 0 0 0 + 169 669 169 649 149 649 149 669 169 669 9999 9999 +4 0 0 20 0 0 0 0.00000 4 16 6 344 609 v +4 0 0 20 0 0 0 0.00000 4 16 6 344 509 v +4 0 0 20 0 0 0 0.00000 4 16 6 144 609 v +4 0 0 20 0 0 0 0.00000 4 16 6 244 609 v +4 0 0 20 0 0 0 0.00000 4 16 6 244 509 v +4 0 0 20 0 0 0 0.00000 4 16 6 144 509 v +4 0 0 20 0 -1 0 0.00000 4 18 14 334 549 16 +4 0 0 20 0 -1 0 0.00000 4 18 14 234 549 15 +4 0 0 20 0 -1 0 0.00000 4 18 14 134 549 14 +4 0 0 20 0 0 0 0.00000 4 16 6 204 474 u +4 0 0 20 0 0 0 0.00000 4 16 6 204 574 u +4 0 0 20 0 0 0 0.00000 4 16 6 304 474 u +4 0 0 20 0 0 0 0.00000 4 16 6 304 574 u +4 0 0 20 0 0 0 0.00000 4 16 6 204 674 u +4 0 0 20 0 0 0 0.00000 4 16 6 304 674 u +4 0 0 20 0 -1 0 0.00000 4 18 14 139 649 20 +-6 +6 579 84 774 129 +1 4 0 1 0 0 0 11 0.00000 1 0.000 619 109 5 5 614 104 624 114 +2 2 0 1 -1 0 0 0 0.000 0 0 0 + 629 119 629 99 609 99 609 119 629 119 9999 9999 +2 1 0 1 -1 100 0 2 0.000 -1 0 0 + 579 84 649 84 649 129 579 129 9999 9999 +4 0 0 20 0 -1 0 0.00000 4 18 84 689 109 grille physique +-6 +6 739 714 824 819 +2 1 0 2 -1 100 0 6 0.000 -1 0 1 + 0 0 2.000 8.000 16.000 + 759 719 759 759 9999 9999 +2 1 0 2 -1 100 0 6 0.000 -1 0 1 + 0 0 2.000 8.000 16.000 + 804 719 804 799 9999 9999 +4 1 0 20 0 0 0 0.00000 4 18 33 759 779 rlonv +4 1 0 20 0 0 0 0.00000 4 18 33 804 819 rlonu +-6 +6 484 804 579 884 +6 484 804 579 884 +4 0 0 20 0 0 0 0.00000 4 18 95 484 824 rlonu (1,IM+1) +4 0 0 20 0 0 0 0.00000 4 18 95 484 844 rlonv (1,IM+1) +4 0 0 20 0 0 0 0.00000 4 18 70 484 884 rlatv(1,JM) +4 0 0 20 0 0 0 0.00000 4 18 91 484 864 rlatu (1,JM+1) +-6 +-6 +1 4 0 1 0 0 0 11 0.00000 1 0.000 620 58 5 5 615 53 625 63 +1 4 0 1 0 0 0 11 0.00000 1 0.000 459 459 5 5 454 454 464 464 +1 4 0 1 0 0 0 11 0.00000 1 0.000 459 359 5 5 454 354 464 364 +1 4 0 1 0 0 0 11 0.00000 1 0.000 359 359 5 5 354 354 364 364 +1 4 0 1 0 0 0 11 0.00000 1 0.000 459 259 5 5 454 254 464 264 +1 4 0 1 0 0 0 11 0.00000 1 0.000 359 259 5 5 354 254 364 264 +1 4 0 1 0 0 0 11 0.00000 1 0.000 259 359 5 5 254 354 264 364 +1 4 0 1 0 0 0 11 0.00000 1 0.000 159 359 5 5 154 354 164 364 +1 4 0 1 0 0 0 11 0.00000 1 0.000 259 259 5 5 254 254 264 264 +1 4 0 1 0 0 0 11 0.00000 1 0.000 159 259 5 5 154 254 164 264 +1 4 0 1 0 0 0 11 0.00000 1 0.000 459 659 5 5 454 654 464 664 +1 4 0 1 0 0 0 11 0.00000 1 0.000 459 559 5 5 454 554 464 564 +1 4 0 1 0 0 0 11 0.00000 1 0.000 559 459 5 5 554 454 564 464 +1 4 0 1 0 0 0 11 0.00000 1 0.000 559 359 5 5 554 354 564 364 +1 4 0 1 0 0 0 11 0.00000 1 0.000 559 259 5 5 554 254 564 264 +1 4 0 1 0 0 0 11 0.00000 1 0.000 559 659 5 5 554 654 564 664 +1 4 0 1 0 0 0 11 0.00000 1 0.000 559 559 5 5 554 554 564 564 +1 4 0 1 0 0 0 11 0.00000 1 0.000 759 459 5 5 754 454 764 464 +1 4 0 1 0 0 0 11 0.00000 1 0.000 759 359 5 5 754 354 764 364 +1 4 0 1 0 0 0 11 0.00000 1 0.000 759 259 5 5 754 254 764 264 +1 4 0 1 0 0 0 11 0.00000 1 0.000 759 659 5 5 754 654 764 664 +1 4 0 1 0 0 0 11 0.00000 1 0.000 759 559 5 5 754 554 764 564 +1 4 0 1 0 0 0 11 0.00000 1 0.000 659 459 5 5 654 454 664 464 +1 4 0 1 0 0 0 11 0.00000 1 0.000 659 359 5 5 654 354 664 364 +1 4 0 1 0 0 0 11 0.00000 1 0.000 659 259 5 5 654 254 664 264 +1 4 0 1 0 0 0 11 0.00000 1 0.000 659 659 5 5 654 654 664 664 +1 4 0 1 0 0 0 11 0.00000 1 0.000 659 559 5 5 654 554 664 564 +1 4 0 1 -1 0 0 6 0.00000 1 0.000 41 194 17 17 34 179 49 209 +1 4 0 1 -1 0 0 6 0.00000 1 0.000 89 174 18 18 79 159 99 189 +1 4 0 1 0 0 0 11 0.00000 1 0.000 259 859 5 5 254 854 264 864 +1 4 0 1 0 0 0 11 0.00000 1 0.000 259 759 5 5 254 754 264 764 +1 4 0 1 0 0 0 11 0.00000 1 0.000 359 859 5 5 354 854 364 864 +1 4 0 1 0 0 0 11 0.00000 1 0.000 259 959 5 5 254 954 264 964 +1 4 0 1 0 0 0 11 0.00000 1 0.000 159 859 5 5 154 854 164 864 +2 1 0 1 -1 0 0 0 0.000 -1 0 0 + 49 169 89 209 9999 9999 +2 1 0 1 -1 0 0 6 0.000 -1 0 0 + 89 209 869 209 9999 9999 +2 1 0 1 -1 0 0 6 0.000 -1 0 0 + 89 209 89 699 9999 9999 +2 1 0 1 0 0 0 6 0.000 -1 1 0 + 0 0 1.000 4.000 8.000 + 379 459 439 459 9999 9999 +2 1 0 1 0 0 0 21 0.000 -1 0 0 + 404 454 404 464 9999 9999 +2 1 0 1 -1 0 0 0 0.000 -1 0 1 + 0 0 1.000 4.000 8.000 + 359 379 359 439 9999 9999 +2 1 0 1 0 0 0 21 0.000 -1 0 0 + 354 409 364 409 9999 9999 +2 1 0 1 0 0 0 6 0.000 -1 1 0 + 0 0 1.000 4.000 8.000 + 479 459 539 459 9999 9999 +2 1 0 1 0 0 0 21 0.000 -1 0 0 + 504 454 504 464 9999 9999 +2 1 0 1 0 0 0 21 0.000 -1 0 0 + 454 409 464 409 9999 9999 +2 1 0 1 -1 0 0 0 0.000 -1 0 1 + 0 0 1.000 4.000 8.000 + 459 279 459 339 9999 9999 +2 1 0 1 0 0 0 21 0.000 -1 0 0 + 454 309 464 309 9999 9999 +2 1 0 1 -1 0 0 0 0.000 -1 0 1 + 0 0 1.000 4.000 8.000 + 359 279 359 339 9999 9999 +2 1 0 1 0 0 0 21 0.000 -1 0 0 + 354 309 364 309 9999 9999 +2 1 0 1 -1 0 0 0 0.000 -1 0 1 + 0 0 1.000 4.000 8.000 + 459 379 459 439 9999 9999 +2 1 0 1 0 0 0 6 0.000 -1 1 0 + 0 0 1.000 4.000 8.000 + 479 359 539 359 9999 9999 +2 1 0 1 0 0 0 21 0.000 -1 0 0 + 504 354 504 364 9999 9999 +2 1 0 1 0 0 0 6 0.000 -1 1 0 + 0 0 1.000 4.000 8.000 + 379 359 439 359 9999 9999 +2 1 0 1 0 0 0 21 0.000 -1 0 0 + 404 354 404 364 9999 9999 +2 1 0 1 0 0 0 6 0.000 -1 1 0 + 0 0 1.000 4.000 8.000 + 479 259 539 259 9999 9999 +2 1 0 1 0 0 0 21 0.000 -1 0 0 + 504 254 504 264 9999 9999 +2 1 0 1 0 0 0 6 0.000 -1 1 0 + 0 0 1.000 4.000 8.000 + 379 259 439 259 9999 9999 +2 1 0 1 0 0 0 21 0.000 -1 0 0 + 404 254 404 264 9999 9999 +2 1 0 1 -1 0 0 0 0.000 -1 0 1 + 0 0 1.000 4.000 8.000 + 159 379 159 439 9999 9999 +2 1 0 1 0 0 0 21 0.000 -1 0 0 + 154 409 164 409 9999 9999 +2 1 0 1 0 0 0 21 0.000 -1 0 0 + 254 409 264 409 9999 9999 +2 1 0 1 -1 0 0 0 0.000 -1 0 1 + 0 0 1.000 4.000 8.000 + 259 279 259 339 9999 9999 +2 1 0 1 0 0 0 21 0.000 -1 0 0 + 254 309 264 309 9999 9999 +2 1 0 1 -1 0 0 0 0.000 -1 0 1 + 0 0 1.000 4.000 8.000 + 159 279 159 339 9999 9999 +2 1 0 1 0 0 0 21 0.000 -1 0 0 + 154 309 164 309 9999 9999 +2 1 0 1 -1 0 0 0 0.000 -1 0 1 + 0 0 1.000 4.000 8.000 + 259 379 259 439 9999 9999 +2 1 0 1 0 0 0 6 0.000 -1 1 0 + 0 0 1.000 4.000 8.000 + 279 359 339 359 9999 9999 +2 1 0 1 0 0 0 21 0.000 -1 0 0 + 304 354 304 364 9999 9999 +2 1 0 1 0 0 0 6 0.000 -1 1 0 + 0 0 1.000 4.000 8.000 + 179 359 239 359 9999 9999 +2 1 0 1 0 0 0 21 0.000 -1 0 0 + 204 354 204 364 9999 9999 +2 1 0 1 0 0 0 6 0.000 -1 1 0 + 0 0 1.000 4.000 8.000 + 279 259 339 259 9999 9999 +2 1 0 1 0 0 0 21 0.000 -1 0 0 + 304 254 304 264 9999 9999 +2 1 0 1 0 0 0 6 0.000 -1 1 0 + 0 0 1.000 4.000 8.000 + 179 259 239 259 9999 9999 +2 1 0 1 0 0 0 21 0.000 -1 0 0 + 204 254 204 264 9999 9999 +2 1 0 1 0 0 0 6 0.000 -1 1 0 + 0 0 1.000 4.000 8.000 + 379 659 439 659 9999 9999 +2 1 0 1 0 0 0 21 0.000 -1 0 0 + 404 654 404 664 9999 9999 +2 1 0 1 0 0 0 6 0.000 -1 1 0 + 0 0 1.000 4.000 8.000 + 479 659 539 659 9999 9999 +2 1 0 1 0 0 0 21 0.000 -1 0 0 + 504 654 504 664 9999 9999 +2 1 0 1 0 0 0 21 0.000 -1 0 0 + 454 609 464 609 9999 9999 +2 1 0 1 -1 0 0 0 0.000 -1 0 1 + 0 0 1.000 4.000 8.000 + 459 479 459 539 9999 9999 +2 1 0 1 0 0 0 21 0.000 -1 0 0 + 454 509 464 509 9999 9999 +2 1 0 1 -1 0 0 0 0.000 -1 0 1 + 0 0 1.000 4.000 8.000 + 459 579 459 639 9999 9999 +2 1 0 1 0 0 0 6 0.000 -1 1 0 + 0 0 1.000 4.000 8.000 + 479 559 539 559 9999 9999 +2 1 0 1 0 0 0 21 0.000 -1 0 0 + 504 554 504 564 9999 9999 +2 1 0 1 0 0 0 6 0.000 -1 1 0 + 0 0 1.000 4.000 8.000 + 379 559 439 559 9999 9999 +2 1 0 1 0 0 0 21 0.000 -1 0 0 + 404 554 404 564 9999 9999 +2 1 0 1 0 0 0 6 0.000 -1 1 0 + 0 0 1.000 4.000 8.000 + 579 459 639 459 9999 9999 +2 1 0 1 0 0 0 21 0.000 -1 0 0 + 604 454 604 464 9999 9999 +2 1 0 1 -1 0 0 0 0.000 -1 0 1 + 0 0 1.000 4.000 8.000 + 559 379 559 439 9999 9999 +2 1 0 1 0 0 0 21 0.000 -1 0 0 + 554 409 564 409 9999 9999 +2 1 0 1 -1 0 0 0 0.000 -1 0 1 + 0 0 1.000 4.000 8.000 + 559 279 559 339 9999 9999 +2 1 0 1 0 0 0 21 0.000 -1 0 0 + 554 309 564 309 9999 9999 +2 1 0 1 0 0 0 6 0.000 -1 1 0 + 0 0 1.000 4.000 8.000 + 579 359 639 359 9999 9999 +2 1 0 1 0 0 0 21 0.000 -1 0 0 + 604 354 604 364 9999 9999 +2 1 0 1 0 0 0 6 0.000 -1 1 0 + 0 0 1.000 4.000 8.000 + 579 259 639 259 9999 9999 +2 1 0 1 0 0 0 21 0.000 -1 0 0 + 604 254 604 264 9999 9999 +2 1 0 1 0 0 0 6 0.000 -1 1 0 + 0 0 1.000 4.000 8.000 + 579 659 639 659 9999 9999 +2 1 0 1 0 0 0 21 0.000 -1 0 0 + 604 654 604 664 9999 9999 +2 1 0 1 -1 0 0 0 0.000 -1 0 1 + 0 0 1.000 4.000 8.000 + 559 579 559 639 9999 9999 +2 1 0 1 0 0 0 21 0.000 -1 0 0 + 554 609 564 609 9999 9999 +2 1 0 1 -1 0 0 0 0.000 -1 0 1 + 0 0 1.000 4.000 8.000 + 559 479 559 539 9999 9999 +2 1 0 1 0 0 0 21 0.000 -1 0 0 + 554 509 564 509 9999 9999 +2 1 0 1 0 0 0 6 0.000 -1 1 0 + 0 0 1.000 4.000 8.000 + 579 559 639 559 9999 9999 +2 1 0 1 0 0 0 21 0.000 -1 0 0 + 604 554 604 564 9999 9999 +2 1 0 1 0 0 0 6 0.000 -1 1 0 + 0 0 1.000 4.000 8.000 + 779 459 839 459 9999 9999 +2 1 0 1 0 0 0 21 0.000 -1 0 0 + 804 454 804 464 9999 9999 +2 1 0 1 0 0 0 21 0.000 -1 0 0 + 754 409 764 409 9999 9999 +2 1 0 1 -1 0 0 0 0.000 -1 0 1 + 0 0 1.000 4.000 8.000 + 759 279 759 339 9999 9999 +2 1 0 1 0 0 0 21 0.000 -1 0 0 + 754 309 764 309 9999 9999 +2 1 0 1 -1 0 0 0 0.000 -1 0 1 + 0 0 1.000 4.000 8.000 + 759 379 759 439 9999 9999 +2 1 0 1 0 0 0 6 0.000 -1 1 0 + 0 0 1.000 4.000 8.000 + 779 359 839 359 9999 9999 +2 1 0 1 0 0 0 21 0.000 -1 0 0 + 804 354 804 364 9999 9999 +2 1 0 1 0 0 0 6 0.000 -1 1 0 + 0 0 1.000 4.000 8.000 + 779 259 839 259 9999 9999 +2 1 0 1 0 0 0 21 0.000 -1 0 0 + 804 254 804 264 9999 9999 +2 1 0 1 0 0 0 6 0.000 -1 1 0 + 0 0 1.000 4.000 8.000 + 779 659 839 659 9999 9999 +2 1 0 1 0 0 0 21 0.000 -1 0 0 + 804 654 804 664 9999 9999 +2 1 0 1 0 0 0 21 0.000 -1 0 0 + 754 609 764 609 9999 9999 +2 1 0 1 -1 0 0 0 0.000 -1 0 1 + 0 0 1.000 4.000 8.000 + 759 479 759 539 9999 9999 +2 1 0 1 0 0 0 21 0.000 -1 0 0 + 754 509 764 509 9999 9999 +2 1 0 1 -1 0 0 0 0.000 -1 0 1 + 0 0 1.000 4.000 8.000 + 759 579 759 639 9999 9999 +2 1 0 1 0 0 0 6 0.000 -1 1 0 + 0 0 1.000 4.000 8.000 + 779 559 839 559 9999 9999 +2 1 0 1 0 0 0 21 0.000 -1 0 0 + 804 554 804 564 9999 9999 +2 1 0 1 0 0 0 6 0.000 -1 1 0 + 0 0 1.000 4.000 8.000 + 679 459 739 459 9999 9999 +2 1 0 1 0 0 0 21 0.000 -1 0 0 + 704 454 704 464 9999 9999 +2 1 0 1 0 0 0 21 0.000 -1 0 0 + 654 409 664 409 9999 9999 +2 1 0 1 -1 0 0 0 0.000 -1 0 1 + 0 0 1.000 4.000 8.000 + 659 279 659 339 9999 9999 +2 1 0 1 0 0 0 21 0.000 -1 0 0 + 654 309 664 309 9999 9999 +2 1 0 1 -1 0 0 0 0.000 -1 0 1 + 0 0 1.000 4.000 8.000 + 659 379 659 439 9999 9999 +2 1 0 1 0 0 0 6 0.000 -1 1 0 + 0 0 1.000 4.000 8.000 + 679 359 739 359 9999 9999 +2 1 0 1 0 0 0 21 0.000 -1 0 0 + 704 354 704 364 9999 9999 +2 1 0 1 0 0 0 6 0.000 -1 1 0 + 0 0 1.000 4.000 8.000 + 679 259 739 259 9999 9999 +2 1 0 1 0 0 0 21 0.000 -1 0 0 + 704 254 704 264 9999 9999 +2 1 0 1 0 0 0 6 0.000 -1 1 0 + 0 0 1.000 4.000 8.000 + 679 659 739 659 9999 9999 +2 1 0 1 0 0 0 21 0.000 -1 0 0 + 704 654 704 664 9999 9999 +2 1 0 1 0 0 0 21 0.000 -1 0 0 + 654 609 664 609 9999 9999 +2 1 0 1 -1 0 0 0 0.000 -1 0 1 + 0 0 1.000 4.000 8.000 + 659 479 659 539 9999 9999 +2 1 0 1 0 0 0 21 0.000 -1 0 0 + 654 509 664 509 9999 9999 +2 1 0 1 -1 0 0 0 0.000 -1 0 1 + 0 0 1.000 4.000 8.000 + 659 579 659 639 9999 9999 +2 1 0 1 0 0 0 6 0.000 -1 1 0 + 0 0 1.000 4.000 8.000 + 679 559 739 559 9999 9999 +2 1 0 1 0 0 0 21 0.000 -1 0 0 + 704 554 704 564 9999 9999 +2 2 0 1 -1 0 0 0 0.000 0 0 0 + 169 269 169 249 149 249 149 269 169 269 9999 9999 +2 2 0 1 -1 0 0 0 0.000 0 0 0 + 169 369 169 349 149 349 149 369 169 369 9999 9999 +2 2 0 1 -1 0 0 0 0.000 0 0 0 + 269 369 269 349 249 349 249 369 269 369 9999 9999 +2 2 0 1 -1 0 0 0 0.000 0 0 0 + 369 369 369 349 349 349 349 369 369 369 9999 9999 +2 2 0 1 -1 0 0 0 0.000 0 0 0 + 469 369 469 349 449 349 449 369 469 369 9999 9999 +2 2 0 1 -1 0 0 0 0.000 0 0 0 + 569 369 569 349 549 349 549 369 569 369 9999 9999 +2 2 0 1 -1 0 0 0 0.000 0 0 0 + 669 369 669 349 649 349 649 369 669 369 9999 9999 +2 2 0 1 -1 0 0 0 0.000 0 0 0 + 469 469 469 449 449 449 449 469 469 469 9999 9999 +2 2 0 1 -1 0 0 0 0.000 0 0 0 + 569 469 569 449 549 449 549 469 569 469 9999 9999 +2 2 0 1 -1 0 0 0 0.000 0 0 0 + 669 469 669 449 649 449 649 469 669 469 9999 9999 +2 2 0 1 -1 0 0 0 0.000 0 0 0 + 469 569 469 549 449 549 449 569 469 569 9999 9999 +2 2 0 1 -1 0 0 0 0.000 0 0 0 + 569 569 569 549 549 549 549 569 569 569 9999 9999 +2 2 0 1 -1 0 0 0 0.000 0 0 0 + 669 569 669 549 649 549 649 569 669 569 9999 9999 +2 1 0 1 0 0 0 21 0.000 -1 0 0 + 254 909 264 909 9999 9999 +2 1 0 1 -1 0 0 0 0.000 -1 0 1 + 0 0 1.000 4.000 8.000 + 259 779 259 839 9999 9999 +2 1 0 1 0 0 0 21 0.000 -1 0 0 + 254 809 264 809 9999 9999 +2 1 0 1 -1 0 0 0 0.000 -1 0 1 + 0 0 1.000 4.000 8.000 + 259 879 259 939 9999 9999 +2 1 0 1 0 0 0 6 0.000 -1 1 0 + 0 0 1.000 4.000 8.000 + 279 859 339 859 9999 9999 +2 1 0 1 0 0 0 21 0.000 -1 0 0 + 304 854 304 864 9999 9999 +2 1 0 1 0 0 0 6 0.000 -1 1 0 + 0 0 1.000 4.000 8.000 + 179 859 239 859 9999 9999 +2 1 0 1 0 0 0 21 0.000 -1 0 0 + 204 854 204 864 9999 9999 +2 1 0 1 -1 100 0 2 0.000 -1 0 0 + 119 334 689 334 689 379 119 379 9999 9999 +2 1 0 1 -1 100 0 2 0.000 -1 0 0 + 119 234 189 234 189 279 119 279 9999 9999 +2 1 0 1 -1 100 0 2 0.000 -1 0 0 + 119 434 689 434 689 479 119 479 9999 9999 +2 1 0 1 -1 100 0 2 0.000 -1 0 0 + 119 534 689 534 689 579 119 579 9999 9999 +2 1 0 1 -1 100 0 2 0.000 -1 0 0 + 119 634 189 634 189 679 119 679 9999 9999 +2 2 0 1 -1 100 0 5 0.000 0 0 0 + 804 709 804 609 704 609 704 709 804 709 9999 9999 +2 1 0 2 -1 100 0 6 0.000 -1 0 1 + 0 0 2.000 8.000 16.000 + 859 659 899 659 9999 9999 +2 1 0 2 -1 100 0 6 0.000 -1 0 1 + 0 0 2.000 8.000 16.000 + 819 609 899 609 9999 9999 +2 1 1 1 -1 100 0 5 4.000 -1 0 1 + 0 0 1.000 4.000 8.000 + 679 699 604 759 9999 9999 +2 4 0 1 -1 10 0 6 0.000 7 0 0 + 469 104 204 104 204 64 469 64 469 104 9999 9999 +4 0 0 20 0 -1 0 0.00000 4 18 7 154 199 1 +4 0 0 20 0 -1 0 0.00000 4 18 7 254 199 2 +4 0 0 20 0 -1 0 0.00000 4 18 7 354 199 3 +4 0 0 20 0 -1 0 0.00000 4 18 7 454 199 4 +4 0 0 20 0 -1 0 0.00000 4 18 7 554 199 5 +4 0 0 20 0 -1 0 0.00000 4 18 7 654 199 6 +4 0 0 20 0 -1 0 0.00000 4 18 7 754 199 7 +4 0 0 20 0 -1 0 0.00000 4 18 17 649 174 IM +4 0 0 20 0 -1 0 0.00000 4 18 32 744 174 IM+1 +4 0 0 20 0 -1 0 0.00000 4 18 162 224 89 Exemple: IM = 6 JM = 4 +4 0 2 22 0 -1 0 0.00000 4 25 7 39 199 j +4 0 2 22 0 -1 0 0.00000 4 25 6 84 179 i +4 0 0 20 0 -1 0 0.00000 4 18 17 9 544 JM +4 0 0 20 0 -1 0 0.00000 4 18 32 9 644 JM+1 +4 0 0 20 0 -1 0 0.00000 4 18 7 64 344 2 +4 0 0 20 0 -1 0 0.00000 4 18 7 64 444 3 +4 0 0 20 0 -1 0 0.00000 4 18 7 64 244 1 +4 0 0 20 0 -1 0 0.00000 4 18 7 64 544 4 +4 0 0 20 0 -1 0 0.00000 4 18 7 64 644 5 +4 0 0 20 0 0 0 0.00000 4 16 6 344 409 v +4 0 0 20 0 0 0 0.00000 4 16 6 444 409 v +4 0 0 20 0 0 0 0.00000 4 16 6 444 309 v +4 0 0 20 0 0 0 0.00000 4 16 6 344 309 v +4 0 0 20 0 0 0 0.00000 4 16 6 144 409 v +4 0 0 20 0 0 0 0.00000 4 16 6 244 409 v +4 0 0 20 0 0 0 0.00000 4 16 6 244 309 v +4 0 0 20 0 0 0 0.00000 4 16 6 144 309 v +4 0 0 20 0 0 0 0.00000 4 16 6 444 609 v +4 0 0 20 0 0 0 0.00000 4 16 6 444 509 v +4 0 0 20 0 0 0 0.00000 4 16 6 544 409 v +4 0 0 20 0 0 0 0.00000 4 16 6 544 309 v +4 0 0 20 0 0 0 0.00000 4 16 6 544 609 v +4 0 0 20 0 0 0 0.00000 4 16 6 544 509 v +4 0 0 20 0 0 0 0.00000 4 16 6 744 409 v +4 0 0 20 0 0 0 0.00000 4 16 6 744 309 v +4 0 0 20 0 0 0 0.00000 4 16 6 744 609 v +4 0 0 20 0 0 0 0.00000 4 16 6 744 509 v +4 0 0 20 0 0 0 0.00000 4 16 6 644 409 v +4 0 0 20 0 0 0 0.00000 4 16 6 644 309 v +4 0 0 20 0 0 0 0.00000 4 16 6 644 609 v +4 0 0 20 0 0 0 0.00000 4 16 6 644 509 v +4 0 0 20 0 -1 0 0.00000 4 18 14 334 449 10 +4 0 0 20 0 -1 0 0.00000 4 18 7 139 349 2 +4 0 0 20 0 -1 0 0.00000 4 18 7 139 249 1 +4 0 0 20 0 -1 0 0.00000 4 18 7 239 349 3 +4 0 0 20 0 -1 0 0.00000 4 18 7 339 349 4 +4 0 0 20 0 -1 0 0.00000 4 18 7 439 349 5 +4 0 0 20 0 -1 0 0.00000 4 18 7 539 349 6 +4 0 0 20 0 -1 0 0.00000 4 18 7 639 349 7 +4 0 0 20 0 -1 0 0.00000 4 18 7 139 449 8 +4 0 0 20 0 -1 0 0.00000 4 18 7 239 449 9 +4 0 0 20 0 -1 0 0.00000 4 18 14 434 449 11 +4 0 0 20 0 -1 0 0.00000 4 18 14 534 449 12 +4 0 0 20 0 -1 0 0.00000 4 18 14 634 449 13 +4 0 0 20 0 0 0 0.00000 4 16 6 204 274 u +4 0 0 20 0 0 0 0.00000 4 16 6 304 274 u +4 0 0 20 0 0 0 0.00000 4 16 6 404 274 u +4 0 0 20 0 0 0 0.00000 4 16 6 504 274 u +4 0 0 20 0 0 0 0.00000 4 16 6 204 374 u +4 0 0 20 0 0 0 0.00000 4 16 6 304 374 u +4 0 0 20 0 0 0 0.00000 4 16 6 404 374 u +4 0 0 20 0 0 0 0.00000 4 16 6 504 374 u +4 0 0 20 0 0 0 0.00000 4 16 6 604 374 u +4 0 0 20 0 0 0 0.00000 4 16 6 404 474 u +4 0 0 20 0 0 0 0.00000 4 16 6 504 474 u +4 0 0 20 0 0 0 0.00000 4 16 6 604 474 u +4 0 0 20 0 0 0 0.00000 4 16 6 604 574 u +4 0 0 20 0 0 0 0.00000 4 16 6 504 574 u +4 0 0 20 0 0 0 0.00000 4 16 6 404 574 u +4 0 0 20 0 0 0 0.00000 4 16 6 604 274 u +4 0 0 20 0 0 0 0.00000 4 16 6 404 674 u +4 0 0 20 0 0 0 0.00000 4 16 6 504 674 u +4 0 0 20 0 0 0 0.00000 4 16 6 604 674 u +4 0 0 20 0 -1 0 0.00000 4 18 14 434 549 17 +4 0 0 20 0 -1 0 0.00000 4 18 14 534 549 18 +4 0 0 20 0 -1 0 0.00000 4 18 14 634 549 19 +4 0 0 20 0 0 0 0.00000 4 16 6 804 274 u +4 0 0 20 0 0 0 0.00000 4 16 6 704 274 u +4 0 0 20 0 0 0 0.00000 4 16 6 704 374 u +4 0 0 20 0 0 0 0.00000 4 16 6 804 374 u +4 0 0 20 0 0 0 0.00000 4 16 6 704 474 u +4 0 0 20 0 0 0 0.00000 4 16 6 804 474 u +4 0 0 20 0 0 0 0.00000 4 16 6 704 574 u +4 0 0 20 0 0 0 0.00000 4 16 6 804 574 u +4 0 0 20 0 0 0 0.00000 4 16 6 709 674 u +4 0 0 20 0 0 0 0.00000 4 16 6 804 674 u +4 0 0 20 0 0 0 0.00000 4 18 47 184 884 u(i-1,j) +4 0 0 20 0 0 0 0.00000 4 18 47 269 814 v(i,j-1) +4 0 2 20 0 -1 0 0.00000 4 22 39 209 844 T(i,j) +4 0 2 20 0 0 0 0.00000 4 20 32 299 884 u(i,j) +4 0 2 20 0 0 0 0.00000 4 20 31 269 909 v(i,j) +4 1 0 20 0 0 0 0.00000 4 18 28 929 659 rlatu +4 1 0 20 0 0 0 0.00000 4 18 28 929 609 rlatv +4 0 0 20 0 0 0 0.00000 4 18 132 474 779 "boite" grille scalaire +4 0 0 20 0 -1 0 0.00000 4 22 267 639 59 grille "scalaire" de la dynamique Index: /trunk/LMDZ.TITAN/DOC/Fig/inout.fig =================================================================== --- /trunk/LMDZ.TITAN/DOC/Fig/inout.fig (revision 1644) +++ /trunk/LMDZ.TITAN/DOC/Fig/inout.fig (revision 1644) @@ -0,0 +1,109 @@ +#FIG 3.2 +Landscape +Center +Inches +Letter +100.00 +Single +-2 +1200 2 +6 4950 2250 6000 2625 +6 4950 2250 6000 2625 +2 4 0 1 -1 -1 20 0 3 0.000 0 0 5 0 0 5 + 6000 2600 4950 2600 4950 2262 6000 2262 6000 2600 +-6 +-6 +6 9600 9450 10650 10125 +4 1 -1 0 0 0 14 0.0000 4 150 600 10140 9660 run.def\001 +4 1 -1 0 0 0 14 0.0000 4 195 1020 10140 9885 callphys.def\001 +-6 +1 1 0 2 -1 -1 20 0 1 0.000 1 0.0000 7800 2415 1125 225 7800 2415 8925 2640 +1 1 0 2 -1 -1 20 0 1 0.000 1 0.0000 7800 5790 1125 225 7800 5790 8925 6015 +1 1 1 2 -1 -1 20 0 1 6.000 1 0.0000 7800 9900 1125 225 7800 9900 8925 10125 +2 1 0 2 -1 -1 0 0 5 0.000 0 0 -1 1 0 2 + 0 0 2.00 135.00 255.00 + 7800 6000 7800 7200 +2 4 0 1 -1 -1 0 0 -1 0.000 0 0 7 0 0 5 + 9375 4470 6270 4470 6270 3705 9375 3705 9375 4470 +2 1 0 2 -1 -1 0 0 5 0.000 0 0 -1 1 0 2 + 0 0 2.00 135.00 255.00 + 7800 4470 7800 5550 +2 1 0 2 -1 -1 0 0 -1 0.000 0 0 -1 0 0 4 + 7350 6000 7350 6300 5550 6300 5550 8520 +2 1 0 2 -1 -1 0 0 5 0.000 0 0 -1 0 1 2 + 0 0 2.00 135.00 255.00 + 5100 7620 5550 7620 +2 1 0 2 -1 -1 0 0 5 0.000 0 0 -1 0 1 2 + 0 0 2.00 135.00 255.00 + 5100 8520 5550 8520 +2 1 0 2 -1 -1 0 0 5 0.000 0 0 -1 1 0 2 + 0 0 2.00 135.00 255.00 + 6000 2415 6675 2415 +2 1 0 2 -1 -1 0 0 5 0.000 0 0 -1 1 0 2 + 0 0 2.00 135.00 255.00 + 9600 2415 8925 2415 +2 1 0 2 -1 -1 0 0 5 0.000 0 0 -1 1 0 2 + 0 0 2.00 135.00 255.00 + 7800 2640 7800 3675 +2 4 0 1 -1 -1 0 0 -1 0.000 0 0 7 0 0 5 + 10725 2865 9600 2865 9600 2055 10725 2055 10725 2865 +2 1 1 2 -1 -1 0 0 5 6.000 0 0 -1 1 0 2 + 0 0 2.00 135.00 255.00 + 7800 8025 7800 9690 +2 1 1 2 -1 -1 0 0 5 6.000 0 0 -1 1 0 2 + 0 0 2.00 135.00 255.00 + 7800 10125 7800 10845 +2 1 1 2 -1 -1 0 0 -1 6.000 0 0 -1 0 0 4 + 7350 10125 7350 10500 6300 10500 6375 10500 +2 4 0 1 -1 -1 0 0 -1 0.000 0 0 7 0 0 5 + 9390 7995 6285 7995 6285 7230 9390 7230 9390 7995 +2 1 1 2 -1 -1 0 0 5 4.000 0 0 -1 1 0 2 + 0 0 2.00 135.00 255.00 + 9600 9915 8925 9915 +2 1 0 2 -1 -1 0 0 5 0.000 0 0 -1 1 0 2 + 0 0 2.00 135.00 255.00 + 9600 5790 8925 5790 +2 1 0 2 -1 -1 0 0 5 0.000 0 0 -1 1 0 2 + 0 0 2.00 135.00 255.00 + 7800 1470 7800 2190 +2 4 0 1 -1 -1 0 0 -1 0.000 0 0 7 0 0 5 + 5100 8625 3975 8625 3975 8250 5100 8250 5100 8625 +2 4 0 1 -1 -1 0 0 -1 0.000 0 0 7 0 0 5 + 7620 4200 7620 3870 6675 3870 6675 4200 7620 4200 +2 4 0 1 -1 -1 0 0 -1 0.000 0 0 7 0 0 5 + 8970 4200 8970 3870 8025 3870 8025 4200 8970 4200 +2 4 0 1 -1 -1 0 0 -1 0.000 0 0 7 0 0 5 + 8550 1425 8550 1050 7050 1050 7050 1425 8550 1425 +2 4 0 1 -1 -1 0 0 -1 0.000 0 0 7 0 0 5 + 9075 7725 9075 7425 7950 7425 7950 7725 9075 7725 +2 4 0 1 -1 -1 0 0 -1 0.000 0 0 7 0 0 5 + 7650 7725 7650 7425 6675 7425 6675 7725 7650 7725 +2 4 0 1 -1 -1 0 0 -1 0.000 0 0 7 0 0 5 + 5100 7725 3975 7725 3975 7350 5100 7350 5100 7725 +2 4 0 1 -1 -1 0 0 -1 0.000 0 0 6 0 0 5 + 10725 6150 9600 6150 9600 5385 10725 5385 10725 6150 +2 4 1 1 -1 -1 0 0 -1 4.000 0 0 7 0 0 5 + 10725 10320 9600 10320 9600 9375 10725 9375 10725 10320 +2 2 0 1 -1 -1 0 0 -1 0.000 0 0 0 0 0 5 + 11925 3225 11925 465 2850 465 2850 3225 11925 3225 +4 1 -1 0 0 0 14 0.0000 4 195 720 4560 7575 diagfi.nc\001 +4 1 -1 0 0 0 14 0.0000 4 150 600 10140 2280 run.def\001 +4 1 -1 0 0 0 14 0.0000 4 195 1020 10140 2505 callphys.def\001 +4 1 -1 0 0 0 14 0.0000 4 195 750 10140 2730 z2sig.def\001 +4 1 -1 0 0 3 20 0.0000 4 330 4125 5025 975 Creation of the initial state\001 +4 1 -1 0 0 2 22 0.0000 4 255 915 7800 9975 GCM\001 +4 1 -1 0 0 3 20 0.0000 4 255 1965 3300 9975 Simulation 2\001 +4 1 -1 0 0 3 20 0.0000 4 255 1965 3300 5775 Simulation 1\001 +4 1 -1 0 0 2 22 0.0000 4 255 915 7800 5880 GCM\001 +4 1 -1 0 0 0 14 0.0000 4 150 600 10140 5610 run.def\001 +4 1 -1 0 0 0 14 0.0000 4 195 1020 10140 5835 callphys.def\001 +4 1 -1 0 0 2 22 0.0000 4 255 1440 7800 2505 Newstart\001 +4 1 -1 0 0 0 14 0.0000 4 135 645 7125 4125 start.nc\001 +4 1 -1 0 0 0 14 0.0000 4 150 900 5475 2475 surface.nc\001 +4 1 -1 0 0 0 14 0.0000 4 195 1395 7800 1275 start_archive.nc\001 +4 1 -1 0 0 0 14 0.0000 4 135 825 7125 7650 restart.nc\001 +4 1 -1 0 0 0 14 0.0000 4 150 930 8475 7650 restartfi.nc\001 +4 1 -1 0 0 0 14 0.0000 4 150 750 8475 4125 startfi.nc\001 +4 1 -1 0 0 0 14 0.0000 4 135 660 4560 8475 stats.nc\001 +4 0 0 50 -1 0 14 0.0000 4 195 750 9750 6075 z2sig.def\001 +4 0 0 50 -1 0 14 0.0000 4 195 750 9750 10125 z2sig.def\001 Index: /trunk/LMDZ.TITAN/DOC/Fig/netcdf.fig =================================================================== --- /trunk/LMDZ.TITAN/DOC/Fig/netcdf.fig (revision 1644) +++ /trunk/LMDZ.TITAN/DOC/Fig/netcdf.fig (revision 1644) @@ -0,0 +1,17 @@ +#FIG 3.2 +Landscape +Center +Inches +Letter +100.00 +Single +-2 +1200 2 +2 5 0 1 0 -1 50 -1 -1 0.000 0 0 -1 0 0 5 + 0 netcdf.eps + 1425 2700 9392 2700 9392 15250 1425 15250 1425 2700 +2 2 0 1 0 7 50 -1 20 0.000 0 0 -1 0 0 5 + 5850 4500 7575 4500 7575 5775 5850 5775 5850 4500 +4 0 0 50 -1 0 12 0.0000 4 180 690 6000 4800 longitude\001 +4 0 0 50 -1 0 12 0.0000 4 135 570 6000 5025 latitude\001 +4 0 0 50 -1 0 12 0.0000 4 90 330 6000 5250 aera\001 Index: /trunk/LMDZ.TITAN/DOC/compilation.tex =================================================================== --- /trunk/LMDZ.TITAN/DOC/compilation.tex (revision 1644) +++ /trunk/LMDZ.TITAN/DOC/compilation.tex (revision 1644) @@ -0,0 +1,158 @@ +\chapter{Program organization and compilation script} +\label{sc:info} +\index{Programming organization and compilation} + +\label{loc:contenu} + +All the elements of the LMD model are in the {\bf LMDZ.GENERIC} directory +(and subdirectories). +As explained in Section~\ref{loc:contact1}, this directory +should be associated with + environment variable {\bf LMDGCM}:\\ +If using Csh: +\begin{verbatim} +setenv LMDGCM /where/you/put/the/model/LMDZ.GENERIC +\end{verbatim} +If using Bash: +\begin{verbatim} +export LMDGCM=/where/you/put/the/model/LMDZ.GENERIC +\end{verbatim} + +\noindent Here is a brief description of the +{\bf LMDZ.GENERIC} directory contents: +\begin{verbatim} + libf/ All the model FORTRAN Sources (.F or .F90) + and include files (.h) organised in sub-directories + (physics (phystd), dynamics (dyn3d), filters (filtrez)...) + + deftank/ A collection of examples of parameter files required + to run the GCM (run.def, callphys.def, ...) + + makegcm Script that should be used to compile the GCM as well + as related utilities (newstart, start2archive, testphys1d) + + create_make_gcm Executable used to create the makefile. + This command is run automatically by + "makegcm" (see below). + +\end{verbatim} + + +\section{Organization of the model source files} +\index{Organization of the model source files} + +The model source files are stored in various sub directories +in directory {\bf libf}. +These sub-directories correspond to the different parts of the model: + +\begin{description} +\item{\bf grid:} mainly made up of "dimensions.h" file, +which contains the parameters that define the model grid, +i.e. the number of points in longitude (IIM), latitude (JJM) and altitude +(LLM), as well as the number of tracers (NQMX). + +\item{\bf dyn3d:} contains the dynamical subroutines. + +\item{\bf bibio:} contains some generic subroutines not specifically +related to physics or dynamics but used by either or both. + +\item{\bf phymars:} contains the physics routines. + +\item{\bf filtrez:} contains the longitudinal filter sources applied in the +upper latitudes, +where the Courant-Friedrich-Levy stability criterion is violated. + +\end{description} + +\section{Programming} + +The model is written in {\bf Fortran-77} and {\bf Fortran-90}. +\begin{itemize} +\item The program sources are written in {\bf ``file.F"} +or {\bf ``file.F90''} files. +The extension .F is the standard extension for fixed-form Fortran and +the extension .F90 is for free-form Fortran. +These files must be preprocessed (by a{\bf C preprocessor} +such as (cpp)) before compilation (this behaviour is, for most +compilers, implicitly obtained but using a capital F in the extention +of the file names). + +\item Constants are placed in COMMON declarations, +located in the common ``include'' files {\bf "file.h"} + +%\item [also module files now too...] +\item In general, variables are passed from subroutine to subroutine +as arguments (and never as COMMON blocks). + +\item In some parts of the code, for ``historical'' reasons, +the following rule is sometimes used: in the subroutine, +the variables (ex: \verb+name+) passed as an argument by the calling program +are given the prefix \verb+p+ (ex: \verb+pname+) + while the local variables are given the prefix \verb+z+ (ex: \verb+zname+). +As a result, several variables change their prefix (and thus their name) +when passing from a calling subroutine to a called subroutine. We're trying to eliminate this as the code is developed. +\end{itemize} + +\section{Model organization} +Figure~\ref{fg:organi_phys} describes the main subroutines called by physiq.F. OBSOLETE - FOR MARS ONLY!!! +\index{Model organization} +\begin{figure} +\begin{flushleft} +\includegraphics[scale=0.70,angle=-90]{Fig/physique.eps} +\caption{Organigram of subroutine function physiq.F90} +\label{fg:organi_phys} +\end{flushleft} +\end{figure} + + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% Compilation du modele +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +\section{Compiling the model} +\index{Compiling the model} + +\label{sc:compil1} +Technically, the model is compiled using the Unix utility {\tt make}. +The file {\tt makefile}, which describes the code dependencies +and requirements, +is created automatically by the script +\begin{verbatim} +create_make_gcm +\end{verbatim} +This utility script recreates the {\tt makefile} file when necessary, +for example, when a source file has been added or removed since the last +compilation. + +{\bf None of this is visible to the user. +To compile the model just run the command} +\begin{verbatim} +makegcm +\end{verbatim} +with adequate options (e.g. {\tt makegcm -d 62x48x32 -p mars gcm}), as +discussed below and described in section~\ref{sc:run1}. + + +The {\tt makegcm} command compiles the model ({\bf gcm}) and related utilities +({\bf newstart}, {\bf start2archive}, {\bf testphys1d}). +A detailed description of how to use it and of the various parameters that +can be supplied +is given in the help manual below +(which will also be given by the \verb+makegcm -h+ command).\\ +Note that before compiling the GCM with {\tt makegcm} you should have set +the environment variable {\bf LIBOGCM} to a path where intermediate +objects and libraries will be generated.\\ +If using Csh: +\begin{verbatim} +setenv LIBOGCM /where/you/want/objects/to/go/libo +\end{verbatim} +If using Bash: +\begin{verbatim} +export LIBOGCM=/where/you/want/objects/to/go/libo +\end{verbatim} +\paragraph{Help manual for the makegcm script} +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% makegcm.help: lu dans makegcm +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\input{input/makegcm_help.tex} +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Index: /trunk/LMDZ.TITAN/DOC/def.tex =================================================================== --- /trunk/LMDZ.TITAN/DOC/def.tex (revision 1644) +++ /trunk/LMDZ.TITAN/DOC/def.tex (revision 1644) @@ -0,0 +1,37 @@ +\newcommand{\der}[2]{\frac{\partial #1 }{\partial #2} } + +%termes lations +\def\ie{{\em i.~e.}} +\def\etal{{\em et~al.}} +\def\apriori{{\em a~priori}} +\def\apost{{\em a~posteriori}} +\def\afort{{\em a~fortiori}} +\def\etc{{\em etc.}} +\def\insitu{{\em in--situ}} +\def\adoc{{\em ad~hoc}} + +\def\sc#1{Section~\ref{sc:#1}} +\def\an#1{Annexe~\ref{an:#1}} +\def\ch#1{Chapitre~\ref{ch:#1}} +\def\fg#1{Fig.~\ref{fg:#1}} +\def\fgs#1{Figs.~\ref{fg:#1}} +\def\eq#1{Eq.~\ref{eq:#1}} +\def\eqs#1{Eqs.~\ref{eq:#1}} +\def\tb#1{Table~\ref{tb:#1}} +\newcommand{\av}[2]{{\overline{#1}}^{ #2 }} +\newcommand{\avg}[1]{\left< #1 \right>} +\def\cd{C_D} +% definitions de Macros pour tout l'article +\def\co{$CO_2$} +\def\eq#1{Eq.~\ref{eq:#1}} +\def\fig#1{Fig.~\ref{fg:#1}} +\newcommand{\dep}[1]{\left( #1 \right) } +\newcommand{\depb}[1]{\left[ #1 \right] } +\newcommand{\depc}[1]{\left\{ #1 \right\} } +\def\coband{$CO_2\ 15\mu$m~band} +\def\ps{p_S} +\def\etal{{\em~et al. }} +\def\insitu{{\em in--situ }} +\def\t{\theta} +\def\dnw{^{\downarrow}} + Index: /trunk/LMDZ.TITAN/DOC/dynamics.tex =================================================================== --- /trunk/LMDZ.TITAN/DOC/dynamics.tex (revision 1644) +++ /trunk/LMDZ.TITAN/DOC/dynamics.tex (revision 1644) @@ -0,0 +1,319 @@ +\chapter{3D Dynamical Code} +\label{sc:dynamic} +\section{Discretisation of the dynamical equations} +\index{The hydrodynamic code} + +% definitions pour les formules mathematiques +%\newcommand{\dep}[1]{\left( #1 \right) } +%\newcommand{\depb}[1]{\left[ #1 \right] } +%\newcommand{\depc}[1]{\left\{ #1 \right\} } +\newcommand{\deriv}[1]{\frac{\partial }{\partial #1} } +\def\abs#1{\left| #1 \right|} +\renewcommand{\-}[1]{$^{-#1}$} + +% definitions pour la dynamique +\newcommand{\dt}[1]{\frac{\partial #1}{\partial t}} +\newcommand{\dsig}[1]{\deriv{\sigma} \dep{#1} } +\newcommand{\diverg}[1]{\vec{\nabla}.\dep{#1 \vec{V}} } +%\newcommand{\der}[2]{\frac{\partial #1 }{\partial #2} } +\def\ps{p_s} +\def\t{\theta} +\def\w{\dot{\sigma}} +\def\cp{C_p} +\def\rcp{\kappa} + +% +% ATTENTION ne plait pas a latex2html (I don't know why) +% de toutes facons inutile +%\def\p0{p_0} +%\def\s{ {\dep{\frac{p}{\p0}}}^{\rcp} } +% + +\newcommand{\adv}[1]{\diverg{\ps #1} + \dsig{\ps #1 \dot{\sigma}} } + +\def\sc#1{Section~\ref{sc:#1}} +\def\an#1{Annexe~\ref{an:#1}} +\def\ch#1{Chapitre~\ref{ch:#1}} +\def\fig#1{Fig.~\ref{fg:#1}} +\def\figs#1{Figs.~\ref{fg:#1}} +\def\eq#1{Eq.~\ref{eq:#1}} +\def\eqs#1{Eqs.~\ref{eq:#1}} +\def\tb#1{Table~\ref{tb:#1}} +%\newcommand{\av}[2]{{\overline{#1}}^{ #2 }} +%\newcommand{\avg}[1]{\left< #1 \right>} +\def\cd{C_D} +\def\dx{\delta_X} +\def\dy{\delta_Y} +\def\dz{\delta_Z} + +\def\filtre{{\cal F}} +\def\uabs{\tilde{u}_{a}} +\def\err{\epsilon} +\def\dsig{\dz \sigma} +\def\psk{{\ps}^\kappa} +\def\ucov{\tilde{u}} +\def\vcov{\tilde{v}} +\def\ucont{\tilde{\ucov}} +\def\vcont{\tilde{\vcov}} +\def\cu{c_u} +\def\cv{c_v} +\def\h{\theta} +\def\pext{\tilde{p}_s} +\def\fext{f} +\def\K{\frac{1}{2} +\left( \av{\ucov \ucont}{X} + \av{\vcov \vcont}{Y} \right)} +\def\Z{\frac{\filtre\dep{\dx \vcov - \dy \ucov} + \fext}{\av{\pext}{X,Y}}} +\def\Zm{\frac{- \dy \ucov + \fext}{\av{\pext}{Y}}} + +\newcommand{\glob}[1]{ \left< #1 \right> } + +{\it Extrait de la note de Robert Sadourny, Phu Le Van et Fr\'ed\'eric +Hourdin, Laboratoire de M\protect\'et\protect{\'e}orologie Dynamique}.\\ + +[to be translated when I get the time...] + +Le mod\`ele climatique du LMD est b\^ati, comme tous les +mod\`eles de circulation g\'en\'erale atmosph\'erique, +sur la r\'esolution num\'erique des {\'equations primitives +de la m\'et\'eorologie} d\'ecrites dans de nombreux +ouvrages~\cite{Holt:79}. +L'analyse pr\'esent\'ee ici a \'et\'e men\'ee sur la nouvelle +version de la dynamique du LMD \'ecrite par Phu Le Van~\cite{LeVa:89} +sur une formulation de Robert Sadourny. +Cette formulation diff\`ere de l'ancienne essentiellement +par deux points: +dans la nouvelle formulation, la r\'epartition des points en +longitude et en latitude peut \^etre chang\'ee arbitrairement. +L'autre modification porte sur la r\'epartition des points +aux p\^oles\footnote{Aux p\^oles sont calcul\'es: +le vent m\'eridien dans l'ancienne formulation et les variables +scalaires dans la nouvelle.}. + +La coordonn\'ee verticale du mod\`ele est la pression normalis\'ee +par sa valeur \`a la surface: $\sigma=p/\ps$. +On utilise en fait $\sigma$ aux niveaux inter-couches +et $s=\sigma^\kappa$ au milieu des couches. +On note $X$ et $Y$ les coordonn\'ees horizontales: + +\begin{figure} +\begin{center} +\includegraphics[width=13cm]{Fig/glob.eps} +\includegraphics[width=10cm]{Fig/med.eps} +\caption{Grille obtenue avec 96 points en longitude et 73 en latitude et +un zoom d'un facteur 3 centr\'e sur la m\'edit\'erann\'ee (grille utilis\'ee au laboratoire par Ali Harzallah)\label{fg:zoom}}. +\end{center} +\end{figure} + +$X$ (resp. $Y$) est une fonction biunivoque de la longitude $\lambda$ +(resp. de la latitude $\phi$). Ces deux fonctions peuvent \^etre choisies +de fa\c{c}on arbitraire dans le mod\`ele LMDZ ce qui permet d'effectuer un +zoom sur une r\'egion du globe particuli\`ere. Une grille de ce type est montr\'ee +sur la Figure~\ref{fg:zoom}. +Les variables scalaires +(temp\'erature potentielle $\h = c_p T/\psk$, g\'eopotentiel $\Phi$ +et pression de surface $\ps$) sont \'evalu\'ees aux points +correspondant \`a des couples de valeurs enti\`eres $(X,Y)=(i,j)$. +Les variables dynamiques sont d\'ecal\'ees par rapport aux variables +scalaires en utilisant une grille $C$ dans la d\'efinition de +Arakawa~\cite{Arak:77}: le vent zonal est calcul\'e +aux points $(X,Y)=(i+1/2,j)$ et le vent +m\'eridien aux points $(X,Y)=(i,j+1/2)$. +La disposition des variables sur la grille est illustr\'ee sur la +Figure~\ref{fg:grille}. + +\begin{figure} +\centerline{\framebox{\includegraphics[width=0.6\textwidth]{Fig/grille.eps}}} +\caption{Disposition des variables dans la grille du LMD} +\label{fg:grille} +\end{figure} + + +On utilise en fait les composantes covariantes +($\ucov$ et $\vcov$) et contravariantes ($\ucont$ et $\vcont$) +du vent d\'efinies par +\begin{equation} +\begin{array}{llllllllll} +\ucov = \cu u & \mbox{et} & \ucont = u / \cu & \mbox{avec} & +\cu = a \cos{\phi} \left( d\lambda/dX \right) \\ +\vcov = \cv v & \mbox{et} & \vcont = v / \cv & \mbox{avec} & +\cv = a \left( d\phi / dY \right) +\end{array} +\end{equation} +% +o\`u $u$ et $v$ sont les composantes physiques du vecteur vent +horizontal. +On introduit \'egalement: +% +\paragraph{la pression extensive:} +$\pext$ (pression au sol multipli\'ee +par l'aire de la maille). +% +\paragraph{les trois composantes du flux de masse:} +\begin{equation} +U=\av{\pext}{X} \ucont ,\ V= \av{\pext}{Y} \vcont \ \mbox{et} \ +W= \pext \dot{\sigma} +\ \mbox{avec}\ \dot{\sigma}=\frac{d\sigma}{dt} +\end{equation} +% +\paragraph{le facteur de Coriolis multipli\'e par l'aire de la maille:} +$\fext=2\Omega \sin{\phi} \cu \cv$\\ +o\`u $\Omega$ est la vitesse de rotation de la plan\`ete. +% +\paragraph{la vorticit\'e potentielle absolue:} +\begin{equation} +Z=\Z +\end{equation} +% +\paragraph{l'\'energie cin\'etique} +\begin{equation} +K=\K +\end{equation}\\ +% +La notation $\delta X$ signifie simplement qu'on +effectue la diff\'erence entre deux points cons\'ecutifs +suivant la direction $X$. +La notation $\av{a}{X}$ signifie qu'on prend la moyenne arithm\'etique +de la quantit\'e $a$ suivant la direction $X$. $\filtre$ est un filtre longitudinale appliqu\'e dans les r\'egions polaires. +Les \'equations discr\'etis\'ees sont \'ecrites sous la forme +suivante: +\paragraph{\'equations du mouvement:} +\begin{equation} \label{eq:u1} +\dt{\ucov} - +\av{Z}{Y} \av{V}{X,Y} ++ \dx \filtre\dep{\Phi + K} ++s \av{\h}{X} \dx \filtre\dep{\psk} +- \frac{\av{\uabs}{Y,Y} \dz \av{W}{X} } +{\av{\pext}{X} \dsig } ++ \frac{\dz \left( \av{W}{X} \av{\uabs}{Z} \right) } +{\av{\pext}{X} \dsig} +=S_{\ucov} +\end{equation} +o\'u $\uabs$ est la composante zonale covariante +du vecteur vent absolu: +$\uabs=\ucov+\cu a \Omega \cos{\phi}$ et +\begin{equation} \label{eq:v1} +\dt{\vcov} + \av{Z}{X} \av{U}{X,Y} + \dy \filtre\dep{\Phi + K} ++s \av{\h}{Y} \dy \filtre\dep{\psk} +- \frac{\av{\vcov}{X,X} \dz \av{W}{Y} } +{\av{\pext}{Y} \dsig} ++ \frac{\dz \left( \av{W}{Y} \av{\vcov}{Z} \right) } +{\av{\pext}{X} \dsig} +=S_{\vcov} +\end{equation} +% +\paragraph{\'equation thermodynamique:} +% +\begin{equation} +\label{eq:thermo} +\dt{\dep{\pext \h}} ++\filtre\depb{\dx \dep{\av{\h}{X}U} +\dy \dep{\av{\h}{Y}V} } ++\frac{\dz \dep{\av{\h}{Z} W}}{\dz \sigma}=S_\h +\end{equation} +% +\paragraph{\'equation hydrostatique:} +\begin{equation} +\dz \Phi=-\ps^\rcp \av{\h}{z} \dz s +\end{equation} +% +\paragraph{\'equations de continuit\'e:} +% +\begin{equation} +\label{eq:cont1} +\dt{\ps} = \filtre\depb{\sum_z{\dz \sigma \dep{\dx U+ \dy V}}} +\end{equation} +\begin{equation} +\label{eq:cont2} +\dz W = -\dz \sigma \depb{\filtre\dep{\dx U+ \dy V} + \dt{\ps}} +\end{equation} +% +On a not\'e $S$ les termes sources dans les diff\'erentes \'equations. +Dans ces termes sources, on distingue 1) d'une part les param\'etrisations physiques mentionn\'ees plus haut et qui font intervenir pour une maille donn\'ee du mod\`ele, tous les points situ\'es sur une m\^eme verticale mais ceux-l\`a seulement; 2) les op\'erateurs de dissipation horizontale, cens\'es rendre compte des \'echanges entre \'echelles explicitement repr\'esent\'ees dans le mod\`ele et \'echelles sous-mailles. Ces op\'erateurs ont la structure de Laplaciens agissant sur des plans horizontaux c'est \`a dire qu'il font intervenir un voisin de chaque c\^ot\'e dans les deux directions horizontales. Cet op\'erateur est g\'en\'eralement it\'er\'e pour le rendre plus s\'electif en \'echelle (plus on it\`ere un laplacien et plus son effet sur les petites \'echelles devient important relativement). + +\section{High latitude filters} + +{\it Extract adapted from Forget et al. [1999]}\\ + +At high latitude a filter is applied near +the singularity in the grid at the pole +in order to satisfy the Courant-Friedrichs-Lewy numerical +stability criterion without going to an excessively +small timestep. In the original version of the dynamical code +a classical Fourier filter was used, but +we found that because the Martian polar +atmosphere appears to be much more dynamically unstable than the Earth's +polar atmosphere, a more efficient formulation (based on the +grouping of adjacent gridpoints together) was necessary +to avoid numerical instability. \\ + +{\it In practice the following technique is used in the subroutine called {\em groupeun.F} : +\begin{itemize} +\item The points are grouped in packets of $2^{\mbox{ngroup}}$ + at the poles(e.g. {\bf ngroup}=3 $\rightarrow$ packets of 8), + then $2^{\mbox{ngroup-1}}$, + $2^{\mbox{ngroup-2}}$, etc. in the lower latitudes moving away from the pole + + \item The higher {\bf ngroup} is, the more efficient the smoothing is, and the more stable the model. + +\item BUT, {\bf iim} must be divisible by $2^{\mbox{ngroup}}$ !!! + + +\end{itemize} + +} + + +\section{Dissipation} + +{\it Extract adapted from Forget et al. [1999]}\\ + +In the LMD grid point model, +nonlinear interactions between explicitly resolved scales +and subgrid-scale processes are +parameterized by applying a scale-selective horizontal +dissipation operator +based on an $n$ time iterated Laplacian $\Delta^{n}$. +For the grid point model, for instance, this can be written +${\partial q}/{\partial t} = ([-1]^{n}/ {\tau_{\mbox{\scriptsize +diss}}}) +(\delta x)^{2n} \Delta^{n} q$ +where $\delta x$ is the smallest horizontal distance represented in the +model and $\tau_{\mbox{\scriptsize diss}}$ is the dissipation timescale +for a st +ructure of scale +$\delta x$. +These operators are necessary to ensure the grid point model +numerical stability. +In practice, the operator is +separately applied to (1)~potential temperature, (2)~the divergence of +the flow, +and (3)~its vorticity. +We respectively use $n=2$, $n=1$, and $n=2$ in the grid point model.\\ + +{\it Note: In practice, +values of $n$ and $\tau_{\mbox{\scriptsize diss}}$ +are adjustable and prescribed at the beginning of each run, in run definition file ``run.def'' (cf.~\ref{vb:run.def}) } + +\section{Sponge layer} + +{\it Extract adapted from Forget et al. [1999]}\\ + +In the upper levels a sponge layer is also used in both models +in an attempt to reduce +spurious reflections of vertically propagating waves from the model top. +Unlike the traditional Rayleigh friction formulation, +this operates as a linear drag + solely on the eddy components of the vorticity and divergence +fields and is not scale-selective. The timescales on which it operates +are +typically half a day, 1 day, and 2 days + at the three uppermost levels, respectively. \\ + +{\it Note: the sponge layer ``timescale'' values and their extensions in altitude +are adjustable and prescribed at the beginning of each run, in run definition file ``run.def'' (cf.~\ref{vb:run.def}) } + + + + + + + Index: /trunk/LMDZ.TITAN/DOC/input/callphys.tex =================================================================== --- /trunk/LMDZ.TITAN/DOC/input/callphys.tex (revision 1644) +++ /trunk/LMDZ.TITAN/DOC/input/callphys.tex (revision 1644) @@ -0,0 +1,129 @@ +{\footnotesize +\begin{verbatim} + +## Orbit / general options +## ~~~~~~~~~~~~~~~~~~~~~~~ +# Run with or without tracer transport ? +tracer = .true. +# Diurnal cycle ? if diurnal=false, diurnally averaged solar heating +diurnal = .true. +# Seasonal cycle ? if season=false, Ls stays constant, to value set in "start" +season = .true. +# Tidally resonant orbit ? must have diurnal=false, correct rotation rate in newstart +tlocked = .false. +# Tidal resonance ratio ? ratio T_orbit to T_rotation +nres = 10 +# Write some more output on the screen ? +lwrite = .false. +# Save statistics in file "stats.nc" ? +callstats = .true. +# Test energy conservation of model physics ? +enertest = .true. + +## Radiative transfer options +## ~~~~~~~~~~~~~~~~~~~~~~~~~~ +# call radiative transfer? +callrad = .true. +# the rad. transfer is computed every "iradia" physical timestep +iradia = 4 +# call multilayer correlated-k radiative transfer ? +corrk = .true. +# folder in which correlated-k data is stored ? +corrkdir = CO2_H2Ovar +# call visible gaseous absorption in radiative transfer ? +callgasvis = .true. +# Include Rayleigh scattering in the visible ? +rayleigh = .true. +# Characteristic planetary equilibrium (black body) temperature +# This is used only in the aerosol radiative transfer setup. (see aerave.F) +tplanet = 215. +# Output spectral OLR in 1D/3D? +specOLR = .false. +# Output global radiative balance in file 'rad_bal.out' - slow for 1D!! +meanOLR = .true. +# Variable gas species: Radiatively active ? +varactive = .true. +# Variable gas species: Fixed vertical distribution ? +varfixed = .false. +# Variable gas species: Saturation percentage value at ground ? +satval = 0.0 + +## Star type +## ~~~~~~~~~ +startype = 1 +# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ +# The choices are: +# +# startype = 1 Sol (G2V-class main sequence) +# startype = 2 Ad Leo (M-class, synthetic) +# startype = 3 GJ644 +# startype = 4 HD128167 +# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ +# Stellar flux at 1 AU. Examples: +# 1366.0 W m-2 Sol today +# 1024.5 W m-2 Sol today x 0.75 = weak early Sun +# 18.462 W m-2 The feeble Gl581 +# 19.960 W m-2 Gl581 with e=0.38 orbital average +Fat1AU = 1024.5 + +## Tracer and aerosol options +## ~~~~~~~~~~~~~~~~~~~~~~~~~~ +# Gravitational sedimentation of tracers (KEEP FALSE FOR NOW) ? +sedimentation = .false. + +## Other physics options +## ~~~~~~~~~~~~~~~~~~~~~ +# call turbulent vertical diffusion ? +calldifv = .true. +# call convective adjustment ? +calladj = .true. +# call thermal conduction in the soil ? +callsoil = .true. + +######################################### +## extra specific options for Early Mars +######################################### + +## Tracer and aerosol options +## ~~~~~~~~~~~~~~~~~~~~~~~~~~ +# Fixed aerosol distributions? +aerofixed = .false. +# Varying H2O cloud fraction? +CLFvarying = .false. +# H2O cloud fraction? +CLFfixval = 0.5 +# number mixing ratio of CO2 ice particles +Nmix_co2 = 100000. +# number mixing ratio of water ice particles +Nmix_h2o = 100000. + +## Water options +## ~~~~~~~~~~~~~ +# Model water cycle +water = .true. +# Model water cloud formation +watercond = .true. +# Model water precipitation (including coagulation etc.) +waterrain = .true. +# WATER: Precipitation threshold (simple scheme only) ? +rainthreshold = 0.0011 +# Include hydrology ? +hydrology = .true. +# H2O snow (and ice) albedo ? +albedosnow = 0.5 +# Maximum sea ice thickness ? +maxicethick = 0.05 +# Freezing point of seawater (degrees C) ? +Tsaldiff = 0.0 + +## CO2 options +## ~~~~~~~~~~~ +# gas is non-ideal CO2 ? +nonideal = .false. +# call CO2 condensation ? +co2cond = .true. +# Set initial temperature profile to 1 K above CO2 condensation everywhere? +nearco2cond = .false. + +\end{verbatim} +} Index: /trunk/LMDZ.TITAN/DOC/input/callphys.tex.bak =================================================================== --- /trunk/LMDZ.TITAN/DOC/input/callphys.tex.bak (revision 1644) +++ /trunk/LMDZ.TITAN/DOC/input/callphys.tex.bak (revision 1644) @@ -0,0 +1,115 @@ +{\footnotesize +\begin{verbatim} + +##General options +##~~~~~~~~~~~~~~~ +#Run with or without tracer transport ? +tracer=.false. + +#Diurnal cycle ? if diurnal=False, diurnal averaged solar heating +diurnal=.true. + +#Seasonal cycle ? if season=False, Ls stays constant, to value set in "start" +season = .true. + +#write some more output on the screen ? +lwrite = .false. + +#Save statistics in file "stats.nc" ? +stats =.true. + +#Save EOF profiles in file "profiles" for Climate Database? +calleofdump = .false. + +## Dust scenario. Used if the dust is prescribed (i.e. if tracer=F or active=F) +## ~~~~~~~~~~~~~ +# =1 Dust opt.deph read in startfi; =2 Viking scenario; =3 MGS scenario, +# =4 Mars Year 24 from TES assimilation (same as =24 for now) +# =24 Mars Year 24 from TES assimilation (ie: MCD reference case) +# =25 Mars Year 25 from TES assimilation (ie: a year with a global dust storm) +# =26 Mars Year 26 from TES assimilation +iaervar = 24 +# Dust vertical distribution: +# (=0: old distrib. (Pollack90), =1: top set by "topdustref", +# =2: Viking scenario; =3 MGS scenario) +iddist = 3 +# Dust top altitude (km). (Matters only if iddist=1) +topdustref = 55. + +## Physical Parameterizations : +## ~~~~~~~~~~~~~~~~~~~~~~~~~~ +# call radiative transfer ? +callrad = .true. +# call NLTE radiative schemes ? matters only if callrad=T +callnlte = .true. +# call CO2 NIR absorption ? matters only if callrad=T +callnirco2 = .true. +# call turbulent vertical diffusion ? +calldifv = .true. +# call convective adjustment ? +calladj = .true. +# call CO2 condensation ? +callcond =.true. +# call thermal conduction in the soil ? +callsoil = .true. +# call Lott's gravity wave/subgrid topography scheme ? +calllott = .true. + +## Radiative transfer options : +## ~~~~~~~~~~~~~~~~~~~~~~~~~~ +# the rad.transfer is computed every "iradia" physical timestep +iradia = 1 +# Output of the exchange coefficient mattrix ? for diagnostic only +callg2d = .false. +# Rayleigh scattering : (should be .false. for now) +rayleigh = .false. + +## Tracer (dust water, ice and/or chemical species) options (used if tracer=T): +## ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ +# DUST: Transported dust ? (if >0, use 'dustbin' dust bins) +dustbin = 0 +# DUST: Radiatively active dust ? (matters if dustbin>0) +active = .false. +# DUST: use mass and number mixing ratios to predict dust size ? +# (must also have dustbin=1) +doubleq = .false. +# DUST: lifted by GCM surface winds ? +lifting = .false. +# DUST: lifted by dust devils ? +callddevil = .false. +# DUST: Scavenging by CO2 snowfall ? +scavenging = .false. +# DUST/WATERICE: Gravitationnal sedimentation ? +sedimentation = .false. +# WATERICE: Radiatively active transported atmospheric water ice ? +activice = .false. +# WATER: Compute water cycle +water = .false. +# WATER: current permanent caps at both poles. True IS RECOMMENDED +# (with .true., North cap is a source of water and South pole +# is a cold trap) +caps = .true. +# PHOTOCHEMISTRY: include chemical species +photochem = .false. + +## Thermospheric options (relevant if tracer=T) : +##~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ +# call thermosphere ? +callthermos = .false. +# WATER: included without cycle (only if water=.false.) +thermoswater = .false. +# call thermal conduction ? (only if callthermos=.true.) +callconduct = .false. +# call EUV heating ? (only if callthermos=.true.) +calleuv=.false. +# call molecular viscosity ? (only if callthermos=.true.) +callmolvis = .false. +# call molecular diffusion ? (only if callthermos=.true.) +callmoldiff = .false. +# call thermospheric photochemistry ? (only if callthermos=.true.) +thermochem = .false. +# date for solar flux calculation: (1985 < date < 2002) +## (Solar min=1996.4 ave=1993.4 max=1990.6) +solarcondate = 1993.4 +\end{verbatim} +} Index: /trunk/LMDZ.TITAN/DOC/input/ctl =================================================================== --- /trunk/LMDZ.TITAN/DOC/input/ctl (revision 1644) +++ /trunk/LMDZ.TITAN/DOC/input/ctl (revision 1644) @@ -0,0 +1,33 @@ +dset statsa2m4.dat +title Run 0.000, day 0 to 0 +undef -9.99E33 +options yrev +xdef 64 linear -180.0000 5.6250 +ydef 49 linear -88.1633 3.6735 +zdef 25 levels + 0.9996389 0.9983609 0.9960319 0.9918210 0.9842223 + 0.9706507 0.9467649 0.9058902 0.8391817 0.7385885 + 0.6042400 0.4522929 0.3100970 0.1979461 0.1201197 + 0.0704957 0.0404525 0.0228180 0.0126525 0.0068702 + 0.0036093 0.0018078 0.0008212 0.0003282 0.0000653 +tdef 12 linear 0z1jan0001 2hr +vars 18 +co2ice 0 99 mean CO2 ice cover (kg/m2) +sdco2ice 0 99 stdv CO2 ice cover (kg/m2) +emis 0 99 mean emissivity +sdemis 0 99 stdv emissivity +tsurf 0 99 mean surface temperature (K) +sdtsurf 0 99 stdv surface temperature (K) +ps 0 99 mean surface pressure (Pa) +sdps 0 99 stdv surface pressure (Pa) +t 25 99 mean temperature (K) +sdt 25 99 stdv temperature (K) +u 25 99 mean zonal velocity (m/s) +sdu 25 99 stdv zonal velocity (m/s) +v 25 99 mean meridional velocity (m/s) +sdv 25 99 stdv meridional velocity (m/s) +rho 25 99 mean density (kg/m3) +sdrho 25 99 stdv density (kg/m3) +q2 25 99 mean b/layer eddy ke (m2/s2) +sdq2 25 99 stdv b/layer eddy ke (m2/s2) +endvars Index: /trunk/LMDZ.TITAN/DOC/input/ctl.tex =================================================================== --- /trunk/LMDZ.TITAN/DOC/input/ctl.tex (revision 1644) +++ /trunk/LMDZ.TITAN/DOC/input/ctl.tex (revision 1644) @@ -0,0 +1,37 @@ +\begin{verbatim} +_______________________________________________________ +dset statsa2m4.dat +title Run 0.000, day 0 to 0 +undef -9.99E33 +options yrev +xdef 64 linear -180.0000 5.6250 +ydef 49 linear -88.1633 3.6735 +zdef 25 levels + 0.9996389 0.9983609 0.9960319 0.9918210 0.9842223 + 0.9706507 0.9467649 0.9058902 0.8391817 0.7385885 + 0.6042400 0.4522929 0.3100970 0.1979461 0.1201197 + 0.0704957 0.0404525 0.0228180 0.0126525 0.0068702 + 0.0036093 0.0018078 0.0008212 0.0003282 0.0000653 +tdef 12 linear 0z1jan0001 2hr +vars 18 +co2ice 0 99 mean CO2 ice cover (kg/m2) +sdco2ice 0 99 stdv CO2 ice cover (kg/m2) +emis 0 99 mean emissivity +sdemis 0 99 stdv emissivity +tsurf 0 99 mean surface temperature (K) +sdtsurf 0 99 stdv surface temperature (K) +ps 0 99 mean surface pressure (Pa) +sdps 0 99 stdv surface pressure (Pa) +t 25 99 mean temperature (K) +sdt 25 99 stdv temperature (K) +u 25 99 mean zonal velocity (m/s) +sdu 25 99 stdv zonal velocity (m/s) +v 25 99 mean meridional velocity (m/s) +sdv 25 99 stdv meridional velocity (m/s) +rho 25 99 mean density (kg/m3) +sdrho 25 99 stdv density (kg/m3) +q2 25 99 mean b/layer eddy ke (m2/s2) +sdq2 25 99 stdv b/layer eddy ke (m2/s2) +endvars +------------------------------------------------------- +\end{verbatim} Index: /trunk/LMDZ.TITAN/DOC/input/diag_list =================================================================== --- /trunk/LMDZ.TITAN/DOC/input/diag_list (revision 1644) +++ /trunk/LMDZ.TITAN/DOC/input/diag_list (revision 1644) @@ -0,0 +1,90 @@ +netcdf diagfi1 { +dimensions: + Time = UNLIMITED ; // (366 currently) + index = 100 ; + rlonu = 65 ; + latitude = 49 ; + longitude = 65 ; + rlatv = 48 ; + interlayer = 26 ; + altitude = 25 ; +variables: + float Time(Time) ; + Time:long_name = "Time" ; + Time:units = "days since 0000-00-0 00:00:00" ; + float controle(index) ; + controle:title = "Parametres de controle" ; + float rlonu(rlonu) ; + rlonu:title = "Longitudes aux points u" ; + float latitude(latitude) ; + latitude:units = "degrees_north" ; + latitude:long_name = "North latitude" ; + float longitude(longitude) ; + longitude:long_name = "East longitude" ; + longitude:units = "degrees_east" ; + float altitude(altitude) ; + altitude:long_name = "pseudo-alt" ; + altitude:units = "km" ; + altitude:positive = "up" ; + float rlatv(rlatv) ; + rlatv:title = "Latitudes aux points v" ; + float aps(altitude) ; + aps:title = "hybrid pressure at midlayers" ; + aps:units = "h" ; + float bps(altitude) ; + bps:title = "hybrid sigma at midlayers" ; + bps:units = "h" ; + float ap(interlayer) ; + ap:title = "hybrid pressure at interlayers" ; + ap:units = "h" ; + float bp(interlayer) ; + bp:title = "hybrid sigma at interlayers" ; + bp:units = "h" ; + float cu(latitude, rlonu) ; + cu:title = "Coefficients de passage cov <--> nature" ; + float cv(rlatv, longitude) ; + cv:title = "Coefficients de passage cov <--> nature" ; + float aire(latitude, longitude) ; + aire:title = "Aires des mailles" ; + float phisinit(latitude, longitude) ; + phisinit:title = "Geopotentiel au sol init" ; + float mtot(Time, latitude, longitude) ; + mtot:title = "total mass of water vapor" ; + mtot:units = "kg/m2" ; + float icetot(Time, latitude, longitude) ; + icetot:title = "total mass of water ice" ; + icetot:units = "kg/m2" ; + float rice(Time, altitude, latitude, longitude) ; + rice:title = "ice radius" ; + rice:units = "meter" ; + float rave(Time, latitude, longitude) ; + rave:title = "Mean ice radius" ; + rave:units = "meter" ; + float co2ice(Time, latitude, longitude) ; + co2ice:title = "co2 ice thickness" ; + co2ice:units = "kg.m-2" ; + float tsurf(Time, latitude, longitude) ; + tsurf:title = "Surface temperature" ; + tsurf:units = "K" ; + float ps(Time, latitude, longitude) ; + ps:title = "surface pressure" ; + ps:units = "K" ; + float temp(Time, altitude, latitude, longitude) ; + temp:title = "temperature" ; + temp:units = "K" ; + float tau(Time, latitude, longitude) ; + tau:title = "tau" ; + tau:units = "t" ; + float q02(Time, altitude, latitude, longitude) ; + q02:title = "mix. ratio" ; + q02:units = "kg/kg" ; + float qsurf02(Time, latitude, longitude) ; + qsurf02:title = "qsurf" ; + qsurf02:units = "kg.m-2" ; + float q01(Time, altitude, latitude, longitude) ; + q01:title = "mix. ratio" ; + q01:units = "kg/kg" ; + float qsurf01(Time, latitude, longitude) ; + qsurf01:title = "qsurf" ; + qsurf01:units = "kg.m-2" ; +} Index: /trunk/LMDZ.TITAN/DOC/input/diag_list.tex =================================================================== --- /trunk/LMDZ.TITAN/DOC/input/diag_list.tex (revision 1644) +++ /trunk/LMDZ.TITAN/DOC/input/diag_list.tex (revision 1644) @@ -0,0 +1,84 @@ +{\footnotesize +\begin{verbatim} +netcdf diagfi { +dimensions: + Time = UNLIMITED ; // (12 currently) + index = 100 ; + rlonu = 65 ; + latitude = 49 ; + longitude = 65 ; + rlatv = 48 ; + interlayer = 26 ; + altitude = 25 ; + subsurface_layers = 18 ; +variables: + float Time(Time) ; + Time:long_name = "Time" ; + Time:units = "days since 0000-00-0 00:00:00" ; + float controle(index) ; + controle:title = "Control parameters" ; + float rlonu(rlonu) ; + rlonu:title = "Longitudes at u nodes" ; + float latitude(latitude) ; + latitude:units = "degrees_north" ; + latitude:long_name = "North latitude" ; + float longitude(longitude) ; + longitude:long_name = "East longitude" ; + longitude:units = "degrees_east" ; + float altitude(altitude) ; + altitude:long_name = "pseudo-alt" ; + altitude:units = "km" ; + altitude:positive = "up" ; + float rlatv(rlatv) ; + rlatv:title = "Latitudes at v nodes" ; + float aps(altitude) ; + aps:title = "hybrid pressure at midlayers" ; + aps:units = "Pa" ; + float bps(altitude) ; + bps:title = "hybrid sigma at midlayers" ; + bps:units = "" ; + float ap(interlayer) ; + ap:title = "hybrid pressure at interlayers" ; + ap:units = "Pa" ; + float bp(interlayer) ; + bp:title = "hybrid sigma at interlayers" ; + bp:units = "" ; + float soildepth(subsurface_layers) ; + soildepth:long_name = "Soil mid-layer depth" ; + soildepth:units = "m" ; + soildepth:positive = "down" ; + float cu(latitude, rlonu) ; + cu:title = "Conversion coefficients cov <--> natural" ; + float cv(rlatv, longitude) ; + cv:title = "Conversion coefficients cov <--> natural" ; + float aire(latitude, longitude) ; + aire:title = "Mesh area" ; + float phisinit(latitude, longitude) ; + phisinit:title = "Geopotential at the surface" ; + float emis(Time, latitude, longitude) ; + emis:title = "Surface emissivity" ; + emis:units = "w.m-1" ; + float tsurf(Time, latitude, longitude) ; + tsurf:title = "Surface temperature" ; + tsurf:units = "K" ; + float ps(Time, latitude, longitude) ; + ps:title = "surface pressure" ; + ps:units = "Pa" ; + float co2ice(Time, latitude, longitude) ; + co2ice:title = "co2 ice thickness" ; + co2ice:units = "kg.m-2" ; + float mtot(Time, latitude, longitude) ; + mtot:title = "total mass of water vapor" ; + mtot:units = "kg/m2" ; + float icetot(Time, latitude, longitude) ; + icetot:title = "total mass of water ice" ; + icetot:units = "kg/m2" ; + float tauTES(Time, latitude, longitude) ; + tauTES:title = "tau abs 825 cm-1" ; + tauTES:units = "" ; + float h2o_ice_s(Time, latitude, longitude) ; + h2o_ice_s:title = "surface h2o_ice" ; + h2o_ice_s:units = "kg.m-2" ; +} +\end{verbatim} +} Index: /trunk/LMDZ.TITAN/DOC/input/dyn_cntl =================================================================== --- /trunk/LMDZ.TITAN/DOC/input/dyn_cntl (revision 1644) +++ /trunk/LMDZ.TITAN/DOC/input/dyn_cntl (revision 1644) @@ -0,0 +1,21 @@ +tab_cntrl(1) = float(iim) ! nombre de points en longitude +tab_cntrl(2) = float(jjm) ! nombre de points en latitude +tab_cntrl(3) = float(llm) ! nombre de couches +tab_cntrl(4) = float(idayref) ! jour 0 +tab_cntrl(5) = rad ! rayon de mars(m) ~3397200 +tab_cntrl(6) = omeg ! vitesse de rotation (rad.s-1) +tab_cntrl(7) = g ! gravite (m.s-2) ~3.72 +tab_cntrl(8) = mugaz ! Masse molaire de l'atm (g.mol-1) ~43.49 +tab_cntrl(9) = kappa ! = r/cp ~0.256793 (=rcp dans physique) +tab_cntrl(10) = daysec ! duree du sol (s) ~88775 +tab_cntrl(11) = dtvr ! pas de temps de la dynamique (s) + +tab_cntrl(12) = etot0 ! energie totale ! +tab_cntrl(13) = ptot0 ! pression totalei ! variables +tab_cntrl(14) = ztot0 ! enstrophie totale ! de controle +tab_cntrl(15) = stot0 ! enthalpie totale ! globales +tab_cntrl(16) = ang0 ! moment cinetique ! +tab_cntrl(17) = clon ! longitude en degres du centre du zoom +tab_cntrl(18) = clat ! latitude en degres du centre du zoom +tab_cntrl(19) = alphax ! facteur de grossissement du zoom,selon longitude +tab_cntrl(20) = alphay ! facteur de grossissement du zoom ,selon latitude Index: /trunk/LMDZ.TITAN/DOC/input/dyn_cntl.tex =================================================================== --- /trunk/LMDZ.TITAN/DOC/input/dyn_cntl.tex (revision 1644) +++ /trunk/LMDZ.TITAN/DOC/input/dyn_cntl.tex (revision 1644) @@ -0,0 +1,32 @@ +{\footnotesize +\begin{verbatim} + tab_cntrl(1) = FLOAT(iim) ! number of nodes along longitude + tab_cntrl(2) = FLOAT(jjm) ! number of nodes along latitude + tab_cntrl(3) = FLOAT(llm) ! number of atmospheric layers + tab_cntrl(4) = FLOAT(idayref) ! initial day + tab_cntrl(5) = rad ! radius of the planet + tab_cntrl(6) = omeg ! rotation of the planet (rad/s) + tab_cntrl(7) = g ! gravity (m/s2) ~3.72 for Mars + tab_cntrl(8) = cpp + tab_cntrl(9) = kappa ! = r/cp + tab_cntrl(10) = daysec ! lenght of a sol (s) ~88775 + tab_cntrl(11) = dtvr ! dynamical time step (s) + tab_cntrl(12) = etot0 ! total energy + tab_cntrl(13) = ptot0 ! total pressure + tab_cntrl(14) = ztot0 ! total enstrophy + tab_cntrl(15) = stot0 ! total enthalpy + tab_cntrl(16) = ang0 ! total angular momentum + tab_cntrl(17) = pa + tab_cntrl(18) = preff ! reference pressure (Pa) + tab_cntrl(19) = clon ! longitude of center of zoom + tab_cntrl(20) = clat ! latitude of center of zoom + tab_cntrl(21) = grossismx ! zooming factor, along longitude + tab_cntrl(22) = grossismy ! zooming factor, along latitude + + tab_cntrl(24) = dzoomx ! extention (in longitude) of zoom + tab_cntrl(25) = dzoomy ! extention (in latitude) of zoom + + tab_cntrl(27) = taux ! stiffness factor of zoom in longitude + tab_cntrl(28) = tauy ! stiffness factor of zoom in latitude +\end{verbatim} +} Index: /trunk/LMDZ.TITAN/DOC/input/dyn_head =================================================================== --- /trunk/LMDZ.TITAN/DOC/input/dyn_head (revision 1644) +++ /trunk/LMDZ.TITAN/DOC/input/dyn_head (revision 1644) @@ -0,0 +1,11 @@ +aire: Aires des mailles +cv: Coefficients de passage cov <--> naturel +cu: Coefficients de passage cov <--> naturel +sig_s: sigmas aux niveaux s +s: Niveaux s +sig: Niveaux sigmas +rlatv: Latitudes aux points v +rlonv: Longitudes aux points v +rlatu: Latitudes aux points u +rlonu: Longitudes aux points u +controle: Tableau des parametres du run Index: /trunk/LMDZ.TITAN/DOC/input/dyn_head.tex =================================================================== --- /trunk/LMDZ.TITAN/DOC/input/dyn_head.tex (revision 1644) +++ /trunk/LMDZ.TITAN/DOC/input/dyn_head.tex (revision 1644) @@ -0,0 +1,15 @@ +\begin{verbatim} +_______________________________________________________ +aire: Aires des mailles +cv: Coefficients de passage cov <--> naturel +cu: Coefficients de passage cov <--> naturel +sig_s: sigmas aux niveaux s +s: Niveaux s +sig: Niveaux sigmas +rlatv: Latitudes aux points v +rlonv: Longitudes aux points v +rlatu: Latitudes aux points u +rlonu: Longitudes aux points u +controle: Tableau des parametres du run +------------------------------------------------------- +\end{verbatim} Index: /trunk/LMDZ.TITAN/DOC/input/dyn_list =================================================================== --- /trunk/LMDZ.TITAN/DOC/input/dyn_list (revision 1644) +++ /trunk/LMDZ.TITAN/DOC/input/dyn_list (revision 1644) @@ -0,0 +1,19 @@ +phis: geopotentiel au sol +pext: pression extensive +q01: traceur +h: temperature potentielle +vcov: vents v covariants +ucov: vents u covariants +temps: temps simule +phisinit: Geopotentiel au sol init +aire: Aires des mailles +cv: Coefficients de passage cov <--> naturel +cu: Coefficients de passage cov <--> naturel +sig_s: sigmas aux niveaux s +s: Niveaux s +sig: Niveaux sigmas +rlatv: Latitudes aux points v +rlonv: Longitudes aux points v +rlatu: Latitudes aux points u +rlonu: Longitudes aux points u +controle: Tableau des parametres du run Index: /trunk/LMDZ.TITAN/DOC/input/dyn_list.tex =================================================================== --- /trunk/LMDZ.TITAN/DOC/input/dyn_list.tex (revision 1644) +++ /trunk/LMDZ.TITAN/DOC/input/dyn_list.tex (revision 1644) @@ -0,0 +1,73 @@ +{\footnotesize +\begin{verbatim} +netcdf start { +dimensions: + index = 100 ; + rlonu = 33 ; + latitude = 25 ; + longitude = 33 ; + rlatv = 24 ; + altitude = 18 ; + interlayer = 19 ; + Time = UNLIMITED ; // (1 currently) +variables: + float controle(index) ; + controle:title = "Parametres de controle" ; + float rlonu(rlonu) ; + rlonu:title = "Longitudes des points U" ; + float rlatu(latitude) ; + rlatu:title = "Latitudes des points U" ; + float rlonv(longitude) ; + rlonv:title = "Longitudes des points V" ; + float rlatv(rlatv) ; + rlatv:title = "Latitudes des points V" ; + float ap(interlayer) ; + ap:title = "Coef A: hybrid pressure levels" ; + float bp(interlayer) ; + bp:title = "Coef B: hybrid sigma levels" ; + float aps(altitude) ; + aps:title = "Coef AS: hybrid pressure at midlayers" ; + float bps(altitude) ; + bps:title = "Coef BS: hybrid sigma at midlayers" ; + float presnivs(altitude) ; + float latitude(latitude) ; + latitude:units = "degrees_north" ; + latitude:long_name = "North latitude" ; + float longitude(longitude) ; + longitude:long_name = "East longitude" ; + longitude:units = "degrees_east" ; + float altitude(altitude) ; + altitude:long_name = "pseudo-alt" ; + altitude:units = "km" ; + altitude:positive = "up" ; + float cu(latitude, rlonu) ; + cu:title = "Coefficient de passage pour U" ; + float cv(rlatv, longitude) ; + cv:title = "Coefficient de passage pour V" ; + float aire(latitude, longitude) ; + aire:title = "Aires de chaque maille" ; + float phisinit(latitude, longitude) ; + phisinit:title = "Geopotentiel au sol" ; + float Time(Time) ; + Time:title = "Temps de simulation" ; + Time:units = "days since 1-01-01 00:00:00" ; + float ucov(Time, altitude, latitude, rlonu) ; + ucov:title = "Vitesse U" ; + float vcov(Time, altitude, rlatv, longitude) ; + vcov:title = "Vitesse V" ; + float teta(Time, altitude, latitude, longitude) ; + teta:title = "Temperature" ; + float h2o_ice(Time, altitude, latitude, longitude) ; + h2o_ice:title = "Traceur h2o_ice" ; + float h2o_vap(Time, altitude, latitude, longitude) ; + h2o_vap:title = "Traceur h2o_vap" ; + float masse(Time, altitude, latitude, longitude) ; + masse:title = "C est quoi ?" ; + float ps(Time, latitude, longitude) ; + ps:title = "Pression au sol" ; + +// global attributes: + :title = "Dynamic start file" ; +} +\end{verbatim} +} Index: /trunk/LMDZ.TITAN/DOC/input/esasig.def =================================================================== --- /trunk/LMDZ.TITAN/DOC/input/esasig.def (revision 1644) +++ /trunk/LMDZ.TITAN/DOC/input/esasig.def (revision 1644) @@ -0,0 +1,4 @@ +10 atmospheric scale height (km) (used as a reference only) +80 maximum altitude (km) +.01 thikness of the first layer (km) +2. number of layer for "sponge layer" at the top Index: /trunk/LMDZ.TITAN/DOC/input/esasig.tex =================================================================== --- /trunk/LMDZ.TITAN/DOC/input/esasig.tex (revision 1644) +++ /trunk/LMDZ.TITAN/DOC/input/esasig.tex (revision 1644) @@ -0,0 +1,8 @@ +\begin{verbatim} +_______________________________________________________ +10 atmospheric scale height (km) (used as a reference only) +80 maximum altitude (km) +.01 thikness of the first layer (km) +2. number of layer for "sponge layer" at the top +------------------------------------------------------- +\end{verbatim} Index: /trunk/LMDZ.TITAN/DOC/input/ex.tex =================================================================== --- /trunk/LMDZ.TITAN/DOC/input/ex.tex (revision 1644) +++ /trunk/LMDZ.TITAN/DOC/input/ex.tex (revision 1644) @@ -0,0 +1,13 @@ +\documentstyle[a4,10pt]{article} +\begin{document} +\pagestyle{empty} + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\begin{verbatim} + + +\end{verbatim} +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +\end{document} + Index: /trunk/LMDZ.TITAN/DOC/input/fi_cntl =================================================================== --- /trunk/LMDZ.TITAN/DOC/input/fi_cntl (revision 1644) +++ /trunk/LMDZ.TITAN/DOC/input/fi_cntl (revision 1644) @@ -0,0 +1,46 @@ +c Info sur la grille physique + tab_cntrl(1) = float(ngridmx) ! nombre de points de la grille physique + tab_cntrl(2) = float(nlayermx) ! nombre de couches + tab_cntrl(3) = float(idayref) ! jour 0 + +c Info sur la Planete Mars pour la dynamique et la physique + tab_cntrl(5) = rad ! rayon de mars(m) ~3397200 + tab_cntrl(6) = omeg ! vitesse de rotation (rad.s-1) + tab_cntrl(7) = g ! gravite (m.s-2) ~3.72 + tab_cntrl(8) = mugaz ! Masse molaire de l'atm (g.mol-1) ~43.49 + tab_cntrl(9) = rcp ! = r/cp ~0.256793 (=kappa dans dynamique) + tab_cntrl(10) = daysec ! duree du sol (s) ~88775 + + tab_cntrl(11) = dtphys ! pas de temps de la physique + tab_cntrl(12) = 0. + tab_cntrl(13) = 0. + +c Info sur la Planete Mars pour la physique uniquement + tab_cntrl(14) = year_day ! duree de l'annee (sols) ~668.6 + tab_cntrl(15) = periheli ! dist.min. soleil-mars (Mkm) ~206.66 + tab_cntrl(16) = aphelie ! dist.max. soleil-mars (Mkm) ~249.22 + tab_cntrl(17) = peri_day ! date du perihelie (sols depuis printemps) + tab_cntrl(18) = obliquit ! Obliquite de la planete (deg) ~23.98 + +c Couche limite et Turbulence + tab_cntrl(19) = z0 ! surface roughness (m) ~0.01 + tab_cntrl(20) = lmixmin ! longueur de melange ~100 + tab_cntrl(21) = emin_turb ! energie minimale ~1.e-8 + +c propriete optiques des calottes et emissivite du sol + tab_cntrl(22) = albedice(1) ! Albedo calotte nord ~0.5 + tab_cntrl(23) = albedice(2) ! Albedo calotte sud ~0.5 + tab_cntrl(24) = emisice(1) ! Emissivite calotte nord ~0.95 + tab_cntrl(25) = emisice(2) ! Emissivite calotte sud ~0.95 + tab_cntrl(26) = emissiv ! Emissivite du sol martien ~.95 + tab_cntrl(31) = iceradius(1) ! mean scat radius of CO2 snow (north) + tab_cntrl(32) = iceradius(2) ! mean scat radius of CO2 snow (south) + tab_cntrl(33) = dtemisice(1) ! time scale for snow metamorphism (north) + tab_cntrl(34) = dtemisice(2) ! time scale for snow metamorphism (south) + +c Proprietes des poussiere aerosol + tab_cntrl(27) = tauvis ! profondeur optique visible moyenne + + tab_cntrl(28) = 0. + tab_cntrl(29) = 0. + tab_cntrl(30) = 0. Index: /trunk/LMDZ.TITAN/DOC/input/fi_cntl.tex =================================================================== --- /trunk/LMDZ.TITAN/DOC/input/fi_cntl.tex (revision 1644) +++ /trunk/LMDZ.TITAN/DOC/input/fi_cntl.tex (revision 1644) @@ -0,0 +1,54 @@ +{\footnotesize +\begin{verbatim} +c Informations on the physics grid + tab_cntrl(1) = float(ngridmx) ! number of nodes on physics grid + tab_cntrl(2) = float(nlayermx) ! number of atmospheric layers + tab_cntrl(3) = day_ini + int(time) ! initial day + tab_cntrl(4) = time -int(time) ! initiale time of day + +c Informations about Mars, used by dynamics and physics + tab_cntrl(5) = rad ! radius of Mars (m) ~3397200 + tab_cntrl(6) = omeg ! rotation rate (rad.s-1) + tab_cntrl(7) = g ! gravity (m.s-2) ~3.72 + tab_cntrl(8) = mugaz ! Molar mass of the atmosphere (g.mol-1) ~43.49 + tab_cntrl(9) = rcp ! = r/cp ~0.256793 (=kappa dans dynamique) + tab_cntrl(10) = daysec ! length of a sol (s) ~88775 + + tab_cntrl(11) = phystep ! time step in the physics + tab_cntrl(12) = 0. + tab_cntrl(13) = 0. + +c Informations about Mars, only for physics + tab_cntrl(14) = year_day ! length of year (sols) ~668.6 + tab_cntrl(15) = periheli ! min. Sun-Mars distance (Mkm) ~206.66 + tab_cntrl(16) = aphelie ! max. SUn-Mars distance (Mkm) ~249.22 + tab_cntrl(17) = peri_day ! date of perihelion (sols since N. spring) + tab_cntrl(18) = obliquit ! Obliquity of the planet (deg) ~23.98 + +c Boundary layer and turbulence + tab_cntrl(19) = z0 ! surface roughness (m) ~0.01 + tab_cntrl(20) = lmixmin ! mixing length ~100 + tab_cntrl(21) = emin_turb ! minimal energy ~1.e-8 + +c Optical properties of polar caps and ground emissivity + tab_cntrl(22) = albedice(1) ! Albedo of northern cap ~0.5 + tab_cntrl(23) = albedice(2) ! Albedo of southern cap ~0.5 + tab_cntrl(24) = emisice(1) ! Emissivity of northern cap ~0.95 + tab_cntrl(25) = emisice(2) ! Emissivity of southern cap ~0.95 + tab_cntrl(26) = emissiv ! Emissivity of martian soil ~.95 + tab_cntrl(31) = iceradius(1) ! mean scat radius of CO2 snow (north) + tab_cntrl(32) = iceradius(2) ! mean scat radius of CO2 snow (south) + tab_cntrl(33) = dtemisice(1) ! time scale for snow metamorphism (north) + tab_cntrl(34) = dtemisice(2) ! time scale for snow metamorphism (south) + +c dust aerosol properties + tab_cntrl(27) = tauvis ! mean visible optical depth + + tab_cntrl(28) = 0. + tab_cntrl(29) = 0. + tab_cntrl(30) = 0. + +! Soil properties: + tab_cntrl(35) = volcapa ! soil volumetric heat capacity +\end{verbatim} +} Index: /trunk/LMDZ.TITAN/DOC/input/fi_head =================================================================== --- /trunk/LMDZ.TITAN/DOC/input/fi_head (revision 1644) +++ /trunk/LMDZ.TITAN/DOC/input/fi_head (revision 1644) @@ -0,0 +1,8 @@ +area: Aires des mailles +lati: Latitudes +long: Longitudes +surf_coor: Indice vertical sol +vert2_coor: Indice vertical (bords) +vert_coor: Indice vertical +hor_coor: Indice horizontal +controle: Tableau des parametres du run Index: /trunk/LMDZ.TITAN/DOC/input/fi_head.tex =================================================================== --- /trunk/LMDZ.TITAN/DOC/input/fi_head.tex (revision 1644) +++ /trunk/LMDZ.TITAN/DOC/input/fi_head.tex (revision 1644) @@ -0,0 +1,14 @@ +{\footnotesize +\begin{verbatim} +_______________________________________________________ +area: Aires des mailles +lati: Latitudes +long: Longitudes +surf_coor: Indice vertical sol +vert2_coor: Indice vertical (bords) +vert_coor: Indice vertical +hor_coor: Indice horizontal +controle: Tableau des parametres du run +------------------------------------------------------- +\end{verbatim} +} Index: /trunk/LMDZ.TITAN/DOC/input/fi_list =================================================================== --- /trunk/LMDZ.TITAN/DOC/input/fi_list (revision 1644) +++ /trunk/LMDZ.TITAN/DOC/input/fi_list (revision 1644) @@ -0,0 +1,22 @@ +q2: pbl wind variance +emis: surface emissivity +tsoil: Soil temperature +tsurf: Surface temperature +co2ice: CO2 ice cover +temps: temps simule +zthe: Relief: parametre theta +zgam: Relief: parametre gamma +zsig: Relief: parametre sigma +zstd: ecartype du relief +zmea: Relief moyen +inertiedat: Inertie thermique du sol +albedodat: Albedo du sol nu +phisfi: Geopotentiel au sol init +area: Aires des mailles +lati: Latitudes +long: Longitudes +surf_coor: Indice vertical sol +vert2_coor: Indice vertical (bords) +vert_coor: Indice vertical +hor_coor: Indice horizontal +controle: Tableau des parametres du run Index: /trunk/LMDZ.TITAN/DOC/input/fi_list.tex =================================================================== --- /trunk/LMDZ.TITAN/DOC/input/fi_list.tex (revision 1644) +++ /trunk/LMDZ.TITAN/DOC/input/fi_list.tex (revision 1644) @@ -0,0 +1,54 @@ +{\footnotesize +\begin{verbatim} +netcdf startfi { +dimensions: + index = 100 ; + physical_points = 738 ; + subsurface_layers = 18 ; + nlayer_plus_1 = 19 ; + number_of_advected_fields = 3 ; +variables: + float controle(index) ; + controle:title = "Control parameters" ; + float soildepth(subsurface_layers) ; + soildepth:title = "Soil mid-layer depth" ; + float longitude(physical_points) ; + longitude:title = "Longitudes of physics grid" ; + float latitude(physical_points) ; + latitude:title = "Latitudes of physics grid" ; + float area(physical_points) ; + area:title = "Mesh area" ; + float phisfi(physical_points) ; + phisfi:title = "Geopotential at the surface" ; + float albedodat(physical_points) ; + albedodat:title = "Albedo of bare ground" ; + float ZMEA(physical_points) ; + ZMEA:title = "Relief: mean relief" ; + float ZSTD(physical_points) ; + ZSTD:title = "Relief: standard deviation" ; + float ZSIG(physical_points) ; + ZSIG:title = "Relief: sigma parameter" ; + float ZGAM(physical_points) ; + ZGAM:title = "Relief: gamma parameter" ; + float ZTHE(physical_points) ; + ZTHE:title = "Relief: theta parameter" ; + float co2ice(physical_points) ; + co2_ice:title = "CO2 ice cover" ; + float inertiedat(subsurface_layers, physical_points) ; + inertiedat:title = "Soil thermal inertia" ; + float tsurf(physical_points) ; + tsurf:title = "Surface temperature" ; + float tsoil(subsurface_layers, physical_points) ; + tsoil:title = "Soil temperature" ; + float emis(physical_points) ; + emis:title = "Surface emissivity" ; + float q2(nlayer_plus_1, physical_points) ; + q2:title = "pbl wind variance" ; + float h2o_ice(physical_points) ; + h2o_ice:title = "tracer on surface" ; + +// global attributes: + :title = "Physics start file" ; +} +\end{verbatim} +} Index: /trunk/LMDZ.TITAN/DOC/input/h2o_list.tex =================================================================== --- /trunk/LMDZ.TITAN/DOC/input/h2o_list.tex (revision 1644) +++ /trunk/LMDZ.TITAN/DOC/input/h2o_list.tex (revision 1644) @@ -0,0 +1,129 @@ +{\footnotesize +\begin{verbatim} +## Orbit / general options +## ~~~~~~~~~~~~~~~~~~~~~~~ +# Run with or without tracer transport ? +tracer = .true. +# Diurnal cycle ? if diurnal=false, diurnally averaged solar heating +diurnal = .true. +# Seasonal cycle ? if season=false, Ls stays constant, to value set in "start" +season = .true. +# Tidally resonant orbit ? must have diurnal=false, correct rotation rate in newstart +tlocked = .false. +# Tidal resonance ratio ? ratio T_orbit to T_rotation +nres = 10 +# Write some more output on the screen ? +lwrite = .false. +# Save statistics in file "stats.nc" ? +callstats = .true. +# Test energy conservation of model physics ? +enertest = .true. + +## Radiative transfer options +## ~~~~~~~~~~~~~~~~~~~~~~~~~~ +# call radiative transfer? +callrad = .true. +# the rad. transfer is computed every "iradia" physical timestep +iradia = 4 +# call multilayer correlated-k radiative transfer ? +corrk = .true. +# folder in which correlated-k data is stored ? +corrkdir = CO2_H2Ovar +# call visible gaseous absorption in radiative transfer ? +callgasvis = .true. +# Include Rayleigh scattering in the visible ? +rayleigh = .true. +# Characteristic planetary equilibrium (black body) temperature +# This is used only in the aerosol radiative transfer setup. (see aerave.F) +tplanet = 215. +# Output spectral OLR in 1D/3D? +specOLR = .false. +# Output global radiative balance in file 'rad_bal.out' - slow for 1D!! +meanOLR = .true. +# Variable gas species: Radiatively active ? +varactive = .true. +# Variable gas species: Fixed vertical distribution ? +varfixed = .false. +# Variable gas species: Saturation percentage value at ground ? +satval = 0.0 + +## Star type +## ~~~~~~~~~ +startype = 1 +# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ +# The choices are: +# +# startype = 1 Sol (G2V-class main sequence) +# startype = 2 Ad Leo (M-class, synthetic) +# startype = 3 GJ644 +# startype = 4 HD128167 +# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ +# Stellar flux at 1 AU. Examples: +# 1366.0 W m-2 Sol today +# 1024.5 W m-2 Sol today x 0.75 = weak early Sun +# 18.462 W m-2 The feeble Gl581 +# 19.960 W m-2 Gl581 with e=0.38 orbital average +Fat1AU = 1024.5 + +## Tracer and aerosol options +## ~~~~~~~~~~~~~~~~~~~~~~~~~~ +# Gravitational sedimentation of tracers (just H2O ice for now) ? +sedimentation = .false. + +## Other physics options +## ~~~~~~~~~~~~~~~~~~~~~ +# call turbulent vertical diffusion ? +calldifv = .true. +# call convective adjustment ? +calladj = .true. +# call thermal conduction in the soil ? +callsoil = .true. + +######################################################################### +## extra non-standard definitions for Early Mars +######################################################################### + +## Tracer and aerosol options +## ~~~~~~~~~~~~~~~~~~~~~~~~~~ +# Fixed aerosol distributions? +aerofixed = .false. +# Varying H2O cloud fraction? +CLFvarying = .false. +# H2O cloud fraction? +CLFfixval = 1.0 +# number mixing ratio of CO2 ice particles +Nmix_co2 = 100000. +# number mixing ratio of water ice particles +Nmix_h2o = 100000. + +## Water options +## ~~~~~~~~~~~~~ +# Model water cycle +water = .true. +# Model water cloud formation +watercond = .true. +# Model water precipitation (including coagulation etc.) +waterrain = .true. +# WATER: Precipitation threshold (simple scheme only) ? +rainthreshold = 0.0011 +# Include hydrology ? +hydrology = .true. +# H2O snow (and ice) albedo ? +albedosnow = 0.5 +# Maximum sea ice thickness ? +maxicethick = 0.05 +# Freezing point of seawater (degrees C) ? +Tsaldiff = 0.0 +# Evolve surface water sources ? +sourceevol = .true. + +## CO2 options +## ~~~~~~~~~~~ +# gas is non-ideal CO2 ? +nonideal = .false. +# call CO2 condensation ? +co2cond = .true. +# Set initial temperature profile to 1 K above CO2 condensation everywhere? +nearco2cond = .false. +\end{verbatim} +} Index: /trunk/LMDZ.TITAN/DOC/input/h2o_list.tex.bak =================================================================== --- /trunk/LMDZ.TITAN/DOC/input/h2o_list.tex.bak (revision 1644) +++ /trunk/LMDZ.TITAN/DOC/input/h2o_list.tex.bak (revision 1644) @@ -0,0 +1,29 @@ +{\footnotesize +\begin{verbatim} +## Tracer (dust water, ice and/or chemical species) options (used if tracer=T): +## ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ +# DUST: Transported dust ? (if >0, use 'dustbin' dust bins) +dustbin = 0 +# DUST: Radiatively active dust ? (matters if dustbin>0) +active = .false. +# DUST: use mass and number mixing ratios to predict dust size ? +# (must also have dustbin=1) +doubleq = .false. +# DUST: lifted by GCM surface winds ? +lifting = .false. +# DUST: lifted by dust devils ? +callddevil = .false. +# DUST: Scavenging by CO2 snowfall ? +scavenging = .false. +# DUST/WATERICE: Gravitationnal sedimentation ? +sedimentation = .true. +# WATERICE: Radiatively active transported atmospheric water ice ? +activice = .false. +# WATER: Compute water cycle +water = .true. +# WATER: current permanent caps at both poles. True IS RECOMMENDED +# (with .true., North cap is a source of water and South pole +# is a cold trap) +caps = .true. +\end{verbatim} +} Index: /trunk/LMDZ.TITAN/DOC/input/h2o_list.tex.sav =================================================================== --- /trunk/LMDZ.TITAN/DOC/input/h2o_list.tex.sav (revision 1644) +++ /trunk/LMDZ.TITAN/DOC/input/h2o_list.tex.sav (revision 1644) @@ -0,0 +1,34 @@ +{\footnotesize +\begin{verbatim} + + +## Tracer (dust water, ice and/or chemical species) options (used if tracer=T): +## ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ +# DUST: Transported dust ? (if >0, use 'dustbin' dust bins) +dustbin = 0 +# DUST: Radiatively active dust ? (matters if dustbin>0) +active = .false. +# DUST: use mass and number mixing ratios to predict dust size ? +# (must also have dustbin=1) +doubleq = .false. +# DUST: lifted by GCM surface winds ? +lifting = .false. +# DUST: lifted by dust devils ? +callddevil = .false. +# DUST: Scavenging by CO2 snowfall ? +scavenging = .false. +# DUST/WATERICE: Gravitationnal sedimentation ? +sedimentation = .true. +# WATERICE: Radiatively active transported atmospheric water ice ? +activice = .false. +# WATER: Compute water cycle +water = .true. +# WATER: current permanent caps at both poles. True IS RECOMMENDED +# (with .true., North cap is a source of water and South pole +# is a cold trap) +caps = .true. + + + +\end{verbatim} +} Index: /trunk/LMDZ.TITAN/DOC/input/hist_list =================================================================== --- /trunk/LMDZ.TITAN/DOC/input/hist_list (revision 1644) +++ /trunk/LMDZ.TITAN/DOC/input/hist_list (revision 1644) @@ -0,0 +1,19 @@ +ps: pression extensive moyennee +q1: +T: temperature moyennees +v: vents v naturels moyennes +u: vents u naturels moyennees +dttot: periode moyennee +temps: temps simule +phisinit: Geopotentiel au sol init +aire: Aires des mailles +cv: Coefficients de passage cov <--> naturel +cu: Coefficients de passage cov <--> naturel +sig_s: sigmas aux niveaux s +s: Niveaux s +sig: Niveaux sigmas +rlatv: Latitudes aux points v +rlonv: Longitudes aux points v +rlatu: Latitudes aux points u +rlonu: Longitudes aux points u +controle: Tableau des parametres du run Index: /trunk/LMDZ.TITAN/DOC/input/hist_list.tex =================================================================== --- /trunk/LMDZ.TITAN/DOC/input/hist_list.tex (revision 1644) +++ /trunk/LMDZ.TITAN/DOC/input/hist_list.tex (revision 1644) @@ -0,0 +1,22 @@ +\begin{verbatim} +_______________________________________________________ +ps: pression de surface moyennee +q1: quantite de traceur +T: temperature moyennees +v: vents v naturels moyennes +u: vents u naturels moyennees +dttot: periode moyennee +temps: temps simule +phisinit: Geopotentiel au sol init +aire: Aires des mailles +cv: Coefficients de passage cov <--> naturel +cu: Coefficients de passage cov <--> naturel +ap: Facteur de coordonnees hybrides +bp: Facteur de coordonnees hybrides ou niveau sigma +rlatv: Latitudes aux points v +rlonv: Longitudes aux points v +rlatu: Latitudes aux points u +rlonu: Longitudes aux points u +controle: Tableau des parametres du run +------------------------------------------------------- +\end{verbatim} Index: /trunk/LMDZ.TITAN/DOC/input/makegcm =================================================================== --- /trunk/LMDZ.TITAN/DOC/input/makegcm (revision 1644) +++ /trunk/LMDZ.TITAN/DOC/input/makegcm (revision 1644) @@ -0,0 +1,464 @@ +#!/bin/csh + +# penser a mettre le -autopar pour le -O (optimisation) pour PARALLEL 2 +setenv PARALLEL 2 + +# path a changer contenant les sources et les objets du modele +if ( ! $?LMDGCM ) then + echo You must initialize the variable LMDGCM in your environnement + echo for instance: "setenv LMDGCM /usr/myself/supergcm" in .cshrc + exit +endif +if ( ! $?LIBOGCM ) then + set LIBOGCM=$LMDGCM/libo +endif +if ( ! $?DRSDIR ) then + echo You must initialize the variable DRSDIR in your environnement + echo for instance: "setenv DRSDIR /usr/myself/drs" in .cshrc + exit +endif +set model=$LMDGCM +set libo=$LIBOGCM + +######################################################################## +# Les differentes platformes reconnues +######################################################################## +set HP=0 +set IBM=0 +set SUN=0 +set CRAY=0 +if ( `uname` == HP-UX ) then + set machine=HP + set HP=1 +else if (`uname` == SunOS ) then + set machine=SUN + set SUN=1 +else if ( `uname` == AIX ) then + set machine=IBM + set IBM=1 +else if ( `hostname` == atlas || `hostname` == axis ) then + set machine=CRAY + set CRAY=1 +else + echo Vous travaillez sur une machine non prevue par le reglement + exit +endif + +if $CRAY then +set libo=$WORKDIR/libo +endif +if ( ! -d $libo ) then + mkdir $libo +endif +set drs=$DRSDIR + +######################################################################## +# options par defaut pour la commande make +######################################################################## + +echo model $model +set dim="32x24x25" +set physique=mars +set phys="PHYS=mars" +set include='-I$(LIBF)/grid -I$(LIBF)/dyn3d -I$(LIBF)/bibio -I. ' +set ntrac = 0 +set filtre=filtrez +set grille=reg + +set cray="" +set dyn= +set opt_link="" +set adjnt="" +set opt_dep="" + +######################################################################## +# Optimisations par defaut suivant les machines +######################################################################## + +set libf=$model/libf +set localdir="LOCAL_DIR=`pwd`" +cd $model +if $HP then + set optim=" +U77 -O -K +E1 " +else if $SUN then + set optim=" -fast -autopar" +# set optim=" -Ztha -fast -autopar" +# set optim=" -C -g -Xlist" +# set optim=" -fast" +else if $IBM then + set optim=" -O3 -qtune=pwr2 -qarch=pwr2" +else + set optim="" +endif + +if ( ! $CRAY ) then +set nomlib=$machine +endif + + +######################################################################## +# lecture des options de mymake +######################################################################## + +top: +if ($#argv > 0) then + switch ($1:q) + + case -h: + +######################################################################## +# Manuel en ligne +######################################################################## +more <> tmp +end +set suf= +foreach i ( `sort tmp | uniq ` ) + set suf=$suf$i +end +if ( ! $IBM ) then + set nomlib="$nomlib$suf" +endif +if $IBM then + set dim=`echo $dim | sed -en 's/[^0-9]/ /g'` + set dim_=`echo $dim | sed -en 's/[^0-9]/_/g'` +else + set dim=`echo $dim | sed -e 's/[^0-9]/ /gp'` + set dim_=`echo $dim | sed -e 's/[^0-9]/_/gp'` +endif +set nomlib=${nomlib}_${physique}_${dim_}_t${ntrac}_$grille + +######################################################################## +# path pour les #include +######################################################################## +if $HP then +set include="$include -I$drs/HP" +else if $SUN then +set include="$include -I$drs/SUN" +else if $IBM then +set include="$include -I$drs/IBM" +else +set include="$include -I$drs" +endif +echo $include + +######################################################################## +# on cree ou remplace le fichier des dimensions/nombre de traceur +######################################################################## +cd $libf/grid/dimension +makdim $ntrac $dim +set dimc=`echo $dim | wc -w` +cat $libf/grid/dimensions.h + + +set libo=$libo/$nomlib +if ( ! -d $libo ) then + mkdir $libo + cd $model +endif + + +######################################################################## +# Differentes dynamiques +######################################################################## + +set dimension=`echo $dim | wc -w` +echo dimension $dimension +if ( $dimension == 1 ) then +echo pas de dynamique +set dyn="L_DYN= DYN= L_FILTRE= DIRMAIN=phy$physique " +endif +endif +cd $model +if ( $dimension == 3 ) then +cd libf/grid +\rm fxyprim.h +cp -p fxy_${grille}.h fxyprim.h +endif + +###################################################################### +# fonctions CRAY +###################################################################### + +if ! $CRAY then + set dircray=$model/cray/libf # repertoire par defaut + if $HP then + if ( ` echo $optim | grep autodblpad ` != "" ) then + set opt_cray="-O +autodblpad" + set lib_cray=CrayHPr8 + else + set dircray=$model/cray/libfhp # versions optimisees pour HP + set opt_cray=-O + set lib_cray=CrayHP + endif + endif + if $SUN then + if ( ` echo $optim | grep r8 | wc -w ` != "0" ) then + set opt_cray=-r8 + set lib_cray=CraySUNr8 + else + set opt_cray=-O3 + set lib_cray=CraySUN + endif + endif + if $IBM then + set opt_cray="-O3 -qtune=pwr2 -qarch=pwr2" + set lib_cray=CrayIBM + endif + + cd $dircray + if ( ! -f makefile ) then + newmake + endif + make OPTIM="$opt_cray" NOM_LIB=$lib_cray + set cray="-L$dircray -l$lib_cray" + +endif + +###################################################################### +# execution de la commande make UNIX +###################################################################### + +if ( `expr $dimc \> 2` == 1 ) then + set filtre="FILTRE=$filtre" +else + set filtre="FILTRE= L_FILTRE= " +endif +echo MACRO FILTRE $filtre + +echo $dimc + +######################################################################## +# Avant de lancer le make, on recree le makefile si necessaire +######################################################################## +# c'est a dire dans 3 cas: +# 1. si la liste des fichiers .F et .h a ete modifiee depuis la +# derniere creation du makefile +# 2. si le fichier contenant cette liste "liste_des_sources" +# n'existe pas. +# 3. Si le makefile n'existe pas. +######################################################################## + +cd $model +( find libf -name '*.[Fh]' -print ; grep include libf/*/*F ) >! tmp + +if ( `diff tmp liste_des_sources | wc -w` \ + || ! -f makefile \ + || ! -f liste_des_sources ) then + echo les fichiers suivants ont ete crees ou detruits + diff liste_des_sources tmp + \cp tmp liste_des_sources + echo On recree le makefile + ./create_make_gcm >! tmp + \mv tmp makefile + echo Nouveau makefile cree. +endif + +######################################################################## +# Execution de la comande make +######################################################################## + +echo PHYSIQUE $phys +echo dynamique $dyn $dimension +echo OPTIM="$optim" $filtre LIBO=$libo $dyn PHYS=$phys DIM=$dimc PROG=$code +echo PATH pour les fichiers INCLUDE $include + +if $HP then + set f77='fort77 +OP' + set opt_link="$opt_link -lm" +else + set f77=f77 +endif + +cd $model +if ( $SUN || $IBM || $HP ) then + +make \ +OPTION_DEP="$opt_dep" OPTION_LINK="$opt_link" \ +OPTIM="$optim" \ +INCLUDE="$include" \ +L_CRAY="$cray" \ +$filtre \ +L_DRS="-L$drs/$machine -ldrs" \ +LIBO=$libo \ +$dyn \ +$phys \ +DIM=$dimc \ +L_ADJNT="$adjnt" \ +$localdir \ +F77="$f77" \ +PROG=$code + +else if $CRAY then + +make \ +OPTION_DEP="$opt_dep" OPTION_LINK="$opt_link" \ +INCLUDE="$include" \ +L_DRS="-L$drs -ldrs" \ +$filtre \ +LIBO=$libo \ +$dyn \ +$phys \ +DIM=$dimc \ +L_ADJNT="$adjnt" \ +$localdir \ +PROG=$code + +endif Index: /trunk/LMDZ.TITAN/DOC/input/makegcm_help =================================================================== --- /trunk/LMDZ.TITAN/DOC/input/makegcm_help (revision 1644) +++ /trunk/LMDZ.TITAN/DOC/input/makegcm_help (revision 1644) @@ -0,0 +1,78 @@ +Par default, la commande makegcm: +--------------------------------- + +1. compile une serie de sous programmes se trouvant dans des sous-repertoires +de $LMDGCM/libf +2. Ensuite, makegcm compile le programme prog.f se trouvant par default sur +$LMDGCM/libf/dyn3d et effectue le lien avec l'ensemble des librairies. + +La commande makegcm est faite pour permettre de gerer en parallele des +versions differentes du modele, compilees avec des options de compilation +et des dimensions differentes sans avoir a chaque fois a recompiler tout le +modele. + +Les librairies FORTRAN sont stoquees sur le directory $LIBOGCM. + + +OPTIONS: +-------- + +Les options suivantes peuvent etre definies soit par defaut en editant le +"script" makegcm, soit en interactif: + +-d imxjmxlm ou im, jm, et lm sont resp. le nombre de longitudes, latitudes + et couches verticales. + +-t ntrac selectionne le nombre de traceur advectes par la dynamique. + Dans les versions courantes du modele terrestre on a par exemple + ntrac=2 pour l'eau vapeur et liquide + + L'effet des options -d et -t est d'ecraser le fichier + $LMDGCM/libf/grid/dimensions.h + qui contient sous forme de 4 PARAMETER FORTRAN les 3 dimensions + de la grille horizontale im, jm, lm plus le nombre de traceurs + advectes passivement par la dynamique ntrac, par un nouveu fichier + $LMDGCM/libf/grid/dimension/dimensions.im.jm.lm.tntrac + Si ce fichier n'existe pas encore, il est cree par le script + $LMDGCM/libf/grid/dimension/makdim + +-p PHYS pour selectionner le jeu de parametrisations physiques avec + lequel on veut compiler le modele. + Le modele sera alors compile en prenant les sources des + parametrisations physiques dans le repertoire: + $LMDGCM/libf/phyPHYS + +-g grille selectionne le type de grille qu'on veut utiliser. + L'effet de cette option est d'ecraser le fichier + $LMDGCM/libf/grid/fxyprim.h avec le fichier + $LMDGCM/libf/grid/fxy_grille.h + La grille peut prendre les valeurs: + 1. reg pour la grille reguliere + 2. sin pour avoir des points equidistants en sinus de la latitude + 3. new pour pouvoir zoomer sur une partie du globe + +-O "optimisation fortran" ou les optimisations fortran sont les options de la + commande f77 + +-include path + Dans le cas ou on a dans des sous programmes des fichiers + #include (cpp) qui se trouve sur des repertoires non references + par defaut + +-adjnt Pour compiler la l'adjoint du code dynamique + +-filtre filtre + Pour choisir le filtre en longitude dans les regions polaires. + "filtre" correspond au nom d'un repertoire se trouvant sur + $LMDGCM/libf. Le filtre standard du modele est "filtrez" qui peut + etre utilise aussi bien pour une grille reguliere que pour une + grille zoomee en longitude. + +-link "-Ldir1 -lfile1 -Ldir2 -lfile2 ..." + Pour rajouter un lien avec les librairies FORTRAN + libfile1.a, libfile2.a ... se trouvant respectivement sur les + repertoires dir1, dir2 ... + Si dirn est un repertoire dont le chemin est automatique (comme + par exemple /usr/lib ...) il n'est pas besoin de specifier -Ldirn. + +Auteur: Frederic Hourdin (hourdin@lmd.jussieu.fr) Index: /trunk/LMDZ.TITAN/DOC/input/makegcm_help.tex =================================================================== --- /trunk/LMDZ.TITAN/DOC/input/makegcm_help.tex (revision 1644) +++ /trunk/LMDZ.TITAN/DOC/input/makegcm_help.tex (revision 1644) @@ -0,0 +1,91 @@ +{\footnotesize +\begin{verbatim} +makegcm [Options] prog + + +The makegcm script: +------------------- + +1. compiles a series of subroutines located in the $LMDGCM/libf + sub-directories. + The objects are then stored in the libraries in $LIBOGCM. + +2. then, makegcm compiles program prog.f located by default in +$LMDGCM/libf/dyn3d and makes the link with the libraries. + +Environment Variables '$LMDGCM' and '$LIBOGCM' + must be set as environment variables or directly + in the makegcm file. + +The makegcm command is used to control the different versions of the model + in parallel, compiled using the compilation options + and the various dimensions, without having to recompile the whole model. + +The FORTRAN libraries are stored in directory $LIBOGCM. + + +OPTIONS: +-------- + +The following options can either be defined by default by editing the +makegcm "script", or in interactive mode: + +-d imxjmxlm where im, jm, and lm are the number of longitudes, + latitudes and vertical layers respectively. + +-t ntrac Selects the number of tracers present in the model + + Options -d and -t overwrite file + $LMDGCM/libf/grid/dimensions.h + which contains the 3 dimensions of the + horizontal grid + im, jm, lm plus the number of tracers passively advected + by the dynamics ntrac, + in 4 PARAMETER FORTRAN format + with a new file: + $LMDGCM/libf/grid/dimension/dimensions.im.jm.lm.tntrac + If the file does not exist already + it is created by the script + $LMDGCM/libf/grid/dimension/makdim + +-p PHYS Selects the set of physical parameterizations + you want to compile the model with. + The model is then compiled using the physical + parameterization sources in directory: + $LMDGCM/libf/phyPHYS + +-g grille Selects the grid type. + This option overwrites file + $LMDGCM/libf/grid/fxyprim.h + with file + $LMDGCM/libf/grid/fxy_grille.h + the grid can take the following values: + 1. reg - the regular grid + 2. sin - to obtain equidistant points in terms of sin(latitude) + 3. new - to zoom into a part of the globe + +-O "compilation options" set of fortran compilation options to use + +-include path + Used if the subroutines contain #include files (ccp) that + are located in directories that are not referenced by default. + +-adjnt Compiles the adjoint model to the dynamical code. + +-filtre filter + To select the longitudinal filter in the polar regions. + "filter" corresponds to the name of a directory located in + $LMDGCM/libf. The standard filter for the model is "filtrez" + which can be used for a regular grid and for a + grid with longitudinal zoom. + +-link "-Ldir1 -lfile1 -Ldir2 -lfile2 ..." + Adds a link to FORTRAN libraries + libfile1.a, libfile2.a ... + located in directories dir1, dir2 ...respectively + If dirn is a directory with an automatic path + (/usr/lib ... for example) + there is no need to specify -Ldirn. + +\end{verbatim} +} Index: /trunk/LMDZ.TITAN/DOC/input/photochem_list.tex =================================================================== --- /trunk/LMDZ.TITAN/DOC/input/photochem_list.tex (revision 1644) +++ /trunk/LMDZ.TITAN/DOC/input/photochem_list.tex (revision 1644) @@ -0,0 +1,32 @@ +{\footnotesize + +\begin{verbatim} +## Tracer (dust water, ice and/or chemical species) options (used if tracer=T): +## ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ +# DUST: Transported dust ? (if >0, use 'dustbin' dust bins) +dustbin = 0 +# DUST: Radiatively active dust ? (matters if dustbin>0) +active = .false. +# DUST: use mass and number mixing ratios to predict dust size ? +# (must also have dustbin=1) +doubleq = .false. +# DUST: lifted by GCM surface winds ? +lifting = .false. +# DUST: lifted by dust devils ? +callddevil = .false. +# DUST: Scavenging by CO2 snowfall ? +scavenging = .false. +# DUST/WATERICE: Gravitationnal sedimentation ? +sedimentation = .true. +# WATERICE: Radiatively active transported atmospheric water ice ? +activice = .false. +# WATER: Compute water cycle +water = .true. +# WATER: current permanent caps at both poles. True IS RECOMMENDED +# (with .true., North cap is a source of water and South pole +# is a cold trap) +caps = .true. +# PHOTOCHEMISTRY: include chemical species +photochem = .true. +\end{verbatim} +} Index: /trunk/LMDZ.TITAN/DOC/input/questions_inistate.tex =================================================================== --- /trunk/LMDZ.TITAN/DOC/input/questions_inistate.tex (revision 1644) +++ /trunk/LMDZ.TITAN/DOC/input/questions_inistate.tex (revision 1644) @@ -0,0 +1,54 @@ +{\footnotesize +\begin{verbatim} + First set of questions: + Change values in tab_cntrl ? : + ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ + (Current values given above) + + (3) day_ini : Initial day (=0 at Ls=0) + (19) z0 : surface roughness (m) + (21) emin_turb : minimal energy (PBL) + (20) lmixmin : mixing length (PBL) + (26) emissiv : ground emissivity + (24 et 25) emisice : CO2 ice max emissivity + (22 et 23) albedice : CO2 ice cap albedos + (31 et 32) iceradius : mean scat radius of CO2 snow + (33 et 34) dtemisice : time scale for snow metamorphism + (27) tauvis : mean dust vis. reference opacity + (35) volcapa : soil volumetric heat capacity + (18) obliquit : planet obliquity (deg) + (17) peri_day : periastron date (sols since Ls=0) + (15) periastr : min. star-planet dist (Mkm) + (16) apoastr : max. star-planet (Mkm) + (14) year_day : length of year (in sols) + (5) rad : radius of the planet (m) + (6) omeg : planet rotation rate (rad/s) + (7) g : gravity (m/s2) + (8) mugaz : molecular mass of the atmosphere (g/mol) + (9) rcp : r/Cp + (10) daysec : length of a sol (s) + + Second set of questions : + flat : no topography ("aquaplanet") + bilball : uniform albedo and thermal inertia + coldspole : cold subsurface and high albedo at S.pole + qname : change tracer name + q=0 : ALL tracer =zero + q=x : give a specific uniform value to one tracer + ini_q : tracers initialisation for chemistry, water and ice + ini_q-H2O : tracers initialisation for chemistry and ice + ini_q-iceH2O : tracers initialisation for chemistry only + noglacier : Remove tropical H2O ice if |lat|<45 + watercapn : H20 ice on permanent N polar cap + watercaps : H20 ice on permanent S polar cap + oborealis : H2O ice across Vastitas Borealis + iceball : Thick ice layer all over surface + wetstart : start with a wet atmosphere + isotherm : Isothermal Temperatures, wind set to zero + radequi : Earth-like rad. eq. temperature profile and winds set to zero + co2ice=0 : remove CO2 polar cap + ptot : change total pressure + emis : change surface emissivity + therm_ini_s : Set soil thermal inertia to reference suface values +\end{verbatim} +} Index: /trunk/LMDZ.TITAN/DOC/input/questions_inistate.tex.bak =================================================================== --- /trunk/LMDZ.TITAN/DOC/input/questions_inistate.tex.bak (revision 1644) +++ /trunk/LMDZ.TITAN/DOC/input/questions_inistate.tex.bak (revision 1644) @@ -0,0 +1,55 @@ +{\footnotesize +\begin{verbatim} + First set of questions: + Change values in tab_cntrl ? : + ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ + (Current values given above) + + (3) day_ini : Initial day (=0 at Ls=0) + (19) z0 : surface roughness (m) + (21) emin_turb : minimal energy (PBL) + (20) lmixmin : mixing length (PBL) + (26) emissiv : ground emissivity + (24 et 25) emisice : CO2 ice max emissivity + (22 et 23) albedice : CO2 ice cap albedos + (31 et 32) iceradius : mean scat radius of CO2 snow + (33 et 34) dtemisice : time scale for snow metamorphism + (27) tauvis : mean dust vis. reference opacity + (35) volcapa : soil volumetric heat capacity + (18) obliquit : planet obliquity (deg) + (17) peri_day : periastron date (sols since Ls=0) + (15) periastr : min. star-planet dist (Mkm) + (16) apoastr : max. star-planet (Mkm) + (14) year_day : length of year (in sols) + (5) rad : radius of the planet (m) + (6) omeg : planet rotation rate (rad/s) + (7) g : gravity (m/s2) + (8) mugaz : molecular mass of the atmosphere (g/mol) + (9) rcp : r/Cp + (10) daysec : length of a sol (s) + + Second set of questions : + flat : no topography ("aquaplanet") + bilball : uniform albedo and thermal inertia + coldspole : cold subsurface and high albedo at S.pole + qname : change tracer name + q=0 : ALL tracer =zero + q=x : give a specific uniform value to one tracer + ini_q : tracers initialisation for chemistry, water and ice + ini_q-H2O : tracers initialisation for chemistry and ice + ini_q-iceH2O : tracers initialisation for chemistry only + noglacier : Remove tropical H2O ice if |lat|<45 + watercapn : H20 ice on permanent N polar cap + watercaps : H20 ice on permanent S polar cap + oborealis : H2O ice across Vastitas Borealis + iceball : Thick ice layer all over surface + wetstart : start with a wet atmosphere + isotherm : Isothermal Temperatures, wind set to zero + radequi : Earth-like radiative equilibrium temperatu profile (lat-alt) and winds set to zero + coldstart : Start X K above the CO2 frost point and set wind to zero (assumes 100% CO2) + co2ice=0 : remove CO2 polar cap + ptot : change total pressure + emis : change surface emissivity + therm_ini_s : Set soil thermal inertia to reference suface values +\end{verbatim} +} Index: /trunk/LMDZ.TITAN/DOC/input/run.def =================================================================== --- /trunk/LMDZ.TITAN/DOC/input/run.def (revision 1644) +++ /trunk/LMDZ.TITAN/DOC/input/run.def (revision 1644) @@ -0,0 +1,104 @@ +Parametres de controle du run: +------------------------------ + +- Nombre de jours d'integration + nday + 47 + +- nombre de pas par jour (multiple de iperiod) +day_step + 960. + +- periode pour le pas Matsuno (en pas) + iperiod + 5 + +- periode de sortie des variables de controle (en pas) + iconser + 120 + +- periode d'ecriture du fichier histoire (en jour) + iecri + 10 + +- periode de stockage fichier histmoy (en jour) + periodav + 1 + +- periode de la dissipation (en pas) + idissip + 5 + +- choix de l'operateur de dissipation (star ou non star ) + lstardis + F + +- nombre d'iterations de l'operateur de dissipation gradiv + nitergdiv + 1 + +- nombre d'iterations de l'operateur de dissipation nxgradrot + nitergrot + 2 + +- nombre d'iterations de l'operateur de dissipation divgrad + niterh + 2 + +- temps de dissipation des plus petites long.d ondes pour u,v (gradiv) + tetagdiv + 5500. + +- temps de dissipation des plus petites long.d ondes pour u,v (nxgradrot) + tetagrot + 3600. + +- temps de dissipation des plus petites long.d ondes pour h + tetatemp + 3600. + +- coefficient pour gamdissip + coefdis + 0. + +- periode de la physique (en pas) + iphysiq + 20 + +- choix du shema d'integration temporelle (Matsuno ou Matsuno-leapfrog) + purmats + F + +- choix d'une grille reguliere + grireg + T + +- avec ou sans physique + physic + T + +- frequence (en pas !! ) de l'ecriture du fichier diagfi + ecritphy + 960. + +- longitude en degres du centre du zoom + clon + 0. + +- latitude en degres du centre du zoom + clat + 0. + +- facteur de grossissement du zoom,selon longitude + alphax + 0. + +- facteur de grossissement du zoom ,selon latitude + alphay + 0. + +- Fonction f(y) hyperbolique ( si .true. ) ou sinusoidale + fxyhypb + F + +. Index: /trunk/LMDZ.TITAN/DOC/input/run.def.1d.tex =================================================================== --- /trunk/LMDZ.TITAN/DOC/input/run.def.1d.tex (revision 1644) +++ /trunk/LMDZ.TITAN/DOC/input/run.def.1d.tex (revision 1644) @@ -0,0 +1,84 @@ +{\footnotesize +\begin{verbatim} +#----------------------------------------------------------------------- +# Run parameters for the rcm1d.e model +#----------------------------------------------------------------------- + +#### Time integration parameters +# +# Initial date (in martian sols ; =0 at Ls=0) +day0=0 +# Initial local time (in hours, between 0 and 24) +time=0 +# Number of time steps per sol +day_step=48 +# Number of sols to run +ndt =400 + +#### Physical parameters +# +# Surface pressure (Pa) +psurf=7000. +# Gravity (ms^-2) +g=3.72 +# Molar mass of atmosphere (g) +mugaz=43.49 +# Specific heat capacity of atmosphere? +cpp=744.5 +# latitude (in degrees) +latitude=0.0 +# orbital distance at perihelion (AU) +periastr=1.558 +# orbital distance at aphelion (AU) +apoastr=1.558 +# obliquity (degrees) +obliquit=0.0 +# Solar zenith angle (degrees) +szangle=60.0 + +# Albedo of bare ground +albedo=0.2 +# Emissivity of bare ground +emis=1.0 +# Soil thermal inertia (SI) +inertia=400 +# zonal eastward component of the geostrophic wind (m/s) +u=10. +# meridional northward component of the geostrophic wind (m/s) +v=0. +# Initial CO2 ice on the surface (kg.m-2) +co2ice=0 +# hybrid vertical coordinate ? (.true. for hybrid and .false. for sigma levels) +hybrid=.false. +# autocompute vertical discretisation? (useful for exoplanet runs) +autozlevs=.false. +% pressure ceiling +pceil=40.0 + +###### Initial atmospheric temperature profile +# +# Type of initial temperature profile +# ichoice=1 Constant Temperature: T=tref +# ichoice=2 Savidjari profile (as Seiff but with dT/dz=cte) +# ichoice=3 Lindner (polar profile) +# ichoice=4 inversion +# ichoice=5 Seiff (standard profile, based on Viking entry) +# ichoice=6 constant T + gaussian perturbation (levels) +# ichoice=7 constant T + gaussian perturbation (km) +# ichoice=8 Read in an ascii file "profile" +ichoice=5 +# Reference temperature tref (K) +tref=200 +# Add a perturbation to profile if isin=1 +isin=0 +# peak of gaussian perturbation (for ichoice=6 or 7) +pic=26.522 +# width of the gaussian perturbation (for ichoice=6 or 7) +largeur=10 +# height of the gaussian perturbation (for ichoice=6 or 7) +hauteur=30. + +# some definitions for the physics, in file 'callphys.def' +INCLUDEDEF=callphys.def +\end{verbatim} +} Index: /trunk/LMDZ.TITAN/DOC/input/run.def.1d.tex.bak =================================================================== --- /trunk/LMDZ.TITAN/DOC/input/run.def.1d.tex.bak (revision 1644) +++ /trunk/LMDZ.TITAN/DOC/input/run.def.1d.tex.bak (revision 1644) @@ -0,0 +1,68 @@ +{\footnotesize +\begin{verbatim} +# +#----------------------------------------------------------------------- +# Run parameters for the 1D 'testphys1d.e' model +#----------------------------------------------------------------------- + +#### Time integration parameters +# +# Initial date (in martian sols ; =0 at Ls=0) +day0=0 +# Initial local time (in hours, between 0 and 24) +time=0 +# Number of time steps per sol +day_step=48 +# Number of sols to run +ndt = 100 + +#### Physical parameters +# +# Surface pressure (Pa) +psurf= 610 +# Reference dust opacity at 700 Pa, in the visible (true tau~tauref*psurf/700) +tauvis=0.2 +# latitude (in degrees) +latitude= 0. +# Albedo of bare ground +albedo=0.2 +# Soil thermal inertia (SI) +inertia=400 +# zonal eastward component of the geostrophic wind (m/s) +u=10. +# meridional northward component of the geostrophic wind (m/s) +v=0. +# Initial CO2 ice on the surface (kg.m-2) +co2ice=0 +# hybrid vertical coordinate ? (.true. for hybrid and .false. for sigma levels) +hybrid=.true. + + +###### Initial atmospheric temperature profile +# +# Type of initial temperature profile +# ichoice=1 Constant Temperature: T=tref +# ichoice=2 Savidjari profile (as Seiff but with dT/dz=cte) +# ichoice=3 Lindner (polar profile) +# ichoice=4 inversion +# ichoice=5 Seiff (standard profile, based on Viking entry) +# ichoice=6 constant T + gaussian perturbation (levels) +# ichoice=7 constant T + gaussian perturbation (km) +# ichoice=8 Read in an ascii file "profile" +ichoice=5 +# Reference temperature tref (K) +tref=200 +# Add a perturbation to profile if isin=1 +isin=0 +# peak of gaussian perturbation (for ichoice=6 or 7) +pic=26.522 +# width of the gaussian perturbation (for ichoice=6 or 7) +largeur=10 +# height of the gaussian perturbation (for ichoice=6 or 7) +hauteur=30. + + +# some definitions for the physics, in file 'callphys.def' +INCLUDEDEF=callphys.def +\end{verbatim} +} Index: /trunk/LMDZ.TITAN/DOC/input/run.tex =================================================================== --- /trunk/LMDZ.TITAN/DOC/input/run.tex (revision 1644) +++ /trunk/LMDZ.TITAN/DOC/input/run.tex (revision 1644) @@ -0,0 +1,118 @@ +{\footnotesize +\begin{verbatim} + +#------------------------------ +# Parametres de controle du run +#------------------------------ + +# Nombre de jours d'integration + nday=669 + +# nombre de pas par jour (multiple de iperiod) ( ici pour dt = 1 min ) + day_step = 960 + +# periode pour le pas Matsuno (en pas) + iperiod=5 + +# periode de sortie des variables de controle (en pas) + iconser=120 + +# periode d'ecriture du fichier histoire (en jour) + iecri=100 + +# periode de stockage fichier histmoy (en jour) + periodav=60. + +# periode de la dissipation (en pas) + idissip=5 + +# choix de l'operateur de dissipation (star ou non star ) + lstardis=.true. + +# avec ou sans coordonnee hybrides + hybrid=.true. + +# nombre d'iterations de l'operateur de dissipation gradiv +nitergdiv=1 + +# nombre d'iterations de l'operateur de dissipation nxgradrot +nitergrot=2 + +# nombre d'iterations de l'operateur de dissipation divgrad + niterh=2 + +# temps de dissipation des plus petites long.d ondes pour u,v (gradiv) + tetagdiv=10000. + +# temps de dissipation des plus petites long.d ondes pour u,v(nxgradrot) + tetagrot=10000. + +# temps de dissipation des plus petites long.d ondes pour h ( divgrad) + tetatemp=10000. + +# coefficient pour gamdissip + coefdis=0. + +# choix du shema d'integration temporelle (Matsuno ou Matsuno-leapfrog) + purmats=.false. + +# avec ou sans physique + physic=.true. + +# periode de la physique (en pas) + iphysiq=20 + +# choix d'une grille reguliere + grireg=.true. + +# frequence (en pas) de l'ecriture du fichier diagfi + ecritphy=1920 + +# longitude en degres du centre du zoom + clon=63. + +# latitude en degres du centre du zoom + clat=0. + +# facteur de grossissement du zoom,selon longitude + grossismx=1. + +# facteur de grossissement du zoom ,selon latitude + grossismy=1. + +# Fonction f(y) hyperbolique si = .true. , sinon sinusoidale + fxyhypb=.false. + +# extension en longitude de la zone du zoom ( fraction de la zone totale) + dzoomx= 0. + +# extension en latitude de la zone du zoom ( fraction de la zone totale) + dzoomy=0. + +# raideur du zoom en X + taux=2. + +# raideur du zoom en Y + tauy=2. + +# Fonction f(y) avec y = Sin(latit.) si = .TRUE. , Sinon y = latit. + ysinus= .false. + +# Avec sponge layer + callsponge = .true. + +# Sponge: mode0(u=v=0), mode1(u=umoy,v=0), mode2(u=umoy,v=vmoy) + mode_sponge= 2 + +# Sponge: hauteur de sponge (km) + hsponge= 90 + +# Sponge: tetasponge (secondes) + tetasponge = 50000 + +# some definitions for the physics, in file 'callphys.def' +INCLUDEDEF=callphys.def + + +\end{verbatim} +} Index: /trunk/LMDZ.TITAN/DOC/input/run.tex.bak =================================================================== --- /trunk/LMDZ.TITAN/DOC/input/run.tex.bak (revision 1644) +++ /trunk/LMDZ.TITAN/DOC/input/run.tex.bak (revision 1644) @@ -0,0 +1,118 @@ +{\footnotesize +\begin{verbatim} + +#----------------------------- +#Parametres de controle du run +#----------------------------- + +# Nombre de jours d'integration + nday=669 + +# nombre de pas par jour (multiple de iperiod) ( ici pour dt = 1 min ) + day_step = 960 + +# periode pour le pas Matsuno (en pas) + iperiod=5 + +# periode de sortie des variables de controle (en pas) + iconser=120 + +# periode d'ecriture du fichier histoire (en jour) + iecri=100 + +# periode de stockage fichier histmoy (en jour) + periodav=60. + +# periode de la dissipation (en pas) + idissip=5 + +# choix de l'operateur de dissipation (star ou non star ) + lstardis=.true. + +# avec ou sans coordonnee hybrides + hybrid=.true. + +# nombre d'iterations de l'operateur de dissipation gradiv +nitergdiv=1 + +# nombre d'iterations de l'operateur de dissipation nxgradrot +nitergrot=2 + +# nombre d'iterations de l'operateur de dissipation divgrad + niterh=2 + +# temps de dissipation des plus petites long.d ondes pour u,v (gradiv) + tetagdiv=10000. + +# temps de dissipation des plus petites long.d ondes pour u,v(nxgradrot) + tetagrot=10000. + +# temps de dissipation des plus petites long.d ondes pour h ( divgrad) + tetatemp=10000. + +# coefficient pour gamdissip + coefdis=0. + +# choix du shema d'integration temporelle (Matsuno ou Matsuno-leapfrog) + purmats=.false. + +# avec ou sans physique + physic=.true. + +# periode de la physique (en pas) + iphysiq=20 + +# choix d'une grille reguliere + grireg=.true. + +# frequence (en pas) de l'ecriture du fichier diagfi + ecritphy=1920 + +# longitude en degres du centre du zoom + clon=63. + +# latitude en degres du centre du zoom + clat=0. + +# facteur de grossissement du zoom,selon longitude + grossismx=1. + +# facteur de grossissement du zoom ,selon latitude + grossismy=1. + +# Fonction f(y) hyperbolique si = .true. , sinon sinusoidale + fxyhypb=.false. + +# extension en longitude de la zone du zoom ( fraction de la zone totale) + dzoomx= 0. + +# extension en latitude de la zone du zoom ( fraction de la zone totale) + dzoomy=0. + +# raideur du zoom en X + taux=2. + +# raideur du zoom en Y + tauy=2. + +# Fonction f(y) avec y = Sin(latit.) si = .TRUE. , Sinon y = latit. + ysinus= .false. + +# Avec sponge layer + callsponge = .true. + +# Sponge: mode0(u=v=0), mode1(u=umoy,v=0), mode2(u=umoy,v=vmoy) + mode_sponge= 2 + +# Sponge: hauteur de sponge (km) + hsponge= 90 + +# Sponge: tetasponge (secondes) + tetasponge = 50000 + +# some definitions for the physics, in file 'callphys.def' +INCLUDEDEF=callphys.def + + +\end{verbatim} +} Index: /trunk/LMDZ.TITAN/DOC/input/stats_list.tex =================================================================== --- /trunk/LMDZ.TITAN/DOC/input/stats_list.tex (revision 1644) +++ /trunk/LMDZ.TITAN/DOC/input/stats_list.tex (revision 1644) @@ -0,0 +1,158 @@ +{\footnotesize +\begin{verbatim} +netcdf stats { +dimensions: + latitude = 49 ; + longitude = 65 ; + altitude = 25 ; + llmp1 = 26 ; + Time = UNLIMITED ; // (12 currently) +variables: + float Time(Time) ; + Time:title = "Time" ; + Time:units = "days since 0000-00-0 00:00:00" ; + float latitude(latitude) ; + latitude:title = "latitude" ; + latitude:units = "degrees_north" ; + float longitude(longitude) ; + longitude:title = "East longitude" ; + longitude:units = "degrees_east" ; + float altitude(altitude) ; + altitude:long_name = "altitude" ; + altitude:units = "km" ; + altitude:positive = "up" ; + float aps(altitude) ; + aps:title = "hybrid pressure at midlayers" ; + aps:units = "" ; + float bps(altitude) ; + bps:title = "hybrid sigma at midlayers" ; + bps:units = "" ; + float ps(Time, latitude, longitude) ; + ps:title = "Surface pressure" ; + ps:units = "Pa" ; + float ps_sd(Time, latitude, longitude) ; + ps_sd:title = "Surface pressure total standard deviation over th +e season" ; + ps_sd:units = "Pa" ; + float tsurf(Time, latitude, longitude) ; + tsurf:title = "Surface temperature" ; + tsurf:units = "K" ; + float tsurf_sd(Time, latitude, longitude) ; + tsurf_sd:title = "Surface temperature total standard deviation o +ver the season" ; + tsurf_sd:units = "K" ; + float co2ice(Time, latitude, longitude) ; + co2ice:title = "CO2 ice cover" ; + co2ice:units = "kg.m-2" ; + float co2ice_sd(Time, latitude, longitude) ; + co2ice_sd:title = "CO2 ice cover total standard deviation over t +he season" ; + co2ice_sd:units = "kg.m-2" ; + float fluxsurf_lw(Time, latitude, longitude) ; + fluxsurf_lw:title = "Thermal IR radiative flux to surface" ; + fluxsurf_lw:units = "W.m-2" ; + float fluxsurf_lw_sd(Time, latitude, longitude) ; + fluxsurf_lw_sd:title = "Thermal IR radiative flux to surface tot +al standard deviation over the season" ; + fluxsurf_lw_sd:units = "W.m-2" ; + float fluxsurf_sw(Time, latitude, longitude) ; + fluxsurf_sw:title = "Solar radiative flux to surface" ; + fluxsurf_sw:units = "W.m-2" ; + float fluxsurf_sw_sd(Time, latitude, longitude) ; + fluxsurf_sw_sd:title = "Solar radiative flux to surface total st +andard deviation over the season" ; + fluxsurf_sw_sd:units = "W.m-2" ; + float fluxtop_lw(Time, latitude, longitude) ; + fluxtop_lw:title = "Thermal IR radiative flux to space" ; + fluxtop_lw:units = "W.m-2" ; + float fluxtop_lw_sd(Time, latitude, longitude) ; + fluxtop_lw_sd:title = "Thermal IR radiative flux to space total +standard deviation over the season" ; + fluxtop_lw_sd:units = "W.m-2" ; + float fluxtop_sw(Time, latitude, longitude) ; + fluxtop_sw:title = "Solar radiative flux to space" ; + fluxtop_sw:units = "W.m-2" ; + float fluxtop_sw_sd(Time, latitude, longitude) ; + fluxtop_sw_sd:title = "Solar radiative flux to space total stand +ard deviation over the season" ; + fluxtop_sw_sd:units = "W.m-2" ; + float dod(Time, latitude, longitude) ; + dod:title = "Dust optical depth" ; + dod:units = "" ; + float dod_sd(Time, latitude, longitude) ; + dod_sd:title = "Dust optical depth total standard deviation over + the season" ; + dod_sd:units = "" ; + float temp(Time, altitude, latitude, longitude) ; + temp:title = "Atmospheric temperature" ; + temp:units = "K" ; + float temp_sd(Time, altitude, latitude, longitude) ; + temp_sd:title = "Atmospheric temperature total standard deviatio +n over the season" ; + temp_sd:units = "K" ; + float u(Time, altitude, latitude, longitude) ; + u:title = "Zonal (East-West) wind" ; + u:units = "m.s-1" ; + float u_sd(Time, altitude, latitude, longitude) ; + u_sd:title = "Zonal (East-West) wind total standard deviation ov +er the season" ; + u_sd:units = "m.s-1" ; + float v(Time, altitude, latitude, longitude) ; + v:title = "Meridional (North-South) wind" ; + v:units = "m.s-1" ; + float v_sd(Time, altitude, latitude, longitude) ; + v_sd:title = "Meridional (North-South) wind total standard devia +tion over the season" ; + v_sd:units = "m.s-1" ; + float w(Time, altitude, latitude, longitude) ; + w:title = "Vertical (down-up) wind" ; + w:units = "m.s-1" ; + float w_sd(Time, altitude, latitude, longitude) ; + w_sd:title = "Vertical (down-up) wind total standard deviation o +ver the season" ; + w_sd:units = "m.s-1" ; + float rho(Time, altitude, latitude, longitude) ; + rho:title = "Atmospheric density" ; + rho:units = "none" ; + float rho_sd(Time, altitude, latitude, longitude) ; + rho_sd:title = "Atmospheric density total standard deviation ove +r the season" ; + rho_sd:units = "none" ; + float q2(Time, altitude, latitude, longitude) ; + q2:title = "Boundary layer eddy kinetic energy" ; + q2:units = "m2.s-2" ; + float q2_sd(Time, altitude, latitude, longitude) ; + q2_sd:title = "Boundary layer eddy kinetic energy total standard + deviation over the season" ; + q2_sd:units = "m2.s-2" ; + float vmr_h2ovapor(Time, altitude, latitude, longitude) ; + vmr_h2ovapor:title = "H2O vapor volume mixing ratio" ; + vmr_h2ovapor:units = "mol/mol" ; + float vmr_h2ovapor_sd(Time, altitude, latitude, longitude) ; + vmr_h2ovapor_sd:title = "H2O vapor volume mixing ratio total sta +ndard deviation over the season" ; + vmr_h2ovapor_sd:units = "mol/mol" ; + float vmr_h2oice(Time, altitude, latitude, longitude) ; + vmr_h2oice:title = "H2O ice volume mixing ratio" ; + vmr_h2oice:units = "mol/mol" ; + float vmr_h2oice_sd(Time, altitude, latitude, longitude) ; + vmr_h2oice_sd:title = "H2O ice volume mixing ratio total standar +d deviation over the season" ; + vmr_h2oice_sd:units = "mol/mol" ; + float mtot(Time, latitude, longitude) ; + mtot:title = "total mass of water vapor" ; + mtot:units = "kg/m2" ; + float mtot_sd(Time, latitude, longitude) ; + mtot_sd:title = "total mass of water vapor total standard deviat +ion over the season" ; + mtot_sd:units = "kg/m2" ; + float icetot(Time, latitude, longitude) ; + icetot:title = "total mass of water ice" ; + icetot:units = "kg/m2" ; + float icetot_sd(Time, latitude, longitude) ; + icetot_sd:title = "total mass of water ice total standard deviat +ion over the season" ; + icetot_sd:units = "kg/m2" ; +} +\end{verbatim} +} Index: /trunk/LMDZ.TITAN/DOC/input/testphys1d.def.tex =================================================================== --- /trunk/LMDZ.TITAN/DOC/input/testphys1d.def.tex (revision 1644) +++ /trunk/LMDZ.TITAN/DOC/input/testphys1d.def.tex (revision 1644) @@ -0,0 +1,38 @@ +{\footnotesize +\begin{verbatim} +0 ! Initial day (martian sol; = 0 at Ls=0) +0 ! initial local time (between 0 and 24) +48 ! number of time-step per day. +1 ! Run duration (sols) +700. ! psurf: Surface pressure (Pa) +0.2 ! tauref: reference dust opacity at 700 Pa (true tau~tauref*psurf/700) +30. ! latitude (degrees) +0.2 ! ground albedo (under the ice) +400 ! ground thermal inertia (SI) +10. ! composante vers l'est du vent geostrophique (u) +0. ! composante vers le nord du vent geostrophique (v) +0. ! initial CO2 ice mass (kg.m-2) +T ! Hybrid vertical coordinate ? T=Hybrid , F=sigma + +Initial temperature profile +~~~~~~~~~~~~~~~~~~~~~~~~~~~ +5 ! ichoice : Kind of initial profile (see below) +200 ! tref : reference temperature (K) (used if ichoice=1) +0 ! isin (if isin=1, add a perturbation to profile) +26.5220 ! pic pic perturbation gauss pour ichoice = 6 ou 7 +10 ! largeur de la perturbation gauss pour ichoice = 6 ou 7 +30. ! hauteur de la perturbation gauss pour ichoice = 6 ou 7 + +c======================================================================= +c differents profils d'atmospheres. T=f(z) +c ichoice=1 Temperature constante T=tref +c ichoice=2 profil Savidjari (comme Seiff mais avec dT/dz=cte) +c ichoice=3 Lindner (profil polaire) +c ichoice=4 inversion +c ichoice=5 Seiff (profile standard base sur les entrees Viking) +c ichoice=6 T constante + perturbation gauss (level) +c ichoice=7 T constante + perturbation gauss (km) +c ichoice=8 Read in an ascii file "profile" + +\end{verbatim} +} Index: /trunk/LMDZ.TITAN/DOC/input/z2sig.tex =================================================================== --- /trunk/LMDZ.TITAN/DOC/input/z2sig.tex (revision 1644) +++ /trunk/LMDZ.TITAN/DOC/input/z2sig.tex (revision 1644) @@ -0,0 +1,21 @@ +\begin{verbatim} +10.00000 H: atmospheric scale height (km) (used as a reference only) +0.0040 Typical pseudo-altitude (m) for 1st layer (z=H*log(sigma)) +0.018 ,, ,, ,, ,, ,, ,, ,, ,, ,, 2nd layer, etc... +0.0400 +0.1000 +0.228200 +0.460400 +0.907000 +1.73630 +3.19040 +5.54010 +8.97780 +13.5138 +18.9666 +25.0626 +31.5527 +38.4369 +45.4369 +52.4369 +\end{verbatim} Index: /trunk/LMDZ.TITAN/DOC/input/z2sig.tex.bak =================================================================== --- /trunk/LMDZ.TITAN/DOC/input/z2sig.tex.bak (revision 1644) +++ /trunk/LMDZ.TITAN/DOC/input/z2sig.tex.bak (revision 1644) @@ -0,0 +1,70 @@ +\begin{verbatim} +10.00000 H: atmospheric scale height (km) (used as a reference only) +0.0040 Typical pseudo-altitude (m) for 1st layer (z=H*log(sigma)) +0.018 ,, ,, ,, ,, ,, ,, ,, ,, ,, 2nd layer, etc... +0.0400 +0.1000 +0.228200 +0.460400 +0.907000 +1.73630 +3.19040 +5.54010 +8.97780 +13.5138 +18.9666 +25.0626 +31.5527 +38.4369 +45.4369 +52.4369 +59.4369 +66.4369 +73.4369 +80.4369 +87.4369 +94.4369 +101.4369 +108.437 +115.437 +122.437 +129.437 +136.437 +143.437 +150.437 +157.437 +164.437 +171.437 +178.437 +185.437 +192.437 +199.437 +206.437 +213.437 +220.437 +227.437 +234.437 +241.437 +248.437 +255.437 +262.437 +269.437 +276.437 +283.437 +290.437 +297.437 +304.437 +311.437 +318.437 +325.437 +332.437 +339.437 +346.437 +353.437 +360.437 +367.437 +374.437 +381.437 +388.437 +395.437 +\end{verbatim} Index: /trunk/LMDZ.TITAN/DOC/intro.tex =================================================================== --- /trunk/LMDZ.TITAN/DOC/intro.tex (revision 1644) +++ /trunk/LMDZ.TITAN/DOC/intro.tex (revision 1644) @@ -0,0 +1,25 @@ +\chapter{Introduction} + +\selectlanguage{english} +This document is a user manual for the Generic Climate Model +developed by the Laboratoire de M\'et\'eorologie +Dynamique of the CNRS in Paris. +It corresponds to the version of the model available since January 2011, +that includes the new dynamic code lmdz3.3 +and input and output data in NetCDF format. +The physical part includes generalized correlated-k radiative transfer, +generalized tracer transport, and a water cycle that includes water vapour and ice transport, +radiative and thermodynamic effects, and simple hydrology. + +Chapter~\ref{sc:apercu} of this document, to be read before any of the others, +describes the main features of the model. +The model is divided into two relatively independent parts: +(1) The hydrodynamic code, which integrates the fluid mechanical \emph{primitive equations} in time +over the globe, and (2) the physical parameterizations, which include the radiative transfer, tracer transport / evolution, +and surface-atmosphere interaction. It is followed by a list of references for anyone requiring a detailed +description of the physics and the numerical formulation of the parameterizations (Chapter~\ref{sc:phystd}). + +For your {\bf first contact with the model}, Chapter~\ref{loc:contact1} guides the user through a practice simulation +(choosing the initial states and parameters and visualizing the output files). The document then describes the code used for the model, including a user computer manual for compiling and running it (Chapter~\ref{sc:info}). + +Chapter~\ref{sc:io} describes the input/output data of the model. The input files are the files needed to initialize the model (state of the atmosphere at instant $t0$ as well as a dataset of boundary conditions). The output files are ``historical files", archives of the atmospheric flow history as simulated by the model, the ``diagfi files", the ``stats files'', the daily averages, and so on. Common ways of editing or visualizing these files (editor ``ncdump" and the graphics software ``grads") are also explained. Chapter~\ref{sc:water} explains how to run a simulation that includes the water cycle. Finally, Chapter~\ref{sc:rcm1d} will help you to use a 1-dimensional version of the model, which may be a simpler tool for some analysis work. Index: /trunk/LMDZ.TITAN/DOC/io.tex =================================================================== --- /trunk/LMDZ.TITAN/DOC/io.tex (revision 1644) +++ /trunk/LMDZ.TITAN/DOC/io.tex (revision 1644) @@ -0,0 +1,486 @@ +\chapter{Input/Output} +\label{sc:io} + +\section{NetCDF format} + +%%%%%%%%%%%%%%%%%%%%%%%%%% +GCM input/output data are written in {\bf NetCDF} format +(Network Common Data Form). NetCDF is an interface used to store and access +geophysical data, and a library that provides an implementation of this +interface. The NetCDF library also defines a machine-independent format for +representing scientific data. +Together, the interface, library and format support the creation, access and +sharing of scientific data. NetCDF was developed at the Unidata Program Center +in Boulder, Colorado. The freely available source can be obtained from +{the Unidata website}{http://www.unidata.ucar.edu/software/netcdf}. + +A data set in NetCDF format is a single file, as it is self-descriptive. + +\subsection{NetCDF file editor: ncdump} + +The editor is included in the NetCDF library. +By default it generates an ASCII representation as standard output +from the NetCDF file specified at the input. + +\paragraph{Main commands for ncdump} + +\begin{center} +{\it ncdump diagfi.nc} +\end{center} + +\noindent +dump contents of NetCDF file {\tt diagfi.nc} to standard output +(i.e. the screen). + +\begin{center} +{\it ncdump -c diagfi.nc} +\end{center} + +\noindent +Displays the {\bf coordinate} variable values (variables which are also +dimensions), as well as the declarations, variables and attribute values. +The values of the non-coordinate variable data are not displayed at +the output. + +\begin{center} +{\it ncdump -h diagfi.nc} +\end{center} + +\noindent +Shows only the informative header of the file, which is the declaration +of the dimensions, variables and attributes, but not the values of these +variables. The output is identical to that in option {\bf -c} except for +the fact that the coordinated variable values are not included. + +\begin{center} +{\it ncdump -v var1,...,varn diagfi.nc} +\end{center} + +\noindent +The output includes the specific variable values, +as well as all the dimensions, variables and attributes. +More that one variable can be specified in the list following this option. +The list must be a simple argument for the command, and must not contain any +spaces. If no variable is specified, the command displays all the values of +the variables in the file by default. + + +\subsection{Graphic visualization of the NetCDF files using GrAds} + +GrAdS (The Grid Analysis and Display System) is a graphic software developed +by Brian Doty at the "Center for Ocean-Land-Atmosphere (COLA)". + +One of its functions is to enable data stored in NetCDF format to be +visualized directly. In figure~\ref{fg:grads} for example, we can see the +GrADS visualization of the temperature data at a given moment. +% +\begin{figure} +\centering +\includegraphics[width=0.5\textwidth,angle=270]{Fig/grads.eps} +\caption{Example of temperature data (in this case for present-day Mars) at a given time using +GrADS visualization\label{fg:grads}} +\end{figure} +% +However, unlike NetCDF, GrADS only recognizes files where all the variables are stored on the same horizontal grid. +These variables can be in 1, 2, 3 or 4 dimensions (X,Y,Z and t).\\ + +GrADS can also be obtained on the {WWW}{http://grads.iges.org/grads/}. + +\section{Input and parameter files} + +%{\bf \it Examples of initialization files can be found in directory +%\begin{verbatim}$PATH1/LMDZ.MARS/deftank \end{verbatim}} +\label{loc:entrees} + +The (3D version of the) GCM requires +the input of two initialization files (in NetCDF format):\\ +-{\bf start.nc} +contains the initial states of the dynamical variables.\\ +-{\bf startfi.nc} +contains the initial states of the physical variables.\\ +Note that collections of initial states can be retreived at:\\ +\verb+http://www.lmd.jussieu.fr/~forget/datagcm/Starts+ \\ +Extracting {\tt start.nc} and {\tt startfi.nc} from these archived +requires using program {\tt newstart}, as described in +section~\ref{sc:newstart}.\\ + +\noindent +To run, the GCM also requires the four following +parameter files (ascii text files):\\ +-{\bf run.def} the parameters of the dynamical part of the program, +and the temporal integration of the model.\\ +-{\bf callphys.def} the parameters for calling the physical part.\\ +-{\bf traceur.def} the names of the tracer to use.\\ +-{\bf z2sig.def} + the vertical distribution of the atmospheric layers.\\ +Examples of these parameter files can be found in the +\verb+LMDZ.MARS/deftank+ directory. + +\subsection{run.def} +\label{vb:run.def} +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% run.def: les param sont lus dans dyn3d/defrun.F +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +A typical {\tt run.def} file is given as an example below. +The choice of variables to be set is simple (e.g. + {\tt nday} number of modeled days to run), +while the others do not need to be changed for normal use.\\ +The format of the {\tt run.def} file is quite straightforward +(and flexible): values given to parameters must be given as: +\begin{verbatim} + parameter = value +\end{verbatim} +Any blank line or line beginning with symbol {\bf \#} is +a comment, and instruction lines may be written in any order. +Moreover, not specifying a parameter/value set (e.g. deleting it +or commenting it out) means you want the GCM to use a default built-in value. +Additionally, one may use a specific keyword {\bf INCLUDEDEF} to specify +another (text) file in which to also read values of parameters; e.g.: +\begin{verbatim} +INCLUDEDEF=callphys.def +\end{verbatim} + + +\noindent Here are some details about some of the parameters which may be +set in {\tt run.def}: +\begin{itemize} +\item {\bf day\_step}, the number of dynamical steps per day to use for +the time integration. This needs to be large enough for the model +to remain stable (this is related to the CFL stability criterion +which essentially depends on the horizontal resolution of the model). +On Mars, in theory, the GCM can run with +{\tt day\_step}=480 using the 64$\times$48 grid, but model stability +improves when this number is higher: {\tt day\_step}=960 is recommended + when using the 64$\times$48 grid. According to the CFL criterion, +{\tt day\_step} should vary in proportion with the resolution: for example +{\tt day\_step}=480 using the 32$\times$24 horizontal resolution. +Note that {\tt day\_step} must also be divisible by {\tt iperiod}. For other planets... [FINISH] + +\item {\bf tetagdiv, tetagrot, tetatemp} control the dissipation intensity. +It is better to limit the dissipation intensity +(tetagdiv, tetagrot, tetatemp should not be too low). +However the model diverges if tetagdiv, tetagrot, tetatemp are too high, +especially if there is a lot of dust in the atmosphere. \\ +Example used with nitergdiv=1 and nitergrot=niterh=2 : \\ +- using the 32$\times$24 grid tetagdiv=6000~s ; tetagrot=tetatemp=30000~s \\ +- using the 64$\times$48 grid: tetagdiv=3000~s ; tetagrot=tetatemp=9000~s + +\item {\bf idissip} is the time step used for the dissipation: +dissipation is computed and added every {\tt idissip} dynamical +time step. If {\tt idissip} is +too short, the model waste time in these calculations. But if idissip is too +long, the dissipation will not be parametrized correctly and the model will +be more likely to diverge. +A check must be made, so that: +{\tt idissip}~$<$~{\tt tetagdiv}$\times${\tt daystep}/86400 +(same rule for {\tt tetagrot} and {\tt tetatemp}). +This is tested automatically during the run. + +\item {\bf iphysiq} is the time step used for the physics: +physical tendencies are computed every {\tt iphysiq} dynamical time step. +In practice, we +usually set the physical time step to be of the order of half an hour. +We thus generally set {\tt iphysiq}= {\tt day\_step}/48 + +\end{itemize} + +\noindent +{\it Example of run.def file: } +\input{input/run.tex} +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + + +\subsection{callphys.def} +\label{sc:callphys.def} +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% callphys.def: les param sont lus dans phymars/inifis.F +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +The {\tt callphys.def} file (along the same format +as the {\tt run.def} file) contains parameter/value sets +for the physics.\\ + + +\noindent +{\it Example of callphys.def file: } +\input{input/callphys.tex} +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +\subsection{traceur.def} +\label{sc:traceur.def} +Tracers in input ({\tt start.nc} and {\tt startfi.nc}) and output +files ({\tt restart.nc} and {\tt restartfi.nc}) are stored using +individual tracer names (e.g. {\tt co2} for CO2 gas, {\tt h2o\_vap} +for water vapour, {\tt h2o\_ice} for water ice, ...).\\ +The first line of the {\tt traceur.def} file (an ASCII file) must +contain the number of tracers to load and use (this number should +be the same as given to the {\tt -t} option of the {\tt makegcm} +script when the GCM was compiled), followed by the tracer names +(one per line). Note that if the corresponding tracers are not +found in input files {\tt start.nc} and {\tt startfi.nc}, then the +tracer is initialized to zero.\\ + + +\noindent {\it Example of a traceur.def file: +(with water vapour and ice tracers)} +{\footnotesize +\begin{verbatim} +2 +h2o_ice +h2o_vap +\end{verbatim} +} + +\subsection{z2sig.def} +The {\tt z2sig.def} file contains the pseudo-altitudes +(in km) at which the user wants to set the vertical levels.\\ +Note that levels should be unevenly spread, with a higher resolution +near the surface in order to capture the rapid variations of variables +there. It is recommended to use the altitude levels as set in the +{\tt z2sig.def} file provided in the {\tt deftank} directory.\\ + +\noindent +{\it Example of z2sig.def file} +\input{input/z2sig.tex} + +\subsection{Initialization files: start and startfi} + +% +\begin{figure}[h] +\centering +\framebox[0.8\textwidth][c]{\includegraphics[width=0.7\textwidth]{Fig/netcdf.eps}} +\caption{Organization of NetCDF files \label{fg:netcdf}} +\end{figure} +% +Files {\tt start.nc} and {\tt startfi.nc}, like all the NetCDF files of +the GCM, +are constructed on the same model (see NetCDF file composition, +figure~\ref{fg:netcdf}). They contain:\\ +- a header with a ``control'' variable followed by a series of variables +defining the (physical and dynamical) grids \\ +- a series of non temporal variables that give information about surface +conditions on the planet.\\ +- a ``time'' variable giving the values of the different instants at which +the temporal variables are stored +(a single time value (t=0) for start, +as it describes the dynamical initial states, +and no time values for startfi, as it describes only a physical state).\\ + +To visualize the contents of a {\tt start.nc} file using the +{\tt ncdump} command:\\ + +\noindent +{\it ncdump -h start.nc}\\ +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% List START +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\input{input/dyn_list.tex} +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +\noindent +List of contents of a {\tt startfi.nc} file:\\ + +\noindent +{\it ncdump -h startfi.nc}\\ +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% List startfi +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\input{input/fi_list.tex} +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + + + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% Description des start et startfi +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +\paragraph{Physical and dynamical headers} + +There are two types of headers: one for the physical headers, +and one for the dynamical headers. +The headers always begin with a ``control' variable +(described below), that is allocated differently in the physical and +dynamical parts. +The other variables in the header concern the (physical and dynamical) grids. +They are the following:\\ + +\noindent +the horizontal coordinates\\ +- {\bf rlonu}, {\bf rlatu}, {\bf rlonv}, {\bf rlatv} for the dynamical part,\\ +- {\bf lati}, {\bf long} for the physical part,\\ + +\noindent +the coefficients for passing from the physical grid to the dynamical grid\\ +- {\bf cu},{\bf cv} only in the dynamical header\\ + +\noindent +and finally, the grid box areas\\ +- {\bf aire} for the dynamical part,\\ +- {\bf area} for the physical part.\\ + +\paragraph{Surface conditions} + +The surface conditions are mostly given in the physical NetCDF files by +variables:\\ +- {\bf phisfi} for the initial state of surface geopotential,\\ +- {\bf albedodat} for the bare ground albedo,\\ +- {\bf inertiedat} for the surface thermal inertia,\\ +- {\bf zmea}, {\bf zstd}, {\bf zsig}, {\bf zgam} and {\bf zthe} for + the subgrid scale topography.\\ + +\noindent +For the dynamics:\\ +- {\bf physinit} for the initial state of surface geopotential\\ + +\noindent +Remark: variables {\bf phisfi} and {\bf physinit} contain the same information +(surface geopotential), but {\bf phisfi} gives the geopotential values on the +physical grid, while {\bf physinit} give the values on the dynamical grid.\\ + +\paragraph{Physical and dynamical state variables} +To save disk space, the initialization files store the variables used by +the model, rather than the ``natural'' variables.\\ + +\noindent +For the dynamics: +\begin{description} +\item - {\bf ucov} and {\bf vcov} the covariant winds\\ +These variables are linked to the ``natural'' winds by\\ +\verb+ucov = cu * u+ and \verb+vcov = cv * v+ +\item - {\bf teta} the potential temperature,\\ + or more precisely, the potential enthalpy linked to temperature {\bf T} by + $\theta = T\dep{\frac{P}{Pref}}^{-K}$ +\item - the tracers, +\item - {\bf ps} surface pressure. +\item - {\bf masse} the atmosphere mass in each grid box. +\end{description} + +\noindent +``Vectorial'' variables {\bf ucov} and {\bf vcov} are stored on +``staggered'' grids u and v respectively (in the dynamics) +(see section \ref{fg:grid}).\\ +Scalar variables {\bf h}, {\bf q} (tracers), {\bf ps}, {\bf masse} are stored +on the ``scalar'' grid of the dynamical part.\\ + +\noindent +For the physics: +\begin{description} +\item - {\bf co2ice} surface dry ice, +\item - {\bf tsurf} surface temperature, +\item - {\bf tsoil} temperatures at different layers under the surface, +\item - {\bf emis} surface emissivity, +\item - {\bf q2} wind variance,\\ +or more precisely, the square root of the turbulent kinetic energy. +\item - the surface ``tracer'' budget + (kg.m$^{-2}$),\\ +\end{description} + +\noindent +All these variables are stored on the ``physical'' grid +(see section \ref{fg:grid}).\\ +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +\paragraph{The ``control'' array} + +\indent +Both physical and dynamical headers of the GCM NetCDF files start with +a {\bf controle} variable. This variable is an array of 100 reals (the vector +called {\tt tab\_cntrl} in the program), which contains the program control +parameters. +Parameters differ between the physical and dynamical sections, and examples +of both are listed below. The contents of table {\tt tab\_cntrl} can also +be checked with the command {\tt ncdump -ff -v controle}.\\ + +\noindent +{\bf The "control" array in the header of a dynamical NetCDF file: +start} +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% tab_cntrl (dynamique) dans dyn3d/inimomo.F +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\input{input/dyn_cntl.tex} +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +\noindent +{\bf The "controle" array in the header of a physical NetCDF file: +startfi.nc} +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% tab_cntrl (physique) dans phymars/iniwritefi.F +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\input{input/fi_cntl.tex} +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +\newpage +\section{Output files} + +\subsection{NetCDF restart files - restart.nc and restartfi.nc} +These files are of the exact same format as {\tt start.nc} and +{\tt startfi.nc} +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% Description des fichiers de Sortie +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +\subsection{ NetCDF file - diagfi.nc} +NetCDF file {\tt diagfi.nc} stores the instantaneous physical variables +throughout the simulation at regular intervals +(set by the value of parameter {\tt ecritphy} in +parameter file {\tt run.def}; note that {\tt ecritphy} should be a +multiple of {\tt iphysiq} as well as a divisor of {\tt day\_step}). + +\noindent +{\bf Any variable from any sub-routine of the physics can be stored +by calling subroutine} +\verb+ writediagfi+ + + +\noindent +Illustrative example of the contents of a {\tt diagfi.nc} +file (using ncdump):\\ +\noindent +{\it ncdump -h diagfi.nc}\\ +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% List DIAGFI +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% temporaire!!! +\input{input/diag_list.tex} +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +\noindent +The structure of the file is thus as follows: +\begin{description} +\item- the dimensions +\item- variable ``time'' containing the time of the timestep stored in the + file (in Martian days since the beginning of the run) +\item- variable ``control'' containing many parameters, as described above. +\item- from `` rhonu'' to 'phisinit'': a list of data describing the + geometrical coordinates of the data file, plus the surface topography +\item- finally, all the 2D or 3D data stored in the run. +\end{description} + + +\subsection{Stats files} + +As an option ({\tt stats} must be set to {\tt .true.} in {\tt callphys.def}), +the model can accumulate any +variable from any subroutine of the physics by calling +subroutine \verb+ wstat+ +\\ \\ +\noindent +This save is performed at regular intervals 12 times a day. +An average of the daily evolutions over the whole run is calculated +(for example, for a 10 day run, the averages of the variable values at +0hTU, 2hTU, 4hTU,...24hTU are calculated), along with RMS standard +deviations of the variables. This ouput is given in +file {\tt stats.nc}.\\ + + +\noindent +Illustrative example of the contents of a {\tt stats.nc} file (using ncdump):\\ +\noindent +{\it ncdump -h stats.nc}\\ +\input{input/stats_list.tex} + +\noindent +The structure of the file is simillar to the {\tt diagfi.nc} file, +except that, as stated before, the average of variables are given for +12 times of the day and that RMS standard deviation are also provided. + Index: /trunk/LMDZ.TITAN/DOC/kspectrum.tex =================================================================== --- /trunk/LMDZ.TITAN/DOC/kspectrum.tex (revision 1644) +++ /trunk/LMDZ.TITAN/DOC/kspectrum.tex (revision 1644) @@ -0,0 +1,101 @@ +\chapter{Changing the radiative transfer properties} + +\label{sc:kspectrum} + +One of the key advantages of the LMD generic model is the ability +to work with arbitrary gas and aerosol mixtures in the radiative transfer. +In this chapter we describe how to produce new correlated-k absorption coefficients +and implement them in the GCM. + +\section{Producing the high-resolution data} +We use the open-source software {\tt kspectrum} to produce line-by-line (LBL) absorption coefficients. {\tt Kspectrum} +is freely available online at + +\begin{verbatim} +http://code.google.com/p/kspectrum/ +\end{verbatim} + +See its user manual for general information on installation and basic usage. + +To produce LBL data on a grid of pressure and temperature suitable for the GCM, the program \verb+make_composition.F90+ is used (available in the {\tt utilities} folder of the main GCM directory). This may be compiled with the script {\tt compile} in the same folder. Once this has been done, the two scripts \verb+prekspectrum+ and \verb+postkspectrum+ are used to feed {\tt kspectrum} the correct inputs and convert the LBL data to correlated-k coefficients afterward. These scripts require three environment variables to be defined: {\tt DWORK\_DIR}, {\tt KSPEC\_DIR} and {\tt BANDS\_DIR}. + +In the following example, we create a database with a mixed CO$_2$ / H$_2$O atmosphere where CO$_2$ is the dominant gas. First, the three environment variables are set as + +\begin{verbatim} +DWORK_DIR=/san/home/rdword/corrk_data/CO2_H2Ovar +KSPEC_DIR=/san/home/rdword/kspectrum/kspec_1 +BANDS_DIR=32x36 +\end{verbatim} + +We then create a directory that includes files \verb+Q.dat+, \verb+p.dat+ and \verb+T.dat+ to define the number of gaseous species and pressure and temperature gridpoints. For each file the first number gives the number of points / species. See the folder \verb+corrk_example+ in \verb+utilities+ for the example we will describe here. + +Typing {\tt prekspectrum} results in the following prompt: + +\begin{verbatim} +Name of atmosphere / planet: +\end{verbatim} + +The planet name is for reference only and does not affect the results. After this, the values of the temperature, pressure and variable gas (H2O) grids are displayed, and you are asked for the CO2 mixing ratio: + +\begin{verbatim} + Correlated-k temperature grid: + 1. 100.0 K + 2. 150.0 K + 3. 200.0 K + 4. 250.0 K + 5. 300.0 K + 6. 350.0 K + 7. 400.0 K + + Correlated-k pressure grid (mBar): + 1. 1 x 10 ^-3 mBar + 2. 1 x 10 ^-2 mBar + 3. 1 x 10 ^-1 mBar + 4. 1 x 10 ^ 0 mBar + 5. 1 x 10 ^ 1 mBar + 6. 1 x 10 ^ 2 mBar + 7. 1 x 10 ^ 3 mBar + 8. 1 x 10 ^ 4 mBar + 9. 1 x 10 ^ 5 mBar + + nmolec= 2 + Temperature layers: 7 + Pressure layers: 9 + Mixing ratio layers: 7 + Total: 441 + + Please enter vmr of CO2 +\end{verbatim} + +We chose {\tt 1.0} as there are no other gases (the mixing ratio is automatically changed to take into account the variable gas). After {\tt prekspectrum} exits, we can view the resulting \verb+composition.in+ file stored in the \verb+data/+ directory of \verb+kspectrum+: + +\begin{verbatim} +Atmospheric composition input data file for planet: Zarmina +Number of atmospheric levels: 441 +Number of molecules: 2 + + z (km) / P (atm) / T (K) / x[CO2] / x[H2O] + 0.000000000E+00 0.986923267E-06 0.100E+03 0.99999E+00 0.10000E-06 + 0.000000000E+00 0.986923267E-06 0.150E+03 0.99999E+00 0.10000E-06 + 0.000000000E+00 0.986923267E-06 0.200E+03 0.99999E+00 0.10000E-06 + ... +\end{verbatim} + +Typing \verb+run_kspectrum+ in the \verb+kspectrum+ directory then submits the process as a batch job. Beware: calculating LBL coefficients for multiple gases and several hundred $p$, $T$ values can take several weeks at current processing speeds! + +\section{Performing the correlated-k conversion} + +Once the LBL data is calculated, it's time to convert it to correlated-k format. We do this using a program \verb+generate_kmatrix.F90+ which is also stored in the \verb+utilities+ folder and is called by \verb+postkspectrum+. In addition to the data generated by \verb+kspectrum+ and the original \verb+.dat+ files, it requires definition of the spectral bands to be used in the GCM. In this example we use a folder \verb+32x36+, containing files \verb+narrowbands_VI.in+ and \verb+narrowbands_IR.in+. These files define the number and widths all all bands in the visible and infrared, respectively. They can of course be modified depending on blackbody temperatures and the tradeoff required between model speed and accuracy - the + examples given provide accurate results for planets around Sun-like or M-class stars with surface temperatures in the 200-350 K range. {\tt postkspectrum} moves the LBL database to the {\tt DWORK\_DIR} directory along with the script {\tt run\_kmatrix}. When {\tt run\_kmatrix} is submitted in batch mode, it calls \verb+generate_kmatrix.exe+ automatically for both the visible and the infrared. +Correlated-k conversion is much quicker than the LBL calculation - for this database on current (2011) systems it should take only a few hours. + +\section{Implementing the absorption data in the GCM} + +To use our new correlated-k coefficients, we symbolically link the correlated-k folder to the {\tt datagcm} directory defined in the GCM file \verb+phystd/datafile.h+ (it's best to avoid copying the data directly due to space considerations). All that is left is to change {\tt corrkdir} in \verb+callphys.def+ to the correct name (\verb+CO2_H2Ovar+ in this example). Provided that we compile the GCM with the correct number of bands, e.g. + +\begin{verbatim} +makegcm -d 32x32x20 -t 1 -b 32x36 -p std gcm +\end{verbatim} + +it will run automatically with the new radiative transfer. The GCM checks the radiative transfer data on initialization vs. the values given in +\verb+gases.def+, to verify that thermodynamic values (e.g. $\mu_{gas}$, $c_p$) match the correlated-k data in the model. Index: /trunk/LMDZ.TITAN/DOC/main.aux =================================================================== --- /trunk/LMDZ.TITAN/DOC/main.aux (revision 1644) +++ /trunk/LMDZ.TITAN/DOC/main.aux (revision 1644) @@ -0,0 +1,189 @@ +\relax +\catcode`:\active +\catcode`;\active +\catcode`!\active +\catcode`?\active +\bibstyle{abbrv} +\select@language{english} +\@writefile{toc}{\select@language{english}} +\@writefile{lof}{\select@language{english}} +\@writefile{lot}{\select@language{english}} +\select@language{english} +\@writefile{toc}{\select@language{english}} +\@writefile{lof}{\select@language{english}} +\@writefile{lot}{\select@language{english}} +\@writefile{toc}{\contentsline {chapter}{\numberline {1}Introduction}{3}} +\@writefile{lof}{\addvspace {10\p@ }} +\@writefile{lot}{\addvspace {10\p@ }} +\select@language{english} +\@writefile{toc}{\select@language{english}} +\@writefile{lof}{\select@language{english}} +\@writefile{lot}{\select@language{english}} +\@writefile{toc}{\contentsline {chapter}{\numberline {2}Main features of the model}{4}} +\@writefile{lof}{\addvspace {10\p@ }} +\@writefile{lot}{\addvspace {10\p@ }} +\newlabel{sc:apercu}{{2}{4}} +\@writefile{toc}{\contentsline {section}{\numberline {2.1}Basic principles}{4}} +\@writefile{toc}{\contentsline {section}{\numberline {2.2}Dynamical-Physical separation}{4}} +\@writefile{lof}{\contentsline {figure}{\numberline {2.1}{\ignorespaces Physical/dynamical interface}}{5}} +\newlabel{fg:fidyn}{{2.1}{5}} +\@writefile{toc}{\contentsline {section}{\numberline {2.3}Grid boxes:}{5}} +\@writefile{toc}{\contentsline {subsection}{\numberline {2.3.1}Horizontal grids}{5}} +\@writefile{lof}{\contentsline {figure}{\numberline {2.2}{\ignorespaces Dynamical and physical grids for a 6 $\times $ 7 horizontal resolution. In the dynamics (but not in the physics) winds u and v are on specific staggered grids. Other dynamical variables are on the dynamical ``scalar'' grid. The physics uses the same ``scalar'' grid for all the variables, except that nodes are indexed in a single vector containing NGRID=2+(JM-1)$\times $IM points when counting from the north pole. N.B.: In the Fortran program, the following variables are used: {\tt iim=IM , iip1=IM+1, jjm=JM , jjp1=JM+1}.}}{6}} +\newlabel{fg:grid}{{2.2}{6}} +\@writefile{toc}{\contentsline {subsection}{\numberline {2.3.2}Vertical grids}{7}} +\@writefile{lof}{\contentsline {figure}{\numberline {2.3}{\ignorespaces hybrides}}{7}} +\newlabel{fg:hybrid}{{2.3}{7}} +\@writefile{lof}{\contentsline {figure}{\numberline {2.4}{\ignorespaces Vertical grid description of the {\tt llm (or nlayer)} atmospheric layers in the programming code ({\tt llm} is the variable used in the dynamical part, and {\tt nlayer} is used in the physical part). Variables {\tt ap, bp} and {\tt aps, bps} indicate the hybrid levels at the interlayer levels and at middle of the layers respectively. Pressure at the interlayer is $Plev(l)=ap(l)+bp(l) \times Ps$ and pressure in the middle of the layer is defined by $Play(l)=aps(l)+bps(l) \times Ps$, (where $Ps$ is surface pressure). Sigma coordinates are merely a specific case of hybrid coordinates such that $aps=0$ and $bps=P/Ps$. Note that for the hybrid coordinates, $bps=0$ above $\sim 50$~km, leading to purely pressure levels. The user can choose whether to run the model using hybrid coordinates or not by setting variable {\tt hybrid} in run.def to True or False.}}{8}} +\newlabel{fg:sigma}{{2.4}{8}} +\@writefile{toc}{\contentsline {section}{\numberline {2.4}Variables used in the model}{9}} +\@writefile{toc}{\contentsline {subsection}{\numberline {2.4.1}Dynamical variables}{9}} +\@writefile{toc}{\contentsline {subsection}{\numberline {2.4.2}Physical variables}{9}} +\@writefile{toc}{\contentsline {subsection}{\numberline {2.4.3}Tracers}{10}} +\citation{Holt:79} +\citation{LeVa:89} +\citation{Arak:77} +\@writefile{toc}{\contentsline {chapter}{\numberline {3}3D Dynamical Code}{11}} +\@writefile{lof}{\addvspace {10\p@ }} +\@writefile{lot}{\addvspace {10\p@ }} +\newlabel{sc:dynamic}{{3}{11}} +\@writefile{toc}{\contentsline {section}{\numberline {3.1}Discretisation of the dynamical equations}{11}} +\@writefile{toc}{\contentsline {paragraph}{la pression extensive:}{11}} +\@writefile{lof}{\contentsline {figure}{\numberline {3.1}{\ignorespaces Grille obtenue avec 96 points en longitude et 73 en latitude et un zoom d'un facteur 3 centr\'e sur la m\'edit\'erann\'ee (grille utilis\'ee au laboratoire par Ali Harzallah)}}{12}} +\newlabel{fg:zoom}{{3.1}{12}} +\@writefile{lof}{\contentsline {figure}{\numberline {3.2}{\ignorespaces Disposition des variables dans la grille du LMD}}{13}} +\newlabel{fg:grille}{{3.2}{13}} +\@writefile{toc}{\contentsline {paragraph}{les trois composantes du flux de masse:}{13}} +\@writefile{toc}{\contentsline {paragraph}{le facteur de Coriolis multipli\'e par l'aire de la maille:}{13}} +\@writefile{toc}{\contentsline {paragraph}{la vorticit\'e potentielle absolue:}{13}} +\@writefile{toc}{\contentsline {paragraph}{l'\'energie cin\'etique}{13}} +\@writefile{toc}{\contentsline {paragraph}{\'equations du mouvement:}{13}} +\newlabel{eq:u1}{{3.5}{13}} +\newlabel{eq:v1}{{3.6}{13}} +\@writefile{toc}{\contentsline {paragraph}{\'equation thermodynamique:}{14}} +\newlabel{eq:thermo}{{3.7}{14}} +\@writefile{toc}{\contentsline {paragraph}{\'equation hydrostatique:}{14}} +\@writefile{toc}{\contentsline {paragraph}{\'equations de continuit\'e:}{14}} +\newlabel{eq:cont1}{{3.9}{14}} +\newlabel{eq:cont2}{{3.10}{14}} +\@writefile{toc}{\contentsline {section}{\numberline {3.2}High latitude filters}{14}} +\@writefile{toc}{\contentsline {section}{\numberline {3.3}Dissipation}{14}} +\@writefile{toc}{\contentsline {section}{\numberline {3.4}Sponge layer}{15}} +\citation{Forg:99} +\citation{Forg:99} +\citation{Lewi:99} +\@writefile{toc}{\contentsline {chapter}{\numberline {4}Physical parameterizations of the generic model: some references}{16}} +\@writefile{lof}{\addvspace {10\p@ }} +\@writefile{lot}{\addvspace {10\p@ }} +\newlabel{sc:phystd}{{4}{16}} +\@writefile{toc}{\contentsline {section}{\numberline {4.1}General}{16}} +\@writefile{toc}{\contentsline {paragraph}{General references:}{16}} +\@writefile{toc}{\contentsline {section}{\numberline {4.2}Radiative transfer}{16}} +\@writefile{toc}{\contentsline {subsection}{\numberline {4.2.1}\bf Absorption/emission and diffusion by dust:}{16}} +\citation{Toon:89} +\citation{Forg:98grl} +\citation{Fouq:80} +\citation{Ocke:97} +\citation{Clan:91} +\citation{Hour:93} +\citation{Forg:98} +\citation{Hour:99} +\citation{Mont:04jgr} +\@writefile{toc}{\contentsline {section}{\numberline {4.3}Subgrid atmospheric dynamical processes}{17}} +\@writefile{toc}{\contentsline {subsection}{\numberline {4.3.1}Turbulent diffusion in the upper layer}{17}} +\@writefile{toc}{\contentsline {subsection}{\numberline {4.3.2}Convection}{17}} +\@writefile{toc}{\contentsline {section}{\numberline {4.4}Surface thermal conduction}{17}} +\@writefile{toc}{\contentsline {section}{\numberline {4.5}CO$_2$ Condensation}{17}} +\@writefile{toc}{\contentsline {section}{\numberline {4.6}Tracer transport and sources}{17}} +\@writefile{toc}{\contentsline {chapter}{\numberline {5}Running the model: a practice simulation}{19}} +\@writefile{lof}{\addvspace {10\p@ }} +\@writefile{lot}{\addvspace {10\p@ }} +\newlabel{loc:contact1}{{5}{19}} +\@writefile{toc}{\contentsline {section}{\numberline {5.1}Installing the model from SVN}{19}} +\@writefile{toc}{\contentsline {section}{\numberline {5.2}Installing the model without SVN}{21}} +\@writefile{toc}{\contentsline {section}{\numberline {5.3}Compiling the model}{21}} +\newlabel{sc:run1}{{5.3}{21}} +\@writefile{toc}{\contentsline {section}{\numberline {5.4}Input files (initial states and def files)}{22}} +\@writefile{toc}{\contentsline {section}{\numberline {5.5}Running the model}{22}} +\@writefile{lof}{\contentsline {figure}{\numberline {5.1}{\ignorespaces Input/output data}}{23}} +\newlabel{fig:inout}{{5.1}{23}} +\@writefile{toc}{\contentsline {section}{\numberline {5.6}Visualizing the output files}{24}} +\@writefile{toc}{\contentsline {subsection}{\numberline {5.6.1}Using GrAds to visualize outputs}{24}} +\newlabel{loc:visu}{{5.6.1}{24}} +\@writefile{toc}{\contentsline {section}{\numberline {5.7}Resuming a simulation}{25}} +\@writefile{toc}{\contentsline {section}{\numberline {5.8}Chain simulations}{25}} +\@writefile{toc}{\contentsline {section}{\numberline {5.9}Creating and modifying initial states}{25}} +\newlabel{sc:newstart}{{5.9}{25}} +\@writefile{toc}{\contentsline {subsection}{\numberline {5.9.1}Using program ``newstart''}{25}} +\@writefile{toc}{\contentsline {subsection}{\numberline {5.9.2}Creating the initial start\_archive.nc file }{27}} +\@writefile{toc}{\contentsline {subsection}{\numberline {5.9.3}Changing the horizontal or vertical grid resolution}{27}} +\@writefile{toc}{\contentsline {chapter}{\numberline {6}Program organization and compilation script}{28}} +\@writefile{lof}{\addvspace {10\p@ }} +\@writefile{lot}{\addvspace {10\p@ }} +\newlabel{sc:info}{{6}{28}} +\newlabel{loc:contenu}{{6}{28}} +\@writefile{toc}{\contentsline {section}{\numberline {6.1}Organization of the model source files}{28}} +\@writefile{toc}{\contentsline {section}{\numberline {6.2}Programming}{29}} +\@writefile{toc}{\contentsline {section}{\numberline {6.3}Model organization}{29}} +\@writefile{toc}{\contentsline {section}{\numberline {6.4}Compiling the model}{29}} +\newlabel{sc:compil1}{{6.4}{29}} +\@writefile{lof}{\contentsline {figure}{\numberline {6.1}{\ignorespaces Organigram of subroutine function physiq.F90}}{30}} +\newlabel{fg:organi_phys}{{6.1}{30}} +\@writefile{toc}{\contentsline {paragraph}{Help manual for the makegcm script}{31}} +\@writefile{toc}{\contentsline {chapter}{\numberline {7}Input/Output}{33}} +\@writefile{lof}{\addvspace {10\p@ }} +\@writefile{lot}{\addvspace {10\p@ }} +\newlabel{sc:io}{{7}{33}} +\@writefile{toc}{\contentsline {section}{\numberline {7.1}NetCDF format}{33}} +\@writefile{toc}{\contentsline {subsection}{\numberline {7.1.1}NetCDF file editor: ncdump}{33}} +\@writefile{toc}{\contentsline {paragraph}{Main commands for ncdump}{33}} +\@writefile{lof}{\contentsline {figure}{\numberline {7.1}{\ignorespaces Example of temperature data (in this case for present-day Mars) at a given time using GrADS visualization}}{34}} +\newlabel{fg:grads}{{7.1}{34}} +\@writefile{toc}{\contentsline {subsection}{\numberline {7.1.2}Graphic visualization of the NetCDF files using GrAds}{34}} +\@writefile{toc}{\contentsline {section}{\numberline {7.2}Input and parameter files}{34}} +\newlabel{loc:entrees}{{7.2}{34}} +\@writefile{toc}{\contentsline {subsection}{\numberline {7.2.1}run.def}{35}} +\newlabel{vb:run.def}{{7.2.1}{35}} +\@writefile{toc}{\contentsline {subsection}{\numberline {7.2.2}callphys.def}{37}} +\newlabel{sc:callphys.def}{{7.2.2}{37}} +\@writefile{toc}{\contentsline {subsection}{\numberline {7.2.3}traceur.def}{39}} +\newlabel{sc:traceur.def}{{7.2.3}{39}} +\@writefile{toc}{\contentsline {subsection}{\numberline {7.2.4}z2sig.def}{39}} +\@writefile{toc}{\contentsline {subsection}{\numberline {7.2.5}Initialization files: start and startfi}{40}} +\@writefile{lof}{\contentsline {figure}{\numberline {7.2}{\ignorespaces Organization of NetCDF files }}{41}} +\newlabel{fg:netcdf}{{7.2}{41}} +\@writefile{toc}{\contentsline {paragraph}{Physical and dynamical headers}{43}} +\@writefile{toc}{\contentsline {paragraph}{Surface conditions}{43}} +\@writefile{toc}{\contentsline {paragraph}{Physical and dynamical state variables}{43}} +\@writefile{toc}{\contentsline {paragraph}{The ``control'' array}{44}} +\@writefile{toc}{\contentsline {section}{\numberline {7.3}Output files}{46}} +\@writefile{toc}{\contentsline {subsection}{\numberline {7.3.1}NetCDF restart files - restart.nc and restartfi.nc}{46}} +\@writefile{toc}{\contentsline {subsection}{\numberline {7.3.2} NetCDF file - diagfi.nc}{46}} +\@writefile{toc}{\contentsline {subsection}{\numberline {7.3.3}Stats files}{47}} +\@writefile{toc}{\contentsline {chapter}{\numberline {8}Water Cycle Simulation}{51}} +\@writefile{lof}{\addvspace {10\p@ }} +\@writefile{lot}{\addvspace {10\p@ }} +\newlabel{sc:water}{{8}{51}} +\@writefile{toc}{\contentsline {chapter}{\numberline {9}1D version of the generic model}{54}} +\@writefile{lof}{\addvspace {10\p@ }} +\@writefile{lot}{\addvspace {10\p@ }} +\newlabel{sc:rcm1d}{{9}{54}} +\@writefile{toc}{\contentsline {section}{\numberline {9.1}Compilation}{54}} +\@writefile{toc}{\contentsline {section}{\numberline {9.2}1-D runs and input files}{54}} +\@writefile{toc}{\contentsline {section}{\numberline {9.3}Output data}{56}} +\@writefile{toc}{\contentsline {chapter}{\numberline {10}Zoomed simulations}{57}} +\@writefile{lof}{\addvspace {10\p@ }} +\@writefile{lot}{\addvspace {10\p@ }} +\newlabel{sc:zoom}{{10}{57}} +\@writefile{toc}{\contentsline {section}{\numberline {10.1}To define the zoomed area}{57}} +\@writefile{toc}{\contentsline {section}{\numberline {10.2}Making a zoomed initial state}{57}} +\@writefile{toc}{\contentsline {section}{\numberline {10.3}Running a zoomed simulation and stability issue}{58}} +\@writefile{toc}{\contentsline {chapter}{\numberline {11}Changing the radiative transfer properties}{59}} +\@writefile{lof}{\addvspace {10\p@ }} +\@writefile{lot}{\addvspace {10\p@ }} +\newlabel{sc:kspectrum}{{11}{59}} +\@writefile{toc}{\contentsline {section}{\numberline {11.1}Producing the high-resolution data}{59}} +\@writefile{toc}{\contentsline {section}{\numberline {11.2}Performing the correlated-k conversion}{60}} +\bibdata{newfred.bib} +\@writefile{toc}{\contentsline {section}{\numberline {11.3}Implementing the absorption data in the GCM}{61}} +\bibstyle{plain} Index: /trunk/LMDZ.TITAN/DOC/main.bbl =================================================================== --- /trunk/LMDZ.TITAN/DOC/main.bbl (revision 1644) +++ /trunk/LMDZ.TITAN/DOC/main.bbl (revision 1644) @@ -0,0 +1,3 @@ +\begin{thebibliography}{} + +\end{thebibliography} Index: /trunk/LMDZ.TITAN/DOC/main.ilg =================================================================== --- /trunk/LMDZ.TITAN/DOC/main.ilg (revision 1644) +++ /trunk/LMDZ.TITAN/DOC/main.ilg (revision 1644) @@ -0,0 +1,6 @@ +This is C:\Program Files (x86)\MiKTeX 2.9\miktex\bin\makeindex.EXE, version 2.15 [MiKTeX 2.9] (kpathsea + Thai support). +Scanning input file main.idx....done (5 entries accepted, 0 rejected). +Sorting entries....done (11 comparisons). +Generating output file main.ind....done (21 lines written, 0 warnings). +Output written in main.ind. +Transcript written in main.ilg. Index: /trunk/LMDZ.TITAN/DOC/main.tex =================================================================== --- /trunk/LMDZ.TITAN/DOC/main.tex (revision 1644) +++ /trunk/LMDZ.TITAN/DOC/main.tex (revision 1644) @@ -0,0 +1,56 @@ +\documentclass{report} +\usepackage{epsf} +\usepackage{times} +\usepackage{epsfig} +\usepackage[round]{natbib} + +%\usepackage{makeidx} +\usepackage{a4} +\usepackage{graphicx} +\usepackage[french,english]{babel} +\scrollmode + +%\makeindex + +\newcommand{\indexentry}[2]{\item #1 #2} +% numero de la derniere section numerotee +\setcounter{secnumdepth}{3} +% numero de la derniere section a apparaitre dans la table des matieres +\setcounter{tocdepth}{3} + +% For title page +\title{User Manual for the LMD Generic Climate Model} +\author{E. Millour, F. Forget, J. Leconte, R. Wordsworth.} +\date{\today} + + +\begin{document} +\bibliographystyle{abbrv} + +\input{def} + +\selectlanguage{english} + +\maketitle +\tableofcontents + +\input{intro} +\input{principe} +\input{dynamics} +\input{phystd} +\input{run.tex} +\input{compilation} +\input{io.tex} +\input{water.tex} +\input{rcm1d.tex} +\input{zoom.tex} +\input{kspectrum.tex} + +\appendix + +%\printindex + +\bibliography{newfred.bib} +\bibliographystyle{plain} + +\end{document} Index: /trunk/LMDZ.TITAN/DOC/newfred.bib =================================================================== --- /trunk/LMDZ.TITAN/DOC/newfred.bib (revision 1644) +++ /trunk/LMDZ.TITAN/DOC/newfred.bib (revision 1644) @@ -0,0 +1,15640 @@ + +@string{aa = "Astron.~Astrophys."} +@string{aap = "Astron.~Astrophys."} +@string{ae = "Atmosph.~Environ."} + +@string{ang = "Ann.~Geophys."} + +@string{ao = "Appl.~Opt."} + +@string{apj="Astrophys.~Jour."} + +@string{araa="Ann.~Rev.~Astron.~Astrophys."} + +@string{aereps="Ann.~Rev.~Earth~Planet~Sci."} + +@string{asr="Adv.~Space~Res."} + +@string{baas="Bull.~Am.~Astron.~Soc."} + +@string{bams="Bull.~Am.~Meteorol.~Soc."} + +@string{bpa2 = "Beitr.~Phys.~Atmosph." } + +@string{bpa="Contrib.~Atmos.~Phys."} + +@string{cap="Contrib.~Atmos.~Phys."} + +@string{cc = "Climatic~Change"} + +@string{jc = "J.~Climate"} + +@string{gfd="Geophys.~Fluid~Dyn."} + +@string{grl="Geophys.~Res.~Lett."} + +@string{iaop= "Izvestiya,~Atmos.~Ocean.~Phys."} + +@string{jam = "J.~Appl.~Met."} + +@string{jas = "J.~Atmos.~Sci."} + +@string{jcp = "J.~Computational~Phys."} + +@string{jgr = "J.~Geophys.~Res."} + +@string{jmsj = "J.~Meteor.~Soc.~Jap."} + +@string{josa = "J.~Opt.~Soc.~Am."} + +@string{jpo = "J.~Phys.~Oceanogr."} + +@string{jqsrt = "J.~Spectrosc.~Radiat.~Transfer"} + +@string{jqsrt="J.~Quant.~Spectrosc.~Radiat.~Transfer"} + +@string{lnp="Lect. Notes Phys."} + +@string{lps="Lunar Planet Sci."} + +@string{mwr = "Mon. Wea. Rev." } + +@string{pss="Planet.~Space~Sci."} + +@string{ptrsl="Philos. Trans. R. Soc. London"} + +@string{qjr = "Q.~J.~R.~Meteorol.~Soc."} + +@string{rg="Rev.~Geophys."} + +@string{sci="Science"} + +@string{qjrms="Q.~J.~R.~Meteorol.~Soc."} + +@string{rg="Rev.~Geophys."} + +@string{blm="Boundary-layer Meteorol."} + +@article{Zent:93, + author = {Zent, A. P. and Haberle, R. M. and Houben, H. C. and Jakosky, B. M.}, + journal = jgr, + pages = {3319-3337}, + publisher = {Masson}, + title = {A coupled subsurface-boundary layer model of water on {Mars}}, + volume = {98}, + year = {1997} +} + +@misc{Forg:01, + author = {Forget, F. and Wanherdrick, Y. and Lewis, S. R.}, + howpublished = {{ESA technical report, available on +{\tt http://www-mars.lmd.jussieu.fr/mars/esadoc/lmd/esadoc.html} }}, + title = {Validation of the {Mars General Circulation model and Mars Climate Database with new spacecraftobservations}}, + year = {2001} +} + +@article{Bake:01, + author = {Baker, V. R.}, + journal = {Nature}, + pages = {228-236}, + title = {Water and the martian landscape}, + year = {2001} +} + +@misc{Forg:01egs, + author = {Forget et al.}, + howpublished = {Oral presentation at the EGS assembly, Nice}, + title = {Simulation of the upper martian atmosphere up to 120 km with a General Circulation Model}, + year = {2001} +} + +@misc{Cant:01sub, + author = {Cantor, B. and James, P.B. and Caplinger , M. and Wolff, M. J.}, + howpublished = {Submitted to JGR}, + title = {Martian dust storms: 1999 Mars Orbiter Camera Observations}, + year = {2001} +} + +@article{Hins:01, + author = {Hinson, D}, + journal = jgr, + pages = {1463-1480}, + title = {Radio Occultation measurements of forced atmospheric waves on {Mars}}, + volume = {106}, + year = {2001} +} + +@article{Schu:98, + author = {Schulz, M. and Balkanski, Y. J. and Guelle, W. and Dulac, F.}, + journal = jgr, + pages = {10,579-10,592}, + title = {Role of aerosol size distribution and source location in a three-dimensional simulation of {Saharan} dust episode tested against staellite-derived optical thickness}, + volume = {103}, + year = {1998} +} + +@article{Wils:00, + author = {Wilson, R.~J. and Richardson, M.~I.}, + journal = {Icarus}, + pages = {555-579}, + title = {Infrared measurements of atmospheric temperatures revisited}, + volume = {145}, + year = {2000} +} + +@article{Scho:97, + author = {Schofield, J. T. and Crisp, D. and Barnes, J. R. and Haberle, R. M. and Magalha{\~a}es, J. A. and Murphy, J. R. and Seiff, A. and Larsen, S. and Wilson, G.}, + journal = {Science}, + pages = {1752-1757}, + title = {The {Mars Pathfinder Atmospheric Structure Investigation/Meteorology (ASI/MET)} experiment}, + volume = {278}, + year = {1997} +} + +@article{Josh:00, + author = {Joshi, M. and Haberle, R. M. and Hollingsworth, J. and Hinson, D.}, + journal = jgr, + pages = {17,601-17615}, + title = {A comparison of {MGS} phase 1 aerobraking radio occultation data and the {NASA Ames Mars GCM}.}, + volume = {105}, + year = {2000} +} + +@article{Clan:00, + author = {Clancy, R. T. and Sandor, B. J. and Woff, M. J. and Christensen, P. R. and Smith, M. D. and Pearl, J. C. and Conrath, B. J. and Wilson, R. J.}, + journal = jgr, + pages = {9553-9571}, + title = {An intercomparison of ground-based millimeter, {MGS TES}, and {Viking} atmospheric temperature measurements: Seasonal and interannual variability of temperatures and dust loading in the global {Mars} atmosphere}, + type = {atmosphere}, + volume = {105}, + year = {2000} +} + +@article{Forb:00, + author = {Forbes, J. M. and Hagan, M. E.}, + journal = grl, + pages = {3563-3566}, + title = {Diurnal {Kelvin} wave in the atmosphere of {Mars}: Toward and understanding of {``Stationary''} density structures observed by the {MGS} accelerometer.}, + volume = {27}, + year = {2000} +} + +@article{Conr:00, + author = {Conrath, B. J. and Pearl, J. C. and Smith, M. D. and Maguire, W. C. and Christensen, P. R. and Dason, S. and Kaelberer, M. S.}, + journal = jgr, + pages = {9509-9519}, + title = {{Mars Global Surveyor Thermal Emission Spectrometer (Tes)} observations : atmospheric temperature during aerobraking and science phasing.}, + volume = {105}, + year = {2000} +} + +@ARTICLE{Smit:01tes, + author = {{Smith}, M.~D. and {Pearl}, J.~C. and {Conrath}, B.~J. and {Christensen}, P.~R.}, + title = {Thermal Emission Spectrometer results: Mars atmospheric thermal structure and aerosol distribution}, + journal = jgr, + year = 2001, + volume = 106, + pages = {23929-23945}, + doi = {10.1029/2000JE001321}, +} + +@article{Hins:99, + author = {Hinson, D. P. and Flasar, M. and Simpson, R. A. and Twicken, J. D. and Tyler, G. L.}, + journal = jgr, + pages = {26,997-27,012}, + title = {Initial results from radio occultation measurements with Mars Global Surveyor}, + volume = {104}, + year = {1999} +} + +@article{Keat:98, + author = {Keating, G. M. and Bougher S. W. and 29-coauthors.}, + journal = {Science}, + pages = {1672-1676}, + title = {The structure of the upper atmosphere of Mars: {In} situ accelerometer measurements from {Mars Global Surveyor}}, + volume = {279}, + year = {1998} +} + +@article{Mell:00, + author = {Mellon, M. T. and Jakosky, B. M. and Kieffer, H. H. and Christensen, P. R.}, + journal = {Icarus}, + pages = {437-455}, + title = {High resolution Thermal inertia mapping from the {Mars Global Surveyor Thermal Emission Spectrometer}}, + volume = {148}, + year = {2000} +} + +@article{Will:93, + author = {Williams , A. G. and Hacker , J. M.}, + journal = blm, + pages = {55-74}, + title = {Interactions between coherent eddies in the lower convective boundary layer}, + volume = {64}, + year = {1993} +} + +@article{Will:92, + author = {Williams , A. G. and Hacker , J. M.}, + journal = blm, + pages = {213--245}, + title = {The composite shape and structure of coherent eddies in the convective boundary layer}, + volume = {61}, + year = {1992} +} + +@misc{Will:9 +} + +@article{Ayot:96, + author = {Ayotte , K. W. and Sullivan , P. P. and Andrén , A. and Doney , S. C. and Holtslag , A. A. and Large , W. G. and McWilliams , J. C. and Moeng , C.-N. and Otte , M. J. and Tribbia , J. J. and Wyngaard , J. C.}, + address = {, J. C.}, + journal = blm, + pages = {131--175}, + title = {An evaluation of neutral and convective planetary boundary-layer parameterizations relative to large eddy simulations}, + volume = {79}, + year = {1996} +} + +@misc{Lebo:00, + author = {Lebonnois , S. and Toublanc , D. and Hourdin , F. and Rannou , P.}, + howpublished = {submitted to Icarus}, + title = {Seasonal variations of {Titan}'s atmospheric composition}, + year = {2000} +} + +@misc{Bona:00, + author = {Bonazzola , M. and Picon , L. and Laurent , H. and Hourdin , F. and S\`ese , G. and Pawlowska , H. and Sadourny , R.}, + howpublished = {Submitted to J. of Geophys. Res.}, + title = {Direct estimate of vertical profiles of horizontal wiund difvergences from {Meteosat}-5 data over the indian ocean}, + year = {2000} +} + +@misc{Hour:00THERM, + author = {Hourdin , F. and Couvreux , F. and Menut , L.}, + howpublished = {submitted to J. of Atmosph. Sci.}, + title = {Parameterisation of the dry convective boundary layer based on a mass flux representation of thermals}, + year = {2000} +} + +@misc{Crue:00, + author = {Cruette, D. and Marillier , A. and Dufresne , J.-L. and Granpeix , J.-Y. and Nacass , P. and Bellec , H.}, + howpublished = {J. Atmosph. and Oceanic Tech., in press}, + journal = {J. Atmosph. and Oceanic Tech.}, + title = {Fast temperature and trues airspeed measurements with the airborne ultrasonic anemometer-thermometer (AUSAT)}, + year = {2000} +} + +@misc{VanD:00, + author = {Van Dop , Han}, + howpublished = {oral presentation at the General Assembly of the European Geophiscial Society, Nice}, + title = {Progress in coutergradient theory}, + year = {2000} +} + +@article{Raym:86, + author = {Raymond , D. J. and Blyth , A. M.}, + journal = jas, + pages = {2708--2718}, + title = {A stochastic model for non precipitating cumulus clouds}, + volume = {43}, + year = {1986} +} + +@phdthesis{Will:91, + author = {Williams , A. G.}, + school = {Flinders University of South Australia}, + title = {Internal structure and interactions of coherent eddies in the lower Convective Boundary Layer}, + year = {1991} +} + +@article{Eber:89, + author = {Ebert , E. E. and Schumann , U. and Stull , R. B.}, + journal = jas, + pages = {2178-2207}, + title = {Non local turbulent mixing in the Convective Boundary Layer evaluated from {Large-Eddy Simulation}}, + volume = {46}, + year = {1989} +} + +@book{Pran:34, + author = {Prandtl , L. and Tietjens , O. G.}, + address = {New-York}, + publisher = {Dover Publications, Inc.}, + series = {Engineering Societies Monographs}, + title = {Applied hydro- and aeromechanics}, + year = {1934} +} + +@article{Alap:97, + author = {Alapaty , K. A. and Pleim , J. E. and Raman , S. and Niyogi , D. S. and Byun , D. W.}, + journal = jam, + pages = {214--233}, + title = {Simulation of Atmospheric Boundary Layer Processes Using Local and Nonlocal-Closure schemes}, + year = {1997} +} + +@article{Arak:74, + author = {Arakawa , R. A. and Schubert , W. H.}, + journal = jas, + pages = {674--701}, + title = {Interaction of a cumulus cloud ensemble with the large scale environment. Part {I}}, + volume = {31}, + year = {1974} +} + +@article{Eman:91, + author = {Emanuel , Kerry A.}, + journal = jas, + pages = {2313--2335}, + title = {A scheme for representing cumulus convection in large-scale models}, + volume = {48}, + year = {1991} +} + +@article{Plei:92, + author = {Pleim , Jonathan. E. and Chang , Julius. S.}, + journal = ae, + pages = {965--981}, + title = {A non-local closure model for vertical mixing in the convective boundary layer}, + volume = {26A}, + year = {1992} +} + +@article{Holt:93, + author = {Holtslag , A. A. M. and Boville , B. A.}, + journal = jc, + pages = {1825--1842}, + title = {Local Versus Non-Local Boundary-Layer Diffusion in a Global Climate Model}, + volume = {6}, + year = {1993} +} + +@article{Troe:86, + author = {Troen , I. and Mahrt , L.}, + journal = blm, + pages = {129--148}, + title = {A simple model of the atmospheric boundary layer: Sensitivity to surface evaporation}, + volume = {37}, + year = {1986} +} + +@book{Well:97, + author = {Wells , Neil}, + edition = {2nd}, + publisher = {John Wiley and Sons}, + title = {The atmosphere and ocean : A physical Introduction}, + year = {1997} +} + +@book{Salb:96, + author = {Salby , Murry L.}, + publisher = {Academic Press}, + title = {DFundamentals of Atmospheric Physics}, + year = {1996} +} + +@article{Hour:99METEO, + author = {Hourdin , F. H. and Idelkadi , Abderrahmane and Bonazola , M. and Fairhead , L. and Filiberti , M.-A. and Issartel , J.-P.}, + journal = {La m\'et\'eorologie, 8eme serie}, + title = {Exercice de simulation de dispersion atmosph\'erique pour l'accident de Tokaimura}, + year = {1999} +} + +@misc{Hour:00b, + author = {Hourdin, C. and Dufresnes, J-L. and Fournier, R. and Hourdin, F.}, + howpublished = {Article in preparation}, + title = {Net exchange reformulation of radiative transfer in the {CO$_2$} 15$\mu$m band on Mars}, + year = {2000} +} + +@misc{Mell:99, + author = {Mellon, M. T. and Jakosky, B.M. and Kieffer H. H. and Christensen P. R.}, + howpublished = {In the {\it Fifth International conference on Mars}. Abstract 6131. LPI contribution No. 972 Lunar and Planetary Institute, Houston (CD-ROM).}, + title = {High resolution mapping of thermal inertia from {Mars Global SUrveyor Thermal Emission Spectrometer}}, + year = {1999} +} + +@article{Smit:99, + author = {Smith , D. E. and Zuber , M. T. and {17 coauthors}}, + journal = {Science}, + pages = {1495-1503}, + title = {The global topography of {Mars} and implication for surface evolution}, + volume = {284}, + year = {1999} +} + +@article{Houb:97, + author = {Houben, H. and Haberle, R. M. and Young, R. E. and Zent, A. P.}, + journal = jgr, + pages = {9069-9083}, + title = {Modeling the {Martian} seasonal water cycle}, + volume = {102}, + year = {1997} +} + +@article{Zent:97, + author = {Zent, A. P. and Quinn, R. C.}, + journal = jgr, + pages = {9085-9095}, + title = {Measurements of {H$_2$O} adsorption under {Mars} like conditions: {Effect} of adsorbent heterogeneity}, + volume = {102}, + year = {1997} +} + +@article{Clif:83, + author = {Clifford, S. M. and Hillel, D.}, + journal = jgr, + pages = {2456-2474}, + title = {The stability of ground ice in the equatorial region of {Mars}}, + volume = {88}, + year = {1983} +} + +@proceedings{VanD:98, + editor = {Van Dop , H. and Nodop , K.}, + pages = {4089--4378}, + series = {Atmos. Enrionn. special issue, pp. 4089--4378}, + title = {{ETEX}, A european tracer experiment}, + volume = {32}, + year = {1998} +} + +@book{Fris:95, + author = {Frisch, U.}, + publisher = {Cambridge University Press}, + title = {Turbulence: the legacy of A. N. Kolmogorov}, + year = {1995} +} + +@article{Odak:97, + author = {Odaka, M. and Nakajima, K. and Takehiro, S. and Ishiwatari, M. and Hayashi, Y.}, + journal = {EPS}, + title = {A numerical study of the martian atmospheric convection with a two dimensional anelastic model}, + year = {1997} +} + +@article{Stan:98, + author = {Stansberry, J. A.}, + journal = {American astronomical society}, + pages = {4905}, + title = {Atmospheric control of {Triton's} frost distribution}, + volume = {30}, + year = {1998} +} + +@mastersthesis{Alla:79, + author = {Allard, E.}, + school = {Ecole nationale de la m\'et\'eorologie}, + title = {Une m\'ethode de reconnaissance des ascendances convectives individuelles}, + type = {Rapport de stage}, + year = {1979} +} + +@article{Renn:98, + author = {Renno, N. O. and Burkett, M. L. and Larkin, M. P.}, + journal = jas, + pages = {3244--3252}, + title = {A simple thermodynamical theory for dust devils}, + volume = {55}, + year = {1998} +} + +@article{Abde:97, + author = {Abdella, K. and McFarlane, N.}, + journal = jas, + pages = {1850--1867}, + title = {A new second-order turbulence closure scheme for the planetary boundary layers}, + volume = {54}, + year = {1997} +} + +@article{Stul:84, + author = {Stull , Roland B.}, + journal = jas, + pages = {3351--3367}, + title = {Transilient Turbulence Theory. {Part I}: The concept of Eddy-Mixing across finite distances}, + volume = {41}, + year = {1984} +} + +@book{Nume:86, + publisher = {William H.}, + title = {Numerical Recipies: the art of scientific computing}, + year = {1986} +} + +@book{Galp:93, + author = {Galperin, B. and Orszag, S. A.}, + publisher = {Cambridge University Press}, + title = {Large eddy simulation of complex engineering and geophysical flows}, + year = {1993} +} + +@article{Moen:88, + author = {Moeng, C. and Wyngaard, J. C.}, + journal = jas, + number = {23}, + pages = {3573--3587}, + title = {Spectral analysis of large-eddy simulations of the convective bounadary layer}, + volume = {45}, + year = {1988} +} + +@article{Andr:78, + author = {Andr\'e, J. C. and De Moor, G. and Lacarr\`ere, P. and Therry, G. and du Vachat, R.}, + journal = jas, + pages = {1861--1883}, + title = {Modeling the 24-hour evolution of the mean and turbulent structures of the planetary boundary layer}, + volume = {35}, + year = {1978} +} + +@article{Ogur:61, + author = {Ogura, Y. and Phillips, N. A.}, + journal = jas, + pages = {173--179}, + title = {Scale analysis of deep and shallow convection in the atmosphere}, + volume = {19}, + year = {1962} +} + +@article{Lipp:90, + author = {Lipps, F. B.}, + journal = jas, + number = {14}, + pages = {1794--1798}, + title = {On the anelastic approximation for deep convection}, + volume = {47}, + year = {1990} +} + +@article{Dutt:68, + author = {Dutton, J. A. and Fichtl, G. H.}, + journal = jas, + pages = {241--254}, + title = {Approximate equations of motion for gases and liquids}, + volume = {26}, + year = {1968} +} + +@article{Goug:68, + author = {Gough, D. O.}, + journal = jas, + pages = {448--456}, + title = {The anelastic approximation for thermal convection}, + volume = {26}, + year = {1968} +} + +@article{Lipp:82, + author = {Lipps, F. B. and Hemler, R. S.}, + journal = jas, + pages = {2192--2210}, + title = {A scale analysis of deep moist convection and some related numerical calculations}, + volume = {39}, + year = {1982} +} + +@article{Scin:92, + author = {Scinocca, J. F. and Shepherd, T. G.}, + journal = jas, + number = {1}, + pages = {5--27}, + title = {Nonlinear wave-activity conservation laws and hamiltonian structure for the two-dimensional anelastic equations}, + volume = {49}, + year = {1992} +} + +@article{Maso:88, + author = {Mason, P. J.}, + journal = jas, + number = {11}, + pages = {1492--1516}, + title = {Large-eddy simulation of the convective atmospheric boundary layer}, + volume = {46}, + year = {1988} +} + +@article{Wilh:72, + author = {Wilhelmson, R. and Ogura, Y.}, + journal = jas, + pages = {1295--1307}, + title = {The pressure perturbation and the numerical modelling of a cloud}, + volume = {29}, + year = {1972} +} + +@article{Dear:72, + author = {Deardorff, J. W.}, + journal = jgr, + number = {30}, + pages = {5900--5904}, + title = {Theoretical expression for the countergradient vertical heat flux}, + volume = {77}, + year = {1972} +} + +@book{Land:89, + author = {Landau, L. and Lifchitz, E.}, + publisher = {Editions {Mir} {Moscou}}, + title = {M\'ecanique des fluides}, + volume = {6}, + year = {1989} +} + +@book{Stul:88, + title={{An introduction to boundary layer meteorology}}, + author={Stull, R.B.}, + year={1988}, + publisher={Kluwer Academic Publishers, Dordrecht} +} + +@article{Sode:90, + author = {Soderblom, L. A. and Kieffer, S. W. and Becker, T. L. and Brown, R. H. and Cook, A. F. and Hansen, C. J. and Johnson, T. V. and Kirk, R. L. and Shoemaker, E. M.}, + journal = {Science}, + pages = {410-415}, + title = {Triton's geyser-like plumes : Discovery and basic characterization}, + volume = {250}, + year = {1990} +} + +@article{Atki:96, + author = {Atkinson, B. W. and Zhang, J. W.}, + journal = {Reviews of Geophysics}, + pages = {403--431}, + title = {Mesoscale shallow convection in the atmosphere}, + volume = {34}, + year = {1996} +} + +@book{Lesi:90, + author = {Lesieur, M.}, + publisher = {Kluwer Academic Publishers}, + title = {Turbulence in fluids}, + year = {1990} +} + +@article{Moen:84, + author = {Moeng, C.}, + journal = jas, + number = {13}, + pages = {2052--2062}, + title = {A large-eddy-simulation model for the study of planetary boundary-layer turbulence}, + volume = {41}, + year = {1984} +} + +@article{Shut:94, + author = {Shutts, G. J. and Gray, E. B.}, + journal = qjr, + pages = {1145--1178}, + title = {A numerical modelling study of the geostrophic adjustement process following deep convection}, + volume = {120}, + year = {1994} +} + +@article{Lill:62, + author = {Lilly, D. K.}, + journal = {Tellus}, + number = {2}, + pages = {148--172}, + title = {On the numerical simulation of buoyant convection}, + volume = {14}, + year = {1962} +} + +@article{Herb:91, + author = {Herbert, F. and Sandel, B. R.}, + journal = jgr, + pages = {19241-19252}, + title = {{CH}$_4$ and haze in {Triton's} lower atmosphere}, + volume = {96}, + year = {1991} +} + +@article{Mark:99, + author = {Markiewicz, W. J. and Sablotny, R. M. and Keller, H. U. and Thomas, N. and Titov, D. and Smith, P. H.}, + journal = jgr, + pages = {9009-9017}, + title = {Optical properties of the {Martian} aerosols as derived from + Imager for {Mars Pathfinder} midday sky brightness data}, + volume = {104}, + year = {1999} +} + +@article{Stan:92, + author = {Stansberry, J. A. and Yelle, R. V. and Lunine, J. L. and McEwen, A. S.}, + journal = {Icarus}, + pages = {242-260}, + title = {Triton's surface-atmosphere energy balance}, + volume = {99}, + year = {1992} +} + +@book{Weas:67, + editor = {Weast, R. C.}, + publisher = {{CRC,Cleaveland}}, + title = {Handbook of {Chemistry and Physics}}, + year = {1967} +} + +@article{Clan:98, + author = {Clancy, R. T. and Sandor, B. J.}, + journal = grl, + pages = {489-492}, + title = {CO{$_2$} ice clouds in the upper atmosphere of {Mars}}, + volume = {25}, + year = {1998} +} + +@article{Chri:98, + author = {Christensen, P. R. and Anderson, D. L. and Chase, S. C. and Clancy, R. T. and Clark, R.N. and Conrath, B. J. and Kieffer, H. H. and Kuzmin, R. O. and Malin, M. C. and Pearl, J. C. and Roush, T. L. and Smith, M. D.}, + address = { Smith, M. D.}, + journal = {Science}, + pages = {1692-1698}, + title = {Results from the {Mars Global Surveyor Thermal Emission Spectrometer}}, + volume = {279}, + year = {1998} +} + +@misc{Pier:97, + author = {Pierrehumbert, R. T. and Erlick, C.}, + howpublished = {J. Atmos. Sci, in press}, + title = {On the scattering-greenhouse effect of {CO$_2$} ice clouds}, + year = {1977} +} + +@article{Hourd:98b, + author = {Hourdin , Frédéric and Issartel , Jean-Pierre}, + journal = {In preparation}, + title = {Reciprocity of transport of atmospheric tracers and CTBT monitoring of nuclear tests.}, + year = {1998} +} + +@article{Dele:94, + author = {Deleersnijder, E. and Luyten}, + journal = {Applied Mathematical Modelling}, + pages = {281-287}, + volume = {18}, + year = {1994} +} + +@article{Forg:98dps, + author = {Forget, F. and Hourdin, F. and Hourdin, C. and Talagrand, O.}, + journal = baas, + pages = {1023}, + title = {Simulation of dust lifting and transport with the {LMD} {Mars} general circulation model}, + volume = {30}, + year = {1998} +} + +@inproceedings{Forg:98erca, + author = {Forget, F.}, + booktitle = {European Research Course on Atmosphere {III}}, + editor = {C. Boutron}, + note = {(in press)}, + publisher = {Les Edition de physique}, + title = {Climate and habitability of terrestrial planets around other stars}, + year = {1998} +} + +@article{Elli:98, + author = {Elliot, J. L. and Hammel, H. B. and Wasserman, L. H. and Franz, O. G. and McDonald, S. W. and Person, M. J. and Olkin, C. B. and Dunham, E. W. and Spencer, J. R. and Stansberry, J. A. and Buie, M. W.}, + journal = {Nature}, + pages = {765-767}, + title = {Global Warming on Triton}, + volume = {393}, + year = {1998} +} + +@article{Mayo:95, + author = {Mayor, M. and Queloz, D.}, + journal = {Nature}, + pages = {355-359}, + title = {A {Jupiter-mass} companion to a solar-type star}, + volume = {378}, + year = {1995} +} + +@article{Butl:96, + author = {Butler, P. and Marcy, G.}, + journal = {Ap.J. Letters}, + pages = {L153-L156}, + title = {A Planet orbiting 47 {Uma}}, + volume = {464}, + year = {1996} +} + +@phdthesis{Gurw:96, + author = {Gurwell, M. A.}, + school = {California institute of technology}, + title = {Planetary atmospheres: probing structure through millimeterwave observations of carbon monoxide.}, + year = {1996} +} + +@misc{Jego:98, + author = {Jegou, F.}, + howpublished = {Rapport de stage de DEA, Universit{\'e} Paris 6}, + title = { {Effets des mar\`ees atmosph\'eriques sur la circulation + de la moyenne atmosph\`ere martienne}}, + year = {1998} +} + +@article{From:68, + author = {From , J. E.}, + journal = jcp, + pages = {176-189}, + title = {A method for reducing dispersion in convective difference schemes}, + volume = {3}, + year = {1968} +} + +@article{Hosk:81, + author = {Hoskins, B.J. and Karoly, D. J.}, + journal = jas, + pages = {1179-1196}, + title = {The steady linear response of a spherical atmosphere to thermal and orographic forcing}, + volume = {38}, + year = {1981} +} + +@article{MacV:83, + author = {MacVean, M. K.}, + howpublished = qjrms, + journal = qjrms, + pages = {771-783}, + title = {The effect of horizontal diffusion on baroclinic development in a spectral model}, + volume = {38}, + year = {1983} +} + +@article{Cole:84, + author = {Colella , P. and Woodward , P. R.}, + journal = jcp, + pages = {174--201}, + title = {The Piecewise parabolic method ({PPM}) for gaz-dynamical simulations}, + volume = {54}, + year = {1984} +} + +@misc{Gree:94b, + author = {Greeley, R. and Blumberg, D. G. and Williams, S. H.}, + howpublished = {Abstract of the workshop on Reponse of Eolian Processes to Global changes, Desert research Institute}, + title = {Field measurements of active windblown sand}, + year = {1994} +} + +@article{Shao:93, + author = {Shao, Y. and Raupach, M. R. and Findlater , P. A.}, + journal = jgr, + pages = {12719-12726}, + title = {Effect of saltation bombardment on the entrainment of dust by wind}, + volume = {98}, + year = {1993} +} + +@article{Mart:95lisa, + author = {Marticorena, N. and Bergametti, G.}, + journal = jgr, + pages = {16,415-16,430}, + title = {Modeling the atmospheric dust cycle: design of a soil-derived emission scheme}, + volume = {102}, + year = {1995} +} + +@inproceedings{Muhl:93, + author = {Muhleman, D. O. and Clancy, R. T.}, + booktitle = {Atmospheric remote sensing by microwave radiometry}, + chapter = {9}, + editor = {Janssen, M. A.}, + pages = {497-533}, + title = {Retrieval of atmospheric parameters in planetary atmospheres from microwave spectroscopy}, + year = {1993} +} + +@article{Lell:91b, + author = {Lellouch, E. and Paubert, G. and Encrenaz, T.}, + howpublished = pss, + journal = pss, + pages = {219-224}, + title = {Mapping of {CO} millimeter-wave lines in {Mars}'atmosphere: the spatial variability of carbon monoxide on Mars.}, + volume = {39}, + year = {1991} +} + +@article{Elli:97, + author = {Elliot, J. L. and Stansberry , J. A. and Olkin, C. B. and Agner , M. A. and Davies , M. E.}, + journal = {Science}, + pages = {436-439}, + title = {Triton's distorted atmosphere}, + volume = {278}, + year = {1997} +} + +@article{Olki:97, + author = {Olkin, C. B. \protect{et al.}}, + journal = {Icarus}, + pages = {178-201}, + title = {The thermal structure of triton's atmosphere: {Results from the 1993 and 1995 occultations}}, + volume = {129}, + year = {1997} +} + +@article{Bill:98, + author = {Billebaud, F. and Rosenqvist , J. and Lellouch , E. and Maillard , J.-P. and Encrenaz , T. and Hourdin , F.}, + journal = {Planetary and Space Sciences, accepted for publication}, + title = {Observations of $CO$ in the atmosphere of {Mars} in the (2-0) vibrational band at 2.35 microns}, + year = {1998} +} + +@article{Bill:98b, + author = {Billebaud , F. and Rosenqvist , J. and Hourdin F.}, + journal = aa, + title = {Observations of CO in the atmosphere of Mars in the (2-0) vibrational band at 2.35 microns}, + year = {1998} +} + +@misc{Defr:00, + author = { Defraigne , P. and de Viron , O. and Dehant , V. and Van Hoolst , T. and Hourdin , F.}, + howpublished = {JGR}, + title = {Mars atmospheric rotation induced by atmospheric CO2 and winds}, + year = {2000} +} + +@misc{Hech:97, + author = {Hechler, M.}, + howpublished = {M.A.S. working paper n$^o$398b}, + title = {{Mars Express} mission analysis: proposed orbits}, + year = {1997} +} + +@article{Owen:79, + author = {Owen, T. and Cess, R. D. and Ramanathan , V.}, + journal = {Nature}, + pages = {640-642}, + title = {Early {Earth: An enhanced carbon dioxide greenhouse to compensate for reduced solar luminocity}}, + volume = {277}, + year = {1979} +} + +@article{Toub:95, + author = {Toublanc , D. and Parisot , J. P. and Brillet , J. and Gautier , D. and Raulin , F. and McKay , C. P.}, + journal = {Icarus}, + pages = {2-26}, + title = {Photochemical modelling of {Titan's} atmosphere}, + volume = {113}, + year = {1995} +} + +@article{Forg:98grl, + author = {Forget, F.}, + journal = grl, + pages = {1105-1109}, + title = {Improved optical properties of the {Martian} atmospheric dust for radiative transfer calculations in the infrared}, + volume = {25}, + year = {1998} +} + +@article{Forg:97, + author = {Forget, F. and Pierrehumbert, R. T.}, + journal = {Science}, + pages = {1273-1276}, + title = {Warming early {Mars} with carbon dioxide clouds that scatter infrared radiation}, + volume = {278}, + year = {1997} +} + +@article{Carr:95, + author = {Carr, M. H.}, + journal = jgr, + pages = {7479-7505}, + title = {The {Martian} drainage system and the origin of valley networks and fretted channels}, + volume = {100}, + year = {1995} +} + +@article{Ghil:97, + author = {Ghil , M. and Ide , K. and Benett , A. and Courtier , P. and Kimoto , M. and Nagata , M. and Saiki , M. and Sato , M.}, + journal = jmsj, + pages = {111--196}, + title = {Data assimilation in Meteorology and Oceanography : Theory and Practice}, + volume = {75}, + year = {1997} +} + +@article{Carr:97, + author = {Carr, M. H. and Chuang, F. C.}, + journal = jgr, + pages = {9145-9152}, + title = {Martian drainage densities}, + volume = {102}, + year = {1997} +} + +@article{Tala:97, + author = {Talagrand , O.}, + journal = jmsj, + pages = {191-209}, + title = {Assimilation of Observations : An introduction}, + volume = {75}, + year = {1997} +} + +@misc{Stan:95, + author = {Stansberry, J. A. and Haberle, R. M. and McKay, C. P.}, + howpublished = {Paper presented at the 27th Annual Meeting of the Division for Planetary Science of the AAS, Hawaii, October 9, 1995}, + year = {1995} +} + +@article{Step:90, + author = {Stephens , G. L. and Tsay, S-C and Stackhouse , P. W. and Flatau , P. J.}, + journal = jas, + pages = {1742-1753}, + title = {The relevance of the Microphysical and radiative properties of cirrus clouds to climate and climatic feedback}, + volume = {47}, + year = {1990} +} + +@article{Wood:96, + author = {Wood, S. E. and Richardson, M. I. and Paige , D. A.}, + journal = baas, + pages = {1065}, + title = {A microphysical model of {CO$_2$} snow on {Mars}}, + volume = {28}, + year = {1996} +} + +@article{Jens:94, + author = {Jensen, E. J. and Kinne, S. and Toon, O. B.}, + journal = grl, + pages = {2023-2026}, + title = {Tropical cirrus cloud radiative forcing: Sensitivity studies}, + volume = {21}, + year = {1994} +} + +@article{Samu:67, + author = {Samuelson, R. E.}, + journal = {Astrophys. J.}, + pages = {782-798}, + title = {Greenhouse effect in semi-infinite atmospheres: {Application} to {Venus}}, + volume = {147}, + year = {1967} +} + +@article{Saga:97, + author = {Sagan, C. and Chyba, C.}, + journal = {Science}, + pages = {1217-1221}, + title = {The early faint young sun paradox: organic shielding of ultraviolet-labile greenhouse gases}, + volume = {276}, + year = {1997} +} + +@article{Kast:97, + author = {Kasting, J. F.}, + journal = {Science}, + pages = {1213-1215}, + title = {Warming early earth and mars}, + volume = {276}, + year = {1997} +} + +@article{Cald:92, + author = {Cadeira, K. and Kasting, J. F}, + journal = {Nature}, + pages = {226-228}, + title = {Susceptibility of the early Earth to irreversible glaciation caused by carbon dioxide clouds}, + volume = {359}, + year = {1992} +} + +@article{Doug:93, + author = {Douglass , A. and Rood , R. and Waters , J. and Froidevaux , L. and Read , W. and Elson , L. and Geller , M. and Chi , Y. and Cerniglia , M. and Steenrod , S.}, + journal = grl, + pages = {1271-1274}, + title = {A {3D} simulation of the early winter distribution of reactive chlorine in the north polar vortex}, + volume = {20}, + year = {1993} +} + +@article{Murp:95, + author = {Murphy, J.R. and Pollack, J. B. and Haberle, R. M. and Leovy , C. B. and Toon, O. B. and Schaeffer, J.}, + journal = jgr, + pages = {26357-26376}, + title = {Three-dimensional numerical simulation of {Martian} global dust storms}, + volume = {100}, + year = {1995} +} + +@article{Alle:91, + author = {Allen , Dale J. and Douglass , Anne R. and Rood , Richard B. and Guthrie , Paul D.}, + journal = mwr, + pages = {2456--2464}, + title = {Application of a monotonic upstream-biased transport scheme to three dimensional constituent transport calculations}, + volume = {119}, + year = {1991} +} + +@article{Will:89, + author = {Williamson , David and Rasch , Philip J.}, + journal = mwr, + pages = {102--127}, + title = {Two Dimensional Semi-Lagrangian Transport with shape-preserving interpolation}, + volume = {117}, + year = {1989} +} + +@article{Lin:96, + author = {Lin , Shian-Jiann and Rood, R. B.}, + journal = mwr, + pages = {2046--2070}, + title = {Multi-Dimensional Flux Form Semi-Lagrangian Transport Schemes}, + volume = {124}, + year = {1996} +} + +@article{Godu:59, + author = {Godunov , S. K.}, + journal = {Math. Sb.}, + pages = {271-290}, + title = {Finite-Difference Methods for the numerical computations of equations of gas dynamics}, + volume = {7}, + year = {1959} +} + +@article{Rood:87, + author = {Rood , Richard B.}, + journal = rg, + pages = {71-100}, + title = {Numerical advection algorithms and their role in atmospheric transport and chemistry models}, + volume = {25}, + year = {1987} +} + +@article{Wils:97, + author = {Wilson, R. J.}, + journal = grl, + pages = {123-126}, + title = {A general circulation model of the {Martian} polar warming}, + volume = {24}, + year = {1997} +} + +@article{Spra:96, + author = {Sprague, A. L. and Hunten, D. M. and Hill, R. E. and Risk, B. and Wells, W. K.}, + journal = jgr, + pages = {23,229-23,241}, + title = {Martian water vapor, 1988-1995}, + volume = {101}, + year = {`1996} +} + +@inproceedings{Poll:93msatt, + author = {Pollack, J. B. and Forget F. and Haberle , R.M. and Schaeffer , J. and Lee , H.}, + address = {Lunar and Planetary Institute, Houston}, + booktitle = {Mars: past, present and future.{Results from the MSATT program}}, + journal = {LPI}, + pages = {43}, + series = {{LPI} Technical report}, + title = {Controls on the {CO_2} seasonal cycle}, + volume = {43P}, + year = {1993} +} + +@article{Edou:96, + author = {Edouard , S. and Legras , B. and Lef\`evre , F. and Eymard , R.}, + journal = {Nature}, + title = {The effect of small-scale inhomogeneities on ozone depletion in the {Artic}}, + volume = {384}, + year = {1996} +} + +@article{Edou:96a, + author = {Edouard , S. and Legras , B. and Zeitlin , V.}, + journal = jgr, + number = {D11}, + pages = {16771-16779}, + title = {The effect of dynamical mixing in a simple model of the ozone hole}, + volume = {101}, + year = {1996} +} + +@article{Kast:93, + author = {Kasting, J.F. and Whitmire , D. P. and Reynolds, R. T.}, + journal = {Icarus}, + pages = {108-128}, + title = {Habitable zones around main sequence stars}, + volume = {101}, + year = {1993} +} + +@book{Doyl:96, + address = {Menlo Park, California}, + editor = {Doyle, L. R.}, + publisher = {Travis House Pulications}, + title = {Circumstellar Habitable Zone}, + year = {1996} +} + +@article{Josh:97, + author = {Joshi, M. M. and Haberle, R. M. and Reynolds, R. T.}, + journal = {Icarus}, + pages = {450-465}, + title = {Simulations of the atmospheres of synchronously rotating terrestrial planets orbiting {M} dwarfs: conditions for atmospheric collapse and the implications for habitability}, + volume = {129}, + year = {1997} +} + +@article{Will:97a, + author = {Williams, D. M. and Kasting, J. F.}, + journal = {Icarus}, + pages = {254-267}, + title = {Habitable planets with high obliquities}, + volume = {129}, + year = {1997} +} + +@article{Will:97b, + author = {Williams, D. M. and Kasting, J. F. and Wade, R. A.}, + journal = {Nature}, + pages = {234-236}, + title = {Habitable moons around extrasolar planets}, + volume = {385}, + year = {1997} +} + +@article{Gera:88, + author = {Gerard, J. C. and Francois, L. M.}, + journal = {Annales Geophysicae}, + pages = {101-112}, + title = {A sensitivity study of the effects of solar luminosity changes on the Earth's global temperature}, + volume = {6}, + year = {1988} +} + +@article{Brac:93, + author = {Brack, A.}, + journal = {Orig. of Life}, + pages = {23}, + volume = {3-10}, + title = {Liquid water and the origin of life}, + year = {1993} +} + +@inproceedings{Saga:96, + author = {Sagan, C.}, + booktitle = {Circumstellar Habitable Zones}, + chapter = {1}, + editor = {Doyle, L. R.}, + pages = {3-14}, + title = {Circumstellar habitable zones: an introduction}, + year = {1996} +} + +@inproceedings{Whit:96, + author = {Whitmire, D. P. and Reynolds, R. T.}, + booktitle = {Circumstellar Habitable Zones}, + editor = {Doyle, L. R.}, + pages = {117-142}, + title = {Circumstellar habitable zones: Astronomical considerations}, + year = {1996} +} + +@article{Dona:82, + author = {Donahue, T. M. and Hoffman, J. H. and Hodges, R. R. and Watson, A. J.}, + journal = {Science}, + pages = {630-633}, + title = {Venus was wet: a measurement of the ratio of deuterium to hydrogen}, + volume = {216}, + year = {1982} +} + +@article{Grin:93, + author = {Grinspoon, D. H.}, + journal = {Nature}, + pages = {428-431}, + title = {Implications of the high {D/H} ratio for the sources of water in Venus' atmosphere}, + volume = {363}, + year = {1993} +} + +@article{Elli:96, + author = {Elliot , J. L. and Stansberry, J. A. and Olkin, C. B.}, + journal = baas, + pages = {1079}, + title = {Triton's distorted atmosphere}, + volume = {28}, + year = {1996} +} + +@article{Stan:96, + author = {Stansberry , J. A. and Elliot, J. L. and Olkin, C. B.}, + journal = baas, + pages = {1079}, + title = {Strong zonal winds in {Triton's (and Pluto's?)} middle atmosphere}, + volume = {28}, + year = {1996} +} + +@inproceedings{Harr:84, + author = {Harris, A. W.}, + booktitle = {{Uranus and Neptune}}, + editor = {Bergstralh, J. T.}, + organization = {NASA CP-2330}, + pages = {357-376}, + title = {Physical properties of {Neptune and Triton} inferred from the orbit of {Triton}}, + year = {1984} +} + +@inproceedings{Yell:95, + author = {Yelle, R. V. and Lunine, J. I. and Pollack, J. B. and Brown, R. H.}, + booktitle = {Neptune and {Triton}}, + editor = {Cruikshank, D. P.}, + pages = {1031-1105}, + publisher = {The university of {Arizona} press}, + title = {Lower atmospheric structure and surface-atmosphere interactions on {Triton}}, + year = {1995} +} + +@inproceedings{Gurr:92, + author = {Gurrola, E. M. and Marouf, E. A. and Eshleman, V. R. and Tyler, G. L. and Rosen, P. A.}, + booktitle = {Neptune and {Triton}, Abstract book}, + pages = {28}, + publisher = {The university of {Arizona} press}, + title = {Analysis of {Voyager} radio occultation observations of {Triton}}, + year = {1992} +} + +@article{Caba:92, + author = {Cabane , M. and Chassefi\`ere , E. and Israel , G.}, + journal = {Icarus}, + pages = {176-189}, + title = {Formation and growth of photochemical aerosols in {Titan's} atmosphere}, + volume = {96}, + year = {1992} +} + +@article{Caba:93, + author = {Cabane , M. and Rannou , P. and Chassefi\`ere , E. and Israel , G.}, + journal = pss, + pages = {257-267}, + title = {Fractal aggregates in {Titan's} atmosphere}, + volume = {41}, + year = {1993} +} + +@article{Caba:94, + author = {Cabane , M. and Chassefi\`ere , E.}, + journal = pss, + pages = {47-65}, + title = {Laboratory simulations of {Titan's} atmosphere}, + volume = {43}, + year = {1994} +} + +@article{Bote:95, + author = {Botet, R. and Rannou , P. and Cabane , M.}, + journal = {J. Physics A}, + pages = {297-316}, + title = {Sensitivity of some optical properties of fractals to the cut-off functions}, + volume = {28}, + year = {1995} +} + +@article{Bote:97, + author = {Botet , R. and Rannou , P. and Cabane , M.}, + journal = {Applied Optics, in press}, + title = {Mean field scattering aproximation of {Mie} scattering by fractal aggregates of identical spheres}, + year = {1997} +} + +@article{Leva:97, + author = {Levasseur-Regourd , A.-C. and Cabane , M. and Worms , J. C. and Haudebourg, V.}, + journal = {Advances in Space Research, in press}, + title = {Physical properties of dust in the Solar System: relevance of a computational approach and of measurements under microgravity conditions}, + year = {1997} +} + +@article{Rann:93, + author = {Rannou , P. and Cabane , M. and Chassefi\`ere , E.}, + journal = grl, + pages = {967-970}, + title = {Growth of aerosols in {Titan's} atmosphere and related time scales : a stochastic approach}, + volume = {20}, + year = {1993} +} + +@article{Rann:97, + author = {Rannou , P. and Cabane , M. and Botet , R. and Chassefi\`ere , E.}, + journal = jgr, + pages = {10997-11013}, + title = {A new interpretation of scattered light at {Titan's} limb}, + volume = {102}, + year = {1997} +} + +@article{Rann:97b, + author = {Rannou , P. and McKay , C. P. and Botet , R. and Cabane , M.}, + journal = {to be submitted to Applied Optics}, + title = {A Semi-empirical model of absorption and scattering by isotropic fractal aggregates of spheres}, + year = {1997} +} + +@article{Rann:95, + author = {Rannou , P. and Cabane , M. and Chassefi\`ere , E. and Botet , R. and McKay , C. P. and Courtin , R.}, + journal = {Icarus}, + pages = {355-372}, + title = {Titan's geometric albedo : Role of the fractal structure of the aerosols}, + volume = {96}, + year = {1995} +} + +@article{Forg:96egs, + author = {Forget , F. and Hourdin, F. and Talagrand, O.}, + journal = {Ann. Geophys.}, + pages = {C797}, + title = {Simulation of the {Martian} atmospheric polar warming with the {LMD} general circulation model}, + volume = {14}, + year = {1996} +} + +@article{Forg:96dps, + author = {Forget, F. and Hourdin, F. and Fournier, R. and Talagrand, O.}, + journal = baas, + note = {Oral presentation for the 28th DPS meeting, Tucson, Arizona}, + pages = {1066}, + title = {Simulation of the {Martian} polar climate withe the {LMD} General Circulation model: {CO$_2$ snow} falls and upper atmosphere polar warming}, + volume = {28}, + year = {1996} +} + +@misc{Ono:96, + author = {Ono , A.M. and Paige , D. A.}, + journal = baas, + pages = {1060}, + title = { + IRTM observations of {Martian} South Polar Frosts +}, + volume = {28}, + year = {1996} +} + +@misc{Forg:96gcm, + author = {Forget, F.}, + howpublished = {Présentation invitée au ``Mars GCM intercomparison workshop''}, + note = {Oxford, juillet 1996}, + title = {Intercomparison of {GCM} simulations at winter solstice with dust storm conditions}, + year = {1996} +} + +@mastersthesis{Meno:95, + author = {Menou , Kristen}, + school = {DEA d'astrophysique et t\'echniques spatiales, {PARIS-7}}, + title = {D\'eveloppement d'un code de transfert radiatif de l'atmosph\`ere de V\'enus}, + year = {1995} +} + +@mastersthesis{DeVa:96, + author = {De Vaulgrenant , Guyonne}, + school = {DEA d'océanographie, m\'et\'eorologie et environnement {(PARIS-VI)}}, + title = {Pr\'eparation de l'assimilation des observations des futures missions martiennes}, + year = {1996} +} + +@article{Cher:96, + author = {Cherkaoui, M. and Dufresne, J.L. and Fournier, R. and Grandpeix, J.Y. and Lahellec, A.}, + journal = {ASME Journal of Heat Transfer}, + pages = {401--407}, + title = {Monte-Carlo Simulation of Radiation in Gases with a Narrow-Band Model and a Net-Exchange Formulation}, + volume = {118}, + year = {1996} +} + +@article{Lope:95, + author = {Lopez-Puertas, M. and Lopez-Valverde , M.A.}, + journal = {Icarus}, + pages = {113-129}, + title = {Radiative energy balance of {CO$_2$} non-{LTE} infrared emissions in the {Martian} atmosphere}, + volume = {114}, + year = {1995} +} + +@article{Thom:79cap, + author = {Thomas, P. and Veverka, J. and Campos-Marquetti , R.}, + journal = jgr, + pages = {4621-4633}, + title = {Frost streaks in the south polar cap of {Mars}}, + volume = {84}, + year = {1979} +} + +@article{Jous:90, + author = {Joussaume , S.}, + journal = jgr, + pages = {1909-1941}, + title = {Three-dimensional simulations od the atmospheric cycle of desert dust particles using a general circulation model}, + volume = {95}, + year = {1990} +} + +@inproceedings{Slin:83, + author = {Slinn, W. G. N.}, + booktitle = {Air -sea exchange of gases and particles}, + editor = {Liss, P.S. and Slinn, W. G. N.}, + pages = {299-405}, + publisher = {D. Reidel Publishing Company}, + title = {Air to sea transfer of particles}, + year = {1983} +} + +@article{Haya:95, + author = {Hayashi, J. N. and Jakosky, B. M. and Haberle , R. M.}, + journal = jgr, + pages = {5277-5284}, + title = {Atmospheric effects on the mapping of {Martian} thermal inertia and thermally derived albedo}, + volume = {100}, + year = {1995} +} + +@book{DeVa:54, + author = {De Vaucouleurs , G.}, + publisher = {Faber and Faber, London}, + title = {Physics of the planet {Mars}}, + year = {1954} +} + +@misc{Airl:76, + author = {Air-liquide}, + note = {Elsevier publication}, + title = {Encyclopédie des gaz}, + year = {1976} +} + +@article{Kast:91, + author = {Kasting, J. F.}, + journal = {Icarus}, + pages = {1-13}, + title = {{CO$_2$} condensation and the early climate of {Mars}}, + volume = {94}, + year = {1991} +} + +@inproceedings{Kast:91book, + author = {Kasting, J. F. and Grinspoon, M. S.}, + booktitle = {The sun in time}, + editor = {Sonett, C.P. and Grinspoon, M.S. and Matthews, M.S.}, + pages = {447-462}, + title = {The faint young sun problem}, + year = {1991} +} + +@article{Kast:88, + author = {Kasting, J. F.}, + journal = {Icarus}, + pages = {472-494}, + title = {Runaway and moist greenhouse atmosphere and the evolution of {Earth} and {Venus}}, + volume = {74}, + year = {1988} +} + +@article{Jako:97, + author = {Jakosky, B. M. and Jones , J. H.}, + journal = {Review of Geophysics}, + pages = {1 -16}, + title = {The history of {Martian} volatiles}, + volume = {35}, + year = {1997} +} + +@article{Sell:69, + author = {Sellers, W.D.}, + journal = jam, + pages = {392-400}, + title = {A climate model based on the energy balance of the {Earth}-atmosphere system}, + volume = {8}, + year = {1969} +} + +@article{Gera:92, + author = {Gerard, J.-C. and Hauglustaine , D. A. and Francois, L. M.}, + journal = {Paleogeogr., Paleoclimatol., Paleoecol.}, + pages = {133-150}, + title = {The faint young sun climatic paradox: a simulation with an interactive seasonal climate-sea ice model}, + volume = {97}, + year = {1992} +} + +@article{Long:97, + author = {Longdoz, B. and Francois, L. M.}, + journal = {Global and Planetary change}, + pages = {97-112}, + title = {The faint young sun paradox: influence of the continental configuration and of the seasonal cycle on the climatic stability}, + volume = {14}, + year = {1997} +} + +@article{Walk:81, + author = {Walker, J. C. G. and Hays, P. B. and Kasting, J. F.}, + howpublished = jgr, + journal = jgr, + pages = {9776-9782}, + title = {A negative feedback mechanism for the long term stabilization of the Earth's surface temperature.}, + volume = {86}, + year = {1981} +} + +@inproceedings{Fran:93, + author = {Francois, L. M. and Walker, J. C. G. and Opdyke, B. N.}, + booktitle = {Evolution of the Earth and Planets}, + editor = {Takahashi, E. and Jeanloz, R. and Dubie, D.}, + pages = {143-159}, + publisher = {IUGG}, + title = {The history of global weathering and the chemical evolution of the ocean-atmosphere system}, + volume = {14}, + year = {1993} +} + +@article{Hoff:98, + author = {Hoffman, P. F. and Kaufman, A. J. and Halverson, G. P. and Schrag, D. P.}, + journal = {Science}, + pages = {1342-1346}, + title = {A neoproterozoic snowball {Earth}}, + volume = {281}, + year = {1998} +} + +@article{Chyb:97, + author = {Chyba, C. F.}, + journal = {Nature}, + pages = {201}, + title = {Life on other moons}, + volume = {385}, + year = {1997} +} + +@article{Carr:98, + author = {Carr, M. H. and {21 co-authors}}, + journal = {Nature}, + pages = {363-365}, + title = {Evidence for aubsurface ocean on {Europa}}, + volume = {391}, + year = {1998} +} + +@article{Scho:93, + author = {Schopf, J. W.}, + journal = {Science}, + pages = {640-646}, + title = {Microfossils of the early archean apex chert: new evidence of the antiquity of life}, + volume = {260}, + year = {1993} +} + +@article{Mojz:96, + author = {Mojzsis, S. J. and Arrhenius, G. and McKeegan, K, D. and Harrison, T. M. and Nutman, A. P. and Friend, C. R. L.}, + journal = {Nature}, + pages = {55-59}, + title = {Evidence for life on Earth before 3,800 million years ago}, + volume = {384}, + year = {1996} +} + +@article{Goug:81, + author = {Gough, D. O.}, + journal = {Solar Phys.}, + pages = {21-34}, + title = {Solar interior structure and luminosity variations}, + volume = {74}, + year = {1981} +} + +@article{Whit:95, + author = {Whitmire, D. P. and Doyle, L. R. and Reynolds, R. T. and Matese, J.J.}, + journal = jgr, + pages = {5457-5464}, + title = {A slightly more massive young sun as an explanation for warm temperature on early {Mars}}, + volume = {100}, + year = {1995} +} + +@article{Habe:94, + author = {Haberle, R.M. and Tyler, D. and McKay, C.P. and Davis, W. L.}, + journal = {Icarus}, + pages = {102-120}, + title = {A model for the evolution of {CO$_2$ on Mars}}, + volume = {109}, + year = {1994} +} + +@article{Kass:95, + author = {Kass, D. M. and Yung , Y. L.}, + journal = {Science}, + pages = {697-699}, + title = {Loss of atmoshere from {Mars} due to solar wind-induced sputtering}, + volume = {268}, + year = {1995} +} + +@article{Luhm:92, + author = {Luhman, J. G. and Johnson, R. E. and Zhang, H. G.}, + howpublished = grl, + journal = grl, + pages = {2151-2154}, + title = {Evolutionary impact of sputerring of the {Martian} atmosphere by {O$^+$} pickup ions}, + volume = {19}, + year = {1992} +} + +@misc{John:96, + author = {Johnson, R.E. and Schnellenberger, D. and Liu, M.}, + howpublished = {Abstract for the ``Workshop on evolution of {Martian} volatiles'', LPI, Houston}, + title = {Sputtering of the atmosphere of {Mars}}, + year = {1996} +} + +@article{Poll:87, + author = {Pollack, J. B. and Kasting, J. F. and Richardson, S. M. and Poliakoff , K.}, + journal = {Icarus}, + pages = {203-224}, + title = {The case for a wet, warm climate on early {Mars}}, + volume = {71}, + year = {1987} +} + +@article{Kast:86, + author = {Kasting J. H. and Ackerman , T. P.}, + journal = {Science}, + pages = {1383-1385}, + title = {Climatic consequences of very high carbon dioxide levels in the earth's early atmosphere}, + volume = {234}, + year = {1986} +} + +@article{Chap:77, + author = {Chapman, C. R. and Jones, K. L.}, + journal = aereps, + pages = {515-540}, + title = {Cratering and obliteration history of {Mars}}, + volume = {5}, + year = {1977} +} + +@article{Tito:95, + author = {Titov , D.V. and Rosenqvist , J. and Moroz, V. I. and Grigoriev , A. V. and Arnold, G.}, + journal = asr, + pages = {23-33}, + title = {Evidences of the regolith-atmosphere water exchange on {Mars} from the {ISM (Phobos2)} infrared spectrometer observations}, + volume = {16-6}, + year = {1995} +} + +@article{Yell:91, + author = {Yelle , R. V. and Lunine , J. I. and Hunten , D. M.}, + journal = {Icarus}, + pages = {347-358}, + title = {Energy balance and plume dynamics in {Triton's} lower atmosphere}, + volume = {89}, + year = {1991} +} + +@article{Ryan:79, + author = {Ryan , J. A. and Henry, R. M.}, + journal = jgr, + pages = {2821-2829}, + title = {Mars atmospheric phenomena during major dust storms as measured at surface}, + volume = {84}, + year = {1979} +} + +@article{Thom:85, + author = {Thomas, P.C. and Gierasch , P. J.}, + journal = {Science}, + pages = {175-177}, + title = {Dust devils on {Mars}}, + volume = {230}, + year = {1985} +} + +@article{Josh:95b, + author = {Joshi , M. M. and Lawrence , B. N. and Lewis , S. R.}, + journal = jgr, + pages = {21235-21245}, + title = {Gravity wave dragin {3D} atmospheric models of {Mars}}, + volume = {100}, + year = {1995} +} + +@article{Forg:96spitz, + author = {Forget, F. and Donzé , F. and Lahaye, G.}, + journal = {La montagne \& Alpinisme}, + pages = {38-41}, + title = {Spitzberg: {le rêve polaire}}, + volume = {183}, + year = {1996} +} + +@article{Holl:96nat, +author = {Hollingsworth , J. L. and Haberle, R. M. and Barnes, J.R. and Bridger, a. f. c. and Pollack, J. B. and Lee, H. and Schaeffer, J.}, +journal = {Nature}, +pages = {413-416}, +title = {Orographic control of storm zones on Mars}, +volume = {380}, +year = {1996} +} + +@article{Holl:96, +author = {Hollingsworth, J. L. and Barnes, J. R.}, +journal = jas, +pages = {428-448}, +title = {Forced stationary waves in {Mars}' winter atmosphere}, +volume = {53}, +year = {1996} +} + +@article{Conr:81, +author = {Conrath , B. J.}, +journal = {Icarus}, +pages = {246-255}, +title = {Planetary-scale wave structure in the {Martian} atmosphere}, +volume = {48}, +year = {1981} +} + +@article{Banf:96, +author = {Banfield, D. and Toigo, A. D. and Ingersoll , A. P.}, +journal = {Icarus}, +pages = {130-143}, +title = {Martian weather correlation length scales}, +volume = {119}, +year = {1996} +} + +@article{Barn:96, +author = {Barnes, J. R. and Haberle, R. M. and Pollack , J. B. and Lee, H. and Schaeffer , J.}, +journal = jgr, +pages = {12753-12776}, +title = {{Mars} atmospheric dynamics as simulated by the {NASA Ames} general circulation model, 3, winter quasi-stationary eddies}, +volume = {101}, +year = {1996} +} + +@article{Lell:91, +author = {Lellouch, E and Rosenqvist, J. and Goldstein , J. J. and Bougher S. W. and Paubert , G.}, +journal = {Astrophys. J.}, +pages = {383}, +title = {First absolute wind measurements in the middle atmosphere of {Mars}}, +volume = {401-406}, +year = {1991} +} + +@article{Wils:96, +author = {Wilson, R. W. and Hamilton, K.}, +journal = jas, +pages = {1290-1326}, +title = {Comprehensive model simulation of thermal tides in the {Martian} atmosphere}, +volume = {53}, +year = {1996} +} + +@article{Sant:95, +author = {Santee, M. L. and Crisp , D.}, +journal = jgr, +pages = {5465-5484}, +title = {Diagnostic calculations of then circulation in the {Martian} atmosphere}, +volume = {100}, +year = {1995} +} + +@article{Gree:93, +author = {Greeley , R. and Skypeck , A. and Pollack , J. B.}, +journal = jgr, +pages = {3183-3196}, +title = {Martian aeolian features and deposits: comparisons with general circulation model results}, +volume = {98}, +year = {1993} +} + +@article{Thom:84, +author = {Thomas , P. J. and Veverka , J. and Gineris , D. and Wong , L.}, +journal = {Icarus}, +pages = {161-179}, +title = {{``Dust streaks on Mars}}, +volume = {60}, +year = {1984} +} + +@article{Coll:97, +author = {Collins, M. and Lewis, S.R. and Read , P. L.}, +howpublished = {Submitted to {\it Advances in Space Research} for the 32th COSPAR Scientific Assembly, Birmingham, UK}, +journal = asr, +pages = {1395-1409}, +title = {Gravity wave drag in a global circulation model of the {Martian} atmosphere: parametrisation and validation}, +volume = {44}, +year = {1997} +} + +@article{Demi:86, +author = {Deming, D. and Mumma , M. J. and Espenal, F. and Kostiuk , T. and Zipoy , D.}, +journal = {Icarus}, +pages = {366-379}, +title = {Polar warming in the middle atmosphere of {Mars}}, +volume = {66}, +year = {1986} +} + +@article{Giff:64, +author = {Gifford JR. , F. A.}, +journal = {Icarus}, +pages = {130-135}, +title = {The {Martian} canals according to a purely aeolian hypothesis}, +volume = {3}, +year = {1964} +} + +@article{Chas:78, +author = {Chase , S.C. and Engel, J. L. and Eyerly , H. W. and Kieffer, H. H. and Palluconi , F. D. and Schofield, D.}, +journal = {App. Optics}, +pages = {1243-1251}, +title = {Viking infrared thermal mappers}, +volume = {17}, +year = {1978} +} + +@article{Hans:69, +author = {Hansen , J. E.}, +journal = jas, +pages = {478-487}, +title = {Exact and approximate solutions for multiple scaterring by cloudy and hazy planetary atmosphere}, +volume = {26}, +year = {1969} +} + +@article{Gree:71, +author = {Greenberg, J. M. and Wang , R. T. and Bangs, L.}, +journal = {Nature Phys. Sci}, +pages = {110-112}, +title = {Extinction by rough particles and the use of {Mie} theory}, +volume = {230}, +year = {1971} +} + +@article{Deir:64, +author = {Deirmendjian, D.}, +journal = {Applied Optics}, +key = {:}, +pages = {187-196}, +title = {Scattering and polarization properties of water clouds and hazes in the visible and infrared}, +volume = {3}, +year = {1964} +} + +@book{Deir:69, +author = {Deirmendjian , D.}, +publisher = {Elsevier}, +title = {Electromagnetic scaterring of spherical polydispersions}, +year = {1969} +} + +@article{Bohr:91, +author = {Bohren, C. F. and Singham , S. B.}, +journal = jgr, +pages = {5269-5277}, +title = {Backscattering by nonspherical particles: a review of methods and suggested new approaches}, +volume = {96}, +year = {1991} +} + +@article{Chyl:76, +author = {Ch\'{y}lek , P. G. and Grams , G. W. and Pinnick , R. G.\}, +journal = {Science}, +pages = {480-482}, +title = {Light scaterring by irregular randomly oriented particles}, +volume = {193}, +year = {1976} +} + +@book{Prup:78, +author = {Pruppacher, H. R. and Klett , J. D.}, +publisher = {D. Reidel}, +title = {Microphysics of clouds and precipitation}, +year = {1978} +} + +@article{Poll:80, +author = {Pollack , J. B. and Cuzzi , J. N.}, +journal = jas, +pages = {868-881}, +title = {Scaterring by nonspherical particles of size comparable to wavelength: a new semi-empirical theory and its application to trpospheric aerosol}, +volume = {37}, +year = {1980} +} + +@article{Helf:88, +author = {Helfand , H. M. and Labraga , J. C.}, +journal = jas, +pages = {113-132}, +title = {Design of a nonsingular level 2.5 second-order closure for the prediction of atmospheric turbulence}, +volume = {45}, +year = {1988} +} + +@article{Blac:62, +author = {Blackadar , A. K.}, +journal = jgr, +pages = {3095-3102}, +title = {The vertical distribution of wind and turbulent exchange in neutral atmosphere}, +volume = {67}, +year = {1962} +} + +@article{Galp:88, +author = {Galperin , B. A. and Kantha , L. H. and Hassid , S. and Rosati , A.}, +journal = jas, +pages = {55-62}, +title = {A quasi-equilibrium turbulent energy model for geophysical flows}, +volume = {45}, +year = {1988} +} + +@article{Rous:91, +author = {Roush, T. and Pollack , J. B. and Orenberg , J.}, +journal = {Icarus}, +pages = {191-208}, +title = {Derivation of midinfrared ({5-25~$\mu$m}) optical constants of some silicates and palagonite}, +volume = {94}, +year = {1991} +} + +@article{Rous:92, +author = {Roush, T. L. and Roush , E. A. and Singer , R. B. and Lucey , P. G.}, +journal = {Icarus}, +pages = {42-50}, +title = {Estimate of absolute flux and radiance factor of localized regions on {Mars} in the 2-4{$\mu$m} wavelength region}, +volume = {99}, +year = {1992} +} + +@article{Habe:90, +author = {Haberle, R.M. and Jakosky , B.M.}, +journal = jgr, +pages = {1423-1437}, +title = {Sublimation and transport of water from the north residual polar cap on Mars}, +volume = {95}, +year = {1990} +} + +@article{Ocke:97, +author = {Ockert-Bell, M. E. and Bell III, J. F. and McKay , C.P. +and Pollack , J.B. and Forget , F.}, +journal = jgr, +pages = {9039-9050}, +title = {Absorption and scattering properties of the {Martian} dust in the solar wavelengths}, +volume = {102}, +year = {1997} +} + +@techreport{Read:96, +author = {Read, P.L. and Collins , M. and Lewis , S.R. and Taylor , W. and Talagrand , O. and Forget , F. and Hourdin , F.}, +institution = {E.S.A.}, +title = {The {Martian} environment}, +year = {1996} +} + +@article{Read:97, +author = {Read, P. L. and Collins, M. and Forget, F. and Fournier, R. and Hourdin, F. and Lewis, S. R. and Talagrand, O. and Taylor, W. and Thomas, N. P. J.}, +journal = asr, +pages = {1267-1270}, +title = {A {GCM} climate database for Mars: for mission planning and for scientific studies.}, +volume = {19}, +year = {1997} +} + +@inproceedings{Forg:97blois, +author = { Forget, F. and Hourdin, F. and Hourdin, C. and Fournier, R. and Talagrand, O. and Collins, M. and Lewis, S. R. and Read, P. L. and Huot., J-P.}, +booktitle = {Planetary system, the long view}, +note = {IXth Blois meeting}, +publisher = {Diderot Editeurs}, +title = {A {Martian} climate database}, +year = {1997} +} + +@article{Forg:99, +author = { Forget, F. and Hourdin, F. and Fournier, R. and Hourdin, C. and Talagrand, O. and Collins, M. and Lewis, S. R. and Read, P. L. and Huot., J-P.}, +journal = jgr, +pages = {24,155-24,176}, +title = {Improved general circulation models of the {Martian} +atmosphere from the surface to above 80~km}, +volume = {104}, +year = {1999} +} + +@article{Lewi:99, +author = {Lewis, S. R. and Collins, M. and Read, P. L. and Forget, F. and Hourdin, F. and Fournier, R. and Hourdin, C. and Talagrand, O. and Huot., J-P.}, +journal = jgr, +pages = {24,177-24,194}, +title = {A Climate Database for {Mars}}, +volume = {104}, +year = {1999} +} + +@unpublished{Lewi:99jgr, +author = {Lewis, S. R. and Collins, M. and Read, P. L. and Forget, F. and Hourdin, F. and Fournier, R. and Hourdin, C. and Talagrand, O. and Huot., J-P.}, +note = {\protect{\it J. Geophys. Res.}, this issue}, +title = {A Climate Database for {Mars}}, +year = {1999} +} + +@article{Smit:96, +author = {Smith , D. E. and Zuber , M. T.}, +journal = {Science}, +pages = {184-188}, +title = {The shape of {Mars} and the topographic signature of the hemispheric dichotomy}, +volume = {271}, +year = {1996} +} + +@article{Wu:78, +author = {Wu , S. S. C.}, +journal = {Icarus}, +pages = {417-440}, +title = {Mars synthetic topographic mapping}, +volume = {33}, +year = {1978} +} + +@article{Pime:74, +author = {Pimentel, G.C. and Forney, P.B. and Herr, K.C.}, +journal = jgr, +pages = {1623-1634}, +title = {Evidence about hydrate and solid water in the {Martian} surface from the 1969 {Mariner} infrared spectrometer}, +volume = {79}, +year = {1974} +} + +@article{Rizk:95, +author = {Rizk, B. and Haberle , R. M. and Hunten , D.M. and Pollack , J. B.}, +journal = {Icarus}, +pages = {39-50}, +title = {Meridional transport and water reservoir in southern {Mars} during 1988-1989}, +volume = {118}, +year = {1995} +} + +@article{Chri:86, +author = {Christensen , P. R.}, +journal = {Icarus}, +pages = {217-238}, +title = {The spatial distribution of rocks on {Mars}}, +volume = {68}, +year = {1986} +} + +@article{Chri:82, +author = {Christensen, P. R.}, +journal = JGR, +pages = {9985-9998}, +title = {Martian dust mantling and surface composition: interpretation of the thermophysical properties}, +volume = {87}, +year = {1982} +} + +@article{Lott:97, +author = {Lott, F. and Miller, M.}, +journal = qjrms, +pages = {101-128}, +title = {A new sub-grid scale orographic drag parametrization: its formulation and testing.}, +volume = {123}, +year = {1997} +} + +@article{Palm:86, +author = {Palmer, T. N. and Shutts, G. J. and Swinbank, R.}, +journal = qjrms, +pages = {1001-1039}, +title = {Alleviation of a systematic westerly bias in general +circulation and numerical weather prediction models through an orographic gravity wave drag parametrisation}, +volume = {112}, +year = {1986} +} + +@article{Palm:82, +author = {Palmer, T. N.}, +journal = jas, +pages = {992-997}, +title = {Properties of the {Eliassen-Palm} flux for planetary scale motions}, +volume = {39}, +year = {1982} +} + +@article{Edmo, +author = {Edmon, H. J. and Hoskins, B. J. and McIntyre , M. E.}, +journal = jas, +pages = {2600-2616}, +title = {Eliassen-Palm cross sections for the troposphere}, +year = {1980} +} + +@book{Andr:87, +author = {Andrews, D. G. and Holton, J. R. and Leovy, C. B.}, +publisher = {Academic Press}, +title = {Middle Atmosphere Dynamics}, +year = {1987} +} + +@article{Jako:83b, +author = {Jakosky, B.M.}, +journal = {Icarus}, +pages = {1-18}, +title = {The role of sesaonal reservoirs in the {Mars} water cycle. {I.} {Seasonal} exchange of water with the regolith.}, +volume = {55}, +year = {1983} +} + +@book{Pano:84, +author = {Panofsky , Hans A. and Dutton , John A.}, +address = {New York}, +publisher = {John Wiley and Sons}, +title = {Atmospheric turbulence}, +year = {1984} +} + +@article{Jako:85, +author = {Jakosky, B. M.}, +journal = {Space Sci. Rev.}, +pages = {131-200}, +title = {The seasonal cycle of water on {Mars}}, +volume = {41}, +year = {1985} +} + +@article{Kras:91, +author = {Krasnopolsky , V. A. and Korablev, O. I. and Moroz , A. A. and Krysko , A. A. and Blamont , J. E. and Chassefiere , E.}, +journal = {Icarus}, +pages = {32-44}, +title = {Infrared solar occultation sounding of the {Martian} atmosphere by the {Phobos} spacecraft.}, +volume = {94}, +year = {1991} +} + +@article{Ryan:82, +author = {Ryan , J. A. and Sharman, R. D. and Lucich , R. D.}, +journal = jgr, +pages = {7279-7284}, +title = {Mars water vapor, near surface.}, +volume = {87}, +year = {1982} +} + +@article{Kahn:90, +author = {Kahn, R.}, +journal = jgr, +pages = {14,677-14,693}, +title = {Ice haze, snow, and the {Mars} water cycle.}, +volume = {95}, +year = {1990} +} + +@article{Kahn:95, +author = {Kahn, R.}, +journal = jgr, +pages = {5265-5275}, +title = {Temperature measurements of a {Martian} local dust storm}, +volume = {100}, +year = {1995} +} + +@article{Ryan:83, +author = {Ryan, J. A. and Lucich , R. D.}, +journal = jgr, +pages = {11005-11011}, +title = {Possible dust devils vortices on {Mars}}, +volume = {1983}, +year = {1983} +} + +@article{Mich:93, +author = {Michelangeli, D. V. and Toon , O. B. and Haberle , R. M. and Pollack , J. B.}, +journal = {Icarus}, +pages = {261-285}, +title = {Numerical simulations of the formation and evolution of water ice clouds in the {Martian} atmosphere.}, +volume = {100}, +year = {1993} +} + +@article{Curr:73, +author = {Curran , R. J. and Conrath , B. J. and Hanel , R. A. and Kunde , V. G. and Pearl , J. C.}, +journal = {Science}, +pages = {381-383}, +title = {Mars: {Mariner~9} spectroscopic evidence for {H$_2$O} ice clouds.}, +volume = {182}, +year = {1973} +} + +@article{Whit:79, +author = {White , B. R.}, +journal = jgr, +pages = {4643-4651}, +title = {Soil transport by winds on {Mars}}, +volume = {84}, +year = {1979} +} + +@article{Gree:80, +author = {Greeley , R. and Leach R. and White , B. and Iversen , J. and Pollack , J.}, +journal = grl, +pages = {121-124}, +title = {Threshold windspeeds for sands on {Mars}: wind tunnel simulations}, +volume = {7}, +year = {1980} +} + +@inproceedings{Whit:89, +author = {White , B. R. and Greeley , R.}, +booktitle = {MECA Workshop on dust on {Mars} {III}}, +editor = {Lee , S.}, +institution = {L.P.I.}, +number = {89-01}, +organization = {L.P.I Tech. Rept.}, +pages = {60-61}, +title = {Martian dust threshold measurements: simulation under heated surface conditions}, +year = {1989} +} + +@inproceedings{Gree:94, +author = {Greeley, R. and Lacchia , M. and White , B. and Leach, R. and Trilling , D. and Pollack , J.}, +booktitle = {{XXV Lunar Planet. Sci. Conf.}}, +pages = {467-468}, +title = {Dust on {Mars}: new values for wind threshold}, +year = {1994} +} + +@book{Wash:48, +author = {Washburn, E.W.}, +publisher = {New York: McGraw Hill}, +title = {International critical tables of numerical data,physics, chemistry, and technology, volume~3}, +year = {1948} +} + +@article{Arvi:83, +author = {Arvidson , R.E. and Guiness , E. A. and Moore , H.J. and Tillman , J. and Wall , S.D.}, +journal = {Science}, +pages = {463-468}, +title = {Three {Mars} years: {Viking Lander 1} imaging observations}, +volume = {222}, +year = {1983} +} + +@article{West:87, +author = {Westphal, D.L. and Toon , O. B. and Carlson , T. N.}, +journal = jgr, +pages = {3027-3049}, +title = {A two-dimensional numerical investigation of the dynamics and mycrophysics of saharian dust storms.}, +volume = {92}, +year = {1987} +} + +@article{Fana:82, +author = {Fanale , F. P. and Salvail , J.R. and Banerdt , W. B. and Saunders, R. S.}, +journal = {Icarus}, +pages = {381-407}, +title = {Mars: the regolith-atmosphere -cap system and climate change}, +volume = {50}, +year = {1982} +} + +@article{Must:94, +author = {Mustard , J. F. and Bell III , J. F.}, +journal = grl, +pages = {353-356}, +title = {New composite reflectance spectra of {Mars} from 0.4 to 3.14~{$\mu$m}.}, +volume = {21}, +year = {1994} +} + +@article{Must:93, +author = {Mustard , J. F. and Erard , S. and Bibring , J.P. and Head , J.W. and Hurtrez , S. and Langevin , Y. and Pieters , C. M. and Sotin , C. J.}, +journal = jgr, +pages = {3387-3400}, +title = {The surface of {Syrtis Major}: {Composition} of the volcanic substrate and mixing with altered dust and soil}, +volume = {98}, +year = {1993} +} + +@article{Bibr:89, +author = {Bibring, J. P. and Combes , M. and Langevin, Y. and Cara , C. and Drossart, P. and Encrenaz, T. and Erard, S. and Forni, O. and Gondet, B. and Ksanfomality, L.V. and Lellouch, E. and Masson, P.}, +journal = {Nature}, +pages = {591-592}, +title = {Results from the {ISM} experiments}, +volume = {341}, +year = {1989} +} + +@article{Ocke:94, +author = {Ockert-Bell, M.E. and Pollack , J. B. and Bell, J.F.}, +journal = baas, +pages = {1130}, +title = {Wavelength dependance of the radiative properties of {Martian} atmospheric dust}, +volume = {26}, +year = {1994} +} + +@article{Pang:77, +author = {Pang, K. and Ajello, J.M.}, +journal = {Icarus}, +pages = {63-74}, +title = {Complex refractive index of {Martian} dust: wavelength dependence and composition}, +volume = {30}, +year = {1977} +} + +@article{Pang:76, +author = {Pang, K. and Ajello , J. M. and Hord, C.W. and Egan, W. G.}, +journal = {Icarus}, +pages = {55-67}, +title = {Complex refractive index of {Martian} dust: {Mariner 9 ultraviolet observations}.}, +volume = {27}, +year = {1976} +} + +@article{Chyl:78, +author = {Ch\'{y}lek, P. and Grams, G. W.}, +journal = {Icarus}, +pages = {198-203}, +title = {Scaterring by nonspherical particles and optical properties of {Martian} dust.}, +volume = {36}, +year = {1978} +} + +@article{Ande:78, +author = {Anderson , E. and Leovy , C.}, +journal = jas, +pages = {723-734}, +title = {Mariner 9 television limb observations of dust and ice hazes on {Mars}}, +volume = {35}, +year = {1978} +} + +@article{Clan:90, +author = {Clancy , R. T. and Muhleman , D. O. and Berge , G. L.}, +journal = jgr, +pages = {14543-14554}, +title = {Global changes in the {0-70 km} thermal structure of the {Mars} atmosphere derived from 1975 to 1989 microwave {CO} spectra}, +volume = {95}, +year = {1990} +} + +@article{Jaqu:86, +author = {Jaquin , F. and Gierasch , P. and Kahn , R.}, +journal = {Icarus}, +pages = {442-461}, +title = {The vertical structure of limb hazes in the {Martian} atmosphere}, +volume = {68}, +year = {1986} +} + +@inproceedings{Hour:95intermarsnet, +author = {Hourdin , Fr\'ed\'eric and Talagrand , Olivier and Forget , Fran\c{c}ois and Fournier , Richard}, +booktitle = {International workshop on {INTERMARSNET}}, +note = {invited presentation}, +organization = {ESA /NASA and EGS}, +title = {Numerical simulation of the circulation of the {Martian} atmosphere in {Europe}}, +year = {1995} +} + +@inproceedings{Forg:95intermarsnet, +author = {Forget , Fran\c{c}ois and Hansen , G. B. and Pollack , J. B.}, +booktitle = {International workshop on {INTERMARSNET}}, +note = {oral presentation}, +organization = {ESA /NASA and EGS}, +title = {Condensation of the {Martian} {CO$_2$} polar caps}, +year = {1995} +} + +@inproceedings{Hour:93msatt, +author = {Hourdin , Fr\'ed\'eric and Forget , F. and Talagrand , O.}, +address = {Lunar and Planetary Institute, Houston}, +booktitle = {Workshop on atmospheric transport on {Mars} (MSATT meeting)}, +institution = {LPI}, +number = {93-05}, +pages = {16-17}, +series = {{LPI} Technical Report}, +title = {The annual pressure cycle on {Mars} : Results from the {LMD} {Martian} Atmospheric General Circulation Model}, +type = {Technical Report}, +year = {1993} +} + +@article{Hou:84, +author = {Hou, A. Y.}, +journal = jas, +pages = {3437-3455}, +title = {Axisymetric circulations forced by heat and momentum sources : a simple model applicable to the {Venus atmosphere}}, +volume = {41}, +year = {1984} +} + +@inproceedings{Forg:93msatt, +author = {Forget , F. and Pollack , J. B.}, +address = {Lunar and Planetary Institute, Houston}, +booktitle = {Workshop on atmospheric transport on {Mars} (MSATT meeting)}, +institution = {LPI}, +number = {93-05}, +pages = {16-17}, +series = {{LPI} Technical Report}, +title = {Impact of the {CO$_2$} and {H$_2$O} Clouds of the {Martian} polar hood on the polar energy balance}, +type = {Technical Report}, +year = {1993} +} + +@incollection{Forg:97book, +author = {Forget , F.}, +booktitle = {Solar system ices}, +editor = {Schmitt , B. and De Bergh, C. and Festou , M.}, +pages = {477-507}, +publisher = {Kluwer Academic}, +title = {Mars {CO$_2$} ice polar caps}, +year = {1997} +} + +@misc{Forg:95cnes, +author = {Forget, F.}, +howpublished = {Rapport Technique BA/AM/3448, CNES}, +institution = {CNES}, +number = {BA/AM/3448}, +title = {Projet Aerostat Martien~: Etude et modelisation de l'environnement atmospherique: {Conclusion pour le projet MARS 96}, bases pour des projets futurs}, +year = {1995} +} + +@misc{Forg:95ice, +author = {Forget, F.}, +howpublished = {Invited presentation at the ``Solar system ices'' symposium in Toulouse (France)}, +title = {Mars {CO$_2$} ice seasonal polar caps}, +year = {1995} +} + +@article{Habe:91, +author = {Haberle , R. M. and Jakosky , B. M.}, +journal = {Icarus}, +pages = {187-204}, +title = {Atmospheric effects on the remote determination of thermal inertia of {Mars}}, +volume = {90}, +year = {1991} +} + +@article{Coll:96, +author = {Collins, M. and Lewis, S. R. and Read, P. L. and Hourdin, F.}, +journal = {Icarus}, +pages = {344-357}, +title = {Baroclinic wave transitions in the {Martian} atmosphere}, +volume = {120}, +year = {1996} +} + +@misc{Dalt:89, +author = {Dalton , B. et al.}, +howpublished = {in ``The Case for Mars III''}, +title = {.}, +year = {1989} +} + +@techreport{Four:96ddd, +author = {Fournier , R. and Forget , F. and Collins , M. and Hourdin , F.}, +institution = {ESA}, +number = {ESA contract (Ref.~11369/95/NL/JG(SC))}, +title = {Detailed Design Document for the {Martian} Atmospheric General Circulation Model}, +year = {1996} +} + +@techreport{Four:96gcmtesting, +author = {Fournier , R. and Forget , F. and Collins , M. and Hourdin , F.}, +institution = {ESA}, +number = {ESA contract (Ref.~11369/95/NL/JG(SC))}, +title = {Technical note on GCM testing}, +year = {1996} +} + +@techreport{Maur:91, +author = {Mauroy , P.}, +institution = {CNES}, +month = {janvier}, +number = {BA/AM/949}, +title = {Evaluation pr\'eliminaire de la vitesse du vent au voisinage du sol et d\'eplacement du guiderope.}, +year = {1991} +} + +@techreport{Maur:92, +author = {Mauroy , P.}, +address = {mars}, +institution = {CNES}, +number = {BA/AM/1513}, +title = {Consequences probables du changement de date de la missionsur les performances de l'aerostat}, +year = {1992} +} + +@book{Arya:88, +author = {Arya , S. P.}, +publisher = {Academic Press}, +title = {Intoduction to micrometeorology}, +year = {1988} +} + +@article{Lumm:84, +author = {Lumme , Kari and James , Philip B.}, +journal = {Icarus}, +pages = {363-376}, +title = {Some photometric properties of the {Martian} south polar cap region during the 1971 apparition.}, +volume = {58}, +year = {1984} +} + +@article{Lars:72, +author = {Larson , H. P. and Fink, U.}, +journal = {Astrophys. Jour.}, +pages = {L91-L95}, +title = {Identification of carbon dioxide frost on the {Martian} polar caps}, +volume = {171}, +year = {1972} +} + +@article{Doll:65, +author = {Dollfus, Audouin}, +journal = {Ann. Astrophys}, +pages = {722-747}, +title = {Etude de la plan\`{e}te {Mars} de 1954 \`{a} 1958}, +volume = {28}, +year = {1965} +} + +@article{Lumm:76, +author = {Lumme , K}, +journal = {Icarus}, +pages = {69}, +title = {On the surface brightness and geometric albedo of some {Martian} areas.}, +volume = {29}, +year = {1976} +} + +@misc{Ono:95, +author = {Ono , A.M. and Paige , D. A.}, +howpublished = {Abstract for the "Solar System Ices" international symposium, Toulouse, France}, +title = {Martian polar frosts}, +year = {1995} +} + +@misc{Butl:95, +author = {Butler, B.J. and Muhleman , D.O. and Slade , M.J.}, +howpublished = {Abstract for the "Solar System Ices" international symposium, Toulouse, France}, +title = {The difference in the residual ice caps on {Mars} as deduced from {VLA/Goldstone} radar images}, +year = {1995} +} + +@article{Cape:70, +author = {Capen , C. F. and Capen , V. W.}, +journal = {Icarus}, +pages = {100-108}, +title = {Martian north polar cap, 1962-1968}, +volume = {13}, +year = {1970} +} + +@article{Iwis:82, +author = {Iwisaki , K. and Saito , Y. and Akabane , T.}, +journal = jgr, +pages = {10265-10269}, +title = {Martian north polar cap : 1979-1980}, +volume = {87}, +year = {1982} +} + +@article{Jame:83, +author = {James , P. B.}, +journal = baas, +pages = {846-847}, +title = {Condensation phase of the {Martian} south polar cap}, +volume = {15}, +year = {1983} +} + +@article{Hart:83, +author = {Hartman , Dennis L.}, +journal = jas, +pages = {817-835}, +title = {Barotropic instability of the polar night jet stream}, +volume = {40}, +year = {1983} +} + +@article{Park:83, +author = {Parker , D. C. and Capen , C. F. and Beish , J. D.}, +journal = {Sky \& Telescope}, +pages = {218-220}, +title = {Exploring the {Martian} artic.}, +volume = {65}, +year = {1983} +} + +@article{Pire:95, +author = {Pires , C. and Vautard , R. and Talagrand , O.}, +journal = {Tellus}, +pages = {96-121}, +title = {On extending the limits of variational assimilation in nonlinear chaotic systems}, +volume = {48A}, +year = {1995} +} + +@article{Elus:93, +author = {Eluszkiewicz , Janusz}, +journal = {Icarus}, +pages = {43-48}, +title = {On the microphysical state of the {Martian} seasonal caps}, +volume = {103}, +year = {1993} +} + +@book{LaCh:69, +author = {LaChapelle , E. R.}, +publisher = {University of Washington Press, Seattle, 1969.}, +title = {Field Guide to Snow Crystals}, +year = {1969} +} + +@article{Bohr:83, +author = {Bohren, C. F.}, +journal = {J. Opt. Soc. Am.}, +pages = {1646-1652}, +title = {Colors of snow, frozen waterfalls, and icebergs}, +volume = {73}, +year = {1983} +} + +@article{Calv:94, +author = {Calvin , Wendy M. and Martin , Terry Z.}, +journal = jgr, +number = {E10cd}, +pages = {21,143-21,152}, +title = {Spatial variability in the seasonal south polar cap of {Mars}}, +volume = {99}, +year = {1994} +} + +@article{Calv:90, +author = {Calvin , Wendy M.}, +journal = jgr, +pages = {14,743-14,750}, +title = {Additions and corrections to the absorption coefficient of {CO$_2$} ice : applications to the {Martian} south polar cap}, +volume = {95}, +year = {1990} +} + +@article{Hans:74, +author = {Hansen , James E. and Travis , Larry D.}, +journal = {Space Sci. Rev.}, +pages = {527-610}, +title = {Light scaterring in planetary atmosphere}, +volume = {16}, +year = {1974} +} + +@misc{Pa +} + +@misc{Hans:95, +author = {Hansen , Garry B.}, +howpublished = {In preparation for J.G.R.}, +title = {Spectral absorption coefficient of {CO$_2$} ice 2. {Thermal} infrared}, +year = {1995} +} + +@article{Hans:71, +author = {Hansen, J. E.}, +journal = jas, +pages = {1400-1426}, +title = {Multiple scatering of polarized light in planetary atmosphere. {Part II. Sunlight} reflected by terrestrial water clouds.}, +volume = {28}, +year = {1971} +} + +@article{Mish:94, +author = {Mishchenko, M. I.}, +journal = {J. Quant. Spectrosc. Radiat. Transfer}, +pages = {95-110}, +title = {Asymmetry parameters of the phase function for densely packed scattering grains}, +volume = {52}, +year = {1994} +} + +@article{Lind:81, +author = {Lindzen , R. S.}, +journal = jgr, +pages = {9707--9714}, +title = {Turbulence and stress owing to gravity wave and tidal breakdown}, +volume = {86}, +year = {1981} +} + +@article{McFa:87, +author = {McFarlane , N. A.}, +journal = jas, +pages = {1775--1800}, +title = {The effect of orographically excited gravity wave drag on the general circulation of the lower stratosphere and troposphere}, +volume = {44}, +year = {1987} +} + +@article{Herr:70, +author = {Herr, K. C. and Pimentel, G. C.}, +journal = {Science}, +pages = {47-49}, +title = {Evidence for solid carbon dioxide in the upper atmosphere of {Mars}}, +volume = {167}, +year = {1970} +} + +@article{Gier:68, +author = {Gierasch, P. J. and Goody, R. M.}, +journal = {Planet. Space Sci.}, +pages = {615-646}, +title = {A study of the thermal and dynamical structure of the {Martian} lower atmosphere}, +volume = {16}, +year = {1968} +} + +@article{Herr:69, +author = {Herr , K. C. and Pimentel , G. C.}, +journal = {Science}, +pages = {496-499}, +title = {Infrared absorptions near three microns recorded over the polar caps of {Mars}}, +volume = {166}, +year = {1969} +} + +@article{Hans:92, +author = {Hansen , G. B.}, +journal = baas, +pages = {978}, +title = {The spectral absorption of {CO$_2$} ice from 0.18 to 4.8 microns}, +volume = {24}, +year = {1992} +} + +@article{Hans:92triton, +author = {Hansen, C. J. and Paige , D. A.}, +journal = {Icarus}, +pages = {273-288}, +title = {A thermal model for the seasonal nitrogen cycle on {Triton}}, +volume = {99}, +year = {1992} +} + +@article{Brow:94, +author = {Brown, R. H. and Kirk, R. L.}, +journal = jgr, +pages = {1965-1981}, +title = {Coupling of volatile transport and internal heat flow on {Triton}}, +volume = {99}, +year = {1994} +} + +@inproceedings{Brow:79, +author = {Brown, G. N. and Ziegler, W. T.}, +booktitle = {Advances in cryogenic engineering}, +editor = {Timmerhaus. K. and Snyder, H. A.}, +pages = {662-670}, +publisher = {New-York, {Plenum press}}, +title = {Vapor pressure and heats of sublimation of liquids and solids of interest in cryogenics below 1-atm pressure}, +volume = {25}, +year = {1979} +} + +@article{Kief:70a, +author = {Kieffer , H. H.}, +journal = jgr, +pages = {510-514}, +title = {Interpretation of the {Martian} polar cap spectra}, +volume = {75}, +year = {1970} +} + +@article{Kief:70b, +author = {Kieffer, H. H.}, +journal = jgr, +pages = {501-509}, +title = {Spectral reflectance of {CO$_2$-H$_2$O} frosts}, +volume = {75}, +year = {1970} +} + +@article{Clar:82, +author = {Clark , R. N. and McCord , T. B.}, +journal = jgr, +pages = {367-370}, +title = {Mars residual polar cap : {Earth}-based spectroscopic confirmation of water ice as a major constituent and evidence for hydrated minerals}, +volume = {87}, +year = {1982} +} + +@article{Jako:83, +author = {Jakosky , B. M.}, +journal = jgr, +pages = {4329-4330}, +title = {Comments on "{Mars} residual north polar cap : {Earth-based} spectroscopic confirmation of water ice as a major constituent and evidence for hydrated minerals" by {R. N. Clark and T. B. McCord}.}, +volume = {88}, +year = {1983} +} + +@article{Jako:84, +author = {Jakosky , B. M. and Barker , E. S.}, +journal = {Icarus}, +pages = {322-334}, +title = {Comparison of ground-based and {Viking Orbiter} measurements of {Martian } water vapor : variability of the seasonal cycle.}, +volume = {57}, +year = {1984} +} + +@article{Jako:90, +author = {Jakosky , B. M. and Haberle , R. M.}, +journal = jgr, +pages = {1359-1365}, +title = {Year-to-year instability of the {Mars} south polar cap.}, +volume = {95}, +year = {1990} +} + +@article{Clan:96b, +author = {Clancy, R.T. and Grossman , A. W. and Wolff , M. J. and James, P. B. and Rudy , D. J. and Billawala , Y. N. and Sandor , B. J. and Lee , S. W. and Muhleman , D. O.}, +journal = {Icarus}, +pages = {36-62}, +title = {Water vapor saturation at low altitudes around {Mars} +aphelion: a key to {Mars} climate}, +volume = {122}, +year = {1996} +} + +@article{Encr:95, +author = {Encrenaz , T. and Lellouch , E. and Cernicharo , J. and Paubert , G. and Gulkis , S.}, +journal = {Icarus}, +pages = {110-118}, +title = {A tentative detection of the {183-GHz} water vapor line in the {Martian} atmosphere: {Contraint} upon the {H$_2$O} abundance and vertical distribution}, +year = {1995} +} + +@article{Clan:96, +author = {Clancy, R.T. and Wolff , M. J. and James, P. B. and Smith , E. and Billawala , Y. N. and Lee , S. W. and Callan , M.}, +journal = jgr, +pages = {12777-12783}, +title = {Mars ozone measurements near the 1995 aphelion: {Hubble} space telescope ultraviolet spectroscopy with the faint object spectrograph}, +volume = {101}, +year = {1996} +} + +@techreport{Alli:93, +author = {Allison , M and Chandler , M. A. and Del Genio , A. D. and Lacis , A. and Rind , D. and Rossow , W. B. and Travis , L. D. and Zhou , W.}, +institution = {LPI}, +number = {93-05}, +title = {The {NASA GISS} {Mars} general circulation model : preliminary experiments.}, +type = {Technical Report}, +year = {1993} +} + +@techreport{Wils:93, +author = {Wilson , R. J.}, +institution = {LPI}, +number = {93-05}, +title = {Three dimensional numerical simulation of thermal tides in the {Martian} atmosphere.}, +type = {Technical Report}, +year = {1993} +} + +@inproceedings{Thom:92, +author = {Thomas , P. and Squyres , S. and Herkenhoff , K. and Howard , A. and Murray , B.}, +booktitle = {Mars}, +pages = {pp. 767-795}, +publisher = {Univ. of Arizona Press, Tucson}, +title = {Polar deposits of {Mars}}, +year = {1992} +} + +@inproceedings{Fana:92, +author = {Fanale, F. P. and Postawko, S. E. and Pollack, J. B. and +Carr, M. H. and Pepin, R. O.}, +booktitle = {Mars}, +pages = {pp. 1135-1179}, +publisher = {Univ. of Arizona Press, Tucson}, +title = {Epochal climate change and volatile history}, +year = {1992} +} + +@article{Theo:93, +author = {Th{\'e}odore , B and Lellouch , E. and Chassefiere , E. and Hauchecorne , A.}, +journal = {Icarus}, +pages = {512-528}, +title = {Solsticial temperature inversions in the {Martian} middle atmosphere : observational clues and 2-{D} modeling}, +volume = {105}, +year = {1993} +} + +@article{Josh:94nat, +author = {Joshi , M. M. and Lewis , S. R. and Read , P. L. and Catling , D. C.}, +journal = {Nature}, +month = {February}, +pages = {548-551}, +title = {Western boundary currents in the atmosphere of {Mars}}, +volume = {367}, +year = {1994} +} + +@article{Josh:95, +author = {Joshi , M. M. and Lewis , S. R. and Read P. L. and Catling , D. C.}, +journal = jgr, +pages = {5485-5500}, +title = {Western Boundary Courrents in the {Martian} atmosphere : Numerical simulations and observational evidence}, +volume = {100}, +year = {1995} +} + +@article{Hutz:95, +author = {Hutzell , William T. and McKay , Christopher P. and Toon , Owen B. and Hourdin , F.}, +journal = {Icarus}, +pages = {112-129}, +title = {Simulations of {Titan's} brightness by a two-dimensional haze model}, +volume = {119}, +year = {1995} +} + +@misc{Cous:su, +author = {Coustenis, A. and B{\'e}zard , B.}, +note = {Submitted for publication}, +title = {{Titan's} atmosphere from {Voyager} infrared observations: {IV} Latitudinal variations of temperature and composition}, +year = {1995} +} + +@article{Beza:95, +author = {B\'ezard , Bruno and Coustenis , Athena and McKay , Christopher P.}, +journal = {Icarus}, +pages = {267-276}, +title = {Titan's stratospheric temperature asymmetry: a radiative origin}, +volume = {113}, +year = {1995} +} + +@article{Upad:94, +author = {Upadhyaya , H. C. and Agrawal , S. and Talagrand , O.}, +journal = {Proc. Indian Nation Sci. Acad.}, +pages = {193,204}, +title = {Variational data assimilation with an adiabatic version of the {LMD} {GCM} using adjoint methods}, +volume = {60}, +year = {1994} +} + +@article{Rabi:93, +author = {Rabier , F. and Courtier , P. and Pailleux , J. and Talagrand , O. and Vasijevic , D.}, +journal = qjrms, +pages = {845-880}, +title = {A comparison bewteen four-dimensional variational assimilation and simplified sequential assimilation relying on three-dimensional analysis}, +volume = {119}, +year = {1993} +} + +@unpublished{Tala:96, +author = {Talagrand , Olivier}, +note = {submitted to J. Meteor. Soc. Japan}, +title = {Assimilation of Observations, an Introduction}, +year = {1996} +} + +@article{Li:96, +author = {Li , Zhao-Xin}, +journal = {NATO AISI series}, +pages = {127-137}, +title = {Comparison of convection parametrizations in an atmospheric General Circulation model}, +volume = {I 34}, +year = {1996} +} + +@article{Hutz:93, +author = {Hutzell , William T. and McKay , Christopher P. and Toon , Owen B.}, +journal = {Icarus}, +pages = {162-174}, +title = {Effects of time-varying haze production on {Titan's} geometric albedo}, +volume = {105}, +year = {1993} +} + +@article{Jame:87, +author = {James , Philip B. and Pierce , Maurice and Martin , Leonard J.}, +journal = {Icarus}, +pages = {306-312}, +title = {Martian north polar cap and circumpolar clouds: 1975-1980 {Telescopic} observation.}, +volume = {71}, +year = {1987} +} + +@article{Jame:94, +author = {James , P. B. and Clancy , R. T. and Lee , S. W. and Martin, L. J. and Singer, R. B. and Smith E. and Kahn , R. A. and Zurek , R. W.}, +journal = {Icarus}, +pages = {79-101}, +title = {Monitoring {Mars} with the {Hubble} space telescope~: 1990-1991 observations.}, +volume = {109}, +year = {1994} +} + +@article{Keeg:91, +author = {Keegan , K. D. and Bachman , J. E. and Paige , D. A.}, +journal = lps, +pages = {701-702}, +title = {Thermal and albedo mapping of the north polar region of {Mars}}, +volume = {XXII}, +year = {1991} +} + +@article{Paig:91, +author = {Paige , D. A. and Keegan , K. D.}, +journal = lps, +pages = {1013-1014}, +title = {Thermal and albedo mapping of the south polar region of {Mars}}, +volume = {XXII}, +year = {1991} +} + +@article{Paig:90jgr, +author = {Paige , David A. and Herkenhoff , K. E. and Murray , B. C.}, +journal = jgr, +number = {B2}, +pages = {1319-1335}, +title = {Mariner 9 observations of the south polar cap of {Mars} : evidence for residual {CO$_2$} frost}, +volume = {95}, +year = {1990} +} + +@techreport{Paig:93, +author = {Paige ,David A. and Crisp , D. and Santee M. L. and Richardson , M. I.}, +institution = {L.P.I.}, +title = {IRTM brightness temperature maps of the {Martian} south polar region during the polar night : the cold spots don't move}, +type = {MSATT final meeting report.}, +year = {1993} +} + +@article{Sutt:78, +author = {Sutton , Jordan L. and Leovy , Conway B. and Tillman , James E.}, +journal = jas, +pages = {2346-2355}, +title = {Diurnal variations of the {Martian} surface layer meteorological parameters during the first 45 sols at two {Viking} lander sites}, +volume = {35}, +year = {1978} +} + +@article{Till:94, +author = {Tillman, James E. and Landberg , Lars and Larsen , Soren E.}, +journal = jas, +month = {june}, +number = {12}, +pages = {1709-1727}, +title = {The boundary layer of {Mars} : fluxes stability, turbulent spectra and growth of the mixed layer}, +volume = {51}, +year = {1994} +} + +@article{Dyer:74, +author = {Dyer , A. J.}, +journal = blm, +pages = {363-372}, +title = {A review of the flux profile relationships}, +year = {1974} +} + +@article{Hans:93, +author = {Hansen , G. B.}, +journal = baas, +number = {3}, +pages = {1034}, +title = {The spectral absorption of {CO2} ice in the thermal infrared}, +volume = {25}, +year = {1993} +} + +@article{Barn:90, +author = {Barnes , J. R.}, +journal = jgr, +pages = {1401-1421}, +title = {Possible effect of breaking gravity waves on the circulation of the middle atmosphere of {Mars}}, +volume = {95}, +year = {1990} +} + +@article{Warr:84, +author = {Warren , S. G.}, +journal = {Applied~Optics}, +pages = {1206-1225}, +title = {Optical constant of ice from the ultraviolet to the microwaves}, +volume = {23}, +year = {1984} +} + +@article{Bell:93, +author = {Bell, James F. III and Calvin , W. M. and Pollack , J. B. and Crisp , D.}, +journal = {Lunar~and~Plan.~Sci.}, +pages = {83-84}, +title = {An observational search for {CO2} ice clouds on {Mars}}, +volume = {XXIV}, +year = {1993} +} + +@article{Bell:90, +author = {Bell III, J. F. and McCord , T. B. and Owensby , P. D.}, +journal = jgr, +pages = {14447-14461}, +title = {Observational evidence of crystalline iron oxides on {Mars}}, +volume = {95}, +year = {1990} +} + +@article{Bell:93b, +author = {Bell, James F. and Crisp , D.}, +journal = {Icarus}, +pages = {2-19}, +title = {Groundbased imaging spectroscopy of {Mars} in the near infrared : preliminary results}, +volume = {104}, +year = {1993} +} + +@article{Forg:96, +author = {Forget, F. and Pollack, J.B.}, +journal = jgr, +pages = {16,865-16,880}, +title = {Thermal infrared observations of the condensing {Martian} polar caps: {CO$_2$} ice temperatures and radiative budget}, +volume = {101}, +year = {1996} +} + +@article{Mart:93, +author = {Martin , Terry Z. and Richardson , Mark I.}, +journal = jgr, +pages = {10,941-10,949}, +title = {New Dust Opacity Mapping From \protect{Viking} Infrared Thermal Mapper Data}, +volume = {98}, +year = {1993} +} + +@article{Mart:93leo, +author = {Martin , Leonard J. and Zurek , Richard W.}, +journal = jgr, +number = {E2}, +pages = {3221-3246}, +title = {An analysis of the history of dust activity on {Mars}}, +volume = {98}, +year = {1993} +} + +@article{Loui:79, +author = {Louis , J.-F.}, +journal = blm, +pages = {187-202}, +title = {A parametric model of vertical eddy fluxes in the atmosphere.}, +volume = {17}, +year = {1979} +} + +@article{Carl:91, +author = {Carlson, R. W. and Baines, K. H. and Encrenaz, Th. and Taylor, F,. and Drossart, P. and Kamp, L. W. and Pollack, J. B. ad Lellouch, E. and Collard, A. D. and Calcutt , S. B. and Grinspoon et al.}, +journal = sci, +pages = {1541-1548}, +title = {Galileo infrared imaging spectroscopy measurements at \protect{Venus}}, +volume = {253}, +year = {1991} +} + +@techreport{Till:87, +author = {Tillman, James E. and Guest ,W.}, +institution = {National Space Sciences Data Center}, +title = {a}, +year = {1987} +} + +@article{Bark:86, +author = {Barkstrom , B. R. and Smith , G. L.}, +journal = rg, +key = {Barkstrom and Smith,1986}, +pages = {379-390}, +title = {The \protect{E}arth \protect{R}adiation \protect{B}udget \protect{E}xperiment: Science and Implementation}, +volume = {24}, +year = {1986} +} + +@article{Hubb:93, +author = {Hubbard , W. B. \protect{et al.}}, +journal = aa, +pages = {541-563}, +title = {The Occultation of 28 {Sgr by Titan}}, +volume = {269}, +year = {1993} +} + +@article{Tala:81, +author = {Talagrand , Olivier}, +journal = {Tellus}, +pages = {321-339}, +title = {On the mathematics of Data Assimilation}, +volume = {33}, +year = {1981} +} + +@article{Char:69, +author = {Charney , J. and Halem , M. and Jastrow , R.}, +journal = jas, +pages = {1160-1163}, +title = {Use of Incomplete Historical Data to Infer the Present State of the Atmosphere}, +volume = {26}, +year = {1969} +} + +@article{LeDi:86, +author = {Le Dimet , F.-X. and Talagrand , O.}, +journal = {Tellus}, +pages = {97-110}, +title = {Variational algorithms for analysis and assimilation of meteorological observations: theoretical aspects}, +volume = {38A}, +year = {1986} +} + +@article{Thep:91, +author = {Th\'epaut , J.- N. and Courtier , P.}, +journal = qjrms, +pages = {1225-1254}, +title = {Four-dimensional variational data assimilation using the adjoint of a multilevel primitive-equation model}, +volume = {117}, +year = {1991} +} + +@article{Muhl:92, +author = {Muhleman , D. O. and Grossman , A. W. and Slade , M. A. and Butler , B. J.}, +journal = baas, +pages = {954-955}, +title = {Thes surface of \protect{Titan's} rotation: What is radar telling us?}, +volume = {24}, +year = {1992} +} + +@book{Moor:83, +author = {Moore , Patrick and Hunt , Garry and Nicolson , Iain and Cattermole , Peter}, +publisher = {Mitchell Beasley Publishers}, +title = {The Atlas of the Solar System}, +year = {1983} +} + +@article{Mutc:76, +author = {Mutch , Thomas A. and Binder , Alan B. and Huck , Friedrich O. and Levinthal , E. C. and Liebes , S. Jr. and Morris , E. C. and Patterson , W. R. and Pollack J. B. and Sagan , C. and Taylor , G. R.}, +journal = {Science}, +pages = {791-801}, +title = {The surface of \protect{Mars} : The view from the \protect{Viking}~1 Lander}, +volume = {193}, +year = {1976} +} + +@article{Pick:79, +author = {Pickersgill , Adrian O. and Hunt , Garry E.}, +journal = jgr, +number = {B14}, +pages = {8317-8331}, +title = {The formation of \protect{Martian} Lee Waves generated by a crater}, +volume = {84}, +year = {1979} +} + +@article{Pick:81, +author = {Pickersgill , Adrian O. and Hunt , Garry E.}, +journal = jas, +pages = {40-51}, +title = {An examination of the formation of linear lee waves generated by giant \protect{Martian} volcanoes}, +volume = {38}, +year = {1981} +} + +@article{Fren:81, +author = {French , R. G. and Gierasch , P. J. and Popp , B. D. and Yerdon , R. J.}, +journal = {Icarus}, +pages = {468-493}, +title = {Global paterns in cloud forms on Mars}, +volume = {45}, +year = {1981} +} + +@article{Svit:90, +author = {Svitek , Thomas and Murray , Bruce}, +journal = jgr, +pages = {1495-1510}, +title = {Winter frost at {Viking Lander} 2 site}, +year = {1990} +} + +@article{Kahn:83, +author = {Kahn , R.}, +journal = jgr, +pages = {10189-10209}, +title = {Some observational constraints on the global-scale wind systems of \protect{Mars}}, +volume = {88}, +year = {1983} +} + +@article{Kahn:84, +author = {Kahn , R.}, +journal = jgr, +pages = {6671-6688}, +title = {The spatial and seasonal distribution of \protect{Martian} clouds and some meteorological implications}, +volume = {89}, +year = {1984} +} + +@article{Maga:87, +author = {Magalhaes , J. A.}, +journal = {Icarus}, +pages = {442-468}, +title = {The \protect{Martian} \protect{Hadley} circulation: Comparison of "viscous" predictions to observations}, +volume = {70}, +year = {1987} +} + +@article{Maga:82, +author = {Magalhaes , J. and Gierasch , P.}, +journal = jgr, +pages = {9975-9984}, +title = {A model of \protect{Martian} slopes winds: Implications for eolian transport}, +volume = {87}, +year = {1982} +} + +@article{Kief:79, +author = {Kieffer , H. H.}, +journal = jgr, +pages = {8263-8288}, +title = {Mars south polar spring and summer temperatures: a residual CO$_2$ frost}, +volume = {84}, +year = {1979} +} + +@article{Gadi:78, +author = {Gadian , A. M.}, +journal = {Icarus}, +pages = {454-465}, +title = {The dynamics of and the heat transfer by baroclinic eddies and large-scale stationnary topographically forced long waves in the \protect{Martian} atmosphere}, +volume = {33}, +year = {1978} +} + +@article{Mart:74, +author = {Martin , L. J.}, +journal = {Icarus}, +pages = {108-115}, +title = {The major \protect{Martian} dust stroms of 1971 and 1973}, +volume = {23}, +year = {1974} +} + +@article{Mell:74, +author = {Mellor , George L. and Yamada , Tetsuji}, +journal = jas, +pages = {1791-1806}, +title = {A Hierarchy of Turbulence Closure Models for Planetary Boundary Layers}, +volume = {31}, +year = {1974} +} + +@article{Mell:82, +author = {Mellor , George L. and Yamada , Tetsuji}, +journal = {Rev. of Geophys.}, +month = {November}, +number = {4}, +pages = {851-875}, +title = {Development of a turbulence closure model for geophysical fluid problems}, +volume = {20}, +year = {1982} +} + +@article{Miya:77, +author = {Myakoda , K. and Sirutis}, +journal = bpa, +pages = {445-447}, +title = {Comparative Integrations of Global Models with Various Parametrized Processes of Subgrid-Scale Vertical Transports: Description of the Parametrization}, +volume = {50}, +year = {1977} +} + +@article{Frie:94, +author = {Friedson , A. J.}, +journal = {Icarus}, +pages = {40-57}, +title = {Gravity waves in {Titan's} atmosphere}, +volume = {109}, +year = {1994} +} + +@article{Jame:82, +author = {James , P. B. and North , G. R.}, +journal = jgr, +pages = {10271-10283}, +title = {The seasonal {CO$_2$} cycle on \protect{Mars} : An application of an energy balance climate model}, +volume = {87}, +year = {1982} +} + +@article{Davi:77, +author = {Davies , D. W. and Farmer , C. B. and LaPorte , D. D.}, +journal = jgr, +pages = {3815-3822}, +title = {Behavior of volatile in {Mars}' polar areas~: a model incorporating new experimental data.}, +volume = {82}, +year = {1977} +} + +@article{Jone:79, +author = {Jones, K.L. and Arvidson, R. E. and Guiness, E. A. and Braggs, S. L. and Wall , S. D. and Carlston , C. E. and Pidek, D. G.}, +journal = {Science}, +pages = {799-806}, +title = {One {Mars} year : {Viking} lander imaging observations}, +volume = {204}, +year = {1979} +} + +@article{Mitc:89, +author = {Mitchell , Jhon F. B.}, +journal = rg, +pages = {115-139}, +title = {The "greenhouse" effect and climate change}, +volume = {27}, +year = {1989} +} + +@article{Wall:81, +author = {Wall, Stephen D.}, +journal = {Icarus}, +pages = {173-183}, +title = {Analysis of condensates formed at the {Viking} 2 lander site : the first winter}, +volume = {47}, +year = {1981} +} + +@article{Hart:86, +author = {Hart , Helen M. and Jakosky , Bruce M.}, +journal = {Icarus}, +pages = {134-142}, +title = {Composition and stability of the condensate observed at the {Viking} lander 2 site on {Mars}}, +volume = {66}, +year = {1986} +} + +@article{Mccl:92, +journal = jgr, +number = {E5}, +pages = {7735-7757}, +title = {Atmosphere and Climate Studies Using the \protect{Mars} Observer Pressure Modulator Infrared Radiometer}, +volume = {97}, +year = {1992} +} + +@phdthesis{Mayn:97, +author = {Karine Maynard}, +school = {Universit\'e Paris-6}, +title = {Param\'etrisation de la diffusion lat\'erale dans un mod\`ele de circulation g\'en\'erale de l'atmosph\`ere}, +type = {th\`ese}, +year = {1997} +} + +@phdthesis{Hour:92f, +author = {Hourdin, Fr\'ed\'eric}, +school = {Universit\'e Paris-7}, +title = {Etude et mod\'elisation num\'erique de la circulation g\'en\'erale des atmosph\`eres plan\'etaires}, +type = {th\`ese}, +year = {1992} +} + +@phdthesis{Forg:96these, +author = {Forget, Fran\c{c}ois}, +school = {Universit\'e Paris-6}, +title = {Le climat de la plan\`ete Mars~: +de l'importance des poussi\`eres et des r\'egions polaires.}, +type = {th\`ese}, +year = {1996} +} + +@phdthesis{Bouc:95, +author = {Boucher, Olivier}, +school = {Universit\'e Paris-6}, +title = { +Etude de quelques interactions a{\'e}rosol-nuage-rayonnement~: mod{\'e}lisation et simulations avec un mod{\'e}le de circulation g{\'e}n{\'e}rale}, +type = {th{\`e}se}, +year = {1995} +} + +@book{Lore:67, +author = {Lorenz , Edward N.}, +publisher = {World Meteorological Organization}, +title = {The nature and theory of the general circulation of the atmosphere}, +year = {1967} +} + +@book{Newe:72, +author = {Newel , Reginald E. and Kidson , John W. and Vincent , Dayton G. and Boer , George J.}, +address = {Cambridge, Massachussetts, USA}, +publisher = {The MIT Press}, +title = {The general circulation of the torpical atmosphere}, +year = {1972} +} + +@book{Herg:62, +author = {Herg\'e}, +address = {Tournai, Belgique}, +publisher = {Casterman}, +title = {On a march\'e sur la lune}, +year = {1962} +} + +@article{Bouc:95b, +author = {Boucher, O.}, +journal = jc, +pages = {1403--1409}, +title = {GCM Estimate of the indirect aerosol forcing using satellite-retrieved cloud effective droplet radii}, +volume = {8}, +year = {1995} +} + +@techreport{Bouc:95c, +author = {Boucher , O. and Li , Z.-X. and Le Treut , H.}, +institution = {LMD}, +number = {197}, +title = {Introduction du sch\'ema de convection de {T}iedtke dans les +{MCG}s du {LMD}}, +year = {1995} +} + +@article{Bouc:97, +author = {Boucher , O. and Pham , M. and Sadourny , R.}, +journal = {Submitted to Annales Geophysic}, +title = {General circulation model simulations of indian summer monsoon with increasing levels of sulphate aerosols}, +year = {1997} +} + +@article{Cres:59, +author = {Cressman , G. P.}, +journal = mwr, +pages = {367--374}, +title = {An operational objective analysis system}, +volume = {87}, +year = {1959} +} + +@article{Hour:99, +author = {Hourdin , F. and Armengaud , A.}, +journal = mwr, +pages = {822--837}, +title = {Test of a hierarchy of finite-volume schemes for transport of trace species in an atmospheric general circulation model}, +volume = {127}, +year = {1999} +} + +@article{Pudy:98, +author = {Pudykiewicz , J. A.}, +journal = {Atmos. Environ.}, +pages = {3039--3050}, +title = {Application of adjoint tracer transport equations for evaluating source parameters}, +volume = {32}, +year = {1998} +} + +@article{Hess:96, +author = {Hess, P. G. and Nanda, S. and Flocke, S. J.}, +journal = jgr, +pages = {14,543--14,568}, +title = {Trajectories and related variations in the chemical composition +of air for the Mauna Loa Observatory during 1991 and 1992}, +volume = {101}, +year = {1996} +} + +@article{Ramo:96, +author = {Ramonet, M. and Le Roulley , J. C. and Bousquet, P. and Monfray, P.}, +journal = {J. Atmos. Chem.}, +pages = {107--136}, +title = {Radon-222 measurements during the Tropoz II campaign and coparison with a global atmospheric transport model}, +volume = {23}, +year = {1996} +} + +@article{Merr:94, +author = {Merrill, J. T.}, +journal = jgr, +pages = {25,8881-25,8889}, +title = {Isentropic airflow probability analysis}, +volume = {99}, +year = {1994} +} + +@techreport{Graz:98, +author = {Graziani , C. and Klug , W. and Mosca , S.}, +address = {Office for Official Publications of the European Communities}, +institution = {Joint Research Center}, +title = {Real-time long-range dispersion model evaluation of the {ETEX} release}, +volume = {EUR--17754}, +year = {1996} +} + +@article{X, +author = {X}, +journal = {X}, +pages = {X}, +title = {X}, +volume = {X}, +year = {X} +} + +@article{Hour:00GRL, +author = {Hourdin , F. and Issartel , J.-P.}, +journal = grl, +pages = {2245--2248}, +title = {Sub-surface nuclear tests monitoring through the CTBT xenon network}, +year = {2000}, +vol = "27" +} + +@article{Hour:99CRAS, +author = {Hourdin , F. and Issartel , J.-P. and Cabrit , B. and Idelkadi , A.}, +journal = {CRAS}, +pages = {623--628}, +title = {Reciprocity of Atmospheric Transport of Trace Species}, +volume = {329}, +year = {1999} +} + +@article{Hosk:75, +author = {Hoskins, B. J. and Simmons, A. J.}, +journal = qjrms, +pages = {771-783}, +title = {A Multi-layer spectral model and the semi-implicit method}, +volume = {109}, +year = {1975} +} + +@article{Barn:96jas, +author = {Barnes, J. R. and Haberle, R. M.}, +journal = jas, +pages = {3143-3156}, +title = {The {Martian} zonal-mean circulation: angular momentum and potential vorticity structure in GCM simulations}, +volume = {53}, +year = {1996} +} + +@article{LeTr:96, +author = {Le Treut , H. and Forichon , M. and Boucher , O. and Li , Z.-X.}, +journal = {submitted to J. Climate}, +title = {Sulfate aerosol indirect effect and CO$_2$ greenhouse forcing: equilibrium response of the LMD GCM and associated cloud feedbacks}, +year = {1996} +} + +@article{author +} + +@article{author +} + +@article{author +} + +@article{author +} + +@article{Thom:70, +author = {Thompson , R.}, +journal = jas, +pages = {1107-1116}, +title = {Venus' general circulation is a merry-go-round}, +volume = {27}, +year = {1970} +} + +@misc{Elia:91, +author = {Eliason, E. and Batson , R. and Manley , A.}, +title = {Mars {Mosaicked Digital Image Model (MIDM) and Digital Terrain Model (DTM), 1991.}}, +year = {1991} +} + +@inproceedings{Davi:92, +author = {Davies , Merton E. and Batson , Raymond M. and Sherman , S. C. Wu}, +booktitle = {Mars}, +pages = {321-342}, +publisher = {Univ. of Ariz. Press, Tucson}, +title = {Geodesy and Cartography of {Mars}}, +year = {1992} +} + +@article{Thom:79, +author = {Thomas , P. and Veverka , J.}, +journal = jgr, +number = {b14}, +pages = {8131-8146}, +title = {Seasonal and secular variations of wind streaks on \protect{Mars}: A anlysis of \protect{Mariner~9} and \protect{Viking} data}, +volume = {84}, +year = {1979} +} + +@article{Shap:71, +author = {Shapiro , R.}, +journal = jas, +pages = {523-591}, +title = {The use of linear filtering as a parametrization of atmospheric diffusion}, +volume = {28}, +year = {1971} +} + +@article{Schn:77a, +author = {Schneider , Edwin K.}, +journal = jas, +pages = {280-296}, +title = {Axially symmetric Steady-State Models of the Basic State for Instabillity and Climate Studies. \protect{Part II}. Nonlinear Calculations}, +volume = {34}, +year = {1977} +} + +@article{Samu:83a, +author = {Samuelson , R. E. and Maguire , W. C. and Hanel , R. A. and Kunde , V. G.and Jennigs D. E. and Yung , Y. L. and Aikin , A. C.}, +journal = jgr, +pages = {8709-8715}, +title = {CO$_2$ on \protect{Titan}}, +volume = {88}, +year = {1983} +} + +@article{Samu:83, +author = {Samuelson , R. E.}, +journal = {Icarus}, +pages = {364-387}, +title = {Radiative equilibrium model of \protect{Titan's} atomsphere}, +volume = {53DedDeD}, +year = {1983} +} + +@book{Brig:82, +author = {Briggs , G. A. and Taylor , F. W.}, +publisher = {Cambridge University Press}, +title = {Photographic Atlas of the Planets}, +year = {1982} +} + +@proceedings{esa:91, +address = {Paris, France}, +editor = {ESA}, +publisher = {ESA Publications Division}, +title = {Symposium on \protect{Titan}}, +volume = {SP-338}, +year = {1992} +} + +@inproceedings{Cous:91, +author = {Coustenis , Athena}, +booktitle = {Symposium on Titan}, +crossref = {esa:91}, +pages = {53-58}, +title = {Titan's atmosphere: latitudinal variations in temperature and composition} +} + +@article{Cous:95, +author = {Coustenis , A. and B\'ezard , B.}, +journal = {Icarus}, +pages = {126-140}, +title = {Titan's atmosphere from {Voyager} Infrared observations : {IV} Latitudinal variations of temperature and composition}, +volume = {115}, +year = {1995} +} + +@article{Kaln:73, +author = {K\'alnay de Rivas , Eugenia}, +journal = jas, +pages = {763-779}, +title = {Numerical models of the circulation of the atmosphere of \protect{Venus}}, +volume = {30}, +year = {1973} +} + +@article{Suar:92, +author = {Suarez , Max J. and Duffy , Dean G.}, +journal = jas, +pages = {1541-1554}, +title = {Terrestrial Superrotation: A bifurcation of the general circulation}, +year = {1992} +} + +@article{Newm:92, +author = {Newman, Matthew and Leovy , Conway}, +journal = sci, +pages = {647-650}, +title = {Maintenance of the Rotational Winds in \protectP{Venus'} Middle Atmosphere by thermal tides}, +volume = {257}, +year = {1992} +} + +@article{Ross:79, +author = {Rossow , William B.}, +journal = jas, +pages = {377-389}, +title = {Large--scale Motion in the \protect{Venus} Stratosphere}, +volume = {36}, +year = {1979} +} + +@article{Ross:80, +author = {Rossow , W. B. and Del Genio , A. D. and Limaye , S. S. and Travis , L. D. and Stone , P. H.}, +journal = jgr, +pages = {8107-8128}, +title = {Cloud morphology and motions from \protect{Pioneer} \protect{Venus} images}, +volume = {85}, +year = {1980} +} + +@article{Ross:78, +author = {Rossow , William B.}, +journal = {Icarus}, +pages = {1,50}, +title = {Cloud microphysics: {A}nalysis of the clouds of {Earth, Venus, Mars, and Jupiter}}, +volume = {36}, +year = {1978} +} + +@article{Del:93, +author = {Del Genio , Anthony D. and Zhou , Wei and Eichler , Timothy P.}, +journal = {Icarus}, +pages = {1-17}, +title = {Equatorial superrotation in a slowly rotating \protect{GCM}: implications for \protect{Titan} and \protect{Venus}}, +volume = {101}, +year = {1993} +} + +@article{Fels:74, +author = {Fels , S. B. and Lindzen , R. S.}, +journal = gfd, +pages = {149-191}, +title = {The interaction of thermally excited gravity waves with the mean zonal flows}, +volume = {6}, +year = {1974} +} + +@article{Schu:70, +author = {Schubert , Gerald and Young , Richard E.}, +journal = jas, +pages = {523-528}, +title = {The 4-Day \protect{Venus} Circulation Driven by Periodis Thermal Forcing}, +volume = {27}, +year = {1970} +} + +@article{Fels:77, +author = {Fels , Stephen B.}, +journal = jas, +pages = {499-514}, +title = {Momentum and Energy Exchanges due to Orographically scaterred Gravity Waves}, +volume = {34}, +year = {1977} +} + +@article{Malk:70, +author = {Malkus , Willem V. R.}, +journal = jas, +pages = {529-535}, +title = {Hadley--Halley Circulation on \protect{Venus}}, +volume = {27}, +year = {1970} +} + +@article{Zure:88, +author = {Zurek , Richard W. and Haberle , Robert M.}, +journal = jas, +pages = {2469-2485}, +title = {Zonally Symmetric Response to Atmospheric Tidal Forcing in the Dusty {Martian} Atmosphere}, +volume = {45}, +year = {1988} +} + +@inproceedings{Chri:92, +author = {Christensen , P. R. and Moore , H. J.}, +address = {Tucson, AR}, +booktitle = {Mars}, +chapter = {26}, +pages = {686-729}, +publisher = {University of Arizona Press, Tucson}, +title = {The {Martian} surface layer}, +year = {1992} +} + +@inproceedings{Zure:92, +author = {Zurek , R. W. and Barnes , J. R. and Haberle , R. M. and Pollack , J. B. and Tillman , J. E. and Leovy , C. B.}, +booktitle = {Mars}, +chapter = {26}, +pages = {835-933}, +publisher = {Univ. of Ariz. Press, Tucson}, +title = {Dynamics of the atmosphere of \protect{Mars}}, +year = {1992} +} + +@article{Boug:88, +author = {Bougher , S. W. and Dickinson , R. E.}, +journal = jgr, +pages = {7325-7337}, +title = {Mars mesosphere and thermosphere. I. Global ,mean heat budget and thermal structure}, +volume = {94}, +year = {1988} +} + +@article{Schu:69, +author = {Scubert , G. and Whitehead , J.}, +journal = sci, +pages = {71-72}, +title = {Moving flame experiment with liquid mercury: Possible implication for Venus atmosphere}, +year = {1969} +} + +@misc{Schu:97, +author = {Schubnel, A.}, +howpublished = {Rapport de stage au LMD}, +title = {Modélisation numérique de la structure thermique de l'atmosphere de Triton}, +year = {1997} +} + +@article{Lind:88, +author = {Lindzen , Richard S. and Hou , Arthur}, +journal = jas, +pages = {2416-2427}, +title = {Hadley circulation for zonally averaged heating centered off the equator}, +volume = {45}, +year = {1988} +} + +@article{Lind:70, +author = {Lindzen , Richard S.}, +journal = jas, +pages = {536-549}, +title = {The Application and Aplicability of Terrestrial Atmospheric Tidal Theory to \protect{Venus} and \protect{Mars}}, +volume = {27}, +year = {1970} +} + +@article{Ross:83, +author = {Rossow , William B.}, +journal = jas, +pages = {273-302}, +title = {A General Circulation Model of a {Venus}--like Atmosphere}, +volume = {40}, +year = {1983} +} + +@article{Hunt:76, +author = {Hunt , B. G.}, +journal = mwr, +pages = {333-350}, +title = {Experiments with a Stratospheric General Circulation Model: Part \protect{IV}. Inclusion of the Hydrological Cycle}, +volume = {104}, +year = {1976} +} + +@article{Hunt:79b, +author = {Hunt , G. E. and James , P. B.}, +journal = {Nature}, +pages = {531-532}, +title = {Martian extratropical cyclones}, +volume = {278}, +year = {1979} +} + +@article{Del:82, +author = {Del Genio , A. D. and Rossow , W. B.}, +journal = {Icarus}, +pages = {391-415}, +title = {Temporal variability of ultraviolet cloud features in the Venus startosphere}, +volume = {51}, +year = {1982} +} + +@article{Char:47, +author = {Charney , J. G.}, +journal = {J. Meteor.}, +pages = {135-162}, +title = {The dynamics of long waves in a baroclinic westerly current}, +volume = {35}, +year = {1947} +} + +@article{Eady:49, +author = {Eady , E. T.}, +journal = {Tellus}, +pages = {35-52}, +title = {Long waves and cyclones}, +volume = {1}, +year = {1950} +} + +@inproceedings{Fjor:51, +author = {Fjortoft , R.}, +address = {Boston}, +booktitle = {Compendium of meteorology}, +editor = {T. F. Malone}, +journal = {Compendium of meteorology}, +pages = {454-463}, +publisher = {Amer. Meteor. Soc.}, +title = {Stability properties of large-scale distubances}, +year = {1951} +} + +@article{Kuo:52, +author = {Kuo , H.-L.}, +journal = {J. Meteor.}, +pages = {260-278}, +title = {Three-dimensional disturbances in a baroclinic zonal current}, +volume = {9}, +year = {1952} +} + +@article{Kuo:49, +author = {Kuo , H. L.}, +journal = {J. Meteor.}, +pages = {105-122}, +title = {Dynamic instability of two-dimensional nondivergent flow in a barotropic atmosphere}, +volume = {6}, +year = {1949} +} + +@article{Hide:69, +author = {Hide , R.}, +journal = jas, +pages = {841-853}, +title = {Dynamics of the atmospheres of the major planets with an appendix on the viscous boundary layer at the rigid boundary surface of an electrically conducting rotating fluid in the presence of a magnetic field}, +type = { field}, +volume = {26}, +year = {1969} +} + +@unpublished{Sado:90, +author = {Sadourny , Robert}, +note = {Cours du DEA de m\'et\'eorologie de PARIS~6}, +title = {La circulation g\'en\'erale de l'atmosph\`ere: Th\'ories et observations}, +year = {1990} +} + +@article{Hide:75, +author = {Hide , R. and Mason , P. J.}, +journal = {Adv. in Physics}, +pages = {47-100}, +title = {Slopping convection in a rotating fluid}, +volume = {24}, +year = {1975} +} + +@book{Pedl:82, +author = {Pedlosky , Joseph}, +address = {New York}, +publisher = {Springer-Verlag}, +title = {Geophysical Fluid Dynamics}, +year = {1982} +} + +@article{Lell:89, +author = {Lellouch , E. and Coustenis , A. and Gautier , D. and Raulin , F. and Dubouloz , N. and Fr\`ere , C.}, +journal = {Icarus}, +pages = {328-349}, +title = {Titan's atmosphere and hypothesized ocean: A reanalysis of {Voyager~1} radio-occultation and {IRIS 7.7 $\mu$m} data.}, +volume = {79}, +year = {1989} +} + +@misc{Lell:94, +author = {Lellouch, E. and Rosenqvist , J. and Goldstein, J. J. and Boucher , S. W. and Paubert , G.}, +howpublished = {Acte du Colloque National de planétologie de l'INSU}, +note = {Section 13.5}, +title = {Dynamique des {atmosphère moyennes de Vénus et de Mars par spectroscopie millimétrique}}, +year = {1994} +} + +@misc{Benc:94, +author = {Benchkoura, A. and Schmitt, B. and Klinger, J.}, +howpublished = {Acte du Colloque National de planétologie de l'INSU}, +note = {Section 13.5}, +title = {Mod\'elisation num\'erique du transport de volatils et de la +differenciation chimique \`a la surface du satellite {Triton}}, +year = {1994} +} + +@article{Boye:66, +author = {Boyer , C. and Gu\'erin , P.}, +journal = {C. R. Hebd. S\'eances Acad. Sci.}, +pages = {253-255}, +title = {Mise en \'evidence directe, par la photographie d'une rotation r\'etrograde de V\'enus en 4 jours}, +volume = {263}, +year = {1966} +} + +@inproceedings{Raul:92, +author = {Raulin , F. and Fr\`ere , C. and Do , L. and Khlifi , M. and Paillous , P. and de Vanssay , E.}, +booktitle = {Symposium on Titan}, +crossref = {esa:91}, +title = {Organic chemistry on \protect{Titan} versus Terrestrial prebiotic chemistry: Exobiological implications} +} + +@inproceedings{Gaut:92, +author = {Gautier, Daniel}, +booktitle = {Symposium on Titan}, +crossref = {esa:91}, +pages = {43-51}, +publisher = {ESA}, +title = {The composition of the atmosphere of {Titan}}, +volume = {SP 338}, +year = {1992} +} + +@inbook{Shap:68, +author = {Shapiro , I. I.}, +address = {New York: Mc Graw-Hill}, +pages = {143-185}, +publisher = {eds. J. V. Evans and T. Hagfors}, +title = {Spin and orbital motions of the planets}, +year = {1968} +} + +@article{Hadl:35, +author = {Hadley , G.}, +journal = ptrsl, +pages = {58-62}, +title = {Concerning the cause of the general trade-winds}, +volume = {39}, +year = {1735} +} + +@article{Hall:86, +author = {Halley , E.}, +journal = ptrsl, +pages = {153-168}, +title = {An historical account of the trade winds, and monsoons, observable in the seas between and near the tropiks, with an attempt to assign the physical cause of the said winds}, +volume = {16}, +year = {1686} +} + +@article{Evan:76, +author = {Evans , David S.}, +journal = {Science}, +note = {Book rewview}, +pages = {754}, +title = {A Fancier of \protect{Mars}}, +volume = {193}, +year = {1976} +} + +@book{Louc:88, +author = {Louchet , Andr\'e}, +address = {120 Bd St Michel, 75280 Paris CEDEX 06}, +publisher = {Masson}, +title = {La plan\`ete Mars: description g\'eographique}, +year = {1988} +} + +@book{Pica:53, +author = {Picart , Luc}, +address = {103 Bd. Saint--Michel, Paris}, +publisher = {Librairie Armand Colin}, +title = {Astronomie g\'en\'erale}, +year = {1953} +} + +@article{Blam:91, +author = {Blamont , J. E. and Chassefi\`ere , E. and Goutail , J. P. and Mege , B. and Munes-Pinharanda and Souchon , G and Krasnopolsky , V. A. and Krysko , A. A. and Moroz , V. I..}, +journal = pss, +pages = {175-187}, +title = {Vertical profiles of dust and ozone in the {Martian} atmosphere deduced from solar occultation measurements}, +volume = {39}, +year = {1991} +} + +@article{Blam:89, +author = {Blamont , J. E. and Chassefi\`ere , E. and Goutail , J. P. and Mege , B. and Munes-Pinharanda and Souchon , G and Krasnopolsky , V. A. and Krysko , A. A. and Moroz , V. I..}, +journal = {Nature}, +pages = {600-603}, +title = {Vertical profiles of dust and ozone in the {Martian} atmosphere deduced from solar occultation measurements}, +volume = {341}, +year = {1989} +} + +@article{Comb:91, +author = {Combes , M. and Cara , C. and Drossart , P. and Encrenaz , T. and Lellouch , E. and Rosenqvist , J. and Bibring , J.-P. and Erard , S. and Gondet , B. and Langevin , Y. and Soufflot , A. {\em et al.}}, +journal = pss, +pages = {189-197}, +title = {Martian atmosphere studies from the \protect{ISM} experiment}, +volume = {39}, +year = {1991} +} + +@article{Moro:91, +author = {Moroz , V. I. and Petrova , E. V. and Ksanfomality , L. V. and Ganpantzerova , O. F. and Goroshkova , N. V. and Zharkov , A. V. and Nikitin , G. E. and Esposito , L. and Bibring , J.-P. {\em et al.}}, +journal = pss, +pages = {199-207}, +title = {Characteristics of aerosol phenomena in {Martian} atmosphere from \protect{KRFM} eperiment data}, +volume = {39}, +year = {1991} +} + +@article{Jose:76, +author = {Joseph , J. H. and Wiscombe , W. J. and Weiman , J. A.}, +journal = jas, +pages = {2452-2459}, +title = {The Delta-Eddington Approximation for radiative flux transfer}, +volume = {33}, +year = {1976} +} + +@article{Zdun:80, +author = {Zdunkowski , W. G. and Welch , R. M. and Korb , G.}, +journal = bpa, +pages = {147-166}, +title = {An investigation of the structure of typical two-stream methods for the calculation of solar fluxes and heating rates in clouds}, +volume = {53}, +year = {1980} +} + +@article{Gele:79, +author = {Geleyn , J. F. and Hollingswortha , A.}, +journal = bpa, +pages = {1-16}, +title = {An economical method for the computation of the interaction between scattering and line absorption of radiation}, +volume = {52}, +year = {1979} +} + +@article{Emde:12, +author = {Emden , R.}, +journal = {Sitzungsber. Bayer. Akad. Wiss. Math.-Phys. Kl.}, +pages = {55}, +title = {\"Uber Strahlungsgleichgewicht und atmospher\"ische Strahlung.}, +volume = {1}, +year = {1912} +} + +@book{Palt:76, +author = {Paltridge , G. W. and Platt , C. M. R.}, +address = {335 Jan Van Galenstraat/ P. O. Box 211, Amsterdam, The Netherlands}, +publisher = {Elsevier scientific publishing company}, +title = {Radiative processes in meteorology and climatology}, +year = {1976} +} + +@article{Pall:81, +author = {Palluconi , F. D. and Kieffer , H. H.}, +journal = {Icarus}, +pages = {415-426}, +title = {Thermal inertia mapping of {Mars} from {$60^{\mbox{o}}$S to $60^{\mbox{o}}$N}}, +volume = {45}, +year = {1981} +} + +@article{Ples:81, +author = {Pleskot , L. K. and Miner , E. D.}, +journal = {Icarus}, +pages = {179-201}, +title = {Time variability of {Martian} bolometric albedo}, +volume = {45}, +year = {1981} +} + +@unpublished{Forg:91, +author = {Forget , Fran\c{c}ois}, +note = {Rapport du stage de DEA "Oc\'eanologie, m\'et\'eorologie et environnement" de Paris VI}, +title = {Simulation nu\'erique de l'atmosph\`ere Martienne}, +year = {1991} +} + +@article{Forg:95, +author = {Forget , F. and Pollack , J. B. and Hansen , G. B.}, +journal = jgr, +pages = {21,119-21,234}, +title = {Low brightness temperatures of {Martian} polar caps: {CO$_2$} clouds or low surface emissivity?}, +volume = {100}, +year = {1995} +} + +@inproceedings{Hour:96estecb, +author = { Hourdin , F. and Forget , Fran\c{c}ois and Fournier , Richard and Talagrand , O. and Read , P. L. and Collins , M. and Lewis , S. R. and Thomas , P. J.}, +booktitle = {Environement Modelling for Space-based Applications}, +editor = {A. Hilgers and T.-D. Guyenne}, +pages = {315-320}, +series = {ESA}, +title = {Numerical Modelling of the General Circulation of the {Martian} Atmosphere}, +volume = {SP-392}, +year = {1996} +} + +@inproceedings{Hour:96estec, +author = { Hourdin , F. and Talagrand , O. and Menou , K. and Fournier , R. and Dufresnes , J.-L. and Gautier , D. and Courtin , R. and B\'ezard , B. and McKay , C. P.}, +booktitle = {Environement Modelling for Space-based Applications}, +editor = {A. Hilgers and T.-D. Guyenne}, +pages = {329-333}, +series = {ESA}, +title = { Numerical Modelling of the Circulation of Superrotating Atmospheres: {Venus and Titan}}, +volume = {SP-392}, +year = {1996} +} + +@inproceedings{Four:96estec, +author = { Fournier , R. and Deleersnijder , E. and Hourdin , F. and Lahellec , A. and Forget , F. and Talagrand , O.}, +booktitle = {Environement Modelling for Space-based Applications}, +editor = {A. Hilgers and T.-D. Guyenne}, +pages = {321}, +series = {ESA}, +title = { A Boundary-Layer Parametrisation for {Martian General Circulation Models}}, +volume = {SP-392}, +year = {1996} +} + +@misc{Coll:96estec, +author = { Read , P. L. and Collins , M. and Lewis , S. R. and Thomas , P. J. and Talagrand , O. and Forget , F. and Fournier , R. and Hourdin , F.}, +howpublished = { Oral presentation at the Symopsium on Environment Modelling for space-based applications, ESTEC/ESA}, +title = { A Climate Database for the {Martian} Atmosphere}, +year = {1996} +} + +@article{Coll:95a, +author = {Collins , M. and James , I. N.}, +journal = jgr, +number = {E7}, +pages = {14421-14432}, +title = {Regular and irregular baroclinic waves in a simplified global circulation model of the {Martian} atmosphere}, +volume = {100}, +year = {1995} +} + +@misc{Forg:95dps, +author = {Forget, F. and Hansen , G.B. and Pollack , J.B.}, +howpublished = {Oral presentation at the 27th annual DPS meeting +(Kona). Abstracts book, p44}, +title = {Low brightness temperatures of {Martian} polar caps}, +year = {1995} +} + +@misc{Habe:95dps, +author = {Haberle, R. M. and Schaeffer , J.}, +howpublished = {Oral presentation at the 27th annual DPS meeting +(Kona). Abstracts book, p12}, +title = {Obliquity experiment with a Mars general circulation model}, +year = {1995} +} + +@misc{Wood:95, +author = {Wood, S. E. and Richardson, M. I. and Paige, D. A.}, +howpublished = {Oral presentation at the 27th annual DPS meeting (Kona). Abstracts book, p44}, +title = {Microphysical and radiative processes in {CO$_2$} snow on {Mars}}, +year = {1995} +} + +@misc{Tala:95dps, +author = {Talagrand , O. and Forget , F. and Hourdin , F. and Read , P. and Collins, M. and Lewis , S.}, +howpublished = {Oral presentation at the 27th annual DPS meeting (Kona). Abstracts book, p13}, +title = {A plan for developing a {Martian} climate database}, +year = {1995} +} + +@misc{Hour:95dps, +author = {Hourdin , Fr\'ed\'eric and Talagrand , O. and Courtin , R. and Gautier , D. and McKay , C. P.}, +howpublished = {Oral presentation at the 27th annual DPS meeting (Kona). Abstracts book, p51}, +title = {Atmospheric superrotation on {Titan}}, +year = {1995} +} + +@article{Forg:93dps, +author = {Forget , F. and Pollack , J. B.}, +journal = baas, +note = {Oral presentation at the 25th annual DPS meeting (Boulder)}, +pages = {1070}, +title = {Impact of the {CO$_2$} and {H$_2$O} clouds of the {Martian } polar hood on the polar energy balance}, +volume = {25}, +year = {1993} +} + +@unpublished{Hour:89, +author = {Hourdin , Fr\'ed\'eric}, +note = {stage de DEA "Astrophysique et T\'echniques spatiales" Universit\'e Paris 7}, +title = {Adaptation du Mod\`ele de Circulation G\'en\'eral du \protect{LMD} aux conditions \protect{Martiennes}}, +year = {1989} +} + +@book{Good:89, +author = {Goody , R. M. and Yung , Y. L.}, +address = {200 Madison Avenue, New York, New York 10016}, +edition = {second}, +publisher = {Oxford University Press.}, +title = {Atmospheric Radiation, Theoretical Basis}, +year = {1989} +} + +@article{Brig:77, +author = {Briggs , Geoffrey and Klaasen , Kenneth and Thorpe , Thomas and Wellman , John}, +journal = jgr, +pages = {4121-4149}, +title = {Martian dynamical phenomenon during {June-November} 1976: \protect{Viking} orbiter imaging results}, +volume = {82}, +year = {1977} +} + +@article{Brig:74, +author = {Briggs , G. A. and Leovy , C. B.}, +journal = bams, +pages = {278-296}, +title = {Mariner 9 observations of the \protect{Mars} north polar hood}, +volume = {55}, +year = {1974} +} + +@article{Brig:74b, +author = {Briggs, G. A}, +journal = {Icarus}, +pages = {167-191}, +title = {The nature of the residual {Martian} polar caps}, +volume = {23}, +year = {1974} +} + +@article{Klio:73, +author = {Kliore , A. J. and Fjeldbo , G. and Seidel, B. L. and Woiceshyn , P. M.}, +journal = jgr, +pages = {4331-4350}, +title = {S band occultation measurements of the atmosphere and topography of \protect{Mars} with \protect{Mariner} 9: {Extended} mission coverage of polar intermediate latitudes}, +volume = {78}, +year = {1973} +} + +@article{Klio:72, +author = {Kliore , A. J. and Cain , D. L. and Fjeldbo , G. and Seidel , B. L. and +Sykes , M. J.}, +journal = {Icarus}, +pages = {484-516}, +title = {The atmosphere of {Mars from Mariner 9} radio occultation +measurements}, +volume = {17}, +year = {1972} +} + +@article{Vere:77, +author = {Vereka , J. and Thomas , P. and Greeley , R.}, +journal = jgr, +pages = {4167-4187}, +title = {A study of variables fitures on \protect{Mars} during the \protect{Viking} primary mission}, +volume = {82}, +year = {1977} +} + +@article{Conr:73, +author = {Conrath , B. and Curran , R. and Hanel , R. and Kunde , V. and Maguire , W. and Pearl , J. and Pirraglia , J. and Welker , J. and Burke , T.}, +journal = jgr, +pages = {4267-4278}, +title = {Atmospheric and surface properties of \protect{Mars} obtained by infrared spectroscopy on \protect{Mariner} 9}, +volume = {78}, +year = {1973} +} + +@article{Chri:84, +author = {Christensen , P. R. and Zurek , R. W.}, +journal = jgr, +pages = {4587-4596}, +title = { Martian north polar hazes and surface ice: {Results} from the \protect{Viking} survey/completion mission}, +volume = {89}, +year = {1984} +} + +@article{Conr:75, +author = {Conrath , B. J.}, +journal = {Icarus}, +pages = {36-46}, +title = {Thermal structure of the \protect{Martian} atmosphere during the dissipation of dust storm of 1971}, +volume = {24}, +year = {1975} +} + +@techreport{Chri:94, +author = {Christensen , P. R. and Edgett , K. S.}, +institution = {LPI}, +number = {94-04}, +title = {Physical properties ({Particle size, rock abundance}) from thermal infrared remote observations : implication for {Mars} landing site}, +year = {1994} +} + +@article{Ditt:79, +author = {Ditteon, R. and Kieffer, H. H.}, +journal = jgr, +pages = {8294-8300}, +title = {Optical properties of solid {CO$_2$}: {Application} to {Mars}}, +volume = {84}, +year = {1979} +} + +@article{Chri:75, +author = {Christensen, E. J.}, +journal = jgr, +pages = {2909-2913}, +title = {Martian topography derived from occultation, radar, spectral, and optical measurements}, +volume = {80}, +year = {1975} +} + +@unpublished{Paig:92a, +author = {Paige , David A. and Bachman , Jennifer E. and Keegan K. D.}, +note = {Submitted to the Jour. Geophys. Res}, +title = {Thermal and albedo mapping of the polar regions of {Mars} using {Viking} thermal mapper observations : 1. {North} polar region}, +year = {1992} +} + +@inproceedings{Simp:92, +author = {Simpson , Richard A. and Harmon , John K. and Zisk , Stanley H. and Thompson , T. W. and Muhleman , Duane O.}, +booktitle = {Mars}, +pages = {pp.~652-685}, +publisher = {University of Arizona Press, Tucson}, +title = {Radar determination of {Mars} surface properties}, +year = {1992} +} + +@article{Fjel:77, +author = {Fjeldbo , Gunnar and Sweetnam , Donald and Brenkle , Joseph and Christensen , Edward and Farless , Jitendra and Seidel , Boris and Michael , William and Wallio , Andrew and Grossi , Marioand}, +journal = jgr, +pages = {4317-4324}, +title = {Viking radio occultation measurements of the {Martian} atmosphere and topography: primary coverage}, +volume = {82}, +year = {1977} +} + +@article{Farm:77, +author = {Farmer , C. B. and Davies , D. W. and Holland , A. L. and La Porte , D. D. and Doms , P. E.}, +journal = jgr, +pages = {4225-4248}, +title = {Mars: water vapor observations from the \protect{Viking} orbiters}, +volume = {82}, +year = {1977} +} + +@article{Farm:79, +author = {Farmer , C. B. and Doms , P. E.}, +journal = jgr, +number = {B6}, +pages = {2881-2888}, +title = {Global seasonal variation of water vapor on \protect{Mars} and the implications for permafrost}, +volume = {84}, +year = {1979} +} + +@article{Kief:77, +author = {Kieffer , Hugh H. and Martin , T. Z. and Peterfreund , R. and Jakosky , Bruce M. and Miner , Ellis D. and Palluconi , Frank Don}, +journal = jgr, +pages = {4249-4291}, +title = {Thermal and albedo mapping during the \protect{Viking} primary mission}, +volume = {82}, +year = {1977} +} + +@article{Kief:76b, +author = {Kieffer , H. H. and Christensen , P. R. and Martin , T. Z. and +Miner, E. D. and Palluconi , F. D.}, +journal = {Science}, +pages = {1346-1351}, +title = {Infrared thermal mapping of the {Martian} surface and atmosphere: {Viking} observation of diurnal and geometric observation}, +volume = {194}, +year = {1976} +} + +@article{Kerz:77, +author = {Kerzhanovich , V. V.}, +title = "{Mars 6 - Improved analysis of the descent module measurements}", +journal = {Icarus}, +pages = {1-25}, +doi = {10.1016/0019-1035(77)90117-8}, +volume = {30}, +year = {1977} +} + +@article{Owen:77, +author = {Owen , Tobias and Biemann , K. and Rushneck , D. R. and Biller , J. E. and Howarth , D. W. and Lafleur , A. L.}, +journal = jgr, +pages = {4635-4639}, +title = {The composition of the atmosphere at the surface of \protect{Mars}}, +volume = {82}, +year = {1977} +} + +@article{Squy:94, +author = {Squyres, S.W. and Kasting , J.F.}, +journal = {Science}, +pages = {744-749}, +title = {Early {Mars} , how warm and how wet?}, +volume = {265}, +year = {1994} +} + +@article{Davi:79, +author = {Davies , D. W.}, +journal = jgr, +number = {B14}, +pages = {8335-8340}, +title = {The relative humidity of \protect{Mars} atmosphere}, +volume = {84}, +year = {1979} +} + +@article{Davi:79a, +author = {Davies , Donald W.}, +journal = jgr, +number = {B6}, +pages = {2875-2879}, +title = {The vertical distribution of \protect{Mars} water vapor}, +volume = {84}, +year = {1979} +} + +@article{Owen:72, +author = {Owen , T. and Sagan , C.}, +journal = {Icarus}, +pages = {557-568}, +title = {Minor constituents in planetary atmospheres: {Ultraviolet} spectroscopy from the {Orbiting Astronomical Observatory}}, +volume = {16}, +year = {1972} +} + +@article{Davi:79c, +author = {Davies , Donald W.}, +journal = jgr, +pages = {8289-8293}, +title = {Effect of dust on the heating of {Mars's} surface and atmosphere}, +volume = {84}, +year = {1979} +} + +@article{Poll:85, +author = {Pollack , James B. and McKay C. P.}, +journal = sci, +pages = {245-262}, +title = {The impact of polar stratospheric clouds on the heating rates of the winter polar stratosphere}, +volume = {42}, +year = {1985} +} + +@article{Poll:77, +author = {Pollack , James B. and Colburn , David and Kahn , Ralph and Hunter , June and Warren , Van Camp and Carlston , C. E. and Wolf , M. R.}, +journal = jgr, +pages = {4479-4496}, +title = {Properties of aerosols in the {Martian} atmosphere, as infered from \protect{Viking} lander imaging data}, +volume = {82}, +year = {1977} +} + +@inproceedings{Seif:83, +author = {Seiff , A.}, +booktitle = {Venus}, +crossref = {Hunt:83}, +pages = {215-279}, +title = {Thermal structure of the atmosphere of \protect{Venus}}, +year = {1983} +} + +@article{Seif:77, +author = {Seiff , Alvin and Kirk , Donn B.}, +journal = jgr, +pages = {4364-4378}, +title = {Structure of the atmosphere of \protect{Mars} in summer mid-latitudes}, +volume = {82}, +year = {1977} +} + +@inproceedings{Ekon:83, +author = {Ekonomov , A. P. and Golovin , Yu. M. and Moroz , M. I. and Moshkin , B. Ye}, +booktitle = {Venus}, +crossref = {Hunt:83}, +pages = {632-649}, +title = {Solar scattered raiation measurements by \protect{Venus} probes}, +year = {1983} +} + +@inproceedings{Schu:83, +author = {Schubert , Gerald}, +booktitle = {Venus}, +crossref = {Hunt:83}, +pages = {681-765}, +title = {General ciruclation and the dynamical state of the \protect{Venus} atmosphere}, +year = {1983} +} + +@inproceedings{Kerz:83, +author = {Kerzhanovich , V. V. and Marov , M. Ya. Marov}, +booktitle = {Venus}, +crossref = {Hunt::83}, +pages = {766-778}, +title = {The atmospheric dyanmics of \protect{Venus} according to \protect{Doppler} measurements by the \protect{Venera} entry probes}, +year = {1983} +} + +@inproceedings{Toma:83, +author = {Tomasko , Martin G.}, +booktitle = {Venus}, +crossref = {Hunt:83}, +pages = {604-631}, +title = {The thermal balance of the lower atmosphere of \protect{Venus}}, +year = {1983} +} + +@article{Cour:28, +author = {Courant , R. and Friedrichs , K. O. and Lewy , H.}, +title = {On the Partial Difference Equations of Mathematical Physics}, +journal = {Math. Ann.}, +pages = {32}, +volume = {100}, +year = {1928} +} + +@book{Oort:83, +author = {Oort , Abraham H.}, +publisher = {NOAA}, +series = {NOAA profesional paper}, +title = {Global Atmospheric Circulations Statics, 1958-1973}, +volume = {14}, +year = {1983} +} + +@article{Huss:86, +author = {Husson , N. and Ch\'edin , A. and Scott , N. A. and Bailly , D. and Graner , G. and Lacome , N. and Levy , A. and Rossetti , C. and Tarrago , G. and Camy-Peyret , C. and Flaud , J. M. etc.}, +journal = ang, +pages = {185-190}, +title = {The \protect{GEISA} spectroscopic line parameters data bank in 1984}, +volume = {4}, +year = {1986}, +anotate = " and Bauer , A. , and Colmont , J. M. and Monnanteuil , N. and Hilico , J. C. and Pierre , G. and Loete , M. and Champion , J. P. and Rothman , L. S. and Brown , L.R. and Orton , G. and Varanasi , P. and Rinsland , C. P. and Smith , M. A. H. and Goldman , A." +} + +@article{Fouq:74, +author = {Fouquart , Yves}, +journal = jqsrt, +pages = {497-508}, +title = {Utilisation des approximants de Pad\'e pour l'\'etude des largeurs \'equivalentes des raies form\'ees en atmosph\`ere diffusante}, +volume = {14}, +year = {1974} +} + +@article{Tala:88, +author = {Talagrand , O.}, +journal = {La Recherche}, +pages = {1010-1021}, +title = {La dynamique des atmosph\`eres plan\'etaires}, +volume = {19}, +year = {1988} +} + +@article{Tala:86, +author = {Talagrand , O.}, +journal = {Bull. de la Soc. Fran\c{c}aise de Phys.}, +pages = {3-8}, +title = {La circulation des atmosph\`eres plan\'etaires}, +volume = {61}, +year = {1986} +} + +@inproceedings{Tala:92, +author = {Talagrand , O. and Hourdin , F. and Forget , F.}, +booktitle = {Atmospheres, Hydrospheres and Space Sciences}, +organization = {European Geophysical Scociety}, +pages = {Suppl:III,C--494}, +title = {Numerical simulation of the circulation of the \protect{Martian} atmosphere}, +volume = {10}, +year = {1992} +} + +@inproceedings{Hour:92c, +author = {Hourdin , F. and Talagrand , O. and Le Van , Phu and Courtin , R. and Gautier , D. and McKay , C. P.}, +booktitle = {Atmospheres, Hydrospheres and Space Sciences}, +organization = {European Geophysical Scociety}, +pages = {Suppl:III,C--496}, +title = {Study of atmospheric superrotation: Numerical simulations}, +volume = {10}, +year = {1992} +} + +@article{Will:82, +author = {Williams , Gareth P. and Holloway , J. Leith Jr}, +journal = {Nature}, +pages = {295-299}, +title = {The range and unity of planetary circulations}, +volume = {297}, +year = {1982} +} + +@article{Inge:90, +author = {Ingersoll , Andrew P.}, +journal = {Science}, +pages = {308-315}, +title = {Atmospheric dynamics of the outer planets}, +volume = {248}, +year = {1990} +} + +@article{Inge:90triton, +author = {Ingersoll, A. P.}, +journal = {Nature}, +pages = {315-316}, +title = {Dynamic of {Triton}'s atmosphere}, +volume = {344}, +year = {1990} +} + +@article{Traf:84, +author = {Trafton, L.}, +journal = {Icarus}, +pages = {312-324}, +title = {Large seasonal variations in {Triton's} atmosphere}, +volume = {58}, +year = {1984} +} + +@article{Inge:85, +author = {Ingersoll, A. P. and Summers, M. E. and Schlipf, S. G.}, +journal = {Icarus}, +pages = {375-390}, +title = {Supersonic meteorology of {Io} - sublimation - driven flow of {SO}$_2$}, +volume = {64}, +year = {1985} +} + +@article{Inge:93, +author = {Ingersoll, A. P. and Lyons , J. R.}, +journal = jgr, +pages = {10951-10961}, +title = {Mars dust storms: interranual variability and chaos}, +volume = {98}, +year = {1993} +} + +@article{Traf:83, +author = {Trafton, L. and Stern, S. A.}, +journal = {Astophysical Journal}, +pages = {872-881}, +title = {On the global distribution of {Pluto}'s atmosphere}, +volume = {267}, +year = {1983} +} + +@article{Land:90, +author = {Landberg , Lars and Tillman , James E. and Larsen , Soren E.}, +journal = {manuscript}, +title = {Turbulence spectra from the boundary layer of \protect{Mars}}, +year = {1990} +} + +@incollection{Kasa:77, +author = {Kasahara , Akira}, +booktitle = {Methods in computational physics}, +editor = {Julius Chang}, +journal = {Methods in Computational Physics}, +pages = {1-66}, +publisher = {Academic press, inc.}, +title = {Computational aspects of numerical models for weather prediction and climate simulation}, +volume = {17}, +year = {1977} +} + +@techreport{LeVa:89, +author = {Le Van , Phu}, +address = {24 rue Lhomond/75 231 Paris CEDEX 05}, +institution = {Laboratoire de M\'et\'eorologie Dynamique du CNRS}, +month = {Note interne}, +number = {147}, +title = {Description de directives pour l'utilisation de la nouvelle dynamique du \protect{Mod\`ele} de \protect{Circulation} \protect{G\'en\'erale}}, +year = {1989} +} + +@phdthesis{Cass:89, +author = {Cass\'e , Vincent}, +school = {Universit\'e Paris VI}, +title = {Elaboration d'un mod\`ele coupl\'e oc\'ean tropical--atmosph\`ere globale}, +type = {Th\`ese}, +year = {1989} +} + +@article{Zure:93, +author = {Zurek , Richard W. and Martin , Leonard J.}, +journal = jgr, +number = {E2}, +pages = {3247-3259}, +title = {Interannual variability of planet-encircling dust storms on {Mars}}, +volume = {98}, +year = {1993} +} + +@article{Lell:93, +author = {Lellouch, E. and Goldstein, J. J. and Bougher , S. and Theodore, B. and Rosenqvist , J.}, +journal = baas, +pages = {1060}, +title = {{Mars'} middle atmosphere circulation near equinox from microwave observations}, +volume = {25}, +year = {1993} +} + +@article{Zure:82, +author = {Zurek, R. W.}, +journal = {Icarus}, +pages = {288-310}, +title = {Martian great dust storm, an update}, +volume = {50}, +year = {1982} +} + +@article{Paig:85, +author = {Paige , D. A. and Ingersoll , A. P.}, +journal = {Science}, +pages = {1160-1168}, +title = {Annual heat balance of \protect{Martian} polar caps: \protect{Viking} observations}, +volume = {228}, +year = {1985} +} + +@phdthesis{Holl:92, +author = {Hollingsworth , J. L.}, +school = {Oreg. State Univ., Corvallis}, +title = {Modeling the forced planetary waves in the {Mars} atmosphere}, +year = {1992} +} + +@phdthesis{Paig:85phd, +author = {Paige , David A.}, +school = {Calif. Inst. of Technol., Pasadena}, +title = {{\em The annual heat balance of the {Martian} polar caps from {Viking} observations}}, +year = {1985} +} + +@article{Paig:90, +author = {Paige, David A. and Crisp, David and Santee , M. L.}, +journal = baas, +pages = {1075}, +title = {It snows on {Mars}}, +volume = {22}, +year = {1990} +} + +@misc{w +} + +@article{Paig:92, +author = {Paige , David A. and Wood , Stephen E.}, +journal = {Icarus}, +pages = {15-27}, +title = {Modeling the \protect{Martian} Seasonal {$CO_2$} Cycle: 2. Interannual variability}, +volume = {99}, +year = {1992} +} + +@article{Poll:93, +author = {Pollack , J. B. and Haberle , R. M. and Murphy , J. R. and Shaeffer , J. and Lee , H.}, +journal = jgr, +pages = {3149-3181}, +title = {Simulation of the general circulation of the \protect{Martian} atmosphere \protect{2}, {Seasonnal} pressure variations}, +volume = {98}, +year = {1993} +} + +@article{Paig:94s, +author = {Paige , David A. and Keegan , K. D.}, +journal = jgr, +pages = {25993-26013}, +title = {Thermal and Albedo Mapping of the Polar Regions of {Mars}, 2, {South} Polar Region}, +volume = {99}, +year = {1994} +} + +@article{Poll:93venus, +author = {Pollack , J. B. and Dalton , J. B. and Grinspoon , D. and +Wattson , D. R. B. and Freedman , R. and Crisp , D.}, +journal = {Icarus}, +pages = {1-42}, +title = {Near-infrared light from +{Venus} nightside: {A} spectroscopic analysis}, +volume = {103}, +year = {1993} +} + +@article{Poll:95, +author = {Pollack , J. B. and Ockert-Bell , M. E. and Shepard , M. K.}, +journal = jgr, +pages = {5235-5250}, +title = {Viking {Lander} image analysis of {Martian} atmospheric dust}, +volume = {100}, +year = {1995} +} + +@article{Habe:93, +author = {Haberle , R. M. and Pollack , J. B. and Barnes , J. R. and Zurek , R. W. and Leovy , C. B. and Murphy , J. R. and Lee , H. and Schaeffer , J.}, +journal = jgr, +number = {E2}, +pages = {3093-3124}, +title = {Mars Atmospheric Dynamics as Simulated by the \protect{NASA/Ames} General Circulation model, 1, The zonal-Mean Circulation}, +volume = {98}, +year = {1993} +} + +@article{Habe:93pbl, +author = {Haberle , R.M. and Houben , H. C. and Hertenstein, R. and Herdtle,,T.}, +journal = jas, +month = {june}, +pages = {1544-1559}, +title = {A boundary layer model for {Mars}: {Comparison} with {Viking Lander} and entry data}, +volume = {50}, +year = {1993} +} + +@phdthesis{Siil:94, +author = {Siili , Tero}, +school = {Helsinki University of Technology}, +title = {Numerical studies of some surface-induced mesoscale phenomena in the {Martian} atmosphere}, +year = {1994} +} + +@article{Hane:72, +author = {Hanel, R. and Conrath, R. and Hovis, W. and Kunde, V. and Lowman, P. and Maguire, W. and +Pearl, J. and Pirraglia, J. and Prabhakara, C. and Schlachman, B. and Levin, G.}, +journal = {Icarus}, +pages = {423-442}, +title = {Investigation of the {Martian} environment by infrared spectroscopy on {Mariner} 9}, +volume = {17}, +year = {1972} +} + +@article{Poll:82, +author = {Pollack , James B.}, +journal = asr, +pages = {43-56}, +title = {Properties and effects of \protect{Martian} atmospheric dust}, +volume = {2}, +year = {1982} +} + +@article{Warr:90, +author = {Warren , S. G. and Wiscombe , W. J. and Firestone , J. F.}, +journal = jgr, +pages = {717-741}, +title = {Spectral albedo and emissivity of {CO}$_2$ in \protect{Martian} polar caps: model results}, +volume = {95}, +year = {1990} +} + +@article{Wood:92, +author = {Wood , S. E. and Paige , D. A.}, +journal = {Icarus}, +pages = {1-14}, +title = {Modeling the {Martian} seasonal {CO$_2$} Cycle: {Fitting} the \protect{Viking} lander pressure curves}, +volume = {99}, +year = {1992} +} + +@article{Wood:84, +author = {Woodward , P. R. and Colella , Phillip}, +journal = jcp, +pages = {115-173}, +title = {The numerical simulation of Two-dimensional fluid flow with strong shocks}, +volume = {54}, +year = {1984} +} + +@article{Wood:81, +author = {Woodward , P. R. and Colella , P.}, +journal = lnp, +pages = {434--441}, +title = {High resolution difference schemes for compressible gaz dynamics}, +volume = {141}, +year = {1981} +} + +@article{Carp:90, +author = {Carpenter , R. L. and Droegemeier , K. K. and Woodward , P. R. and Hane , C. E.}, +journal = mwr, +pages = {586--612}, +title = {Application of the Piecewise Parabolic Method ({PPM}) to meteorological modeling}, +volume = {118}, +year = {1990} +} + +@article{Leig:66, +author = {Leighton , R. R. and Murray , B. C.}, +journal = sci, +pages = {136-144}, +title = {Behavior of carbon dioxide and other volatiles on \protect{Mars}}, +volume = {153}, +year = {1966} +} + +@article{Paig:94n, +author = {Paige , D. A. and Bachman , J. E. and Keegan , K. D.}, +journal = jgr, +pages = {25959-25991}, +title = {Thermal and albedo mapping of the polar regions of {Mars} using {Viking} thermal mapper observations, 1, {North} polar region}, +volume = {99}, +year = {1994} +} + +@techreport{Warr:86, +author = {Warrilow , D. A. and Sangster , A. B. and Slingo , A.}, +address = {Meteorological Office, London Road, Bracknell, Berkshire RG12 2SZ}, +institution = {UKMO}, +number = {DCTN 38}, +title = {Modeling of land surface processes and their influence on \protect{European} climate}, +year = {1986} +} + +@article{Warr:86co2, +author = {Warren, S. G.}, +journal = {Appl. Opt.}, +pages = {2650-2674}, +title = {Optical constants of carbon dioxide ice}, +volume = {25}, +year = {1986} +} + +@article{Barn:81, +author = {Barnes , Jeffrey R.}, +journal = jas, +number = {2}, +pages = {225-234}, +title = {Midlatitude disturbances in the \protect{Martian} atmosphere: A second \protect{Mars} year}, +volume = {38}, +year = {1981} +} + +@misc{pola +} + +@article{Barn:80, +author = {Barnes , J. R.}, +journal = jas, +pages = {2002-2015}, +title = {Time spectral analysis of the midlatitude disturbances in the \protect{Martian} atmosphere}, +volume = {37}, +year = {1980} +} + +@article{Barn:87, +author = {Barnes , Jeffey R. and Hollingsworth , Jeffrey L.}, +journal = {Icarus}, +pages = {313-334}, +title = {Dynamical modeling of a planetary wave mechanism for a \protect{Martian} polar warming}, +volume = {71}, +year = {1987} +} + +@article{Poll:81, +author = {Pollack , James B. and Leovy , Coneway B. and Greiman , Paul W. and Mintz , Yale}, +journal = jas, +pages = {3-29}, +title = {A \protect{Martian} \protect{General} \protect{Circulation} \protect{Model} Experiment with Large Topography}, +volume = {38}, +year = {1981} +} + +@inproceedings{Bill:92, +author = {Billebaud , F. and Rosenqvist , J. and Maillard , J. P. and Lellouch , E. and Encrenaz , T. and Hourdin , F.}, +booktitle = {EGS}, +title = {Search for spatial variations in the \protect{CO} abundance on \protect{Mars} at $2.3\mu$m}, +year = {1998} +} + +@inproceedings{Mart:91, +author = {Martin , T. Z.}, +address = {Headington Hill Hall, Oxford OX2 0BW, England}, +booktitle = {The environmental model of \protect{Mars}}, +editor = {Szeg\"o K.}, +pages = {89-100}, +publisher = {Pergamon press plc}, +series = {COSPAR Colloquia series}, +title = {Thermal environnement of \protect{Mars}.}, +volume = {2}, +year = {1991} +} + +@article{Mart:79, +author = {Martin , Terry Z. and Peterfreund , Alan R. and Miner , Ellis D. and Kieffer , Hugh H. and Hunt , Garry E.}, +journal = jgr, +pages = {2381-2842}, +title = {Thermal infrared properties of the \protect{Martian} atmosphere, 1, {Global} behavior at 7, 9, 11 and 20 \protect{$\mu$m}}, +volume = {84}, +year = {1979} +} + +@article{Mart:79a, +author = {Martin , Terry Z. and Kieffer , Hugh H.}, +journal = jgr, +number = {B6}, +pages = {2843-2852}, +title = {Thermal infrared properties of the \protect{Martian} atmosphere, 2, The \protect{$15-\mu$m} band measurements}, +volume = {84}, +year = {1979} +} + +@article{Pete:79, +author = {Peterfreund , Alan R. and Kieffer , Hugh H.}, +journal = jgr, +number = {B6}, +pages = {2853-2863}, +title = {Thermal infrared properties of the \protect{Martian} atmosphere: 3. local dust clouds}, +volume = {84}, +year = {1979} +} + +@article{Hunt:79a, +author = {Hunt , Garry E.}, +journal = jgr, +number = {B6}, +pages = {2865-2879}, +title = {Thermal IR properties of the \protect{Martian} atmosphere: 4. Predictions of the resence of Dust and ice clouds from \protect{Viking} \protect{IRTM} spectral measurements}, +volume = {84}, +year = {1979} +} + +@article{Mart:86, +author = {Martin , Terry Z.}, +journal = {Icarus}, +pages = {2-21}, +title = {Thermal infrared opacity of the \protect{Mars} atmosphere}, +volume = {66}, +year = {1986} +} + +@techreport{Polc:91q, +author = {Polcher , J. and Harzallah , A. and Bony , S.a and Chalita , S. N. and Cohen-Solal , E. and Forichon , M. and Hourdin , F. and LeTreut , H. and Le Van , P. and Li , Z. X. and Rogel , P.}, +address = {ENS/24 rue Lhomond/75 005 Paris}, +institution = {LMD / CNRS}, +number = {170}, +title = {Le cycle 5 du \protect{Mod\`ele} de \protect{Circulation} \protect{G\'en\'erale} du \protect{LMD}}, +type = {Note interne}, +year = {1991} +} + +@misc{pol, +author = { } +} + +@book{Chan:60, +author = {Chandrasekhar , S.}, +address = {180 Varick Street, New York}, +publisher = {Dover publications}, +title = {Radiative transfer}, +year = {1960} +} + +@techreport{Polc:91a, +author = {Polcher , Jan and Hourdin , Fr\'ed\'eric}, +institution = {LMD}, +number = {162}, +title = {Une gestion orient\'ee \protect{UNIX} du mod\`ele de circulation g\'en\'erale du \protect{LMD}}, +type = {note interne}, +year = {1991} +} + +@techreport{Hour:91c, +author = {Hourdin , Fr\'ed\'eric and Polcher , Jan and Li , Zhao Xin}, +institution = {LMD}, +number = {161}, +title = {Vers une meilleur utilisation du logiciel \protect{UNIRAS}. Pr\'esentation de la biblioth\`eque commune de programmes graphiques lmdgraph et de la norme lmdstd d'\'ecriture des fichiers}, +type = {note interne}, +year = {1991} +} + +@article{Hour:92, +author = {Hourdin , Fr\'ed\'eric}, +journal = jgr, +number = {E11}, +pages = {18,319-18,335}, +title = {A new representation of the \protect{CO$_2$ 15~$\mu$m} band for a \protect{Martian} General Circulation Model}, +volume = {97}, +year = {1992} +} + +@article{Leov:82, +author = {Leovy, C. B.}, +journal = {Adv. Space Res.}, +pages = {19-44}, +title = {Martian meteorological variability}, +volume = {2}, +year = {1982} +} + +@article{Leov:85, +author = {Leovy, Conway}, +journal = {Adv. Geophys}, +pages = {327-346}, +title = {The general circulation of {Mars} : {Model} and observations.}, +volume = {28a}, +year = {1985} +} + +@article{Curt:52, +author = {Curtis , A. R.}, +journal = qjr, +pages = {638}, +title = {Contribution to a discussion of a statistical model for water vapor absorption', by \protect{R. M. Goody}}, +volume = {78}, +year = {1952} +} + +@article{Mart:81, +author = {Martin, T. Z.}, +journal = {Icarus}, +pages = {427-446}, +title = {Mean thermal and albedo behavior of the {Mars} surface and atmosphere over a {Martian} year}, +volume = {45}, +year = {1981} +} + +@article{Gods:53, +author = {Godson , W. L.}, +journal = qjr, +pages = {367}, +title = {The evaluation of infra-red radiative fluxes due to atmospheric vater vapor}, +volume = {79}, +year = {1953} +} + +@article{Hour:93, +author = {Hourdin , F. and Le Van , Phu and Forget , F. and Talagrand , O.}, +journal = jas, +pages = {3625-3640}, +title = {Meteorological variability and the annual surface pressure cycle on \protect{Mars}}, +volume = {50}, +year = {1993} +} + +@inproceedings{Forg:94lpi, +author = {Forget , F. and Hourdin , F. and Talagrand , O.}, +booktitle = {{Mars Pathfinder Landing}}, +series = {LPI Technical Report}, +title = {Mars pathfinder meteorological observations on the basis of results of an atmospheric general circulation model}, +volume = {94-04}, +year = {1994} +} + +@article{Forg:94egs, +author = {Forget , F. and Pollack, J.B.}, +journal = {Annales Geophysicae}, +note = {Oral presentation at the 19th annual European Geophysical Society meeting}, +pages = {613}, +title = {Climatology and impact of the {Martian CO$_2$ and H$_2$O polar clouds from thermal infrared data}}, +volume = {12}, +year = {1994} +} + +@article{Tala:94egs, +author = {Talagrand , O. and Hourdin , F. and Forget , F.}, +journal = {Annales Geophysicae}, +note = {Oral presentation at the 19th annual European Geophysical +Society meeting}, +pages = {613}, +title = {The {Viking} pressure measurements and the {LMD Martian +atmospheric GCM}}, +volume = {12}, +year = {1994} +} + +@article{Hour:94egs, +author = {Hourdin , F and Talagrand , O. and Courtin , R. and Gautier , D. and McKay , C.P.}, +journal = {Annales Geophysicae}, +note = {Oral presentation at the 19th annual European Geophysical +Society mee +ting}, +pages = {613}, +title = {A strong atmospheric superrotation on {Titan}: numerical results}, +volume = {12}, +year = {1994} +} + +@article{Hans:94, +author = {Hansen , Garry B.}, +journal = baas, +pages = {1114}, +title = {Low brightness temperatures of {Martian} polar deposits: {New} insight from recent measurement of {CO$_2$} ice.}, +volume = {26}, +year = {1994} +} + +@article{Hans:90, +author = {Hansen, C. A. and {McEwen}, A. S. and Ingersoll, A. P. and Terrile, R. J.}, +journal = {Science}, +pages = {421-424}, +title = {Surface and airborne evidence for plumes and winds on {Triton}}, +volume = {250}, +year = {1990} +} + +@unpublished{Hour:94, +author = {Hourdin, Fr\'ed\'eric and Talagrand, Olivier}, +note = {submitted to J.~Atmosph.~Sci.}, +title = {Superrotation of Planetary Atmospheres: a Numerical Study}, +year = {1994} +} + +@article{Hour:95b, +author = {Hourdin , Fr\'ed\'eric and Talagrand , Olivier and Sadourny , Robert and Courtin R\'egis and Gautier , Daniel and McKay , Christopher P.}, +journal = {Icarus}, +pages = {358-374}, +title = {General Circulation of the Atmosphere of {Titan}}, +volume = {117}, +year = {1995} +} + +@article{Cour:94, +author = {Courtier , P. and Thepaut , J.-N. and Hollingsworth , A.}, +journal = qjrms, +pages = {1367-1387}, +title = {A strategy for implementation of 4D-Var, using an incremental approach}, +volume = {120}, +year = {1994} +} + +@phdthesis{Forg:these, +author = {Forget , Fran\c{c}ois}, +school = {Université Paris 6}, +title = {Le climat de la plan{è}te {Mars}~: de l'importance des poussi{ères} et des régions polaires}, +year = {1994} +} + +@phdthesis{Murp:91, +author = {Murphy , J. R.}, +address = {Seattle}, +school = {Univ. of Washington}, +title = {A dimensional hierarchy of numerical simulations of {Martian} global dust storms}, +year = {1991} +} + + +@article{Barn:93, +author = {Barnes , J. R. and Pollack , J. B. and Haberle , R. M. and Zurek , R. W. and Leovy , C. B. and Lee , H and Schaeffer , J.}, +journal = jgr, +number = {E2}, +pages = {3125-3148}, +title = {Mars atmospheric dynamics as simulated by the \protect{NASA/Ames} General Circulation Model, \protect{2}, {Transient} baroclinic eddies}, +volume = {98}, +year = {1993} +} + +@article{Bert:69, +author = {Bertie}, +journal = {J.~Chem.~Phys}, +pages = {4501}, +volume = {50}, +year = {1969} +} + +@misc{Brig +} + +@article{Leca:91, +author = {Lecacheux , J. and Drossart , P. and Buil , C. and Laques , P. and Thouvenot , E. and Gu\'erin , P.}, +journal = pss, +pages = {273-279}, +title = {\protect{CCD} images of \protect{Mars} with the $1m$ reflector atop \protect{Pic-du-Midi}}, +volume = {39}, +year = {1991} +} + +@techreport{Hour:92e, +author = {Hourdin , F.}, +institution = {Lab. de M\'et\'eorol Dyn., Cent. Nat. de la Rech. +Sci., Paris}, +number = {175}, +title = {Conservation du moment angulaire dans le mod\`ele de circulation g\'en\'erale du \protect{LMD}}, +type = {Note Interne}, +year = {1992} +} + +@article{Basd:78, +author = {Basdevant , Claude and Lessieur , M. and Sadourny , R.}, +journal = jas, +pages = {1028-1042}, +title = {Subgrid scale modeling of enstrophy transfer in two-dimensional turbulence}, +volume = {35}, +year = {1978} +} + +@article{Hess:79, +author = {Hess , Seymour L. and Henry , Robert H. and Tillman , James E.}, +journal = jgr, +number = {B6}, +pages = {2923-2927}, +title = {The seasonal variation of atmospheric pressure on \protect{Mars} as affected by the south polar cap}, +volume = {84}, +year = {1979} +} + +@article{Hess:79b, +author = {Hess , Seymour L.}, +journal = jgr, +pages = {2969-2973}, +title = {Static stability and thermal wind in an atmosphere of +variable composition: {Application} to {Mars}}, +volume = {84}, +year = {1979} +} + +@article{Hudg:93, +author = {Hudgins , D. M. and Sanford , S. A. and Allamandola , L. J. and Tielens , A. G. G. M.}, +journal = {J.~Astrophys.~Jour.~Suppl.~Ser.}, +pages = {713-870}, +title = {Mid and far-infrared spectroscopy of ices: {Optical} constants and +integrated absorbances}, +volume = {86}, +year = {1993} +} + +@article{Hunt:80, +author = {Hunt, G. E.}, +journal = grl, +pages = {481-484}, +title = {On the infrared radiative properties of {CO2} ice +clouds: {Applications} to {Mars}.}, +volume = {7}, +year = {1980} +} + +@article{Hess:80, +author = {Hess , S. L. and Ryan , J. A. and Tillman , J. E. and Henry , R. M. and Leovy , C. B.}, +journal = grl, +pages = {197-200}, +title = {The annual cycle of pressure on \protect{Mars} measured by \protect{Viking} landers 1 and 2}, +volume = {7}, +year = {1980} +} + +@article{Jako:87, +author = {Jakosky , Bruce M. and Martin , Terry Z.}, +journal = {Icarus}, +pages = {528-534}, +title = {Mars: {North}-polar atmospheric warming during dust storms}, +volume = {72}, +year = {1987} +} + +@article{Hess:77, +author = {Hess , S. L. and Henry , R. M. and Leovy , C. B. and Ryan , J. A. and Tillman , J. E.}, +journal = jgr, +pages = {4559-4574}, +title = {Meteorological results from the surface of \protect{Mars}: \protect{Viking} 1 and 2}, +volume = {82}, +year = {1977} +} + +@article{Jako:95, +author = {Jakosky , B. M. and Henderson , B. G. and Mellon , M. T.}, +journal = jgr, +pages = {1579-1584}, +title = {Chaotic obliquity and the nature of the {Martian} climate}, +volume = {100}, +year = {1995} +} + +@article{Jako:95b, +author = {Jakosky , B. M.}, +journal = {Icarus}, +pages = {352-357}, +title = {Out on a limb: {Martian} atmospheric dust opacity during the past hundred years}, +volume = {117}, +year = {1995} +} + +@article{Habe:95, +author = {Haberle , Robert M.}, +journal = {Nature}, +pages = {595-596}, +title = {Buried dry ice on Mars}, +volume = {374}, +year = {1995} +} + +@article{Dros:91, +author = {Drossart , P. and Rosenqvist , J. and Erard , S. and Langevin , Y. and Bibring , J. P. and Combes , M.}, +journal = ang, +pages = {754-760}, +title = {Martian aerosol properties from the \protect{{\em Phobos}/ISM} experiment}, +volume = {9}, +year = {1991} +} + +@article{Jaco:82, +author = {Jacobsen , I. and Heise , E.}, +journal = bpa, +pages = {128-141}, +title = {A new economical method for the computation of the surface temperature in numerical models.}, +volume = {55}, +year = {1982} +} + +@article{Jame:79, +author = {James , Philip B. and Briggs , Geoffrey and Barnes , Jeffrey and Spruck , Andrea}, +journal = jgr, +number = {B6}, +pages = {2889-2922}, +title = {Seasonal recession of \protect{Mars'} south polar cap as seen by \protect{V}iking}, +volume = {84}, +year = {1979} +} + +@article{Jame:79nor, +author = {James, Philip B.}, +journal = jgr, +pages = {8332-8334}, +title = {Recession of {Martian} north polar cap : 1977-1978 {Viking} Observations}, +volume = {84}, +year = {1979} +} + +@article{Jame:82nor, +author = {James, Philip B.}, +journal = {Icarus}, +pages = {565-569}, +title = {Recession of {Martian} north polar cap : 1979-1980 {Viking} Observations}, +volume = {52}, +year = {1982} +} + +@article{Tied:89, +author = {M. Tiedtke}, +journal = {Mon. Wea. Rev.}, +pages = {1179-1800}, +title = {A comprehensive mass flux scheme for cumulus parameterization in large-scale models}, +volume = {117}, +year = {1989} +} + +@article{Till:88, +author = {Tillman , James E.}, +journal = jgr, +number = {D8}, +pages = {9433-9451}, +title = {Mars global atmospheric oscillations: Annually synchronized transient normal-mode oscillations and the triggering of global dust storms}, +volume = {93}, +year = {1988} +} + +@article{Till:93, +author = {Tillman , James E. and Johnson , Neal C. and Guttorp , Peter and Percival , Donald B.}, +journal = jgr, +number = {E6}, +pages = {10,963-10,971}, +title = {The \protect{Martian} annual atmospheric pressure cycle: years without great dust storms}, +volume = {98}, +year = {1993} +} + +@article{Till:79, +author = {Tillman , James E. and Henry , Robert M. and Hess , Seymour L.}, +journal = jgr, +number = {B6}, +pages = {2947-2955}, +title = {Frontal systems during passage of the \protect{Martian} north polar hood over the \protect{Viking} lander 2 site prior to the first 1977 dust storm}, +volume = {84}, +year = {1979} +} + +@article{Leov:79a, +author = {Leovy , Conway B. and Zurek , Richard W.}, +journal = jgr, +number = {B6}, +pages = {2956-2968}, +title = {Thermal tides and \protect{Martian} dust storms: direct evidence for coupling}, +volume = {84}, +year = {1979} +} + +@article{Leov:73, +author = {Leovy , C. B. and Briggs , G. A. and Smith , B. A.}, +journal = jgr, +pages = {4252-4266}, +title = {Mars atmosphere during the \protect{Mariner} 9 extended mission: Television results}, +volume = {78}, +year = {1973} +} + +@article{Leov:73a, +author = {Leovy , C. B. and Pollack , J. B.}, +journal = {Icarus}, +pages = {195-201}, +title = {A first look at atmospheric dynamics and temperature variations on {Titan}}, +volume = {19}, +year = {1973} +} + +@article{Kahn:82, +author = {Kahn , R. and Gierasch , P.}, +journal = jgr, +pages = {867-880}, +title = {Long clouds observations on \protect{Mars} and implications for boundary layer characteristics over slopes}, +volume = {87}, +year = {1982} +} + +@article{Ryan:85, +author = {Ryan , J,. A.}, +journal = jgr, +number = {A7}, +pages = {6319-6325}, +title = {Mars atmospheric circulation: aspects from \protect{V}iking \protect{L}anders}, +volume = {90}, +year = {1985} +} + +@article{Jako:79, +author = {Jakosky , Bruce M.}, +journal = jgr, +number = {B14}, +pages = {8252-8282}, +title = {The effect of nonideal surfaces on the derived thermal properties of \protect{M}ars}, +volume = {84}, +year = {1979} +} + +@article{Jako:82, +author = {Jakosky , B. M. and Farmer , C. B.}, +journal = jgr, +number = {B4}, +pages = {2999-3019}, +title = {The seasonal and global behavior of Water Vapor in the \protect{Mars} atmosphere: complete global results of the \protect{Viking} atmospheric vater detector experiment}, +volume = {87}, +year = {1982} +} + +@article{Habe:82, +author = {Haberle , Robert M. and Leovy , Conway B. and Pollack , J. B.}, +journal = {Icarus}, +pages = {322-367}, +title = {Some effects of global dust storms on the atmospheric circulation of \protect{M}ars}, +volume = {50}, +year = {1982} +} + +@phdthesis{Jous:89, +author = {Joussaume , Sylvie}, +address = {Paris}, +school = {Universit\'e Pierre et Marie Curie}, +title = {Simulations du climat du dernier max. glaciaire \`a l'aide d'un \protect{MCG} de l'atm. incluant une mod\'el. du cycle des isotopes de l'eau et des poussi\`eres d'orig. desert.}, +type = {Th\`ese de \protect{D}octorat d'\protect{E}tat \`es \protect{S}ciences \protect{P}hysiques}, +year = {1984} +} + +@article{Youn:77, +author = {Young , R. E. and Pollack , J. B.}, +journal = jas, +pages = {1315-1351}, +title = {A three-dimensional model of dynamical processes in the {Venus} atmosphere}, +volume = {34}, +year = {1990} +} + +@article{West:88, +author = {Westphal , Douglas L. and Toon , Owen B. and Carlson +, Toby N.}, +journal = jas, +pages = {2145-2175}, +title = {A case of mobilization and transport of \protect{S}aharan dust}, +volume = {45}, +year = {1988} +} + +@article{Murp:90, +author = {Murphy , James R. and Haberle , Robert M. and Pollack , James B.}, +journal = jgr, +number = {B9}, +pages = {14,629-14,647}, +title = {Numerical simulations of the decay of \protect{M}artian dust storms}, +volume = {95}, +year = {1990} +} + +@article{Murp:93, +author = {Murphy, J.R. and Haberle , R. M. and Toon, O.B. and Pollack, J.B.}, +journal = jgr, +pages = {3197-3220}, +title = {Martian global dust storms: zonally symetric numerical simulations including size dependent particle transport.}, +volume = {98}, +year = {1993} +} + +@article{Toon:89, +author = {Toon , O. B. and McKay , C. P. and Ackerman , T. P. and Santhanam , K.}, +journal = jgr, +pages = {16,287-16,301}, +title = {Rapid calculation of radiative heating rates and photodissociation rates in inhomogeneous multiple scattering atmospheres}, +volume = {94}, +year = {1989} +} + +@article{Toon:77, +author = {Toon, O. B. and Pollack , J. B. and Sagan , C.}, +journal = {Icarus}, +pages = {663-696}, +title = {Physical properties of the particles composing the {Martian} dust storm of 1971-1972}, +volume = {30}, +year = {1977} +} + +@article{Wisc:80, +author = {Wiscombe , W. J. and Warren, S. G.}, +journal = jas, +pages = {2712-2733}, +title = {A model for the spectral albedo of snow, {I}, {Pure snow}}, +volume = {37}, +year = {1980} +} + +@article{McKa:91, +author = {McKay , Chris P. and Pollack , James B. and Courtin , R\'egis}, +journal = sci, +pages = {1118-1121}, +title = {The greenhouse and anti-greenhouse effects on \protect{T}itan}, +volume = {253}, +year = {1991} +} + +@article{Toon:91, +author = {Toon , O. B. and McKay , C. P. and Griffith , C. A. and Turco , R. P.}, +journal = {Icarus}, +note = {submitted}, +title = {Titan's arerosols}, +year = {1991} +} + +@article{Goli:70, +author = {Golitsyn , G. S.}, +journal = {Icarus}, +pages = {1-24}, +title = {A similarity Approach to the General Circulation of planetary atmospheres}, +volume = {13}, +year = {1970} +} + +@article{Goli:84, +author = {Golitsyn , G. S.}, +journal = {Icarus}, +pages = {289-306}, +title = {Some problems of \protect{Venus'} atmospheric dynamics}, +volume = {60}, +year = {1984} +} + +@article{Goli:77, +author = {Golitsyn , G. S.}, +journal = iaop, +pages = {780-791}, +title = {Similarity theory in \protect{Soviet} works on geophysical dynamics}, +volume = {13}, +year = {1977} +} + +@article{Goli:75, +author = {Golitsyn , G. S.}, +journal = {Icarus}, +pages = {70-75}, +title = {Another look at atmospheric dynamics on {Titan} and some of its general consequences}, +volume = {24}, +year = {1975} +} + +@article{Hour:90dps, +author = {Hourdin , Fr\'ed\'eric and Le~Van , P. and Talagrand , O. and Courtin , R. and Gautier , D. and McKay , C. P.}, +journal = {BAAS}, +note = {Oral presentation at the 22nd annual DPS meeting +(Charlottesville, Virginia)}, +pages = {1086}, +title = {The Circulation of the Atmosphere of \protect{Titan} : Development of a General Circulation Model}, +volume = {22}, +year = {1990} +} + +@article{Hour:91dps, +author = {Hourdin , Fr\'ed\'eric and Le~Van , P. and Talagrand , O. and Courtin , R. and Gautier , D. and McKay , C. P.}, +journal = {BAAS}, +note = {Oral presentation at the 23rd annual DPS meeting (Palo Alto, California)}, +pages = {1187}, +title = {Numerical simulation of the circulation of \protect{T}itan's atmosphere: Study of a possible \protect{V}enus-like superrotation}, +volume = {23}, +year = {1991} +} + +@article{Hour:92dps, +author = {Hourdin , F. and Talagrand , O.}, +journal = {BAAS}, +note = {Oral presentation at the 24th annual DPS meeting (M\"unich, Germany)}, +pages = {1004}, +title = {Study of atmospheric superrotation: Numerical simulations}, +volume = {24}, +year = {1992} +} + +@article{Hour:94cospar, +author = {Hourdin , Fr\'ed\'eric and Talagrand , O.}, +journal = {Cospar 94 proceeding}, +note = {Invited presentation at the 30th {COSPAR} Scientific Assembly, Hamburg, Germany}, +pages = {133}, +title = {The {Martian} General Circulation}, +volume = {26}, +year = {1994} +} + +@article{Hour:94dps, +author = {Hourdin , F. and Talagrand , O. and Courtin , R. and Gautier , D. and McKay , C. P.}, +journal = {BAAS}, +note = {Oral presentation at the 26th annual DPS meeting (Washington)}, +pages = {1184}, +title = {The Gerneral Circulation of the Atmosphere of {Titan}}, +volume = {26}, +year = {1994} +} + +@article{Tala:94dps, +author = {Talagrand , Olivier and Forget , Fran\c{c}ois and Hourdin , Fr\'ed\'eric}, +journal = {BAAS}, +note = {Oral presentation at the 26th annual DPS meeting (Washington)}, +pages = {1125}, +title = {Martian seasonal transient pressure variations : {GCM} +simulations and {Viking} observations}, +volume = {26}, +year = {1994} +} + +@article{Forg:94dps, +author = {Forget , Fran\c{c}ois and Hourdin , Fr\'ed\'eric and Talagrand , Olivier and Pollack , James B.}, +journal = {BAAS}, +note = {Oral presentation at the 26th annual DPS meeting (Washington)}, +pages = {1125}, +title = {Observations and simulation of the {Martian} Polar Climate : Impact of the {CO$_2$} Clouds}, +volume = {26}, +year = {1994} +} + +@article{Forg:98, +author = {Forget, F. and Hourdin, F. and Talagrand, O.}, +journal = {Icarus}, +pages = {302-316}, +title = {{CO$_2$} snow fall on {Mars}: Simulation with a general circulation model}, +volume = {131}, +year = {1998} +} + +@article{Hour:93dps, +author = {Hourdin , Fr\'ed\'eric and Le~Van , P. and Talagrand , O. and Courtin , R. and Gautier , D. and McKay , C. P.}, +journal = {BAAS}, +note = {Oral presentation at the 25th annual DPS meeting (Boulder)}, +pages = {1105}, +title = {Superrotation: the case of {Titan}}, +volume = {25}, +year = {1993} +} + +@article{Hour:95, +author = {Hourdin , F. and Forget , F. and Talagrand , O.}, +journal = jgr, +pages = {5501-5523}, +title = {The sensitivity of the {Martian} surface pressure to various parameters: {A} comparison between numerical simulations and {Viking} observations}, +volume = {100}, +year = {1995} +} + +@article{Duqu:91, +author = {Duquennoy, A. and Mayor, M.}, +journal = {Astron. Astrophys.}, +pages = {485-524}, +title = {Multiplicity among solar-type stars in the solar neighborhood. {II. Distribution of the orbital elements in an unbiased sample.}}, +volume = {248}, +year = {1991} +} + +@article{Whit:97, +author = {Whitmire, D. and Matese, J. and Criswell, L. and Mikkola, S.}, +journal = {Icarus}, +pages = {196}, +title = {Habitable planet formation in binary star systems}, +volume = {132}, +year = {1997} +} + +@article{Weth:96, +author = {Wetherill, G. W.}, +journal = {Icarus}, +pages = {219-238}, +title = {The formation and habitability of extra-solar planets}, +volume = {119}, +year = {1996} +} + +@misc{Forg:95esa, +author = {Forget , F. and Hansen , G.B. and Pollack , J.B.}, +howpublished = {Oral presentation at the International Workshop on Intermarsnet, Capri, Italy.}, +title = {Condensation of the {Martian CO$_2$} polar caps}, +year = {1995} +} + +@article{Habe:96, +author = {Haberle, R. M. and Catling, D. C.}, +journal = pss, +pages = {1361-1383}, +title = {A micro-meteorological mission for global network science on {Mars}: rationale and measurement requirements}, +volume = {44}, +year = {1996} +} + +@article{Lewi:96, +author = {Lewis, S. R. and Read, P. L. and Collins , M.}, +journal = pss, +pages = {1395-1409}, +title = {Martian atmospheric data assimilation with a simplified general circulation model: orbiter and Lander networks}, +volume = {44}, +year = {1996} +} + +@article{Jako:96dps, +author = {Jakosky, B. M. and Zent, A. P. and Zurek, R.W.}, +journal = baas, +pages = {1064}, +title = {The {Mars} water cycle: determining the role of regolith-atmosphere exchange}, +volume = {28}, +year = {1996} +} + +@misc{Maro:95, +author = {Marov, M. and Walberg, G. and Jits, R.}, +howpublished = {Mars mission Research Center, NCSU}, +title = {Microlander network for meteorological {Mars} monitoring}, +year = {1996} +} + +@article{Merr:96, +author = {Merrihew, S. C. and Haberle, R. M. and Lemke, L. G.}, +journal = pss, +pages = {1385-1393}, +title = {A micro-meteorological mission for global network science on {Mars}: a conceptual design}, +year = {1996} +} + +@article{IMEW:94, +author = {The {International Mars Exploration Working Group}}, +howpublished = pss, +journal = pss, +pages = {581-595}, +title = {International strategy for the exploration of {Mars}}, +volume = {43}, +year = {1994} +} + +@article{Tala:93dps, +author = {Talagrand , O. and Hourdin , F. and Forget , F.}, +journal = {BAAS}, +note = {Oral presentation at the 25th annual DPS meeting (Boulder)}, +pages = {1071}, +title = {Numerical simulation of the General Circulation of the +{Martian} Atmosphere and the Viking Pressure Data}, +volume = {25}, +year = {1993} +} + +@misc{} +} + +@article{Tala:90dps, +author = {Talagrand , Olivier and Hourdin , Fr\'ed\'eric}, +journal = {BAAS}, +note = {Oral presentation at the 22nd annual DPS meeting +(Charlottesville, Virginia)}, +pages = {1074}, +title = {A general Circulation Model of the {Martian} Atmosphere}, +volume = {22}, +year = {1990} +} + +@article{Tala:91dps, +author = {Talagrand , O. and Hourdin , F. and Forget , F.}, +journal = baas, +note = {Oral presentation at the 23rd annual DPS meeting (Palo Alto, California)}, +pages = {1217}, +title = {The \protect{LMD} \protect{M}artian General Circulation Model: Results about the Annual Pressure Cycle}, +volume = {23}, +year = {1991} +} + +@article{Tala:92dps, +author = {Talagrand , O. and Hourdin , F. and Forget , F.}, +journal = {BAAS}, +note = {Oral presentation at the 24th annual DPS meeting (M\"unich, Germany)}, +pages = {922}, +title = {Study of atmospheric superrotation: Numerical simulations}, +volume = {24}, +year = {1992} +} + +@inproceedings{Tala:93assim, +author = {Talagrand , Olivier}, +address = {Berlin}, +booktitle = {Energy and Weather Cycles in the Climate System}, +editor = {A. Raschke and D. Jacob}, +organization = {NATO Advanced Study Institute}, +pages = {187-213}, +publisher = {Springer-Verlag}, +series = {NATO ASI Series}, +title = {Data Assimilations Problems}, +year = {1993} +} + +@article{Rabi:92, +author = {Rabier , F. and Courtier , P. and Talagrand , O.}, +journal = bpa, +pages = {177-192}, +title = {An application of adjoint models to sensitivity analysis}, +volume = {65}, +year = {1992} +} + +@inproceedings{Tala:91assim, +author = {Talagrand , Olivier}, +address = {Philadelphie}, +booktitle = {Automatic differentitation of algorithms: Theory, implementation, and application}, +editor = {A. Griewank and G. F. Corliss}, +pages = {169-180}, +publisher = {Society for Industrial and Applied Mathematics}, +title = {The use of adjoint equations in numerical modeling of the atmospheric circulation}, +year = {1991} +} + +@phdthesis{Tour:84, +author = {Tourte , Jean-Louis}, +address = {Paris}, +school = {Universit\'e \protect{P}ierre et \protect{M}arie \protect{C}urie}, +title = {Mod\'elisation num\'erique de la circulation de l'atmosph\`ere de \protect{V}\'enus}, +type = {Th\`ese de docteur -ing\'enieur}, +year = {1984} +} + +@inproceedings{Tanr:84, +author = {Tanr\'e , D. and Geylen , J.-F. and Slingo , J.}, +address = {Hampton}, +booktitle = {Aerosols and their climatic effects}, +editor = {H..E. Gerber and A. Deepack}, +pages = {133-177}, +publisher = {A. Deepack Publishing}, +title = {First results of the introduction of aerosol-radiation interaction in the \protect{ECMWF} low resolution global model}, +year = {1984} +} + +@article{Del:87, +author = {Del Genio , Anthony and Suozzo , Robert J.}, +journal = jas, +pages = {973-986}, +title = {A comparative study of rapidly rotating dynamical regimes in a terrestrial general circulation model}, +volume = {44}, +year = {1987} +} + +@article{Del:83, +author = {Del Genio , A. D. and Meccage , J. K. and Suozzo , R. and Opstbaum , R. and Rind , D. and Rossow , W. B. and Russell , G. and Travis , L. D.}, +journal = baas, +pages = {821}, +title = {Variable rotation rate experiments with the \protect{GISS} General Circulation Model}, +volume = {15}, +year = {1983} +} + +@book{Elsa:42, +author = {Elsasser , W. M.}, +address = {Cambridge, Mass.}, +pages = {43}, +publisher = {Harvard University Press}, +series = {Harvard Meteorol. Stud.}, +title = {Heat Transfer by Infrared Radiation in the Atmosphere}, +volume = {6}, +year = {1942} +} + +@book{Good:64, +author = {Goody , R. M.}, +address = {New York}, +publisher = {Oxford University Press}, +title = {Atmospheric Radiation, \protect{vol. I}, Theoretical Basis}, +year = {1964} +} + +@article{Fouq:80, +author = {Fouquart , Y and Bonnel , B.}, +journal = bpa, +pages = {35-62}, +title = {Computations of solar heating of the \protect{E}arth's atmosphere: A new parametrization}, +volume = {53}, +year = {1980} +} + +@book{Abra:65, +address = {New York}, +editor = {Abramowitz , M. and Stegun , I. A.}, +publisher = {Dover}, +title = {Handbook of Mathematical Functions}, +year = {1965} +} + +@article{Gier:67, +author = {Gierasch , Peter and Goody , Richard}, +journal = pss, +pages = {1465-1477}, +title = {An approximate calculation of radiative heating and radiative equilibrium in the {Martian} atmosphere}, +volume = {15}, +year = {1967} +} + +@article{Kuhn:79, +author = {Kuhn , W. R. and Atreya , S. K. and Postawko , S. E.}, +journal = jgr, +number = {B14}, +pages = {8341-8342}, +title = {The influence of ozone on \protect{M}artian atmospheric temperature}, +volume = {84}, +year = {1979} +} + +@phdthesis{Lind:85, +author = {Lindner , Leo Bernhard}, +school = {Fac. of the Grad. Sch. of the Univ. of Colo., Boulder}, +title = {The aeronomy and radiative transfer of the \protect{M}artian atmosphere}, +year = {1985} +} + +@article{Lind:90, +author = {Lindner , B. L.}, +journal = jgr, +pages = {1367-1379}, +title = {The {Martian} polar cap: {Radiative} effects of ozone, clouds, and airborne dust}, +volume = {95}, +year = {1990} +} + +@book{Lind:90book, +author = {Lindzen , R. S.}, +publisher = {Cmabridge University Press}, +title = {Dynamics in atmospheric physicsq}, +year = {1990} +} + +@book{Jame:94book, +author = {James, I. N.}, +publisher = {Cambridge University Press}, +title = {Introduction to circulating atmospheres}, +year = {1994} +} + +@article{Lind:93, +author = {Lindner , B. L.}, +journal = jgr, +pages = {3339-3344}, +title = {The hemispherical asymmetry in the {Martian} polar caps.}, +volume = {98}, +year = {1993} +} + +@article{Lind:83, +author = {Lindal , G. F. and Wood , G. E. and Hotz , H. B. and Sweetnam , D. N. and Eshleman , V. R. and Tyler , G. L.}, +journal = {Icarus}, +pages = {348--363}, +title = {The atmosphere of {Titan}: an analysis of the {Voyager~1} radio occultation measurements}, +volume = {53}, +year = {1983} +} + +@article{Lind:79a, +author = {Lindal , G. F. and Hotz , H. B. and Sweetnam , D. N. and Shippony , Z. and Brenkle , J. P. and Hartsell , G. V. and Spear , R. T. and Micheal , W. H.}, +journal = jgr, +pages = {8443-8456}, +title = {Viking radio occultation measurements of the atmosphere and topography on \protect{M}ars}, +volume = {84}, +year = {1979} +} + +@book{Liou:80, +author = {Liou , Kuo-Nan}, +address = {San Diego, Calif.}, +editor = {Academic press}, +publisher = {Academic}, +title = {An Introduction to Atmospheric Radiation}, +year = {1980} +} + +@phdthesis{Li:90, +author = {Li , Zhao Xin}, +school = {Universit\'e Paris 7}, +title = {Etude de l'int\'eratcion nuage-rayonnement dans le contexte deu changement climatique d\^u \`a l'augmentation dez gaz \`a effet de serre dans l'atmosph\`ere}, +type = {Th\`ese}, +year = {1990} +} + +@article{Leov:69, +author = {Leovy , Conway and Mintz , Yale}, +journal = jas, +pages = {1167-1190}, +title = {Numerical simulation of the atmospheric circulation and climate of \protect{M}ars}, +volume = {26}, +year = {1969} +} + +@article{Leov:79, +author = {Leovy , Conway B.}, +journal = araa, +pages = {387-413}, +title = {Martian meteorology}, +volume = {17}, +year = {1979} +} + +@article{Poll:79, +author = {Pollack , James B. and Colburn , David S. and Flasar , F. Michael and Kahn , Ralph and Carlston , C. E. and Pidek , D.}, +journal = jgr, +number = {B6}, +pages = {2929-2945}, +title = {Properties and effects of dust particles suspended in the \protect{M}artian atmosphere}, +volume = {84}, +year = {1979} +} + +@inproceedings{Mart:92, +author = {Martin , L. J. and James, P. B. and Dollfus , A. and Iwasaki, K. and Beish , J. D.}, +booktitle = {Mars}, +journal = {Icarus}, +publisher = {University of Arizona Press, Tucson}, +title = {Telescopic observations: visual, photographic, polarimetric}, +year = {1992} +} + +@article{Clan:93lpi, +author = {Clancy , R. T. and Lee , S. W. and Gladstone , G. R.}, +institution = {LPI}, +number = {93-05}, +title = {Particle sizes and composition of {Mars} atmospheric dust based upon {Viking} and {Mariner 9} observations.}, +year = {1993} +} + +@article{Clan:93, +author = {Clancy, T. and Grossman , A. and Muhleman , D.}, +journal = baas, +pages = {1060}, +title = {A cold , dry, cloudy, dust-free {Mars} atmosphere in the 1990's}, +volume = {25}, +year = {1993} +} + +@article{Clan:94, +author = {Clancy, R. T. and Lellouch , E. and Billawala , Y. N. and Sandor , B. J. and Rudy, D. J.}, +journal = baas, +pages = {1130}, +title = {Microwave observations of a 1994 {Mars} global dust storm}, +volume = {26}, +year = {1994} +} + +@article{Clan:95, +author = {Clancy, R. T. and Lee , S. W. and Gladstone , G. R. and McMillan , W. W. and Rousch , T.}, +journal = jgr, +pages = {5251-5263}, +title = {A new model for {Mars} atmospheric dust based upon analysis of ultraviolet through infrared observations from {Mariner 9, Viking, and Phobos}}, +volume = {100}, +year = {1995} +} + +@article{Clan:91, +author = {Clancy , R. T. and Lee , S. W.}, +journal = {Icarus}, +pages = {135-158}, +title = {A new look at dust and clouds in the {Mars} atmosphere: {Analysis} of emission-phase function sequences from global {Viking IRTM} observations}, +volume = {93}, +year = {1991} +} + +@article{Chas:95, +author = {Chassefiere, E. and Drossart , P. and Korablev , O.}, +journal = jgr, +pages = {5525-5539}, +title = {Post-{Phobos} model for the altitude and size distribution of dust in the low {Martian} atmosphere}, +volume = {100}, +year = {1995} +} + +@article{Chas:92, +author = {Chassefiere, E. and Blamont , J. E. and Krasnopolsky , V. A. and Korablev , O. I. and Atreya , S. K. and West , R. A.}, +journal = {Icarus}, +pages = {46-69}, +title = {Vertical structure and size distributions of {Martian} aerosols from solar occultation measurements}, +volume = {97}, +year = {1992} +} + +@article{Chas:91, +author = {Chassefi\`{e}re, E.}, +journal = grl, +pages = {1055-1058}, +title = {Photochemical regulation of {CO on Mars}}, +volume = {18}, +year = {1991} +} + +@article{Chas:92b, +author = {Chassefi\`ere , E. and Blamont , J. E.}, +journal = grl, +pages = {945}, +title = {Vertical transport of water ice at low latitudes in the {Martian} atmosphere}, +volume = {19}, +year = {1992} +} + +@article{Zent:95, +author = {Zent , A. P. and Quinn , R. C.}, +journal = jgr, +pages = {5341-5349}, +title = {Simultaneous adsorption of {CO$_{2}$ and H$_{2}$O under Mars}-like conditions and application to the evolution of the {Martian} climate.}, +volume = {100}, +year = {1995} +} + +@article{Houb:94, +author = {Houben , H. and Haberle , R. M. and Young , R.E. and Zent , A.}, +journal = baas, +pages = {1112}, +title = {The regolith-dominated {Martian} water cycle.}, +volume = {26}, +year = {1994} +} + +@article{Kora:93, +author = {Korablev , O. I. and Krasnopolsky , V. A. and Rodin , A. V. and Chassefiere , E.}, +journal = {Icarus}, +pages = {76-87}, +title = {Vertical structure of the {Martian} dust measured by the solar infrared occultations from the {Phobos} spacecraft.}, +volume = {102}, +year = {1993} +} + +@article{Colb:89, +author = {Colburn , D. S. and Pollack , J. B. and Haberle , R. M.}, +journal = {Icarus}, +pages = {159-189}, +title = {Diurnal variations in optical depth at {Mars}}, +volume = {79}, +year = {1989} +} + +@article{Poll:90, +author = {Pollack , James B. and Haberle , Robert M. and Schaeffer , J. and Lee , H.}, +journal = jgr, +pages = {1447-1473}, +title = {Simulations of the general circulation of the \protect{M}artian atmosphere, \protect{1}, \protect{Polar} processes}, +volume = {95}, +year = {1990} +} + +@article{Poll:90triton, +author = {Pollack, J.B. and Schwartz, J. M. and Rages, K.}, +journal = {Science}, +number = {25}, +pages = {440-443}, +title = {Scatterers in {Triton's} atmosphere : implications for the seasonal volatile cycle.}, +year = {1990} +} + +@techreport{Ched:84, +author = {Chedin , A. and Husson , N. and Scott , N. A. and Cohen-Hallaleh , I. and Berroir , A.}, +address = {Ecole Polytech., Palaiseau, France}, +institution = {Laboratoire de M\'et\'eorologie Dynamique du CNRS}, +number = {127}, +title = {The \protect{"GEISA"} data bank 1984 version}, +year = {1984} +} + +@article{Hunt:73, +author = {Hunt , B. G.}, +journal = {Tellus}, +pages = {337-354}, +title = {Zonally symmetric global general circulation models with and without hydrologic cycle}, +volume = {XXV}, +year = {1973} +} + +@article{Mayr:91, +author = {Mayr , H. G. and Chan , K. L. and Harris , I. and Schatten , K.}, +journal = apj, +pages = {361-366}, +title = {What maintains the zonal circulation in planetary atmospheres?}, +volume = {367}, +year = {1991} +} + +@article{Savi:91, +author = {Savij\"arvi , H.}, +journal = bpa, +pages = {103-112}, +title = {Radiative Fluxes on a dust free \protect{M}ars}, +volume = {2}, +year = {1991} +} + +@article{Savi:91pbl, +author = {Savij{\"a}rvi , Hannu}, +journal = mwr, +pages = {833-840}, +title = {The {United} {States|} Great plains diurnal {ABL} variation and the nocturnal low-level jet}, +volume = {119}, +year = {1991} +} + +@article{Savi:93, +author = {Savij\"arvi , H. and Siili , T.}, +journal = jas, +pages = {77-88}, +title = {The \protect{M}artian slope wind and the nocturnal \protect{PBL} jet}, +volume = {50}, +year = {1993} +} + +@article{Savi:XXa, +author = {Savij\"arvi , Hannu}, +journal = {not published}, +title = {A model study of the \protect{PBL} structure on Mars and Earth}, +year = {19XX} +} + +@article{Savi:95, +author = {Savij{\"a}rvi , Hannu}, +journal = {Icarus}, +pages = {120-127}, +title = {Mars boundary layer modeling : diurnal moisture cycle and soil properties at the {Viking} Lander~1 site}, +volume = {117}, +year = {1995} +} + +@article{Seif:82, +author = {Seiff , A.}, +journal = asr, +pages = {3-17}, +title = {Post-\protect{V}iking models for the stucture of the summer atmosphere of \protect{M}ars}, +volume = {2}, +year = {1982} +} + +@article{Seif:76, +author = {Seiff , Alvin and Kirk , Donn B.}, +journal = {Science}, +pages = {1300-1303}, +title = {Structure of the \protect{Mars'} atmosphere up to 100 kilometers from the entry measurements of \protect{Viking} 2}, +volume = {194}, +year = {1976} +} + +@article{Shor:76, +author = {Shorthill , Richard W. and Moore , Henry J. and Hutton , Robert E. and Scott , Ronald F. and Spitzer , Cary R.}, +journal = {Science}, +pages = {1309-1318}, +title = {The environment of \protect{Viking} 2 lander}, +volume = {194}, +year = {1976} +} + +@article{Kief:76, +author = {Kieffer , Hugh H. and Chase , S. C. and Miner, E. D. and Palluconi , Frank Don. and M\"unch , Guidoa and Neugebauer , Gerry and Martin, Terry Z.}, +journal = {Science}, +pages = {780-786}, +title = {Infrared Thermal mapping of the {Martian} surface and atmosphere: First results}, +volume = {193}, +year = {1976} +} + +@article{Kief:76c, +author = {Kieffer , H. H. and Chase , S. C. and Martin , T. Z. and Miner , E. D. and Palluconi , F. D.}, +journal = {Science}, +pages = {1341-1343}, +title = {Martian north pole summer temperatures : dirty water ice}, +volume = {194}, +year = {76} +} + +@article{Hers:84, +author = {Herschel , W.}, +journal = {Philos. Trans.}, +pages = {233-273}, +title = {On the remarkable appearance of the polar regions of the planet {Mars}, the inclination of its axis, the position of its poles, and its spheroidical figure; {With} a few hints relative to its diameter}, +volume = {24}, +year = {1784} +} + +@article{Mana:61, +author = {Manabe , Syukuro and M\"oller , Fritz}, +journal = mwr, +pages = {503-532}, +title = {On the radiative equilibrium and heat balance of the atmosphere}, +volume = {89}, +year = {1961} +} + +@article{Mana:64, +author = {Manabe , Syukuro and Strickler , Robert F.}, +journal = jas, +pages = {361-385}, +title = {Thermal Equilibrium of the atmosphere with a convective adjustment}, +volume = {21}, +year = {1964} +} + +@article{Hosk:91, +author = {Hoskins , Brian J.}, +journal = {Tellus}, +pages = {27-35}, +title = {Toward a PV-$\theta$ view of the general circulation}, +volume = {43AB}, +year = {1991} +} + +@article{Cris:86, +author = {Crisp , David and Fels , Stephen B. and Schwarzkopf , M. D.}, +journal = jgr, +number = {D11}, +pages = {11,851-11,866}, +title = {Approximate methods for finding \protect{CO$_2$} \protect{$15\mu$m} band transmission in planetary atmospheres}, +volume = {91}, +year = {1986} +} + +@article{Buri:80, +author = {Buriez , J. C. and Fouquart , Y.}, +journal = jqsrt, +pages = {407-419}, +title = {Generalization of the \protect{C}urtis-\protect{G}odson approximation to inhomogeneous scattering atmopsheres}, +volume = {24}, +year = {1980} +} + +@article{Mead:80, +author = {Meador , W. E. and Weaver , W. R.}, +journal = jas, +pages = {630-643}, +title = {Two-stream approximations to radiative transfer in planetary atmospheres: a unified description of existing methods and new improvement}, +volume = {37}, +year = {1980} +} + +@article{Kuhn:69, +author = {Kuhn , William and London , Julius}, +journal = jas, +pages = {189-204}, +title = {Infrared radiative cooling in the middle atmosphere (30-110 km)}, +volume = {26}, +year = {1969} +} + +@proceedings{Berg:84, +editor = {Berger, A. L. and Nicolis C.}, +publisher = {Elsevier Science Publishers, Amsterdam}, +title = {New perspectives in climate modeling}, +year = {1984} +} + +@article{Fels:81, +author = {Fels , Stephen B. and Schwarzkopf , M. D.}, +journal = jgr, +number = {C2}, +pages = {1205-1232}, +title = {An Efficient, Accurate Algorithm for Calculating \protect{CO$_2$} $15 \mu$m Band Cooling Rates}, +volume = {86}, +year = {1981} +} + +@article{Flas:81, +author = {Flasar , F. M. and Samuelson , R. E. and Conrath , B. J.}, +journal = {Nature}, +pages = {693-698}, +title = {Titan's atmosphere: temperature and dynamics}, +volume = {292}, +year = {1981} +} + +@article{Lask:93, +author = {Laskar , J and Robutel , P.}, +journal = {Nature}, +pages = {608-612}, +title = {The chaotic obliquity of the planets}, +volume = {361}, +year = {1993} +} + +@article{Flas:90, +author = {Flasar , F. M. and Conrath , B. J.}, +journal = {Icarus}, +pages = {346-354}, +title = {Titan's stratospheric temperatures: a case for dynamical inertia?}, +volume = {85}, +year = {1990} +} + +@article{Gier:75, +author = {Gierasch , P. J.}, +journal = jas, +pages = {1038-1044}, +title = {Meridional circulation and the maintenance of the \protect{Venus} atmospheric rotation}, +volume = {32}, +year = {1975} +} + +@book{Holt:79, +author = {Holton , James R.}, +edition = {second}, +editor = {Anton L. Hales}, +publisher = {Academic Press}, +series = {Internal geophysics series}, +title = {An introduction to dynamic meteorology}, +volume = {23}, +year = {1979}, +adress = "New York \ San Francisco \ London" +} + +@book{Holt:92, +author = {Holton , James R.}, +edition = {third}, +publisher = {Academic Press}, +series = {Internal geophysics series}, +title = {An introduction to dynamic meteorology}, +volume = {48}, +year = {1992}, +adress = "New York \ San Francisco \ London" +} + +@book{Holt:04, + author = {Holton , J.~R.}, + edition = {fourth}, + publisher = {Elsevier Academic Press}, + series = {International geophysics series}, + title = {An introduction to dynamic meteorology}, + volume = {48}, + year = {2004}, + adress = "New York \ San Francisco \ London" +} + +@book{Peix:92, +author = {Peixoto , Jos\'e P. and Oort , Abraham H.}, +address = {New York}, +publisher = {American Institute of Physics}, +title = {Physics of Climate}, +year = {1992} +} + +@unpublished{Morc:89, +author = {Morcrette , Jean-Jacques}, +title = {The \protect{ECMWF} model radiation scheme: Description and Validation}, +year = {1989} +} + +@article{Hou:90, +author = {Hou , Arthur Y. and Fels , Stephen B. and Goody , Richard M.}, +journal = jas, +pages = {1894-1901}, +title = {Zonal Superrotation above \protect{Venus}'Cloud Base Induced by the Semidiurnal Tide and the Mean Meridional Circulation}, +volume = {47}, +year = {1990} +} + +@article{Malk:67, +author = {Malkmus , W.}, +journal = josa, +pages = {323-329}, +title = {Random \protect{L}orentz band model with exponential-tailed $S^{-1}$ line-intensity distiribution function}, +volume = {57}, +year = {1967} +} + +@article{Zhu:88, +author = {Zhu , Xun}, +journal = jqsrt, +pages = {421-427}, +title = {An improved voigt line approximation for the calculation of equivalent width and transmission}, +volume = {39}, +year = {1988} +} + +@article{Zhu:89, +author = {Zhu , Xun}, +journal = jas, +pages = {511-520}, +title = {Radiative cooling calculated by random models with \protect{$S^{-1-\beta}$} tailed distribution}, +volume = {46}, +year = {1989} +} + +@article{Fels:79, +author = {Fels , Stephen B.}, +journal = ao, +pages = {2634-2637}, +title = {Simple strategies for inclusion of \protect{V}oigt effect in infrared cooling rate calculations}, +volume = {18}, +year = {1979} +} + +@inproceedings{Tala:90b, +author = {Talagrand , Olivier and Hourdin , Fr\'ed\'eric}, +booktitle = {International symposium on assimilation of observations in meteorology and oceanography}, +organization = {World Meteorological Organization}, +pages = {578-580}, +title = {A plan for assimilation of observations of the \protect{Martian} atmosphere}, +year = {1990} +} + +@article{Cour:90, +author = {Courtier , P. and Talagrand , O.}, +journal = {Tellus}, +pages = {531-549}, +title = {Variational assimilation of meteorological observations with the direct and adjoint shallow-water equations}, +volume = {42A}, +year = {1990} +} + +@article{Cour:95, +author = {Courtin , R\'egis and Gautier , Daniel and McKay , Christopher P.}, +journal = {Icarus}, +pages = {144-162}, +title = {Titan's thermal emission spectrum: {Reanalysis} of the {Voyager} Infrared measurements}, +volume = {14}, +year = {1995} +} + +@article{Cour:87, +author = {Courtier , P. and Talagrand , O.}, +journal = qjrms, +pages = {1329-1347}, +title = {Variational assimilation of meteorological observations with the adjoint vorticity equation. \protect{II}: Numerical results}, +volume = {113}, +year = {1987} +} + +@article{Tala:90, +author = {Talagrand , O. and Courtier , P.}, +journal = {Tellus}, +pages = {531-549}, +title = {Variational assimilation of meteorological observations with the direct and adjoint shallow-water equations}, +volume = {42A}, +year = {1990} +} + +@article{Tala:87, +author = {Talagrand , O. and Courtier , P.}, +journal = qjrms, +pages = {1331-1328}, +title = {Variational assimilation of meteorological observations with the adjoint vorticity equation. \protect{I}: Theory}, +volume = {113}, +year = {1987} +} + +@article{Good:52, +author = {Goody , R. M.}, +journal = qjr, +pages = {165-169}, +title = {A statistical model for water vapour absorption}, +volume = {78}, +year = {1952} +} + +@article{Hour:90a, +author = {Fr\'ed\'eric Hourdin and Talagrand , Olivier}, +journal = ang, +note = {Poster presentation at the XV General Assembly of the EGS}, +pages = {328}, +title = {A general Circulation Model of the {Martian} Atmosphere}, +volume = {Special Issue}, +year = {1990} +} + +@article{Jako:93, +author = {Jakosky, B. M. and Henderson , B. G. and Mellon M. T.}, +journal = {Icarus}, +pages = {286-297}, +title = {The {Mars} water cycle at other epochs~: recent history of the polar caps and layered terrain.}, +volume = {102}, +year = {1993} +} + +@article{Ward:74, +author = {Ward , W. R. and Murray , B. C. and Malin , M. C.}, +journal = jgr, +pages = {3387-3395}, +title = {Climatic variations on {Mars}. 2. {Evolution} of carbon dioxide atmosphere and polar caps}, +volume = {79}, +year = {1974} +} + +@article{Tala:91, +author = {Talagrand , Olivier and Hourdin , Fr\'ed\'eric and Le Van , Phu}, +journal = ang, +note = {Oral presentation at the XVI General Assembly of the EGS}, +pages = {C422}, +title = {Development of the \protect{LMD} General Circulation Model of the {Martian} atmosphere: a progress report}, +volume = {9 supp.}, +year = {1991} +} + +@article{Hou:92, +author = {Hou , Arthur Y. and Lindzen , Richard S.}, +journal = jas, +pages = {1233-1241}, +title = {The influence of concentrated heating on the \protect{Hadley} circulation}, +volume = {49}, +year = {1992} +} + +@article{Hour:91, +author = {Hourdin , Fr\'ed\'eric and Talagrand , Olivier}, +journal = ang, +note = {Oral presentation at the XVI General Assembly of the EGS}, +pages = {C409}, +title = {Hadley Circulation and Superrotation in Planetary Atmospheres}, +volume = {9 supp.}, +year = {1991} +} + +@inproceedings{Hour:92b, +author = {Hourdin , F. and Le Van , P. and Talagrand , O. and Courtin , R. and Gautier , D. and McKay , C.}, +booktitle = {Symposium on \protect{Titan}}, +organization = {ESA}, +pages = {101-106}, +publisher = {ESA}, +title = {Numerical simulation of the circulation of the atmosphere of \protect{Titan}}, +volume = {SP-338}, +year = {1992} +} + +@inproceedings{Jame:92, +author = {James , Ian N.}, +booktitle = {Symposium on \protect{Titan}}, +crossref = {esa:91}, +editor = {ESA}, +organization = {ESA}, +pages = {107-111}, +title = {Simple dynamical models of \protect{Titan's} +atmospheric circulation}, +volume = {SP-338}, +year = {1992} +} + +@inproceedings{Kief:92b, +author = {Kieffer , H. H. and Zent , A. P.}, +booktitle = {Mars}, +editor = {Kieffer , Jakosky , Snyder and Matthews}, +pages = {pp. 1180-1218}, +publisher = {University of Arizona Press, Tucson}, +title = {Quasi-periodic climate change on {Mars}}, +year = {1992} +} + +@inproceedings{Snyd:92, +author = {Snyder, C. W. and Moroz, V. I.}, +booktitle = {Mars}, +editor = {Kieffer , Jakosky , Snyder and Matthews}, +pages = {pp. 71-119}, +publisher = {University of Arizona Press, Tucson}, +title = {Spacecraft exploration of {Mars}}, +year = {1992} +} + +@inproceedings{Kief:92c, +author = {Kieffer , H. H. and Jakosky, B. M. and Snyder , C.W.}, +booktitle = {Mars}, +editor = {Kieffer , Jakosky , Snyder and Matthews}, +pages = {pp. 1-33}, +publisher = {University of Arizona Press, Tucson}, +title = {The planet {Mars: From} antiquity to the present}, +year = {1992} +} + +@inproceedings{Jame:92mars, +author = {James , Philip B. and Kieffer , Hugh H. and Paige , David A.}, +booktitle = {Mars}, +pages = {pp.~934-968}, +publisher = {University of Arizona Press, Tucson}, +title = {The seasonal cycle of carbon dioxide on {Mars}}, +volume = { }, +year = {1992} +} + +@inproceedings{Kahn:92, +author = {Kahn, R. A. and Martin , T. Z. and Zurek , R. W.}, +booktitle = {Mars}, +pages = {pp.~1017-1053}, +publisher = {University of Arizona Press, Tucson}, +title = {The {Martian} dust cycle}, +volume = { }, +year = {1992} +} + +@inproceedings{Gree:92, +author = {Greeley , R. and Lancaster , N. and Lee , S. and Thomas, P.}, +booktitle = {Mars}, +pages = {pp.~730-766}, +publisher = {University of Arizona Press, Tucson}, +title = {Martian aeolian processes, sediments and features}, +volume = { }, +year = {1992} +} + +@inproceedings{Jako:92, +author = {Jakosky , Bruce M. and Haberle , Robert M}, +booktitle = {Mars}, +pages = {pp.~969}, +publisher = {University of Arizona Press, Tucson}, +title = {The seasonal behavior of water on {Mars}}, +year = {1992} +} + +@inproceedings{Owen:92, +author = {Owen ,Tobias}, +booktitle = {Mars}, +pages = {pp.~818-834}, +publisher = {University of Arizona Press, Tucson}, +title = {The composition and early history of the atmosphere of {Mars}}, +year = {1992} +} + +@article{Hapk:81, +author = {Hapke, B.}, +journal = jgr, +pages = {3039-3054}, +title = {Bidirectional reflectance spectroscopy 1. {Theory}}, +volume = {86}, +year = {1981} +} + +@article{Hapk:86, +author = {Hapke , B.}, +journal = {Icarus}, +pages = {264-280}, +title = {Bidirectional reflectance spectroscopy 4. {The extinction coefficient and the opposition effect}}, +volume = {67}, +year = {1986} +} + +@inproceedings{Jame:92b, +author = {James , P. B. and Kieffer , H. H. and Paige , D. A.}, +address = {Tucson}, +booktitle = {Mars}, +chapter = {27}, +pages = {pp.~934-968}, +publisher = {University of Arizona Press, Tucson}, +title = {The seasonal cycle of carbon dioxide on \protect{Mars}}, +year = {1992} +} + +@book{Kief:92, +author = {Kieffer, H. H. and Jakosky , B. M. and Snyder , C. W. and Matthews, M .S}, +address = {Tucson}, +booktitle = {Mars}, +chapter = {23}, +publisher = {University of Arizona Press, Tucson}, +title = {Mars}, +year = {1992} +} + +@article{Hunt:79, +author = {Hunt , B. G.}, +journal = jas, +pages = {1392-1408}, +title = {The Influence of the Earth's Rotation Rate on the General Circulation of the Atmosphere}, +volume = {36}, +year = {1979} +} + +@article{Toon:, +author = {Rapid} +} + +@article{Hunt:81, +author = {Hunt, B. G.}, +journal = jas, +pages = {2172-2186}, +title = {The maintenance of the zonal mean state of the upper atmosphere as represented in a three-dimensional \protect{General} \protect{Circulation} \protect{Model} Extending to $100km$.}, +volume = {38}, +year = {1981} +} + +@article{McKa:89, +author = {McKay , C. P. and Pollack , J. B. and Courtin , R.}, +journal = {Icarus}, +pages = {23-53}, +title = {The Thermal Structure of \protect{Titan's} Atmosphere}, +volume = {80}, +year = {1989} +} + +@article{Schn:77, +author = {Schneider , Edwin K. and Lindzen , Richard S.}, +journal = jas, +pages = {263-296}, +title = {Axially symmetric steady-state models of the basic state for instability and climate studies. \protect{Part I}. Linearized calculations.}, +volume = {34}, +year = {1977} +} + +@article{Held:80, +author = {Held , Isaac M. and Hou , Arthur Y.}, +journal = jas, +pages = {515-533}, +title = {Nonlinear axially symmetric circulations in a nearly inviscid atmosphere}, +volume = {37}, +year = {1980} +} + +@article{Held:78, +author = {Held , Isaac M.}, +journal = jas, +pages = {572-576}, +title = {The vertical scale of an unstable baroclinic wave and its importance for Eddy heat flux parametrizations}, +volume = {35}, +year = {1977} +} + +@article{McKa:90, +author = {McKay , Christopher}, +journal = {La recherche}, +pages = {1216-1224}, +title = {La vie sur \protect{Mars}}, +volume = {21}, +year = {1990} +} + +@article{McKa:89mars, +author = {McKay, C.P. and Stoker, C. R.}, +journal = {Review of Geophysics}, +pages = {189-214}, +title = {The early environment and its evolution on {Mars}: implication for life}, +volume = {27}, +year = {1989} +} + +@article{McKa:96, +author = {McKay, D. S. and Gibson Jr. , E. K. and Thomas-Keprta, K.L. and Vali, H. and Romanek, C.S. and Clemett, S. J. and Chillier, X.D.F. and Maechling, C.R. and Zare, R.N.}, +journal = {Science}, +pages = {924-929}, +title = {Search for past life on {Mars}: possible relic biogenic activity in {Martian} meteorite {ALH84001}}, +volume = {273}, +year = {1996} +} + +@article{Morc:86, +author = {Morcrette , Jean Jacques and Smith , Laura and Fouquart , Yves}, +journal = bpa, +number = {4}, +pages = {455-469}, +title = {Pressure and Temperature Dependence of the Absorption in Longwave Radiation Parametrizations}, +volume = {59}, +year = {1986} +} + +@phdthesis{Morc:84, +author = {Morcrette , Jean Jacques}, +school = {Univ. des Sci. et Tech. de Lille, France}, +title = {Sur la param\'etrisation du rayonnement dans les mod\`eles de la circulation g\'en\'erale atmosph\'erique}, +type = {th\`ese de \protect{D}octorat d'\protect{E}tat}, +year = {1984} +} + +@article{Sado:75, +author = {Sadourny , Robert}, +journal = jas, +pages = {680-689}, +title = {The Dynamics of Finite-Difference Models of the Shallow-Water Equations}, +volume = {32}, +year = {1975} +} + +@article{Sado:75a, +author = {Sadourny , Robert}, +journal = jas, +pages = {2103-2110}, +title = {Compressible Model Flows on the Sphere}, +volume = {32}, +year = {1975} +} + +@article{Rodg:66, +author = {Rodgers , C. D. and Walshaw , C. D.}, +journal = qjr, +pages = {67-92}, +title = {The computation of infra-red cooling rate in planetary atmospheres}, +volume = {92}, +year = {1966} +} + +@article{Rodg:74, +author = {Rodgers , C. D. and Williams , A. P.}, +journal = jqsrt, +pages = {319-323}, +title = {Integrated absorption of a spectral line with the \protect{V}oigt profile}, +volume = {14}, +year = {1974} +} + +@incollection{Sado:84, +author = {Sadourny,R. and Laval,K.}, +address = {Amsterdam}, +booktitle = {New perspectives in Climate Modeling}, +editor = {A.~Berger and C.~Nicolis}, +key = {Sadourny, Laval, 1984}, +pages = {173-197}, +series = {Elsevier}, +title = {January and {July} performance of the \protect{LMD} General Circulation Model}, +year = {1984} +} + +@inproceedings{Sado:80, +author = {Sadourny , Robert}, +address = {Reading}, +booktitle = {Dynamical meteorology and numerical weather prediction}, +editor = {ECMWF}, +title = {Conservation laws, quasi-two-dimensional turbulence and numerical modeling of large scale flows}, +volume = {2}, +year = {1980} +} + +@article{Sica:90, +author = {Sicardy , Bruno and Brahic , A. and Ferrari , C. and Gautier , D. and Lecacheux , J. and Lellouch , E. and Roques , F. and Arlot , J. E. and Colas , F. and Thuillot , W. and S\`evre , F. and Vidal , J. and Blanco , C. and Cristaldi , S. and Buil , C. and Klotz , A. and Thouvenot , E.}, +address = {. and Blanco , C. and Cristaldi , S. and Buil , C. and Klotz , A. and Thouvenot , E.}, +journal = {Nature}, +pages = {350}, +title = {Probing \protect{Titan's} atmosphere by stellar occultation}, +volume = {343}, +year = {1990} +} + +@article{Sant:93, +author = {Santee , Michelle and Crisp , David}, +journal = jgr, +pages = {3261-3279}, +title = {Thermal structure and Dust Loading of the \protect{Martian} atmosphere during late southern summer: \protect{Mariner} 9 revisited}, +volume = {98}, +year = {1993} +} + +@article{Step:84, +author = {Stephens , Graeme L.}, +journal = mwr, +pages = {826-867}, +title = {The Parametrization of Radiation for Numerical Weather Prediction and Climate Models}, +volume = {112}, +year = {1984} +} + +@article{Tiwa:78, +author = {Tiwari , Surendra N.}, +journal = {Adv. Geophys.}, +pages = {1-85}, +title = {Models For Infrared Atmospheric Radiation}, +volume = {20}, +year = {1978} +} + +@article{Tjem:88, +author = {Tjemkes , S. A. and Duynkerke , P. G.}, +journal = bpa, +pages = {105-113}, +title = {A New Look at the \protect{G}oody Band Model}, +volume = {61}, +year = {1988} +} + +@book{Hunt:83, +address = {Tucson, AZ, USA}, +editor = {Hunten , D. M. and Colin , L. and Donahue , T. M. and Moroz , V. I.}, +publisher = {Univ. of Arizona Press}, +series = {Space Science}, +title = {Venus}, +year = {1983} +} + +@article{Rama:89, +author = {Ramanathan, V. and R. D. Cess and E. F. Harrison +and P. Minnis and B. R. Barkstrom and E. Ahmad and D. +Hartmann}, +journal = {Science}, +pages = {57-62}, +title = {Cloud-radiative forcing and climate: results +from the {E}arth {R}adiation {B}udget {E}xperiment}, +volume = {243}, +year = {1989} +} + +@article{Russ:81, +author = {Russell , G. L. and Lerner , J. A.}, +journal = jam, +pages = {1483-1498}, +title = {A new finite-differencing scheme for the tracer transport equation}, +volume = {20}, +year = {1981} +} + +@article{Blam:93, +author = {Blamont, J. E. and Chassefi\`ere , E.}, +journal = {Icarus}, +pages = {324-336}, +title = {First detection of Ozone in the middle atmosphere of Mars from solar occultaion measurements}, +volume = {104}, +year = {1993} +} + +@article{Chas:94, +author = {Chassefi\`ere , E. and Rosenqvist , J. and Th\'eodore , B.}, +journal = pss, +pages = {825-830}, +volume = {42}, +year = {1994} +} + +@article{VanL:77, +author = {Van Leer , Bram}, +journal = jcp, +pages = {276-299}, +title = {Towards the ultimate conservative difference scheme : {IV.} A new approach to numerical convection}, +volume = {23}, +year = {1977} +} + +@article{VanL:79, +author = {Van Leer , B.}, +journal = jcp, +pages = {101-136}, +title = {Towards the ultimate conservative difference scheme. {V.} A second-order sequel to {Godunov's} method}, +volume = {32}, +year = {1979} +} + +@article{Bori:73, +author = {Boris , J. P. and Book , D. L.} +} + +@article{vanL:85, +author = {\protect{van} Leer, B.}, +journal = {Lect.~Notes Appl. Math.}, +pages = {327-336}, +title = {Upwind-difference methods for aerodynamic problems governed by the \protect{E}uler equations}, +volume = {22}, +year = {1985} +} + +@book{Vand:57, +author = {Van de Hulst , H. C.}, +note = {Republished, 1981}, +publisher = {Dover Publication, inc.}, +title = {Light scaterring by small particles}, +year = {1957} +} + +@article{Prat:86, +author = {Prather , M. J.}, +journal = jgr, +pages = {6671-6681}, +title = {Numerical advection by conservation of second order moments}, +volume = {91}, +year = {1986} +} + +@article{Mill:89, +author = {Miller, M. J. and Palmer, P. M. and Swinbank, R.}, +journal = {Meteorol. Atmos. Phys.}, +pages = {84-109}, +title = {Parametrisation and influence of sub-grid scale orography in general circulation and numerical weather prediction models.}, +volume = {40}, +year = {1989} +} + +@techreport{Bain:90, +author = {Baines, P. G. and Palmer, T. N.}, +institution = {Eur. Cent. for Medium-Range Weather Forecasts, +Reading, England}, +number = {169}, +title = {Rationale for a new physically-based parametrisation of sub-grid scale orographic effects.}, +year = {1990} +} + +@article{Wu:81, +author = {Wu, S. S. C.}, +journal = {Annales de Geophysique}, +pages = {147-160}, +title = {A method of defining topographic datums of planetary bodies}, +volume = {1}, +year = {1981} +} + +@article{Phil:84, +author = {Phillips, S. P.}, +journal = jas, +pages = {1073-1084}, +title = {Analytical surface pressure and drag for linear hydrostatic flow over three-dimensional elliptical mountains}, +volume = {41}, +year = {1984} +} + +@article{Conr:89, +author = {{Conrath}, B. and {Flasar}, F. M. and {Hanel}, R. and {Kunde}, V. and +{Maguire}, W. and {Pearl}, J. and {Pirraglia}, J. and {Samuelson}, R. and +{Gierasch}, P. and {Weir}, A. and {Bezard} +} +} + +@article{Lehn:99, +author = { Lehning , M. and Richner , H. and Kok , G. L. and Neininger , B.}, +journal = ae, +pages = {1353-1363}, +title = {Vertical exchange and regional budgets of air pollutants over densely populated areas}, +volume = {32}, +year = {1999} +} + +@article{Menu:99a, +author = { Menut , L. and Flamant , C. and Pelon , J. and Flamant , P. H.}, +journal = ao, +pages = {945-954}, +title = {Urban boundary layer height determination from lidar measurements over the {Paris} area}, +volume = {38}, +year = {1999} +} + +@article{Menu:99b, +author = { Menut , L. and Flamant , C. and Pelon , J.}, +journal = blm, +pages = {269-286}, +title = {Evidence of synoptic scale influence on the atmospheric boundary layer dynamics and turbulent processes over the Paris area}, +volume = {93}, +year = {1999} +} + +@misc{Menu:00, +author = {Menut , L. and Vautard , R. and Flamant , C. and Abonnel , C. and Beekman , M. and Chazette , P. Flamant , P. H. and Gombert , D. and Guedalia D. and Kley , D. and Lefebvre , M. B. and Lossec , B. and Martin , D. and Megie , G. and Perros , P. and Sicard , M. and Toupance , G.}, +address = {d Martin , D. and Megie , G. and Perros , P. and Sicard , M. and Toupance , G.}, +note = {Annales Geophysicae (submitted)}, +title = {Atmospheric pollution over the Paris area: The {ESQUIF} project}, +year = {2000} +} + +@article{Piel:98, +author = {Pielke , R. A. and Uliasz , M.}, +journal = ae, +pages = {1455-1466}, +title = {Use of meteorological models as input to +regional and mesoscale air quality models - Limitations and strengths}, +volume = {32}, +year = {1998} +} + +@article{Plei:94, +author = {Pleim , J. E. and Xiu , A.}, +journal = jam, +pages = {16-32}, +title = {Development and Testing of a Surface Flux and Planetary Boundary Layer Model for Application in Mesoscale Models}, +volume = {34}, +year = {1994} +} + +@article{GK1, +author = {Krinner, G. and Genthon, C.}, +journal = {Ann. Glaciol.}, +pages = {73--78}, +title = {The {A}ntarctic surface mass balance in a stretched-grid {GCM}}, +volume = {25}, +year = {1997} +} + +@article{GK2, +author = {Krinner, G. and Genthon, C. and Li, Z.-X. and Le Van, P.}, +journal = jgr, +pages = {13731--13745}, +title = {Studies of the {A}ntarctic climate with a stretched-grid general +circulation model}, +volume = {102}, +year = {1997} +} + +@article{GK3, +author = {Genthon, C. and Krinner, G. and D\'equ\'e, M.}, +journal = {Ann. Glaciol.}, +pages = {488--494}, +title = {Intra-annual variability of {A}ntarctic precipitation +from weather forecasts and high resolution climate models}, +volume = {27}, +year = {1998} +} + +@article{GK4, +author = {Krinner, G. and Genthon, C. and Jouzel, J.}, +journal = grl, +pages = {2825--2828}, +title = {{GCM} analysis of local influences on ice core $\delta$ signals}, +volume = {24}, +year = {1997} +} + +@phdthesis{GK5, +author = {Krinner, G.}, +note = {partially in French}, +pages = {209 pp.}, +school = {Universit\'e Grenoble 1}, +title = {Simulations du climat des calottes de glace}, +type = {Th\`ese de doctorat}, +year = {1997} +} + +@article{GK6, +author = {Krinner, G. and Genthon, C.}, +journal = {Clim. Dyn.}, +pages = {741--758}, +title = {{GCM} simulations of the {L}ast {G}lacial {M}aximum surface +climate of {G}reenland and {A}ntarctica}, +volume = {14}, +year = {1998} +} + +@article{GK7, +author = {Krinner, G. and Raynaud , D. and Doutriaux , C. and Dang , H.}, +journal = jgr, +pages = {2059--2070}, +title = {Simulations of the {L}ast {G}lacial {M}aximum ice sheet +surface climate: {I}mplications for the interpretation of +ice core air content}, +volume = {105}, +year = {2000} +} + +@article{GK8, +author = {Krinner, G. and Genthon, C.}, +journal = grl, +pages = {2227--2230}, +title = {Altitude dependence of the surface climate over the ice +sheets}, +volume = {26}, +year = {1999} +} + +@article{LeTr:91, +author = {Le Treut, H. and Li, Z. X.}, +journal = {Climate Dynamics}, +pages = {175-187}, +title = {Sensitivity of an atmospheric general circulation model to prescribed \protect{SST} changes: Feedback effects associated with the simulation of cloud optical properties.}, +volume = {5}, +year = {1991} +} + +@article{Harzallah:1994, +author = {A. Harzallah and R. Sadourny}, +journal = {J.Clim.}, +pages = {474-495}, +title = {Internal versus {SST}-forced atmospheric variability as simulated by atmospheric general circulation model}, +volume = {8}, +year = {1994} +} + +@article{Toig:00, +author = {{Toigo}, A.~D. and {Richardson}, M.~I.}, +journal = jgr, +pages = {4109--4121}, +title = {{Seasonal variation of aerosols in the Martian atmosphere}}, +volume = {105}, +year = {2000} +} + +@article{Kief:00, +author = {{Kieffer}, H.~H. and {Titus}, T.~N. and {Mullins}, K.~F. +and +{Christensen}, P.~R.}, +journal = jgr, +pages = {9653--9700}, +title = {{Mars south polar spring and summer behavior observed by +TES: Seasonal cap evolution controlled by frost grain size}}, +volume = {105}, +year = {2000} +} + +@article{Thom:00, +author = {{Thomas}, P.~C. and {Malin}, M.~C. and {Edgett}, K.~S. and +{Carr}, M.~H. and +{Hartmann}, W.~K. and {Ingersoll}, A.~P. and {James}, P. B.}, +journal = {Nature}, +pages = {161--164}, +title = {{North-south geological differences between the residual +polar caps on Mars}}, +volume = {404}, +year = {2000} +} + +@article{Pett:00, +author = {{Pettengill}, G.~H. and {Ford}, P.~G.}, +journal = grl, +pages = {609--613}, +title = {{Winter Clouds over the North Martian Polar Cap}}, +volume = {27}, +year = {2000} +} + +@article{Cola:00, +author = {{Colaprete}, A. and {Toon}, O.~B.}, +journal = {Icarus}, +pages = {524--532}, +title = {{The radiative effects of martian water ice clouds on the +local atmospheric temperature profile}}, +volume = {145}, +year = {2000} +} + +@article{Toum:93, +author = {{Touma}, J. and {Wisdom}, J.}, +journal = {Science}, +pages = {1294--1297}, +title = {{The chaotic obliquity of Mars}}, +volume = {259}, +year = {1993} +} + + +@article{Jego:00, +author = {{Jegou}, F. and {Chassefiere}, E. and {Forget}, F. and +{Hourdin}, F. and {Lellouch}, E. and {Encrenaz}, T. and {Moreno}, R.}, +title = "{Ground-Based Millimeter Observations of the Middle +Atmosphere of Mars: Why Are the Retrograde Winds So Strong?}", +booktitle = {AAS/Division of Planetary Sciences Meeting}, +year = 2000, +volume = 32, +pages = {5116+} +} + +@ARTICLE{Misc:03, +author = {{Mischna}, M.~A. and {Richardson}, M.~I. and {Wilson}, +R.~J. and +{McCleese}, D.~J.}, +title = "{On the orbital forcing of Martian water and CO$_{2}$ cycles: +A general circulation model study with simplified volatile schemes}", +journal = {Journal of Geophysical Research (Planets)}, +year = 2003, +pages = {16-1}, +} + + +@ARTICLE{Bert:00, +author = {{Bertaux}, J.-L. and {Fonteyn}, D. and {Korablev}, O. and +{Chassefi{\` e}re}, E. and +{Dimarellis}, E. and {Dubois}, J.~P. and {Hauchecorne}, A. and +{Cabane}, M. and {Rannou}, P. and {Levasseur-Regourd}, A.~C. and +{Cernogora}, G. and {Quemerais}, E. and {Hermans}, C. and +{Kockarts}, G. and +{Lippens}, C. and {Maziere}, M.~D. and {Moreau}, D. and {Muller}, C. +and +{Neefs}, B. and {Simon}, P.~C. and {Forget}, F. and {Hourdin}, F. +and +{Talagrand}, O. and {Moroz}, V.~I. and {Rodin}, A. and {Sandel}, B. +and +{Stern}, A.}, +title = "{The study of the martian atmosphere from top to bottom +with SPICAM light on mars express}", +journal = pss, +year = 2000, +volume = 48, +pages = {1303-1320}, +} + +@INPROCEEDINGS{Chic:03, +author = {{Chicarro}, A.~F. and {The Science Team}}, +title = "{The Mars Express Mission and Its Beagle-2 Lander}", +booktitle = {Sixth International Conference on Mars}, +year = 2003, +month = jul, +pages = {3049}, +} + +@ARTICLE{Form:02, +author = {{Formisano}, V. and {Grassi}, D. and {Ignatiev}, N. and +{Zasova}, L. and +{Maturilli}, A.}, +title = "{PFS for Mars Express: A new approach to study Martian +atmosphere}", +journal = {Advances in Space Research}, +year = 2002, +volume = 29, +pages = {131-142}, +} + +@ARTICLE{Habe:03, +author = {{Haberle}, R.~M. and {Murphy}, J.~R. and {Schaeffer}, J.}, +title = "{Orbital change experiments with a Mars general circulation +model}", +journal = {Icarus}, +year = 2003, +volume = 161, +pages = {66-89}, +} + +@ARTICLE{Habe:98, +author = {{Haberle}, R.~M.}, +title = "{Early Mars climate models}", +journal = jgr, +year = 1998, +volume = 103, +pages = {28467}, +} + +@ARTICLE{Habe:99, + author = {{Haberle}, R.~M. and {Joshi}, M.~M. and {Murphy}, J.~R. +and + {Barnes}, J.~R. and {Schofield}, J.~T. and {Wilson}, G. and + {Lopez-Valverde}, M. and {Hollingsworth}, J.~L. and {Bridger}, +A.~F.~C. and + {Schaeffer}, J.}, + title = "{General circulation model simulations of the Mars +Pathfinder atmospheric structure investigation/meteorology data}", + journal = jgr, + year = 1999, + volume = 104, + pages = {8957-8974}, +} + + + +@ARTICLE{Brid:98, + author = {{Bridger}, A.~F.~C. and {Murphy}, J.~R.}, + title = "{Mars' surface pressure tides and their behavior during +global dust storms}", + journal = jgr, + year = 1998, + volume = 103, + pages = {8587-8602}, +} + + +@ARTICLE{Cola:99, + author = {{Colaprete}, A. and {Toon}, O.~B. and {Magalh{\~ a}es}, +J.~A. + }, + title = "{Cloud formation under Mars Pathfinder conditions}", + journal = jgr, + year = 1999, + volume = 104, + pages = {9043-9054}, +} + +@ARTICLE{Cola:03a, + author = {{Colaprete}, A. and {Toon}, O.~B.}, + title = "{Carbon dioxide clouds in an early dense Martian +atmosphere}", + journal = {Jour. Geophys. Res. (Planets)}, + year = 2003, + pages = {6-1}, +} + +@ARTICLE{Cola:03b, + author = {{Colaprete}, A. and {Haberle}, R.~M. and {Toon}, O.~B.}, + title = "{Formation of convective carbon dioxide clouds near the +south pole of Mars}", + journal = {Jour. Geophy. Res. (Planets)}, + year = 2003, + pages = {17-1}, +} + +@ARTICLE{Mont:02, + author = {{Montmessin}, F. and {Rannou}, P. and {Cabane}, M.}, + title = "{New insights into Martian dust distribution and water-ice +cloud microphysics}", + journal = {Jour. Geophys. Res. (Planets)}, + year = 2002, + pages = {4-1}, +} + + + +@ARTICLE{Boyn:02, + author = {{Boynton}, W.~V. and {Feldman}, W.~C. and {Squyres}, S.~W. +and + {Prettyman}, T.~H. and {Br{\" u}ckner}, J. and {Evans}, L.~G. and + {Reedy}, R.~C. and {Starr}, R. and {Arnold}, J.~R. and {Drake}, +D.~M. and + {Englert}, P.~A.~J. and {Metzger}, A.~E. and {Mitrofanov}, I. and + {Trombka}, J.~I. and {d'Uston}, C. and {W{\" a}nke}, H. and + {Gasnault}, O. and {Hamara}, D.~K. and {Janes}, D.~M. and +{Marcialis}, R.~L. and + {Maurice}, S. and {Mikheeva}, I. and {Taylor}, G.~J. and {Tokar}, R. +and + {Shinohara}, C.}, + title = "{Distribution of Hydrogen in the Near Surface of Mars: +Evidence for Subsurface Ice Deposits}", + journal = {Science}, + year = 2002, + volume = 297, + pages = {81-85}, +} + +@INPROCEEDINGS{Habe:00lpi, + author = {{Haberle}, R.~M. and {McKay}, C.~P. and {Schaeffer}, J. +and + {Joshi}, M. and {Cabrol}, N.~A. and {Grin}, E.~A.}, + title = "{Meteorological Control on the Formation of Martian +Paleolakes}", + booktitle = {Lunar and Planetary Institute Conference Abstracts}, + year = 2000, + pages = {1509}, +} + +@INPROCEEDINGS{Bott:03, + author = {{Bottger}, H.~M. and {Lewis}, S. R. and {Read}, P. L. +and {Forget}, F. }, + title = "{{GCM simulations of the Martian water cycle} }", + booktitle = {Mars atmosphere modelling and observations workshop abstracts, {http://www-mars.lmd.jussieu.fr/granada2003} }, + year = 2003, +} + + +@INPROCEEDINGS{Mont:03, + author = {{Montmessin}, F. and {Forget}, F. and {Haberle}, R.~M. and +{Rannou}, P. and {Cabane}, M.}, + title = "{Water-Ice Clouds in the LMDs Martian General Circulation +Model}", + booktitle = {Sixth International Conference on Mars}, + year = 2003, + pages = {3117}, +} + +@ARTICLE{Bibr:04, + author = {{Bibring}, J. and {Langevin}, Y. and {Poulet}, F. and {Gendrin}, A. and + {Gondet}, B. and {Berth{\' e}}, M. and {Soufflot}, A. and {Drossart}, P. and + {Combes}, M. and {Bellucci}, G. and {Moroz}, V. and {Mangold}, N. and + {Schmitt}, B. and {OMEGA team}, the}, + title = "{Perennial water ice identified in the south polar cap of Mars}", + journal = {Nature}, + year = {2004}, + volume = 428, + pages = {627-630}, +} + +@book{Sobo:75, +author = {Sobolev , V. V.}, +publisher = {Pergamon Press}, +title = {Light scaterring in planetary atmospheres}, +year = {1975}, +} + + + +@ARTICLE{Gend:03, + author = {{Gendrin}, A. and {Erard}, S. and {Drossart}, P. and {Melchiorri}, R. + }, + title = "{Observation of pressure variations in the Martian atmosphere}", + journal = grl, + year = 2003, + volume = 30, + pages = {A14}, +} + +@article{Mass:90, + author = {{Mass}, C.~F. and {Ferber}, G.~K.}, + title = "{Surface pressure perturbations produced by an isolated mesoscale + topographic barrier. Part I: general characteristics and dynamics}", + journal = mwr, + year = 1990, + volume = 118, + pages={2579-2595}, +} + + +@ARTICLE{Suns:93, + author = {{Sunshine}, J.~M. and {Pieters}, C.~M.}, + title = "{Estimating modal abundances from the spectra of natural and laboratory pyroxene mixtures using the modified Gaussian model}", + journal = jgr, + year = 1993, + volume = 98, + pages = {9075-9087}, +} + + +@ARTICLE{Suns:98, + author = {{Sunshine}, J.~M. and {Pieters}, C.~M.}, + title = "{Determining the composition of olivine from reflectance spectroscopy}", + journal = jgr, + year = 1998, + volume = 103, + pages = {13675-13688}, + } + +@phdthesis{Rose:these, +author = {Rosenqvist, Jan}, +school = {Universit\'e Paris 7}, +title = {Mars : \'etude de son atmosph\`ere par le spectro-imageur ISM}, +year = {1991} +} + + +@book{Forg:03book, +author = {{Forget}, F. and {Costard}, F. and {Lognonn\'e}, P.}, +publisher = {Belin. Pour la science}, +title = {La plan\`ete Mars, histoire d'un autre monde}, +year = {2003} +} + +@book{Forg:06book, +author = {{Forget}, F. and {Costard}, F. and {Lognonn\'e}, P.}, +publisher = {Belin. Pour la science}, +title = {La plan\`ete Mars, histoire d'un autre monde (seconde édition +augmentée)}, +year = {2006} +} + +@ARTICLE{Titu:01, + author = {{Titus}, T.~N. and {Kieffer}, H.~H. and {Mullins}, K.~F. and + {Christensen}, P.~R.}, + title = "{TES premapping data: Slab ice and snow flurries in the +Martian north polar night}", + journal = jgr, + year = 2001, + volume = 106, + pages = {23181-23196} +} + + + +@ARTICLE{Metz:99, + author = {{Metzger}, S.~M. and {Carr}, J.~R. and {Johnson}, J.~R. and + {Parker}, T.~J. and {Lemmon}, M.~T.}, + title = "{Dust devil vortices seen by the Mars Pathfinder camera}", + journal = grl, + year = 1999, + volume = 26, + pages = {2781-2784}, +} + + +@ARTICLE{Smit:02, + author = {{Smith}, M.~D. and {Conrath}, B.~J. and {Pearl}, J.~C. and +{Christensen}, P.~R. + }, + title = "{NOTE: Thermal Emission Spectrometer Observations of Martian +Planet-Encircling Dust Storm 2001A}", + journal = {Icarus}, + year = 2002, + volume = 157, + pages = {259-263}, +} + +@ARTICLE{Newm:02b, + author = {{Newman}, C.~E. and {Lewis}, S.~R. and {Read}, P.~L. and +{Forget}, F. + }, + title = "{Modeling the Martian dust cycle 2. Multiannual radiatively +active dust transport simulations}", + journal = {Journal of Geophysical Research (Planets)}, + year = 2002, + volume = 107, + pages = {7-1}, +} + +@ARTICLE{Newm:02a, + author = {{Newman}, C.~E. and {Lewis}, S.~R. and {Read}, P.~L. and +{Forget}, F. + }, + title = "{Modeling the Martian dust cycle, 1. Representations of dust +transport processes}", + journal = {Journal of Geophysical Research (Planets)}, + year = 2002, + volume = 107, + pages = {6-1}, +} + +@ARTICLE{Smit:04, + author = {{Smith}, M.~D.}, + title = "{Interannual variability in TES atmospheric observations of +Mars during 1999-2003}", + journal = {Icarus}, + year = 2004, + volume = 167, + pages = {148-165}, +} + +@ARTICLE{Encr:04, + author = {{Encrenaz}, T. and {B{\' e}zard}, B. and {Greathouse}, +T.~K. and + {Richter}, M.~J. and {Lacy}, J.~H. and {Atreya}, S.~K. and {Wong}, +A.~S. and + {Lebonnois}, S. and {Lef{\` e}vre}, F. and {Forget}, F.}, + title = "{Hydrogen peroxide on Mars: evidence for spatial and +seasonal variations}", + journal = {Icarus}, + year = 2004, + volume = 170, + pages = {424-429}, +} + +@ARTICLE{Capd:04, + author = {{Capderou}, M. and {Forget}, F.}, + title = "{Optimal orbits for Mars atmosphere remote sensing}", + journal = pss, + year = 2004, + volume = 52, + pages = {789-798}, +} + +@ARTICLE{Ange:04, + author = {{Angelats i Coll}, M. and {Forget}, F. and {L{\' +o}pez-Valverde}, M.~A. and + {Read}, P.~L. and {Lewis}, S.~R.}, + title = "{Upper atmosphere of Mars up to 120 km: Mars Global +Surveyor accelerometer data analysis with the LMD general circulation +model}", + journal = jgr, + year = 2004, + pages = {1011}, +} + +@ARTICLE{Forg:05reve, + author = {Forget, F. and {Angelats i Coll}, M. +and Hourdin, F. and Wanherdrick, Y. and +{L{\'o}pez-Valverde}, M.~A. and + {Read}, P.~L. and {Lewis}, S.~R.}, + title = "{Upper atmosphere of Mars up to 120 km: +numerical simulation with a general circulation model +}", + journal = jgr, + year = 2004, + volume = {In preparation...}, +} + + + +@ARTICLE{Lefe:04, + author = {Lef\`evre, S. and Lebonnois, S. and Montmessin, F. and Forget, +F. }, + title = "{Three-dimensional modeling of ozone on Mars }", + journal = {Journal of Geophysical Research (Planets)}, + year = 2004, + volume = 109, + pages = {E07004}, +} + +@ARTICLE{Vand:02, + author = {{Van den Acker}, E. and {Van Hoolst}, T. and {de Viron}, O. +and + {Defraigne}, P. and {Forget}, F. and {Hourdin}, F. and {Dehant}, V. + }, + title = "{Influence of the seasonal winds and the CO$_{2}$ mass +exchange between atmosphere and polar caps on Mars' rotation}", + journal = {Journal of Geophysical Research }, + year = 2002, + volume = 107, + pages = {E7,9-1}, +} + +@ARTICLE{Levr:04, + author = {Levrard, B. and Forget, F. and Montmessin, F. and Laskar, +J. + }, + title = "{Formation of recent martian high-latitude ice-rich +deposits by sublimation of unstable equatorial ice at low obliquity +}", + journal = {Nature}, + year = 2004, + volume = {In press}, +} + + +@ARTICLE{Mont:05, + author = { +Montmessin, F. and Fouchet, T. and Forget, F. }, + title = "{ +Modeling the annual cycle of HDO in the {Martian atmosphere} +}", + journal = {Journal of Geophysical Research }, + year = 2004, + volume = {Submitted}, +} + +@ARTICLE{Tobi:03, + author = {{Tobie}, G. and {Forget}, F. and {Lott}, F.}, + title = "{Numerical simulation of the winter polar wave clouds observed by +Mars Global Surveyor Mars Orbiter Laser Altimeter}", + journal = {Icarus}, + year = 2003, + volume = 164, + pages = {33-49} +} + +@INBOOK{Squy:92, + author = {{Squyres}, S.~W. and {Clifford}, S.~M. and {Kuz'min}, R.~O. and + {Zimbelman}, J.~R. and {Costard}, F.~M.}, + title = "{Ice in the Martian regolith}", +publisher = {University of Arizona Press, Tucson}, +year = 1992, + pages = {523-554} +} +@ARTICLE{Lask:04, + author = {{Laskar}, J. and {Correia}, A.~C.~M. and {Gastineau}, M. and + {Joutel}, F. and {Levrard}, B. and {Robutel}, P.}, + title = "{Long term evolution and chaotic diffusion of the insolation +quantities of Mars}", + journal = {Icarus}, + year = 2004, + volume = 170, + pages = {343-364} +} + +@INBOOK{Bake:92, + author = {{Baker}, V.~R. and {Carr}, M.~H. and {Gulick}, V.~C. and +{Williams}, C.~R. and + {Marley}, M.~S.}, + title = "{Channels and valley networks}", +publisher = {University of Arizona Press, Tucson}, +year = 1992, + pages = {493-522} +} + +@BOOK{Carr:96, + author = {{Carr}, M.~H.}, + title = "{Water on Mars}", +publisher = {New York: Oxford University Press, |c1996}, +year = 1996 +} + +@ARTICLE{Crad:93, + author = {{Craddock}, R.~A. and {Maxwell}, T.~A.}, + title = "{Geomorphic evolution of the Martian highlands through ancient +fluvial processes}", + journal = jgr, + year = 1993, + volume = 98, + pages = {3453-3468}, +} + +@ARTICLE{Lask:02, + author = {{Laskar}, J. and {Levrard}, B. and {Mustard}, J.~F.}, + title = "{Orbital forcing of the martian polar layered deposits}", + journal = {Nature}, + year = 2002, + volume = 419, + pages = {375-377}, +} + +@ARTICLE{Clif:00, + author = {{Clifford}, S.~M. and {Crisp}, D. and {Fisher}, D.~A. and +{Herkenhoff}, K.~E. and + {Smrekar}, S.~E. and {Thomas}, P.~C. and {Wynn-Williams}, D.~D. and + {Zurek}, R.~W. and {Barnes}, J.~R. and {Bills}, B.~G. and {Blake}, E.~W. +and + {Calvin}, W.~M. and {Cameron}, J.~M. and {Carr}, M.~H. and {Christensen}, +P.~R. and + {Clark}, B.~C. and {Clow}, G.~D. and {Cutts}, J.~A. and {Dahl-Jensen}, D. +and + {Durham}, W.~B. and {Fanale}, F.~P. and {Farmer}, J.~D. and + {Forget}, F. and {Gotto-Azuma}, K. and {Grard}, R. and {Haberle}, R.~M. and + + {Harrison}, W. and {Harvey}, R. and {Howard}, A.~D. and {Ingersoll}, A.~P. +and + {James}, P.~B. and {Kargel}, J.~S. and {Kieffer}, H.~H. and + {Larsen}, J. and {Lepper}, K. and {Malin}, M.~C. and {McCleese}, D.~J. and + {Murray}, B. and {Nye}, J.~F. and {Paige}, D.~A. and {Platt}, S.~R. and + {Plaut}, J.~J. and {Reeh}, N. and {Rice}, J.~W. and {Smith}, D.~E. and + {Stoker}, C.~R. and {Tanaka}, K.~L. and {Mosley-Thompson}, E. and + {Thorsteinsson}, T. and {Wood}, S.~E. and {Zent}, A. and {Zuber}, M.~T. and + {Zwally}, H.~J.}, + title = "{The State and Future of Mars Polar Science and Exploration}", + journal = {Icarus}, + year = 2000, + volume = 144, + pages = {210-242} +} + +@ARTICLE{Smit:01mola, + author = {{Smith}, D.~E. and {Zuber}, M.~T. and {Frey}, H.~V. and {Garvin}, +J.~B. and + {Head}, J.~W. and {Muhleman}, D.~O. and {Pettengill}, G.~H. and + {Phillips}, R.~J. and {Solomon}, S.~C. and {Zwally}, H.~J. and + {Banerdt}, W.~B. and {Duxbury}, T.~C. and {Golombek}, M.~P. and + {Lemoine}, F.~G. and {Neumann}, G.~A. and {Rowlands}, D.~D. and + {Aharonson}, O. and {Ford}, P.~G. and {Ivanov}, A.~B. and {Johnson}, C.~L. +and + {McGovern}, P.~J. and {Abshire}, J.~B. and {Afzal}, R.~S. and + {Sun}, X.}, + title = "{Mars Orbiter Laser Altimeter: Experiment summary after the first +year of global mapping of Mars}", + journal = jgr, + year = 2001, +volume=106, + pages = {23689-23722}, +} + +@ARTICLE{Mitr:02, + author = {{Mitrofanov}, I. and {Anfimov}, D. and {Kozyrev}, A. and {Litvak}, +M. and + {Sanin}, A. and {Tret'yakov}, V. and {Krylov}, A. and {Shvetsov}, V. and + {Boynton}, W. and {Shinohara}, C. and {Hamara}, D. and {Saunders}, R.~S. + }, + title = "{Maps of Subsurface Hydrogen from the High Energy Neutron +Detector, Mars Odyssey}", + journal = {Science}, + year = 2002, + volume = 297, + pages = {78-81}, +} + +@ARTICLE{Feld:02, + author = {{Feldman}, W.~C. and {Boynton}, W.~V. and {Tokar}, R.~L. and + {Prettyman}, T.~H. and {Gasnault}, O. and {Squyres}, S.~W. and + {Elphic}, R.~C. and {Lawrence}, D.~J. and {Lawson}, S.~L. and + {Maurice}, S. and {McKinney}, G.~W. and {Moore}, K.~R. and {Reedy}, R.~C. + }, + title = "{Global Distribution of Neutrons from Mars: Results from Mars +Odyssey}", + journal = {Science}, + year = 2002, + volume = 297, + pages = {75-78}, +} + +@ARTICLE{Head:03, + author = {{Head}, J.~W. and {Mustard}, J.~F. and {Kreslavsky}, M.~A. and + {Milliken}, R.~E. and {Marchant}, D.~R.}, + title = "{Recent ice ages on Mars}", + journal = {Nature}, + year = 2003, + volume = 426, + pages = {797-802}, +} + +@ARTICLE{Habe:01, + author = {{Haberle}, R.~M. and {McKay}, C.~P. and {Schaeffer}, J. and + {Cabrol}, N.~A. and {Grin}, E.~A. and {Zent}, A.~P. and {Quinn}, R. + }, + title = "{On the possibility of liquid water on present-day Mars}", + journal = jgr, + year = 2001, + pages = {23317-23326}, +} + +@ARTICLE{Hech:02, + author = {{Hecht}, M.~H.}, + title = "{Metastability of Liquid Water on Mars}", + journal = {Icarus}, + year = 2002, + volume = 156, + pages = {373-386}, +} + +@ARTICLE{Head:03nat, + author = {{Head}, J.~W. and {Mustard}, J.~F. and {Kreslavsky}, M.~A. and + {Milliken}, R.~E. and {Marchant}, D.~R.}, + title = "{Recent ice ages on Mars}", + journal = {Nature}, + year = 2003, + volume = 426, + pages = {797-802}, +} + +@ARTICLE{Mali:00gul, + author = {{Malin}, M.~C. and {Edgett}, K.~S.}, + title = "{Evidence for Recent Groundwater Seepage and Surface Runoff on +Mars}", + journal = {Science}, + year = 2000, + volume = 288, + pages = {2330-2335}, +} + + +@ARTICLE{Mali:00lay, +author = {{Malin}, M.~C. and {Edgett}, K.~S.}, + title = "{Sedimentary Rocks of Early Mars}", + journal = {Science}, + year = 2000, + volume = 290, + pages = {1927-1937}, + +} + +@ARTICLE{Mali:03, +author = {{Malin}, M.~C. and {Edgett}, K.~S.}, + title = "{Evidence for Persistent Flow and Aqueous Sedimentation on Early +Mars}", + journal = {Science}, + year = 2003, + volume = 302, + pages = {1931-1934}, +} + +@ARTICLE{Cost:02, + author = {{Costard}, F. and {Forget}, F. and {Mangold}, N. and {Peulvast}, +J.~P. + }, + title = "{Formation of Recent Martian Debris Flows by Melting of +Near-Surface Ground Ice at High Obliquity}", + journal = {Science}, + year = 2002, + volume = 295, + pages = {110-113}, +} + +@ARTICLE{Mang:03dune, + author = {{Mangold}, N. and {Costard}, F. and {Forget}, F.}, + title = "{Debris flows over sand dunes on Mars: Evidence for liquid +water}", + journal = {Journal of Geophysical Research (Planets)}, + year = 2003, + volume = 108, + pages = {8-1}, +} + +@ARTICLE{Mang:04, + author = {{Mangold}, N. and {Quantin}, C. and {Ansan}, V. and {Delacourt}, +C. and + {Allemand}, P.}, + title = "{Evidence for Precipitation on Mars from Dendritic Valleys in the +Valles Marineris Area}", + journal = {Science}, + year = 2004, + volume = 305, + pages = {78-81}, +} + +@ARTICLE{Crad:02, + author = {{Craddock}, R.~A. and {Howard}, A.~D.}, + title = "{The case for rainfall on a warm, wet early Mars}", + journal = {Journal of Geophysical Research (Planets)}, + year = 2002, + volume = 107, + pages = {21-1}, +} + +@ARTICLE{Chri:01, + author = {{Christensen}, P.~R. and {Bandfield}, J.~L. and {Hamilton}, V.~E. +and + {Ruff}, S.~W. and {Kieffer}, H.~H. and {Titus}, T.~N. and {Malin}, M.~C. +and + {Morris}, R.~V. and {Lane}, M.~D. and {Clark}, R.~L. and {Jakosky}, B.~M. +and + {Mellon}, M.~T. and {Pearl}, J.~C. and {Conrath}, B.~J. and + {Smith}, M.~D. and {Clancy}, R.~T. and {Kuzmin}, R.~O. and {Roush}, T. and + {Mehall}, G.~L. and {Gorelick}, N. and {Bender}, K. and {Murray}, K. and + {Dason}, S. and {Greene}, E. and {Silverman}, S. and {Greenfield}, M. + }, + title = "{Mars Global Surveyor Thermal Emission Spectrometer experiment: +Investigation description and surface science results}", + journal = jgr, + year = 2001, + volume = 111, + pages = {23823-23872}, +} + +@ARTICLE{Segu:02, + author = {{Segura}, T.~L. and {Toon}, O.~B. and {Colaprete}, A. and +{Zahnle}, K. + }, + title = "{Environmental Effects of Large Impacts on Mars}", + journal = {Science}, + year = 2002, + volume = 298, + pages = {1977-1980}, +} + + +@ARTICLE{Mont:04jgr, + author = {{Montmessin}, F. and {Forget}, F. and {Rannou}, P. and +{Cabane}, M. and + {Haberle}, R.~M.}, + title = "{Origin and role of water ice clouds in the Martian water +cycle as inferred from a general circulation model}", + journal = {Journal of Geophysical Research (Planets)}, + year = 2004, + volume = 109, + number = "E18", + pages = {10004}, +} + +@ARTICLE{Shea:05, + author = {{Shean}, D.~E. and {Head}, J.~W. and {Marchant}, D.~R.}, + title = "{Origin and evolution of a cold-based tropical mountain +glacier on Mars: The Pavonis Mons fan-shaped deposit}", + journal = {Journal of Geophysical Research (Planets)}, + year = 2005, + volume = 110, + number = {E9}, + pages = {5001}, +} + +@ARTICLE{Haub:05, + author = {{Hauber}, E. and {van Gasselt}, S. and {Ivanov}, B. and +{Werner}, S. and + {Head}, J.~W. and {Neukum}, G. and {Jaumann}, R. and {Greeley}, R. +and + {Mitchell}, K.~L. and {Muller}, P. and {Co-Investigator Team}, T.~H. + }, + title = "{Discovery of a flank caldera and very young glacial +activity at Hecates Tholus, Mars}", + journal = {Nature}, + year = 2005, + volume = 434, + pages = {356-361}, +} + + +@ARTICLE{Head:05, + author = {{Head}, J.~W. and {Neukum}, G. and {Jaumann}, R. and +{Hiesinger}, H. and + {Hauber}, E. and {Carr}, M. and {Masson}, P. and {Foing}, B. and + {Hoffmann}, H. and {Kreslavsky}, M. and {Werner}, S. and {Milkovich}, +S. and + {van Gasselt}, S. and {Co-Investigator Team}, T.~H.}, + title = "{Tropical to mid-latitude snow and ice accumulation, flow +and glaciation on Mars}", + journal = {Nature}, + year = 2005, + volume = 434, + pages = {346-351}, +} + + + +@ARTICLE{Squy:79, + author = {{Squyres}, S.~W.}, + title = "{The distribution of lobate debris aprons and similar flows +on Mars}", + journal = jgr, + year = 1979, + volume = 84, + pages = {8087-8096}, +} + +@ARTICLE{Lucc:84, + author = {{Lucchitta}, B.~K.}, + title = "{Ice and debris in the fretted terrain, Mars}", + journal = {Journal of Geophysical Research Supplement}, + year = 1984, + volume = 89, + pages = {409}, +} + +@ARTICLE{Lucc:81, + author = {{Lucchitta}, B.~K.}, + title = "{Mars and earth - Comparison of cold-climate features}", + journal = {Icarus}, + year = 1981, + volume = 45, + pages = {264-303}, +} + +@ARTICLE{Mill:03, + author = {{Milliken}, R.~E. and {Mustard}, J.~F. and {Goldsby}, +D.~L.}, + title = "{Viscous flow features on the surface of Mars: Observations +from high-resolution Mars Orbiter Camera (MOC) images}", + journal = {Journal of Geophysical Research (Planets)}, + year = 2003, + volume = 108, + number = "E6", + pages = {11-1}, +} + +@ARTICLE{Marq:04, + author = {{M{\' a}rquez}, {\' A}. and {Fern{\' a}ndez}, C. and +{Anguita}, F. and + {Farelo}, A. and {Anguita}, J. and {de La Casa}, M.}, + title = "{New evidence for a volcanically, tectonically, and +climatically active Mars}", + journal = {Icarus}, + year = 2004, + volume = 172, + pages = {573-581}, +} + +@ARTICLE{Arfs:05, + author = {{Arfstrom}, J. and {Hartmann}, W.~K.}, + title = "{Martian flow features, moraine-like ridges, and gullies: +Terrestrial analogs and interrelationships}", + journal = {Icarus}, + year = 2005, + volume = 174, + pages = {321-335}, +} + +@ARTICLE{Hart:03, + author = {{Hartmann}, W.~K. and {Thorsteinsson}, T. and {Sigurdsson}, +F. + }, + title = "{Martian hillside gullies and icelandic analogs}", + journal = {Icarus}, + year = 2003, + volume = 162, + pages = {259-277}, +} + +@ARTICLE{Chri:03, + author = {{Christensen}, P.~R.}, + title = "{Formation of recent martian gullies through melting of +extensive water-rich snow deposits}", + journal = {Nature}, + year = 2003, + volume = 422, + pages = {45-48}, +} + +@ARTICLE{Mang:03aprons, + author = {{Mangold}, N.}, + title = "{Geomorphic analysis of lobate debris aprons on Mars at Mars +Orbiter Camera scale: Evidence for ice sublimation initiated by +fractures}", + journal = {Journal of Geophysical Research (Planets)}, + year = 2003, + volume = 108, + number = "E4", + pages = {2-1}, +} + +@ARTICLE{Jako:85nat, + author = {{Jakosky}, B.~M. and {Carr}, M.~H.}, + title = "{Possible precipitation of ice at low latitudes of Mars +during periods of high obliquity}", + journal = {Nature}, + year = 1985, + volume = 315, + pages = {559-561}, +} + +@ARTICLE{Head:03geo, + author = {Head, J. W. and Marchant, D. R.}, + title = "{ +Cold-based mountain glaciers on Mars: western Arsia Mons. +}", + journal = {Geology}, + year = 2003, + volume = 31, + pages = {641-644}, +} + +@ARTICLE{Mont:04, + author = {{Montmessin}, F. and {Forget}, F. and {Rannou}, P. and +{Cabane}, M. and + {Haberle}, R.~M.}, + title = "{Origin and role of water ice clouds in the Martian water +cycle as inferred from a general circulation model}", + journal = {Journal of Geophysical Research (Planets)}, + year = 2004, + volume = 109, + number = "E18", + pages = {10004}, +} + +@ARTICLE{Rich:02, + author = {{Richardson}, M.~I. and {Wilson}, R.~J.}, + title = "{Investigation of the nature and stability of the Martian +seasonal water cycle with a general circulation model}", + journal = {Journal of Geophysical Research (Planets)}, + year = 2002, + volume = 107, + number = "E5", + pages = {7-1}, +} + + +@ARTICLE{Clan:03, + author = {{Clancy}, R.~T. and {Wolff}, M.~J. and {Christensen}, +P.~R.}, + title = "{Mars aerosol studies with the MGS TES emission phase +function observations: Optical depths, particle sizes, and ice cloud +types versus latitude and solar longitude}", + journal = {Journal of Geophysical Research (Planets)}, + year = 2003, + volume = 108, + number = {E9}, + pages = {2-1}, +} + +@ARTICLE{Newm:05, + author = {{Newman}, C.~E. and {Lewis}, S.~R. and {Read}, P.~L.}, + title = "{The atmospheric circulation and dust activity in different +orbital epochs on Mars}", + journal = {Icarus}, + year = 2005, + volume = 174, + pages = {135-160}, +} + +@ARTICLE{Misc:05, + author = {{Mischna}, M.~A. and {Richardson}, M.~I.}, + title = "{A reanalysis of water abundances in the Martian atmosphere +at high obliquity}", + journal = grl, + year = 2005, + volume = 32, + pages = {3201}, +} + + +@INPROCEEDINGS{Mont:04lpi, + author = {{Montmessin}, F. and {Haberle}, R.~M. and {Forget}, F.}, + title = "{Making Water Ice Permanent at the South Pole 25000 Years +Ago}", +booktitle = {Lunar and Planetary Institute Conference Abstracts}, + year = 2004, + pages = {1312}, +} + +@INPROCEEDINGS{Chap:05, + author = {{Chapman}, M.~G. and {Soderblom}, L.~A. and {Cushing}, G.}, + title = "{Evidence of Very Young Glacial Processes in Central Candor +Chasma, Mars}", +booktitle = {36th Annual Lunar and Planetary Science Conference}, + year = 2005, + pages = {1850}, +} + +@INPROCEEDINGS{Fast:05, + author = {{Fastook}, J.~L. and {Head}, J.~W. and {Marchant}, D.~R. and + {Shean}, D.~E.}, + title = "{Ice Sheet Modeling: Mass Balance Relationships for +Map-Plane Ice Sheet Reconstruction: Application to Tharsis Montes +Glaciation}", +booktitle = {36th Annual Lunar and Planetary Science Conference}, + year = 2005, + pages = {1212}, +} + +rt + +@ARTICLE{Neuk:04, + author = {{Neukum}, G. and {Jaumann}, R. and {Hoffmann}, H. and {Hauber}, E. and + {Head}, J.~W. and {Basilevsky}, A.~T. and {Ivanov}, B.~A. and + {Werner}, S.~C. and {van Gasselt}, S. and {Murray}, J.~B. and + {McCord}, T. and {HRSC Co-Investigator Team}, T.}, + title = "{Recent and episodic volcanic and glacial activity on Mars revealed by the High Resolution Stereo Camera}", + journal = {Nature}, + year = 2004, + volume = 432, + pages = {971-979}, + doi = {10.1038/nature03231}, +} + +@ARTICLE{Pier:03, + author = {{Pierce}, T.~L. and {Crown}, D.~A.}, + title = "{Morphologic and topographic analyses of debris aprons in +the eastern Hellas region, Mars}", + journal = {Icarus}, + year = 2003, + volume = 163, + pages = {46-65}, +} + +@INPROCEEDINGS{Milk:03, + author = {{Milkovich}, S.~M. and {Head}, J.~W.}, + title = "{Olympus Mons Fan Shaped Deposit Morphology: Evidence for +Debris Glaciers}", +booktitle = {Sixth International Conference on Mars}, + year = 2003, + pages = {3149}, +} + +@ARTICLE{Rafk:01, + author = {{Rafkin}, S.~C.~R. and {Haberle}, R.~M. and {Michaels}, T.~I. + }, + title = "{The Mars Regional Atmospheric Modeling System: Model Description and +Selected Simulations}", + journal = {Icarus}, + year = 2001, + volume = 151, + pages = {228-256}, +} + + +@ARTICLE{Tyle:02, + author = {{Tyler}, D. and {Barnes}, J.~R. and {Haberle}, R.~M.}, + title = "{Simulation of surface meteorology at the Pathfinder and VL1 sites using +a Mars mesoscale model}", + journal = {Journal of Geophysical Research (Planets)}, + year = 2002, + volume = 107, + number = {E4}, + pages = {5018}, +} + +@ARTICLE{Toig:02, + author = {{Toigo}, A.~D. and {Richardson}, M.~I.}, + title = "{A mesoscale model for the Martian atmosphere}", + journal = {Journal of Geophysical Research (Planets)}, + year = 2002, + volume = 107, + number = {E12}, + pages = {5049}, + doi = {10.1029/2000JE001489}, +} + +@ARTICLE{Stam:88, + author = {{Stamnes}, K. and {Tsay}, S.-C. and {Jayaweera}, K. and + {Wiscombe}, W.}, +title = "{Numerically stable algorithm for + discrete-ordinate-method radiative transfer in + multiple scattering and emitting layered media}", +journal = {Applied Optics}, +year = 1988, +volume = 27, +pages = {2502-2509}, +} + +@ARTICLE{Evan:98, + author = {{Evans}, K.~F.}, + title = "{The Spherical Harmonics Discrete Ordinate + Method for Three-Dimensional Atmospheric + Radiative Transfer.}", + journal = {Journal of Atmospheric Sciences}, + year = 1998, + volume = 55, + pages = {429-446}, +} + +@ARTICLE{Melc:06, + author = {{Melchiorri}, R. and {Drossart}, P. and {Fouchet}, T. and {B{\'e}zard}, B. and + {Forget}, F. and {Gendrin}, A. and {Bibring}, J.~P. and {Manaud}, N. and + {OMEGA Team}}, + title = "{A simulation of the OMEGA/Mars Express observations: Analysis of the atmospheric +contribution}", + journal = pss, + year = 2006, + volume = 54, + pages = {774-783}, + doi = {10.1016/j.pss.2006.04.014}, +} + +@ARTICLE{Bibr:05, + author = {{Bibring}, J.-P. and {Langevin}, Y. and {Gendrin}, A. and {Gondet}, B. and + {Poulet}, F. and {Berth{\'e}}, M. and {Soufflot}, A. and {Arvidson}, R. and + {Mangold}, N. and {Mustard}, J. and {Drossart}, P.}, + title = "{Mars Surface Diversity as Revealed by the OMEGA/Mars Express Observations}", + journal = {Science}, + year = 2005, + volume = 307, + pages = {1576-1581}, + doi = {10.1126/science.1108806}, +} + +@ARTICLE{Erar:94, + author = {{Erard}, S. and {Mustard}, J. and {Murchie}, S. and {Bibring}, J.-P. and + {Cerroni}, P. and {Caradini}, A.}, + title = "{Martian aerosols: Near-infrared spectral properties and effects on the observation of the +surface}", + journal = {Icarus}, + year = 1994, + volume = 111, + pages = {317-337}, + doi = {10.1006/icar.1994.1148}, +} + +@ARTICLE{Tito:00, + author = {{Titov}, D.~V. and {Fedorova}, A.~A. and {Haus}, R.}, + title = "{A new method of remote sounding of the Martian aerosols by means of spectroscopy in the +2.7 {$\mu$}m CO$_{2}$ band}", + journal = pss, + year = 2000, + volume = 48, + pages = {67-74}, +} + +@ARTICLE{Hins:04, + author = {{Hinson}, D.~P. and {Smith}, M.~D. and {Conrath}, B.~J.}, + title = "{Comparison of atmospheric temperatures obtained through infrared sounding and +radio occultation by Mars Global Surveyor}", + journal = jgr, + year = 2004, + volume = 109, + number = {E18}, + pages = {12002}, + doi = {10.1029/2004JE002344}, +} + +@ARTICLE{Gras:05, + author = {{Grassi}, D. and {Fiorenza}, C. and {Zasova}, L.~V. and +{Ignatiev}, N.~I. and + {Maturilli}, A. and {Formisano}, V. and {Giuranna}, M.}, + title = "{The Martian atmosphere above great volcanoes: Early +planetary Fourier spectrometer observations}", + journal = pss, + year = 2005, + volume = 53, + pages = {1053-1064}, + doi = {10.1016/j.pss.2005.02.008}, +} + +@ARTICLE{Gras:07, + author = {{Grassi}, D. and {Formisano}, V. and {Forget}, F. +and {Fiorenza}, C. and {Ignatiev}, N.~I. and {Maturilli}, A. and +{Zasova}, L.~V.}, + title = "{The martian atmosphere in the region of Hellas basin as + observed by the planetary Fourier spectrometer (PFS-MEX)}", + journal = pss, + year = 2007, + volume = 55, + pages = {1346-1357}, + doi = {10.1016/j.pss.2006.12.006}, +} + +@INPROCEEDINGS{Paet:06gra, + author = {{P{\"a}tzold}, M. and {Tellmann}, S. and {H{\"a}usler}, B. +and + {Hinson}, D. and {Tyler}, G.~L.}, + title = "{Radio-sounding of the neutral martian atmosphere with Mars +Express: overview of the observations}", +booktitle = {Mars Atmosphere Modelling and Observations}, + year = 2006, + pages = {132}, + editor = {Forget et al.}, +} + + + +@INPROCEEDINGS{Keat:03, + author = {{Keating}, G.~M. and {Theriot}, Jr., M. and {Tolson}, R. and + {Bougher}, S. and {Forget}, F. and {Forbes}, J.}, + title = "{Global Measurements of the Mars Upper Atmosphere: In Situ +Accelerometer Measurements from Mars Odyssey 2001 and Mars Global +Surveyor}", +booktitle = {Lunar and Planetary Institute Conference Abstracts}, + year = 2003, + editor = {{Mackwell}, S. and {Stansbery}, E.}, + pages = {1142}, +} + +@ARTICLE{Forb:02, + author = {{Forbes}, J.~M. and {Bridger}, A.~F.~C. and {Bougher}, S.~W. +and + {Hagan}, M.~E. and {Hollingsworth}, J.~L. and {Keating}, G.~M. and + {Murphy}, J.}, + title = "{Nonmigrating tides in the thermosphere of Mars}", + journal = jgr, + year = 2002, + volume = 107, + pages = {23-1}, + doi = {10.1029/2001JE001582}, +} + + + +@INPROCEEDINGS{Forg:06mcd, + author = {{Forget}, F. and {Millour}, E. and {Lebonnois}, S. and {Montabone}, L. and + {Dassas}, K. and {Lewis}, S.~R. and {Read}, P.~L. and {L{\'o}pez-Valverde}, M.~A. and + {Gonz{\'a}lez-Galindo}, F. and {Montmessin}, F. and {Lef{\`e}vre}, F. and + {Desjean}, M.-C. and {Huot}, J.-P.}, + title = "{The new Mars climate database}", + booktitle = {Mars Atmosphere Modelling and Observations}, + year = 2006, + editor = {{Forget et al.}}, + pages = {625}, + adsurl = {http://adsabs.harvard.edu/abs/2006mamo.conf..625G}, +} + + + +@ARTICLE{Must:05, + author = {{Mustard}, J.~F. and {Poulet}, F. and {Gendrin}, A. and {Bibring}, J.-P. and + {Langevin}, Y. and {Gondet}, B. and {Mangold}, N. and {Bellucci}, G. and + {Altieri}, F.}, + title = "{Olivine and Pyroxene Diversity in the Crust of Mars}", + journal = sci, + year = 2005, + volume = 307, + pages = {1594-1597}, + doi = {10.1126/science.1109098}, +} + +@ARTICLE{Bell:06, + author = {{Bellucci}, G. and {Altieri}, F. and {Bibring}, J.~P. and {Bonello}, G. and + {Langevin}, Y. and {Gondet}, B. and {Poulet}, F.}, + title = "{OMEGA/Mars Express: Visual channel performances and data reduction techniques}", + journal = pss, + year = 2006, + volume = 54, + pages = {675-684}, + doi = {10.1016/j.pss.2006.03.006}, +} + +@INPROCEEDINGS{Gond:06, + author = {{Gondet}, B. and {Bibring}, J.-P. and {Langevin}, Y. and {Poulet}, F. and + {Montmessin}, F. and {Forget}, F.}, + title = "{One martian year observation of H2O ice clouds By OMEGA/Mars Express}", + booktitle = {Mars Atmosphere Modelling and Observations}, + year = 2006, + pages = {251}, + editor = {{Forget et al.}}, + adsurl = {http://adsabs.harvard.edu/abs/2006mamo.conf..625G}, +} + +@ARTICLE{Lang:05, + author = {{Langevin}, Y. and {Poulet}, F. and {Bibring}, J.-P. and {Schmitt}, B. and + {Dout{\'e}}, S. and {Gondet}, B.}, + title = "{Summer Evolution of the North Polar Cap of Mars as Observed by OMEGA/Mars Express}", + journal = sci, + year = 2005, + volume = 307, + pages = {1581-1584}, + doi = {10.1126/science.1109438}, +} + + +@ARTICLE{Bibr:06, + author = {{Bibring}, J.-P. and {Langevin}, Y. and {Mustard}, J.~F. and + {Poulet}, F. and {Arvidson}, R. and {Gendrin}, A. and {Gondet}, B. and + {Mangold}, N. and {Pinet}, P. and {Forget}, F.}, + title = "{Global Mineralogical and Aqueous Mars History Derived from OMEGA/Mars Express Data}", + journal = sci, + year = 2006, + volume = 312, + pages = {400-404}, + doi = {10.1126/science.1122659}, +} + +@INBOOK{Bibr:04doc, + author = {{Bibring}, J.-P. and {Soufflot}, A. and {Berth{\'e}}, M. and + {Langevin}, Y. and {Gondet}, B. and {Drossart}, P. and {Bouy{\'e}}, M. and + {Combes}, M. and {Puget}, P. and {Semery}, A. and {Bellucci}, G. and + {Formisano}, V. and {Moroz}, V. and {Kottsov}, V. and {Bonello}, G. and + {Erard}, S. and {Forni}, O. and {Gendrin}, A. and {Manaud}, N. and + {Poulet}, F. and {Poulleau}, G. and {Encrenaz}, T. and {Fouchet}, T. and + {Melchiori}, R. and {Altieri}, F. and {Ignatiev}, N. and {Titov}, D. and + {Zasova}, L. and {Coradini}, A. and {Capacionni}, F. and {Cerroni}, P. and + {Fonti}, S. and {Mangold}, N. and {Pinet}, P. and {Schmitt}, B. and + {Sotin}, C. and {Hauber}, E. and {Hoffmann}, H. and {Jaumann}, R. and + {Keller}, U. and {Arvidson}, R. and {Mustard}, J. and {Forget}, F.}, + title = "{OMEGA: Observatoire pour la Min{\'e}ralogie, l'Eau, les Glaces et l'Activit{\'e}}", + publisher = {ESA SP-1240: Mars Express: the Scientific Payload}, + year = 2004, + pages = {37-49}, +} + +@misc{Lang:05doc, + author = {Langevin, Y.}, + title = {\protect{OMEGA} software documentation version 3}, + year = {2005} +} + +@ARTICLE{Wang:02, + author = {{Wang}, H. and {Ingersoll}, A.~P.}, + title = "{Martian clouds observed by Mars Global Surveyor Mars Orbiter Camera}", + journal = jgr, + year = 2002, + volume = 107, + pages = {5078-+}, + doi = {10.1029/2001JE001815}, +} + + +@book{Read:04, + author = {{Read}, P.~L. and {Lewis}, S.~R.}, + publisher = {Springer/Praxis Publishing}, + title = {The Martian climate revisited: Atmosphere and Environment of a desert planet}, + year = {2004}, + adress = "Berlin \ Heidelberg \ New York" +} + +@ARTICLE{Crea:06, + author = {{Creasey}, J.~E. and {Forbes}, J.~M. and {Hinson}, D.~P.}, + title = "{Global and seasonal distribution of gravity wave activity in Mars' lower atmosphere derived from MGS radio occultation data}", + journal = grl, + year = 2006, + volume = 33, + pages = {1803}, + doi = {10.1029/2005GL024037}, +} + +@ARTICLE{Vinc:00, + author = {{Vincent}, R.~A. and {Alexander}, M.~J.}, + title = "{Gravity waves in the tropical lower stratosphere: An observational study of seasonal and interannual variability}", + journal = jgr, + year = 2000, + volume = 105, + number = 14, + pages = {17971-17982}, + doi = {10.1029/2000JD900196}, +} + +@ARTICLE{Plou:03, + author = {{Plougonven}, R. and {Teitelbaum}, H. and {Zeitlin}, V.}, + title = "{Inertia gravity wave generation by the tropospheric midlatitude jet as given by the Fronts and Atlantic + Storm-Track Experiment radio soundings}", + journal = jgr, + year = 2003, + volume = 108, + number = 21, + pages = {4686-4704}, + doi = {10.1029/2003JD003535}, +} + + +@INPROCEEDINGS{Tyle:06, + author = {{Tyler}, Jr., D. and {Barnes}, J.~R. and {Skyllingstad}, E.}, + title = "{A New Large Eddy Simulation Model to Study the Convective Planetary Boundary Layer On Mars}", + booktitle = {Mars Atmosphere Modelling and Observations}, + year = 2006, + editor = {{Forget}, F. and {Lopez-Valverde}, M.~A. and {Desjean}, M.~C. and + {Huot}, J.~P. and {Lefevre}, F. and {Lebonnois}, S. and {Lewis}, S.~R. and + {Millour}, E. and {Read}, P.~L. and {Wilson}, R.~J.}, + pages = {124}, +} + +@ARTICLE{Koff:98, + author = {{Koffi}, E. and {B{\'e}nech}, B. and {Stein}, J. and {Terliuc}, B. + }, + title = "{Dynamic Characteristics of Regional Flows around the Pyr{\'e}n{\'e}es in View of the PYREX Experiment. Part II: Solution of a Linear Model Compared to Field Measurements.}", + journal = jam, + year = 1998, + volume = 37, + pages = {53-71}, +} + +@ARTICLE{Youn:02, + author = {{Young}, G.~S. and {Kristovich}, D.~A.~R. and {Hjelmfelt}, M.~R. and + {Foster}, R.~C.}, + title = "{Rolls, Streets, Waves, and More: A Review of Quasi-Two-Dimensional Structures in the Atmospheric Boundary Layer.}", + journal = bams, + year = 2002, + volume = 83, + pages = {997-1001}, +} + +@ARTICLE{Smit:80, + author = {{Smith}, R.~B.}, + title = "{Linear theory of stratified hydrostatic flow past an isolated mountain}", + journal = {Tellus}, + year = 1980, + volume = 32, + pages = {348}, +} + +@misc{Skam:05, + author = {{Skamarock}, W.~C. and {Klemp}, J.~B. and {Dudhia}, J. and + {Gill}, D.~O. and {Barker}, D.~M. and {Wang}, W. and {Powers}, J.~G.}, + title = "{A description of the Advanced Research \protect{WRF}, version 2.}", + journal = {National Center for Atmospheric Research Technical Note}, + year = 2005, + pages = {468+STR}, +} + +@book{Goss:75, + author = {{Gossard}, E.~E. and {Hooke}, W.~H.}, + edition = {first}, + publisher = {Elsevier Scientific Publishing}, + series = {Developments in Atmospheric Science}, + title = "{Waves in the atmosphere: Atmospheric infrasound + and gravity waves - Their generation and propagation}", + volume = {2}, + year = {1975}, + adress = "Amsterdam - Oxford - New York" +} + +@ARTICLE{Boug:97, + author = {{Bougeault}, P. and {Benech}, B. and {Bessemoulin}, P. + and {Carissimo}, B. and {Jansa Clar}, A. and {Pelon}, J. + and {Petitdidier}, M. and {Richard}, E.}, + title = "{PYREX: A Summary of Findings.}", + journal = bams, + year = 1997, + volume = 78, + pages = {637-637}, +} + +@ARTICLE{Dubu:01, + author = {{Dubuisson}, P. and {Borde}, R. + and {Schmechtig}, C. and {Santer}, R.}, + title = "{Surface pressure estimates from satellite data in + the oxygen A-band: Applications to the MOS sensor over land}", + journal = jgr, + year = 2001, + volume = 106, + pages = {27277-27286}, + doi = {10.1029/2001JD000401}, +} + +@ARTICLE{Mitc:87, + author = {{Mitchell}, R.~M. and {O'Brien}, D.~M.}, + title = "{Error Estimates for Passive Satellite Measurement + of Surface Pressure Using Absorption in the A Band of Oxygen.}", + journal = jas, + year = 1987, + volume = 44, + pages = {1981-1990}, +} + +@ARTICLE{Mont:06luca, + author = {{Montabone}, L. and {Lewis}, S.~R. and {Read}, P.~L. and {Hinson}, D.~P.}, + title = "{Validation of martian meteorological data assimilation for MGS/TES using radio occultation measurements}", + journal = {Icarus}, + year = 2006, + volume = 185, + pages = {113-132}, + doi = {10.1016/j.icarus.2006.07.012}, +} + +@ARTICLE{Bibr:91, + author = {{Bibring}, J.-P. and {Erard}, S. and {Gondet}, B. and +{Langevin}, Y. and + {Soufflot}, A. and {Combes}, M. and {Cara}, C. and {Drossart}, +P. and + {Encrenaz}, T. and {Lellouch}, E. and {Rosenqvist}, J. and +{Moroz}, V.~I. and + {Dyachkov}, A.~V. and {Grygoriev}, A.~V. and {Havinson}, N.~G. +and + {Khatuntsev}, I.~V. and {Kiselev}, A.~V. and {Ksanfomality}, +L.~V. and + {Nikolsky}, Y.~V. and {Masson}, P. and {Forni}, O. and {Sotin}, +C. + }, + title = "{Topography of the Martian tropical regions with +ISM}", + journal = pss, + year = 1991, + volume = 39, + pages = {225-236}, + doi = {10.1016/0032-0633(91)90146-2}, +} + +@INPROCEEDINGS{Smit:06granada, + author = {{Smith}, M.~D.}, + title = "{TES atmospheric temperature, aerosol optical depth, and +water vapor observations 1999-2004}", +booktitle = {Mars Atmosphere Modelling and Observations}, + year = 2006, + editor = {{Forget}, F. and {Lopez-Valverde}, M.~A. and {Desjean}, +M.~C. and + {Huot}, J.~P. and {Lefevre}, F. and {Lebonnois}, S. and {Lewis}, +S.~R. and + {Millour}, E. and {Read}, P.~L. and {Wilson}, R.~J.}, + pages = {211}, +} + +@ARTICLE{Zaso:05, + author = {{Zasova}, L. and {Formisano}, V. and {Moroz}, V. and +{Grassi}, D. and + {Ignatiev}, N. and {Giuranna}, M. and {Hansen}, G. and {Blecka}, M. +and + {Ekonomov}, A. and {Lellouch}, E. and {Fonti}, S. and {Grigoriev}, A. +and + {Hirsch}, H. and {Khatuntsev}, I. and {Mattana}, A. and {Maturilli}, +A. and + {Moshkin}, B. and {Patsaev}, D. and {Piccioni}, G. and {Rataj}, M. +and + {Saggin}, B.}, + title = "{Water clouds and dust aerosols observations with PFS MEX at +Mars}", + journal = pss, + year = 2005, + volume = 53, + pages = {1065-1077}, + doi = {10.1016/j.pss.2004.12.010}, +} + +@ARTICLE{Lebo:06, + author = {{Lebonnois}, S. and {Qu{\'e}merais}, E. and {Montmessin}, +F. and + {Lef{\`e}vre}, F. and {Perrier}, S. and {Bertaux}, J.-L. and + {Forget}, F.}, + title = "{Vertical distribution of ozone on Mars as measured by +SPICAM/Mars Express using stellar occultations}", + journal = {Journal of Geophysical Research (Planets)}, + year = 2006, + volume = 111, + pages = {9}, + doi = {10.1029/2005JE002643}, +} + +@ARTICLE{Lang:06, + author = {{Langevin}, Y. and {Dout{\'e}}, S. and {Vincendon}, M. and +{Poulet}, F. and + {Bibring}, J.-P. and {Gondet}, B. and {Schmitt}, B. and {Forget}, F. + }, + title = "{No signature of clear {CO$_{2}$} ice from the `cryptic' +regions in Mars' south seasonal polar cap}", + journal = {Nature}, + year = 2006, + volume = 442, + pages = {790-792}, + doi = {10.1038/nature05012}, +} + +@ARTICLE{Mont:06franck, + author = {{Montmessin}, F. and {Bertaux}, J.-L. and {Qu{\'e}merais}, E. and + {Korablev}, O. and {Rannou}, P. and {Forget}, F. and {Perrier}, S. and + {Fussen}, D. and {Lebonnois}, S. and {R{\'e}b{\'e}rac}, A. and + {Dimarellis}, E.}, + title = "{Subvisible {CO$_2$} ice clouds detected in the mesosphere of +Mars}", + journal = {Icarus}, + year = 2006, + volume = 183, + pages = {403-410}, + doi = {10.1016/j.icarus.2006.03.015}, +} + +@ARTICLE{Bara:06, + author = {{Baratoux}, D. and {Mangold}, N. and {Forget}, F. and +{Cord}, A. and + {Pinet}, P. and {Daydou}, Y. and {Jehl}, A. and {Masson}, P. and + {Neukum}, G. and {The HRSC Co-Investigator Team}}, + title = "{The role of the wind-transported dust in slope streaks +activity: Evidence from the HRSC data}", + journal = {Icarus}, + year = 2006, + volume = 183, + pages = {30-45}, + doi = {10.1016/j.icarus.2006.01.023}, +} + +@ARTICLE{Forg:06, + author = {{Forget}, F. and {Haberle}, R.~M. and {Montmessin}, F. and +{Levrard}, B. and + {Head}, J.~W.}, + title = "{Formation of Glaciers on Mars by Atmospheric Precipitation +at High Obliquity}", + journal = {Science}, + year = 2006, + volume = 311, + pages = {368-371}, + doi = {10.1126/science.1120335}, +} + +@ARTICLE{Encr:05ica, + author = {{Encrenaz}, T. and {B{\'e}zard}, B. and {Owen}, T. and +{Lebonnois}, S. and + {Lef{\`e}vre}, F. and {Greathouse}, T. and {Richter}, M. and + {Lacy}, J. and {Atreya}, S. and {Wong}, A.~S. and {Forget}, F. }, + title = "{Infrared imaging spectroscopy of Mars: H$_{2}$O mapping and +determination of {CO$_2$} isotopic ratios}", + journal = {Icarus}, + year = 2005, + volume = 179, + pages = {43-54}, + doi = {10.1016/j.icarus.2005.06.022}, +} + +@ARTICLE{Encr:05aaa, + author = {{Encrenaz}, T. and {Melchiorri}, R. and {Fouchet}, T. and +{Drossart}, P. and + {Lellouch}, E. and {Gondet}, B. and {Bibring}, J.-P. and {Langevin}, +Y. and + {Titov}, D. and {Ignatiev}, N. and {Forget}, F.}, + title = "{A mapping of martian water sublimation during early +northern summer using OMEGA/Mars Express}", + journal = {Astronomy and Astrophysics}, + year = 2005, + volume = 441, + pages = {L9-L12}, + doi = {10.1051/0004-6361:200500171}, +} + + +@ARTICLE{Suns:90, + author = {{Sunshine}, J.~M. and {Pieters}, C.~M. and {Pratt}, S.~F.}, + title = "{Deconvolution of mineral absorption bands - An improved +approach}", + journal = jgr, + year = 1990, + volume = 95, + pages = {6955-6966}, +} + +@INPROCEEDINGS{Kann:05, + author = {{Kanner}, L.~C. and {Mustard}, J.~F. and {Bibring}, J.-P. +and + {Gendrin}, A. and {Langevin}, Y. and {Gondet}, B. and {Pelkey}, S.~M. +and + {The Omega Science Team}}, + title = "{Analysis of Martian Pyroxene Compositions in Syrtis Major: +Full MGM Application to OMEGA}", +booktitle = {36th Annual Lunar and Planetary Science Conference}, + year = 2005, + pages = {1730}, +} + +@ARTICLE{Forg:07omeg, + author = {{Forget}, F. and {Spiga}, A. and {Dolla}, B. and {Vinatier}, S. and + {Melchiorri}, R. and {Drossart}, P. and {Gendrin}, A. and {Bibring}, J.-P. and + {Langevin}, Y. and {Gondet}, B.}, + title = "{Remote sensing of surface pressure on Mars with the Mars Express/OMEGA spectrometer: 1. Retrieval method}", + journal = {Journal of Geophysical Research (Planets)}, + year = 2007, + volume = 112, + number = {E11}, + pages = {8-+}, + doi = {10.1029/2006JE002871}, +} + +@ARTICLE{Spig:07omeg, + author = {{Spiga}, A. and {Forget}, F. and {Dolla}, B. and {Vinatier}, S. and + {Melchiorri}, R. and {Drossart}, P. and {Gendrin}, A. and {Bibring}, J.-P. and + {Langevin}, Y. and {Gondet}, B.}, + title = "{Remote sensing of surface pressure on Mars with the Mars Express/OMEGA spectrometer: 2. Meteorological maps}", + journal = {Journal of Geophysical Research (Planets)}, + year = 2007, + volume = 112, + number = {E11}, + pages = {8-+}, + doi = {10.1029/2006JE002870}, +} + +@misc{Forg:07dust, + author = {Forget, F. and Dolla, B. and Vinatier, S. and Spiga, A.}, + howpublished = {submitted to Geophys. Res. Lett.}, + title = {A very simple algorithm to compute light scattering in optically + thin planetary atmosphere. Application to remote sensing on \protect{M}ars}, + year = {2010} +} + + +@ARTICLE{Renn:04, + author = {{Renno}, N.~O. and {Abreu}, V.~J. and {Koch}, J. and {Smith}, P.~H. and + {Hartogensis}, O.~K. and {De Bruin}, H.~A.~R. and {Burose}, D. and + {Delory}, G.~T. and {Farrell}, W.~M. and {Watts}, C.~J. and + {Garatuza}, J. and {Parker}, M. and {Carswell}, A.}, + title = "{MATADOR 2002: A pilot field experiment on convective plumes and dust devils}", + journal = jgr, + year = 2004, + volume = 109, + number = {E18}, + pages = {7001}, + doi = {10.1029/2003JE002219}, +} + +@misc{Koch:06, + author = {{Koch}, J. and {Renno}, N.~O.}, + howpublished = {submitted to JAS}, + title = {Interactions between Boundary Layer Convection, Mineral Dust and Solar Radiation}, + year = {2006} +} + +@misc{Joug:06, + author = {{Jouglet}, D. and {Poulet}, F. and {Milliken}, R.~E. and {Mustard}, J.~F. + and {Bibring}, J.-P. and {Langevin}, Y. and {Gondet}, B. + and the \protect{OMEGA} team}, + howpublished = {submitted to JGR}, + title = {Hydration state of the Martian surface as seen by \protect{Mars Express OMEGA}. \protect{I} - Analysis + of 3~$\mu$m hydration feature}, + year = {2006} +} + +@INPROCEEDINGS{Zaso:06, + author = {{Zasova}, L.~V. and {Altieri}, F. and {Grassi}, D. and {Bellucci}, G. and + {Formisano}, V. and {Ignatiev}, N. and {Bibring}, J.-P. and + {Drossart}, P. and {Encrenaz}, T. and {Fouchet}, T. and {The Omega Team} + }, + title = "{Ozone in martian atmosphere from the 1.27 {$\mu$}m O2 Emission: OMEGA/Mars Express measurements}", + booktitle = {Mars Atmosphere Modelling and Observations}, + year = 2006, + editor = {{Forget}, F. and {Lopez-Valverde}, M.~A. and {Desjean}, M.~C. and + {Huot}, J.~P. and {Lefevre}, F. and {Lebonnois}, S. and {Lewis}, S.~R. and + {Millour}, E. and {Read}, P.~L. and {Wilson}, R.~J.}, + pages = {521}, +} + + + +@INPROCEEDINGS{Gras:06, + author = {{Grassi}, D. and {Wolkenberg}, P. and {Fiorenza}, C. and +{Formisano}, V. and + {Ignatiev}, N.~I. and {Zasova}, L.~V.}, + title = "{Studies of the local circulation in the martian atmosphere +from PFS data}", +booktitle = {Mars Atmosphere Modelling and Observations}, + year = 2006, + editor = {{Forget}, F. and {Lopez-Valverde}, M.~A. and {Desjean}, +M.~C. and + {Huot}, J.~P. and {Lefevre}, F. and {Lebonnois}, S. and {Lewis}, +S.~R. and + {Millour}, E. and {Read}, P.~L. and {Wilson}, R.~J.}, + pages = {131}, +} + + +@ARTICLE{Huss:92, + author = {{Husson}, N. and {Bonnet}, B. and {Scott}, N.~A. and +{Chedin}, A. + }, + title = "{Management and Study of Spectroscopic Information-The +GEISA program}", + journal = {Journal of Quantitative Spectroscopy and Radiative +Transfer}, + year = 1992, + volume = 48, + pages = {509-518}, +} + + +@INPROCEEDINGS{Cham:06, + author = {{Chamberlain}, S. and {Bailey}, J. and {Walter}, M. and {Simpson}, A. and + {Crisp}, D.}, + title = "{Topographic and atmospheric pressure mapping using near infrared imaging and spectral observations of Mars}", + booktitle = {Mars Atmosphere Modelling and Observations}, + year = 2006, + editor = {{Forget}, F. and {Lopez-Valverde}, M.~A. and {Desjean}, M.~C. and + {Huot}, J.~P. and {Lefevre}, F. and {Lebonnois}, S. and {Lewis}, S.~R. and + {Millour}, E. and {Read}, P.~L. and {Wilson}, R.~J.}, + pages = {146}, +} + +@ARTICLE{Habe:04, + author = {{Haberle}, R.~M. and {Mattingly}, B. and {Titus}, T.~N.}, + title = "{Reconciling different observations of the $CO_{2}$ ice mass +loading of the Martian north polar cap}", + journal = grl, + year = 2004, + volume = 31, + pages = {5702}, + doi = {10.1029/2004GL019445}, +} + +@ARTICLE{Rafk:03, + author = {{Rafkin}, S.~C.~R. and {Michaels}, T.~I.}, + title = "{Meteorological predictions for 2003 Mars Exploration Rover high-priority landing sites}", + journal = {Journal of Geophysical Research (Planets)}, + year = 2003, + volume = 108, + number = {E12}, + pages = {8091}, + doi = {10.1029/2002JE002027}, +} + +@ARTICLE{Toig:03, + author = {{Toigo}, A.~D. and {Richardson}, M.~I.}, + title = "{Meteorology of proposed Mars Exploration Rover landing sites}", + journal = jgr, + year = 2003, + volume = 108, + number = {E12}, + pages = {8092-+}, + doi = {10.1029/2003JE002064}, +} + +@ARTICLE{Gray:66, + author = {{Gray}, L.~D.}, + title = "{Transmission of the Atmosphere of Mars in the Region of 2~$\mu$}", + journal = {Icarus}, + year = 1966, + volume = 5, + pages = {390}, +} + +@ARTICLE{Rafk:02, + author = {{Rafkin}, S.~C.~R. and {Sta.~Maria}, M.~R.~V. and {Michaels}, T.~I.}, + title = "{Simulation of the atmospheric thermal circulation of a martian volcano using a mesoscale numerical model}", + journal = {Nature}, + year = 2002, + volume = 419, + pages = {697-699}, +} + +@ARTICLE{Buch:06, + author = {{Buchwitz}, M. and {de Beek}, R. and {No{\"e}l}, S. and {Burrows}, J.~P. and + {Bovensmann}, H. and {Schneising}, O. and {Khlystova}, I. and + {Bruns}, M. and {Bremer}, H. and {Bergamaschi}, P. and {K{\"o}rner}, S. and + {Heimann}, M.}, + title = "{Atmospheric carbon gases retrieved from SCIAMACHY by WFM-DOAS: version 0.5 CO and CH4 and impact of calibration improvements on CO2 retrieval}", + journal = {Atmospheric Chemistry \& Physics}, + year = 2006, + volume = 6, + pages = {2727-2751}, +} + +@ARTICLE{Bosc:06, + author = {{B{\"o}sch}, H. and {Toon}, G.~C. and {Sen}, B. and {Washenfelder}, R.~A. and + {Wennberg}, P.~O. and {Buchwitz}, M. and {de Beek}, R. and {Burrows}, J.~P. and + {Crisp}, D. and {Christi}, M. and {Connor}, B.~J. and {Natraj}, V. and + {Yung}, Y.~L.}, + title = "{Space-based near-infrared CO2 measurements: Testing the Orbiting Carbon Observatory retrieval algorithm and validation concept using SCIAMACHY observations over Park Falls, Wisconsin}", + journal = {Journal of Geophysical Research (Atmospheres)}, + year = 2006, + volume = 111, + number = {D10}, + pages = {23302}, + doi = {10.1029/2006JD007080}, +} + +@ARTICLE{Four:06, + author = {{Fournier}, N. and {Stammes}, P. and {de Graaf}, M. and {van der A}, R. and + {Piters}, A. and {Grzegorski}, M. and {Kokhanovsky}, A.}, + title = "{Improving cloud information over deserts from SCIAMACHY Oxygen A-band measurements}", + journal = {Atmospheric Chemistry \& Physics}, + year = 2006, + volume = 6, + pages = {163-172}, +} + +@ARTICLE{Mich:06, + author = {{Michaels}, T.~I. and {Colaprete}, A. and {Rafkin}, S.~C.~R.}, + title = "{Significant vertical water transport by mountain-induced circulations on Mars}", + journal = grl, + year = 2006, + volume = 33, + pages = {L16201}, + doi = {10.1029/2006GL026562}, +} + +@ARTICLE{Janj:01, + author = {{Janjic}, Z.~I. and {Gerrity Jr}, J.~P. and {Nickovic},S.}, + title = "{An alternative approach to nonhydrostatic modeling}", + journal = mwr, + year = 2001, + volume = 129, + pages = {1129-1178}, +} + +@ARTICLE{Lapr:92, + author = {{Laprise}, R}, + title = "{The Euler Equations of Motion with Hydrostatic Pressure as an Independent Variable}", + journal = mwr, + year = 1992, + volume = 120, + pages = {197-207}, +} + +@ARTICLE{Stul:76, + author = {{Stull}, R.~B.}, + title = "{Internal Gravity Waves Generated by Penetrative Convection}", + journal = jas, + year = 1976, + volume = 33, + pages = {1279-1286}, +} + +@ARTICLE{Mich:04, + author = {{Michaels}, T.~I. and {Rafkin}, S.~C.~R.}, + title = "{Large eddy simulation of atmospheric convection on Mars}", + journal = qjrms, + year = 2004, + volume = 128, +} + +@ARTICLE{Wang:03, + author = {{Wang}, H. and {Richardson}, M.~I. and {Wilson}, R.~J. and {Ingersoll}, A.~P. and + {Toigo}, A.~D. and {Zurek}, R.~W.}, + title = "{Cyclones, tides, and the origin of a cross-equatorial dust storm on Mars}", + journal = grl, + year = 2003, + volume = 30, + pages = {1488}, + doi = {10.1029/2002GL016828}, +} + +@ARTICLE{Bart:86, + author = {{Barton}, I.~J. and {Scott}, J.~C.}, + title = "{Remote measurement of surface pressure using absorption in +the oxygen A-band}", + journal = {Applied Optics}, + year = 1986, + volume = 25, + pages = {3502-3507}, +} + +@ARTICLE{Jacq:03, + author = {{Jacquinet-Husson}, N. and {Scott}, N.~A. and {Chedin}, A. +and + {Garceran}, K. and {Armante}, R. and {Chursin}, A.~A. and {Barbe}, +A. and + {Birk}, M. and {Brown}, L.~R. and {Camy-Peyret}, C. and {Claveau}, +C. and + {Clerbaux}, C. and {Coheur}, P.~F. and {Dana}, V. and {Daumont}, L. +and + {Debacker-Barilly}, M.~R. and {Flaud}, J.~M. and {Goldman}, A. and + {Hamdouni}, A. and {Hess}, M. and {Jacquemart}, D. and {Kopke}, P. +and + {Mandin}, J.~Y. and {Massie}, S. and {Mikhailenko}, S. and +{Nemtchinov}, V. and + {Nikitin}, A. and {Newnham}, D. and {Perrin}, A. and {Perevalov}, +V.~I. and + {Regalia-Jarlot}, L. and {Rublev}, A. and {Schreier}, F. and + {Schult}, I. and {Smith}, K.~M. and {Tashkun}, S.~A. and {Teffo}, +J.~L. and + {Toth}, R.~A. and {Tyuterev}, V.~G. and {Vander Auwera}, J. and + {Varanasi}, P. and {Wagner}, G.}, + title = "{The 2003 edition of the GEISA/IASI spectroscopic +database}", + journal = {Journal of Quantitative Spectroscopy and Radiative +Transfer}, + year = 2005, + volume = 95, + pages = {429-467}, +} + +@ARTICLE{Houw:05, + author = {{Houweling}, S. and {Hartmann}, W. and {Aben}, I. and +{Schrijver}, H. and + {Skidmore}, J. and {Roelofs}, G.-J. and {Breon}, F.-M.}, + title = "{Evidence of systematic errors in SCIAMACHY-observed CO$_{2}$ +due to aerosols}", + journal = {Atmospheric Chemistry \& Physics}, + year = 2005, + volume = 5, + pages = {3003-3013}, +} + +@ARTICLE{Mont:06jgr, + author = {{Montmessin}, F. and {Qu{\'e}merais}, E. and {Bertaux}, +J.~L. and + {Korablev}, O. and {Rannou}, P. and {Lebonnois}, S.}, + title = "{Stellar occultations at UV wavelengths by the SPICAM +instrument: Retrieval and analysis of Martian haze profiles}", + journal = jgr, + year = 2006, + volume = 111, + number = {E10}, + pages = {9}, + doi = {10.1029/2005JE002662}, +} + +@ARTICLE{Fedo:06, + author = {{Fedorova}, A. and {Korablev}, O. and {Perrier}, S. and {Bertaux}, J.-L. and + {Lef{\`e}vre}, F. and {Rodin}, A.}, + title = "{Observation of O$_{2}$ 1.27~$\mu$m dayglow by SPICAM IR: Seasonal distribution for the first Martian year of Mars Express}", + journal = jgr, + year = 2006, + volume = 111, + number = {E10}, + pages = {9}, + doi = {10.1029/2006JE002694}, +} + +@BOOK{Pres:92, + author = {{Press}, W.~H. and {Teukolsky}, S.~A. and {Vetterling}, +W.~T. and + {Flannery}, B.~P.}, + title = "{Numerical recipes in FORTRAN. The art of scientific +computing}", +publisher = {Cambridge University Press}, + year = 1992, +} + + +@ARTICLE{Kann:07, + author = {{Kanner}, L.~C. and {Mustard}, J.~F. and {Gendrin}, A.}, + title = "{Assessing the limits of the Modified Gaussian Model for +remote spectroscopic studies of pyroxenes on Mars}", + journal = {Icarus}, + year = 2007, + volume = 187, + pages = {442-456}, + doi = {10.1016/j.icarus.2006.10.025}, +} + + + +@ARTICLE{Jacq:05, + author = {{Jacquinet-Husson}, N. and {Scott}, N.~A. and {Chedin}, A. +and + {Garceran}, K. and {Armante}, R. and {Chursin}, A.~A. and {Barbe}, A. +and + {Birk}, M. and {Brown}, L.~R. and {Camy-Peyret}, C. and {Claveau}, C. +and + {Clerbaux}, C. and {Coheur}, P.~F. and {Dana}, V. and {Daumont}, L. +and + {Debacker-Barilly}, M.~R. and {Flaud}, J.~M. and {Goldman}, A. and + {Hamdouni}, A. and {Hess}, M. and {Jacquemart}, D. and {Kopke}, P. +and + {Mandin}, J.~Y. and {Massie}, S. and {Mikhailenko}, S. and +{Nemtchinov}, V. and + {Nikitin}, A. and {Newnham}, D. and {Perrin}, A. and {Perevalov}, +V.~I. and + {Regalia-Jarlot}, L. and {Rublev}, A. and {Schreier}, F. and + {Schult}, I. and {Smith}, K.~M. and {Tashkun}, S.~A. and {Teffo}, +J.~L. and + {Toth}, R.~A. and {Tyuterev}, V.~G. and {Vander Auwera}, J. and + {Varanasi}, P. and {Wagner}, G.}, + title = "{The 2003 edition of the GEISA/IASI spectroscopic +database}", + journal = {Journal of Quantitative Spectroscopy and Radiative +Transfer}, + year = 2005, + volume = 95, + pages = {429-467}, +} + +@ARTICLE{Rega:06, + author = {{R{\'e}galia-Jarlot}, L. and {Z{\'e}ninari}, V. and +{Parvitte}, B. and + {Grossel}, A. and {Thomas}, X. and {von der Heyden}, P. and + {Durry}, G.}, + title = "{A complete study of the line intensities of four bands of +CO2 around 1.6 and 2.0 {$\mu$}m: A comparison between Fourier transform +and diode laser measurements}", + journal = {Journal of Quantitative Spectroscopy and Radiative +Transfer}, + year = 2006, + volume = 101, + pages = {325-338}, +} + +@ARTICLE{Stam:00, + author = {{Stam}, D.~M. and {De Haan}, J.~F. and {Hovenier}, J.~W. +and + {Aben}, I.}, + title = "{Detecting radiances in the {O$_{2}$} A band using +polarization-sensitive satellite instruments with application to the +Global Ozone Monitoring Experiment}", + journal = jgr, + year = 2000, + volume = 105, + pages = {22379-22392}, + doi = {10.1029/2000JD900313}, +} + +@ARTICLE{Stam:99, + author = {{Stam}, D.~M. and {De Haan}, J.~F. and {Hovenier}, J.~W. +and + {Stammes}, P.}, + title = "{Degree of linear polarization of light emerging from the +cloudless atmosphere in the oxygen A band}", + journal = jgr, + year = 1999, + volume = 104, + pages = {16843-16858}, + doi = {10.1029/1999JD900159}, +} + +@ARTICLE{Wolf:06, + author = {{Wolff}, M.~J. and {Smith}, M.~D. and {Clancy}, R.~T. and +{Spanovich}, N. and + {Whitney}, B.~A. and {Lemmon}, M.~T. and {Bandfield}, J.~L. and + {Banfield}, D. and {Ghosh}, A. and {Landis}, G. and {Christensen}, +P.~R. and + {Bell}, J.~F. and {Squyres}, S.~W.}, + title = "{Constraints on dust aerosols from the Mars Exploration +Rovers using MGS overflights and Mini-TES}", + journal = {Journal of Geophysical Research (Planets)}, + year = 2006, + volume = 111, + number = {E10}, + pages = {12}, + doi = {10.1029/2006JE002786}, +} + +@ARTICLE{Shku:05, + author = {{Shkuratov}, Y. and {Kreslavsky}, M. and {Kaydash}, V. and +{Videen}, G. and + {Bell}, J. and {Wolff}, M. and {Hubbard}, M. and {Noll}, K. and + {Lubenow}, A.}, + title = "{Hubble Space Telescope imaging polarimetry of Mars during +the 2003 opposition}", + journal = {Icarus}, + year = 2005, + volume = 176, + pages = {1-11}, + doi = {10.1016/j.icarus.2005.01.009}, +} + +@ARTICLE{Bone:05, + author = {{Bonello}, G. and {Pierre Bibring}, J. and {Soufflot}, A. +and + {Langevin}, Y. and {Gondet}, B. and {Berth{\'e}}, M. and +{Carabetian}, C. + }, + title = "{The ground calibration setup of OMEGA and VIRTIS +experiments: description and performances}", + journal = pss, + year = 2005, + volume = 53, + pages = {711-728}, + doi = {10.1016/j.pss.2005.02.002}, +} + +@ARTICLE{Spra:04, + author = {{Sprague}, A.~L. and {Boynton}, W.~V. and {Kerry}, K.~E. +and + {Janes}, D.~M. and {Hunten}, D.~M. and {Kim}, K.~J. and {Reedy}, +R.~C. and + {Metzger}, A.~E.}, + title = "{Mars' South Polar Ar Enhancement: A Tracer for South Polar +Seasonal Meridional Mixing}", + journal = {Science}, + year = 2004, + volume = 306, + pages = {1364-1367}, + doi = {10.1126/science.1098496}, +} + +@ARTICLE{Toth:06, + author = {{Toth}, R.~A. and {Brown}, L.~R. and {Miller}, C.~E. and +{Devi}, V.~M. and + {Benner}, D.~C.}, + title = "{Line strengths of $^{12}C^{16}O_{2}$: 4550-7000 +cm$^{-1}$}", + journal = {Journal of Molecular Spectroscopy}, + year = 2006, + volume = 239, + pages = {221-242}, + doi = {10.1016/j.jms.2006.08.001}, +} + +@ARTICLE{Coli:96, + author = {{Colina}, L. and {Bohlin}, R.~C. and {Castelli}, F.}, + title = "{The 0.12-2.5 micron Absolute Flux Distribution of the Sun for +Comparison With Solar Analog Stars}", + journal = {Astronomical Journal }, + year = 1996, + volume = 112, + pages = {307}, + doi = {10.1086/118016}, +} + + +@ARTICLE{Dufr:05, + author = {{Dufresne}, J.-L. and {Fournier}, R. and {Hourdin}, C. and +{Hourdin}, F. }, +title = "{Net Exchange Reformulation of Radiative Transfer in the +{CO$_{2}$} 15-{$\mu$}m Band on Mars.}", +journal = {Journal of Atmospheric Sciences}, +year = 2005, +volume = 62, +pages = {3303-3319}, +} + +@ARTICLE{Wils:07, + author = {{Wilson}, R.~J. and {Neumann}, G.~A. and {Smith}, M.~D.}, + title = "{Diurnal variation and radiative influence of Martian water +ice clouds}", + journal = grl, + year = 2007, + volume = 34, + pages = {2710}, + doi = {10.1029/2006GL027976}, +} + +@ARTICLE{Basu:04, + author = {{Basu}, S. and {Richardson}, M.~I. and {Wilson}, R.~J.}, + title = "{Simulation of the Martian dust cycle with the GFDL Mars +GCM}", + journal = {Journal of Geophysical Research (Planets)}, + year = 2004, + volume = 109, + number = {E18}, + pages = {11006}, + doi = {10.1029/2004JE002243}, +} + +@INPROCEEDINGS{Rich:06, + author = {{Richardson}, M.~I. and {Newman}, C.~E. and {Toigo}, +A.~D.}, + title = "{PlanetWRF - A Flexible, Multi-scale Model For Planetary +Atmospheres}", +booktitle = {AAS/Division for Planetary Sciences Meeting Abstracts}, + year = 2006, + volume = 38, + pages = {70.04}, +} + +@ARTICLE{Hart:05, + author = {{Hartogh}, P. and {Medvedev}, A.~S. and {Kuroda}, T. and +{Saito}, R. and + {Villanueva}, G. and {Feofilov}, A.~G. and {Kutepov}, A.~A. and + {Berger}, U.}, + title = "{Description and climatology of a new general circulation +model of the Martian atmosphere}", + journal = {Journal of Geophysical Research (Planets)}, + year = 2005, + volume = 110, + number = {E9}, + pages = {11008}, + doi = {10.1029/2005JE002498}, +} + +@ARTICLE{Moud:05, + author = {{Moudden}, Y. and {McConnell}, J.~C.}, + title = "{A new model for multiscale modeling of the Martian +atmosphere, GM3}", + journal = {Journal of Geophysical Research (Planets)}, + year = 2005, + volume = 110, + number = {E9}, + pages = {4001}, + doi = {10.1029/2004JE002354}, +} + +@ARTICLE{Fent:07, + author = {{Fenton}, L.~K. and {Geissler}, P.~E. and {Haberle}, +R.~M.}, + title = "{Global warming and climate forcing by recent albedo +changes on Mars}", + journal = {Nature}, + year = 2007, + volume = 446, + pages = {646-649}, + doi = {10.1038/nature05718}, +} + +@ARTICLE{Kahr:06, + author = {{Kahre}, M.~A. and {Murphy}, J.~R. and {Haberle}, R.~M.}, + title = "{Modeling the Martian dust cycle and surface dust +reservoirs with the NASA Ames general circulation model}", + journal = {Journal of Geophysical Research (Planets)}, + year = 2006, + volume = 111, + number = {E10}, + pages = {6008}, + doi = {10.1029/2005JE002588}, +} + + +@ARTICLE{Taka:03, + author = {{Takahashi}, Y.~O. and {Fujiwara}, H. and {Fukunishi}, H. +and + {Odaka}, M. and {Hayashi}, Y.-Y. and {Watanabe}, S.}, + title = "{Topographically induced north-south asymmetry of the +meridional circulation in the Martian atmosphere}", + journal = {Journal of Geophysical Research (Planets)}, + year = 2003, + volume = 108, + pages = {5-1}, + doi = {10.1029/2001JE001638}, +} + +@ARTICLE{Taka:06, + author = {{Takahashi}, Y.~O. and {Fujiwara}, H. and {Fukunishi}, H.}, + title = "{Vertical and latitudinal structure of the migrating diurnal +tide in the Martian atmosphere: Numerical investigations}", + journal = {Journal of Geophysical Research (Planets)}, + year = 2006, + volume = 111, + number = {E10}, + pages = {1003}, + doi = {10.1029/2005JE002543}, +} + +@INPROCEEDINGS{Forg:06argon, + author = {{Forget}, F. and {Montabone}, L. and {Lebonnois}, S.}, + title = "{Modelling the non-condensable gas enrichment in the polar +night}", +booktitle = {Mars Atmosphere Modelling and Observations}, + year = 2006, + editor = {{Forget}, F. and {Lopez-Valverde}, M.~A. and {Desjean}, +M.~C. and + {Huot}, J.~P. and {Lefevre}, F. and {Lebonnois}, S. and {Lewis}, +S.~R. and + {Millour}, E. and {Read}, P.~L. and {Wilson}, R.~J.}, + pages = {422}, +} + +@ARTICLE{Encr:06, + author = {{Encrenaz}, T. and {Fouchet}, T. and {Melchiorri}, R. and +{Drossart}, P. and + {Gondet}, B. and {Langevin}, Y. and {Bibring}, J.-P. and {Forget}, +F. and + {B{\'e}zard}, B.}, + title = "{Seasonal variations of the martian CO over Hellas as +observed by OMEGA/Mars Express}", + journal = {Astronomy and Astrophysics}, + year = 2006, + volume = 459, + pages = {265-270}, + doi = {10.1051/0004-6361:20065586}, +} + +@ARTICLE{Basu:06, + author = {{Basu}, S. and {Wilson}, J. and {Richardson}, M. and + {Ingersoll}, A. + }, + title = "{Simulation of spontaneous and variable global + dust storms with the GFDL Mars GCM}", + journal = {Journal of Geophysical Research (Planets)}, + year = 2006, + volume = 111, + number = {E10}, + pages = {9004}, + doi = {10.1029/2005JE002660}, + } + + +@ARTICLE{Perr:06, + author = {{Perrier}, S. and {Bertaux}, J.~L. and {Lef{\`e}vre}, F. and + {Lebonnois}, S. and {Korablev}, O. and {Fedorova}, A. and +{Montmessin}, F. + }, + title = "{Global distribution of total ozone on Mars from SPICAM/MEX UV +measurements}", + journal = {Journal of Geophysical Research (Planets)}, + year = 2006, + volume = 111, + number = {E10}, + pages = {9}, + doi = {10.1029/2006JE002681}, +} + +@ARTICLE{Squy:04, +author = {{Squyres}, S.~W. and {Grotzinger}, J.~P. and + {Arvidson}, R.~E. and + {Bell}, J.~F. and {Calvin}, W. and {Christensen}, +P.~R. and +{Clark}, B.~C. and {Crisp}, J.~A. and +{Farrand}, W.~H. and {Herkenhoff}, K.~E. and +{Johnson}, J.~R. and {Klingelh{\"o}fer}, G. and +{Knoll}, A.~H. and +{McLennan}, S.~M. and {McSween}, H.~Y. and +{Morris}, R.~V. and +{Rice}, J.~W. and {Rieder}, R. and +{Soderblom}, L.~A.}, + title = "{In Situ Evidence for an +Ancient Aqueous Environment +at Meridiani Planum, Mars}", +journal = {Science}, + year = 2004, + volume = 306, + pages = {1709-1714}, + doi = {10.1126/science.1104559}, +} + + +@ARTICLE{Ansa:06, + author = {{Ansan}, V. and {Mangold}, N.}, + title = "{New observations of Warrego Valles, Mars: + Evidence for precipitation and surface runoff}", + journal = pss, + year = 2006, + volume = 54, + pages = {219-242}, + doi = {10.1016/j.pss.2005.12.009}, +} + + +@INPROCEEDINGS{Forg:03, + author = {{Forget}, F. and {Haberle}, R.~M. and {Montmessin}, + F. and {Cha}, S. and + {Marcq}, E. and {Schaeffer}, J. and + {Wanherdrick}, Y.}, + title = "{3D Simulations of the Early Mars + Climate with a General Circulation + Model}", + booktitle = {Third International Conference on + Mars Polar Science and Exploration}, + year = 2003, + editor = {{Clifford}, S. and {Doran}, P. and {Fisher}, D. and {Herd}, C. }, + pages = {8070}, +} + +@misc{Forg:04, + author = {Forget, F. and Bertaux, J.L. }, + howpublished = {ESA technical report 09-2004}, + title = {The Martian atmosphere at the time of the Beagle 2 landing: the density was not anomalously low}, + year = 2004, +} + +@misc{Forg:02mambo, + author = {Forget, F. {and the MAMBO team} }, + howpublished = {Proposition CNES, 12O pages}, + title = {MAMBO: Mars atmosphere Microwave Brightness Observer (A +proposal for the scientific payload onboard the CNES 2007 Premier +Obiter) + }, + year = 2002, +} + + +@INPROCEEDINGS{Gonz:06, + author = {{Gonz{\'a}lez-Galindo}, F. and {Bougher}, S. and +{L{\'o}pez-Valverde}, M.~A. and + {Forget}, F. and {Bell}, J.}, + title = "{Thermal structure of the martian thermosphere: LMD-IAA GCM +and MTGCM intercomparisons}", +booktitle = {Mars Atmosphere Modelling and Observations}, + year = 2006, + editor = {{Forget et al.}}, + pages = {625}, + adsurl = {http://adsabs.harvard.edu/abs/2006mamo.conf..625G}, +} + +@ARTICLE{Boug:90, + author = {{Bougher}, S.~W. and {Roble}, R.~G. and {Ridley}, E.~C. and + {Dickinson}, R.~E.}, + title = "{The Mars thermosphere. II - General circulation with +coupled dynamics and composition}", + journal = jgr, + year = 1990, + volume = 95, + pages = {14811-14827}, +} + +@ARTICLE{Gonz:05, + author = {{Gonz{\'a}lez-Galindo}, F. and {L{\'o}pez-Valverde}, M.~A. +and {Angelats i Coll}, M. and {Forget}, F.}, + title = "{Extension of a Martian general circulation model to +thermospheric altitudes: UV heating and photochemical models}", + journal = {Journal of Geophysical Research (Planets)}, + year = 2005, + volume = 110, + number = {E9}, + pages = {9008}, + doi = {10.1029/2004JE002312}, +} + +@INPROCEEDINGS{Forg:05methane, + author = {{Forget}, F. and {Haberle}, R.~M. and {Montmessin}, F.}, + title = "{Spatial Variation of Methane and Other Trace Gases Detected +on Mars: Interpretation with a General Circulation Model}", +booktitle = {36th Annual Lunar and Planetary Science Conference}, + year = 2005, + series = {Lunar and Planetary Institute Conference Abstracts}, + volume = 36, + editor = {{Mackwell}, S. and {Stansbery}, E.}, + pages = {1597}, +} + +@INPROCEEDINGS{Forg:05cap, + author = {{Forget}, F. and {Levrard}, B. and {Montmessin}, F. and +{Schmitt}, B. and + {Dout{\'e}}, S. and {Langevin}, Y. and {Bibring}, J.-P.}, + title = "{Mars Water Ice and Carbon Dioxide Seasonal Polar Caps: GCM +Modeling and Comparison with Mars Express Omega Observations}", +booktitle = {36th Annual Lunar and Planetary Science Conference}, + year = 2005, + series = {Lunar and Planetary Institute Conference Abstracts}, + volume = 36, + editor = {{Mackwell}, S. and {Stansbery}, E.}, + pages = {1605}, +} + +@ARTICLE{Form:04, + author = {{Formisano}, V. and {Atreya}, S. and {Encrenaz}, T. and +{Ignatiev}, N. and + {Giuranna}, M.}, + title = "{Detection of Methane in the Atmosphere of Mars}", + journal = {Science}, + year = 2004, + volume = 306, + pages = {1758-1761}, + doi = {10.1126/science.1101732}, +} + +@ARTICLE{Kras:04, + author = {{Krasnopolsky}, V.~A. and {Maillard}, J.~P. and {Owen}, +T.~C. + }, + title = "{Detection of methane in the martian atmosphere: evidence +for life?}", + journal = {Icarus}, + year = 2004, + volume = 172, + pages = {537-547}, + doi = {10.1016/j.icarus.2004.07.004}, +} + +@INPROCEEDINGS{Made:07, + author = {{Madeleine}, J.-B. and {Forget}, F. and {Head}, J.~W. and +{Levrard}, B. and {Montmessin}, F.}, + title = "{Mars: A Proposed Climatic Scenario for Northern +Mid-Latitude Glaciation}", +booktitle = {Lunar and Planetary Institute Conference Abstracts}, + year = 2007, + volume = 38, + pages = {1778}, +} + +@ARTICLE{Elli:07, + author = {{Elliot}, J.~L. and {Person}, M.~J. and {Gulbis}, A.~A.~S. +and + {Souza}, S.~P. and {Adams}, E.~R. and {Babcock}, B.~A. and +{Gangestad}, J.~W. and + {Jaskot}, A.~E. and {Kramer}, E.~A. and {Pasachoff}, J.~M. and + {Pike}, R.~E. and {Zuluaga}, C.~A. and {Bosh}, A.~S. and {Dieters}, +S.~W. and + {Francis}, P.~J. and {Giles}, A.~B. and {Greenhill}, J.~G. and + {Lade}, B. and {Lucas}, R. and {Ramm}, D.~J.}, + title = "{Changes in Pluto's Atmosphere: 1988-2006}", + journal = {Astrophys. Jour.}, + year = 2007, + volume = 134, + pages = {1-13}, + doi = {10.1086/517998}, +} + +@ARTICLE{Youn:97, + author = {{Young}, L.~A. and {Elliot}, J.~L. and {Tokunaga}, A. and +{de Bergh}, C. and + {Owen}, T.}, + title = "{Detection of Gaseous Methane on Pluto}", + journal = {Icarus}, + year = 1997, + volume = 127, + pages = {258}, + doi = {10.1006/icar.1997.5709}, +} + +@ARTICLE{Stro:96, + author = {{Young}, L.~A. and {Elliot}, J.~L. and {Tokunaga}, A. and +{de Bergh}, C. and + {Owen}, T.}, + title = "{Detection of Gaseous Methane on Pluto}", + journal = {Icarus}, + year = 1997, + volume = 127, + pages = {258}, + doi = {10.1006/icar.1997.5709}, +} + +@ARTICLE{Elli:03, + author = {{Elliot}, J.~L. and {Ates}, A. and {Babcock}, B.~A. and +{Bosh}, A.~S. and + {Buie}, M.~W. and {Clancy}, K.~B. and {Dunham}, E.~W. and +{Eikenberry}, S.~S. and + {Hall}, D.~T. and {Kern}, S.~D. and {Leggett}, S.~K. and {Levine}, +S.~E. and + {Moon}, D.-S. and {Olkin}, C.~B. and {Osip}, D.~J. and {Pasachoff}, +J.~M. and + {Penprase}, B.~E. and {Person}, M.~J. and {Qu}, S. and {Rayner}, +J.~T. and + {Roberts}, L.~C. and {Salyk}, C.~V. and {Souza}, S.~P. and {Stone}, +R.~C. and + {Taylor}, B.~W. and {Tholen}, D.~J. and {Thomas-Osip}, J.~E. and + {Ticehurst}, D.~R. and {Wasserman}, L.~H.}, + title = "{The recent expansion of Pluto's atmosphere}", + journal = {Nature}, + year = 2003, + volume = 424, + pages = {165-168}, +} + +@ARTICLE{Sica:03, + author = {{Elliot}, J.~L. and {Ates}, A. and {Babcock}, B.~A. and +{Bosh}, A.~S. and + {Buie}, M.~W. and {Clancy}, K.~B. and {Dunham}, E.~W. and +{Eikenberry}, S.~S. and + {Hall}, D.~T. and {Kern}, S.~D. and {Leggett}, S.~K. and {Levine}, +S.~E. and + {Moon}, D.-S. and {Olkin}, C.~B. and {Osip}, D.~J. and {Pasachoff}, +J.~M. and + {Penprase}, B.~E. and {Person}, M.~J. and {Qu}, S. and {Rayner}, +J.~T. and + {Roberts}, L.~C. and {Salyk}, C.~V. and {Souza}, S.~P. and {Stone}, +R.~C. and + {Taylor}, B.~W. and {Tholen}, D.~J. and {Thomas-Osip}, J.~E. and + {Ticehurst}, D.~R. and {Wasserman}, L.~H.}, + title = "{The recent expansion of Pluto's atmosphere}", + journal = {Nature}, + year = 2003, + volume = 424, + pages = {165-168}, +} + +@ARTICLE{Bull:01, + author = {{Bullock}, M.~A. and {Grinspoon}, D.~H.}, + title = "{The Recent Evolution of Climate on Venus}", + journal = {Icarus}, + year = 2001, + volume = 150, + pages = {19-37}, + doi = {10.1006/icar.2000.6570}, +} + +@ARTICLE{Bull:96, + author = {{Bullock}, M.~A. and {Grinspoon}, D.~H.}, + title = "{The stability of climate on Venus}", + journal = jgr, + year = 1996, + volume = 101, + pages = {7521-7530}, + doi = {10.1029/95JE03862}, +} + +@ARTICLE{Udry:07, + author = {{Udry}, S. and {Bonfils}, X. and {Delfosse}, X. and +{Forveille}, T. and + {Mayor}, M. and {Perrier}, C. and {Bouchy}, F. and {Lovis}, C. and + {Pepe}, F. and {Queloz}, D. and {Bertaux}, J.~-.}, + title = "{The HARPS search for southern extra-solar planets XI. +Super-Earths (5 and 8 Earth mass in a 3-planet system}", + journal = {Astronomy and Astrophysics, ArXiv e-prints}, + eprint = {0704.3841}, + year = 2007, + volume = 704, +} + +@ARTICLE{Kalt:05, + author = {{Kaltenegger}, L. and {Fridlund}, M.}, + title = "{The Darwin mission: Search for extra-solar planets}", + journal = {Advances in Space Research}, + year = 2005, + volume = 36, + pages = {1114-1122}, + doi = {10.1016/j.asr.2005.05.061}, +} + +@ARTICLE{Robe:06, + author = {{Robert}, F. and {Chaussidon}, M.}, + title = "{ +A paleotemperature curve for the Precambrian oceans based on silicon +isotopes in cherts. +}", + journal = {Nature}, + year = 2006, + volume = 443, + pages = {969-973}, +} + + +@ARTICLE{Cola:05, + author = {{Colaprete}, A. and {Barnes}, J.~R. and {Haberle}, R.~M. +and + {Hollingsworth}, J.~L. and {Kieffer}, H.~H. and {Titus}, T.~N. + }, + title = "{Albedo of the south pole on Mars determined by topographic +forcing of atmosphere dynamics}", + journal = {Nature}, + year = 2005, + volume = 435, + pages = {184-188}, + doi = {10.1038/nature03561}, +} + +@ARTICLE{Bott:05, + author = {{B{\"o}ttger}, H.~M. and {Lewis}, S.~R. and {Read}, P.~L. +and + {Forget}, F.}, + title = "{The effects of the martian regolith on GCM water cycle +simulations}", + journal = {Icarus}, + year = 2005, + volume = 177, + pages = {174-189}, + doi = {10.1016/j.icarus.2005.02.024}, +} + +@ARTICLE{Bott:04, + author = {{B{\"o}ttger}, H.~M. and {Lewis}, S.~R. and {Read}, P.~L. +and + {Forget}, F.}, + title = "{The effect of a global dust storm on simulations of the +Martian water cycle}", + journal = grl, + year = 2004, + volume = 31, + pages = {22702}, + doi = {10.1029/2004GL021137}, +} + + +@ARTICLE{Fouc:07, + author = { +Fouchet, T. and Lellouch E. and Ignatiev, N.I. and {Forget, F.} +and Titov, D.V. and +Tschimmel, M. and Montmessin, F. and Formisano, V. and +Giuranna, M. and Maturilli A. and Encrenaz, T. +}, + title = "{ +Martian water Vapor: Mars Express PFS/LW Observations. +}", + journal = {{\it Icarus}, in press}, + year = 2007, +} + +@ARTICLE{Levr:07, + author = {Levrard, B. and {Forget, F.} and Montmessin, F. and Laskar, +J.}, + title = "{ +Recent formation and evolution of northern Martian polar layered +deposits as inferred from a Global Climate Model. +}", + journal = {{Jour. Geophys. Res.}, in press}, + year = 2007, +} + +@ARTICLE{Bert:02, + author = {{Bertaux}, J.-L. and {Montmessin}, F.}, + title = "{Isotopic fractionation through water vapor condensation: +The Deuteropause, a cold trap for deuterium in the atmosphere of Mars}", + journal = jgr, + year = 2001, + volume = 106, + pages = {32879-32884}, + doi = {10.1029/2000JE001358}, +} + +@ARTICLE{Urba:05, + author = {{Urban}, J. and {Dassas}, K. and {Forget}, F. and {Ricaud}, +P. + }, + title = "{Retrieval of vertical constituents and temperature +profiles from passive submillimeter wave limb observations of the +Martian atmosphere: a feasibility study}", + journal = {Applied Optics}, + year = 2005, + volume = 44, + pages = {2438-2455}, +} + +@ARTICLE{Fouc:00, + author = {{Fouchet}, T. and {Lellouch}, E.}, + title = "{Vapor Pressure Isotope Fractionation Effects in Planetary +Atmospheres: Application to Deuterium}", + journal = {Icarus}, + year = 2000, + volume = 144, + pages = {114-123}, + doi = {10.1006/icar.1999.6264}, +} + + +@ARTICLE{Ange:05, + author = {{Angelats i Coll}, M. and {Forget}, F. and {L{\'o}pez-Valverde}, M.~A. and + {Gonz{\'a}lez-Galindo}, F.}, + title = "{The first Mars thermospheric general circulation model: The Martian atmosphere from the ground to 240 km}", + journal = grl, + year = 2005, + volume = 32, + pages = {4201}, + doi = {10.1029/2004GL021368}, +} + + + +@ARTICLE{Maga:99, + author = {{Magalhaes}, J.~A. and {Schofield}, J.~T. and {Seiff}, +A. + }, + title = "{Results of the Mars Pathfinder atmospheric structure +investigation}", + journal = jgr, + year = 1999, + volume = 104, + pages = {8943-8956}, + doi = {10.1029/1998JE900041}, +} + +@ARTICLE{Arie:87, + author = {{Arie}, E. and {Lacome}, N. and {Levy}, A.}, + title = "{Measurement of $CO_2$ line broadening in the 10.4-micron +laser transition at low temperatures}", + journal = {Applied Optics}, + year = 1987, + volume = 26, + pages = {1636-1640}, +} + +@ARTICLE{Roth:05, + author = {{Rothman}, L.~S. and {Jacquemart}, D. and {Barbe}, A. and +{Benner}, D.~C. and + {Birk}, M. and {Brown}, L.~R. and {Carleer}, M.~R. and {Chackerian}, +C. and + {Chance}, K. and {Coudert}, L.~H. and {Dana}, V. and {Devi}, V.~M. +and + {Flaud}, J.~M. and {Gamache}, R.~R. and {Goldman}, A. and +{Hartmann}, J.~M. and + {Jucks}, K.~W. and {Maki}, A.~G. and {Mandin}, J.~Y. and {Massie}, +S.~T. and + {Orphal}, J. and {Perrin}, A. and {Rinsland}, C.~P. and {Smith}, +M.~A.~H. and + {Tennyson}, J. and {Tolchenov}, R.~N. and {Toth}, R.~A. and + {Vander Auwera}, J. and {Varanasi}, P. and {Wagner}, G.}, + title = "{The HITRAN 2004 molecular spectroscopic database}", + journal = {Journal of Quantitative Spectroscopy and Radiative +Transfer}, + year = 2005, + volume = 96, + pages = {139-204}, +} + +@ARTICLE{Obri:97, + author = { {O'Brien}, D. M. and Mitchell, R. M. and English, S. A. and + Da Costa, G. A. }, + title = "{ +Airborne Measurements of Air Mass from {O$_2$} A-Band Absorption Spectra +}", + journal = {Jour. of Atmos. and Oceanic Technology}, + year = 1997, + volume = 15, + pages = {1272-1286}, +} + +@ARTICLE{Cris:04, + author = {{Crisp}, D. and {Atlas}, R.~M. and {Breon}, F.-M. + and {Brown}, L.~R. and + {Burrows}, J.~P. and {Ciais}, P. and + {Connor}, B.~J. and {Doney}, S.~C. and + {Fung}, I.~Y. and {Jacob}, D.~J. and {Miller}, C.~E. +and {O'Brien}, D. and +{Pawson}, S. and {Randerson}, J.~T. and +{Rayner}, P. and {Salawitch}, R.~J. and +{Sander}, S.~P. and {Sen}, B. and {Stephens}, +G.~L. and {Tans}, P.~P. and +{Toon}, G.~C. and {Wennberg}, P.~O. +and {Wofsy}, S.~C. and {Yung}, Y.~L. and +{Kuang}, Z. and {Chudasama}, B. and +{Sprague}, G. and {Weiss}, B. and +{Pollock}, R. and {Kenyon}, D. and {Schroll}, +S.}, + title = "{The Orbiting Carbon Observatory +(OCO) mission}", + journal = {Advances in Space Research}, + year = 2004, + volume = 34, + pages = {700-709}, + doi = +{10.1016/j.asr.2003.08.062}, +} + +@ARTICLE{Boug:06grl, + author = {{Bougher}, S.~W. and {Bell}, J.~M. and {Murphy}, J.~R. and +{Lopez-Valverde}, M.~A. and + {Withers}, P.~G.}, + title = "{Polar warming in the Mars thermosphere: Seasonal +variations owing to changing insolation and dust distributions}", + journal = grl, + year = 2006, + volume = 33, + pages = {2203-+}, + doi = {10.1029/2005GL024059}, +} + + +@ARTICLE{Mill:07, + author = {{Millour}, E. and Forget, F. and {Gonz{\'a}lez-Galindo}, +F. and + {Spiga}, A. and {Lewis}, S.~R. and {Montabone}, L. and {Read}, P.~L. +and + {L{\'o}pez-Valverde}, M.~A. and {Gilli}, G. and {Desjean}, M.-C. and + + {Huot}, J.-P. and {McD/Gcm Development Team}}, + title = "{The Mars Climate Database (Version 4.2)}", + journal = {European Mars Science and Exploration Conference, ESTEC, +The Netherlands, 12 - 16 November, 2007}, + year = 2007, +} + + +@ARTICLE{Boug:07, + author = {{Bougher}, S.~W. and {Bell}, J.~M. and {Steers}, B. and +{Murphy}, J.~R. and + {Keating}, G.~M.}, + title = "{Winter Polar Warming in the Mars Thermosphere}", + journal = {LPI Contributions}, + year = 2007, + volume = 1353, + pages = {3027-+}, +} + +@INPROCEEDINGS{Keat:07, + author = {{Keating}, G.~M. and {Bougher}, S.~W. and {Theriot}, M.~E. +and + {Tolson}, R.~H. and {Zurek}, R.~W. and {Blanchard}, R.~C. and + {Murphy}, J.~R. and {Bertaux}, J.-L.}, + title = "{Mars Neutral Upper Atmosphere Temporal and Spatial +Variations Discovered from the Accelerometer Science Experiment Aboard +Mars Reconnaissance Orbiter}", +booktitle = {Lunar and Planetary Institute Conference Abstracts}, + year = 2007, + series = {Lunar and Planetary Institute Conference Abstracts}, + volume = 38, + pages = {2074-+}, +} + +@INPROCEEDINGS{Ther:06, + author = {{Theriot}, M. and {Keating}, G. and {Blanchard}, R. and +{Bougher}, S. and + {Zurek}, R. and {Tolson}, R. and {Murphy}, J. and {Forget}, F. and + {Bertaux}, J.}, + title = "{Interannual Comparison of Temporal and Spatial Structure +in the Martian Thermosphere from Atmospheric Accelerometer Measurements +of Mars Reconnaissance Orbiter (MRO) during Aerobraking and Stellar +Occultation Measurements from the SPICAM Ultraviolet Infrared +Atmospheric Spectrometer of Mars Express (MEX)}", +booktitle = {AAS/Division for Planetary Sciences Meeting Abstracts}, + year = 2006, + volume = 38, + pages = {73.02}, +} + +@ARTICLE{Mont:07clouds, + author = {{Montmessin}, F. and {Gondet}, B. and {Bibring}, J.-P. and +{Langevin}, Y. and + {Drossart}, P. and {Forget}, F. and {Fouchet}, T.}, + title = "{Hyperspectral imaging of convective {CO$_{2}$} ice clouds in +the equatorial mesosphere of Mars}", + journal = {Journal of Geophysical Research (Planets)}, + year = 2007, + volume = 112, + pages = {11-+}, + doi = {10.1029/2007JE002944}, +} + +@ARTICLE{Mont:07cap, + author = {{Montmessin}, F. and {Haberle}, R.~M. and {Forget}, F. and +{Langevin}, Y. and + {Clancy}, R.~T. and {Bibring}, J.-P.}, + title = "{On the origin of perennial water ice at the south pole of +Mars: A precession-controlled mechanism?}", + journal = {Journal of Geophysical Research (Planets)}, + year = 2007, + volume = 112, + number = {E11}, + pages = {8-+}, + doi = {10.1029/2007JE002902}, +} + +@ARTICLE{Quem:06, + author = {{Qu{\'e}merais}, E. and {Bertaux}, J.-L. and {Korablev}, O. +and + {Dimarellis}, E. and {Cot}, C. and {Sandel}, B.~R. and {Fussen}, D. + }, + title = "{Stellar occultations observed by SPICAM on Mars Express}", + journal = {Journal of Geophysical Research (Planets)}, + year = 2006, + volume = 111, + pages = {9-+}, + doi = {10.1029/2005JE002604}, + adsurl = {http://adsabs.harvard.edu/abs/2006JGRE..11109S04Q}, + adsnote = {Provided by the Smithsonian/NASA Astrophysics Data System} +} + +@ARTICLE{Yosh:96, + author = {{Yoshino}, K. and {Esmond}, J.~R. and {Sun}, Y. and +{Parkinson}, W.~H. and + {Ito}, K. and {Matsui}, T.}, + title = "{Absorption cross section measurements of carbon dioxide in +the wavelength region 118.7-175.5 nm and the temperature dependence.}", + journal = {Journal of Quantitative Spectroscopy and Radiative +Transfer}, + year = 1996, + volume = 55, + pages = {53-60}, +} + + +@book{Tikh:77, + author = {Tikhonov, A. N. and Arsenin, V. Y. }, + publisher = {V. H. Winston and Sons (distributed by Wiley, New York)}, + title = {Solutions of ill posed problems}, + year = {1977} +} + +@techreport{Thol:06, +author = {Thollot, P. }, +institution = {Service d'Aeronomie}, +title = {Am{\'e}lioration du traitement des occultations stellaires +SPICAM}, +type = {L3 Project report}, +year = {2006} +} + +@ARTICLE{Kora:01, + author = {{Korablev}, O.~I. and {Bertaux}, J.-L. and {Dubois}, +J.-P.}, + title = "{Occultation of stars in the UV: Study of the atmosphere of +Mars}", + journal = jgr, + year = 2001, + volume = 106, + pages = {7597-7610}, + doi = {10.1029/2000JE001298}, +} + +@ARTICLE{With:06, + author = {{Withers}, P. and {Smith}, M.~D.}, + title = "{Atmospheric entry profiles from the Mars Exploration +Rovers Spirit and Opportunity}", + journal = {Icarus}, + year = 2006, + volume = 185, + pages = {133-142}, + doi = {10.1016/j.icarus.2006.06.013}, +} + +@ARTICLE{Smit:06, + author = {{Smith}, M.~D. and {Wolff}, M.~J. and {Spanovich}, N. and +{Ghosh}, A. and + {Banfield}, D. and {Christensen}, P.~R. and {Landis}, G.~A. and + {Squyres}, S.~W.}, + title = "{One Martian year of atmospheric observations using MER +Mini-TES}", + journal = {Journal of Geophysical Research (Planets)}, + year = 2006, + volume = 111, + number = {E10}, + pages = {12-+}, + doi = {10.1029/2006JE002770}, +} + +@ARTICLE{Wils:02, + author = {{Wilson}, R.~J.}, + title = "{Evidence for nonmigrating thermal tides in the Mars upper +atmosphere from the Mars Global Surveyor Accelerometer Experiment}", + journal = grl, + year = 2002, + volume = 29, + pages = {24-1}, +} + +@ARTICLE{Lope:98, + author = {{L{\'o}pez-Valverde}, M.~A. and {Edwards}, D.~P. and +{L{\'o}pez-Puertas}, M. and + {Rold{\'a}n}, C.}, + title = "{Non-local thermodynamic equilibrium in general circulation +models of the Martian atmosphere 1. Effects of the local thermodynamic +equilibrium approximation on thermal cooling and solar heating}", + journal = jgr, + year = 1998, + volume = 103, + pages = {16799-16812}, + doi = {10.1029/98JE01601}, +} + +@ARTICLE{Boug:94, + author = {{Bougher}, S.~W. and {Hunten}, D.~M. and {Roble}, R.~G.}, + title = "{CO2 cooling in terrestrial planet thermospheres}", + journal = jgr, + year = 1994, + volume = 99, + pages = {14609-+}, +} + +@ARTICLE{Boug:99, + author = {{Bougher}, S.~W. and {Engel}, S. and {Roble}, R.~G. and +{Foster}, B. + }, + title = "{Comparative terrestrial planet thermospheres 2. Solar +cycle variation of global structure and winds at equinox}", + journal = jgr, + year = 1999, + volume = 104, + pages = {16591-16611}, + doi = {10.1029/1998JE001019}, +} + +@misc{Lope:01, + author = {Lopez-Valverde, M. A. and Lopez-Puertas, M.}, + howpublished = {{ESA contract 11369 technical report}}, + title = { +Amospheric non-LTE effects and their parameterization for Mars +}, + year = {2001} +} + +@ARTICLE{Stew:92, + author = {{Stewart}, A.~I.~F. and {Alexander}, M.~J. and {Meier}, +R.~R. and + {Paxton}, L.~J. and {Bougher}, S.~W. and {Fesen}, C.~G.}, + title = "{Atomic oxygen in the Martian thermosphere}", + journal = jgr, + year = 1992, + volume = 97, + pages = {91-102}, +} + +@ARTICLE{Nair:94, + author = {{Nair}, H. and {Allen}, M. and {Anbar}, A.~D. and {Yung}, +Y.~L. and + {Clancy}, R.~T.}, + title = "{A photochemical model of the martian atmosphere}", + journal = {Icarus}, + year = 1994, + volume = 111, + pages = {124-150}, + doi = {10.1006/icar.1994.1137}, +} + +@INPROCEEDINGS{Lope:06, + author = {{L{\'o}pez-Valverde}, M.~A. and {Gonz{\'a}lez-Galindo}, F. +and + {Forget}, F.}, + title = "{1-D and 3-D modelling of the upper atmosphere of Mars}", +booktitle = {Mars Atmosphere Modelling and Observations}, + year = 2006, + editor = {{Forget}, F. and {Lopez-Valverde}, M.~A. and {Desjean}, +M.~C. and + {Huot}, J.~P. and {Lefevre}, F. and {Lebonnois}, S. and {Lewis}, +S.~R. and + {Millour}, E. and {Read}, P.~L. and {Wilson}, R.~J.}, + pages = {623-+}, +} + +@ARTICLE{Stat:00, + author = {{States}, R.~J. and {Gardner}, C.~S.}, + title = "{Thermal Structure of the Mesopause Region (80-105 km) at +{40$^\circ$N} Latitude. Part I: Seasonal Variations.}", + journal = {Journal of Atmospheric Sciences}, + year = 2000, + volume = 57, + pages = {66-77}, +} + +@ARTICLE{Mccl:07, + author = {{McCleese}, D.~J. and {Schofield}, J.~T. and {Taylor}, +F.~W. and + {Calcutt}, S.~B. and {Foote}, M.~C. and {Kass}, D.~M. and {Leovy}, +C.~B. and + {Paige}, D.~A. and {Read}, P.~L. and {Zurek}, R.~W.}, + title = "{Mars Climate Sounder: An investigation of thermal and +water vapor structure, dust and condensate distributions in the +atmosphere, and energy balance of the polar regions}", + journal = {Journal of Geophysical Research (Planets)}, + year = 2007, + volume = 112, + number = {E11}, + pages = {5-+}, + doi = {10.1029/2006JE002790}, +} + +@ARTICLE{Vonz:96, + author = {{von Zahn}, U. and {H{\"o}ffner}, J.}, + title = "{Mesopause temperature profiling by potassium lidar}", + journal = grl, + year = 1996, + volume = 23, + pages = {141-144}, + doi = {10.1029/95GL03688}, +} + +@ARTICLE{Sels:07, + author = {{Selsis}, F. and {Kasting}, J.~F. and {Levrard}, B. and +{Paillet}, J. and + {Ribas}, I. and {Delfosse}, X.}, + title = "{Habitable planets around the star Gliese 581?}", + journal = {Astronomy and Astrophysics}, + year = 2007, + volume = 476, + pages = {1373-1387}, + doi = {10.1051/0004-6361:20078091}, +} + +@ARTICLE{Bert:06, + author = {{Bertaux}, J.-L. and {Korablev}, O. and {Perrier}, S. and +{Qu{\'e}merais}, E. and + {Montmessin}, F. and {Leblanc}, F. and {Lebonnois}, S. and {Rannou}, +P. and + {Lef{\`e}vre}, F. and {Forget}, F. and {Fedorova}, A. and +{Dimarellis}, E. and + {Reberac}, A. and {Fonteyn}, D. and {Chaufray}, J.~Y. and {Guibert}, +S. + }, + title = "{SPICAM on Mars Express: Observing modes and overview of UV +spectrometer data and scientific results}", + journal = {Journal of Geophysical Research (Planets)}, + year = 2006, + volume = 111, + number = {E10}, + pages = {10-+}, + doi = {10.1029/2006JE002690}, +} + +@ARTICLE{Toma:99, + author = {{Tomasko}, M.~G. and {Doose}, L.~R. and {Lemmon}, M. and +{Smith}, P.~H. and + {Wegryn}, E.}, + title = "{Properties of dust in the Martian atmosphere from the +Imager on Mars Pathfinder}", + journal = jgr, + year = 1999, + volume = 104, + pages = {8987-9008}, + doi = {10.1029/1998JE900016}, +} + +@ARTICLE{Gras:00, + author = {{Grassi}, D. and {Formisano}, V.}, + title = "{IRIS Mariner 9 data revisited:2. Aerosol dust +composition}", + journal = pss, + year = 2000, + volume = 48, + pages = {577-598}, +} + +@ARTICLE{Hami:05, + author = {{Hamilton}, V.~E. and {McSween}, H.~Y. and {Hapke}, B.}, + title = "{Mineralogy of Martian atmospheric dust inferred from +thermal infrared spectra of aerosols}", + journal = {Journal of Geophysical Research (Planets)}, + year = 2005, + volume = 110, + pages = {12006-+}, + doi = {10.1029/2005JE002501}, +} + +@INPROCEEDINGS{Hans:03, + author = {{Hansen}, G.~B.}, + title = "{Infrared Optical Constants of Martian Dust Derived from +Martian Spectra}", +booktitle = {Sixth International Conference on Mars}, + year = 2003, + editor = {{Albee}, A.}, + pages = {3194-+}, +} + +@ARTICLE{Wolf:03, + author = {{Wolff}, M.~J. and {Clancy}, R.~T.}, + title = "{Constraints on the size of Martian aerosols from Thermal +Emission Spectrometer observations}", + journal = {Journal of Geophysical Research (Planets)}, + year = 2003, + volume = 108, + pages = {5097-+}, + doi = {10.1029/2003JE002057}, +} + +@ARTICLE{Bell:00, + author = {{Bell}, J.~F. and {McSween}, H.~Y. and {Crisp}, J.~A. and +{Morris}, R.~V. and + {Murchie}, S.~L. and {Bridges}, N.~T. and {Johnson}, J.~R. and + {Britt}, D.~T. and {Golombek}, M.~P. and {Moore}, H.~J. and + {Ghosh}, A. and {Bishop}, J.~L. and {Anderson}, R.~C. and +{Br{\"u}ckner}, J. and + {Economou}, T. and {Greenwood}, J.~P. and {Gunnlaugsson}, H.~P. and + {Hargraves}, R.~M. and {Hviid}, S. and {Knudsen}, J.~M. and + {Madsen}, M.~B. and {Reid}, R. and {Rieder}, R. and {Soderblom}, L. + }, + title = "{Mineralogic and compositional properties of Martian soil +and dust: Results from Mars Pathfinder}", + journal = jgr, + year = 2000, + volume = 105, + pages = {1721-1756}, + doi = {10.1029/1999JE001060}, +} + +@ARTICLE{Morr:06b, + author = {{Morris}, R.~V. and {Klingelh{\"o}fer}, G. and +{Schr{\"o}der}, C. and + {Rodionov}, D.~S. and {Yen}, A. and {Ming}, D.~W. and {de Souza}, +P.~A. and + {Wdowiak}, T. and {Fleischer}, I. and {Gellert}, R. and {Bernhardt}, +B. and + {Bonnes}, U. and {Cohen}, B.~A. and {Evlanov}, E.~N. and {Foh}, J. +and + {G{\"u}tlich}, P. and {Kankeleit}, E. and {McCoy}, T. and +{Mittlefehldt}, D.~W. and + {Renz}, F. and {Schmidt}, M.~E. and {Zubkov}, B. and {Squyres}, S.~W. +and + {Arvidson}, R.~E.}, + title = "{M{\"o}ssbauer mineralogy of rock, soil, and dust at +Meridiani Planum, Mars: Opportunity's journey across sulfate-rich +outcrop, basaltic sand and dust, and hematite lag deposits}", + journal = {Journal of Geophysical Research (Planets)}, + year = 2006, + volume = 111, + pages = {12-+}, + doi = {10.1029/2006JE002791}, +} + +@ARTICLE{Morr:06a, + author = {{Morris}, R.~V. and {Klingelh{\"o}fer}, G. and +{Schr{\"o}der}, C. and + {Rodionov}, D.~S. and {Yen}, A. and {Ming}, D.~W. and {de Souza}, +P.~A. and + {Fleischer}, I. and {Wdowiak}, T. and {Gellert}, R. and {Bernhardt}, +B. and + {Evlanov}, E.~N. and {Zubkov}, B. and {Foh}, J. and {Bonnes}, U. and + {Kankeleit}, E. and {G{\"u}tlich}, P. and {Renz}, F. and {Squyres}, +S.~W. and + {Arvidson}, R.~E.}, + title = "{M{\"o}ssbauer mineralogy of rock, soil, and dust at Gusev +crater, Mars: Spirit's journey through weakly altered olivine basalt on +the plains and pervasively altered basalt in the Columbia Hills}", + journal = {Journal of Geophysical Research (Planets)}, + year = 2006, + volume = 111, + pages = {2-+}, + doi = {10.1029/2005JE002584}, +} + +@ARTICLE{Goetz:05, + author = {{Goetz}, W. and {Bertelsen}, P. and {Binau}, C.~S. and +{Gunnlaugsson}, H.~P. and + {Hviid}, S.~F. and {Kinch}, K.~M. and {Madsen}, D.~E. and {Madsen}, +M.~B. and + {Olsen}, M. and {Gellert}, R. and {Klingelh{\"o}fer}, G. and + {Ming}, D.~W. and {Morris}, R.~V. and {Rieder}, R. and {Rodionov}, +D.~S. and + {de Souza}, P.~A. and {Schr{\"o}der}, C. and {Squyres}, S.~W. and + {Wdowiak}, T. and {Yen}, A.}, + title = "{Indication of drier periods on Mars from the chemistry and +mineralogy of atmospheric dust}", + journal = {Nature}, + year = 2005, + volume = 436, + pages = {62-65}, + doi = {10.1038/nature03807}, +} + +@ARTICLE{Mart:95, + author = {{Martin}, T.~Z.}, + title = "{Mass of dust in the Martian atmosphere}", + journal = jgr, + year = 1995, + volume = 100, + pages = {7509-7512}, +} + +@ARTICLE{Neuk:07, + author = {{Neukum}, G. and {Behnke}, T. and + {Duxbury}, T.~C. and {Eichentopf}, K. and {Flohrer}, J. and + {Gasselt}, S.~V. and {Giese}, B. and {Gwinner}, K. and {Hauber}, E. and + {Hoffmann}, H. and {Hoffmeister}, A. and {K{\"o}hler}, U. and + {Matz}, K.-D. and {McCord}, T.~B. and {Mertens}, V. and {Oberst}, J. and + {Pischel}, R. and {Reiss}, D. and {Ress}, E. and {Roatsch}, T. and + {Saiger}, P. and {Scholten}, F. and {Schwarz}, G. and {Stephan}, K. and + {W{\"a}hlisch}, M.}, + title = "{The high-resolution stereo camera (HRSC) experiment on Mars Express: Instrument aspects and experiment conduct from interplanetary cruise through the nominal mission}", + journal = pss, + year = 2007, + volume = 55, + pages = {928-952}, + doi = {10.1016/j.pss.2006.12.003}, +} + +@ARTICLE{Mcew:07, + author = {{McEwen}, A.~S. and {Eliason}, E.~M. and {Bergstrom}, J.~W. and + {Bridges}, N.~T. and {Hansen}, C.~J. and {Delamere}, W.~A. and + {Grant}, J.~A. and {Gulick}, V.~C. and {Herkenhoff}, K.~E. and + {Keszthelyi}, L. and {Kirk}, R.~L. and {Mellon}, M.~T. and {Squyres}, S.~W. and + {Thomas}, N. and {Weitz}, C.~M.}, + title = "{Mars Reconnaissance Orbiter's High Resolution Imaging Science Experiment (HiRISE)}", + journal = jgr, + year = 2007, + volume = 112, + number = {E11}, + pages = {5-+}, + doi = {10.1029/2005JE002605}, +} + +@ARTICLE{Murc:07, + author = {{Murchie}, S. and {Arvidson}, R. and {Bedini}, P. and {Beisser}, K. and + {Bibring}, J.-P. and {Bishop}, J. and {Boldt}, J. and {Cavender}, P. and + {Choo}, T. and {Clancy}, R.~T. and {Darlington}, E.~H. and {Des Marais}, D. and + {Espiritu}, R. and {Fort}, D. and {Green}, R. and {Guinness}, E. and + {Hayes}, J. and {Hash}, C. and {Heffernan}, K. and {Hemmler}, J. and + {Heyler}, G. and {Humm}, D. and {Hutcheson}, J. and {Izenberg}, N. and + {Lee}, R. and {Lees}, J. and {Lohr}, D. and {Malaret}, E. and + {Martin}, T. and {McGovern}, J.~A. and {McGuire}, P. and {Morris}, R. and + {Mustard}, J. and {Pelkey}, S. and {Rhodes}, E. and {Robinson}, M. and + {Roush}, T. and {Schaefer}, E. and {Seagrave}, G. and {Seelos}, F. and + {Silverglate}, P. and {Slavney}, S. and {Smith}, M. and {Shyong}, W.-J. and + {Strohbehn}, K. and {Taylor}, H. and {Thompson}, P. and {Tossman}, B. and + {Wirzburger}, M. and {Wolff}, M.}, + title = "{Compact Reconnaissance Imaging Spectrometer for Mars (CRISM) on Mars Reconnaissance Orbiter (MRO)}", + journal = {Journal of Geophysical Research (Planets)}, + year = 2007, + volume = 112, + number = {E11}, + pages = {5-+}, + doi = {10.1029/2006JE002682}, +} + +@book{Kond:65, + author = {Kondratyev , K.~Y.}, + publisher = {Pergamon Press, Oxford}, + title = {Radiative heat exchange in the atmosphere}, + year = {1965}, +} + +@article{Dozi:90, + author = {{Dozier}, J. and {Frew}, J.}, + title = "{Rapid calculation of terrain parameters for radiation modeling from digital elevation data}", + journal = {\protect{IEEE} Transactions on Geoscience and Remote Sensing}, + year = 1990, + volume = 28, + number = 5, + pages = {963-969}, +} + +@article{Hay:85, + author = {Hay, J.~E. and McKay, D.~C.}, + title = "{Estimating Solar Irradiance on Inclined Surfaces: A Review and Assessment of Methodologies}", + journal = {International Journal of Sustainable Energy}, + year = 1985, + volume = {3-4}, + pages = {203-240}, +} + +@book{Mune:04, + author = {Muneer, T.}, + publisher = {Butterworth-Heinemann}, + title = {Solar Radiation and Daylight Models}, + year = {2004} +} + +@book{Capd:88, + author = {Capderou, M.}, + publisher = {Office des publications universitaires, Alger}, + title = {Atlas solaire de l'Alg\'erie}, + year = {1988} +} + +@article{Sand:97, + author = {Sandmeier, S. and Itten, K.~I.}, + title = "{A physically-based model to correct atmospheric and illumination effects in optical satellite data of rugged terrain}", + journal = {\protect{IEEE} Transactions on Geoscience and Remote Sensing}, + year = 1997, + volume = 35, + number = 3, + pages = {708-717}, + doi={10.1109/36.581991}, +} + +@INPROCEEDINGS{Hay:78, + author = {Hay, J.~E. and Davies, J.~A.}, + title = "{Calculation of the solar radiation incident on an inclined surface}", + booktitle = {Proc. First Canadian Solar Radiation Data Workshop}, + year = 1978, + pages = {59-72}, + editor = {{Hay, J.~E. and Won, T.~K., Toronto, Ontario, Canada}}, +} + +@ARTICLE{Bird:86, + author = {{Bird}, R.~E. and {Riordan}, C.}, + title = "{Simple Solar Spectral Model for Direct and Diffuse Irradiance on Horizontal and Tilted Planes at the Earth's Surface for Cloudless Atmospheres}", + journal = {Journal of Applied Meteorology}, + year = 1986, + volume = 25, + pages = {87-97}, +} + +@article{Pere:90, + title={{Modeling daylight availability and irradiance components from direct and global irradiance}}, + author={Perez, R. and Ineichen, P. and Seals, R. and Michalsky, J. and Stewart, R.}, + journal={Solar Energy}, + volume={44}, + number={5}, + pages={271--289}, + year={1990} +} + +@ARTICLE{Li:00, + author = {Li, D.~H.~W. and Lam, J.~C.}, + title = "{Evaluation of slope irradiance and illuminance models against measured Hong Kong data}", + journal = {Building and Environment}, + year = 2000, + volume = 35, + number=6, + pages = {501-509}, +} + +@ARTICLE{Kluc:79, + author = {Klucher, T.~M.}, + title = "{Evaluation of models to predict insolation on tilted surfaces}", + journal = {Solar Energy}, + year = 1979, + volume = 23, + pages = {111-114}, +} + +@ARTICLE{Tran:04, + author = {Tran, T.~T. and Rannou, P.}, + title = "{Comparing 3D spherical Monte-Carlo and 2-stream parallel plane simulation of far-field backscattering image of Titan}", + journal = {Notes du Pole de Plan\'etologie IPSL}, + year = 2004, +} + +@ARTICLE{Mull:05, + author = {M{\"u}ller, M.~D. and Scherer, D.}, + title = "{A Grid and Subgrid Scale Radiation Parameterization of Topographic Effects for Mesoscale Weather Forecast Models}", + journal = mwr, + year = 2005, + volume = 133, + pages = {1431-1442} +} + +@ARTICLE{Senk:07, + author = {{Senkova}, A.~V. and {Rontu}, L. and {Savij{\"a}rvi}, H.}, + title = "{Parametrization of orographic effects on surface radiation in HIRLAM}", + journal = {Tellus Series A}, + year = 2007, + volume = 59, + pages = {279-291}, + doi = {10.1111/j.1600-0870.2007.00235.x}, +} + +@ARTICLE{Savi:05, + author = {{Savij{\"a}rvi}, H. and {Crisp}, D. and {Harri}, A.-M.}, + title = "{Effects of CO2 and dust on present-day solar radiation and climate on Mars}", + journal = {Quarterly Journal of the Royal Meteorological Society}, + year = 2005, + volume = 131, + pages = {2907-2922}, +} + +@ARTICLE{Beye:03, + author = {{Beyer}, R.~A. and {McEwen}, A.~S. and {Kirk}, R.~L.}, + title = "{Meter-scale slopes of candidate MER landing sites from point photoclinometry}", + journal = jgr, + year = 2003, + volume = 108, + pages = {8085-+}, + doi = {10.1029/2003JE002120}, +} + +@ARTICLE{Ahar:06, + author = {{Aharonson}, O. and {Schorghofer}, N.}, + title = "{Subsurface ice on Mars with rough topography}", + journal = jgr, + year = 2006, + volume = 111, + number = {E10}, + pages = {11007-+}, + doi = {10.1029/2005JE002636}, +} + +@ARTICLE{Golo:03, + author = {{Golombek}, M.~P. and {Grant}, J.~A. and {Parker}, T.~J. and + {Kass}, D.~M. and {Crisp}, J.~A. and {Squyres}, S.~W. and {Haldemann}, A.~F.~C. and + {Adler}, M. and {Lee}, W.~J. and {Bridges}, N.~T. and {Arvidson}, R.~E. and + {Carr}, M.~H. and {Kirk}, R.~L. and {Knocke}, P.~C. and {Roncoli}, R.~B. and + {Weitz}, C.~M. and {Schofield}, J.~T. and {Zurek}, R.~W. and + {Christensen}, P.~R. and {Fergason}, R.~L. and {Anderson}, F.~S. and + {Rice}, J.~W.}, + title = "{Selection of the Mars Exploration Rover landing sites}", + journal = jgr, + year = 2003, + volume = 108, + pages = {8072-+}, + doi = {10.1029/2003JE002074}, +} + +@ARTICLE{Wils:08, + author = {{Wilson}, R.~J. and {Lewis}, S.~R. and {Montabone}, L. and +{Smith}, M.~D. + }, + title = "{Influence of water ice clouds on Martian tropical +atmospheric temperatures}", + journal = grl, + year = 2008, + volume = 35, + pages = {7202-+}, + doi = {10.1029/2007GL032405}, +} + +@ARTICLE{Scho:06, + author = {{Schorghofer}, N. and {Edgett}, K.~S.}, + title = "{Seasonal surface frost at low latitudes on Mars}", + journal = {Icarus}, + year = 2006, + volume = 180, + pages = {321-334}, + doi = {10.1016/j.icarus.2005.08.022}, +} + +@ARTICLE{Ye:90, + author = {{Ye}, Z.~J. and {Segal}, M. and {Pielke}, R.~A.}, + title = "{A comparative study of daytime thermally induced upslope flow on Mars and earth}", + journal = {Journal of Atmospheric Sciences}, + year = 1990, + volume = 47, + pages = {612-628}, +} + +@INPROCEEDINGS{Siil:06, + author = {{Siili}, T. and {J{\"a}rvenoja}, S. and {Kauhanen}, J. and {Savij{\"a}rvi}, H. + }, + title = "{Mars limited area model: status report}", +booktitle = {Mars Atmosphere Modelling and Observations}, + year = 2006, + editor = {{Forget}, F. and {Lopez-Valverde}, M.~A. and {Desjean}, M.~C. and + {Huot}, J.~P. and {Lefevre}, F. and {Lebonnois}, S. and {Lewis}, S.~R. and + {Millour}, E. and {Read}, P.~L. and {Wilson}, R.~J.}, + pages = {129-+}, +} + +@ARTICLE{Wing:06, + author = {{Wing}, D.~R. and {Austin}, G.~L.}, + title = "{Description of the University of Auckland global Mars mesoscale meteorological model}", + journal = {Icarus}, + year = 2006, + volume = 185, + pages = {370-382}, + doi = {10.1016/j.icarus.2006.07.016}, +} + +@ARTICLE{Rich:07, + author = {{Richardson}, M.~I. and {Toigo}, A.~D. and {Newman}, C.~E.}, + title = "{PlanetWRF: A general purpose, local to global numerical model for planetary atmospheric and climate dynamics}", + journal = jgr, + year = 2007, + volume = 112, + number = {E09001}, + doi = {10.1029/2005JE002636}, +} + +@ARTICLE{Tyle:05, + author = {{Tyler}, D. and {Barnes}, J.~R.}, + title = "{A mesoscale model study of summertime atmospheric circulations in the north polar region of Mars}", + journal = {Journal of Geophysical Research (Planets)}, + year = 2005, + volume = 110, + number = {E9}, + pages = {6007-+}, + doi = {10.1029/2004JE002356}, +} + +@ARTICLE{Toig:02dust, + author = {{Toigo}, A.~D. and {Richardson}, M.~I. and {Wilson}, R.~J. and + {Wang}, H. and {Ingersoll}, A.~P.}, + title = "{A first look at dust lifting and dust storms near the south pole of Mars with a mesoscale model}", + journal = {Journal of Geophysical Research (Planets)}, + year = 2002, + volume = 107, + pages = {5050-+}, + doi = {10.1029/2001JE001592}, +} + +@ARTICLE{Kuzm:01, + author = {{Kuzmin}, R.~O. and {Greeley}, R. and {Rafkin}, S.~C.~R. and + {Haberle}, R.}, + title = "{Wind-Related Modification of Some Small Impact Craters on Mars}", + journal = {Icarus}, + year = 2001, + volume = 153, + pages = {61-70}, + doi = {10.1006/icar.2001.6654}, +} + +@ARTICLE{Fent:05, + author = {{Fenton}, L.~K. and {Toigo}, A.~D. and {Richardson}, M.~I.}, + title = "{Aeolian processes in Proctor Crater on Mars: Mesoscale modeling of dune-forming winds}", + journal = {Journal of Geophysical Research (Planets)}, + year = 2005, + volume = 110, + number = {E9}, + pages = {6005-+}, + doi = {10.1029/2004JE002309}, +} + +@ARTICLE{Gree:08, + author = {{Greeley}, R. and {Whelley}, P.~L. and {Neakrase}, L.~D.~V. and + {Arvidson}, R.~E. and {Bridges}, N.~T. and {Cabrol}, N.~A. and + {Christensen}, P.~R. and {Di}, K. and {Foley}, D.~J. and {Golombek}, M.~P. and + {Herkenhoff}, K. and {Knudson}, A. and {Kuzmin}, R.~O. and {Li}, R. and + {Michaels}, T. and {Squyres}, S.~W. and {Sullivan}, R. and {Thompson}, S.~D. + }, + title = "{Columbia Hills, Mars: Aeolian features seen from the ground and orbit}", + journal = {Journal of Geophysical Research (Planets)}, + year = 2008, + volume = 113, + number = {E12}, + pages = {6-+}, + doi = {10.1029/2007JE002971}, +} + +@ARTICLE{Rafk:04, + author = {{Rafkin}, S.~C.~R. and {Michaels}, T.~I. and {Haberle}, R.~M. + }, + title = "{Meteorological predictions for the Beagle 2 mission to Mars}", + journal = grl, + year = 2004, + volume = 31, + pages = {1703-+}, + doi = {10.1029/2003GL018966}, +} + +@ARTICLE{Kass:03, + author = {{Kass}, D.~M. and {Schofield}, J.~T. and {Michaels}, T.~I. and + {Rafkin}, S.~C.~R. and {Richardson}, M.~I. and {Toigo}, A.~D. + }, + title = "{Analysis of atmospheric mesoscale models for entry, descent, and landing}", + journal = {Journal of Geophysical Research (Planets)}, + year = 2003, + volume = 108, + pages = {8090-+}, + doi = {10.1029/2003JE002065}, +} + +@ARTICLE{Skam:08, + author = {{Skamarock}, W.~C. and {Klemp}, J.~B.}, + title = "{A time-split nonhydrostatic atmospheric model for weather research and forecasting applications}", + journal = {Journal of Computational Physics}, + year = 2008, + volume = 227, + pages = {3465-3485}, + doi = {10.1016/j.jcp.2007.01.037}, +} + +@ARTICLE{Skam:06, + author = {{Skamarock}, W.~C.}, + title = "{Positive-Definite and Monotonic Limiters for Unrestricted-Time-Step Transport Schemes}", + journal = {Monthly Weather Review}, + year = 2006, + volume = 134, + pages = {2241-+}, + doi = {10.1175/MWR3170.1}, +} + +@ARTICLE{Arak:66, + author = {{Arakawa}, A.}, + title = "{Computational Design for Long-Term Numerical Integration of the Equations of Fluid Motion: Two-Dimensional Incompressible Flow. Part I}", + journal = {Journal of Computational Physics}, + year = 1966, + volume = 1, + pages = {119-+}, +} + +@ARTICLE{Klem:07, + author = {{Klemp}, J.~B. and {Skamarock}, W.~C. and {Dudhia}, J.}, + title = "{Conservative Split-Explicit Time Integration Methods for the Compressible Nonhydrostatic Equations}", + journal = {Monthly Weather Review}, + year = 2007, + volume = 135, + pages = {2897-+}, + doi = {10.1175/MWR3440.1}, +} + +@ARTICLE{Wick:02, + author = {{Wicker}, L.~J. and {Skamarock}, W.~C.}, + title = "{Time-Splitting Methods for Elastic Models Using Forward Time Schemes}", + journal = {Monthly Weather Review}, + year = 2002, + volume = 130, + pages = {2088-+}, + doi = {10.1175/1520-0493(2002)130}, +} + +@ARTICLE{Hund:95, + author = {{Hundsdorfer}, W.}, + title = "{A Positive Finite-Difference Advection Scheme}", + journal = {Journal of Computational Physics}, + year = 1995, + volume = 117, + pages = {35-46}, + doi = {10.1006/jcph.1995.1042}, +} + +@ARTICLE{Knie:07, + author = {{Knievel}, J.~C. and {Bryan}, G.~H. and {Hacker}, J.~P.}, + title = "{Explicit Numerical Diffusion in the WRF Model}", + journal = {Monthly Weather Review}, + year = 2007, + volume = 135, + pages = {3808-+}, + doi = {10.1175/2007MWR2100.1}, +} + +@article{Smag:63, + author = {Smagorinsky, J.}, + journal = {Mon. Weather Rev.}, + pages = {99--164}, + title = {General Circulation Experiments with the Primitive Equations. I. The Basic Experiment}, + volume = {91}, + year = {1963} +} + +@INPROCEEDINGS{Forg:99icm5, + author = {{Forget}, F. and {Hourdin}, F. and {Hourdin}, C. and {Talagrand}, O. + }, + title = "{Simulations of the Martian Seasonal Dust Cycle with a General Circulation Model}", +booktitle = {The Fifth International Conference on Mars}, + year = 1999, + pages = {6206-+}, +} + + +@inproceedings{Forg:07emsec, + author = {Forget, F. and Millour, E. and Gonzalez-Galindo, F. and Spiga, A. and Lebonnois, S. and Hourdin, F. and Lewis, S.~R. and Montabone, L. and Read, P.~L. and Lefevre, F. and Montmessin, F.}, + booktitle = {European Mars Science and Exploration Conference: Mars Express and ExoMars}, + editor = {ESA}, + title = {Modelling the present Mars climate system as observed by Mars Express}, + year = {2007} +} + +@INPROCEEDINGS{Rafk:03adj, + author = {{Rafkin}, S.~C.~R.}, + title = "{The Effect of Convective Adjustment on the Global Circulation of Mars as Simulated by a General Circulation Model}", +booktitle = {Sixth International Conference on Mars}, + year = 2003, + editor = {{Albee}, A.}, + pages = {3059-+}, +} + +@ARTICLE{Dimi:05, + author = {{Dimitrijevic}, M. and {Laprise}, R.}, + title = "{Validation of the nesting technique in a regional climate model and sensitivity tests to the resolution of the lateral boundary conditions during summer}", + journal = {Climate Dynamics}, + year = 2005, + volume = 25, + pages = {555-580}, + doi = {10.1007/s00382-005-0023-6}, +} + +@article{Anti:06, + title={{Testing the downscaling ability of a one-way nested regional climate model in regions of complex topography}}, + author={Antic, S. and Laprise, R. and Denis, B. and de El{\'\i}a, R.}, + journal={Climate Dynamics}, + volume={26}, + number={2}, + pages={305--325}, + year={2006}, +} + +@ARTICLE{Putz:07, + author = {{Putzig}, N.~E. and {Mellon}, M.~T.}, + title = "{Apparent thermal inertia and the surface heterogeneity of Mars}", + journal = {Icarus}, + year = 2007, + volume = 191, + pages = {68-94}, + doi = {10.1016/j.icarus.2007.05.013}, +} + +@ARTICLE{Vasa:00, + author = {{Vasavada}, A.~R. and {Williams}, J.-P. and {Paige}, D.~A. and + {Herkenhoff}, K.~E. and {Bridges}, N.~T. and {Greeley}, R. and + {Murray}, B.~C. and {Bass}, D.~S. and {McBride}, K.~S.}, + title = "{Surface properties of Mars' polar layered deposits and polar landing sites}", + journal = jgr, + year = 2000, + volume = 105, + pages = {6961-6970}, + doi = {10.1029/1999JE001108}, +} + +@ARTICLE{Hebr:07, + author = {{H{\'e}brard}, E. and {Coll}, P. and {Montmessin}, F. and {Marticorena}, B. and + {Bergametti}, G.}, + title = "{Modelling the Aeolian Erosion Thresholds on Mars}", + journal = {LPI Contributions}, + year = 2007, + volume = 1353, + pages = {3144-+}, +} + +@ARTICLE{Nayv:97, + author = {{Nayvelt}, L. and {Gierasch}, P.~J. and {Cook}, K.~H.}, + title = "{Modeling and observations of Martian stationary waves.}", + journal = {Journal of Atmospheric Sciences}, + year = 1997, + volume = 54, + pages = {986-1013}, +} + +@misc{Mill:08ddd, + author = {Millour, E. and Forget, F. and Lewis, S.~R.}, + howpublished = {Mars Climate Database v4.3 Detailed Design Document, available on {\tt http://web.lmd.jussieu.fr/forget/dvd/docs}}, + year = {2008} +} + +@ARTICLE{Lewi:03, + author = {{Lewis}, S.~R. and {Read}, P.~L.}, + title = "{Equatorial jets in the dusty Martian atmosphere}", + journal = {Journal of Geophysical Research (Planets)}, + year = 2003, + volume = 108, + pages = {5034-+}, + doi = {10.1029/2002JE001933}, +} + +@ARTICLE{Gier:71, + author = {{Gierasch}, P. and {Sagan}, C.}, + title = "{A Preliminary Assessment of Martian Wind Regimes}", + journal = {Icarus}, + year = 1971, + volume = 14, + pages = {312-+}, +} + +@ARTICLE{Ramp:04, + author = {{Rampanelli}, G. and {Zardi}, D. and {Rotunno}, R.}, + title = "{Mechanisms of Up-Valley Winds.}", + journal = {Journal of Atmospheric Sciences}, + year = 2004, + volume = 61, + pages = {3097-3111}, +} + +@ARTICLE{Zang:02, + author = {{Z{\"a}ngl}, G.}, + title = "{An Improved Method for Computing Horizontal Diffusion in a Sigma-Coordinate Model and Its Application to Simulations over Mountainous Topography}", + journal = {Monthly Weather Review}, + year = 2002, + volume = 130, + pages = {1423-+}, + doi = {10.1175/1520-0493(2002)130}, +} + +@ARTICLE{Inad:08, + author = {{Inada}, A. and {Garcia-Comas}, M. and {Altieri}, F. and {Gwinner}, K. and + {Poulet}, F. and {Bellucci}, G. and {Keller}, H.~U. and {Markiewicz}, W.~J. and + {Richardson}, M.~I. and {Hoekzema}, N. and {Neukum}, G. and + {Bibring}, J.-P.}, + title = "{Dust haze in Valles Marineris observed by HRSC and OMEGA on board Mars Express}", + journal = {Journal of Geophysical Research (Planets)}, + year = 2008, + volume = 113, + number = {E12}, + pages = {2004-+}, + doi = {10.1029/2007JE002893}, +} + +@ARTICLE{Odak:98, + author = {{Odaka}, M. and {Nakajima}, K. and {Takehiro}, S. and {Ishiwatari}, M. and + {Hayashi}, Y.}, + title = "{A numerical study of the Martian atmospheric convection with a two-dimensional anelastic model}", + journal = {Earth, Planets, and Space}, + year = 1998, + volume = 50, + pages = {431-437}, +} + +@ARTICLE{Sorb:07, + author = {{Sorbjan}, Z.}, + title = "{Statistics of shallow convection on Mars based on large-eddy simulations. Part 1: shearless conditions}", + journal = {Boundary-Layer Meteorology}, + year = 2007, + volume = 123, + pages = {121-142}, + doi = {10.1007/s10546-006-9128-7}, +} + +@ARTICLE{Toig:03dd, + author = {{Toigo}, A.~D. and {Richardson}, M.~I. and {Ewald}, S.~P. and + {Gierasch}, P.~J.}, + title = "{Numerical simulation of Martian dust devils}", + journal = {Journal of Geophysical Research (Planets)}, + year = 2003, + volume = 108, + pages = {5047-+}, + doi = {10.1029/2002JE002002}, +} + +@ARTICLE{Anto:07, + author = {{Antonelli}, M. and {Rotunno}, R.}, + title = "{Large-Eddy Simulation of the Onset of the Sea Breeze}", + journal = {Journal of Atmospheric Sciences}, + year = 2007, + volume = 64, + pages = {4445-+}, + doi = {10.1175/2007JAS2261.1}, +} + +@ARTICLE{Savi:04, + author = {{Savij{\"a}rvi}, H. and {M{\"a}{\"a}tt{\"a}nen}, A. and {Kauhanen}, J. and + {Harri}, A.-M.}, + title = "{Mars Pathfinder: New data and new model simulations}", + journal = {Quarterly Journal of the Royal Meteorological Society}, + year = 2004, + volume = 130, + pages = {669-683}, +} + +@ARTICLE{Ferr:03, + author = {{Ferri}, F. and {Smith}, P.~H. and {Lemmon}, M. and {Renn{\'o}}, N.~O. + }, + title = "{Dust devils as observed by Mars Pathfinder}", + journal = {Journal of Geophysical Research (Planets)}, + year = 2003, + volume = 108, + pages = {5133-+}, + doi = {10.1029/2000JE001421}, +} + +@article{Dion:02, + title={{Numerical study of a Sahelian synoptic weather system: Initiation and mature stages of convection and its interactions with the large-scale dynamics}}, + author={Diongue, A. and Lafore, JP and Redelsperger, JL and Roca, R.}, + journal={Quarterly Journal of the Royal Meteorological Society}, + volume={128}, + number={584}, + pages={1899--1927}, + year={2002} +} + +@ARTICLE{Peal:73, + author = {{Peale}, J.}, + title = "{Water and the Martian W Cloud}", + journal = {Icarus}, + year = 1973, + volume = 18, + pages = {497-+}, +} + +@ARTICLE{Bens:03, + author = {{Benson}, J.~L. and {Bonev}, B.~P. and {James}, P.~B. and {Shan}, K.~J. and + {Cantor}, B.~A. and {Caplinger}, M.~A.}, + title = "{The seasonal behavior of water ice clouds in the Tharsis and Valles Marineris regions of Mars: Mars Orbiter Camera Observations}", + journal = {Icarus}, + year = 2003, + volume = 165, + pages = {34-52}, + doi = {10.1016/S0019-1035(03)00175-1}, +} + +@ARTICLE{Mali:08, + author = {{Malin}, M.~C. and {Calvin}, W.~M. and {Cantor}, B.~A. and {Clancy}, R.~T. and + {Haberle}, R.~M. and {James}, P.~B. and {Thomas}, P.~C. and + {Wolff}, M.~J. and {Bell}, J.~F. and {Lee}, S.~W.}, + title = "{Climate, weather, and north polar observations from the Mars Reconnaissance Orbiter Mars Color Imager}", + journal = {Icarus}, + year = 2008, + volume = 194, + pages = {501-512}, + doi = {10.1016/j.icarus.2007.10.016}, +} + +@INPROCEEDINGS{Made:08mwcm, + author = {Madeleine, J.~B. and Forget F. and Spiga A. and Bibring J.~P. and Gondet B. and Jouglet D. and Vincendon M. and Langevin Y. and Poulet F. and Montmessin F. and Schmitt B.}, + title = "{Mapping water ice cloud microphysics with OMEGA/Mars Express}", +booktitle = {Mars Water Cycle Workshop}, + year = 2008, + editor = {{Montmessin}, F.}, +} + +@INPROCEEDINGS{Wolf:08mwcm, + author = {Wolff, M.~J. and Clancy, R.~T. and Smith, M.~D. and the CRISM and MARCI team}, + title = "{Insights into the Mars Water Cycle Through Retrievals of Aerosols and Ozone: +The MARCI and CRISM Datasets}", +booktitle = {Mars Water Cycle Workshop}, + year = 2008, + editor = {{Montmessin}, F.}, +} + +@ARTICLE{Raph:03, + author = {{Raphael}, M.~N.}, + title = "{The Santa Ana Winds of California}", + journal = {Earth Interactions}, + year = 2003, + volume = 7, + number = 8, + pages = {080000-+}, + doi = {10.1175/1087-3562(2003)007}, +} + +@ARTICLE{Maat:09, + author = { +{M{\"a}{\"a}tt{\"a}nen}, A. +and Fouchet, T. +and Forni, O. +and Melchiorri, R. +and Forget, F. +and Savijarvi, H. +and Bibring, J.~P. +and Langevin, Y. +and Gondet, B. +and Formisano, V. +and Giuranna, M.}, + title = {A study of the properties of a local dust storm with \protect{Mars Express} \protect{OMEGA} and \protect{PFS} data}, + journal = {Icarus}, + year = 2009, + volume = 201, + number = 2, + pages = {504-516}, +} + +@misc{Mont:08, + author = {Montabone, L. and Martinez-Alvarado, O. and Spiga, A. and Lewis, S. R. and Read, P. L. and Forget, F.}, + howpublished = {EGU 2008, Abstract Number 10457}, + title = {Meteorology of the 2001 Martian planet-encircling dust storm in global and mesoscale modelling with data assimilation}, + year = {2008} +} + +@INPROCEEDINGS{Smit:08mwcm, + author = {Smith, M.~D.}, + title = "{Mars Water Vapor Climatology From MGS/TES}", +booktitle = {Mars Water Cycle Workshop}, + year = 2008, + editor = {{Montmessin}, F.}, +} + +@ARTICLE{Malt:08, + author = {{Maltagliati}, L. and {Titov}, D.~V. and {Encrenaz}, T. and + {Melchiorri}, R. and {Forget}, F. and {Garcia-Comas}, M. and + {Keller}, H.~U. and {Langevin}, Y. and {Bibring}, J.-P.}, + title = "{Observations of atmospheric water vapor above the Tharsis volcanoes on Mars with the OMEGA/MEx imaging spectrometer}", + journal = {Icarus}, + year = 2008, + volume = 194, + pages = {53-64}, + doi = {10.1016/j.icarus.2007.09.027}, +} + +@ARTICLE{Giur:08, + author = {{Giuranna}, M. and {Grassi}, D. and {Formisano}, V. and {Montabone}, L. and {Forget}, F. and {Zasova}, L.}, + title = "{PFS/MEX observations of the condensing $CO_{2}$ south polar cap of Mars}", + journal = {Icarus}, + year = 2008, + volume = 197, + pages = {386-402}, + doi = {10.1016/j.icarus.2008.05.019}, +} + +@misc{Sorb:08, + author = {Sorbjan, Z. and Wolff, M.~J. and Smith, M.~D.}, + howpublished = {\textit{submitted to Icarus}}, + title = {Temperature and turbulent heat flux profiles on Mars based on mini-TES observations}, + year = {2008} +} + + +@article{Scor:56, + title={{Airflow over an isolated hill}}, + author={Scorer, RS}, + journal={Quart. J. Roy. Meteor. Soc}, + volume={82}, + pages={75--81}, + year={1956} +} + +@ARTICLE{Spig:09, + author = {{Spiga}, A. and {Forget}, F.}, + title = "{A new model to simulate the Martian mesoscale and microscale atmospheric circulation: Validation and first results}", + journal = {Journal of Geophysical Research (Planets)}, + year = 2009, + volume = 114, + pages = {E02009}, + doi = {10.1029/2008JE003242}, +} + +@ARTICLE{Vinc:07, + author = {{Vincendon}, M. and {Langevin}, Y. and {Poulet}, F. and +{Bibring}, J.-P. and + {Gondet}, B.}, + title = "{Recovery of surface reflectance spectra and evaluation of +the optical depth of aerosols in the near-IR using a Monte Carlo +approach: Application to the OMEGA observations of high-latitude regions +of Mars}", + journal = {Journal of Geophysical Research (Planets)}, + year = 2007, + volume = 112, + number = {E11}, + pages = {8-+}, + doi = {10.1029/2006JE002845}, +} + +@ARTICLE{Boug:06venus, + author = {{Bougher}, S.~W. and {Rafkin}, S. and {Drossart}, P.}, + title = "{Dynamics of the Venus upper atmosphere: Outstanding +problems and new constraints expected from Venus Express}", + journal = pss, + year = 2006, + volume = 54, + pages = {1371-1380}, + doi = {10.1016/j.pss.2006.04.023}, +} + +@article{Lore:63, + title={{Deterministic Nonperiodic Flow}}, + author={Lorenz, E.N.}, + journal={Journal of the Atmospheric Sciences}, + volume={20}, + number={2}, + pages={130--141}, + year={1963}, + publisher={American Meteorological Society} +} + +@article{Wyng:04, + title={{Toward Numerical Modeling in the “Terra Incognita”}}, + author={Wyngaard, J.C.}, + journal={Journal of the Atmospheric Sciences}, + volume={61}, + number={14}, + pages={1816--1826}, + year={2004}, + publisher={American Meteorological Society} +} + +@article{Phil:56, + title={{The general circulation of the atmosphere: A numerical experiment}}, + author={Phillips, N.A.}, + journal={Quart. J. Roy. Meteor. Soc}, + volume={82}, + pages={123--164}, + year={1956} +} + +@article{Lill:67, + title={{The representation of small-scale turbulence in numerical simulation experiments}}, + author={Lilly, DK}, + journal={Proc. IBM Scientific Computing Symposium on Environmental Sciences}, + volume={195}, + year={1967} +} + +@article{Dear:70, + title={{Convective Velocity and Temperature Scales for the Unstable Planetary Boundary Layer and for Rayleigh Convection}}, + author={Deardorff, J.W.}, + journal={Journal of the Atmospheric Sciences}, + volume={27}, + number={8}, + pages={1211--1213}, + year={1970}, + publisher={American Meteorological Society} +} + + +@book{Fedo:04, + title={{Atmospheric turbulence and mesoscale meteorology}}, + author={Fedorovich, E. and Rotunno, R. and Stevens, B.}, + year={2004}, + publisher={Cambridge University Press, Cambridge} +} + +@article{Orla:75, + title={{A rational subdivision of scales for atmospheric processes}}, + author={Orlanski, I.}, + journal={Bull. Amer. Meteor. Soc}, + volume={56}, + number={5}, + pages={527--534}, + year={1975} +} + +@article{Hill:68, + title={{Grid Telescoping in Numerical Weather Prediction}}, + author={Hill, GE}, + journal={Journal of Applied Meteorology}, + volume={7}, + number={1}, + pages={29--38}, + year={1968}, + publisher={NOAA Central Library, Department of Commerce} +} + +@article{Harr:72, + title={{A Method for Incorporating Nested Finite Grids in the Solution of Systems of Geophysical Equations}}, + author={Harrison, E.J. and Elsberry, R.L.}, + journal={Journal of the Atmospheric Sciences}, + volume={29}, + number={7}, + pages={1235--1245}, + year={1972}, + publisher={American Meteorological Society} +} + +@article{Yana:61, + title={{A Detailed Analysis of Typhoon Formation}}, + author={Yanai, M.}, + journal={Meteor. Soc. Japan}, + volume={39}, + pages={187--214}, + year={1961} +} + +@article{Char:64, + title={{On the Growth of the Hurricane Depression}}, + author={Charney, J.G. and Eliassen, A.}, + journal={Journal of the Atmospheric Sciences}, + volume={21}, + number={1}, + pages={68--75}, + year={1964}, + publisher={American Meteorological Society} +} + +@article{Ooya:69, + title={{Numerical Simulation of the Life Cycle of Tropical Cyclones}}, + author={Ooyama, K.}, + journal={Journal of the Atmospheric Sciences}, + volume={26}, + number={1}, + pages={3--40}, + year={1969}, + publisher={American Meteorological Society} +} + +@article{Anth:71, + title={{Preliminary results from an asymmetric model of the tropical cyclone}}, + author={Anthes, R.~A. and Rosenthal, S.~L. and Trout, J.~W.}, + journal={Monthly Weather Review}, + volume={99}, + number={10}, + pages={744--758}, + year={1971}, + publisher={American Meteorological Society} +} + +@article{Ogur:64, + title={{Frictionally Controlled, Thermally Driven Circulations in a Circular Vortex with Application to Tropical Cyclones}}, + author={Ogura, Y.}, + journal={Journal of the Atmospheric Sciences}, + volume={21}, + number={6}, + pages={610--621}, + year={1964}, + publisher={American Meteorological Society} +} + +@article{Math:74, + title={{A Multiple-Grid Primitive Equation Model to Simulate the Development of an Asymmetric Hurricane (Isbell, 1964)}}, + author={Mathur, M.B.}, + journal={Journal of the Atmospheric Sciences}, + volume={31}, + number={2}, + pages={371--393}, + year={1974}, + publisher={American Meteorological Society} +} + +@article{Rede:88, + title={{A Three-Dimensional Simulation of a Tropical Squall Line: Convective Organization and Thermodynamic Vertical Transport}}, + author={Redelsperger, J.L. and Lafore, J.P.}, + journal={Journal of the Atmospheric Sciences}, + volume={45}, + number={8}, + pages={1334--1356}, + year={1988}, + publisher={American Meteorological Society} +} + +@article{Mill:74, + title={{A three-dimensional primitive equation model of cumulonimbus convection}}, + author={Miller, M.~J. and Pearce, R.~P.}, + journal={Quarterly Journal of the Royal Meteorological Society}, + volume={100}, + number={424}, + pages={133--154}, + year={1974}, + publisher={Royal Meteorological Society} +} + +@article{Monc:76, + title={{The dynamics and simulation of tropical cumulonimbus and squall lines}}, + author={Moncrieff, M.~W. and Miller, M.~J.}, + journal={Quarterly Journal of the Royal Meteorological Society}, + volume={102}, + number={432}, + pages={373--394}, + year={1976}, + publisher={Royal Meteorological Society} +} + + +@article{Lill:73, + title={{Observations of a Stationary Mountain Wave and its Associated Momentum Flux and Energy Dissipation}}, + author={Lilly, DK and Kennedy, PJ}, + journal={Journal of the Atmospheric Sciences}, + volume={30}, + number={6}, + pages={1135--1152}, + year={1973}, + publisher={American Meteorological Society} +} + +@article{Quen:48, + title={{The problem of airflow over mountains: A summary of theoretical studies}}, + author={Queney, P.}, + journal={Bull. Amer. Meteor. Soc}, + volume={29}, + number={1}, + pages={16--26}, + year={1948} +} + +@article{Mahr:77, + title={{The Effects of Topography on Sea and Land Breezes in a Two-Dimensional Numerical Model}}, + author={Mahrer, Y. and Pielke, R.A.}, + journal={Monthly Weather Review}, + volume={105}, + number={9}, + pages={1151--1162}, + year={1977}, + publisher={American Meteorological Society} +} + +@article{Klem:78, + title={{Numerical Simulation of Hydrostatic Mountain Waves}}, + author={Klemp, JB and Lilly, DK}, + journal={Journal of the Atmospheric Sciences}, + volume={35}, + number={1}, + pages={78--107}, + year={1978}, + publisher={American Meteorological Society} +} + +@article{Anth:78, + title={{Development of Hydrodynamic Models Suitable for Air Pollution and Other Mesometerological Studies}}, + author={Anthes, R.A. and Warner, T.T.}, + journal={Monthly Weather Review}, + volume={106}, + number={8}, + pages={1045--1078}, + year={1978}, + publisher={American Meteorological Society} +} + +@article{Mesi:88, + title={{The Step-Mountain Coordinate: Model Description and Performance for Cases of Alpine Lee Cyclogenesis and for a Case of an Appalachian Redevelopment}}, + author={Mesinger, F. and Janji{\'c}, Z.I. and Ni{\v{c}}kovi{\'c}, S. and Gavrilov, D. and Deaven, D.G.}, + journal={Monthly Weather Review}, + volume={116}, + number={7}, + pages={1493--1518}, + year={1988}, + publisher={American Meteorological Society} +} + +@article{Piel:92, + title={{A Comprehensive Meteorological Modeling System-RAMS}}, + author={Pielke, RA and Cotton, WR and Walko, RL and Trembaek, CJ and Lyons, WA and Grasso, LD and Nieholls, ME and Moran, MD and Wesley, DA and Lee, TJ and others}, + journal={Meteorol. Atmos. Phys}, + volume={49}, + pages={69--91}, + year={1992} +} + +@article{Dudh:93, + title={{A Nonhydrostatic Version of the Penn State--NCAR Mesoscale Model: Validation Tests and Simulation of an Atlantic Cyclone and Cold Front}}, + author={Dudhia, J.}, + journal={Monthly Weather Review}, + volume={121}, + number={5}, + pages={1493--1513}, + year={1993}, + publisher={American Meteorological Society} +} + +@article{Clar:84, + title={{Severe Downslope Windstorm Calculations in Two and Three Spatial Dimensions Using Anelastic Interactive Grid Nesting: A Possible Mechanism for Gustiness}}, + author={Clark, T.L. and Farley, R.~D.}, + journal={Journal of the Atmospheric Sciences}, + volume={41}, + number={3}, + pages={329--350}, + year={1984}, + publisher={American Meteorological Society} +} + +@article{Lo:08, + title={{Assessment of three dynamical climate downscaling methods using the Weather Research and Forecasting (WRF) model}}, + author={Lo, J. and Yang, Z. and Pielke, RA}, + journal={J. Geophys. Res., doi}, + volume={10}, + year={2008} +} + +@book{Boug:01, + title={{Dynamique de l’atmosphere et de l’ocean}}, + author={Bougeault, P. and Sadourny, R.}, + journal={Editions de l’Ecole polytechnique}, + year={2001}, + publisher={Editions de l'Ecole Polytechnique} +} + +@article{Elia:49, + title={{The quasi-static equations of motion with pressure as independent variable}}, + author={Eliassen, A.}, + journal={Geofys. Publ., Oslo}, + volume={17}, + year={1949} +} + +@article{Phil:57, + title={{A coordinate system having some special advantages for numerical forecasting}}, + author={Phillips, NA}, + journal={Journal of the Atmospheric Sciences}, + volume={14}, + number={2}, + pages={184--185}, + year={1957}, + publisher={American Meteorological Society} +} + +@article{Arak:77, + title={{Computational design of the UCLA general circulation model}}, + author={Arakawa, A. and Lamb, V.~R.}, + journal={Methods in Computational Physics}, + volume={17}, + pages={174--267}, + year={1977} +} + +@article{Kasa:74, + title={{Various Vertical Coordinate Systems Used for Numerical Weather Prediction}}, + author={Kasahara, A.}, + journal={Monthly Weather Review}, + volume={102}, + number={7}, + pages={509--522}, + year={1974}, + publisher={American Meteorological Society} +} + +@article{Durr:89, + title={{Improving the Anelastic Approximation}}, + author={Durran, D.R.}, + journal={Journal of the Atmospheric Sciences}, + volume={46}, + number={11}, + pages={1453--1461}, + year={1989}, + publisher={American Meteorological Society} +} + + +@ARTICLE{Lafo:98, + author = {{Lafore}, J.~P. and {Stein}, J. and {Asencio}, N. and {Bougeault}, P. and + {Ducrocq}, V. and {Duron}, J. and {Fischer}, C. and {H{\'e}reil}, P. and + {Mascart}, P. and {Masson}, V. and {Pinty}, J.~P. and {Redelsperger}, J.~L. and + {Richard}, E. and {Vil{\`a}-Guerau de Arellano}, J.}, + title = "{The Meso-NH Atmospheric Simulation System. Part I: adiabatic formulation and control simulations}", + journal = {Annales Geophysicae}, + year = 1998, + volume = 16, + pages = {90-109}, +} + +@book{Piel:84, + title={{Mesoscale Atmospheric Modeling}}, + author={Pielke, RA}, + year={1984}, + publisher={Academic Press} +} + +@article{Skam:92, + title={{The Stability of Time-Split Numerical Methods for the Hydrostatic and the Nonhydrostatic Elastic Equations}}, + author={Skamarock, W.C. and Klemp, J.B.}, + journal={Monthly Weather Review}, + volume={120}, + number={9}, + pages={2109--2127}, + year={1992}, + publisher={American Meteorological Society} +} + +@article{Frit:03, + title={{Gravity wave dynamics and effects in the middle atmosphere}}, + author={Fritts, D.C. and Alexander, M.J.}, + journal={Rev. Geophys}, + volume={41}, + number={1}, + pages={1003}, + year={2003}, +} + +@article{Moen:07, + title={{Examining Two-Way Grid Nesting for Large Eddy Simulation of the PBL Using the WRF Model}}, + author={Moeng, CH and Dudhia, J. and Klemp, J. and Sullivan, P.}, + journal={Monthly Weather Review}, + volume={135}, + number={6}, + pages={2295--2311}, + year={2007}, + publisher={American Meteorological Society} +} + +@misc{Skam:08weis, + author = {Skamarock, W.~C. and Weisman, M.~L.}, + howpublished = {Submitted to Monthly Weather Review}, + title = {The Impact of Positive-Definite Moisture Transport on NWP Precipitation Forecasts}, + year = {2008} +} + +@book{Alla:05, + title={{Analyse numérique et optimisation}}, + author={Allaire, G.}, + year={2005}, + publisher={Editions de l'Ecole Polytechnique} +} + +@article{Gall:06, + title={{Comparison of Impacts of WRF Dynamic Core, Physics Package, and Initial Conditions on Warm Season Rainfall Forecasts}}, + author={Gallus Jr, W.A. and Bresch, J.F.}, + journal={Monthly Weather Review}, + volume={134}, + number={9}, + pages={2632--2641}, + year={2006}, + publisher={American Meteorological Society} +} + +@article{Davi:08, + title={{Hurricane Vortex Dynamics during Atlantic Extratropical Transition}}, + author={Davis, C.A. and Jones, S.C. and Riemer, M.}, + journal={Journal of the Atmospheric Sciences}, + volume={65}, + number={3}, + pages={714--736}, + year={2008}, + publisher={American Meteorological Society} +} + +@ARTICLE{Plou:08, + author = {{Plougonven}, R. and {Hertzog}, A. and {Teitelbaum}, H.}, + title = "{Observations and simulations of a large-amplitude mountain wave breaking over the Antarctic Peninsula}", + journal = {Journal of Geophysical Research (Atmospheres)}, + year = 2008, + volume = 113, + number = D12, + pages = {16113-+}, + doi = {10.1029/2007JD009739}, +} + +@article{Hine:08, + title={{Development and Testing of Polar Weather Research and Forecasting (WRF) Model. Part I: Greenland Ice Sheet Meteorology}}, + author={Hines, K.M. and Bromwich, D.H.}, + journal={Monthly Weather Review}, + volume={136}, + number={6}, + pages={1971--1989}, + year={2008}, + publisher={American Meteorological Society} +} + +@misc{Bao:08, + author = {Bao, J.~W. and Michelson, S.~A. and Persson, P.~O.~G. and Djalalova, I.~V. and Wilczak J.~M.}, + howpublished = {Journal of Applied Meteorology and Climatology}, + title = {Observed and WRF-Simulated Low-Level Winds in a High-Ozone Episode during the Central California Ozone Study, In Press}, + year = {2008} +} + +@article{Chen:05, + title={{Evaluation of Surface Sensible Weather Forecasts by the WRF and the Eta Models over the Western United States}}, + author={Cheng, W.Y.Y. and Steenburgh, W.J.}, + journal={Weather and Forecasting}, + volume={20}, + number={5}, + pages={812--821}, + year={2005}, + publisher={American Meteorological Society} +} + +@article{Scav:98, + title={{A study of the low frequency inertio-gravity waves observed during PYREX}}, + author={Scavuzzo, CM and Lamfri, MA and Teitelbaum, H. and Lott, F.}, + journal={J. Geophys. Res}, + volume={103}, + pages={1747--1758}, + year={1998} +} + +@ARTICLE{Alex:00, + author = {{Alexander}, M.~J. and {Vincent}, R.~A.}, + title = "{Gravity waves in the tropical lower stratosphere: A model study of seasonal and interannual variability}", + journal = jgr, + year = 2000, + volume = 105, + pages = {17983-17994}, + doi = {10.1029/2000JD900197}, +} + +@article{Osul:95, + title={{Generation of Inertia--Gravity Waves in a Simulated Life Cycle of Baroclinic Instability}}, + author={O'sullivan, D. and Dunkerton, T.J.}, + journal={Journal of the Atmospheric Sciences}, + volume={52}, + number={21}, + pages={3695--3716}, + year={1995}, + publisher={American Meteorological Society} +} + +@article{Pfis:93, + title={{Mesoscale Disturbances in the Tropical Stratosphere Excited by Convection: Observations and Effects on the Stratospheric Momentum Budget}}, + author={Pfister, L. and Scott, S. and Loewenstein, M. and Bowen, S. and Legg, M.}, + journal={Journal of the Atmospheric Sciences}, + volume={50}, + number={8}, + pages={1058--1075}, + year={1993}, + publisher={American Meteorological Society} +} + +@book{Mint:61, + title={{Numerical studies of planetary circulation}}, + author={Mintz, Y.}, + year={1961}, + publisher={DTIC Research Report AD0263158} +} + +@article{Savi:99, + title={{A model study of the atmospheric boundary layer in the Mars Pathfinder lander conditions}}, + author={S{\"a}vijarvi, H.}, + journal={Quarterly Journal of the Royal Meteorological Society}, + volume={125}, + number={554}, + pages={483--493}, + year={1999}, + publisher={Royal Meteorological Society} +} + +@article{Pres:97, + title={{The effect of bulk density and particle size sorting on the thermal conductivity of particulate materials under Martian atmospheric pressures}}, + author={Presley, M.A. and Christensen, P.R.}, + journal={J. Geophys. Res}, + volume={102}, + number={E4}, + pages={9221--9229}, + year={1997} +} + +@ARTICLE{Good:67, + author = {{Goody}, R. and {Belton}, M.~J.~S.}, + title = "{Radiative relaxation times for Mars. A discussion of martian atmospheric dynamics}", + journal = pss, + year = 1967, + volume = 15, + pages = {247-+}, +} + +@ARTICLE{Cant:07, + author = {{Cantor}, B.~A.}, + title = "{MOC observations of the 2001 Mars planet-encircling dust storm}", + journal = {Icarus}, + year = 2007, + volume = 186, + pages = {60-96}, + doi = {10.1016/j.icarus.2006.08.019}, +} + +@ARTICLE{Mont:05luca, + author = {{Montabone}, L. and {Lewis}, S.~R. and {Read}, P.~L.}, + title = "{Interannual variability of Martian dust storms in assimilation of several years of Mars global surveyor observations}", + journal = {Advances in Space Research}, + year = 2005, + volume = 36, + pages = {2146-2155}, + doi = {10.1016/j.asr.2005.07.047}, +} + +@ARTICLE{Gold:08, + author = {{Goldenson}, N. and {Desch}, S. and {Christensen}, P.}, + title = "{Non-equilibrium between dust and gas temperatures in the Mars atmosphere}", + journal = grl, + year = 2008, + volume = 35, + pages = {8813-+}, + doi = {10.1029/2007GL032907}, +} + +@ARTICLE{Banf:00, + author = {{Banfield}, D. and {Conrath}, B. and {Pearl}, J.~C. and {Smith}, M.~D. and + {Christensen}, P.}, + title = "{Thermal tides and stationary waves on Mars as revealed by Mars Global Surveyor thermal emission spectrometer}", + journal = jgr, + year = 2000, + volume = 105, + pages = {9521-9538}, + doi = {10.1029/1999JE001161}, +} + +@ARTICLE{Cant:02, + author = {{Cantor}, B. and {Malin}, M. and {Edgett}, K.~S.}, + title = "{Multiyear Mars Orbiter Camera (MOC) observations of repeated Martian weather phenomena during the northern summer season}", + journal = {Journal of Geophysical Research (Planets)}, + year = 2002, + volume = 107, + pages = {5014-+}, + doi = {10.1029/2001JE001588}, +} + +@BOOK{Chap:70, + author = {{Chapman}, S. and {Lindzen}, R.}, + title = "{Atmospheric tides. Thermal and gravitational}", +publisher = {Dordrecht: Reidel, 1970}, + year = 1970, +} + +@ARTICLE{Zure:81, + author = {{Zurek}, R.~W. and {Leovy}, C.~B.}, + title = "{Thermal tides in the dusty martian atmosphere - A verification of theory}", + journal = {Science}, + year = 1981, + volume = 213, + pages = {437-439}, +} + +@ARTICLE{Hert:07, + author = {{Hertzog}, A. and {Cocquerez}, P. and {Basdevant}, C. and {Boccara}, G. and + {Bordereau}, J. and {Brioit}, B. and {Cardonne}, A. and {Guilbon}, R. and + {Ravissot}, A. and {Schmitt}, {\'E}. and {Valdivia}, J.-N. and + {Venel}, S. and {Vial}, F.}, + title = "{Strat{\'e}ole/Vorcore Long-duration, Superpressure Balloons to Study the Antarctic Lower Stratosphere during the 2005 Winter}", + journal = {Journal of Atmospheric and Oceanic Technology}, + year = 2007, + volume = 24, + pages = {2048-+}, + doi = {10.1175/2007JTECHA948.1}, +} + +@article{Teit:91, + title={{On tidal variability induced by nonlinear interaction with planetary waves}}, + author={Teitelbaum, H. and Vial, F.}, + journal={Journal of Geophysical Research}, + volume={96}, + number={A8}, + pages={14169--14178}, + year={1991} +} + +@ARTICLE{Span:06, + author = {{Spanovich}, N. and {Smith}, M.~D. and {Smith}, P.~H. and {Wolff}, M.~J. and + {Christensen}, P.~R. and {Squyres}, S.~W.}, + title = "{Surface and near-surface atmospheric temperatures for the Mars Exploration Rover landing sites}", + journal = {Icarus}, + year = 2006, + volume = 180, + pages = {314-320}, + doi = {10.1016/j.icarus.2005.09.014}, +} + +@article{Aebi:98, + title={{Low-Level Potential Vorticity and Cyclogenesis to the Lee of the Alps}}, + author={Aebischer, U. and Sch{\"a}r, C.}, + journal={Journal of the Atmospheric Sciences}, + volume={55}, + number={2}, + pages={186--207}, + year={1998}, + publisher={American Meteorological Society} +} + +@article{Epif:02, + title={{Lee-Vortex Formation in Free-Slip Stratified Flow over Ridges. Part II: Mechanisms of Vorticity and PV Production in Nonlinear Viscous Wakes}}, + author={Epifanio, CC and Durran, DR}, + journal={Journal of the Atmospheric Sciences}, + volume={59}, + number={7}, + pages={1166--1181}, + year={2002}, + publisher={American Meteorological Society} +} + +@article{Cast:93, + title={{Experiments on wave breaking in statified flow over obstacles}}, + author={Castro, I.~P. and Snyder, W.~H.}, + journal={Journal of Fluid Mechanics}, + volume={255}, + pages={195--211}, + year={1993}, + publisher={Cambridge University Press} +} + +@misc{Epif:03, + title={{Lee vortices. Encyclopedia of Atmospheric Sciences, JR Holton, J. Pyle, and J. A. Curry, Eds}}, + author={Epifanio, C.C.}, + year={2003}, + publisher={Academic Press} +} + +@article{Scha:97, + title={{Vortex Formation and Vortex Shedding in Continuously Stratified Flows past Isolated Topography}}, + author={Sch{\"a}r, C. and Durran, D.R.}, + journal={Journal of the Atmospheric Sciences}, + volume={54}, + number={4}, + pages={534--554}, + year={1997}, + publisher={American Meteorological Society} +} + +@article{Scha:93, + title={{Shallow-Water Flow past Isolated Topography. Part I: Vorticity Production and Wake Formation}}, + author={Sch{\"a}r, C. and Smith, R.B.}, + journal={Journal of the Atmospheric Sciences}, + volume={50}, + number={10}, + pages={1373--1400}, + year={1993}, + publisher={American Meteorological Society} +} + +@article{Smol:89, + title={{Low Froude Number Flow Past Three-Dimensional Obstacles. Part I: Baroclinically Generated Lee Vortices}}, + author={Smolarkiewicz, P.K. and Rotunno, R.}, + journal={Journal of the Atmospheric Sciences}, + volume={46}, + number={8}, + pages={1154--1164}, + year={1989}, + publisher={American Meteorological Society} +} + +@article{Clar:77, + title={{On the Evolution and Stability of Finite-Amplitude Mountain Waves}}, + author={Clark, T.~L. and Peltier, W.~R.}, + journal={Journal of the Atmospheric Sciences}, + volume={34}, + number={11}, + pages={1715--1730}, + year={1977}, + publisher={American Meteorological Society} +} + +@article{Durr:86, + title={{Another Look at Downslope Windstorms. Part I: The Development of Analogs to Supercritical Flow in an Infinitely Deep, Continuously Stratified Fluid}}, + author={Durran, D.R.}, + journal={Journal of the Atmospheric Sciences}, + volume={43}, + number={21}, + pages={2527--2543}, + year={1986}, + publisher={American Meteorological Society} +} + +@article{Grub:95, + title={{The Effect of Bottom Friction on Shallow-Water Flow past an Isolated Obstacle}}, + author={Grubi{\v{s}}i{\'c}, V. and Smith, R.B. and Sch{\"a}r, C.}, + journal={Journal of the Atmospheric Sciences}, + volume={52}, + number={11}, + pages={1985--2005}, + year={1995}, + publisher={American Meteorological Society} +} + +@article{Kaln:96, + title={{The NCEP/NCAR 40-Year Reanalysis Project}}, + author={Kalnay, E. and Kanamitsu, M. and Kistler, R. and Collins, W. and Deaven, D. and Gandin, L. and Iredell, M. and Saha, S. and White, G. and Woollen, J. and others}, + journal={Bulletin of the American Meteorological Society}, + volume={77}, + number={3}, + pages={437--471}, + year={1996}, + publisher={American Meteorological Society} +} + + +@ARTICLE{Ched:03, + author = {{Ch{\'e}din}, A. and {Serrar}, S. and {Scott}, N.~A. and {Crevoisier}, C. and + {Armante}, R.}, + title = "{First global measurement of midtropospheric CO2 from NOAA polar satellites: Tropical zone}", + journal = {Journal of Geophysical Research (Atmospheres)}, + year = 2003, + volume = 108, + pages = {4581-+}, + doi = {10.1029/2003JD003439}, +} + +@ARTICLE{Kapl:64, + author = {{Kaplan}, L.~D. and {M{\"u}nch}, G. and {Spinrad}, H.}, + title = "{An Analysis of the Spectrum of Mars.}", + journal = apj, + year = 1964, + volume = 139, + pages = {1-+}, +} + +@ARTICLE{Klio:65, + author = {{Kliore}, A. and {Cain}, D.~L. and {Levy}, G.~S. and {Eshleman}, V.~R. and + {Fjeldbo}, G. and {Drake}, F.~D.}, + title = "{Occultation Experiment: Results of the First Direct Measurement of Mars's Atmosphere and Ionosphere}", + journal = {Science}, + year = 1965, + volume = 149, + pages = {1243-1248}, +} + +@article{Belt:66, + title={{The Abundance and Temperature of CO$_2$ in the Martian Atmosphere}}, + author={Belton, M.J.S. and Hunten, D.M.}, + journal={The Astrophysical Journal}, + volume={145}, + pages={454}, + year={1966} +} + +@ARTICLE{Farr:08, + author = {{Farrell}, W.~M. and {Clifford}, S.~M. and {Milkovich}, S.~M. and + {Plaut}, J.~J. and {Leuschen}, C.~J. and {Picardi}, G. and {Gurnett}, D.~A. and + {Watters}, T.~R. and {Safaeinili}, A. and {Ivanov}, A.~B. and + {Phillips}, R.~J. and {Stofan}, E.~R. and {Heggy}, E. and {Cummer}, S.~A. and + {Espley}, J.~R.}, + title = "{MARSIS subsurface radar investigations of the South Polar reentrant Chasma Australe}", + journal = {Journal of Geophysical Research (Planets)}, + year = 2008, + volume = 113, + number = {E12}, + pages = {4002-+}, + doi = {10.1029/2007JE002974}, +} + +@ARTICLE{Poul:07, + author = {{Poulet}, F. and {Gomez}, C. and {Bibring}, J.-P. and {Langevin}, Y. and + {Gondet}, B. and {Pinet}, P. and {Belluci}, G. and {Mustard}, J. + }, + title = "{Martian surface mineralogy from Observatoire pour la Min{\'e}ralogie, l'Eau, les Glaces et l'Activit{\'e} on board the Mars Express spacecraft (OMEGA/MEx): Global mineral maps}", + journal = {Journal of Geophysical Research (Planets)}, + year = 2007, + volume = 112, + number = {E11}, + pages = {8-+}, + doi = {10.1029/2006JE002840}, +} + + + +@ARTICLE{Loiz:07, + author = {{Loizeau}, D. and {Mangold}, N. and {Poulet}, F. and {Bibring}, J.-P. and + {Gendrin}, A. and {Ansan}, V. and {Gomez}, C. and {Gondet}, B. and + {Langevin}, Y. and {Masson}, P. and {Neukum}, G.}, + title = "{Phyllosilicates in the Mawrth Vallis region of Mars}", + journal = {Journal of Geophysical Research (Planets)}, + year = 2007, + volume = 112, + number = {E11}, + pages = {8-+}, + doi = {10.1029/2006JE002877}, +} + + +@ARTICLE{Lang:07, + author = {{Langevin}, Y. and {Bibring}, J.-P. and {Montmessin}, F. and + {Forget}, F. and {Vincendon}, M. and {Dout{\'e}}, S. and {Poulet}, F. and + {Gondet}, B.}, + title = "{Observations of the south seasonal cap of Mars during recession in 2004-2006 by the OMEGA visible/near-infrared imaging spectrometer on board Mars Express}", + journal = {Journal of Geophysical Research (Planets)}, + year = 2007, + volume = 112, + number = {E11}, + pages = {8-+}, + doi = {10.1029/2006JE002841}, +} + +@ARTICLE{Mang:07, + author = {{Mangold}, N. and {Poulet}, F. and {Mustard}, J.~F. and {Bibring}, J.-P. and + {Gondet}, B. and {Langevin}, Y. and {Ansan}, V. and {Masson}, P. and + {Fassett}, C. and {Head}, J.~W. and {Hoffmann}, H. and {Neukum}, G. + }, + title = "{Mineralogy of the Nili Fossae region with OMEGA/Mars Express data: 2. Aqueous alteration of the crust}", + journal = {Journal of Geophysical Research (Planets)}, + year = 2007, + volume = 112, + number = {E11}, + pages = {8-+}, + doi = {10.1029/2006JE002835}, +} + +@ARTICLE{Joug:07, + author = {{Jouglet}, D. and {Poulet}, F. and {Milliken}, R.~E. and {Mustard}, J.~F. and + {Bibring}, J.-P. and {Langevin}, Y. and {Gondet}, B. and {Gomez}, C. + }, + title = "{Hydration state of the Martian surface as seen by Mars Express OMEGA: 1. Analysis of the 3 {$\mu$}m hydration feature}", + journal = {Journal of Geophysical Research (Planets)}, + year = 2007, + volume = 112, + number = {E11}, + pages = {8-+}, + doi = {10.1029/2006JE002846}, +} + +@ARTICLE{Gend:05, + author = {{Gendrin}, A. and {Mangold}, N. and {Bibring}, J.-P. and {Langevin}, Y. and + {Gondet}, B. and {Poulet}, F. and {Bonello}, G. and {Quantin}, C. and + {Mustard}, J. and {Arvidson}, R. and {LeMou{\'e}lic}, S.}, + title = "{Sulfates in Martian Layered Terrains: The OMEGA/Mars Express View}", + journal = {Science}, + year = 2005, + volume = 307, + pages = {1587-1591}, + doi = {10.1126/science.1109087}, +} + +@ARTICLE{Encr:05, + author = {{Encrenaz}, T. and {Melchiorri}, R. and {Fouchet}, T. and {Drossart}, P. and + {Lellouch}, E. and {Gondet}, B. and {Bibring}, J.-P. and {Langevin}, Y. and + {Titov}, D. and {Ignatiev}, N. and {Forget}, F.}, + title = "{A mapping of martian water sublimation during early northern summer using OMEGA/Mars Express}", + journal = aa, + year = 2005, + volume = 441, + pages = {L9-L12}, + doi = {10.1051/0004-6361:200500171}, +} + +@book{Tara:05, + title={{Inverse Problem Theory and Methods for Model Parameter Estimation}}, + author={Tarantola, A.}, + year={2005}, + publisher={Society for Industrial Mathematics} +} + +@ARTICLE{Melc:07, + author = {{Melchiorri}, R. and {Encrenaz}, T. and {Fouchet}, T. and {Drossart}, P. and + {Lellouch}, E. and {Gondet}, B. and {Bibring}, J.-P. and {Langevin}, Y. and + {Schmitt}, B. and {Titov}, D. and {Ignatiev}, N.}, + title = "{Water vapor mapping on Mars using OMEGA/Mars Express}", + journal = pss, + year = 2007, + volume = 55, + pages = {333-342}, + doi = {10.1016/j.pss.2006.05.040}, +} + +@ARTICLE{Tsch:08, + author = {{Tschimmel}, M. and {Ignatiev}, N.~I. and {Titov}, D.~V. and + {Lellouch}, E. and {Fouchet}, T. and {Giuranna}, M. and {Formisano}, V. + }, + title = "{Investigation of water vapor on Mars with PFS/SW of Mars Express}", + journal = {Icarus}, + year = 2008, + volume = 195, + pages = {557-575}, + doi = {10.1016/j.icarus.2008.01.018}, +} + +@ARTICLE{Fedo:06water, + author = {{Fedorova}, A. and {Korablev}, O. and {Bertaux}, J.-L. and {Rodin}, A. and + {Kiselev}, A. and {Perrier}, S.}, + title = "{Mars water vapor abundance from SPICAM IR spectrometer: Seasonal and geographic distributions}", + journal = {Journal of Geophysical Research (Planets)}, + year = 2006, + volume = 111, + number = {E10}, + pages = {9-+}, + doi = {10.1029/2006JE002695}, +} + +@article{Neld:65, + title={{A Simplex Method for Function Minimization}}, + author={Nelder, JA and Mead, R.}, + journal={The Computer Journal}, + volume={7}, + number={4}, + pages={308}, + year={1965}, + publisher={Br Computer Soc} +} + +@article{Mahr:82, + title={{Momentum Balance of Gravity Flows}}, + author={Mahrt, L.}, + journal={Journal of the Atmospheric Sciences}, + volume={39}, + number={12}, + pages={2701--2711}, + year={1982}, + publisher={American Meteorological Society} +} + + +@ARTICLE{Savi:08, + author = {{Savij{\"a}rvi}, H. and {Kauhanen}, J.}, + title = "{Surface and boundary-layer modelling for the Mars Exploration Rover sites}", + journal = {Quarterly Journal of the Royal Meteorological Society}, + year = 2008, + volume = 134, + pages = {635-641}, + doi = {10.1002/qj.232}, +} + +@article{Blac:57, + title={{Boundary layer wind maxima and their significance for the growth of nocturnal inversions}}, + author={Blackadar, A.K.}, + journal={Bull. Amer. Meteor. Soc}, + volume={38}, + number={5}, + pages={283--290}, + year={1957} +} + +@article{Thor:77, + title={{The nocturnal jet}}, + author={Thorpe, A.J. and Guymer, T.H.}, + journal={Quarterly Journal of the Royal Meteorological Society}, + volume={103}, + number={438}, + pages={633--653}, + year={1977}, + publisher={Royal Meteorological Society} +} + + +@article{Smit:92, + title={{Surface Forcing of the Infrared Cooling Profile over the Tibetan Plateau. Part I: Influence of Relative Longwave Radiative Heating at High Altitude}}, + author={Smith, E.A. and Shi, L.}, + journal={Journal of the Atmospheric Sciences}, + volume={49}, + number={10}, + pages={805--822}, + year={1992}, + publisher={American Meteorological Society} +} + +@ARTICLE{Balm:06, + author = {{Balme}, M. and {Greeley}, R.}, + title = "{Dust devils on Earth and Mars}", + journal = {Reviews of Geophysics}, + year = 2006, + volume = 44, + pages = {3003-+}, + doi = {10.1029/2005RG000188}, +} + +@ARTICLE{Mali:01, + author = {{Malin}, M.~C. and {Edgett}, K.~S.}, + title = "{Mars Global Surveyor Mars Orbiter Camera: Interplanetary cruise through primary mission}", + journal = jgr, + year = 2001, + volume = 106, + pages = {23429-23570}, + doi = {10.1029/2000JE001455}, +} + +@ARTICLE{Stan:06, + author = {{Stanzel}, C. and {P{\"a}tzold}, M. and {Greeley}, R. and {Hauber}, E. and + {Neukum}, G.}, + title = "{Dust devils on Mars observed by the High Resolution Stereo Camera}", + journal = grl, + year = 2006, + volume = 33, + pages = {11202-+}, + doi = {10.1029/2006GL025816}, +} + +@article{Sinc:73, + title={{The Lower Structure of Dust Devils}}, + author={Sinclair, P.C.}, + journal={Journal of the Atmospheric Sciences}, + volume={30}, + number={8}, + pages={1599--1619}, + year={1973}, + publisher={American Meteorological Society} +} + +@ARTICLE{Fish:05, + author = {{Fisher}, J.~A. and {Richardson}, M.~I. and {Newman}, C.~E. and + {Szwast}, M.~A. and {Graf}, C. and {Basu}, S. and {Ewald}, S.~P. and + {Toigo}, A.~D. and {Wilson}, R.~J.}, + title = "{A survey of Martian dust devil activity using Mars Global Surveyor Mars Orbiter Camera images}", + journal = {Journal of Geophysical Research (Planets)}, + year = 2005, + volume = 110, + number = {E9}, + pages = {3004-+}, + doi = {10.1029/2003JE002165}, +} + +@ARTICLE{Geis:05, + author = {{Geissler}, P.~E.}, + title = "{Three decades of Martian surface changes}", + journal = {Journal of Geophysical Research (Planets)}, + year = 2005, + volume = 110, + number = {E9}, + pages = {2001-+}, + doi = {10.1029/2004JE002345}, +} + +@ARTICLE{Ring:03, + author = {{Ringrose}, T.~J. and {Towner}, M.~C. and {Zarnecki}, J.~C.}, + title = "{Convective vortices on Mars: a reanalysis of Viking Lander 2 meteorological data, sols 1-60}", + journal = {Icarus}, + year = 2003, + volume = 163, + pages = {78-87}, + doi = {10.1016/S0019-1035(03)00073-3}, +} + +@ARTICLE{Murp:02, + author = {{Murphy}, J.~R. and {Nelli}, S.}, + title = "{Mars Pathfinder convective vortices: Frequency of occurrence}", + journal = grl, + year = 2002, + volume = 29, + number = 23, + pages = {230000-1}, +} + +@ARTICLE{Farr:04, + author = {{Farrell}, W.~M. and {Smith}, P.~H. and {Delory}, G.~T. and + {Hillard}, G.~B. and {Marshall}, J.~R. and {Catling}, D. and + {Hecht}, M. and {Tratt}, D.~M. and {Renno}, N. and {Desch}, M.~D. and + {Cummer}, S.~A. and {Houser}, J.~G. and {Johnson}, B.}, + title = "{Electric and magnetic signatures of dust devils from the 2000-2001 MATADOR desert tests}", + journal = {Journal of Geophysical Research (Planets)}, + year = 2004, + volume = 109, + number = {E18}, + pages = {3004-+}, + doi = {10.1029/2003JE002088}, +} + +@ARTICLE{Renn:03, + author = {{Renno}, N.~O. and {Wong}, A.-S. and {Atreya}, S.~K. and {de Pater}, I. and + {Roos-Serote}, M.}, + title = "{Electrical discharges and broadband radio emission by Martian dust devils and dust storms}", + journal = grl, + year = 2003, + volume = 30, + number = 22, + pages = {220000-1}, +} + +@ARTICLE{Gree:06, + author = {{Greeley}, R. and {Whelley}, P.~L. and {Arvidson}, R.~E. and + {Cabrol}, N.~A. and {Foley}, D.~J. and {Franklin}, B.~J. and + {Geissler}, P.~G. and {Golombek}, M.~P. and {Kuzmin}, R.~O. and + {Landis}, G.~A. and {Lemmon}, M.~T. and {Neakrase}, L.~D.~V. and + {Squyres}, S.~W. and {Thompson}, S.~D.}, + title = "{Active dust devils in Gusev crater, Mars: Observations from the Mars Exploration Rover Spirit}", + journal = {Journal of Geophysical Research (Planets)}, + year = 2006, + volume = 111, + number = {E10}, + pages = {12-+}, + doi = {10.1029/2006JE002743}, +} + +@ARTICLE{Cant:01, + author = {{Cantor}, B.~A. and {James}, P.~B. and {Caplinger}, M. and {Wolff}, M.~J. + }, + title = "{Martian dust storms: 1999 Mars Orbiter Camera observations}", + journal = jgr, + year = 2001, + volume = 106, + pages = {23653-23688}, + doi = {10.1029/2000JE001310}, +} + +@ARTICLE{Kana:00, + author = {{Kanak}, K.~M. and {Lilly}, D.~K. and {Snow}, J.~T.}, + title = "{The formation of vertical Vortices in the convective boundary layer}", + journal = {Quarterly Journal of the Royal Meteorological Society}, + year = 2000, + volume = 126, + pages = {2789-2810}, + doi = {10.1256/smsqj.56909}, +} + +@ARTICLE{Renn:00, + author = {{Renno}, N.~O. and {Nash}, A.~A. and {Lunine}, J. and {Murphy}, J.}, + title = "{Martian and terrestrial dust devils: Test of a scaling theory using Pathfinder data}", + journal = jgr, + year = 2000, + volume = 105, + pages = {1859-1866}, + doi = {10.1029/1999JE001037}, +} + +@ARTICLE{Thor:03, + author = {{Thorpe}, A.~J. and {Volkert}, H. and {Ziemianski}, M.~J.}, + title = "{The Bjerknes' Circulation Theorem: A Historical Perspective.}", + journal = {Bulletin of the American Meteorological Society, vol.~84, Issue 4, pp.471-480}, + year = 2003, + volume = 84, + pages = {471-480}, +} + +@article{Flea:50, + title={{A theory of air drainage}}, + author={Fleagle, R.G.}, + journal={Journal of the Atmospheric Sciences}, + volume={7}, + number={3}, + pages={227--232}, + year={1950}, + publisher={American Meteorological Society} +} + +@article{Mani:79, + title={{A Model of Katabatic Winds}}, + author={Manins, PC and Sawford, BL}, + journal={Journal of the Atmospheric Sciences}, + volume={36}, + number={4}, + pages={619--630}, + year={1979}, + publisher={American Meteorological Society} +} + +@ARTICLE{Brom:01, + author = {{Bromwich}, D.~H. and {Cassano}, J.~J. and {Klein}, T. and {Heinemann}, G. and + {Hines}, K.~M. and {Steffen}, K. and {Box}, J.~E.}, + title = "{Mesoscale Modeling of Katabatic Winds over Greenland with the Polar MM5}", + journal = {Monthly Weather Review}, + year = 2001, + volume = 129, + pages = {2290--2309}, + doi = {10.1175/1520-0493(2001)129}, +} + +@article{Ball:56, + title={{The Theory of Strong Katabatic Winds}}, + author={Ball, FK}, + journal={Australian Journal of Physics}, + volume={9}, + pages={373}, + year={1956} +} + +@article{Pran:42, + title={{Fuehrer durch die Stromunglehre. Braunschweig}}, + author={Prandtl, L.}, + journal={Viewing und Sohn}, + volume={382}, + year={1942} +} + +@article{Defa:49, + title={{Zur Theorie der Hangwinde, nebst Bemerkungen zur Theorie der Berg-und Talwinde}}, + author={Defant, F.}, + journal={Archiv f{\"u}r Meteorologie, Geophysik und Bioklimatologie Serie A,}, + volume={1}, + number={3-4}, + pages={421--450}, + year={1949} +} + +@article{Ye:87, + title={{Effects of Atmospheric Thermal Stability and Slope Steepness on the Development of Daytime Thermally Induced Upslope Flow}}, + author={Ye, ZJ and Segal, M. and Pielke, RA}, + journal={Journal of the Atmospheric Sciences}, + volume={44}, + number={22}, + pages={3341--3354}, + year={1987}, + publisher={American Meteorological Society} +} + +@ARTICLE{Parm:04, + author = {{Parmhed}, O. and {Oerlemans}, J. and {Grisogono}, B.}, + title = "{Describing surface fluxes in katabatic flow on Breidamerkurj{\"o}kull, Iceland}", + journal = {Quarterly Journal of the Royal Meteorological Society}, + year = 2004, + volume = 130, + pages = {1137-1151}, +} + +@ARTICLE{Pari:84, + author = {{Parish}, T.~R.}, + title = "{A Numerical Study of Strong Katabatic Winds over Antarctica}", + journal = {Monthly Weather Review}, + year = 1984, + volume = 112, + pages = {545-+}, + doi = {10.1175/1520-0493(1984)112}, +} + +@ARTICLE{Stip:07, + author = {{Stiperski}, I. and {Kav{\v c}i{\v c}}, I. and {Grisogono}, B. and + {Durran}, D.~R.}, + title = "{Including Coriolis effects in the Prandtl model for katabatic flow}", + journal = {Quarterly Journal of the Royal Meteorological Society}, + year = 2007, + volume = 133, + pages = {101-106}, + doi = {10.1002/qj.19}, +} + +@ARTICLE{Siil:99, + author = {{Siili}, T. and {Haberle}, R.~M. and {Murphy}, J.~R. and {Savijarvi}, H. + }, + title = "{Modelling of the combined late-winter ice cap edge and slope winds in Mars Hellas and Argyre regions}", + journal = pss, + year = 1999, + volume = 47, + pages = {951-970}, +} + +@ARTICLE{Frit:06, + author = {{Fritts}, D.~C. and {Wang}, L. and {Tolson}, R.~H.}, + title = "{Mean and gravity wave structures and variability in the Mars upper atmosphere inferred from Mars Global Surveyor and Mars Odyssey aerobraking densities}", + journal = {Journal of Geophysical Research (Space Physics)}, + year = 2006, + volume = 111, + number = {A10}, + pages = {12304-+}, + doi = {10.1029/2006JA011897}, +} + +@article{Quen:47, + title={{Theory of perturbations in stratified currents with applications to airflow over mountain barriers}}, + author={Queney, P.}, + journal={Misc. Rep}, + volume={23}, + year={1947} +} + +@article{Pirr:76, + title={{Martian atmospheric Lee waves}}, + author={Pirraglia, J.A.}, + journal={Icarus}, + volume={27}, + number={4}, + pages={517--530}, + year={1976}, + publisher={Elsevier} +} + +@article{Bene:98, + title={{Dynamic Characteristics of Regional Flows around the Pyr{\'e}n{\'e}es in View of the PYREX Experiment. Part I: Analysis of the Pressure and Wind Fields and Experimental Assessment of the Applicability of the Linear Theory}}, + author={B{\'e}nech, B. and Koffi, E. and Druilhet, A. and Durand, P. and Bessemoulin, P. and Campins, J. and Jansa, A. and Terliuc, B.}, + journal={Journal of Applied Meteorology}, + volume={37}, + number={1}, + pages={32--52}, + year={1998}, + publisher={NOAA Central Library, Department of Commerce} +} + +@article{Smol:88, + title={{On the Dynamics of Hawaiian Cloud Bands: Island Forcing}}, + author={Smolarkiewicz, P.K. and Rasmussen, R.M. and Clark, T.L.}, + journal={Journal of the Atmospheric Sciences}, + volume={45}, + number={13}, + pages={1872--1905}, + year={1988}, + publisher={American Meteorological Society} +} + +@article{Lott:98, + title={{Linear mountain drag and averaged pseudo-momentum flux profiles in the presence of trapped lee waves}}, + author={Lott, F.}, + journal={Tellus A}, + volume={50}, + number={1}, + pages={12--25}, + year={1998}, + publisher={Blackwell Synergy} +} + +@ARTICLE{Poul:00, + author = {{Poulos}, G.~S. and {Bossert}, J.~E. and {McKee}, T.~B. and + {Pielke}, R.~A.}, + title = "{The Interaction of Katabatic Flow and Mountain Waves. Part I: Observations and Idealized Simulations.}", + journal = {Journal of Atmospheric Sciences}, + year = 2000, + volume = 57, + pages = {1919-1936}, +} + +@article{Busi:71, + title={{Flux-Profile Relationships in the Atmospheric Surface Layer}}, + author={Businger, JA and Wyngaard, JC and Izumi, Y. and Bradley, EF}, + journal={Journal of the Atmospheric Sciences}, + volume={28}, + number={2}, + pages={181--189}, + year={1971}, + publisher={American Meteorological Society} +} + +@ARTICLE{Glen:03, + author = {{Glenar}, D.~A. and {Samuelson}, R.~E. and {Pearl}, J.~C. and + {Bjoraker}, G.~L. and {Blaney}, D.}, + title = "{Spectral imaging of martian water ice clouds and their diurnal behavior during the 1999 aphelion season}", + journal = {Icarus}, + year = 2003, + volume = 161, + pages = {297-318}, + doi = {10.1016/S0019-1035(02)00046-5}, +} + +@article{Maso:89, + title={{Large-Eddy Simulation of the Convective Atmospheric Boundary Layer}}, + author={Mason, PJ}, + journal={Journal of the Atmospheric Sciences}, + volume={46}, + number={11}, + pages={1492--1516}, + year={1989}, + publisher={American Meteorological Society} +} + +@article{Will:79, + title={{Laboratory observations of turbulent penetrative-convection planforms}}, + author={Willis, GE and Deardorff, JW}, + journal={Journal of Geophysical Research}, + volume={84}, + number={C1}, + pages={295--302}, + year={1979} +} + +@ARTICLE{Newm:02, + author = {{Newman}, C.~E. and {Lewis}, S.~R. and {Read}, P.~L. and {Forget}, F. + }, + title = "{Modeling the Martian dust cycle 2. Multiannual radiatively active dust transport simulations}", + journal = {Journal of Geophysical Research (Planets)}, + year = 2002, + volume = 107, + pages = {5124-+}, + doi = {10.1029/2002JE001920}, +} + +@ARTICLE{Gree:03, + author = {{Greeley}, R. and {Kuzmin}, R.~O. and {Rafkin}, S.~C.~R. and + {Michaels}, T.~I. and {Haberle}, R.}, + title = "{Wind-related features in Gusev crater, Mars}", + journal = {Journal of Geophysical Research (Planets)}, + year = 2003, + volume = 108, + number = {E12}, + pages = {8077}, + doi = {10.1029/2002JE002006}, +} + +@article{Smit:93grubi, + title={{Aerial Observations of Hawaii's Wake}}, + author={Smith, R.B. and Grubi{\v{s}}i{\'c}, V.}, + journal={Journal of the Atmospheric Sciences}, + volume={50}, + number={22}, + pages={3728--3750}, + year={1993}, + publisher={American Meteorological Society} +} + + +@article{Rotu:99, + title={{Vorticity and Potential Vorticity in Mountain Wakes}}, + author={Rotunno, R. and Grubi{\v{s}}i{\'c}, V. and Smolarkiewicz, PK}, + journal={Journal of the Atmospheric Sciences}, + volume={56}, + number={16}, + pages={2796--2810}, + year={1999}, + publisher={American Meteorological Society} +} + +@article{Spig:08grl, + title={{Fast and accurate estimation of solar irradiance on Martian slopes}}, + author={Spiga, A. and Forget, F.}, + journal=grl, + volume={35}, + pages={L15201}, + year={2008}, +} + +@article{Smit:08, + title={Spacecraft Observations of the Martian Atmosphere}, + author={Smith, M.~D.}, + journal={Annu. Rev. Earth Planet. Sci}, + year={2008}, + volume={36}, + pages={191--219} +} + +@ARTICLE{Poll:76, + author = {{Pollack}, J.~B. and {Leovy}, C.~B. and {Mintz}, Y.~H. and {van Camp}, W.}, + title = "{Winds on Mars during the Viking season - Predictions based on a general circulation model with topography}", + journal = grl, + year = 1976, + volume = 3, + pages = {479-482}, +} + +@ARTICLE{Balm:03, + author = {{Balme}, M.~R. and {Whelley}, P.~L. and {Greeley}, R.}, + title = "{Mars: Dust devil track survey in Argyre Planitia and Hellas Basin}", + journal = {Journal of Geophysical Research (Planets)}, + year = 2003, + volume = 108, + pages = {5086-+}, + doi = {10.1029/2003JE002096}, +} + +@misc{Pari:03, + title={{Katabatic winds. Encyclopedia of Atmospheric Sciences, JR Holton, J. Pyle, and J. A. Curry, Eds}}, + author={Parish, T.~R.}, + year={2003}, + publisher={Academic Press} +} + +@misc{Durr:03enc, + title={{Lee waves and mountain waves. Encyclopedia of Atmospheric Sciences, JR Holton, J. Pyle, and J. A. Curry, Eds}}, + author={Durran, D.}, + year={2003}, + publisher={Academic Press} +} + +@ARTICLE{Forg:06blague, + author = {{Forget}, F. and {Schmitt}, B.}, + title = "{Katabatic winds in Greenland: the no-wind case.}", + journal = {Journal of Advanced Kite-Surfing}, + year = 2006, + volume = 66, + pages = {99-+}, +} + + +@ARTICLE{Vinc:08, + author = {{Vincendon}, M. and {Langevin}, Y. and {Poulet}, F. and {Bibring}, J.-P. and + {Gondet}, B. and {Jouglet}, D. and {OMEGA Team}}, + title = "{Dust aerosols above the south polar cap of Mars as seen by OMEGA}", + journal = {Icarus}, + year = 2008, + volume = 196, + pages = {488-505}, + doi = {10.1016/j.icarus.2007.11.034}, +} + +@INPROCEEDINGS{Joug:08, + author = {{Jouglet}, D. and {Poulet}, F. and {Langevin}, Y. and {Bibring}, J.-P. and {Gondet}, B. and {Vincendon}, M.}, + title = "{Hydration of the Martian Southern Hemiphere Using the OMEGA Dataset}", +booktitle = {Lunar and Planetary Institute Conference Abstracts}, + year = 2008, + series = {Lunar and Planetary Institute Conference Abstracts}, + volume = 39, + pages = {1752-+}, +} + +@article{Rein:08, + title={{Estimating Topographic Blocking Using a Froude Number When the Static Stability Is Nonuniform}}, + author={Reinecke, P.A. and Durran, D.R.}, + journal={Journal of the Atmospheric Sciences}, + volume={65}, + number={3}, + pages={1035--1048}, + year={2008}, + publisher={American Meteorological Society} +} + +@article{Harr:08, + title={{Lee vortices in evolving large-scale flows}}, + author={Harris, L.M.}, + journal={13th Conference on Mountain Meteorology}, + year={2008} +} + + +@ARTICLE{Bell:06jim, + author = {{Bell}, J.~F. and {Savransky}, D. and {Wolff}, M.~J.}, + title = "{Chromaticity of the Martian sky as observed by the Mars Exploration Rover Pancam instruments}", + journal = {Journal of Geophysical Research (Planets)}, + year = 2006, + volume = 111, + number = {E10}, + pages = {12-+}, + doi = {10.1029/2006JE002687}, +} + +@article{Smit:31, + title={{The CIE colorimetric standards and their use}}, + author={Smith, T. and Guild, J.}, + journal={Transactions of the Optical Society}, + volume={33}, + pages={73--134}, + year={1931}, + publisher={Institute of Physics Publishing} +} + +@misc{Stok:96, + author={Stokes, M. and Anderson, M. and Chandrasekar, S. and Motta, R.}, + title={A standard default color space for the Internet sRGB}, + year={1996}, + howpublished = {Microsoft and Hewlett-Packard Joint Report, Version 1.10. (Available at {\tt http://www.w3.org/Graphics/Color/sRGB})} +} + +@ARTICLE{Cola:08, + author = {{Colaprete}, A. and {Barnes}, J.~R. and {Haberle}, R.~M. and + {Montmessin}, F.}, + title = "{CO$_{2}$ clouds, CAPE and convection on Mars: Observations and general circulation modeling}", + journal = pss, + year = 2008, + volume = 56, + pages = {150-180}, + doi = {10.1016/j.pss.2007.08.010}, +} + +@article{Dyud:08, + title={{Dynamics of Saturn's South Polar Vortex}}, + author={Dyudina, U.A. and Ingersoll, A.P. and Ewald, S.P. and Vasavada, A.R. and West, R.A. and Del Genio, A.D. and Barbara, J.M. and Porco, C.C. and Achterberg, R.K. and Flasar, F.M. and others}, + journal={Science}, + volume={319}, + number={5871}, + pages={1801}, + year={2008}, + publisher={AAAS} +} + +@article{Reut:07, + title={{Jupiter Cloud Composition, Stratification, Convection, and Wave Motion: A View from New Horizons}}, + author={Reuter, DC and Simon-Miller, AA and Lunsford, A. and Baines, KH and Cheng, AF and Jennings, DE and Olkin, CB and Spencer, JR and Stern, SA and Weaver, HA and others}, + journal={Science}, + volume={318}, + number={5848}, + pages={223}, + year={2007}, + publisher={AAAS} +} + +@article{Bart:07, + title={{TRAMS: A new dynamic cloud model for Titan's methane clouds}}, + author={Barth, E.L. and Rafkin, S.C.R.}, + journal=grl, + volume={34}, + pages={L03203}, + year={2007} +} + +@article{Sanc:08, + title={{Variable winds on Venus mapped in three dimensions}}, + author={S{\'a}nchez-Lavega, A. and Hueso, R. and Piccioni, G. and Drossart, P. and Peralta, J. and P{\'e}rez-Hoyos, S. and Wilson, CF and Taylor, FW and Baines, KH and Luz, D. and others}, + journal={Geophysical Research Letters}, + volume={35}, + number={13}, + year={2008} +} + +@article{Hayw:07, + title={{Mars Global Digital Dune Database and initial science results}}, + author={Hayward, R.K. and Mullins, K.F. and Fenton, L.K. and Hare, T.M. and Titus, T.N. and Bourke, M.C. and Colaprete, A. and Christensen, P.R.}, + journal={Journal of Geophysical Research}, + volume={112}, + number={E11}, + year={2007} +} + +@article{Bant:04, + title={{Nocturnal Low-Level Jet in a Mountain Basin Complex. Part I: Evolution and Effects on Local Flows}}, + author={Banta, R.M. and Darby, L.S. and Fast, J.D. and Pinto, J.O. and Whiteman, C.D. and Shaw, W.J. and Orr, B.W.}, + journal={Journal of Applied Meteorology}, + volume={43}, + number={10}, + pages={1348--1365}, + year={2004}, + publisher={NOAA Central Library, Department of Commerce} +} + +@misc{Egge:03, + title={{Valley winds. Encyclopedia of Atmospheric Sciences, JR Holton, J. Pyle, and J. A. Curry, Eds}}, + author={Egger, J.}, + year={2003}, + publisher={Academic Press} +} + +@INPROCEEDINGS{Spig:03, + author = {{Haberle}, R.~M. and {Montmessin}, F. and {Forget}, F. and {Spiga}, A. and + {Colaprete}, A.}, + title = "{Obliquity Driven Climate Change in Mars' Recent Past}", +booktitle = {Third International Conference on Mars Polar Science and Exploration}, + year = 2003, + editor = {{Clifford}, S. and {Doran}, P. and {Fisher}, D. and {Herd}, C. + }, + pages = {8060-+}, +} + +@ARTICLE{Lian:08, + author = {{Lian}, Y. and {Showman}, A.~P.}, + title = "{Deep jets on gas-giant planets}", + journal = {Icarus}, + year = 2008, + volume = 194, + pages = {597-615}, + doi = {10.1016/j.icarus.2007.10.014}, +} + +@ARTICLE{Heim:05, + author = {{Heimpel}, M. and {Aurnou}, J. and {Wicht}, J.}, + title = "{Simulation of equatorial and high-latitude jets on Jupiter in a deep convection model}", + journal = {Nature}, + year = 2005, + volume = 438, + pages = {193-196}, +} + +@ARTICLE{Fouc:08, + author = {{Fouchet}, T. and {Guerlet}, S. and {Strobel}, D.~F. and {Simon-Miller}, A.~A. and + {B{\'e}zard}, B. and {Flasar}, F.~M.}, + title = "{An equatorial oscillation in Saturn's middle atmosphere}", + journal = {Nature}, + year = 2008, + volume = 453, + pages = {200-202}, + doi = {10.1038/nature06912}, +} + +@ARTICLE{Spig:08gw, + author = {{Spiga}, A. and {Teitelbaum}, H. and {Zeitlin}, V.}, + title = "{Identification of the sources of inertia-gravity waves in the Andes Cordillera region}", + journal = {Annales Geophysicae}, + year = 2008, + volume = 26, + pages = {2551-2568}, +} + +@ARTICLE{Lewi:07, + author = {{Lewis}, S.~R. and {Read}, P.~L. and {Conrath}, B.~J. and {Pearl}, J.~C. and + {Smith}, M.~D.}, + title = "{Assimilation of thermal emission spectrometer atmospheric data during the Mars Global Surveyor aerobraking period}", + journal = {Icarus}, + year = 2007, + volume = 192, + pages = {327-347}, + doi = {10.1016/j.icarus.2007.08.009}, +} + +@ARTICLE{Flas:05, + author = {{Flasar}, F.~M. and {Achterberg}, R.~K. and {Conrath}, B.~J. and + {Pearl}, J.~C. and {Bjoraker}, G.~L. and {Jennings}, D.~E. and + {Romani}, P.~N. and {Simon-Miller}, A.~A. and {Kunde}, V.~G. and + {Nixon}, C.~A. and {B{\'e}zard}, B. and {Orton}, G.~S. and {Spilker}, L.~J. and + {Spencer}, J.~R. and {Irwin}, P.~G.~J. and {Teanby}, N.~A. and + {Owen}, T.~C. and {Brasunas}, J. and {Segura}, M.~E. and {Carlson}, R.~C. and + {Mamoutkine}, A. and {Gierasch}, P.~J. and {Schinder}, P.~J. and + {Showalter}, M.~R. and {Ferrari}, C. and {Barucci}, A. and {Courtin}, R. and + {Coustenis}, A. and {Fouchet}, T. and {Gautier}, D. and {Lellouch}, E. and + {Marten}, A. and {Prang{\'e}}, R. and {Strobel}, D.~F. and {Calcutt}, S.~B. and + {Read}, P.~L. and {Taylor}, F.~W. and {Bowles}, N. and {Samuelson}, R.~E. and + {Abbas}, M.~M. and {Raulin}, F. and {Ade}, P. and {Edgington}, S. and + {Pilorz}, S. and {Wallis}, B. and {Wishnow}, E.~H.}, + title = "{Temperatures, Winds, and Composition in the Saturnian System}", + journal = {Science}, + year = 2005, + volume = 307, + pages = {1247-1251}, + doi = {10.1126/science.1105806}, +} + +@ARTICLE{Porc:05, + author = {{Porco}, C.~C. and {Baker}, E. and {Barbara}, J. and {Beurle}, K. and + {Brahic}, A. and {Burns}, J.~A. and {Charnoz}, S. and {Cooper}, N. and + {Dawson}, D.~D. and {Del Genio}, A.~D. and {Denk}, T. and {Dones}, L. and + {Dyudina}, U. and {Evans}, M.~W. and {Giese}, B. and {Grazier}, K. and + {Helfenstein}, P. and {Ingersoll}, A.~P. and {Jacobson}, R.~A. and + {Johnson}, T.~V. and {McEwen}, A. and {Murray}, C.~D. and {Neukum}, G. and + {Owen}, W.~M. and {Perry}, J. and {Roatsch}, T. and {Spitale}, J. and + {Squyres}, S. and {Thomas}, P. and {Tiscareno}, M. and {Turtle}, E. and + {Vasavada}, A.~R. and {Veverka}, J. and {Wagner}, R. and {West}, R. + }, + title = "{Cassini Imaging Science: Initial Results on Saturn's Atmosphere}", + journal = {Science}, + year = 2005, + volume = 307, + pages = {1243-1247}, + doi = {10.1126/science.1107691}, +} + +@ARTICLE{Porc:03, + author = {{Porco}, C.~C. and {West}, R.~A. and {McEwen}, A. and {Del Genio}, A.~D. and + {Ingersoll}, A.~P. and {Thomas}, P. and {Squyres}, S. and {Dones}, L. and + {Murray}, C.~D. and {Johnson}, T.~V. and {Burns}, J.~A. and + {Brahic}, A. and {Neukum}, G. and {Veverka}, J. and {Barbara}, J.~M. and + {Denk}, T. and {Evans}, M. and {Ferrier}, J.~J. and {Geissler}, P. and + {Helfenstein}, P. and {Roatsch}, T. and {Throop}, H. and {Tiscareno}, M. and + {Vasavada}, A.~R.}, + title = "{Cassini Imaging of Jupiter's Atmosphere, Satellites, and Rings}", + journal = {Science}, + year = 2003, + volume = 299, + pages = {1541-1547}, + doi = {10.1126/science.1079462}, +} + +@ARTICLE{Flas:04, + author = {{Flasar}, F.~M. and {Kunde}, V.~G. and {Achterberg}, R.~K. and + {Conrath}, B.~J. and {Simon-Miller}, A.~A. and {Nixon}, C.~A. and + {Gierasch}, P.~J. and {Romani}, P.~N. and {B{\'e}zard}, B. and + {Irwin}, P. and {Bjoraker}, G.~L. and {Brasunas}, J.~C. and + {Jennings}, D.~E. and {Pearl}, J.~C. and {Smith}, M.~D. and + {Orton}, G.~S. and {Spilker}, L.~J. and {Carlson}, R. and {Calcutt}, S.~B. and + {Read}, P.~L. and {Taylor}, F.~W. and {Parrish}, P. and {Barucci}, A. and + {Courtin}, R. and {Coustenis}, A. and {Gautier}, D. and {Lellouch}, E. and + {Marten}, A. and {Prang{\'e}}, R. and {Biraud}, Y. and {Fouchet}, T. and + {Ferrari}, C. and {Owen}, T.~C. and {Abbas}, M.~M. and {Samuelson}, R.~E. and + {Raulin}, F. and {Ade}, P. and {C{\'e}sarsky}, C.~J. and {Grossman}, K.~U. and + {Coradini}, A.}, + title = "{An intense stratospheric jet on Jupiter}", + journal = {Nature}, + year = 2004, + volume = 427, + pages = {132-135}, +} + +@ARTICLE{Li:08, + author = {{Li}, L. and {Gierasch}, P.~J. and {Achterberg}, R.~K. and + {Conrath}, B.~J. and {Flasar}, F.~M. and {Vasavada}, A.~R. and + {Ingersoll}, A.~P. and {Banfield}, D. and {Simon-Miller}, A.~A. and + {Fletcher}, L.~N.}, + title = "{Strong jet and a new thermal wave in Saturn's equatorial stratosphere}", + journal = grl, + year = 2008, + volume = 35, + pages = {23208-+}, + doi = {10.1029/2008GL035515}, +} + +@ARTICLE{Leov:91, + author = {{Leovy}, C.~B. and {Friedson}, A.~J. and {Orton}, G.~S.}, + title = "{The quasiquadrennial oscillation of Jupiter's equatorial stratosphere}", + journal = {Nature}, + year = 1991, + volume = 354, + pages = {380-382}, + doi = {10.1038/354380a0}, +} + +@ARTICLE{Howe:07, + author = {{Howett}, C.~J.~A. and {Irwin}, P.~G.~J. and {Teanby}, N.~A. and + {Simon-Miller}, A. and {Calcutt}, S.~B. and {Fletcher}, L.~N. and + {de Kok}, R.}, + title = "{Meridional variations in stratospheric acetylene and ethane in the southern hemisphere of the saturnian atmosphere as determined from Cassini/CIRS measurements}", + journal = {Icarus}, + year = 2007, + volume = 190, + pages = {556-572}, + doi = {10.1016/j.icarus.2007.03.009}, +} + +@ARTICLE{Sanc:08, + author = {{S{\'a}nchez-Lavega}, A. and {Orton}, G.~S. and {Hueso}, R. and + {Garc{\'{\i}}a-Melendo}, E. and {P{\'e}rez-Hoyos}, S. and {Simon-Miller}, A. and + {Rojas}, J.~F. and {G{\'o}mez}, J.~M. and {Yanamandra-Fisher}, P. and + {Fletcher}, L. and {Joels}, J. and {Kemerer}, J. and {Hora}, J. and + {Karkoschka}, E. and {de Pater}, I. and {Wong}, M.~H. and {Marcus}, P.~S. and + {Pinilla-Alonso}, N. and {Carvalho}, F. and {Go}, C. and {Parker}, D. and + {Salway}, M. and {Valimberti}, M. and {Wesley}, A. and {Pujic}, Z. + }, + title = "{Depth of a strong jovian jet from a planetary-scale disturbance driven by storms}", + journal = {Nature}, + year = 2008, + volume = 451, + pages = {437-440}, + doi = {10.1038/nature06533}, +} + +@ARTICLE{Dyud:07, + author = {{Dyudina}, U.~A. and {Ingersoll}, A.~P. and {Ewald}, S.~P. and + {Porco}, C.~C. and {Fischer}, G. and {Kurth}, W. and {Desch}, M. and + {Del Genio}, A. and {Barbara}, J. and {Ferrier}, J.}, + title = "{Lightning storms on Saturn observed by Cassini ISS and RPWS during 2004 2006}", + journal = {Icarus}, + year = 2007, + volume = 190, + pages = {545-555}, + doi = {10.1016/j.icarus.2007.03.035}, +} + +@ARTICLE{Show:08, + author = {{Showman}, A.~P. and {Cooper}, C.~S. and {Fortney}, J.~J. and + {Marley}, M.~S.}, + title = "{Atmospheric Circulation of Hot Jupiters: Three-dimensional Circulation Models of HD 209458b and HD 189733b with Simplified Forcing}", + journal = apj, +archivePrefix = "arXiv", + eprint = {0802.0327}, + year = 2008, + volume = 682, + pages = {559-576}, + doi = {10.1086/589325}, +} + +@ARTICLE{Pera:08, + author = {{Peralta}, J. and {Hueso}, R. and {S{\'a}nchez-Lavega}, A. and + {Piccioni}, G. and {Lanciano}, O. and {Drossart}, P.}, + title = "{Characterization of mesoscale gravity waves in the upper and lower clouds of Venus from VEX-VIRTIS images}", + journal = {Journal of Geophysical Research (Planets)}, + year = 2008, + volume = 113, + pages = {0-+}, + doi = {10.1029/2008JE003185}, +} + +@ARTICLE{Rafk:09, + author = {{Rafkin}, S.~C.~R.}, + title = "{A positive radiative-dynamic feedback mechanism for the maintenance and growth of Martian dust storms}", + journal = {Journal of Geophysical Research (Planets)}, + year = 2009, + volume = 114, + number = {E13}, + pages = {1009-+}, + doi = {10.1029/2008JE003217}, +} + + +@ARTICLE{Hins:08, + author = {{Hinson}, D.~P. and {P{\"a}tzold}, M. and {Tellmann}, S. and + {H{\"a}usler}, B. and {Tyler}, G.~L.}, + title = "{The depth of the convective boundary layer on Mars}", + journal = {Icarus}, + year = 2008, + volume = 198, + pages = {57-66}, + doi = {10.1016/j.icarus.2008.07.003}, +} + +@ARTICLE{Li:00qqo, + author = {{Li}, X. and {Read}, P.~L.}, + title = "{A mechanistic model of the quasi-quadrennial oscillation in Jupiter's stratosphere}", + journal = pss, + year = 2000, + volume = 48, + pages = {637-669}, +} + +@ARTICLE{Hues:01, + author = {{Hueso}, R. and {S{\'a}nchez-Lavega}, A.}, + title = "{A Three-Dimensional Model of Moist Convection for the Giant Planets: The Jupiter Case}", + journal = {Icarus}, + year = 2001, + volume = 151, + pages = {257-274}, + doi = {10.1006/icar.2000.6606}, +} + +@ARTICLE{Russ:06, + author = {{Russell}, C.~T. and {Strangeway}, R.~J. and {Zhang}, T.~L.}, + title = "{Lightning detection on the Venus Express mission}", + journal = pss, + year = 2006, + volume = 54, + pages = {1344-1351}, + doi = {10.1016/j.pss.2006.04.026}, +} + +@ARTICLE{Ring:07, + author = {{Ringrose}, T.~J. and {Patel}, M.~R. and {Towner}, M.~C. and + {Balme}, M. and {Metzger}, S.~M. and {Zarnecki}, J.~C.}, + title = "{The meteorological signatures of dust devils on Mars}", + journal = pss, + year = 2007, + volume = 55, + pages = {2151-2163}, + doi = {10.1016/j.pss.2007.07.002}, +} + +@ARTICLE{Stan:08, + author = {{Stanzel}, C. and {P{\"a}tzold}, M. and {Williams}, D.~A. and + {Whelley}, P.~L. and {Greeley}, R. and {Neukum}, G. and {The HRSC Co-Investigator Team} + }, + title = "{Dust devil speeds, directions of motion and general characteristics observed by the Mars Express High Resolution Stereo Camera}", + journal = {Icarus}, + year = 2008, + volume = 197, + pages = {39-51}, + doi = {10.1016/j.icarus.2008.04.017}, +} + +@INPROCEEDINGS{Wolk:08, + author = { +{Wolkenberg}, P. and +{Formisano}, V. and +{Rinaldi}, G. and +{D'Amore}, M. and +{Geminale}, A. and +{Montabone}, L. and +{Spiga}, A. and +{Michaels}, T. +}, + title = "{An atmospheric hot ring around Olympus Mons – comparison with mesoscale models}", +booktitle = {3rd Internat.Workshop on the Mars Atmosph.: Modeling and Observations, Williamsburg, USA}, + year = 2008, +} + +@ARTICLE{Will:03, + author = {{Williams}, G.~P.}, + title = "{Jovian Dynamics. Part III: Multiple, Migrating, and Equatorial Jets.}", + journal = {Journal of Atmospheric Sciences}, + year = 2003, + volume = 60, + pages = {1270-1296}, + doi = {10.1175/1520-0469(2003)60}, +} + +@ARTICLE{Yano:05, + author = {{Yano}, J.-I. and {Talagrand}, O. and {Drossart}, P.}, + title = "{Deep two-dimensional turbulence: An idealized model for atmospheric jets of the giant outer planets}", + journal = {Geophysical and Astrophysical Fluid Dynamics}, + year = 2005, + volume = 99, + pages = {137-150}, + doi = {10.1080/03091920412331336398}, +} + +@ARTICLE{Li:06, + author = {{Li}, L. and {Ingersoll}, A.~P. and {Huang}, X.}, + title = "{Interaction of moist convection with zonal jets on Jupiter and Saturn}", + journal = {Icarus}, + year = 2006, + volume = 180, + pages = {113-123}, + doi = {10.1016/j.icarus.2005.08.016}, +} + +@ARTICLE{Lian:10, + author = {{Lian}, Y. and {Showman}, A.~P.}, + title = "{Generation of equatorial jets by large-scale latent heating on the giant planets}", + journal = {Icarus}, +archivePrefix = "arXiv", + eprint = {0910.3065}, + year = 2010, + volume = 207, + pages = {373-393}, + doi = {10.1016/j.icarus.2009.10.006}, +} + + +@ARTICLE{Lebo:08gcm, + author = {{Lebonnois}, S. and {Forget}, F. and {Hourdin}, F.}, + title = "{Using Terrestrial GCMs to Understand Climate on Venus, Mars and Titan}", + journal = {AGU Fall Meeting Abstracts}, + year = 2008, + pages = {B2+}, +} + +@ARTICLE{Hour:04, + author = {{Hourdin}, F. and {Lebonnois}, S. and {Luz}, D. and {Rannou}, P. + }, + title = "{Titan's stratospheric composition driven by condensation and dynamics}", + journal = {Journal of Geophysical Research (Planets)}, + year = 2004, + volume = 109, + pages = {12005-+}, + doi = {10.1029/2004JE002282}, +} + +@ARTICLE{Hour:06, + author = {{Hourdin}, F. and {Musat}, I. and {Bony}, S. and {Braconnot}, P. and + {Codron}, F. and {Dufresne}, J.-L. and {Fairhead}, L. and {Filiberti}, M.-A. and + {Friedlingstein}, P. and {Grandpeix}, J.-Y. and {Krinner}, G. and + {Levan}, P. and {Li}, Z.-X. and {Lott}, F.}, + title = "{The LMDZ4 general circulation model: climate performance and sensitivity to parametrized physics with emphasis on tropical convection}", + journal = {Climate Dynamics}, + year = 2006, + volume = 27, + pages = {787-813}, + doi = {10.1007/s00382-006-0158-0}, +} + +@ARTICLE{Blum:73, + author = {{Blumsack}, S.~L. and {Gierasch}, P.~J. and {Wessel}, W.~R.}, + title = "{An analytical and numerical study of the Martian planetary boundary layer over slopes.}", + journal = {Journal of Atmospheric Sciences}, + year = 1973, + volume = 30, + pages = {66-82}, + doi = {10.1175/1520-0469(1973)030}, +} + +@ARTICLE{Mich:08, + author = {{Michaels}, T.~I. and {Rafkin}, S.~C.~R.}, + title = "{Meteorological predictions for candidate 2007 Phoenix Mars Lander sites using the Mars Regional Atmospheric Modeling System (MRAMS)}", + journal = {Journal of Geophysical Research (Planets)}, + year = 2008, + volume = 113, + number = {E12}, + pages = {0-+}, + doi = {10.1029/2007JE003013}, +} + +@ARTICLE{Tyle:08, + author = {{Tyler}, D. and {Barnes}, J.~R. and {Skyllingstad}, E.~D.}, + title = "{Mesoscale and large-eddy simulation model studies of the Martian atmosphere in support of Phoenix}", + journal = {Journal of Geophysical Research (Planets)}, + year = 2008, + volume = 113, + number = {E12}, + pages = {0-+}, + doi = {10.1029/2007JE003012}, +} + +@ARTICLE{Dear:80, + author = {{Deardorff}, J.~W.}, + title = "{Stratocumulus-capped mixed layers derived from a three-dimensional model}", + journal = {Boundary-Layer Meteorology}, + year = 1980, + volume = 18, + pages = {495-527}, + doi = {10.1007/BF00119502}, +} + +@ARTICLE{Wild:85, + author = {{Wilde}, N.~P. and {Stull}, R.~B. and {Eloranta}, E.~W.}, + title = "{The LCL Zone and Cumulus Onset.}", + journal = {Journal of Applied Meteorology}, + year = 1985, + volume = 24, + pages = {640-657}, + doi = {10.1175/1520-0450(1985)024}, +} + +@ARTICLE{Barn:08, + author = {{Barnes}, J.~R. and {Tyler}, D. and {Hinson}, D.~P.}, + title = "{The Depth of the Daytime Convective Boundary Layer on Mars: A Case of Extremes}", + journal = {LPI Contributions}, + year = 2008, + volume = 1447, + pages = {9076-+}, +} + +@ARTICLE{Whit:09, + author = {{Whiteway}, J.~A. and {Komguem}, L. and {Dickinson}, C. and + {Cook}, C. and {Illnicki}, M. and {Seabrook}, J. and {Popovici}, V. and + {Duck}, T.~J. and {Davy}, R. and {Taylor}, P.~A. and {Pathak}, J. and + {Fisher}, D. and {Carswell}, A.~I. and {Daly}, M. and {Hipkin}, V. and + {Zent}, A.~P. and {Hecht}, M.~H. and {Wood}, S.~E. and {Tamppari}, L.~K. and + {Renno}, N. and {Moores}, J.~E. and {Lemmon}, M.~T. and {Daerden}, F. and + {Smith}, P.~H.}, + title = "{Mars Water-Ice Clouds and Precipitation}", + journal = {Science}, + year = 2009, + volume = 325, + pages = {68-}, + doi = {10.1126/science.1172344}, +} + +@ARTICLE{Hors:86, + author = {{Horst}, T.~W. and {Doran}, J.~C.}, + title = "{Nocturnal drainage flow on simple slopes}", + journal = {Boundary-Layer Meteorology}, + year = 1986, + volume = 34, + pages = {263-286}, + doi = {10.1007/BF00122382}, +} + +@article{Papa:99, + title={{Evening and morning transition of katabatic flows}}, + author={Papadopoulos, KH and Helmis, CG}, + journal={Boundary-Layer Meteorology}, + volume={92}, + number={2}, + pages={195--227}, + year={1999}, +} + +@ARTICLE{Mahr:90, + author = {{Mahrt}, L. and {Larsen}, S.}, + title = "{Relation of slope winds to the ambient flow over gentle terrain}", + journal = {Boundary-Layer Meteorology}, + year = 1990, + volume = 53, + pages = {93-102}, + doi = {10.1007/BF00122465}, +} + +@ARTICLE{Drob:03, + author = {{Drobinski}, P. and {Haeberli}, C. and {Richard}, E. and {Lothon}, M. and + {Dabas}, A.~M. and {Flamant}, P.~H. and {Furger}, M. and {Steinacker}, R. + }, + title = "{Scale interaction processes during the MAP IOP 12 south foehn event in the Rhine Valley}", + journal = {Quarterly Journal of the Royal Meteorological Society}, + year = 2003, + volume = 129, + pages = {729-753}, + doi = {10.1256/qj.02.35}, +} + +@ARTICLE{Skyl:03, + author = {{Skyllingstad}, E.~D.}, + title = "{Large-Eddy Simulation of Katabatic Flows}", + journal = {Boundary-Layer Meteorology}, + year = 2003, + volume = 106, + pages = {217-243}, + doi = {10.1023/A:1021142828676}, +} + +@ARTICLE{Whit:99, + author = {{Whiteman}, C.~D. and {Zhong}, S. and {Bian}, X.}, + title = "{Wintertime Boundary Layer Structure in the Grand Canyon.}", + journal = {Journal of Applied Meteorology}, + year = 1999, + volume = 38, + pages = {1084-1102}, + doi = {10.1175/1520-0450(1999)038}, +} + +@ARTICLE{Dora:90, + author = {{Doran}, J.~C. and {Horst}, T.~W. and {Whiteman}, C.~D.}, + title = "{The development and structure of nocturnal slope winds in a simple valley}", + journal = {Boundary-Layer Meteorology}, + year = 1990, + volume = 52, + pages = {41-68}, + doi = {10.1007/BF00123177}, +} + +@ARTICLE{Pari:87, + author = {{Parish}, T.~R. and {Waight}, K.~T.}, + title = "{The Forcing of Antarctic Katabatic Winds}", + journal = {Monthly Weather Review}, + year = 1987, + volume = 115, + pages = {2214-+}, + doi = {10.1175/1520-0493(1987)115}, +} + +@ARTICLE{Nyle:04, + author = {{Nylen}, T.~H. and {Fountain}, A.~G. and {Doran}, P.~T.}, + title = "{Climatology of katabatic winds in the McMurdo dry valleys, southern Victoria Land, Antarctica}", + journal = {Journal of Geophysical Research (Atmospheres)}, + year = 2004, + volume = 109, + pages = {D03114}, + doi = {10.1029/2003JD003937}, +} + +@ARTICLE{Pari:07, + author = {{Parish}, T.~R. and {Bromwich}, D.~H.}, + title = "{Reexamination of the Near-Surface Airflow over the Antarctic Continent and Implications on Atmospheric Circulations at High Southern Latitudes}", + journal = {Monthly Weather Review}, + year = 2007, + volume = 135, + pages = {1961-+}, + doi = {10.1175/MWR3374.1}, +} + +@ARTICLE{Lars:02, + author = {{Larsen}, S.~E. and {J{\o}rgensen}, H.~E. and {Landberg}, L. and + {et al.}}, + title = "{Aspects Of The Atmospheric Surface Layers On Mars And Earth}", + journal = {Boundary-Layer Meteorology}, + year = 2002, + volume = 105, + pages = {451-470}, + doi = {10.1023/A:1020338016753}, +} + +@ARTICLE{Hess:81, + author = {{Hess}, G.~D. and {Hicks}, B.~B. and {Yamada}, T.}, + title = "{The impact of the Wangara experiment}", + journal = {Boundary-Layer Meteorology}, + year = 1981, + volume = 20, + pages = {135-174}, + doi = {10.1007/BF00119899}, +} + +@ARTICLE{Basu:08, + author = {{Basu}, S. and {Vinuesa}, J.-F. and {Swift}, A.}, + title = "{Dynamic LES Modeling of a Diurnal Cycle}", + journal = {Journal of Applied Meteorology and Climatology}, + year = 2008, + volume = 47, + pages = {1156-+}, + doi = {10.1175/2007JAMC1677.1}, +} + +@ARTICLE{Mart:09, + author = {{Mart{\'{\i}}nez}, G. and {Valero}, F. and {V{\'a}zquez}, L. + }, + title = "{Characterization of the Martian Convective Boundary Layer}", + journal = {Journal of Atmospheric Sciences}, + year = 2009, + volume = 66, + pages = {2044-2058}, +} + +@article{Spig:10bl, + author = {Spiga, A. and Forget, F. and Lewis, S.~R. and Hinson, D.~P.}, + journal = {Quarterly Journal of the Royal Meteorological Society}, + title = {Structure and Dynamics of the Convective Boundary Layer on Mars as Inferred from Large-Eddy Simulations and Remote-Sensing Measurements}, + year = {2010}, + volume = 136, + pages = {414-428}, +} + +@ARTICLE{Alti:09, + author = {{Altieri}, F. and {Zasova}, L. and {D'Aversa}, E. and + {Bellucci}, G. and {Carrozzo}, F.~G. and {Gondet}, B. and {Bibring}, {J.-P.} + }, + title = "{O$_{2}$ 1.27 {$\mu$}m emission maps as derived from OMEGA/MEx data}", + journal = {Icarus}, + year = 2009, + volume = 204, + pages = {499-511}, + doi = {10.1016/j.icarus.2009.07.022}, +} + +@ARTICLE{Melo:06, + author = {{Melo}, S.~M.~L. and {Chiu}, O. and {Garcia-Munoz}, A. and {Strong}, K. and + {McConnell}, J.~C. and {Slanger}, T.~G. and {Taylor}, M.~J. and + {Lowe}, R.~P. and {McDade}, I.~C. and {Huestis}, D.~L.}, + title = "{Using airglow measurements to observe gravity waves in the Martian atmosphere}", + journal = {Advances in Space Research}, + year = 2006, + volume = 38, + pages = {730-738}, + doi = {10.1016/j.asr.2005.08.041}, +} + +@ARTICLE{Yute:95, + author = {{Yuter}, S.~E. and {Houze}, R.~A.}, + title = "{Three-Dimensional Kinematic and Microphysical Evolution of Florida Cumulonimbus. Part III: Vertical Mass Transport, Maw Divergence, and Synthesis}", + journal = {Monthly Weather Review}, + year = 1995, + volume = 123, + pages = {1964-+}, + doi = {10.1175/1520-0493(1995)123<1964:TDKAME>2.0.CO;2}, +} + +@INPROCEEDINGS{Spig:10ti, + author = {{Spiga}, A. and {Lewis}, S.~R. and {Forget}, F. and {Millour}, E. and + {Montabone}, L. and {Madeleine}, {J.-B.}}, + title = "{The Impact of Katabatic Winds on Martian Thermal Inertia Retrievals}", +booktitle = {Lunar and Planetary Institute Science Conference Abstracts}, + year = 2010, + series = {Lunar and Planetary Inst. Technical Report}, + volume = 41, + pages = {1533}, +} + + +@misc{Alti:10, + author = {{Altieri}, F. and {Spiga}, A. and {Zasova}, L. and {Bellucci}, G. and {Bibring}, J.~P.}, + howpublished = {Geophys. Res. Lett. (submitted)}, + title = {Gravity waves in Mars polar regions: O$_2$ airglow maps and mesoscale modelling}, + year = {2010} +} + +@misc{Spig:09tasi, + author = {{Spiga}, A. and {Bourrier}, V.}, + howpublished = {Report Thales-Alenia Space (november 2009, contract ExoMars Environmental atmospheric support analysis)}, + title = {Mesoscale Meteorology of the ExoMars Meridiani safe reference landing site in non-dusty spring conditions}, + year = {2009} +} + +@ARTICLE{Wolf:09, + author = {{Wolff}, M.~J. and {Smith}, M.~D. and {Clancy}, R.~T. and {Arvidson}, R. and + {Kahre}, M. and {Seelos}, F. and {Murchie}, S. and {Savij{\"a}rvi}, H. + }, + title = "{Wavelength dependence of dust aerosol single scattering albedo as observed by the Compact Reconnaissance Imaging Spectrometer}", + journal = {Journal of Geophysical Research (Planets)}, + year = 2009, + volume = 114, + number = {E13}, + pages = {0-+}, + doi = {10.1029/2009JE003350}, +} + +@ARTICLE{Schn:09, + author = {{Schneider}, T. and {Liu}, J.}, + title = "{Formation of Jets and Equatorial Superrotation on Jupiter}", + journal = {Journal of Atmospheric Sciences}, +archivePrefix = "arXiv", + eprint = {0809.4302}, + year = 2009, + volume = 66, + pages = {579-+}, + doi = {10.1175/2008JAS2798.1}, +} + +@ARTICLE{Lebe:98, + author = {{Lebeau}, R.~P. and {Dowling}, T.~E.}, + title = "{EPIC simulations of time-dependent, three-dimensional vortices with application to Neptune's Great Dark Spot}", + journal = {Icarus}, + year = 1998, + volume = 132, + pages = {239-265}, + doi = {10.1006/icar.1998.5918}, +} + +@ARTICLE{Dowl:08, + author = {{Dowling}, T.~E.}, + title = "{Music of the stratospheres}", + journal = {Nature}, + year = 2008, + volume = 453, + pages = {163-164}, +} + +@ARTICLE{Mish:96, + author = {{Mishchenko}, M.~I. and {Travis}, L.~D. and {Mackowski}, D.~W. + }, + title = "{T-matrix computations of light scattering by nonspherical particles: a review.}", + journal = {Journal of Quantitative Spectroscopy and Radiative Transfer}, + year = 1996, + volume = 55, + pages = {535-575}, + doi = {10.1016/0022-4073(96)00002-7}, +} + +@ARTICLE{Davy:09, + author = {{Davy}, R. and {Taylor}, P.~A. and {Weng}, W. and {Li}, {P.-Y.} + }, + title = "{A model of dust in the Martian lower atmosphere}", + journal = {Journal of Geophysical Research (Atmospheres)}, + year = 2009, + volume = 114, + number = {D13}, + pages = {4108-+}, + doi = {10.1029/2008JD010481}, +} + +@ARTICLE{Kauh:08, + author = {{Kauhanen}, J. and {Siili}, T. and {J{\"a}rvenoja}, S. and {Savij{\"a}rvi}, H. + }, + title = "{The Mars limited area model and simulations of atmospheric circulations for the Phoenix landing area and season of operation}", + journal = {Journal of Geophysical Research (Planets)}, + year = 2008, + volume = 113, + pages = {E00A14}, + doi = {10.1029/2007JE003011}, +} + +@ARTICLE{Souz:00, + author = {{Souza}, E.~P. and {Renn{\'o}}, N.~O. and {Silva Dias}, M.~A.~F. + }, + title = "{Convective Circulations Induced by Surface Heterogeneities.}", + journal = {Journal of Atmospheric Sciences}, + year = 2000, + volume = 57, + pages = {2915-2922}, + doi = {10.1175/1520-0469(2000)057<2915:CCIBSH>2.0.CO;2}, +} + +@ARTICLE{Tayl:08, + author = {{Taylor}, P.~A. and {Gunnlaugsson}, H.~P. and {Holstein-Rathlou}, C. and + {Lange}, C.~F. and {Moores}, J. and {Cook}, C. and {Dickinson}, C. and + {Popovici}, V. and {Seabrook}, J. and {Whiteway}, J.}, + title = "{Phoenix: Summer Weather in Green Valley (126W, 68N on Mars)}", + journal = {LPI Contributions}, + year = 2008, + volume = 1447, + pages = {9024-+}, +} + +@ARTICLE{Savi:91comp, + author = {{Savijarvi}, H.}, + title = "{A model study of the PBL structure on Mars and the earth}", + journal = {Contributions to Atmospheric Physics/Beitraege zur Physik Atmosphaere}, + year = 1991, + volume = 64, + pages = {219-229}, +} + +@ARTICLE{Davy:10, + author = {{Davy}, R. and {Davis}, J.~A. and {Taylor}, P.~A. and {Lange}, C.~F. and + {Weng}, W. and {Whiteway}, J. and {Gunnlaugson}, H.~P.}, + title = "{Initial analysis of air temperature and related data from the Phoenix MET station and their use in estimating turbulent heat fluxes}", + journal = {Journal of Geophysical Research (Planets)}, + year = 2010, + volume = 115, + number = {E14}, + pages = {0-+}, + doi = {10.1029/2009JE003444}, +} + +@ARTICLE{Encr:08ica, + author = {{Encrenaz}, T. and {Greathouse}, T.~K. and {Richter}, M.~J. +and + {B{\'e}zard}, B. and {Fouchet}, T. and {Lef{\`e}vre}, F. and + {Montmessin}, F. and {Forget}, F. and {Lebonnois}, S. and {Atreya}, +S.~K. + }, + title = "{Simultaneous mapping of H$_2$O and H$_2$O$_2$ on Mars from +infrared high-resolution imaging spectroscopy}", + journal = {Icarus}, + year = 2008, + volume = 195, + pages = {547-556}, + doi = {10.1016/j.icarus.2008.01.022}, +} + +@ARTICLE{Lang:08, + author = {{Langlais}, B. and {Leblanc}, F. and {Fouchet}, T. and +{Barabash}, S. and + {Breuer}, D. and {Chassefi{\`e}re}, E. and {Coates}, A. and + {Dehant}, V. and {Forget}, F. and {Lammer}, H. and {Lewis}, S. and + {Lopez-Valverde}, M. and {Mandea}, M. and {Menvielle}, M. and + {Pais}, A. and {Paetzold}, M. and {Read}, P. and {Sotin}, C. and + {Tarits}, P. and {Vennerstrom}, S. and {Branduardi-Raymont}, G. and + {Cremonese}, G. and {Merayo}, J.~G.~M. and {Ott}, T. and {R{\`e}me}, +H. and + {Trotignon}, J.~G. and {Walhund}, J.~E.}, + title = "{Mars environment and magnetic orbiter model payload}", + journal = {Experimental Astronomy}, + year = 2008, + pages = {16-+}, + doi = {10.1007/s10686-008-9101-1}, +} + +@ARTICLE{Encr:08aa, + author = {{Encrenaz}, T. and {Fouchet}, T. and {Melchiorri}, R. and +{Drossart}, P. and + {Gondet}, B. and {Langevin}, Y. and {Bibring}, J.-P. and {Forget}, +F. and + {Maltagliati}, L. and {Titov}, D. and {Formisano}, V.}, + title = "{A study of the Martian water vapor over Hellas using OMEGA +and PFS aboard Mars Express}", + journal = aa, + year = 2008, + volume = 484, + pages = {547-553}, + doi = {10.1051/0004-6361:20079288}, +} + + +@ARTICLE{Habe:08, + author = {{Haberle}, R.~M. and {Forget}, F. and {Colaprete}, A. and +{Schaeffer}, J. and + {Boynton}, W.~V. and {Kelly}, N.~J. and {Chamberlain}, M.~A. + }, + title = "{The effect of ground ice on the Martian seasonal CO$_2$ +cycle}", + journal = pss, + year = 2008, + volume = 56, + pages = {251-255}, + doi = {10.1016/j.pss.2007.08.006}, +} + +@ARTICLE{Cava:08, + author = {{Cavali{\'e}}, T. and {Billebaud}, F. and {Encrenaz}, T. and + + {Dobrijevic}, M. and {Brillet}, J. and {Forget}, F. and {Lellouch}, +E. + }, + title = "{Vertical temperature profile and mesospheric winds +retrieval on Mars from CO ;millimeter observations. Comparison with +general circulation model predictions}", + journal = aap, + year = 2008, + volume = 489, + pages = {795-809}, + doi = {10.1051/0004-6361:200809815}, +} + +@ARTICLE{Gonz:09a, + author = {{Gonz{\'a}lez-Galindo}, F. and {Forget}, F. and {L{\'o}pez-Valverde}, M.~A. and {Angelats i Coll}, M. and {Millour}, E.}, + title = "{A Ground-to-Exosphere Martian General Circulation Model. 1. +Seasonal, Diurnal and Solar Cycle Variation of Thermospheric +Temperatures}", + journal = {Journal of Geophysical Research (Planets), in press}, + year = 2009, +} + + +@ARTICLE{Gonz:09b, + author = {{Gonz{\'a}lez-Galindo}, F. and {Forget}, F. and {L{\'o}pez-Valverde}, M.~A. and {Angelats i Coll}, M.}, + title = "{A Ground-to-Exosphere Martian General Circulation Model. +2. The Atmosphere During Perihelion Conditions: Thermospheric Polar +Warming +}", + journal = {Journal of Geophysical Research (Planets), in press}, + year = 2009, +} + +@ARTICLE{Hour:02, + author = {{Hourdin}, F. and {Couvreux}, F. and {Menut}, L.}, + title = "{Parameterization of the Dry Convective Boundary Layer Based +on a Mass Flux Representation of Thermals.}", + journal = {Journal of Atmospheric Sciences}, + year = 2002, + volume = 59, + pages = {1105-1123}, + doi = {10.1175/1520-0469(2002)059}, +} + + +@ARTICLE{Galp:07, + author = {{Galperin}, B. and {Sukoriansky}, S. and {Anderson}, P.~S.}, + title = "{On the critical Richardson number in stably stratified +turbulence}", + journal = {Atmospheric Science Letters}, + year = 2007, + volume = 8, + pages = {65-69}, + doi = {10.1002/asl.153}, +} + +@ARTICLE{Suko:06, + author = {{Sukoriansky}, S. and {Galperin}, B. and {Perov}, V.}, + title = "{A quasi-normal scale elimination model of turbulence and +its application to stably stratified flows}", + journal = {Nonlinear Processes in Geophysics}, + year = 2006, + volume = 13, + pages = {9-22}, +} + +@ARTICLE{Cant:06, + author = {{Cantor}, B.~A. and {Kanak}, K.~M. and {Edgett}, K.~S.}, + title = "{Mars Orbiter Camera observations of Martian dust devils and their tracks (September +1997 to January 2006) and evaluation of theoretical vortex models}", + journal = {Journal of Geophysical Research (Planets)}, + year = 2006, + volume = 111, + number = {E10}, + pages = {12002-+}, + doi = {10.1029/2006JE002700}, +} + +@ARTICLE{Forg:09, + author = {{Forget}, F. and {Montmessin}, F. and {Bertaux}, J.-L. and {Gonz{\'a}lez-Galindo}, F. +and + {Lebonnois}, S. and {Qu{\'e}merais}, E. and {Reberac}, A. and + {Dimarellis}, E. and {L{\'o}pez-Valverde}, M.~A.}, + title = "{Density and temperatures of the upper Martian atmosphere measured by stellar +occultations with Mars Express SPICAM}", + journal = {Journal of Geophysical Research (Planets)}, + year = 2009, + volume = 114, + number = {E13}, + pages = {1004-+}, + doi = {10.1029/2008JE003086}, +} + +@ARTICLE{Lefe:08, + author = {{Lef{\`e}vre}, F. and {Bertaux}, J.-L. and {Clancy}, R.~T. and + {Encrenaz}, T. and {Fast}, K. and {Forget}, F. and {Lebonnois}, S. and + {Montmessin}, F. and {Perrier}, S.}, + title = "{Heterogeneous chemistry in the atmosphere of Mars}", + journal = {Nature}, + year = 2008, + volume = 454, + pages = {971-975}, + doi = {10.1038/nature07116}, +} + +@ARTICLE{Habe:08, + author = {{Haberle}, R.~M. and {Pilorget}, C. and {Wolff}, M. and +{Lef{\`e}vre}, F. and + {Forget}, F.}, + title = "{Seasonal and Spatial Variability of Ozone as Inferred from +MARCI UV Data}", + journal = {LPI Contributions}, + year = 2008, + volume = 1447, + pages = {9109-+}, +} + +@INPROCEEDINGS{Mali:00spot, + author = {{Malin}, M.~C. and {Edgett}, K.~S.}, + title = "{Frosting and Defrosting of Martian Polar Dunes}", +booktitle = {Lunar and Planetary Institute Science Conference Abstracts}, + year = 2000, + series = {Lunar and Planetary Inst. Technical Report}, + volume = 31, + pages = {1056-+}, +} + +@INPROCEEDINGS{Supu:01, + author = {{Supulver}, K.~D. and {Edgett}, K.~S. and {Malin}, M.~C.}, + title = "{Seasonal Changes in Frost Cover in the Martian South Polar +Region: Mars Global Surveyor MOC and TES Monitoring of the Richardson +Crater Dune Field}", +booktitle = {Lunar and Planetary Institute Science Conference Abstracts}, + year = 2001, + series = {Lunar and Planetary Inst. Technical Report}, + volume = 32, + pages = {1966-+}, +} + +@ARTICLE{Kief:06, + author = {{Kieffer}, H.~H. and {Christensen}, P.~R. and {Titus}, T.~N. + }, + title = "{CO2 jets formed by sublimation beneath translucent slab +ice in Mars' seasonal south polar ice cap}", + journal = {Nature}, + year = 2006, + volume = 442, + pages = {793-796}, + doi = {10.1038/nature04945}, +} + +@ARTICLE{Kief:07, + author = {{Kieffer}, H.~H.}, + title = "{Cold jets in the Martian polar caps}", + journal = {Journal of Geophysical Research (Planets)}, + year = 2007, + volume = 112, + pages = {8005-+}, + doi = {10.1029/2006JE002816}, +} + +@INBOOK{Schu:92, + author = {{Schubert}, G. and {Solomon}, S.~C. and {Turcotte}, D.~L. and + {Drake}, M.~J. and {Sleep}, N.~H.}, + title = "{Origin and thermal evolution of Mars}", +publisher = {Mars}, + year = 1992, + pages = {147-183}, +} + +@ARTICLE{Kief:01, + author = {{Kieffer}, H.~H. and {Titus}, T.~N.}, + title = "{TES Mapping of Mars' North Seasonal Cap}", + journal = {Icarus}, + year = 2001, + volume = 154, + pages = {162-180}, + doi = {10.1006/icar.2001.6670}, + + } + +@INPROCEEDINGS{Dout:08, + author = {{Dout{\'e}}, S. and {Schmidt}, F. and {Schmitt}, B. and +{Langevin}, Y. and + {Vincendon}, M. and {Bibring}, J.-P. and {Omega Team}}, + title = "{Physical Characterization of the South Seasonal Cap of +Mars During Recession from OMEGA Observations}", +booktitle = {Lunar and Planetary Institute Science Conference +Abstracts}, + year = 2008, + series = {Lunar and Planetary Inst. Technical Report}, + volume = 39, + pages = {1736-+}, +} + +@ARTICLE{Schm:09, + author = {{The Omega Team} and {Schmidt}, F. and {Dout{\'e}}, S. and +{Schmitt}, B. and + {Vincendon}, M. and {Bibring}, J.-P. and {Langevin}, Y. and + {The OMEGA Team}}, + title = "{Albedo control of seasonal South Polar cap recession on +Mars}", + journal = {Icarus}, + year = 2009, + volume = 200, + pages = {374-394}, + doi = {10.1016/j.icarus.2008.12.014}, +} + +@INPROCEEDINGS{Lang:09, + author = {{Langevin}, Y. and {Hansen}, C. and {Thomas}, N. and +{Vincendon}, M. and + {Titus}, T.~N. and {Piqueux}, S. and {Bibring}, J.-P. and {Gondet}, +B. + }, + title = "{Investigations of Cryptic Regions of the South Seasonal +Cap, 12/2008-02/2009}", +booktitle = {Lunar and Planetary Institute Science Conference +Abstracts}, + year = 2009, + series = {Lunar and Planetary Inst. Technical Report}, + volume = 40, + pages = {2017-+}, +} + +@ARTICLE{Titu:08, + author = {{Titus}, T.~N. and {Michaels}, T.~I. and {Colaprete}, A. and + {Kieffer}, H.~H. and {Langevin}, Y. and {Murchie}, S.~L. and + {Vincendon}, M. and {Crism Science Team}}, + title = "{Exotic Processes within the Cryptic Region of Mars: A New +Method for Near Real-Time Estimates of Wind Direction}", + journal = {LPI Contributions}, + year = 2008, + volume = 1447, + pages = {9043-+}, +} + +@ARTICLE{Hans:05, + author = {{Hansen}, G.~B.}, + title = "{Ultraviolet to near-infrared absorption spectrum of carbon +dioxide ice from 0.174 to 1.8 {$\mu$}m}", + journal = {Journal of Geophysical Research (Planets)}, + year = 2005, + volume = 110, + number = E9, + pages = {11003-+}, + doi = {10.1029/2005JE002531}, +} + +@INPROCEEDINGS{Ahar:04, + author = {{Aharonson}, O.}, + title = "{Sublimation at the Base of a Seasonal CO2 Slab on Mars}", +booktitle = {Lunar and Planetary Institute Science Conference +Abstracts}, + year = 2004, + series = {Lunar and Planetary Institute Science Conference +Abstracts}, + volume = 35, + editor = {{Mackwell}, S. and {Stansbery}, E.}, + pages = {1918-+}, +} + +@ARTICLE{Hans:99, + author = {{Hansen}, G.~B.}, + title = "{Control of the radiative behavior of the Martian polar +caps by surface {\lt}formula{\gt}CO$_{2}$ ice: Evidence from Mars Global +Surveyor measurements}", + journal = {Journal of Geophysical Research (Planets)}, + year = 1999, + volume = 104, + pages = {16471-16486}, + doi = {10.1029/1998JE000626}, +} + + +@ARTICLE{Roth:01, + author = {{Rothschild}, L.~J. and {Mancinelli}, R.~L.}, + title = "{Life in extreme environments}", + journal = {Nature}, + year = 2001, + volume = 409, + pages = {1092-1101}, +} + +@ARTICLE{Lamm:09, + author = {{Lammer}, H. and {Bredeh{\"o}ft}, J.~H. and {Coustenis}, A. and + {Khodachenko}, M.~L. and {Kaltenegger}, L. and {Grasset}, O. and + {Prieur}, D. and {Raulin}, F. and {Ehrenfreund}, P. and {Yamauchi}, M. and + {Wahlund}, {J.-E.} and {Grie{\ss}meier}, {J.-M.} and {Stangl}, G. and + {Cockell}, C.~S. and {Kulikov}, Y.~N. and {Grenfell}, J.~L. and + {Rauer}, H.}, + title = "{What makes a planet habitable?}", + journal = {The Astronomy and Astrophysics Review}, + year = 2009, + volume = 17, + pages = {181-249}, + doi = {10.1007/s00159-009-0019-z}, +} + +@ARTICLE{Spie:08, + author = {{Spiegel}, D.~S. and {Menou}, K. and {Scharf}, C.~A.}, + title = "{Habitable Climates}", + journal = {Astrophys. Jour.}, + year = 2008, + volume = 681, + pages = {1609-1623}, + doi = {10.1086/588089}, +} + +@ARTICLE{Nimm:98, + author = {{Nimmo}, F. and {McKenzie}, D.}, + title = "{Volcanism and Tectonics on Venus}", + journal = {Annual Review of Earth and Planetary Sciences}, + year = 1998, + volume = 26, + pages = {23-53}, + doi = {10.1146/annurev.earth.26.1.23}, +} + +@ARTICLE{Lope:05, + author = {{Lopez}, B. and {Schneider}, J. and {Danchi}, W.~C.}, + title = "{Can Life Develop in the Expanded Habitable Zones around Red Giant Stars?}", + journal = apj, + year = 2005, + volume = 627, + pages = {974-985}, + doi = {10.1086/430416}, +} + + +@ARTICLE{Cern:05, + author = {{Cernicharo}, J. and {Crovisier}, J.}, + title = "{Water in Space: The Water World of ISO}", + journal = {Space Science Reviews}, + year = 2005, + volume = 119, + pages = {29-69}, + doi = {10.1007/s11214-005-8058-x}, +} + +@ARTICLE{McKa:08, + author = {{McKay}, C.~P. and {Porco Carolyn C.} and {Altheide}, T. and + {Davis}, W.~L. and {Kral}, T.~A.}, + title = "{The Possible Origin and Persistence of Life on Enceladus and Detection of +Biomarkers in the Plume}", + journal = {Astrobiology}, + year = 2008, + volume = 8, + pages = {909-919}, + doi = {10.1089/ast.2008.0265}, +} + +@ARTICLE{Rosi:05, + author = {{Rosing}, M.~T.}, + title = "{Thermodynamics of life on the planetary scale}", + journal = {International Journal of Astrobiology}, + year = 2005, + volume = 4, + pages = {9-11}, + doi = {10.1017/S147355040500248X}, +} + +@ARTICLE{Vale:07, + author = {{Valencia}, D. and {O'Connell}, R.~J. and {Sasselov}, D.~D.}, + title = "{Inevitability of Plate Tectonics on Super-Earths}", + journal = apj, + year = 2007, + volume = 670, + pages = {L45-L48}, + doi = {10.1086/524012}, +} + +@INPROCEEDINGS{Stam:09, + author = {Stamenkovic, V. and Noack, L. and Breuer, D.}, + title = "{Habitability of Super-Earths}", +booktitle = {Europlanet Science Conference Abstracts}, + year = 2009, + volume = 4, + pages = {372-3}, +} + +@ARTICLE{ONei:07, + author = {{O'Neill}, C. and {Lenardic}, A.}, + title = "{Geological consequences of super-sized Earths}", + journal = grl, + year = 2007, + volume = 34, + pages = {19204-+}, + doi = {10.1029/2007GL030598}, +} + +@ARTICLE{Josh:03, + author = {{Joshi}, M.}, + title = "{Climate Model Studies of Synchronously Rotating Planets}", + journal = {Astrobiology}, + year = 2003, + volume = 3, + pages = {415-427}, + doi = {10.1089/153110703769016488}, +} + +@ARTICLE{Tart:07, + author = {{Tarter}, J.~C. and {Backus}, P.~R. and {Mancinelli}, R.~L. and + {Aurnou}, J.~M. and {Backman}, D.~E. and {Basri}, G.~S. and + {Boss}, A.~P. and {Clarke}, A. and {Deming}, D. and {Doyle}, L.~R. and + {Feigelson}, E.~D. and {Freund}, F. and {Grinspoon}, D.~H. and + {Haberle}, R.~M. and {Hauck}, II, S.~A. and {Heath}, M.~J. and + {Henry}, T.~J. and {Hollingsworth}, J.~L. and {Joshi}, M.~M. and + {Kilston}, S. and {Liu}, M.~C. and {Meikle}, E. and {Reid}, I.~N. and + {Rothschild}, L.~J. and {Scalo}, J. and {Segura}, A. and {Tang}, C.~M. and + {Tiedje}, J.~M. and {Turnbull}, M.~C. and {Walkowicz}, L.~M. and + {Weber}, A.~L. and {Young}, R.~E.}, + title = "{A Reappraisal of The Habitability of Planets around M Dwarf Stars}", + journal = {Astrobiology}, + year = 2007, + volume = 7, + pages = {30-65}, + doi = {10.1089/ast.2006.0124}, +} + +@ARTICLE{Bucc:07, + author = {{Buccino}, A.~P. and {Lemarchand}, G.~A. and {Mauas}, P.~J.~D.}, + title = "{UV habitable zones around M stars}", + journal = {Icarus}, + year = 2007, + volume = 192, + pages = {582-587}, + doi = {10.1016/j.icarus.2007.08.012}, +} + +@ARTICLE{Lebo:09, + author = {{Lebonnois}, S. and {Hourdin}, F. and {Eymet}, V. and {Crespin}, A. and + {Fournier}, R. and {Forget}, F.}, + title = "{Superrotation of Venus' atmosphere analyzed with a full general circulation model}", + journal = {Journal of Geophysical Research (Planets)}, + keywords = {Planetary Sciences: Solid Surface Planets: Meteorology (3346), Atmospheric Processes: Planetary +meteorology (5445, 5739), Atmospheric Composition and Structure: Planetary atmospheres (5210, 5405, 5704), +Atmospheric Processes: General circulation (1223)}, + year = 2010, + volume = 115, + number = E14, + pages = {E06006}, + doi = {10.1029/2009JE003458}, + adsurl = {http://adsabs.harvard.edu/abs/2010JGRE..11506006L}, + adsnote = {Provided by the SAO/NASA Astrophysics Data System} +} + + +@ARTICLE{Yama:75, + author = {{Yamada}, T. and {Mellor}, G.}, + title = "{A Simulation of the Wangara Atmospheric Boundary Layer Data.}", + journal = {Journal of Atmospheric Sciences}, + year = 1975, + volume = 32, + pages = {2309-2329}, + doi = {10.1175/1520-0469(1975)032<2309:ASOTWA>2.0.CO;2}, +} + +@ARTICLE{Lewi:05, + author = {{Lewis}, S.~R. and {Barker}, P.~R.}, + title = "{Atmospheric tides in a Mars general circulation model with data assimilation}", + journal = {Advances in Space Research}, + year = 2005, + volume = 36, + pages = {2162-2168}, + doi = {10.1016/j.asr.2005.05.122}, +} + +@ARTICLE{Mich:06dd, + author = {{Michaels}, T.~I.}, + title = "{Numerical modeling of Mars dust devils: Albedo track generation}", + journal = grl, + year = 2006, + volume = 33, + pages = {19-+}, + doi = {10.1029/2006GL026268}, +} + +@book{Gree:87, + title={{Wind as a Geological Process: On Earth, Mars, Venus and Titan}}, + author={Greeley, R. and Iversen, J.D.}, + year={1987}, + publisher={Cambridge Univ Press} +} + +@ARTICLE{Bagn:54, + author = {{Bagnold}, R.~A.}, + title = "{Experiments on a Gravity-Free Dispersion of Large Solid Spheres in a Newtonian Fluid under Shear}", + journal = {Royal Society of London Proceedings Series A}, + year = 1954, + volume = 225, + pages = {49-63}, +} + +@misc{Spig:10comp, + author = {Spiga, A.}, + howpublished = {Planetary and Space Science, in press}, + title = {Elements of comparison between Martian and terrestrial mesoscale meteorological phenomena: Katabatic winds and boundary layer convection}, + year = {2010} +} + +@ARTICLE{Gree:03lab, + author = {{Greeley}, R. and {Balme}, M.~R. and {Iversen}, J.~D. and {Metzger}, S. and + {Mickelson}, R. and {Phoreman}, J. and {White}, B.}, + title = "{Martian dust devils: Laboratory simulations of particle threshold}", + journal = {Journal of Geophysical Research (Planets)}, + year = 2003, + volume = 108, + pages = {5041-+}, + doi = {10.1029/2002JE001987}, +} + +@INPROCEEDINGS{Reis:09, + author = {{Reiss}, D. and {L{\"u}sebrink}, D. and {Hiesinger}, H. and + {Kelling}, T. and {Wurm}, G. and {Teiser}, J.}, + title = "{High Altitude Dust Devils on Arsia Mons, Mars: Testing the Greenhouse and Thermophoresis Hypothesis of Dust Lifting}", +booktitle = {Lunar and Planetary Institute Science Conference Abstracts}, + year = 2009, + series = {Lunar and Planetary Inst. Technical Report}, + volume = 40, + pages = {1961-+}, +} + +@ARTICLE{Lefe:09, + author = {{Lef{\`e}vre}, F. and {Forget}, F.}, + title = "{Observed variations of methane on Mars unexplained by known atmospheric chemistry and physics}", + journal = {Nature}, + year = 2009, + volume = 460, + pages = {720-723}, + doi = {10.1038/nature08228}, +} + +@ARTICLE{Jako:00, + author = {{Jakosky}, B.~M. and {Mellon}, M.~T. and {Kieffer}, H.~H. and + {Christensen}, P.~R. and {Varnes}, E.~S. and {Lee}, S.~W.}, + title = "{The thermal inertia of Mars from the Mars Global Surveyor Thermal Emission Spectrometer}", + journal = jgr, + year = 2000, + volume = 105, + pages = {9643-9652}, + doi = {10.1029/1999JE001088}, +} + +@ARTICLE{Putz:07mix, + author = {{Putzig}, N.~E. and {Mellon}, M.~T.}, + title = "{Thermal behavior of horizontally mixed surfaces on Mars}", + journal = {Icarus}, + year = 2007, + volume = 191, + pages = {52-67}, + doi = {10.1016/j.icarus.2007.03.022}, +} + +@ARTICLE{Band:08, + author = {{Bandfield}, J.~L. and {Feldman}, W.~C.}, + title = "{Martian high latitude permafrost depth and surface cover thermal inertia distributions}", + journal = {Journal of Geophysical Research (Planets)}, + year = 2008, + volume = 113, + pages = {E08001}, + doi = {10.1029/2007JE003007}, +} + +@ARTICLE{Vinc:10grl, + author = {{Vincendon}, M. and {Mustard}, J. and {Forget}, F. and {Kreslavsky}, M. and + {Spiga}, A. and {Murchie}, S. and {Bibring}, {J.-P.}}, + title = "{Near-tropical subsurface ice on Mars}", + journal = grl, + year = 2010, + volume = 37, + pages = {L01202}, + doi = {10.1029/2009GL041426}, +} + +@ARTICLE{Basi:06, + author = {{Basilevsky}, A.~T. and {Werner}, S.~C. and {Neukum}, G. and + {Head}, J.~W. and {van Gasselt}, S. and {Gwinner}, K. and {Ivanov}, B.~A. + }, + title = "{Geologically recent tectonic, volcanic and fluvial activity on the eastern flank of the Olympus Mons volcano, Mars}", + journal = grl, + year = 2006, + volume = 33, + pages = {L13201}, + doi = {10.1029/2006GL026396}, +} + +@ARTICLE{Brac:96, + author = {{Brack}, A.}, + title = "{Why exobiology on Mars?}", + journal = pss, + year = 1996, + volume = 44, + pages = {1435-1440}, +} + +@ARTICLE{Spig:11ti, + author = {{Spiga}, A. and {Forget}, F. and {Madeleine}, {J.-B.} and {Montabone}, L. and {Lewis}, S.~R. and {Millour}, E.}, + title = "{The impact of Martian mesoscale winds on surface temperature and on the determination of thermal inertia}", + journal = {Icarus}, + year = 2011, + volume = 212, + pages = {504-519}, +} + + +@ARTICLE{Spig:08will, + author = {{Spiga}, A. and {Forget}, F. and {Montabone}, L.}, + title = "{Study of the Martian Boundary Layer, Mountain Meteorology and 2001 Dust Storm with the LMD Mesoscale Model}", + journal = {LPI Contributions}, + year = 2008, + volume = 1447, + pages = {9028-+}, +} + +@ARTICLE{Ferg:06, + author = {{Fergason}, R.~L. and {Christensen}, P.~R. and {Bell}, J.~F. and + {Golombek}, M.~P. and {Herkenhoff}, K.~E. and {Kieffer}, H.~H. + }, + title = "{Physical properties of the Mars Exploration Rover landing sites as inferred from Mini-TES-derived thermal inertia}", + journal = {Journal of Geophysical Research (Planets)}, + year = 2006, + volume = 111, + pages = {E02S21}, + doi = {10.1029/2005JE002583}, +} + +@ARTICLE{Hyne:07, + author = {{Hynek}, B.~M. and {Singer}, K.}, + title = "{Ground truth from the Opportunity Rover for Mars thermal inertia data}", + journal = grl, + year = 2007, + volume = 34, + pages = {L11201}, + doi = {10.1029/2007GL029687}, +} + +@ARTICLE{Putz:05, + author = {{Putzig}, N.~E. and {Mellon}, M.~T. and {Kretke}, K.~A. and + {Arvidson}, R.~E.}, + title = "{Global thermal inertia and surface properties of Mars from the MGS mapping mission}", + journal = {Icarus}, + year = 2005, + volume = 173, + pages = {325-341}, + doi = {10.1016/j.icarus.2004.08.017}, +} + +@ARTICLE{Wolk:10, + author = {{Wolkenberg}, P. and {Formisano}, V. and {Rinaldi}, G. and {Geminale}, A. + }, + title = "{The atmospheric temperatures over Olympus Mons on Mars: An atmospheric hot ring}", + journal = {Icarus}, + year = 2010, + volume = 207, + pages = {110-123}, + doi = {10.1016/j.icarus.2009.11.005}, +} + +@ARTICLE{Blea:07, + author = {{Bleacher}, J.~E. and {Greeley}, R. and {Williams}, D.~A. and + {Werner}, S.~C. and {Hauber}, E. and {Neukum}, G.}, + title = "{Olympus Mons, Mars: Inferred changes in late Amazonian aged effusive activity from lava flow mapping of Mars Express High Resolution Stereo Camera data}", + journal = {Journal of Geophysical Research (Planets)}, + year = 2007, + volume = 112, + pages = {E04003}, + doi = {10.1029/2006JE002826}, +} + +@article{McGo:09, + title={{Volcanic spreading and lateral variations in the structure of Olympus Mons, Mars}}, + author={McGovern, P.J. and Morgan, J.K.}, + journal={Geology}, + volume={37}, + number={2}, + pages={139}, + year={2009}, +} + +@ARTICLE{Joug:09, + author = {{Jouglet}, D. and {Poulet}, F. and {Langevin}, Y. and {Bibring}, {J.-P.} and + {Gondet}, B. and {Vincendon}, M. and {Berthe}, M.}, + title = "{OMEGA long wavelength channel: Data reduction during non-nominal stages}", + journal = pss, + year = 2009, + volume = 57, + pages = {1032-1042}, + doi = {10.1016/j.pss.2008.07.025}, +} + +@article{Mahr:08, + title={{Bulk formulation of surface fluxes extended to weak-wind stable conditions}}, + author={Mahrt, L.}, + journal={Quarterly Journal of the Royal Meteorological Society}, + volume={134}, + number={630}, + pages={1--10}, + year={2008}, +} + +@book{Garr:92, + author = {Garratt, J.~R.}, + address = {New York}, + publisher = {Cambridge Univ. Press}, + title = {The Atmospheric Boundary Layer}, + year = {1992} +} + +@article{Gris:07, + title={{The low-level katabatic jet height versus Monin--Obukhov height}}, + author={Grisogono, B. and Kraljevi{\'c}, L. and Jeri{\v{c}}evi{\'c}, A.}, + journal={Quarterly Journal of the Royal Meteorological Society}, + volume={133}, + number={629}, + pages={2133--2136}, + year={2007}, +} + +@ARTICLE{Cass:01, + author = {{Cassano}, J.~J. and {Parish}, T.~R. and {King}, J.~C.}, + title = "{Evaluation of Turbulent Surface Flux Parameterizations for the Stable Surface Layer over Halley, Antarctica}", + journal = {Monthly Weather Review}, + year = 2001, + volume = 129, + pages = {26--46}, + doi = {10.1175/1520-0493(2001)129<0026:EOTSFP>2.0.CO;2}, +} + +@ARTICLE{Ditt:82, + author = {{Ditteon}, R.}, + title = "{Daily temperature variations on Mars}", + journal = jgr, + year = 1982, + volume = 87, + pages = {10197-10214}, + doi = {10.1029/JB087iB12p10197}, +} + +@ARTICLE{Howa:00, + author = {{Howard}, A.~D.}, + title = "{The Role of Eolian Processes in Forming Surface Features of the Martian Polar Layered Deposits}", + journal = {Icarus}, + year = 2000, + volume = 144, + pages = {267-288}, + doi = {10.1006/icar.1999.6305}, +} + +@ARTICLE{Smit:10holt, + author = {{Smith}, I.~B. and {Holt}, J.~W.}, + title = "{Onset and migration of spiral troughs on Mars revealed by orbital radar}", + journal = {Nature}, + year = 2010, + volume = 465, + pages = {450-453}, + doi = {10.1038/nature09049}, +} + +@ARTICLE{Holt:10, + author = {{Holt}, J.~W. and {Fishbaugh}, K.~E. and {Byrne}, S. and {Christian}, S. and + {Tanaka}, K. and {Russell}, P.~S. and {Herkenhoff}, K.~E. and + {Safaeinili}, A. and {Putzig}, N.~E. and {Phillips}, R.~J.}, + title = "{The construction of Chasma Boreale on Mars}", + journal = {Nature}, + year = 2010, + volume = 465, + pages = {446-449}, + doi = {10.1038/nature09050}, +} + +@ARTICLE{Ng:06, + author = {{Ng}, F.~S.~L. and {Zuber}, M.~T.}, + title = "{Patterning instability on the Mars polar ice caps}", + journal = {Journal of Geophysical Research (Planets)}, + year = 2006, + volume = 111, + pages = {E02005}, + doi = {10.1029/2005JE002533}, +} + +@ARTICLE{Vang:09, + author = {{Vangvichith}, M. and {Tran}, H. and {Hartmann}, {J.-M.}}, + title = "{Line-mixing and collision induced absorption for O$_{2}$-CO$_{2}$ mixtures in the oxygen +A-band region}", + journal = jqsrt, + year = 2009, + volume = 110, + pages = {2212-2216}, + doi = {10.1016/j.jqsrt.2009.06.002}, +} + +@ARTICLE{Word:10, + author = {{Wordsworth}, R. and {Forget}, F. and {Eymet}, V.}, + title = "{Infrared collision-induced and far-line absorption in dense CO$_{2}$ atmospheres}", + journal = {Icarus}, + year = 2010, + volume = 210, + pages = {992-997}, + doi = {10.1016/j.icarus.2010.06.010}, +} + +@ARTICLE{Lell:10, + author = {{Lellouch}, E. and {de Bergh}, C. and {Sicardy}, B. and {Ferron}, S. and {K{\"a}ufl}, {H.-U.}}, + title = "{Detection of CO in Triton's atmosphere and the nature of surface-atmosphere interactions}", + journal = {aap}, + year = 2010, + volume = 512, + pages = {L8+}, + doi = {10.1051/0004-6361/201014339}, +} + +@ARTICLE{Spen:90, + author = {{Spencer}, J.~R.}, + title = "{Nitrogen frost migration on Triton - A historical model}", + journal = {grl}, + year = 1990, + volume = 17, + pages = {1769-1772}, + doi = {10.1029/GL017i010p01769}, +} + +@INPROCEEDINGS{Schm:95, + author = {{Schmitt}, B. and {Quirico}, E. and {Dout{\'e}}, S. and {Owen}, T.~C. and + {de Bergh}, C. and {Cruikshank}, D.~P. and {Geballe}, T.}, + title = "{Physical State and Composition of the Ices on Triton and Pluto}", +booktitle = {Bulletin of the American Astronomical Society}, + year = 1995, + pages = {1099-+}, +} + +@article{Grun:10, + author = {{Grundy}, W.~M. and {Young}, L.~A. and {Stansberry}, J.~A. and + {Buie}, M.~W. and {Olkin}, C.~B. and {Young}, E.~F.}, + title = "{Near-infrared spectral monitoring of Triton with IRTF/SpeX II: Spatial distribution and evolution of ices}", + journal = {Icarus}, + year = 2010, + volume = 205, + pages = {594-604}, + doi = {10.1016/j.icarus.2009.08.005}, +} + +@ARTICLE{Smit:89, + author = {{Smith}, B.~A. and {Soderblom}, L.~A. and {Banfield}, D. and + {Barnet}, C. and {Beebe}, R.~F. and {Bazilevskii}, A.~T. and + {Bollinger}, K. and {Boyce}, J.~M. and {Briggs}, G.~A. and {Brahic}, A. + }, + title = "{Voyager 2 at Neptune - Imaging science results}", + journal = {Science}, + year = 1989, + volume = 246, + pages = {1422-1449}, + doi = {10.1126/science.246.4936.1422}, +} + +@ARTICLE{Brow:90, + author = {{Brown}, R.~H. and {Johnson}, T.~V. and {Kirk}, R.~L. and {Soderblom}, L.~A. + }, + title = "{Energy sources for Triton's geyser-like plumes}", + journal = {Science}, + year = 1990, + volume = 250, + pages = {431-435}, + doi = {10.1126/science.250.4979.431}, +} + +@ARTICLE{Saga:90, + author = {{Sagan}, C. and {Chyba}, C.}, + title = "{Triton's streaks as windblown dust}", + journal = {Nature}, + year = 1990, + volume = 346, + pages = {546-548}, + doi = {10.1038/346546a0}, +} + +@ARTICLE{Habe:97, + author = {{Haberle}, R.~M. and {Barnes}, J.~R. and {Murphy}, J.~R. and + {Joshi}, M.~M. and {Schaeffer}, J.}, + title = "{Meteorological predictions for the Mars Pathfinder lander}", + journal = jgr, + keywords = {Meteorology and Atmospheric Dynamics: Synoptic-scale meteorology}, + year = 1997, + volume = 102, + pages = {13301-13312}, + doi = {10.1029/97JE01334}, +} + +@ARTICLE{Spig:10dust, + author = {{Spiga}, A. and {Lewis}, S.R.}, + title = "{Mesoscale and microscale wind variability of relevance for dust lifting}", + journal = {Mars}, + year = 2010, + volume = 5, + pages = {146-158}, + doi = {10.1555/mars.2010.0006}, +} + +@ARTICLE{Maat:10, + author = {{M{\"a}{\"a}tt{\"a}nen}, A. and {Montmessin}, F. and {Gondet}, B. and + {Scholten}, F. and {Hoffmann}, H. and {Gonz{\'a}lez-Galindo}, F. and + {Spiga}, A. and {Forget}, F. and {Hauber}, E. and {Neukum}, G. and + {Bibring}, {J.-P.} and {Bertaux}, {J.-L.}}, + title = "{Mapping the mesospheric CO$_{2}$ clouds on Mars: MEx/OMEGA and MEx/HRSC observations and challenges for atmospheric models}", + journal = {Icarus}, + year = 2010, + volume = 209, + pages = {452-469}, + doi = {10.1016/j.icarus.2010.05.017}, +} + +@ARTICLE{With:10, + author = {{Withers}, P. and {Catling}, D.~C.}, + title = "{Observations of atmospheric tides on Mars at the season and latitude of the Phoenix atmospheric entry}", + journal = grl, + year = 2010, + volume = 37, + pages = {24204-+}, + doi = {10.1029/2010GL045382}, +} + +@ARTICLE{Clan:07, + author = {{Clancy}, R.~T. and {Wolff}, M.~J. and {Whitney}, B.~A. and + {Cantor}, B.~A. and {Smith}, M.~D.}, + title = "{Mars equatorial mesospheric clouds: Global occurrence and physical properties from Mars Global Surveyor Thermal Emission Spectrometer and Mars Orbiter Camera limb observations}", + journal = {Journal of Geophysical Research (Planets)}, + year = 2007, + volume = 112, + number = {E11}, + pages = {4004-+}, + doi = {10.1029/2006JE002805}, +} + +@ARTICLE{Mcco:10, + author = {{McConnochie}, T.~H. and {Bell}, J.~F. and {Savransky}, D. and + {Wolff}, M.~J. and {Toigo}, A.~D. and {Wang}, H. and {Richardson}, M.~I. and + {Christensen}, P.~R.}, + title = "{THEMIS-VIS observations of clouds in the martian mesosphere: Altitudes, wind speeds, and decameter-scale morphology}", + journal = {Icarus}, + year = 2010, + volume = 210, + pages = {545-565}, + doi = {10.1016/j.icarus.2010.07.021}, +} + +@misc{Gonz:11, + author = {{Gonz{\'a}lez-Galindo}, F. and {M{\"a}{\"a}tt{\"a}nen}, A. and + {Forget}, F. and {Spiga}, A.}, + howpublished = {Submitted to Icarus}, + title = {The Martian mesosphere as revealed by CO2 clouds observations and General Circulation Modeling}, + year = {2011} +} + +@ARTICLE{Pari:09, + author = {{Parish}, H.~F. and {Schubert}, G. and {Hickey}, M.~P. and {Walterscheid}, R.~L. + }, + title = "{Propagation of tropospheric gravity waves into the upper atmosphere of Mars}", + journal = {Icarus}, + year = 2009, + volume = 203, + pages = {28-37}, + doi = {10.1016/j.icarus.2009.04.031}, +} + +@ARTICLE{Hauc:87, + author = {{Hauchecorne}, A. and {Chanin}, M.~L. and {Wilson}, R.}, + titlev = "{Mesospheric temperature inversion and gravity wave breaking}", + journal = grl, + year = 1987, + volume = 14, + pages = {933-936}, + doi = {10.1029/GL014i009p00933}, +} + +@ARTICLE{Savi:10, + author = {{Savij{\"a}rvi}, H. and {M{\"a}{\"a}tt{\"a}nen}, A.}, + title = "{Boundary-layer simulations for the Mars Phoenix lander site}", + journal = {Quarterly Journal of the Royal Meteorological Society}, + year = 2010, + volume = 136, + pages = {1497-1505}, + doi = {10.1002/qj.650}, +} + +@ARTICLE{McCl:10, + author = {{McCleese}, D.~J. and {Heavens}, N.~G. and {Schofield}, +J.~T. and + {Abdou}, W.~A. and {Bandfield}, J.~L. and {Calcutt}, S.~B. and + {Irwin}, P.~G.~J. and {Kass}, D.~M. and {Kleinb{\"o}hl}, A. and + {Lewis}, S.~R. and {Paige}, D.~A. and {Read}, P.~L. and +{Richardson}, M.~I. and + {Shirley}, J.~H. and {Taylor}, F.~W. and {Teanby}, N. and {Zurek}, +R.~W. + }, + title = "{Structure and dynamics of the Martian lower and middle +atmosphere as observed by the Mars Climate Sounder: Seasonal variations +in zonal mean temperature, dust, and water ice aerosols}", + journal = jgr, + keywords = {Planetary Sciences: Solar System Objects: Mars}, + year = 2010, + volume = 115, + number = E14, + pages = {12016-+}, + doi = {10.1029/2010JE003677}, +} + +@ARTICLE{Kono:11, + author = {{Konopliv}, A.~S. and {Asmar}, S.~W. and {Folkner}, W.~M. and + {Karatekin}, {\"O}. and {Nunes}, D.~C. and {Smrekar}, S.~E. and + {Yoder}, C.~F. and {Zuber}, M.~T.}, + title = "{Mars high resolution gravity fields from MRO, Mars seasonal gravity, and other dynamical +parameters}", + journal = {Icarus}, + year = 2011, + volume = 211, + pages = {401-428}, + doi = {10.1016/j.icarus.2010.10.004}, + adsurl = {http://adsabs.harvard.edu/abs/2011Icar..211..401K}, +} + +@ARTICLE{Hins:04clouds, + author = {{Hinson}, D.~P. and {Wilson}, R.~J.}, + title = "{Temperature inversions, thermal tides, and water ice clouds in the Martian tropics}", + journal = {Journal of Geophysical Research (Planets)}, + keywords = {Planetary Sciences: Atmospheres-structure and dynamics, Meteorology and Atmospheric Dynamics: Planetary meteorology (5445, 5739), Planetary Sciences: Meteorology (3346), Planetology: Solar System Objects: Mars, Meteorology and Atmospheric Dynamics: Waves and tides}, + year = 2004, + volume = 109, + number = E18, + pages = {1002-+}, + doi = {10.1029/2003JE002129}, + adsurl = {http://adsabs.harvard.edu/abs/2004JGRE..10901002H}, +} + + +@ARTICLE{Heav:10, + author = {{Heavens}, N.~G. and {Benson}, J.~L. and {Kass}, D.~M. and {Kleinb{\"o}hl}, A. and + {Abdou}, W.~A. and {McCleese}, D.~J. and {Richardson}, M.~I. and + {Schofield}, J.~T. and {Shirley}, J.~H. and {Wolkenberg}, P.~M. + }, + title = "{Water ice clouds over the Martian tropics during northern summer}", + journal = grl, + keywords = {Planetary Sciences: Solar System Objects: Mars, Atmospheric Composition and Structure: Cloud physics and chemistry, Atmospheric Composition and Structure: Cloud/radiation interaction, Atmospheric Processes: Clouds and cloud feedbacks, Atmospheric Processes: General circulation (1223)}, + year = 2010, + volume = 37, + pages = {18202-+}, + doi = {10.1029/2010GL044610}, + adsurl = {http://adsabs.harvard.edu/abs/2010GeoRL..3718202H}, +} + +@ARTICLE{Spen:99, + author = {{Spencer}, D.~A. and {Blanchard}, R.~C. and {Braun}, R.~D. and + {Kallemeyn}, P.~H. and {Thurman}, S.~W.}, + title = "{Mars Pathfinder Entry, Descent, and Landing Reconstruction}", + journal = {Journal of Spacecraft and Rockets}, + year = 1999, + volume = 36, + pages = {357-366}, + doi = {10.2514/2.3478}, + adsurl = {http://adsabs.harvard.edu/abs/1999JSpRo..36..357S}, +} + + +@INPROCEEDINGS{Kara:04, + author = {{Karatekin}, {\"O}. and {Charbonnier}, {J.-M.} and {Wang}, F. and + {Dehant}, V.}, + title = "{Dynamic stability of atmospheric entry probes}", + keywords = {Planetary Atmospheres, Entry Probes}, +booktitle = {Planetary Probe Atmospheric Entry and Descent Trajectory Analysis and Science}, + year = 2004, + series = {ESA Special Publication}, + volume = 544, + editor = "{A.~Wilson}", + pages = {101-108}, + adsurl = {http://adsabs.harvard.edu/abs/2004ESASP.544..101K}, +} + +@INPROCEEDINGS{Kara:01, + author = {{Karatekin}, {\"O}.}, + title = "{Effect of surface pressure variations on the aerodynamic stability of planetary entry capsules}", + year = 2001, +booktitle = {2nd International Symposium on Atmospheric reentry vehicles and systems} +} + +@ARTICLE{Kara:10, + author = {{Karatekin}, {\"O}. and Viron, O. and Lambert, S. and Rosenblatt, P. and Dehant, V. and van Hoolst, T. and LeMaistre, S.}, + title = "{Atmospheric angular momentum variations of Earth, Mars and Venus at seasonal time scales}", + journal = {Planetary and Space Science}, + year = 2010, +} + +@ARTICLE{Wood:97, + author = {{Wood}, G.~E. and {Asmar}, S.~W. and {Rebold}, T.~A. and {Lee}, R.~A.}, + title = "{Mars Pathfinder EntryDescent, and Landing Communications}", + journal = {Telecommunications and Data Acquisition Progress Report}, + year = 1997, + volume = 131, + pages = {1-19}, + adsurl = {http://adsabs.harvard.edu/abs/1997TDAPR.131R...1W}, +} + +@INPROCEEDINGS{Vang:10dps, + author = {{Vangvichith}, M. and {Forget}, F. and {Wordsworth}, R. and + {Millour}, E.}, + title = "{A 3-D General Circulation Model of Triton's Atmosphere}", +booktitle = {AAS/Division for Planetary Sciences Meeting Abstracts \#42}, + year = 2010, + series = {Bulletin of the American Astronomical Society}, + volume = 42, + month = oct, + pages = {952-+}, + adsurl = {http://adsabs.harvard.edu/abs/2010DPS....42.0606V}, + adsnote = {Provided by the SAO/NASA Astrophysics Data System} +} + +@article{Sieb:95, + title={{Evaluation of parametric assumptions for shallow cumulus convection}}, + author={Siebesma, AP and Cuijpers, JWM}, + journal={Journal of the atmospheric sciences}, + volume={52}, + number={6}, + pages={650--666}, + year={1995}, +} + +@ARTICLE{Toyo:11, + author = {{Toyota}, T. and {Kurita}, K. and {Spiga}, A.}, + title = "{Distribution and time-variation of spire streaks at Pavonis Mons on Mars}", + journal = {Planetary and Space Science}, + year = 2011, + volume = 59, + pages = {672-682}, + doi = {10.1016/j.pss.2011.01.015}, +} + +@INPROCEEDINGS{Spig:11mamogw, + author = {{Spiga}, A. and {Gonzalez-Galindo}, F. and {Forget}, F. and + {Lopez-Valverde}, M.-A.}, + title = "{Martian Mesospheric CO2 Clouds and Gravity Wave Activity.}", +booktitle = {Mars Atmosphere: Modelling and observation}, + year = 2011, + editor = "{F.~Forget \& E.~Millour}", + pages = {409-412}, +} Index: /trunk/LMDZ.TITAN/DOC/phystd.tex =================================================================== --- /trunk/LMDZ.TITAN/DOC/phystd.tex (revision 1644) +++ /trunk/LMDZ.TITAN/DOC/phystd.tex (revision 1644) @@ -0,0 +1,124 @@ +\chapter{Physical parameterizations of the generic model: some references} + +\label{sc:phystd} + +\section{General} + +The Generic Climate Model uses a large number of physical parameterizations based on various scientific theories. Some also use specific numerical methods. A list of these parameterizations is given below, along with the most appropriate references for each one. Most of these documents can be found at\\ +\verb+http://www.lmd.jussieu.fr/mars.html+. + +\paragraph{General references:} +No documents attempt to give a complete scientific description of the current +version of the GCM. Here's a reference to a Mars GCM description: +\begin{itemize} +\item {\it Forget et al.} [1999] (article +published in the JGR) +\item ``Updated Detailed Design Document for the Model'' +(ESA contract, Work Package 6, 1999, available on the web) +which is simply a compilation of the preceding article with +a few additions that were published separately. +\end{itemize} + +\nocite{Forg:99} + +\section{Radiative transfer} + +The radiative transfer parameterizations are used to calculate the heating +and cooling ratios in the atmosphere and the radiative flux at the surface. + +[TO WRITE: IMPORTANT SECTION - REFERENCES HERE ARE FOR MARS ONLY] + +%\end{itemize} + + +\subsection{\bf Absorption/emission and diffusion by dust:} + +\subsubsection*{Dust spatial distribution} + (\verb+ dustopacity+) + +\begin{itemize} +\item Vertical distribution and description of ``MGS'' and ``Viking'' scenarios +in the ESA report {\it Mars Climate Database V3.0 Detailed Design Document} +by Lewis et al. (2001), available on the web. +\item For the ``MY24'' scenario, dust distribution obtained from assimilation +of TES data is used (and read via the \verb+readtesassim+ routine). +\end{itemize} +\nocite{Forg:99,Lewi:99} + +\subsubsection*{Thermal IR radiation} + (\verb+ lwmain+) +\begin{itemize} +\item Numerical method: {\it Toon et al.} [1989] +\item Optical properties of dust: {\it Forget} [1998] +\nocite{Toon:89,Forg:98grl} +\end{itemize} + +\subsubsection*{Solar radiation} + (\verb+ swmain+) +\begin{itemize} +\item Numerical method: {\it Fouquart and Bonel} [1980] +\nocite{Fouq:80} + +\item Optical properties of dust: +see the discussion in {\it Forget et al. } [1999], which quotes + {\it Ockert-Bell et al.} [1997] and {\it Clancy and Lee} [1991]. +\nocite{Ocke:97,Clan:91} +\end{itemize} + +\section{Subgrid atmospheric dynamical processes} + +\subsection{Turbulent diffusion in the upper layer} + (\verb+ vdifc+) + +\begin{itemize} +\item Implicit numerical scheme in the vertical: +see the thesis of Laurent Li (LMD, Universit\'e Paris 7, 1990), Appendix C2. + +\item Calculation of the turbulent diffusion coefficients: +{\it Forget et al. } [1999]. +\end{itemize} + +\subsection{Convection} + (\verb+ convadj+) + +See {\it Hourdin et al.} [1993] +\nocite{Hour:93} + +\section{Surface thermal conduction} + (\verb+soil+) + +Thesis of Fr\'ed\'eric Hourdin (LMD, Universit\'e Paris 7, 1992) : + section 3.3 (equations) and Appendix A (Numerical scheme). + +\section{CO$_2$ Condensation} + +In {\it Forget et al.} [1998] (article published in Icarus): \\ +- Numerical method for calculating the condensation and sublimation levels +at the surface and in the atmosphere (\verb+ newcondens+) + explained in the appendix. +\\ +- Description of the numerical scheme for calculating the evolution of CO$_2$ +snow emissivity (\verb+co2snow+) explained in section 4.1 +\nocite{Forg:98} + +\section{Tracer transport and sources} +\begin{itemize} +\item ``Van-Leer'' transport scheme used in the dynamical part +(\verb+ tracvl+ and \verb+ vlsplt+ in the dynamical part): +{\it Hourdin and Armengaud} [1999] \nocite{Hour:99} + +\item Transport by turbulent diffusion (in \verb+ vdifc+), convection +(in \verb+ convadj+), sedimentation (\verb+ sedim+), +dust lifting by winds (\verb+ dustlift+) : +see note ``Preliminary design of dust lifting and transport in the Model'' +(ESA contract, Work Package 4, 1998, available on the web). + + +%\item Simplified water cycle (source in {\tt vdifc}, {\tt +%watercloud}) : and also see the Maitrise study by Delphine Nobileau, LMD, 2000. +\item {\bf Watercycle}, see {\it Montmessin et al.} [2004] +\nocite{Mont:04jgr} + +\end{itemize} + + Index: /trunk/LMDZ.TITAN/DOC/principe.tex =================================================================== --- /trunk/LMDZ.TITAN/DOC/principe.tex (revision 1644) +++ /trunk/LMDZ.TITAN/DOC/principe.tex (revision 1644) @@ -0,0 +1,294 @@ +\chapter{Main features of the model} + +\label{sc:apercu} + +\section{Basic principles} +The General Circulation Model (GCM) calculates the temporal evolution of +the different {\bf variables} (listed below) +that control or describe the planetary meteorology and climate +at different points of a {\bf 3D ``grid" } (see below) that covers +the entire atmosphere. + +From an initial state, the model calculates the evolution of these variables, +timestep by timestep: +\begin{itemize} +\item At instant $t$, we know variable $X_t$ (temperature for example) +at one point in the atmosphere. + +\item We calculate the evolution (the {\bf tendencies}) +$(\frac{\partial X}{\partial t})_1$ , +$(\frac{\partial X}{\partial t})_2$ , etc. +arising from each physical phenomenon, +calculated by a {\bf parameterization} of each of these phenomenon +(for example, heating due to absorption of solar radiation). + +\item At the next time step $t + \delta t$, we can calculate $X_{t+ \delta t}$ +from $X_t$ and $(\frac{\partial X}{\partial t})$. +This is the {\bf``integration''} of the variables in time. +(For example, $X_{t+ \delta t}=X_t + + \delta t(\frac{\partial X}{\partial t})_1 + + \delta t(\frac{\partial X}{\partial t})_2 + ...$) + +\end{itemize} + +{\bf The main task of the model is to calculate these tendencies} +$(\frac{\partial X}{\partial t})$ +{\bf arising from the different parameterized phenomena.} + +\section{Dynamical-Physical separation} + +In practice, the 3D model operates in two parts:\\ +- a {\bf dynamical part} containing the numerical solution of +the general equations for atmospheric circulation. +This part (including the programming) is common to all terrestrial-type atmospheres, and applicable +in certain cases to the upper atmospheres of gas giant planets.\\ +- a {\bf physical part} that is specific to the planet in question and +which calculates the circulation forcing and climatic details at each point. + +The calculations for the dynamical part are made on a 3D grid +with horizontal exchanges between the grid boxes, +whereas the physical part can be seen as a juxtaposition of atmosphere +``columns'' that do not interact with each other (see diagram~\ref{fg:fidyn}). + +The dynamical and physical parts deal with variables of different natures, +and operate on grids that are differently constructed. +The temporal integration of the variables is based +on different numerical schemes +(simple, such as the one above for the physical part, +and more complicated, the ``Matsuno-Leapfrog'' scheme for the dynamical part). +The timesteps are also different. +The physical timestep is {\tt iphysiq} times longer than the dynamical +timestep, as the solution of the dynamic equations requires a shorter timestep +than the forced calculation for the physical part. + +In practice, the main program that handles the whole model (\verb+gcm.F+) +is located in the dynamical part. +When the temporal evolution is being calculated, +at each timestep the program calls the following: +\begin{enumerate} +\item Call to the subroutine that handles the total tendency calculation +$(\frac{\partial X}{\partial t})$ arising from the dynamical part +(\verb+caldyn.F+) +\item Integration of these dynamical tendencies to calculate the evolution +of the variables at the following timesteps (subroutine \verb+integrd.F+) +\item Every {\tt iphysiq} dynamical timestep, a call to the interface +subroutine (\verb+calfis.F+) with the physical model (\verb+physiq.F90+), +that calculates the evolution of some of the purely physical variables +(e.g: surface temperature {\tt tsurf}) and returns the tendencies +$(\frac{\partial X}{\partial t})$ +arising from the physical part. +\item Integration of the physical variables (subroutine \verb+addfi.F+) +\item Similarly, calculation and integration of tendencies due to +the horizontal dissipation and the ``sponge layer'' is done +every {\tt idissip} dynamical time step. +\end{enumerate} +{\em {Remark:} The physical part can be run separately for a 1-D calculation +for a single column using program \verb+rcm1d.F+.} + + +\section{Grid boxes:} Examples of typical grid values are 64x48x25, +64x48x32 or 32x24x25 in longitudexlatitudexaltitude. Grid box size depends +on the planetary radius: for Mars (radius$\sim$3400~km), for example, a 64x48 horizontal grid corresponds +to grid boxes of the order of 330x220 kilometers near the equator. + + +\subsection{Horizontal grids} + + \begin{figure} +%%\centering +\begin{center} +\centerline{\framebox{\epsfig{figure=Fig/didi.eps,width=12.cm,clip=true}}} +\caption{Physical/dynamical interface} +\label{fg:fidyn} +\end{center} +\end{figure} + +\begin{figure} +\centerline{\framebox[1.4\textwidth][c]{\includegraphics[width=1.2\textwidth]{Fig/grid.eps}}} +\caption{Dynamical and physical grids for a 6 $\times$ 7 horizontal resolution. +In the dynamics (but not in the physics) winds u and v are on specific +staggered grids. Other dynamical variables are on the dynamical ``scalar'' grid. +The physics uses the same ``scalar'' grid for all the variables, +except that nodes are indexed in a single vector containing +NGRID=2+(JM-1)$\times$IM points when counting from the north pole. +N.B.: In the Fortran program, the following variables are used: + {\tt iim=IM , iip1=IM+1, jjm=JM , jjp1=JM+1}.\label{fg:grid}} +\end{figure} + + +Dynamics and physics use different grids. +Figure~\ref{fg:grid} shows the correspondence and indexing +of the physical and dynamical grids +as well as the different locations of variables on these grids. +To identify the coordinates of a variable (at one grid point up, +down, right or left) +we use coordinates {\tt rlonu}, {\tt rlatu}, + {\tt rlonv}, {\tt rlatv} (longitudes and +latitudes, in {\bf radians}). + +On the dynamical grid, values at {\tt i=1} are the same as at {\tt i=IM+1} +as the latter node is a redundant point (due to the periodicity in longitude, +these two nodes are actualy located at the same place). +Similarly, the extreme {\tt j=1} and {\tt j=JM+1} nodes on the +dynamical grid (respectively corresponding to North and South poles) +are duplicated IM+1 times.\\ +In contrast, the physical grid does not contain redundant points +(only one value for each pole and no extra point along longitudes), +as shown in figure~\ref{fg:grid}. +In practice, computations relative to the physics are made +for a series of {\tt ngrid} atmospheric +columns, where {\tt NGRID}={\tt IM}x({\tt JM}-1)+2. + +\subsection{Vertical grids} + +\begin{figure}[htbp] + +{\includegraphics[scale=0.85,clip=true]{Fig/coord.eps}} +\caption[hybrides] + {Sketch illustrating the difference between hybrid and non-hybrid coordinates} + \label{fg:hybrid} +\end{figure} + + +The GCM was initially programmed using sigma coordinates $\sigma = p/ps$ +(atmospheric pressure over surface pressure ratio) +which had the advantage of using a constant domain +($\sigma=1$ at the surface and $\sigma=0$ at the top of the atmosphere) +whatever the underlying topography. +However, it is obvious that these coordinates significantly disturb +the stratospheric dynamical representation as the topography is propagated +to the top of the model by the coordinate system. +This problem can elegantly be solved by using a hybrid sigma-P (sigma-pressure) +hybrid coordinate which is equivalent to using $\sigma$ coordinates +near the surface and gradually shifting to purely pressure $p$ +coordinates with increasing altitude. +Figure~\ref{fg:hybrid} illustrates the importance of using these +hybrid coordinates compared to simple $\sigma$ coordinates. +The distribution of the vertical layers is irregular, +to enable greater precision at ground level. +In general we use 25 levels to describe the atmosphere to a height of 80 km, +32 levels for simulations up to 120~km, or 50 levels to rise +up to thermosphere. +The first layer describes the first few meters above the ground, +whereas the upper layers span several kilometers. +Figure~\ref{fg:sigma} describes the vertical grid representation +and associated variables. + +\begin{figure} +\begin{verbatim} +DYNAMICS PHYSICS +-------- ------- +[coordinates ap(),bp()] [pressures] + +ap(llm+1)=0,bp(llm+1)=0 **************************** plev(nlayer+1)=0 +aps(llm),bps(llm) .. llm .......... nlayer ... play(nlayer) +ap(llm),bp(llm) **************************** plev(nlayer) +aps(llm-1),bps(llm-1) .. llm-1 ........ nlayer-1 . play(nlayer-1) +ap(llm-1),bp(llm-1) **************************** plev(nlayer-1) + : : + : : + : : +aps(2),bps(2) ... 2 ............. 2 .... play(2) +ap(2),bp(2) **************************** plev(2) +aps(1),bps(1) ... 1 ............. 1 .... play(1) +ap(1)=1,bp(1)=0 **********surface*********** plev(1)=Ps +\end{verbatim} +\caption{Vertical grid description of the {\tt llm (or nlayer)} +atmospheric layers +in the programming code ({\tt llm} is the variable used in the dynamical part, +and {\tt nlayer} is used in the physical part). +Variables {\tt ap, bp} and {\tt aps, bps} indicate the hybrid levels at +the interlayer levels and at middle of the layers respectively. +Pressure at the interlayer is $Plev(l)=ap(l)+bp(l) \times Ps$ and pressure +in the middle of the layer is defined by $Play(l)=aps(l)+bps(l) \times Ps$, +(where $Ps$ is surface pressure). +Sigma coordinates are merely a specific case of hybrid +coordinates such that $aps=0$ and $bps=P/Ps$. +Note that for the hybrid coordinates, $bps=0$ above $\sim50$~km, leading to +purely pressure levels. +The user can choose whether to run the model using hybrid coordinates or not +by setting variable {\tt hybrid} in run.def to True or False.} +\label{fg:sigma} +\end{figure} + +\section{Variables used in the model} + +\subsection{Dynamical variables} +The dynamical state variables are the atmospheric temperature, +surface pressure, winds and tracer concentrations. +In practice, the formulation selected to solve the equations in +the dynamics %(see chapter~\ref{sc:dynamic}) +is optimised using the following less ``natural'' variables: + +\begin{description} +\item - {\bf potential temperature} $\theta$ ({\tt teta} in the code), +linked to temperature {\bf T} by $\theta = T{(P/Pref)}^{-\kappa}$ +with $\kappa = R/C_p$ +(note that $\kappa$ is called {\tt kappa} in the dynamical code, and {\tt rcp} +in the physical code). We take $Pref=610$ Pa on Mars. +\item - {\bf surface pressure} ({\tt ps} in the code). +\item - {\bf mass} the atmosphere mass in each grid box ({\tt masse} +in the code). +\item - {\bf the covariant meridional and zonal winds} +{\tt ucov} and {\tt vcov}. +These variables are linked to the "natural" winds by +\verb+ucov = cu * u+ and \verb+vcov = cv * v+, where +\verb+cu+ and \verb+cv+ are constants that only depend on the latitude. +%(see Appendix A). +\item - {\bf mixing ratio of tracers} in the atmosphere, typically +expressed in kg/kg (array {\tt q} in the code). +\end{description} + +{\tt ucov} and {\tt vcov}, ``vectorial'' variables, are stored on +``scalari'' grids u and v respectively, in the dynamics +(see section \ref{fg:grid}). +{\tt teta}, {\tt q}, {\tt ps}, {\tt masse}, ``scalar variables'', +are stored on the ``scalar'' grid of the dynamics. + + + +\subsection{Physical variables} + +In the physics, the state variables of the dynamics are transmitted +via an interface that interpolates the winds on the scalar grid +(that corresponds to the physical grid) and transforms the dynamical variables +into more ``natural'' variables. +Thus we have winds {\bf u} and {\bf v} (m.s$^{-1}$), +temperature {\bf T} (K), pressure at the middle of the layers +{\bf play} (Pa) and at interlayers {\bf plev} (Pa), tracers +{\bf q}, etc. (kg/kg) on the same grid. + +Furthermore, the physics also handle the evolution of the purely +physical state variables: +\begin{description} +\item - {\bf tsurf} surface temperature (K) +\item - {\bf tsoil} temperature at different layers under the surface (K) +\item - {\bf emis} surface emissivity +\item - {\bf alb} surface albedo +\item - {\bf q2} wind variance, or more precisely the square root of +the turbulent kinetic energy +\item - {\bf qsurf} tracer on the surface (kg.m$^{-2}$) +\item - {\bf rnat} surface type (0 = ocean, 1 = continent) +\item - {\bf beta} surface wetness (0 $\to$ 1 implies dry $\to$ saturated) +\item - [anything else?] +\end{description} + +\subsection{Tracers} +The model may include different types of tracers: +\begin{description} +\item - condensed species (e.g., CO$_2$, H$_2$O, dust) +\item - chemically active species (in principle only at the moment) +\item - radiatively active gases (e.g., water vapor) +\end{description} + +In the code, all tracers are stored in one three-dimensional array {\tt q}, +the third index of which corresponds to each individual tracer. +In input and output files (``start.nc'', ``startfi.nc'', +see Section~\ref{loc:contact1}) tracers are stored separately using their +individual names. Loading specific tracers requires that +the approriate tracer names are set in the {\tt traceur.def} file +(see Section~\ref{sc:traceur.def}), and specific computations +for given tracers (e.g. computing the water or CO$_2$ cycles) +is controlled by setting the corresponding options in the +{\tt callphys.def} file (see Section~\ref{sc:callphys.def}). + Index: /trunk/LMDZ.TITAN/DOC/rcm1d.tex =================================================================== --- /trunk/LMDZ.TITAN/DOC/rcm1d.tex (revision 1644) +++ /trunk/LMDZ.TITAN/DOC/rcm1d.tex (revision 1644) @@ -0,0 +1,70 @@ +\chapter{1D version of the generic model} + +\label{sc:rcm1d} + +The physical part of the model can be used to run 1D radiative-convective simulations (one atmospheric column / globally averaged climate). In practice, the simulation is controlled from a main program called \verb+ rcm1d.F+ which, after initialization, then calls the master subroutine of the physics \verb+ physiq.F90+ described in the previous chapters. + +\section{Compilation} +{\bf -} For example, to compile the generic model in 1D with 25 layers, type (in compliance with the makegcm function manual described in section \ref{sc:compil1}) + +\begin{verbatim} +makegcm -d 25 -t 1 -b 32x36 -p std rcm1d +\end{verbatim} + +You can find executable {\bf rcm1d.e} (the compiled model) +in the directory from which you ran the makegcm command. + +\section{1-D runs and input files} + +The 1D model does not use an initial state file (the simulation must be long enough to obtain a balanced state). Thus, to generate a simulation simply type: + +\begin{verbatim} +> rcm1d.e +\end{verbatim} + +The following example files are available in the {\tt deftank} directory +(copy them into your working directory first): + +- {\bf callphys.def}~: controls the options in the physics, + just like for the 3D GCM. + +- {\bf z2sig.def}~: + controls the vertical discretization + (no change needed, in general), functions as with the 3D GCM. + +- {\bf traceur.def}~: + controls the tracer names (this file may not be present, as long + as you run without tracers (option {\tt tracer=.false.} in + callphys.def) + +- {\bf run.def}~: controls the 1D run parameters and initializations +(this is actually file {\tt run.def.1d} the {\tt deftank} directory, +which must be renamed {\tt run.def} to be read by the program).\\ + +The last file is different from the 3D GCM's {\tt run.def} input file, +as it contains options specific to the 1D model, as shown in the example +below: +\input{input/run.def.1d.tex} +Note that, just as for the 3D GCM {\tt run.def} file, input +parameters may be given in any order, or even not given at all +(in which case default values are used by the program). + + +\section{Output data} + +During the entire 1D simulation, you can obtain output data for any +variable from any physical subroutine by using subroutine \verb+ writeg1d+. +This subroutine creates file \verb+ g1d.nc+ that can be read by GRADS. +This subroutine is typically called at the end of subroutine +\verb+ physiq +. \\ + +Example of a call to subroutine {\tt writeg1d} requesting +temperature output: +(\verb+ ngrid+ horizontal point, \verb+ nlayer + layers, variable +\verb+ pt + called ``T'' in K units): + +\begin{verbatim} + CALL writeg1d(ngrid,nlayer,pt,'T','K') +\end{verbatim} + + Index: /trunk/LMDZ.TITAN/DOC/run.tex =================================================================== --- /trunk/LMDZ.TITAN/DOC/run.tex (revision 1644) +++ /trunk/LMDZ.TITAN/DOC/run.tex (revision 1644) @@ -0,0 +1,654 @@ + +\chapter{Running the model: a practice simulation} + +\label{loc:contact1} + +This chapter is meant for first-time users of the LMD model. +As the best introduction to the model is surely to run a simulation, +here we explain how to go about it. +All you will need are files necessary to build the GCM (all are in +the {\tt LMDZ.GENERIC} directory) as well as some initial states +to initiate simulations (see below).\\ +Once you have followed the example given below, +you can then go on to change the control parameters and the initial states +as you wish. A more detailed description of the model's organization +as well as associated inputs and +outputs are given in sections~\ref{sc:info} and~\ref{sc:io}. + +\section{Installing the model from SVN} + +The first thing is to download the model from our SVN server. If you cannot use SVN, just find an old school way to get a copy of the basic model directory \verb"LMDZ.GENERIC" (and all the other source files needed for visualization) and download it to your account. Then start directly from the fifth point. + +\begin{description} +\item[$\bullet$] Go to the directory where you want to download the model. Not that only one directory (the root directory) will be added in the current directory. + +\item[$\bullet$] If svn is installed on your system, set up the root directory by tipping +\begin{verbatim} +svn co "http://svn.lmd.jussieu.fr/Planeto/trunk" -N Name_of_root_directory +cd Name_of_root_directory +\end{verbatim} + +\item[$\bullet$] You can now download one of the LMDZ models (for Generic, Mars, Venus, Titan, ...) by tipping +\begin{verbatim} +svn update LMDZ.MODEL_YOU_WANT +\end{verbatim} +For the Generic model, just tipe +\begin{verbatim} +svn update LMDZ.GENERIC +\end{verbatim} +The contents of the directory that has been created are described in Chapter \ref{loc:contenu}. + +\item[$\bullet$] For visualization of the simulations, yo will need some utilities that we might as well download now by doing +\begin{verbatim} +svn update UTIL +\end{verbatim} + +\item[$\bullet$] Now we must set up the {\tt makegcm} script that will perform the compilation of the model. Go into the {\tt LMDZ.GENERIC} directory and edit the appropriate \verb"makegcm_mycompiler" (hereafter called \verb"makegcm"), where \verb"mycompiler" is the compiler that you want to use. +There are two important environment variables concerning source files that are initialized by \verb"makegcm" and that we need to set properly: +\begin{enumerate} +\item \verb"LMDGCM", the path to the source files. By default, the line +\begin{verbatim} +setenv LMDGCM `readlink -f $scriptdir` +\end{verbatim} +allows \verb"makegcm" to assume that it is executed in the root source directory so that this should work without any change. If \verb"makegcm" does not find the source, you can enter manually the path by changing the above line by + \begin{verbatim} +setenv LMDGCM "path/to/source/directory/LMDZ.GENERIC" +\end{verbatim} +\item \verb"LIBOGCM", the path to the compilation directory where all object files will be kept. By default, the line +\begin{verbatim} +setenv LIBOGCM $LMDGCM/libo +\end{verbatim} +specifies that source will be kept in a \verb"libo" directory created in \verb"LMDZ.GENERIC". You can also change that if needed. +\end{enumerate} + +\item[$\bullet$]Install NetCDF +%\item {\bf -} \htmladdnormallink{Install NetCDF} +{http://www.unidata.ucar.edu/packages/netcdf/INSTALL.html} +and set environment variables \verb"NCDFINC" and \verb"NCDFLIB": + + \begin{description} + \item The latest version of the NetCDF package is available on the web at the following address: {http://www.unidata.ucar.edu/software/netcdf} + along with instructions for building (or downloading precompiled + binaries of) the library. + \item Once the NetCDF library has been compiled (or downloaded), + you should have access to the library {\tt libnetcdf.a} itself, + the various files ({\tt netcdf.inc}, {\tt netcdf.mod}, ...) + to include in programs, and basic NetCDF software ({\it ncdump} + and {\it ncgen}). + + \item To ensure that during compilation, the model can find the + NetCDF library and include files, + you must declare environment variables \verb"NCDFLIB" and \verb"NCDFINC". + + \item \verb"NCDFLIB" must contain the path to the directory containing + the object library {\tt libnetcdf.a} + and \verb"NCDFINC" must contain the path to the directory containing + the include files ({\tt netcdf.inc},...)\\ +As for \verb"LMDGCM" variable, these variables can be declared by changing the right line in \verb"makegcm" + \begin{verbatim} + setenv NCDFINC /wherever/is/netcdf/include + setenv NCDFLIB /wherever/is/netcdf/lib + \end{verbatim} +For example, if working at LMD and with \verb"ifort", the path is + \begin{verbatim} + setenv NCDFINC /donnees/emlmd/netcdf64-4.0.1_ifort/include + setenv NCDFLIB /donnees/emlmd/netcdf64-4.0.1_ifort/lib + \end{verbatim} + \end{description} + +\item[$\bullet$] Install software for loading and displaying NetCDF files + such as GrAdS (http://grads.iges.org/grads/), Ferret (http://ferret.wrc.noaa.gov/Ferret), or Python. Some visualization scripts, especially for Python, can be found in the +\verb"UTIL" directory and will be described later. + + +\item[$\bullet$] Finally, make sure that you have access to all the executables +needed for building and using the model and +remember to set environment variables to the correct corresponding pathes +(note that if you do not want to have to redefine these every session, +you should put the definitions in the corresponding {\tt .cshrc} or +{\tt .bashrc} files). + + \begin{description} + \item {\bf -} UNIX function {\it make} + \item {\bf -} a Fortran compiler + \item {\bf -} ncdump + \item {\bf -} grads (or ferret) + \end{description} + +\end{description} + + +\section{Installing the model without SVN} + + Create an alias so that the compilation script {\bf makegcm} + is available from anywhere (more convinient than having to type the full + path to the script, or copying it over where you want to run it). + The {\tt makegcm} script is in the LMDZ.GENERIC directory, which + is referenced by the {\bf LMDGCM} variable, so:\\ + If using Csh: + \begin{verbatim} + alias makegcm $LMDGCM'/makegcm' + \end{verbatim} + if using Bash: + \begin{verbatim} + alias makegcm=$LMDGCM/makegcm + \end{verbatim} + +\section{Compiling the LMDZ.GENERIC model (sequential only)} +\label{sc:run1} + +Two options exist to compile the model. +\begin{enumerate} +\item Create an alias so that the compilation script \verb"makegcm" + is available from anywhere. + If using Csh: + \begin{verbatim} + alias makegcm 'path/to/LMDZ.GENERIC/makegcm' + \end{verbatim} + if using Bash: + \begin{verbatim} + alias makegcm=path/to/LMDZ.GENERIC/makegcm + \end{verbatim} +Then the compilation is done by tipping + \begin{verbatim} +makegcm -options gcm + \end{verbatim} +This solution can be convenient but is less flexible if you want to compile the model in many different configurations and keep track of it. + +\item Create and edit an executable script (that we will call \verb"compile") in the directory where you will want to run the model. Put the line + \begin{verbatim} +/path/to/the/model/I/use/makegcm -options gcm + \end{verbatim} +The advantage of this option is that the \verb"compile" is present in all of the working directories where the model is ran, allowing you to keep track of the options used. +\end{enumerate} + +Just remains to choose the options. The basic options are as follows +\begin{verbatim} +makegcm -d LONxLATxALT -p std -t XX -s YY -b IRxVI gcm +\end{verbatim} +where \verb"LONxLATxALT" are the number of grid cells in longitude, latitude and altitude, \verb"XX" is the number of tracers, \verb"YY" is the number of scatterers that will be taken into account in the radiative code and \verb"IRxVI" is the number of spectral bands in the thermal emission and stellar part of the radiative code. The option \verb"-debug" is available with most compilers. The code runs much more slowly but can output more user friendly bug report messages. + +{\bf -} Example 1: Compiling the generic model at grid resolution 64x48x20 +for example, type (in compliance with the manual for the makegcm function +given in section~\ref{sc:compil1}) + +\begin{verbatim} +makegcm -d 64x48x20 -p std gcm +\end{verbatim} + +\noindent +You can find executable {\bf gcm.e} (the compiled model) in the directory +where you ran the makegcm command. + +{\bf -} Example 2: Compiling the generic model with 2 tracers +(e.g. water vapour and ice to simulate the water cycle): +\begin{verbatim} +makegcm -d 32x32x20 -t 2 -p std gcm +\end{verbatim} + +{\bf -} Example 3: +Compiling the the generic model to check for and trace errors (with ifort compiler - +useful for debugging - warning, the model then runs very slowly!): +\begin{verbatim} +makegcm -d 32x32x20 -p std -O "-g -fpe0 -traceback" gcm +\end{verbatim} +%********** +\section{Compiling the LMDZ.COMMON model (sequential or parallel)} +\label{sc:run1_common} +\begin{enumerate} +\item Prerequisites: +\begin{itemize} +\item[$\bullet$] Downloaded LMDZ.COMMON and LMDZ.OTHER\_MODEL containing the physic you want. +\item[$\bullet$] Available MPI library and wrapped compiler (mpif90, mpiifort,...) +\item[$\bullet$] Optional (but recommended) fcm: +\begin{itemize} +\item LMD: /distrib/local/fcm/bin +\item Ciclad: /home/millour/FCM\_V1.2/bin +\item Gnome: /san/home/millour/FCM\_V1.2/bin +\item Other: fcm is just a collection of perl scripts; can be copied over on any other machine, or simply downloaded using svn:\\ +svn checkout http://forge.ipsl.jussieu.fr/fcm/svn/PATCHED/FCM\_V1.2 +\end{itemize} +\end{itemize} +\item Then choose the physic you want to couple with the LMDZ.COMMON dynamic core by creating a symbolic link in the LMDZ.COMMON/libf directory.\\ +If you want to use mars physic: +\begin{verbatim} +cd LMDZ.COMMON/libf +ln -s path/to/LMDZ.MARS/libf/phymars . +ln -s path/to/LMDZ.MARS/libf/aeronomars . +\end{verbatim} +Here, we want the LMDZ.GENERIC physic phystd: +\begin{verbatim} +cd LMDZ.COMMON/libf +ln -s path/to/LMDZ.GENERIC/libf/phystd . +\end{verbatim} +\item To compile in LMDZ.COMMON directory: +\begin{verbatim} +./makelmdz_fcm -s XX -t XX -d LONxLATxALT -b IRxVI -p physicSuffix +-arch archFile [-parallel mpi/mpi_omp] gcm +\end{verbatim} +\begin{itemize} +\item[$\bullet$] \textbf{physicSuffix} is \verb|mars| for phymars, \verb|std| for phystd... +\item[$\bullet$] \textbf{archFile} is the name of configuration files from LMDZ.COMMON/arch: use \verb|CICLADifort| the ifort compiler in a CICLAD environment, \verb|X64_ADA| for the ADA architecture... +\item[$\bullet$] To compile in parallel with mpi, add \verb|-parallel mpi| option. By default it is serial code. +\item[$\bullet$] For hybrid MPI-OpenMP parallelisation, add \verb|-parallel mpi_omp| option. +\item[$\bullet$] For faster compilation, the option \verb|-j N| uses N simultaneous tasks. +\item[$\bullet$] \verb|-full| option forces full (re)-compilation from scratch. +\item[$\bullet$] Created program is in LMDZ.COMMON/bin directory, with dimensions included in the program name. e.g.: gcm\_64x48x29\_phymars\_para.e +\end{itemize} +\end{enumerate} +NB: It is possible to compile without fcm by replacing \verb|makelmdz_fcm| by \verb|makelmdz|. Created program is in LMDZ.COMMON directory and named gcm.e. +%********** +\section{Input files (initial states and def files)} +{\bf -} In directory \verb+LMDZ.GENERIC/deftank+ +you will find some examples of run +parameter files ({\tt .def} files) which the model needs at runtime. +The four files the model requires (they must be in the same directory as the +executable {\tt gcm.e}) are: +{\bf run.def} (described in +section~\ref{loc:entrees}) {\bf callphys.def} +(see section~\ref{sc:callphys.def}), +{\bf gases.def}, {\bf z2sig.def} and {\bf traceur.def}.\\ + +The example {\tt .def} files given in the {\tt deftank} directory +are for various configurations (e.g. model resolution, planet type), copy (and eventually +rename these files to match the generic names) to the directory where +you will run the model.\\ + +\noindent +{\bf -} Copy initial condition files +{\bf start.nc} and {startfi.nc} (described in section +\ref{loc:entrees}) to the same directory.\\ +You can extract such files from {\bf start\_archive} +`banks of initial states' (i.e. files which +contain collections of initial states from +stndard scenarios and which can thus be used +to check if the model is installed correctly) stored on the LMD website at\\ +\verb+http://www.lmd.jussieu.fr/~forget/datagcm/Starts+. +See section~\ref{sc:newstart} for a description of how to proceed to +extract {\bf start} files from {\bf start\_archives}.\\ + +[NOTE: WITH THE GENERIC MODEL WE ALMOST ALWAYS START FROM ``startplanet'' FILES] +%********** +\section{Running the model} +\begin{figure} +\centerline{\framebox[1.4\textwidth][c]{\includegraphics[width=1.2\textwidth]{Fig/inout.eps}}} +\caption{Input/output data} +\label{fig:inout} +\end{figure} + +IMPORTANT: The following line MUST be in file run.def (or callphys.def): +\begin{verbatim} +planet_type = mars +\end{verbatim} +for using LMDZ.MARS model or +\begin{verbatim} +planet_type = generic +\end{verbatim} +for using LMDZ.GENERIC model. + +\begin{itemize} +\item[$\bullet$] To run the serial {\bf gcm.e} interactively:\\ +Once you have the program {\bf gcm.e}, +input files {\bf start.nc} {\bf startfi.nc}, +and parameter files {\bf run.def, callphys.def, gases.def, traceur.def, and z2sig.def} +in the same directory, simply execute the program to run a simulation: +\begin{verbatim} +gcm.e +\end{verbatim} + +You might need more memory. Use \verb|ulimit -s unlimited| to change user limits.\\ +You might also want to keep all messages and diagnostics written to standard +output (i.e. the screen). You should then redirect the standard output +(and error) to some file, e.g. {\tt gcm.out}:\\ +If using Csh: +\begin{verbatim} +gcm.e >! gcm.out +\end{verbatim} +If using Bash: +\begin{verbatim} +gcm.e > gcm.out 2>&1 +\end{verbatim} + + +\item [$\bullet$] To run the MPI-parallel {\bf gcm.e} interactively: +\begin{verbatim} +mpirun -np N gcm.e > gcm.out 2>&1 +\end{verbatim} +\verb|-np N| specifies the number of procs to run on.\\ +IMPORTANT: one MUST use the \verb|mpirun| command corresponding to the \verb|mpif90| compiler specified in the \verb|arch| file.\\ +Output files (restart.nc, diagfi.nc ,etc.) are just as when running in serial. But standard output messages are written by each process.\\ +If using chained simulations (run\_mcd/run0 scripts), then the command line to run the gcm in \verb|run0| must be adapted for local settings.\\ +NB: LMDZ.COMMON dynamics set to run in double precision, so keep \verb|NC_DOUBLE| declaration (and real to double precision promotion) in the arch files. +\item [$\bullet$] To run the hybrid parallel {\bf gcm.e} interactively: +\begin{verbatim} +export OMP_NUM_THREADS=2 +export OMP_STACKSIZE=2500MB +mpirun -np 2 gcm.e > gcm.out 2>&1 +\end{verbatim} +In this exemple, each of the 2 process MPI have 2 OpenMP tasks with a 2500MB memory. +\item[$\bullet$] To run the MPI-parallel {\bf gcm.e} with a job scheduler (different on each machine): +\begin{verbatim} +PBS example (on Ciclad): +#PBS -S /bin/bash +#PBS -N job_mpi08 +#PBS -q short +#PBS -j eo +#PBS -l "nodes=1:ppn=8" +# go to directory where the job was launched +cd $PBS_O_WORKDIR +mpirun gcm_64x48x29_phymars_para.e > gcm.out 2>&1 +\end{verbatim} +\begin{verbatim} +LoadLeveler example (on Gnome): +# @ job_name = job_mip8 +# standard output file +# @ output = job_mpi8.out.$(jobid) +# standard error file +# @ error = job_mpi8.err.$(jobid) +# job type +# @ job_type = mpich +# @ blocking = unlimited +# time +# @ class = AP +# Number of procs +# @ total_tasks = 8 +# @ resources=ConsumableCpus(1) ConsumableMemory(2500 mb) +# @ queue +set -vx +mpirun gcm_32x24x11_phymars_para.e > gcm.out 2>&1 +\end{verbatim} +\begin{verbatim} +LoadLeveler example (on Ada): +module load intel/2012.0 +# @ output = output.$(jobid) +# @ error = $(output) +# @ job_type = parallel +## Number of MPI process +# @ total_tasks = 8 +## Memory used by each MPI process +# @ as_limit = 2500mb +# @ wall_clock_limit=01:00:00 +# @ core_limit = 0 +# @ queue +set -x +poe ./gcm.e -labelio yes > LOG 2>&1 +\end{verbatim} +\item[$\bullet$] To run the hybrid MPI/OpenMP-parallel {\bf gcm.e} with a job scheduler (different on each machine): +\begin{verbatim} +LoadLeveler example (on Gnome): +# @ job_name = job_mip8 +# standard output file +# @ output = job_mpi8.out.$(jobid) +# standard error file +# @ error = job_mpi8.err.$(jobid) +# job type +# @ job_type = mpich +# @ blocking = unlimited +# time +# @ class = AP +# Number of procs +# @ total_tasks = 8 +# @ resources=ConsumableCpus(1) ConsumableMemory(5000 mb) +# @ queue +set -vx +export OMP_NUM_THREADS=2 #sinon par defaut, lance 8 threads OpenMP +export OMP_STACKSIZE=2500MB +mpirun gcm_32x24x11_phymars_para.e > gcm.out 2>&1 +\end{verbatim} +IMPORTANT: ConsumableMemory must be equal to OMP\_NUM\_THREADSxOMP\_STACKSIZE.\\ +In this case, we are using 8x2 cores. +\begin{verbatim} +LoadLeveler example (on Ada): +module load intel/2012.0 +# @ output = output.$(jobid) +# @ error = $(output) +# @ job_type = parallel +## Number of MPI process +# @ total_tasks = 8 +## Number of OpenMP tasks attached to each MPI process +# @ parallel_threads = 2 +## Memory used by each MPI process +# @ as_limit = 5gb +# @ wall_clock_limit=01:00:00 +# @ core_limit = 0 +# @ queue +set -x +export OMP_STACKSIZE=2500MB +poe ./gcm.e -labelio yes > LOG 2>&1 +\end{verbatim} +IMPORTANT: In this case, each core needs 2.5gb and we are using 2 OpenMP tasks for each MPI process so $\verb|as_limit|=2 \times 2.5$. +\end{itemize} +%********** +\section{Visualizing the output files} + +As the model runs it generates output files {\bf diagfi.nc} and +{\bf stats.nc} files. The former contains instantaneous values of +various fields and the later statistics (over the whole run) of some +variables. + +\subsection{Using GrAds to visualize outputs} +If you have never used the graphic software {\bf GrAds}, we strongly +recommend spending half an hour to familiarize yourself with it by following +the demonstration provided for that purpose. +The demo is fast and easy to follow and you will learn the basic commands. +To do this read file +\begin{verbatim} +/distrib/local/grads/sample +\end{verbatim} + +For example, to visualize files {\tt diagfi.nc} and {\tt stats.nc} + +NetCDF files {\tt diagfi.nc} and {\tt stats.nc} can be accessed directly +using GrAdS thanks to utility program gradsnc, +(the user does not need to intervene).\\ + +\noindent +To visualize the temperature in the 5th layer using file +{\tt diagfi.nc} for example: +\label{loc:visu} + +\begin{description} +\item {\bf -} GrAdS session: + + \begin{description} + \item \verb+grads+ {\it return} + + \item {\it return} (opens a landscape window) + + \item \verb+ga-> sdfopen diagfi.nc+ + + \item \verb+ga-> query file+ (displays info about the open file, including the name of the stored variables. Shortcut: {\it q file}) + + \item \verb+ga-> set z 5+ (fixes the altitude to the 5th layer) + + \item \verb+ga-> set t 1+ (fixes the time to the first stored value) + + \item \verb+ga-> query dims+ (indicates the fixed values for the 4 + dimensions. Shortcut: {\it q dims}) + + \item \verb+ga-> display temp+ (displays the temperature card for the 5th layer and for the first time value stored. Shortcut: {\it d + T}) + + \item \verb+ga-> clear+ (clears the display. Shortcut: {\it c}) + + \item \verb+ga-> set gxout shaded+ (not a contour plot, but a shaded one) + + \item \verb+ga-> display temp+ + + \item \verb+ga-> set gxout contour+ (returns to contour mode to display the levels) + + \item \verb+ga-> display temp+ (superimposes the contours if the clear command is not used) + + \end{description} +\end{description} + + + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +\section{Resuming a simulation} +At the end of a simulation, the model generates {\bf restart} files +(files {\tt restart.nc} and {\tt restartfi.nc}) +which contain the final state of the model. +As shown in figure~\ref{fig:inout}, +these files (which are of the same format as the start files) +can later be used as initial +states for a new simulation.\\ + +\noindent +The {\bf restart} files just need to be renamed: +\begin{verbatim} +mv restart.nc start.nc +mv restartfi.nc startfi.nc +\end{verbatim} +\noindent +and running a simulation with these will in fact resume the simulation +from where the previous run ended. + +\section{Chain simulations} + +In practice, we recommend running a chain of simulations lasting several +days or longer (or hundreds of days at low resolution). + +To do this, a script named {\tt run0} is available in +\verb+LMDZ.GENERIC/deftank+ , which should be used as follows: +\begin{itemize} +\item Set the length of each simulation in {\tt run.def} + (i.e. set the value of {\tt nday}) +\item Set the maximum number of simulations at the beginning of the {\tt run0} +script (i.e. set the value of {\tt nummax}) +\item Copy start files {\tt start.nc startfi.nc} over and rename them + {\tt start0.nc startfi0.nc}. +\item Run script {\tt run0} +\end{itemize} + +{\tt run0} runs a series of simulations that generate the indexed output +files (e.g. {\tt start1, startfi1, diagfi1}, etc.) +including files {\tt lrun1, lrun2}, etc. containing the redirection of the +display and the information about the run. + +{\it NOTE:} to restart a series of simulations after a first series +(for example, starting from {\tt start5 and startfi5}), just write the +index of the initial files (e.g. 5) in the file named {\tt num\_run}. +If {\tt num\_run} exists, the model will start from the index written in +{\tt num\_run}. If not it will start from, {\tt start0 and startfi0}. + + +{\it NOTE}: A script is available for performing annual runs with 12 seasons +at 30$^o$ solar longitude +as it is in the database (script {\bf \tt run\_mcd}, also found in directory +{\tt deftank}). +This script functions with script run0. Just set the number of simulations to +1 in run0. Then copy run.def into run.def.ref and set nday to 9999 in this +file. To start from startN.c, edit the file run\_mcd and comment +(with a \#) the N months already created and describe N in {\tt num\_run}. +Then run {\bf \tt run\_mcd}. + + +\section{Creating and modifying initial states} + +\label{sc:newstart} + +\subsection{Using program ``newstart''} + +When working with the generic model, it is common to start with simple initial conditions (e.g., isothermal, motionless atmosphere). For this we create an initial state using {\bf newstart}. In practice, we usually take an old initial state, and simply modify it. + +Like the GCM, the program {\bf newstart} must be compiled (using the {\tt makegcm} script) to the required grid resolution. +For example: +\begin{verbatim} +makegcm -d 32x32x20 -p std newstart +\end{verbatim} + +Then run + +\begin{verbatim} +newstart.e +\end{verbatim} + +The program then gives you two options: + +\begin{verbatim} + From which kind of files do you want to create newstart and startfi files + 0 - from a file start_archive + 1 - from files start and startfi +\end{verbatim} + +\begin{itemize} +\item{-} Option ``1'' allows you to read and modify the information needed +to create a new initial state from the files +\verb+ start.nc, startfi.nc + +\item{-} Option ``0'' allows you to read and modify the information needed to +create a new initial state from file +\verb+ start_archive.nc + (whatever the \verb+ start_archive.nc + +grid resolution is).\\ +\end{itemize} +If you use tracers, make sure that they are taken into account in your +start files (either start or start\_archive).\\ \\ +Then answer to the various questions in the scroll menu. +These questions allow you to modify the initial state for the following +parameters.\\ + + +\input{input/questions_inistate.tex} + +Program {\bf newstart.e} creates files +{\tt restart.nc} and {\tt restartfi.nc} +that you generally need to rename (for instance rename them in start0.nc +and startfi0.nc if you want to use run0 or run\_mcd, starting with season 0; +rename them {\tt start.nc} and {\tt startfi.nc} if you just want to perform +one run with {\tt gcm.e}). + + +\subsection{Creating the initial start\_archive.nc file } + +Archive file +{\tt start\_archive.nc} is created from files +{\tt start.nc} and {\tt startfi.nc} by program {\bf start2archive}. +Program {\bf start2archive} compiles to the same grid resolution as the +{\tt start.nc} and {\tt startfi.nc} grid resolution. For example: + +\begin{verbatim} +makegcm -d 32x32x20 -p std start2archive +\end{verbatim} +Then run \verb+ start2archive.e+ \\ \\ +You now have a \verb+ start_archive.nc+ file for one season that you can +use with newstart. +If you want to gather other states obtained at other times of year, rerun +{\tt start2archive.e} with the {\tt start.nc} and {\tt startfi.nc} + corresponding to these. +These additional initial states will automatically be added to the +{\tt start\_archive.nc} file present in the directory. + +\subsection{Changing the horizontal or vertical grid resolution} + +To run at a different grid resolution than available initial conditions +files, one needs to use tools {\bf newstart} and {\bf start2archive} + +For example, to create initial states at grid resolution +32$\times$24$\times$25 from NetCDF files +\verb+ start + and \verb+ startfi + at grid resolution + 64$\times$48$\times$32 : + +\begin{itemize} +\item Create file \verb+ start_archive.nc + +with {\bf start2archive.e} compiled at grid resolution +64$\times$48$\times$32 using {\bf old file {\tt z2sig.def} + used previously} + +\item Create files +{\tt newstart.nc} and {\tt newstartfi.nc} + with {\bf newstart.e} +compiled at grid resolution 32$\times$24$\times$25, +using {\bf new file {\tt z2sig.def}} + +\end{itemize} + +[NOT RELEVANT??] +If you want to create starts files with tracers for 50 layers using a +{\tt start\_archive.nc} obtained for 32 layers, do not forget to use the +\verb+ ini_q+ option in newstart in order to correctly initialize tracers +value for layer 33 to layer 50. +You just have to answer yes to the question on thermosphere initialization +if you want to initialize the thermosphere part only (l=33 to l=50), +and no if you want to initialize tracers for all layers (l=0 to l=50).\\ \\ + Index: /trunk/LMDZ.TITAN/DOC/sol2ls.tex =================================================================== --- /trunk/LMDZ.TITAN/DOC/sol2ls.tex (revision 1644) +++ /trunk/LMDZ.TITAN/DOC/sol2ls.tex (revision 1644) @@ -0,0 +1,76 @@ +\chapter{GCM Martian Calendar} + +\label{sc:sol2ls} + + +For Mars, dates and seasons are expressed in Solar Longitude ($L_s$, +in degrees or in radians) counting from the northern hemisphere spring equinox. +In the GCM, time is counted in Martian solar days, or ``sols'' +(1 sols = 88775 s) from the northern spring equinox. +The following table gives the correspondence between sols and $L_s$, +calculated for the GCM using one Martian year = 669 sols exactly. + +\vspace{0.5cm} + +\footnotesize + +\hspace*{-2.cm}\begin{tabular}{|c|c|c||c|c|c||c|c|c|} +\hline + sol & $L_s$ & & sol & $L_s$ & & sol & $L_s$ & \\ +\hline + 0. & 360.000 & Spring equinox N &240. & 111.455& &480. & 247.408& \\ + 5. & 2.550 & &245. & 113.816& &485. & 250.666& \\ + 10. & 5.080 & &250. & 116.190& &490. & 253.925& \\ + 15. & 7.590 & &255. & 118.578& &495. & 257.182& \\ + 20. & 10.081 & &260. & 120.981& &500. & 260.435& \\ + 25. & 12.554 & &265. & 123.400& &505. & 263.683& \\ + 30. & 15.009 & &270. & 125.835& &510. & 266.924& \\ + & & & & & &514.76 & 270.& Winter solstice N \\ + 35. & 17.447 & &275. & 128.287& &515. & 270.156& \\ + 40. & 19.869 & &280. & 130.756& &520. & 273.377& \\ + 45. & 22.275 & &285. & 133.243& &525. & 276.587& \\ + 50. & 24.666 & &290. & 135.750& &530. & 279.783& \\ + 55. & 27.043 & &295. & 138.275& &535. & 282.965& \\ + 60. & 29.407 & &300. & 140.821& &540. & 286.130& \\ + 65. & 31.758 & &305. & 143.388& &545. & 289.277& \\ + 70. & 34.096 & &310. & 145.975& &550. & 292.406& \\ + 75. & 36.423 & &315. & 148.585& &555. & 295.515& \\ + 80. & 38.739 & &320. & 151.217& &560. & 298.604& \\ + 85. & 41.046 & &325. & 153.872& &565. & 301.671& \\ + 90. & 43.343 & &330. & 156.550& &570. & 304.715& \\ + 95. & 45.631 & &335. & 159.251& &575. & 307.737& \\ +100. & 47.912 & &340. & 161.977& &580. & 310.735& \\ +105. & 50.186 & &345. & 164.727& &585. & 313.709& \\ +110. & 52.453 & &350. & 167.502& &590. & 316.658& \\ +115. & 54.714 & &355. & 170.301& &595. & 319.583& \\ +120. & 56.970 & &360. & 173.126& &600. & 322.483& \\ +125. & 59.222 & &365. & 175.975& &605. & 325.358& \\ +130. & 61.471 & &370. & 178.850& &610. & 328.207& \\ + . & & &371.99 & 180. & Autumn equinox N & . & & \\ +135. & 63.716 & &375. & 181.750& &615. & 331.032& \\ +140. & 65.959 & &380. & 184.675& &620. & 333.831& \\ +145. & 68.201 & &385. & 187.624& &625. & 336.606& \\ +150. & 70.442 & &390. & 190.598& &630. & 339.356& \\ +155. & 72.683 & &395. & 193.596& &635. & 342.082& \\ +160. & 74.925 & &400. & 196.618& &640. & 344.783& \\ +165. & 77.168 & &405. & 199.662& &645. & 347.461& \\ +170. & 79.413 & &410. & 202.729& &650. & 350.116& \\ +175. & 81.661 & &415. & 205.818& &655. & 352.748& \\ +180. & 83.912 & &420. & 208.927& &660. & 355.357& \\ +185. & 86.167 & &425. & 212.056& &665. & 357.945& \\ + & & & & & &669. & 0.& Spring equinox N \\ +190. & 88.427 & &430. & 215.203& &670. & 0.512& \\ +193.47 & 90. & Summer solstice N & & & & & & \\ +195. & 90.693 & &435. & 218.368& &675. & 3.057& \\ +200. & 92.965 & &440. & 221.549& &680. & 5.583& \\ +205. & 95.245 & &445. & 224.746& &685. & 8.089& \\ +210. & 97.532 & &450. & 227.955& &690. & 10.577& \\ +215. & 99.827 & &455. & 231.177& &695. & 13.046& \\ +220. & 102.131 & &460. & 234.409& &700. & 15.498& \\ +225. & 104.446 & &465. & 237.650& &705. & 17.933& \\ +230. & 106.770 & &470. & 240.898& &710. & 20.351& \\ +235. & 109.107 & &475. & 244.151& &715. & 22.755& \\ +240. & 111.455 & &480. & 247.408& &720. & 25.143& \\ +\hline + +\end{tabular} Index: /trunk/LMDZ.TITAN/DOC/test.tex =================================================================== --- /trunk/LMDZ.TITAN/DOC/test.tex (revision 1644) +++ /trunk/LMDZ.TITAN/DOC/test.tex (revision 1644) @@ -0,0 +1,105 @@ +% +% +% Test comportement LATEX et LATEX2HTML +% +% +% +\documentclass[dvips]{report} +\usepackage{makeidx} +\usepackage{a4} +\usepackage{graphicx} +% +% Pour definir un paragraph avec retour a la ligne +\usepackage{loc} +% +\usepackage{html,htmllist} +% \usepackage{times} +\scrollmode +% use %sort -f -u manual.idx > manual.index for a primitive index +% +% NOTE: You must use LaTeX2e in order to process this document +% If you do not have LaTeX2e, a PostScript version +% (manual.ps) is included with this distribution. +% +%%%%%%%%%%%%%%%%%%% No changes beyond this point %%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +\makeindex +\sloppy +% Transforms the \indexentry generated by \makeindex in the concepts.idx +% file into a form understood by the theindex environment. +% See below on how to produce an index. +% +\newcommand{\latextohtml}{\LaTeX 2\texttt{HTML}} +\newcommand{\fn}[1]{{\ttfamily #1}} % file names +\newcommand{\Email}[1]{{\ttfamily <#1>}}% file names +\newcommand{\HTML}[1]{{\ttfamily <#1>}}% HTML tag +\newcommand{\Meta}[1]{\texttt{<\emph{#1}>}}% Meta string +\newcommand{\indexentry}[2]{\item #1 #2} +\def\contrat{contrat numero N de l'ESA} +\newcommand{\onlinedoc}{http://www-dsed.llnl.gov/files/programs/unix/latex2html/manual/} +\newcommand{\patches}{http://www-dsed.llnl.gov/files/programs/unix/latex2html} +\newcommand{\sourceA}{ftp://www-dsed.llnl.gov/files/programs/unix/latex2html/sources/latex2html-96.1.tar.gz} +\newcommand{\sourceB}{ftp://ftp.mpn.com/pub/nikos/latex2html-96.1.tar.gz} +\newcommand{\sourceC}{ftp://ftp.rzg.mpg.de/outgoing/latex2html-96.1.tar.gz} +\newcommand{\CTAN}{tex-archive/support/latex2html} + +%\setlength{\textwidth}{5.5in} +%\setlength{\textwidth}{16cm} +%\setlength{\changebarwidth}{1pt} +%\addtolength{\oddsidemargin}{-1in} +%\addtolength{\oddsidemargin}{-2cm} +%\addtolength{\evensidemargin}{-1in} +%\addtolength{\evensidemargin}{-2cm} + +% numero de la derniere section numerotee +\setcounter{secnumdepth}{3} +% numero de la derniere section a apparaitre dans la table des matieres +\setcounter{tocdepth}{3} + + +\begin{document} +\bibliographystyle{abbrv} + +\input{def} +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% variables definies pour doc Terre ou Mars + +\def\planete{mars} +\def\italique{{\it mars}} +\def\planeteX{mars/} +\def\STARTFI{startfi} +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + + + + +planete sans espace -\planete-\\ +italique -\italique-\\ +planete en italique -{\it \planete}-\\ + +planeteX sans espace -\planeteX-\\ +planete avec espace -\planete -\\ +planete avec / -\planete/coucou\\ +STARTFI sans espace -\STARTFI-\\ +STARTFI avec espace -\STARTFI -\\ + + +% lorsqu'on appelle une variable definie au prealable dans une nouvelle +%commande, latex2html ajoute un blanc apres cette variable. + +\def\OK#1#2{\planete/#1/#2.html} +ecrit OK: \OK{dyn3d}{lectba}\\ +ecrit OK: mars/dyn3d/lectba.html\\ + +ATTENTION: latex2html n'aime pas les \def\nom ou nom contient un +chiffre!\\ + + +\def\sourceF#1#2{\htmladdnormallink{#2}{#1}} + + +\sourceF{dyn3d}{lectba} + +\end{document} Index: /trunk/LMDZ.TITAN/DOC/utilities.tex =================================================================== --- /trunk/LMDZ.TITAN/DOC/utilities.tex (revision 1644) +++ /trunk/LMDZ.TITAN/DOC/utilities.tex (revision 1644) @@ -0,0 +1,81 @@ +\chapter{Utilities} + +\label{sc:utilities} + +A few post-processing tools, which handle GCM outputs (files +{\tt diagfi.nc} and {\tt stats.nc}) are available on the web at:\\ +\verb+http://www.lmd.jussieu.fr/~forget/datagcm/Utilities/+\\ +The directory contains compiled executables (\verb+*.e+ files) of the tools +decribed below, along with some examples of input instruction +(\verb+*.def+ files) and a \verb+README+.\\ +There is also a \verb+SOURCES+ directory which contains the (Fortran) +sources of the codes, if you should need to recompile them +on your platform. + +\section{concatnc} +This program concatenates consecutive +output files ({\tt diagfi.nc} or even {\tt stats.nc} files) for a selection of +variable, in order to obtain one single big file. +The time dimension of the output can +be "sols" or "Ls" (note that in that latter case, Ls values won't be +evenly distributed, and +software like Grads may not be able to use and plot the data).\\ +To obtain an evenly sampled "Ls" +timescale, you can use the {\tt lslin.e} program (described below).\\ +The output file created by {\tt conctanc.e} is {\tt concat.nc} + +\section{lslin} + +This program is designed to interpolate data given +in irregular Solar Longitude (Ls) into an evenly sampled +linear time coordinate (usable with Grads). +Input Netcdf files may be {\tt diagfi.nc} or {\tt concat.nc} +files and the resulting +output file is {\tt lslin.nc} +lslin also create a {\tt lslin.ctl} file that can be read +directly by grads (\verb+>xdfopen lslin.ctl+) to plot in Ls coordinate to +avoid some problem with grads when Grads think that "the time interval +is too small"... + +\section{localtime} + +The {\tt localtime.e} program is designed to re-interpolate data in order +to yield values at the same given local time (useful to mimic satellite +observations, or analyse day to day variations at given local time).\\ +Input files may be of {\tt diagfi.nc}, {\tt stats.nc} or {\tt concat.nc} +type and the output file name is build from the input one, to which +{\tt \_LT.nc} is appened (e.g. if the input file is {\tt myfile.nc} then +output file will be {\tt myfile\_LT.nc}). + +\section{zrecast} +With this program you can recast atmospheric (i.e.: 4D-dimentional +longitude-latitude-altitude-time) data from GCM outputs (e.g. as given in +{\tt diagfi.nc}, {\tt concat.nc} and {\tt stats.nc} files) onto +either {\it pressure} or {\it altitude above areoid} vertical coordinates.\\ +Since integrating the hydrostatic equation is required to recast the data, +the input file must contain surface pressure and atmospheric temperature, +as well as the ground geopotential.\\ +If recasting data onto {\it pressure} coordinates, then the output file name +is given by the input file name to which {\tt\_P.nc} will be appened. +If recasting data onto {\it altitude above areoid} coordinates, then a +{\tt\_A.nc} will be appened. + + +%\section{How to concat diagfi files?} +%In the directory concatnc (available on the web at +%http://www.lmd.jussieu.fr/\verb+~+forget/datagcm/Utilities/), +%you will find a tool to concat the diagfi files. +%To compile, juste type "make" +%(make sure the makefile is updated: FC= pgf90 for PC and FC= f90 for suns).\\ \\ +%run concatnc.e \\ \\ +%Your data are in concat.nc +% +%\section{How to convert your output in pressure coordinates?} +%In your working directory, compile at the correct grid resolution, which is +%the same as the one of your output files (stats or diagfi).\\ \\ +%makegcm -d 64x48x32 -p mars anl\_stats-diag \\ \\ +%run anl\_stats-diag.e +%Your data in pressure coordinate will be in the resuting diagfi.nc +%(or stats.nc). \\ +%If needed, you can change the source file anl\_stats-diag.F in +%yourpath/LMDZ.MARS/libf/dyn3d Index: /trunk/LMDZ.TITAN/DOC/water.tex =================================================================== --- /trunk/LMDZ.TITAN/DOC/water.tex (revision 1644) +++ /trunk/LMDZ.TITAN/DOC/water.tex (revision 1644) @@ -0,0 +1,41 @@ +\chapter{Water Cycle Simulation} + +\label{sc:water} + +To simulate the water cycle with the LMD Generic Model: + +\begin{itemize} +\item In {\tt callphys.def}, set tracer to true: {\tt tracer=.true.}. In the radiative +transfer sub-section, chose an appropriate correlated-k database that includes the effect +of water vapour (e.g. {\tt corrkdir=CO2H2Ovar}), and set {\tt varactive=.true.}, {\tt varfixed=.false.}. +In the water cycle sub-section you can chose various parameters - see below for a standard example. + +\input{input/h2o_list.tex} + +\item You need to compile with at least 2 tracers. If you don't have CO2 clouds, +dust or other tracers, compilation is done with the command lines: +\begin{verbatim} +makegcm -d 64x48x20 -t 2 -p std -b 32x36 newstart +\end{verbatim} +\begin{verbatim} +makegcm -d 64x48x20 -t 2 -p std -b 32x36 gcm +\end{verbatim} + +Of course, you will also need an appropriate {\tt traceur.def} file +indicating you will use tracers {\tt h2o\_vap} and {\tt h2o\_ice}; +if you only run with 2 tracers, then the contents of the {\tt traceur.def} +file should be: +\begin{verbatim} +2 +h2o_ice +h2o_vap +\end{verbatim} +Note that the order in which tracers are set in the {\tt traceur.def} file +is not important. + +\item {\bf Run} \\ \\ +Same as usual. Just make sure that your start files contains +the initial states for water, with an initial state for water vapour / ice +in the atmosphere and ice / liquid on the surface. + +\end {itemize} Index: /trunk/LMDZ.TITAN/DOC/water.tex.sav =================================================================== --- /trunk/LMDZ.TITAN/DOC/water.tex.sav (revision 1644) +++ /trunk/LMDZ.TITAN/DOC/water.tex.sav (revision 1644) @@ -0,0 +1,52 @@ +\chapter{Water Cycle Simulation} + +\label{sc:water} + +To simulate the water cycle with the LMD Generic Model: + +\begin{itemize} + + +\item In {\tt callphys.def}, set tracer to true: {\tt tracer=.true.}. In the radiative +transfer sub-section, chose an appropriate correlated-k database that includes the effect +of water vapour (e.g. {\tt corrkdir=CO2_H2Ovar}), and set {\tt varactive=.true.}, {\tt varfixed=.false.}. + +The important parameters are {\tt water=.true.}, to use water vapor +and ice tracers, and {\tt sedimentation=.true.} to +allow sedimentation of water ice clouds. + +In {\tt traceur.def}, include (at least) two tracers: {\tt h2o_ice} and {\tt h2o_vap}. + +\input{input/h2o_list.tex} + +\item {\bf Compilation} +You need to compile with at least 2 tracers. If you don't have CO2 clouds, +({\tt dustbin=0}) or other tracers, +compilation is done with the command lines: +\begin{verbatim} +makegcm -d 64x48x25 -t 2 -p std newstart +\end{verbatim} +\begin{verbatim} +makegcm -d 64x48x25 -t 2 -p std gcm +\end{verbatim} + +Of course, you will also need an appropriate {\tt traceur.def} file +indicating you will use tracers {\tt h2o\_vap} and {\tt h2o\_ice}; +if you only run with 2 tracers, then the contents of the {\tt traceur.def} +file should be: +\begin{verbatim} +2 +h2o_ice +h2o_vap +\end{verbatim} +Note that the order in which tracers are set in the {\tt traceur.def} file +is not important. + +\item {\bf Run} \\ \\ +Same as usual. Just make sure that your start files contains +the initial states for water, with an initial state for water vapor +and water ice particles. + +[+LIQUID] + +\end {itemize} Index: /trunk/LMDZ.TITAN/DOC/zoom.tex =================================================================== --- /trunk/LMDZ.TITAN/DOC/zoom.tex (revision 1644) +++ /trunk/LMDZ.TITAN/DOC/zoom.tex (revision 1644) @@ -0,0 +1,121 @@ +\chapter{Zoomed simulations} + +\label{sc:zoom} + +The LMD GCM can use a zoom to enhance the resolution locally. +In practice, one can +increase the latitudinal resolution on the one hand, +and the longitudinal resolution on +the other hand. + +\section{To define the zoomed area} + +The zoom is defined in {\tt run.def}. +Here are the variables that you want to set: + +\begin{itemize} +\item East longitude (in degrees) of zoom center {\tt clon} +\item latitude (in degrees) of zoom center {\tt clat} +\item zooming factors, along longitude {\tt grossismx}. + {\it Typically 1.5, 2 or even 3 (see below)} +\item zooming factors, along latitude {\tt grossismy}. {\it Typically 1.5, 2 +or even 3 (see below)} +\item {\tt fxyhypb}: + {\it {\bf must be set to "T" for a zoom}, whereas it must be F otherwise} +\item extention in longitude of zoomed area {\tt dzoomx}. + This is the total + longitudinal extension of the zoomed region (degree). \newline + {\it It is recommended that {\tt grossismx} $\times$ + {\tt dzoomx} $< 200^o$} +\item extention in latitude of the zoomed region {\tt dzoomy}. + This is the total + latitudinal extension of the zoomed region (degree). \newline + {\it It is recommended that {\tt + grossismy} $\times$ {\tt dzoomy} $< 100^o$} +\item stiffness of the zoom along longitudes {\tt taux}. + 2 is for a smooth transition in + longitude, more means sharper transition. +\item stiffness of the zoom along latitudes {\tt taux}. + 2 is for a smooth transition in + latitude, more means sharper transition. +\end{itemize} + +\section{Making a zoomed initial state} + +One must start from an initial state archive {\tt start\_archive.nc} +obtained from a previous +simulation (see section~\ref{sc:newstart}) +Then compile and run {\tt newstart.e} {\bf using the {\tt run.def} +file designed for the zoom}. + +After running {\tt newstart.e}. The zoomed grid may be visualized +using grads, for instance. +Here is a grads script that can be used to map the grid above a topography +map: + +\begin{verbatim} +set mpdraw off +set grid off +sdfopen restart.nc +set gxout grid +set digsiz 0 +set lon -180 180 +d ps +close 1 +*** replace the path to surface.nc in the following line: +sdfopen /u/forget/WWW/datagcm/datafile/surface.nc +set lon -180 180 +set gxout contour +set clab off +set cint 3 +d zMOL +\end{verbatim} + + +\section{Running a zoomed simulation and stability issue} + +\begin{itemize} + +\item {\bf dynamical timestep} +Because of their higher resolution, zoomed simulation requires a higher +timestep. +Therefore in {\tt run.def}, the number of dynamical timestep per day +{\tt day\_step} must be increased by more than {\tt grossismx} or +{\tt grossismy} (twice that if necessary). +However, you can keep the same physical timestep (48/sol) and thus increase + {\tt iphysiq} accordingly ({\tt iphysiq = day\_step/48}). + +\item It has been found that when zooming in longitude, on must set +{\tt ngroup=1} in +{\tt dyn3d/groupeun.F}. Otherwise the run is less stable. + +\item The very first initial state made with {\tt newstart.e} can be noisy and +dynamically unstable. +It may be necessary to strongly increase the intensity of the +dissipation and increase {\tt day\_step} in {\tt run.def} for 1 to 3 sols, +and then use less strict values. + +\item If the run remains very unstable and requires too much dissipation +or a too small timestep, a good tip to help stabilize the model +is to decrease the vertical extension of your run and the number of +layer (one generally zoom to study near-surface process, so 20 to 22 +layers and a vertical extension up to 60 or 80 km is usually enough). + +\end{itemize} + + + + + + + + + + + + + + + + + Index: /trunk/LMDZ.TITAN/README =================================================================== --- /trunk/LMDZ.TITAN/README (revision 1644) +++ /trunk/LMDZ.TITAN/README (revision 1644) @@ -0,0 +1,1283 @@ +== 17/09/08 == +>>> Build a version with new soil but old radiative transfer, + but keeping possibility of switching back to new radiative transfer), + which incorporates changes & improvements currently included in the + 'reference version' GCM (see /u/emlmd/LMDZ.MARS.mixdyn) + +>>> start by modifying makegcm as in /u/emlmd/LMDZ.MARS.mixdyn, so that it runs + without environment variables and set LIBOGCM to /tmp15/emlmd/libo + +>>> directory contents of 'aeronomars', 'grid' and 'filtrez' are simillar + to those in /u/emlmd/LMDZ.MARS.mixdyn + +>>> in bibio , only file mxva.F needed be upgraded + +>>> get phymars and dyn3d contents from /u/emlmd/LMDZ.MARS.mixdyn + (and remove all *old files) + +>>> check differences between dyn3d and /u/emlmd/LMDZ.MARS.170908/libf/dyn3d + and upgrade when necessary: + - removed 'netcdf.inc' file (has nothing to do there!) + - comgeom.h and comgeom.h : made fortran90 compliant + - control.h : made fortran90 compliant + - dynredem.F : more read/write controls + comments in english + - ini_archive.F : new soil/thermal inertia changes + - integrd.F : added additional information to output when crashing + - lect_start_archive.F : new soil/thermal inertia changes + - newstart.F : new soil/thermal inertia changes + comments in english + - start2archive.F : new soil/thermal inertia changes + - vanleer.F : removed inapropriate 'external' statement + - write_archive.F : enable writting a subterranean field + +>>> check differences between phymars and /u/emlmd/LMDZ.MARS.170908/libf/phymars + and upgrade when necessary: + New soil stuff: + - added comsoil.h + - iniwrite.F : new soil changes + - added iniwritesoil.F90 and writediagsoil.F90 for subterranean fields + - added interp_line.F (for subterranean grid interpolation) + - adapted phyetat0.F for subterranean temperature & inertia + - adapted physdem1.F to include new soil stuff + - physiq.F : added calls to writediagsoil + - soil.F : new routine (fixed vertical grid + variable thermal inertia) + - added soil_settings.F (to read/initialize/interpolate soil properties) + - updated surfdat.h (since thermal inertia is now in comsoil.h) + - updated tabfi.F : include new soil properties + - updated testphys1d.F + - updated dimphys.h (set nsoil=18 as default) + +== 18/09/08 == +>>> add the possibility of easily switching to Tran radiative transfert + - updated aerdust.h.ocke97 (changed some variables name) so it can + replace aerdust.h (which is currently the same as aerdust.h.clan91). + - imported Tran's 'gfluxv.F' routine + - imported Trans' version of 'swr.F' routine, saved it as 'swr.F.toon' + +>>> Backup of 'old' Morcrette swr.F is 'swr.F.morc' + NB: to switch from one radiative transfer to the other, just copy + swr.F.morc or swr.F.toon to swr.F (and eventually 'touch swr.F' so that + makegcm recompiles swr.F) + No other dependencies (swr.F.toon uses 'gfluxv.F' and swr.F.morc uses + 'dedd.F'). + +>>> Changed the latter, so that users can switch from one to the other + - modified swr.F.toon to become swr_toon.F (and to include gfluxv.F) + - modified swr.F.morc to become swr_fouquart.F (and to include dedd.F) + - added a flag in callkeys.h, swrtype (parameter to be set/changed by + the user 1=Fouquart and 2=Toon) + - update readtesassim so that the coefficient by which opacity + is multiplied is set according to the 'swrtype' parameter + +== 25/09/08 == +>>> Implement the use of tracer-by-name in physics + - in phymars/tracer.h set 'noms' length to 20 (instead of 10) + - in phymars/callsedim2q.F and phymars/callsedim.F, use tracers by name + - in phymars/dustopacity.F, use tracers by name + - in phymars/vdifc.F, use tracers by name + +== 26/09/08 == +>>> Change implementation strategy (for now); don't move surface tracer around + i.e.: surface ice remains equivalent to qsurf(nqmx)=qsurf(i_h2o_vap) + and likewise for surface tendencies ... + - modified vdifc.F and callsedim.F back + - modified initracer.F (so that water names are h2o_vap & h2o_ice) + +== 29/09/08 == + - modified aeronomars/init_chimie_B (cosmetics) + - corrected aeronomars/moldiff.F internal routine tridag; changed + "pause" error messages to 'stop' messages + - modified phymars/watercloud.F to use tracers by name + - corrected aeronomars/molvis.F (undefined 'fac' and 'Akk' written to + output at first call) + +== 30/09/08 == + - modified aeronomars/calchim.F to use tracers by name + - adapted aeronomars/photochemist_B.F to use tracers by name + - adapted aeronomars/chemtermos.F to use tracers by name + - adapted aeronomars/concentrations.F to use tracers by name + - corrected aeronomars/conduction.F (undefined 'Akk' written to output + at first call) + - adapted aeronomars/euvheat.F to use tracers by name + - adapted aeronomars/moldiff.F and moldiffcoeff.F to use tracers by name + +== 01/10/08 == + - For more compatibility with LMDZ4; mimic reading a 'traceur.def' file + in the dynamics via a call to a routine 'iniadvtrac.F' and saving + tracers names in 'advtrac.h' + -> created 'iniadvtrac.F', 'advtrac.h' and modified gcm.F + - modified 'dynetat0.F' so that tracers are loaded from 'start.nc' by name + - modified 'dynredem.F' so that tracers are written to 'restart.nc' + by name + - modified 'initracer.F' tu use tracers by name + +== 02/10/08 == + - removed use of 'nqchem_min' everywhere: + adapted 'euvheat.F','inifis.F','physiq.F' + (leave 'inichim.F' for later) + - updated 'phyetat0' and 'physdem1.F' to read/write surface tracers by name + - modify things so that surface water ice index is the same as + atmospheric water ice (except when running without water ice; then + simply set i_h2o_ice=i_h2o_vap). + NB: the easiest is to have global storage of tracer names/indexes in + tracer.h + => changed initracer.F & tracer.h to have global igcm_something indexes + +== 03/10/08 == + - adaptations for surface ice index, modified files: + phyetat0.F : if there is a dynamical tracer 'h2o_vap' then load + surface tracer called 'h2o_ice' instead + initracer.F : in 'old' tracer name case: move qsurf(nqmx)->qsurf(nqmx-1) + and set i_h2o_ice=i_h2o_vap if iceparty=.false. + physdem1.F : if old tracer names: move qsurf(nqmx-1)->qsurf(nqmx) + if iceparty=.false., write surface tracer 'h2o_ice' + (and not 'h2o_vap') to file. + adapted vdifc.F, callsedim.F & watercloud.F & physiq.F so that surface + ice is now identified as qsurf(i_h2o_ice) + - updated aeronomars/perosat.F (cosmetics) + +== 06/10/08 == + - modify newstart.F and lect_start_archive.F to use tracers by name +== 07/10/08 == + - adapted inichim_newstart.F (added qsurf to arguments) + and inichim_readcallphys.F +== 08/10/08 == + - implement reading traceur.def in dyn3d/iniadvtrac.F + +== 16/10/08== + -small change in inifis.F (only warn if too many tracers, compared + to the expected number, not stop). + - corrected bug in initracer.F +== 21/10/08 == + - modified newstart.F to load B.Diez subsurface ice maps. + - corrected small bug (uninitialized variable) in interp_horiz.F +== 22/10/08 == + - updated iniwritediagsoil.F so that thermal inertia is written to + diagsoil.nc +== 31/10/08 == + - changed xvik.F program so it works even if we don't have atmospheric + temperature at hand (then it uses a 10km reference scale height) and so + that it does surface pressure interpolation log-wise. +== 03/11/08 == + - modified physiq to compute (and output) co2 column. + - added improvement by Francois in newcondens.F about computing CO2 + partial pressure. This behavior is turned on by setting internal logical + flag 'improved_ztcond' to '.true.' (and running with a co2 tracer) + - updated 'start2archive' to work with 'new' gcm output (soil, tracers ...) +== 04/11/08 == + - upgraded xvik program to look for temperature in 7th layer variable if + there is no global atmospheric temperature field at hand. +== 05/11/08 == + - more modifs to newcondens.F: added another internal flag 'bound_qco2' to + enforce (if set to .true.) that co2 mass mixing ratio remains bounded. +== 07/11/08 == + - corrected 'writediagfi' & 'writediagsoil' so that an error message is + issued if called with a variable name which is too long. +== 18/12/08 == + - corrected bug in dyn3d 'addfi.F', (dimensions of local array p()) +== 23/02/09 == + - modified "aeronomars/param_read.F" to do strictly fortran data + initialization (otherwise xlf compiler complains) + - changed a few '1.e-30' to '1.d-30' in aeronomars/photochemist_B.F + so that max functions has 2 doubles as arguments (otherwise xlf + compiler complains) + +==07/04/09 == + -cosmetic changes/minor improvements in the handling of tracers in: + aeronomars/photochemist_B.F + aeronomars/perosat.F + aeronomoars/euvheat.F + aeronomars/moldiffcoeff.F + aeronomars/moldiff.F + aeronomars/cocentrations.F + aeronomars/chemtermos.F + aeronomars/calchim.F + +--> NB: still there are differences in outputs when order of tracers is changed + +== 09/04/09 == +>>> fixed problem in 'vdifc.F' which lead to different results when moving + tracers around. + +== 10/04/09 == +>>> corrected small bug in diagnostic outputs of 'watercloud.F' (tendencies were + not added to tracer values). + +== 21/04/09 == +>>> corrected small bug in "physdem1.F" about writing water ice surface tracer + to file + +== 07/05/09 == +>>> very minor correction (firstcall not set to true after first call + if no tracers) in convadj.F + +== 30/06/09 == +>>> Implement reading *def files with IOIPSL ersatz 'getin' function + - import "ioipsl_errioipsl.F90","ioipsl_getincom.F90","ioipsl_stringop.F90" + in bibio + - adapted 'dyn3d/defrun_new.F' to use "getin" function + - adapted 'phymars/inifis.F' to use "getin" function + +== 01/07/09 == +>>> Adapted 'create_make_gcm' so that the "use" in *.F files is identified and + corresponding dependencies included in the makefile rules. + +>>> Added the 3D scattering from aerosols by JB Madeleine: + - minor changes in aerave.F + - added the calls to aeropacity.F, and aeroptproperties.F in callradite.F + - changed the calls to lwu.F and swr.F in lwmain.F and swmain.F, respectively + - added 3D scattering properties in lwu.F and swr.F + - added the new aeroptproperties.F, aeropacity.F and suaer.F90 routines + (removed dustopacity.F) + - updated aeropacity.F with new tracer names + - changed the call to callradite.F in physiq.F, added the initialization + of reffrad and nueffrad (aerosol effective radius and variance) + - removed all the lines relative to the old "activice" option, including + temperature variation due to latent heat release (now in comments) + - renamed nsize into naersize in watercloud.F, watersat.F and newsedim.F, + to avoid conflicts with another "nsize" variable in the radiative transfer + - added the statement of nuice in watercloud.F, which is the effective variance + of the log-normal distribution for ice + - updated yomaer.h and removed aerice.h (and corresponding "includes") + +== 02/07/09 == +>>> Adapted 'aeronomars/inichim_readcallphys.F' (called by newstart) + to use "getin" routine. + + minor correction in 'inifis.F' (close 'iradia.def' file) +>>> Minor correction in 'dyn3d/dynetat0.F' and 'phymars/phyetat0.F'; do not + attempt to reindex tracers if none were found. + +>>> in 'deftank' added examples of 'traceur.def' files (traceur.def.co2 : 1 + co2 tracer; traceur.def.watercycle : 2 traceurs, water vapour and water ice + tracer.def.chemistry : all 15 species) + +== 06/07/09 == +>>> Modified 'makegcm' and makegcm_g95' so that modules files are put + with libraries (and not in current directory) + +== +== WORK FOR GENERIC MODEL STARTS HERE +== + +== 01/08/09 == +>>> Old Martian radiative transfer removed completely, new correlated-k + scheme implemented in its place. Central function is callcorrk.F. + Radiative properties are no longer stored in dimradmars.h, but in the two + files radinc_h.F90 and radcommon_h.F90. 3D aerosol scheme + incorporated into callcorrk.F. dustopacity.F renamed aeropacity.F + and substantially simplified. For now the option to include dust + as an aerosol has been removed. + +>>> newcondense.F replaced by condense_co2cloud.F90. This is basically + Francois' routine from the old model, adapted to work with the new + generalised tracer scheme. + +>>> Options added in physiq.F and tabfi.F to allow for planets with + varying orbital parameters, radii, gravity etc. For the moment we + select the planet using the variable 'planettype' in + callphys.def. This could probably be improved in the future. + +>>> Many new options added to callphys.def. + + + + + +== 25/11/2009 == +>>>> List of changes and modifications +- modified watercloud.F: added sanity check (i.e. do we have a water tracer?) +- modified dyn3d/dynetat0.F --> removed possibility of reindexing tracers +- modified phyetat0.F --> removed possibility of reindexing tracers + +-- removed using a "co2ice" array to store surface CO2 ice + -> adapted surfini.F & physiq.F to use qsurf(:,igcm_co2_ice) + instead of co2ice(:) + -> modified initracer.F & tracer.h to properly initialize (and store) + a "co2_ice" tracer. + -> removed 'co2ice' from vdifc.F (it was not used there anyway) + and from phsdem1.F + -> removed possibility of calling 'newcondens' from physiq.F + -> cleaned up newstart.F, lect_start_archive.F, start2archive.F to not use + "co2ice" field but qsurf(igcm_co2_ice) + +-- adapted 'create_make_gcm' and 'makegcm' scripts so that we don't need + to have and (unused) 'aeronomars' directory around. + +-- shifted to reading traceur.def (dyn3d/iniadvtrac.F) in an Earth-LMDZ4-like + fashion: + first line == number of tracers + and then tracer name (1 per line; later we'll also add advection scheme type) +-- NOTE BY RW: Here would be a good place to also note which tracer (if any) is + the 'variable gas' in the radiative transfer + +-- Made some changes in tabfi.F to let user change planet parameters + such as rotation rate, molar mass of atmosphere, ... + (NB: note however that we seem to lose dynamics/physics coherence ... + we should probably read these values from a planet.def file) + +-- Changed condens_co2cloud.F : added a check for presence of CO2 gas and output + of corresponding tendency. + + +== 15/12/2009 == +>>> Correlated-k radiative transfer now reads spectral bands and p-T + matrix values from ascii files; the code checks that the number of + bands and matrix elements in the files match those written in + radinc.F90 on the first call. + +>>> Water vapour tracer coupled to variable gas species in radiative + transfer; option also given to run with fixed relative humidity + profiles. 'Variable gas species' option added to callphys.def. + +>>> Surface albedo updated to be one band everywhere. + +>>> suaer_corrk.F90 modified to use different ep, omeg, g variables in + the visible and infrared. This is necessary because the number of + bands is, in general, different. + +>>> suaer_corrk.F90 has an option to accept Francois' new CO2 ice + values (and convert wvl to metres!!). + +>>> optci.F --> optci.F90 so that water vapour continuum subroutine + can be included. + +== 08/01/10 == +>>> Option to change pref for hybrid coordinates added to newstart.F. + + +== 15/01/2010 == +>>> Upgraded newstart.F: added possibility to reset refrence surface pressure + "preff" (and pa) +>>> tabfi.F: added possibility of changing value of "year_day" +>>> cosmetic change in callphys.def : separate "universal" parameters + and planet-specific parameters (in a separate file, e.g. earlymars.def) + +== 22/01/2010 == +==> call this version LMDZ.GENERIC +>>> Some cleanup & upgrades: +-- split parameters in callphys.def into generic stuff (stays in callphys.def) + and another more specific file (e.g. earlymars.def). +-- added 'output_olr' key (in callkeys.h; read in physiq.F) to trigger + output of fluxes in ascii file 'olr.txt' +-- removed (non-generic) 'kastprof' and 'nearcond' keys/options in physiq.F + (also removed file kastprof_fn.F) +-- had to set 'fixh2ovap =.false. in callcorrk.F to avoid + "out of range subscript" pb in callcorrk.F + ==> this should be improved / better controlled in the future +-- updated newsedim.F to use "molrad, visc, avogado values from comcstfi.h + (and not local versions of these constants) +-- fixed buggy -O option in makegcm (and makegcm_g95); + +== 22/02/2010 == +==> call this version LMDZ.GENERIC.v0.31 +-- rain.F, manabe.F and largescale.F subroutines added to water cycle +-- several new toggles added to earlymars.def + +== 28/03/2010 == +==> call this version LMDZ.GENERIC.v0.4 +-- many changes for this version! +-- radiative transfer -- + A new system was implemented that automatically reads the p, T, g, + Q and band values from files. The dataset required is now specified + in callphys.def. We still need to edit radinc_h when the corrk array + sizes change - think about improving this in the future. +-- water cycle -- + A watercommon_h mod file was created, several files were renamed + and moist convection and precipitation subroutines were added. + Still needs some testing! +-- OLR -- + Two new functions were added: one to produce .nc files of the OLR + by band, and the other to save the upgoing radiation by band in 1D + as a .txt file. +-- general structure -- + tabfi.F, newstart.F etc. cleaned up + it was checked that they pass + variables correctly. Several new options added to run.def for 1D, + in order to allow truly arbitrary planet simulations. The + 'planettype' option has been removed as it screwed things up completely. +-- energy conservation -- + I found that the planckir function in the radiative transfer did not + always produce values that summed to sigma T^4. A new test was implemented + to check for this problem and the standard band widths in the IR + were increased. + +== 31/03/2010 == +==> call this version LMDZ.GENERIC.v0.5 +-- OLR -- + The .nc functions were implemented and tested. It was necessary to add + new functions 'writediagspec.F' and 'iniwrite_spec.F'. +-- CO2 condensation -- + In 1D we now exit automatically if CO2 is condensing on the + surface. +-- G1D -- + We can now choose at the beginning of physiq.F, using saveG1D, how + many times we want to save per day in 1D (rather than every single + time that physiq is called). +-- water cycle -- + I corrected a nasty bug in callcorrk involving varfixed, real*8 and + epsi. I corrected a simple bug in the writing of qsurf in g1d.dat. + rain.F has been tested and the algorithm for precipitation evaporation + modified to that written in the manual of Larent Li. Cloud fraction + variable is now included. activice and iceparty are gone, ~replaced + by watercond and waterrain. +-- orbit -- + nres and tlocked were added as basic options to callphys.def +-- radiative transfer -- + I added error checking for out-of-bounds temperature in + callcorrk.F. I added a new file calc_rayleigh.F90 to calculate + Rayleigh scattering using a weighted mean, as opposed to simply the + midpoint band values. Band discretisation is now even more + automated than before: the coefficients are stored in directories + like /earth/32x36/, and we can compile the GCM like this: + makegcm -d 32x24x20 -b 32x36 -p std gcm. + A bug was fixed involving emissivity not being properly passed from + newstart.e to the main part of the code. + Stellar spectra are now calculated automatically for any range of + bands from high resolution data (originally from the VPL website). +-- vertical discretisation -- + I corrected a bug in testphys1d that used a fixed value of + temperature to compute the altitude levels in the model. Now we use + the scale height from z2sig.def instead. Values of preff and pa are + no longer defined in testphys1d (they're not needed). +-- Non-ideal gases -- + I have replaced cpp in many places with cpp_3D in physiq. This is a + major change, but there are enough cases where it will be useful to + make it worthwhile in the universal code. I have done the same with rcp. + +== 10/10/2010 == +==> call this version LMDZ.GENERIC.v0.6 +-- startup -- + We now check water tracers exist in newstart.F before all watery initialisation options. + Added an option 'autozlevs' to run.def (and logic.h). When true this recalculates the scale + height in z2sig.def in order to get the same minimum pressure for any resolution. + Currently, this is only useful for one-d simulations. + Pressure is now distributed better in newstart.F. There was a bug before when the global mean of phi + was not equal to zero and the surface pressure was changed with topography still present. + In initracer, we no longer automatically set h2o_vap=h2o_ice. + +-- general -- + periheli, apheli --> periastr, apoastr. Note this necessitates a change in start_planet too. + testphys1d.F --> rcm1d.F + physiq.F, callcorrk.F upgraded to Fortran 90 to remove evil zerophys. + I cleaned up the method of displaying energy balance and temperature range in the model a bit. + Pure H2 atmospheres are now permitted, although the code is _untested_. Rayleigh scattering, + specific heat capacities and molar masses are varied, and the H2-H2 collision-induced data + of Grushka et al. is used for the radiative transfer. + +-- boundary layer -- + An improved version of vdifc.F has been created that includes the latent heat effect of water vapor, + following the method used in 'clmain' in the LMDZ terrestrial model. + +-- water cycle -- + Benjamin's improvements have been added, namely the hydrology, and reevaporation. + Variable cloud fractions are allowed, or a global fixed value may be chosen + for use in aeropacity. Surface wetness (beta) is now calculated in a simple way, and + outputed as a diagnostic, along with the atmospheric relative humidity. + + mol/mol to kg/kg bug in callcorrk corrected. + +-- radiative transfer -- + A major bug in gfluxv.F was corrected. It involved BSURF, the radiation reflected upwards from + the ground. + In aeropacity, we now set the cloud opacity in the top layer of the atmosphere to zero. This solves + an instability problem that was occurring when CO2 clouds formed. + Dust is back! Only fixed profiles allowed for now. It is assigned "naerkind=3" in aeropacity.F90. + If 'CLFvarying' is enabled, the corrk subroutine is now called twice per timestep - once for clear + skies and once for cloudy. This slows things down but is effective for Earth-like simulations. + An optional Newtonian cooling scheme has been implemented that can replace the correlated-k method + for dynamical tests etc. It is pretty experimental and has not been extensively tested. + +-- Dynamics -- + callgroupeun in gcm.F has been set to FALSE, as it does not conserve tracers. + The coefficient facup has been set to 1 in inidissip.F. We may need to mess + with this later if it makes the model too unstable. + +== 1/08/2011 == +==> call this version LMDZ.GENERIC.v0.7 + + Main change: a new file 'gases.def' now required at startup. This tells us which gases are in + the planet's atmosphere. It is used to calculate fundamental quantities like cpp and mugaz. + A check is made against the radiative transfer data to make sure they correspond. + + Code has been tested successfully using the 'gfortran compiler'. + +-- startup -- + a bug involving tsoil interpolation in lect_start_archive.F was corrected. + +-- aerosols -- + gauss integration number 5-->10 in aeroptproperties.F90 + +-- water cycle -- + Big fat bug in rain.F90 corrected. The routine internally updated the temperature + with new tendencies before it was supposed to happen! + Bug in oborealis where phi not properly updated was corrected. + Improvements to hydrol.F90: zdtsurf_hyd --> pdtsurf_hyd + A 'sourceevol' option was added (accessed in callphys.def) that allows us to track the + evolution of the surface distribution over time. + Another bug in rain corrected involving evaporation - it was heating the atmosphere + rather than cooling it... + +-- convection -- + I found a bug in convadj.F that breaks tracer conservation when convection stops at one layer + and immediately restarts in the next one. + +-- diagnostics -- + Some bugs corrected in the computation of 3D averages for the H2O / energy conservation + diagnostics. + +-- radiative transfer -- + A bug involving continuum opacities (variable DCONT) was corrected in optci.F90 and optcv.F0. + H2-H2 warming now in theory reliable and correct (60-1000 K). + A bug involving the definition of the Planck function boundaries was corrected in sfluxi.F90 + and gfluxi.F. + +== 21/10/2011 == EM +- added FF's upgrade of writediagfi. Now, if at runtime there is a diagfi.def + file, it should contain the list of variables (1 per line) than will be put + in the diagfi.nc file. If there is no diagfi.def file, then all variables + are put in the diagfi.nc file (as was the case before). + +=== 10/11/2011 == EM +- Updated the makegcm(s) so that default behaviour is to set LMDGCM env variable + to be the directory in which the makegcm script is. Updated the makegcm_* + to use "SOURCE" to identify code and be compatible with latest + 'create_make_gcm'. + +== 10/11/2011 == EM +- Upgrade: The location of the 'datagcm' directory can now be given in the + callphys.def file ( datadir = /absolute/path/to/datagcm ). Changed + "datafile.h" into a F90 module "datafile_mod.F90" and spread this change + to all routines that used to use "datafile.h". + +== 10/11/2011 == EM +- Upgrade of the 'create_make_gcm' script: objects are removed from the + libraries before compilation, which enforces that the gcm will fail to + compile if any routine failed to compile. + +== 12/12/2011 == AS +- Use of allocatable arrays to set corrk stuff through reading *.dat files, without the need to change radinc_h manually. +- Allocation is done in sugas_corrk which is within firstcall loop in callcorrk. +- Note that N_LGAUSS is still a parameter. It is not supposed to change much. +- Compiles fine. Tested with debugging options through pgdbg. Runs fine. Exact same results in Early Mars test case. + +Modified files: +M 469 libf/phystd/physiq.F90 +M 469 libf/phystd/sugas_corrk.F90 +M 469 libf/phystd/callcorrk.F90 +M 469 libf/phystd/radinc_h.F90 +M 469 libf/phystd/radcommon_h.F90 + +== 13/12/2011 == AS +- Same spirit as previous commit, but for ngasmx which is now read in gases.def -- before arrays w/ dim ngasmx are allocated dynamically +- Allocation is done in su_gases.F90 which is called in inifis +- Outside su_gases.F90, very few modifications to the code : the new module "gases_h.F90" simply replaces the old common "gases.h" ! +- Compiles fine. Tested with debugging options through pgdbg. Runs fine. Exact same results in Early Mars test case. + +== 20/12/2011 == JL + AS +- Allocatable gastype in sugas_corrk instead of hardcoded (it was a problem for more than 4 gases!) + +== 13/02/2012 == JL + AS +- All outputs are now in netCDF format. Even in 1D (No more G1D) +- Clean up of the call to callcorrk when CLFvarying=true +- Corrects a bug in writediagspecIR/VI. Output are now in W/m2/cm-1 as a function of the wavenumber in cm-1 +- Enable writediagspecIR/V to work in the CLFvarying=true case (output now done in Physiq after writediagfi) +- Add a simple treatment for the supersaturation of CO2 (see forget et al 2012) +- corrects a small bug when no clouds are present in aeropacity + +== 16/02/2012 == JL + EM +- Mesh area now present in 1d diag files. +- Spectral Bandwidth included in the diagspec files +- Correction of a initialzation bug on day_step and ecritphy in rcm1d + +== 17/02/2012 == RW +- qsurf bug in variable species rad. tran. removed +- line to update kappa in newstart.F added - necessary to synchronise dynamics and physics +- three obsolete files removed from dyn3d/ directory +- calc_cpp_mugaz --> check_cpp_mugaz, with override option in callphys.def +- kcm1d no longer consistent with new code, but I haven't updated as I'm still working on it + and as far as I know noone else uses it. If that changes let me know. + +== 27/02/2012 == AS +- Temperature grid for Planck calculations can now be refined through the parameter NTfac in radinc_h. + Default is NTfac = 1.0D-1, i.e. Delta T = 0.1 K + +== 16/03/2012 == JL +- Removed cpp3D and nonideal stuff. + +== 19/03/2012 == EM +Some cleanup and bug fixing: +- "cloudfrac" was not well written to restartfi (wrong size). +- missing save attribute for "reffrad" in physiq.F90. +- cleanup recomputation of surface pressure in newstart and change loop order + in interp_horiz (which "fixes" an odd behaviour which fills some arrays with + zeros, but only when using some versions of ifort!) + +== 19/03/2012 == AS +- Cleaned rcm1d.F and made it truly generic by asking for planetary constants without any default values. +- Settings are now needed in a rcm1d.def file. Unbeknown to the user, we create a minimal run.def file, read parameters, then remove this dummy run.def. +- Introduced a keyword force_cpp if the user wants to give values for cpp and mugaz in def files. + +== 19/03/2012 == AS+FF +- Introduced global1d in callcorrk so that global (using sza) or local (using latitude) 1D simulations can be carried out. +- Converted all astronomical distances in AU instead of Mkm. +- This might cause problems with old start files. So added a test in iniorbit. A quite dirty test, but that'll do the job. + +== 22/03/2012 == JL +- New turbulent diffusion scheme solving "most" energy conservation problems: + - Turbulent energy created by buoyancy effects is now dissipated back into enthalpy + - the scheme is now written in an enthalpy conservative way +- Turbulent diffusion now treated in routine turbdiff (in F90). +- Temporarily, for comparison, the old vdifc can be used + by setting UseTurbDiff=.false. in physiq.F90 +- The sensible heat flux is now an output +- Corrected evaporation at the surface when all the surface water is evaporated (JL+BC). +- Added new energy conservation diagnostic variables and output + +== 26/03/2012 == JL +- Added double gray case (if graybody=true in callphys.def): + - opacities are set to a constant value in sugas_corrk. + - the values are kappa_IR m^2/kg in the infrared (to be read in callphys.def) + kappa_VI m^2/kg in the visible (to be read in callphys.def) +- Cleaned continuum part in optc* +- Added .def files for a typical 1d earth case in deftank (dry case for the moment) +- Corrects a bug on potential temperature calculation in physic + +== 27/03/2012 == JL +- Corrects the computation of planck function at the surface in sfluxi + so that its integral is equal to sigma Tsurf^4. +- This ensure that no flux is lost due to: + -truncation of the planck function at high/low wavenumber + -numerical error during first spectral computation of the planck function + -discrepancy between Tsurf and NTS/NTfac in sfluxi +- OLR now equal to LW net heating/cooling at equilibrium! +- As much as possible, only the value of the stephan boltzmann constant defined in racommon_h (and the +corresponding variable, sigma) should be used. Now done in physics, vdifc and turbdiff. + +== 16/04/2012 == JL +- Added consistency checks for calculations including water and global1d+diurnal. +- Corrected small bugs in precipitation scheme + +== 04/05/2012 == JL +- Correction a huge bug in newstart: rcp and cpp can now be changed in start.nc files and are the same as in startfi.nc; + Even when starting from start and startfi files. + - rcp, cpp and mugaz can now be computed using gases.def in newstart +- Correction of a bug arising in gcm.F when the solar days are long (thanks Melanie V.) +- Corrected the temperature used to differentiate sublimation and evaporation in watersat_grad +- Minor name changes in watercommon +- Better physical parametrization of the effective radius of liquid and icy water cloud particles in callcorrk + (for radfixed=true) +- Added consistency check in inifis +- Moved 1d water initialization from physiqu to rcm1d +- All enertests in physiq written in a matricial (F90) way. The rest of physiqu should follow soon + +== 25/05/2012 == EM +- Significant update on how the number of scatterers is managed: + Instead of having to manualy change 'nearkind' in radinc_h.F90, the + number of scatterers must now be set when compiling, using makegcm + "makegcm -s 1" for one scatterer or "makegcm -s 2" for two (e.g. dust + and water ice), default behaviour (ie not specifying -s #) is -s 1 + Modified phystd/radinc_h.F90 , added directory phystd/scatterers + with script make_scatterers , and adapted makegcm* scripts. + +== 06/06/2012 == EM +- Corrected the polar mesh surface area which was wrong in the physics (changes + in phyetat0.F, calfis.F and newstart.F) +- Some cleanup in newstart.F (removed some obsolete "Mars" options: mons_ice,..) + and also added option "q=profile" to initialize a tracer with a profile + read from file "profile_tracername" + +== 29/06/2012 == EM +- Some cleanup in start2archive.F and ini_archive.F to get them to work for + the generic model (removed some "Martian" specificities). + +== 17/07/2012 == JL for LK +- Generalization of aerosol scheme: + - any number of aerosols can be used and id numbers are determined consistently by the code. Aerosol order + not important anymore. + - addition of a module with the id numbers for aerosols (aerosol_mod.F90). + - initialization of aerosols id numbers in iniaerosol.F90 + - compile with -s x where x *must* be equal to the number of aerosols turned on in callphys.def (either by a + flag or by dusttau>0 for dust). + => may have to erase object files when compiling with s option for the first time. +- For no aerosols, run with aeroco2=.true. and aerofixco2=.true (the default distribution for fixed co2 +aerosols is 1.e-9; can be changed in aeropacity). +- If starting from an old start file, recreate start file with the q=0 option in newstart.e. +- update callphys.def with aeroXXX and aerofixXXX options (only XXX=co2,h2o supported for +now). Dust is activated by setting dusttau>0. See the early mars case in deftank. +- To add other aerosols, see Laura Kerber. + +== 18/07/2012 == JL +- New water cycle scheme: + - largescale now in F90. Robustness increased by i) including evap inside largescale ii) computing the + condensed water amount iteratively + - same improvements in moistadj. + - Water thermodynamical data and saturation curves centralized in module watercommn_h + - The saturation curves used are now Tetens formula as they are analyticaly inversible (Ts(P)-> Ps(T)). + New saturation curve yields very good agreement with the former one. + - Saturation curves are now generalized for arbitrary water amount (not just q<<1) + - The old watersat should be removed soon. + - The effect of water vapor on total (surface) pressure can be taken into account by setting + mass_redistrib=.true. in callphys.def (routine mass_redistribution inspired from co2_condense in martian + model but with a different scheme as many routines evaporate/condense water vapor). +- New cloud and precipitation scheme (JL + BC): + - The default recovery assumption for computing the total cloud fraction has been changed (total random gave too + large cloud fractions). See totalcloudfrac.F90 for details and to change this. + - Totalcloudfraction now set the total cloud fraction to the fraction of the + optically thickest cloud and totalcloudfrac is thus called in aeropacity. + - Only the total cloud fraction is used to compute optical depth in aeropacity (no more effective + optical depth with exponential formula). + - 4 precipitation schemes are now available (see rain.F90 for details). The choice can be made using precip_scheme + in callphys.def. Usage of the more physically based model of Boucher et al 95 (precip_scheme=4) is recommended. + default behavior is set to the former "simple scheme" (precip_scheme=1). + - See rain.f90 to determine the parameter to be defined in callphys.def as a function of the precipitation scheme used. +- Physiq.F90 now written in a matricial (more F90) way. +- Radii (H2O and CO2 cloud particles, aerosols, duts, ...) calculations now centralized in module radii_mod.F90 + and work with the new aerosol scheme implemented by Laura K. Some inconsistency may remain in callsedim. +- Corrected gray gas mode. The use of kappa_VI or kappa_IR far a given band is now based on its wavenumber independently of + SW and LW calculations + +Implementation compiled with ifort and pgf90. +gcm.e runs in Earth and Early Mars case with CO2 and H2O cycle + dust. + +== 19/07/2012 == JL +- Corrected precipitation evaporation scheme + snow fall (JL+BC) +- Commented some unecessary writediagfi calls that where used for test. + +== 24/07/2012 == JL +- Correction of a bug in turbulent diffusion (turbdiff.F90) + => This solves a water conservation problem arising when the code tries to + evaporate over dry land. + +== 26/07/2012 == AS +- Bug fix in physiq : the size of OLR_nu is L_NSPECTI and not L_NSPECTV +- A more robust aerosol_mod + iniaerosol : problems with ifort+parallel solved, while still OK with other compilers and seq runs. + +== 05/09/2012 == JL +- Correction of the calculation of the solar longitude in tlocked case. + -Can now handle any prograde resonance with nres=omega_rot/omega_orb. + -Sun now goes westward for the standard 2:1 case, as expected. +- In the gray case, the separation between kappa_IR and VI is now set by + wave number, independently of the usual IR/VISIBLE calculation separation. + i.e. kappa_IR can be used in the calculation of the downward stellar flux + if the wavenumber in the band is low enough and vice versa. +- In ave_stelspec, stellar flux averaging has been generalized to incorporate + very red/blue stellar spectra (great care must however be taken of the band + limit used for the corralated k distributions). + -Brown dwarf spectra from Allard et al. have been added. + -Any Black body temperature can now be used. + +== 19/09/2012 == JL +- Correction in largescale to improve robustness when large water vapor amount +- Correction in soil_setting to allow change of the number of subsurface layers + +== 19/09/2012 == AS + +(Sorry for long text but this is a quite major commit) + +Paving the path for parallel computations. And moving towards a more flexible code. + +Automatic allocation is used within all routines in phystd. No further mention to ngridmx and nqmx. + +1. ngridmx and nqmx are still used in LMDZ.GENERIC in the dyn3d part +2. if the LMDZ4/LMDZ5 dynamical core is used, there is no more fixed dimensions ngridmx and nqmx + --> a fully flexible parallel implementation is now possible (e.g. no need to recompile when changing numbers of processors) + +The important stuff : +- Compilation checked with ifort. OK with and without debug mode. No errors. + Checked for: gcm, newstart, rcm1d, kcm1d +- RUN GCM: Running an Earth test case. Comparison with previous revision + --> debug mode : perfect match. bit by bit (diff command). checked with plots + --> O1 mode : close match (checked with plots) + --> O2 mode : sometimes up to 0.5 K departure.... + BUT in this new version O2 and O1 are quite close while in previous version O1 and O2 differed by about, well, typically 0.5 K + (pictures available on request) +- RUN NEWSTART : perfect match (bit-by-bit) in either debug or normal mode. +- RUN RCM1D : perfect match in normal mode. +- RUN KCM1D : not tested (I don't know what is the use of kcm1d) + +List of main changes : +- Additional arguments to some subroutines (ngrid and nq) +- F77 include strategy is obsolete and replaced by F90 module strategy + In this new strategy arrays are allocatable and allocated once at first use + This has to be done for all common featuring arrays defined with ngridmx or nqmx + surfdat.h >> surfdat_h.F90 + tracer.h >> tracer_h.F90 + comsaison.h >> comsaison_h.F90 + comgeomfi.h >> comgeomfi_h.F90 + comsoil.h >> comsoil_h.F90 + comdiurn.h >> comdiurn_h.F90 + fisice.h >> DELETED. was not used. probably a fossil. + watercap.h >> DELETED. variable put in surfdat_h.F90 +- F77 'save' strategy is obsolete and replaced by F90 'allocatable save' strategy + (see previous point and e.g. new version of physiq.F90) +- Suppressing any mention to advtrac.h which is a common in the dynamics and needs nqmx + This was easily solved by adding an argument with tracer names, coming from the dynamics + This is probably not a definitive solution, + ... but this allows for generic physics to work easily with either LMDZ.GENERIC or LMDZ dynamical cores +- Removing consistency tests between nq and nqmx ; and ngrid and ngridmx. No use now! +- Adaptation of rcm1d, kcm1d, newstart given above-mentioned changes + +A note on phyetat0 and soil_setting: +- Now written so that a slice of horizontal size 'ngrid' starting at grid point 'cursor' is read in startfi.nc + 'cursor' is defined in dimphys.h and initialized by inifis (or in newstart) + this is useful for parallel computations. + default behavior is the usual one : sequential runs, cursor is 1, size ngrid is the whole global domain + +A note on an additional change : +- nueffrad is now an argument to callcorrk as is the case for reffrad + both are saved in physiq + this is for consistency and lisibility (previously nueffrad was saved in callcorrk) + ... but there is a call to a function which modifies nueffrad in physiq + ... previously this was not modifying nueffrad (although it was quite cumbersome to detect this) + ... to be conservative I kept this behaviour and highlighted it with an array nueffrad_dummy + ... I added a comment because someone might want to change this + +== 20/09/2012 == AS +A more robust way to count lines in setspi and setspv. +bandlen.txt file is no longer used. This was causing problems with MPI computations. + +== 06/11/2012 == EM +- Fixed bug in disvert: pseudo-altitude pseudoalt() should be computed using + the scale height H provided in "z2sig.def" (and not 10.0). + +== 10/11/2012 and 23/11/2012 == AS +- Corrected problems with allocated arrays in start2archive and newstart since the 19/09/2012 major commit +- Modified those programs (and iniadvtrac) so that they can be used when compiling with -t 0 + +== 20/12/2012 == EM +- Fixed sedimentation issue: ensure in callsedim that the correct radii are + provided to newsedim and also that the updated temperature and tracer + mixing ratios are used to compute sedimentation. +- Updated the way aerosol radii are considered and used; routines in radii_mod + (h2o_reffrad, co2_reffrad, etc.) only handle a single aerosol. The idea here + is that these can be called from anywhere and that the caller doesn't need to + have the full (naerkind size) array of aerosol radii. +- cleanup (addition of intent(..) to routine arguments) in various routines + +== 10/01/2013 == AS +- Fixed an allocating bug which arises from previous modifications + owing to the double use of callcorrk with CLF_varying +- Fixed a small bug in a diagnostic in the end of calc_rayleigh. Some picky compilers complain. +- Fixed a small bug with the array noms which is not allocated when tracer is false. But still need in physdem1. + +== 10/01/2013 == AS +Added calls to FH subroutines to output physical fields in parallel. This is under precompiling flags CPP_PARA. +This allows for LMDZ.UNIVERSAL users to use writediagfi with parallel computations. +These lines are not compiled by casual users of LMDZ.GENERIC (or users of LMDZ.UNIVERSAL in sequential mode). + +== 23/01/2013 == JL +- Correction in largescale. a rneb factor was forgotten +- Added some spectra in ave_stelpec +- Corrected reevaporation in rain. Now conserve water better + +== 24/01/2013 == AS + JL +A more robust way to refer to gas type. +- Gas names with an arbitrary number of characters (<20) can be used + This is good for C2H2, C2H6, H2SO4, C17H21NO4, etc... + !!! Remember this must be compliant with Q.dat in corrk_data !!! +- igas_... labels are assigned once for all in su_gases + Then using igas_... everywhere instead of gnom (except for kcm stuff) +- Users can still use e.g. H2_ but H2 also works +- Simplified condense_cloud so that igas_CO2 is used directly + +== 09/02/2013 == AS +- Optimized calculations for continuum (done for H2 and He, to be done for others) + - new common bilinear interpolation routine (bilinearbig) + - optimization: only one calculation is actually needed + to find indexes of wavelength for bilinear interpolation + ... because this will not change with level and integration step! + - optimization: use while loop in bilinearbig + - completely similar results obtained (test case for a gas giant, many simulated days) + NB: those changes really improve gcm speed (factor 2.2 for whole model!) + continuum was very expensive, now very cheap + --> e.g. 1 day, 25 dyn ts, 5 phys ts + --> before: 243 seconds (including 120 seconds for continuum bilinear interpolation) + --> after: 108 seconds +- Corrected a bug: Continuum in inifis instead of continuum + ... until now, most users (unbeknownst to them) were running with the continuum by default! +- Cosmetic changes in optcv (mostly spaces and line breaks) + ... so that comparisons with optci are easy e.g. through vimdiff + +== 11/02/2013 == JL +- Updated moist convection scheme to handle situations with a large water vapor content +- Added a keyword to enable ocean runoff in callphys.def (activerunoff) + +== 12/02/2013 == JL +- Follows previous commit by Aymeric about bilinear interpolations: + - Extended to all existing continua + - generalized bilinearbig to work for various size inputs +- because N2 and H2O continua databases are smaller, improvement around 15% for +an earth case. + +== 25/02/2013 == EM +- added "-fp-model precise" option when compiling with ifort (fixes unexplained + mass loss of tracer in the dynamics) + +== 13/03/2013 == AS + EM +- corrected a bug in bilinearbig (found with debug mode) + not harmful but possible -1 index at first call + +== 18/03/2013 == EM +- removed the "-static" ifort compilation option (problematic on Gnome cluster) + and added some additional debug options +- fixed bug in newstart about initialization of albedo and thermal inertia. + +== 28/03/2013 == JL +- optimization of optci and optcv routines. 15to 25% gain on these routines. + around 10% on the whole code with 1 scatterer. + - No changes on output (byte to byte) +- corrected bug in gray case in callcorrk. +- added profiling option in makegcm_ifort. See the file for details +- changed capcal back to default in physics + +== 01/05/2013 == AS + JL +- added possibility to remove surface + (particularly exchanges heat+momentum exchanges between surface and atmosphere) +- added possibility to add an internal heat flux + +== 10/05/2013 == EM +- moved the 'makbands' script from "grid" to (more appropriate) "phystd/bands" + subdirectory, and consequently adapted the makegcm_* scripts + +== 15/05/2013 == JL +- correction in radiative scheme to enforce double precision +- corrects calculation of ISR + +== 22/05/2013 == EM +- made all outputs (stats.nc,diag*nc files) compatible with running in parallel + (MPI mode only) + +== 11/06/2013 == JL+EM +- User manual (+ sources) added in DOC. + +== 12/06/2013 == EM +- Moved "newstart" (and related "lect_start_archive.F") to phystd directory +- Adapted makegcm_* scripts to enable compiling main prog from physics +- Added in newstart the possibility to not read in any surface.nc file + (when loading a start_archive) with keyword "none" (instead of surface + file name) +- Some general cleanup: + - in bibio: removed unused lmdstd.h readstd.F writestd.F mywrite.F + readcoord.F scatter.F gather.F ini36.F from36.F to36.F + lnblnk.F (F90 len_trim() should be used instead) + - in dyn3d: removed unused inigrads.F wrgrads.F gradsdef.h + xvik.F (specific to current Mars) + +== 14/06/2013 == EM +- Some minor changes so that gcm compiles with gfortran: + - Added option to compile "long lines" (>132 characters) in makegcm_gfortran + - Removed use of isnan() in physiq.F90 (it is not a standard function) + - Avoid possible underflow of psat in watercommon_h.F90 + - Adapted the checks on the *IR and *VI band files to be more strict + +== 17/06/2013 == EM +- Some more cleanup in dynamics: + - Moved "start2archive" (and auxilliary routines) to phystd + - removed unused (obsolete) testharm.F , para_netcdf.h , readhead_NC.F , + angtot.h from dyn3d + - removed obsolete addit.F (and change corresponding lines in gcm) + - remove unused "description.h" (and many places where it was "included") + +== 21/06/2013 == AS +- Added possibility to initialize temperature from a rcm1d profile (t=profile) +- Added output for Ls in diagfi + +== 28/06/2013 == JL +- bug fix in setspi & setspv : counters must be initialized in routine in + case of multiple calls + +== 02/07/2013 == EM +- some cleanup: ismax and ismin were defined in multiple places... + +== 19/07/2013 == EM +- update the sponge layer: trun it into a module and (more important) + compute the sponge quenching analytically rather than via Forward Euler + approximation. + +== 07/08/2013 == JL +- Water cycle in double precision (largescale+moistadj) +- Improved wate rayleigh. +- First step for rayleigh with variable species. Now, just need to change optcv. +- changed some interpolation indices in callcorrk to limit dependency of OLR on the number of layers + +== 05/12/2013 == JL +- corrected sugascorrk to work in the two band gray aproximation with -b 1x1 and NGAUSS=2 + +== 03/04/2014 == EM +Major cleanup, in order to ease the use of LMDZ.GENERIC with (parallel) dynamics +in LMDZ.COMMON: (NB: this will break LMDZ.UNIVERSAL, which should be thrashed +in the near future) +- Updated makegcm_* scripts (and makdim) and added the "-full" (to enforce + full recomputation of the model) option +- In dyn3d: converted control.h to module control_mod.F90 and converted + iniadvtrac.F to module infotrac.F90 +- Added module mod_const_mpi.F90 in dyn3d (not used in serial mode) +- Rearanged input/outputs routines everywhere to handle serial/MPI cases. + physdem.F => phyredem.F90 , phyetat0.F => phyetat0.F90 ; all read/write + routines for startfi files are gathered in module iostart.F90 +- added parallelism related routines init_phys_lmdz.F90, comgeomphy.F90, + dimphy.F90, iniphysiq.F90, mod_grid_phy_lmdz.F90, mod_phys_lmdz_mpi_data.F90, + mod_phys_lmdz_mpi_transfert.F90, mod_phys_lmdz_omp_data.F90, + mod_phys_lmdz_omp_transfert.F90, mod_phys_lmdz_para.F90, + mod_phys_lmdz_transfert_para.F90 in phymars + and mod_const_mpi.F90 in dyn3d (for compliance with parallelism) +- added created generic routines 'planetwide_maxval' and 'planetwide_minval', + in module "planetwide_mod", that enable obtaining the max and min of a field + over the whole planet. This should be further imroved with computation of + means (possibly area weighed), etc. + +== 05/06/2014 == EM +Bug fixes: +- hice() in physiq.F90 must be a saved array. +- bad use of min/max on arrays in h2o_cloudrad (radii_mod.F90) which actually + ended up setting all array elements to the same value. +And some cosmetic cleanup in rain.F90, vdif_kc.F and turbdiff.F90 + +== 10/07/2014 == EM +Some cleanup to simplify dynamics/physics interactions by getting rid +of dimphys.h (i.e. the nlayermx parameter) and minimizing use of +dimension.h in the physics. + +== 11/07/2014 == EM +- Changed the variable passed from LMDZ.GENERIC dynamics to physics: +it is now a mass flux (kg/s) which is then converted to a vertical +velocity (m/s) in the physics. This is to be consistent with what is +done in LMDZ.COMMON. + +== 18/08/2014 == JL +- fixed variable type declaration bug in ave_stelspec +- corrected insolation calculation in locked and inclined case (proper calculation of sub solar longitude and declination) +- in the ring shadow calculation, temporary variables for the orbbital parameters are now used (we want the declin and RA output at the same time w and wo rings) + +== 29/09/2014 == EM +- Added missing allocation in soil_settings, needed when changing number of + soil layers. + +== 04/03/2015 == EM +- Some code cleanup: turning comcstfi.h into module comcstfi_mod + +== 31/03/2015 == EM +- Reorganizing the physics/dynamics interface, for better compatibility + between models and with the parallel LMDZ.COMMON dyn core. Main structural + changes are: +* misc: (replaces what was the "bibio" directory) +- Should only contain extremely generic (and non physics or + dynamics-specific) routines +* dynlonlat_phylonlat: (new interface directory) +- This directory contains routines relevent to physics/dynamics grid + interactions, e.g. routines gr_dyn_fi or gr_fi_dyn and calfis +- Moreover the dynlonlat_phylonlat contains directory "phystd". + This subdirectories should only contain specific interfaces (e.g. + iniphysiq) or main programs (e.g. newstart). +* phystd/dyn1d: this subdirectory contains the 1D models. + +== 17/04/2015 == JL & SG +- Correct radiative transfer bug for the Top layer in callcorrk (=rev 1419). Only impacts plevrad(2). +== 04/05/2015 == SG +- Return to a previous interpolation scheme for pmid and tmid in callcorrk. + +== 16/09/2015 == EM +- reorganizing the "datadir" structure: aerosol properties should now be in + subdirectory 'aerosol_properties' of datadir, and surface.nc files should + be in subdirectory 'surface_data'. These subdirectory names are stored in + module datafile_mod. +- Made things retro-compatible so that using an 'old' datadir structure (ie. + aerosol properties files and surface files in datadir) still works. + +== 21/09/2015 == MT +- Cleanup of physiq.F90 and changed condense_cloud.F90 to condense_co2.F90 + +== 14/10/2015 == MT +- Implementation of the Spectral Albedo. Albedo(ngrid) is now Albedo(ngrid,L_NSPECTV) and has a value for each visible band. +- Albedodat/Albedo0 have been removed. We now use Albedo_bareground. +- CO2 Ice Albedo North/South dichotomy has been removed. CO2 ice Albedo is no longer stocked in start file. You can now +prescribe CO2 ice albedo in callphys.def with "albedoco2ice". Its default value is 0.5. + +== 14/10/2015 == MT +- Cleanup of callcorrk.F90. + +== 15/10/2015 == MT +- Harmonization of the calculation of the surface tracer tendencies in physiq.F90. + +== 22/10/2015 == MT +- Cleaning of condense_co2.F90. + +== 04/11/2015 == MT +- Corrections of bugs in phyetat0.F90 (vap tracer) and in physiq.F90 (ice evolution scheme). + +== 05/11/2015 == MT +- Minor Albedo correction of bugs in rcm1d. + +== 13/11/2015 == MT +- Spectral Snow Albebdo implemented in the code. + +== 13/01/2016 == EM +- Fix/improvement on planetwide_min/max/sum for the 3D fields which assumed the vertical dimension to be klev. + Now works for any (klon,...) field (e.g. albedo). + +== 10/02/2016 == MT +- Added a generic routine (in utilities directory) to extrapolate ice fields. +- Added a generic version of streamfunction (in utilities directory). + +== 17/03/2016 == EM +- Added tests to ensure that soil model settings are adequate to resolve + sub-surface diurnal and annual thermal waves. + +== 24/03/2016 == EM +- Some fixes/adjustments to run using OpenMP (in the physics, best practice is to always have "save" variables, + this of course includes all module variables, as "threadprivate"). + +== 25/03/2016 == EM +- Code reorganization (to mach comming evolutions on all planetary models), + created a "phy_common" directory to contain routines common (wrt structural + nature of underlying code/grid) to all LMDZ-related physics packages. +- Moved ioipsl_getincom_p.F90 from "misc" to "phy_common" and modified it + to match Earth GCM version and renamed it ioipsl_getin_p_mod.F90 +- Adapted calls from phystd/* routines accordingly +- Adapted "create_make_gcm" and "makegcm*" scripts accordingly + (deleted obsolete makegcm_g95) + +== 28/03/2016 == EM +- Added module "regular_lonlat_mod.F90" (to store information on global + lon-lat grid) in phy_common. +- Turned iniphysiq (in dynlonlat_phylonlat/phymars)into module + "iniphysiq_mod.F90". + +== 29/03/2016 == EM +- Added "time_phylmdz_mod.F90" module to store information on time and + calendar in the physics, should be used instead of accessing "temps_mod" + from the dynamics. And moved daysec and dtphys from module "comcstfi_mod" + to module "time_phylmdz_mod". +- made "inifis" a module. + +== 30/03/2016 == EM +- Got rid of references to "control_mod" from the physics. Added a couple + of relevent variables for outputs in time_phylmdz_mod. + +== 05/04/2016 == EM +- Got rid of references to "dimensions.h" from physics packages: + use nbp_lon (=iim), nbp_lat (=jjp1) and nbp_lev + from module mod_grid_phy_lmdz (in phy_common) instead. +- Removed module "comhdiff_mod.F90", as it is only used by module + surf_heat_transp_mod.F90, moved module variables there. +- Added in "surf_heat_transp_mod" local versions of some arrays + and routines (from dyn3d) required to compute gradient, divergence, etc. + on the global dynamics grid. + As before, the slab ocean only works in serial. + +== 07/04/2016 == EM+MT +- Fix buggy ouputs in 1D introduced by previous code modifications. + +== 07/04/2016 == MT +- In rcm1d.F (1d model), tracers profiles added in input. + +== 08/04/2016 == EM +- Adapted rcm1d.F so that it also runs when compiled from LMDZ.COMMON. + +== 08/04/2016 == EM +- Bug fix in surf_heat_transp_mod (introduced with revision 1529, 05/04/2016, modifications). +- Initialize runoff in hydrol.F90. + +== 08/04/2016 == EM +- Made nsoilmx be no longer a "parameter" and thus added the possibility to define the + number of subsurface layers nsoilmx, along with first layer thickness "lay1_soil" and + companion coefficient "alpha_soil", in callphys.def at run time. + As before (when these were hard-coded), these are such that the depth of + soil mid-layers are: + mlayer(k)=lay1_soil*alpha_soil**(k-1/2), for k=0,nsoil-1 + +== 13/04/2016 == EM +- Some code reorganization: "dynlonlat_phylonlat" directory becomes + "dynphy_lonlat". +- "iniprint.h" moved from "dyn3d" to "misc". + +== 18/04/2016 == EM +- fix for 1D in writediagfi to enable writing at + "ecritphy" rate. +- move iniprint.h to "misc" +- Some code cleanup in anticipation of future updates: + - changed variable names in comgeomphy.F90: give them more + explicit names: rlond => longitude , + rlatd => latitude, airephy => cell_area, + cuphy => dx , cvphy => dy + - removed long(), lati() and area() from comgeomfi_h.F90, + use longitude(), latitude() and cell_are() from + comgeomphy.F90 instead + +== 22/04/2016 == EM +- Updates and cleanup wrt dynamics/physics separation: + Removed init_phys_lmdz.F90 and comgeomphy.F90 from phystd; + comgeomphy is replaced by geometry_mod (located in phy_common). + Added physics_distribution_mod.F90 in phy_common and + mod_interface_dyn_phys.F90 in dynphy_lonlat. + Added nrtype.F90 (contains math const. like PI, etc.) in "misc" + +== 02/05/2016 == JL+EM +- bug fix in calfis: wrong array (pw) sent to physics: the transfered + mass flux should be on the physics grid, not the dynamics grid. + Moreover values at the poles needed to be correctly recomputed. + +== 06/05/2016 == EM +- turn physiq.F90 into module physiq_mod.F90 + +== 20/05/2016 == AS+EM +- cleanup around iniphysiq: separate things between planet-independent + initializations (now done by inigeomphy in dynphy_lonlat) and + mosre physics-package specific things (remain in iniphysiq). + +== 20/05/2016 == EM +- Fix in wstats: use "def_var_stats" and not "def_var" (intended for + writediagfi). + +== 27/05/2016 == EM +- missing libf/dynphy_lonlat/phymars/inigeomphy_mod.F90 in updates around + iniphysiq + +== 12/07/2016 == EM +- move initialization of dimphy from inigeomphy to iniphysiq (initializations +related to routines in phy_common or dynphy_lonlat can be done in +inigeomphy, but any initialization for modules/routines in a physics +package (directory phystd) must be done in the related phystd/iniphysiq +routine. + +== 27/07/2016 == EM +- further cleanup in the dynamics/physics interface: stop sending information + about tracer advection (tracerdyn) back from physics to dynamics as this + input parameter can be read and set in the dynamics. + +== 30/08/2016 == EM +- fix newstart which was broken due to recent updates of the physics/dynamics + interface. + +== 09/09/2016 == EM +- Some code cleanup (and harmonization with LMDZ.COMMON): remove "ecritphy" + from the dynamics (since it is read/used in the physics) and remove + "grireg" (unused) and "physic" (use iflag_phys instead) parameters from + the dynamics. + +== 13/09/2016 == EM +- Further cleanup to harmonize with LMDZ.COMMON turn "idissip" into + "dissip_period". + +== 15/09/2016 == TB +- bug fix in tpindex.F : when computing weights for abundance of species one + should not return the maximum index (leads to out-of-bounds index use in + the caller). + +== 25/10/2016 == EM +Updates for full physics/dynamics separation: +- introduced module vertical_layers_mod.F90 in phy_common to store information + about the vertical grid to be used in the physics. Routines in the physics + should "use vertical_layers_mod" and not "use comvert_mod". +- added nqtot to tracer_h.F90. Always "use tracer_h" in physics instead of + infotrac (which is in the dynamics). +- removed some purely dynamics-related outputs (etot0, zoom parameters, etc.) + from diagfi.nc and stats.nc outputs as these informations are not available + in the physics. +- added scalheight (atmospheric scale height) in comvert_mod. + +== 31/10/2016 == EM +Introducing a first prototype of XIOS outputs: requires compiling with +"-io xios" flag and having an XIOS library at hand. Corresponding +companion xml files iodef.xml and context_lmdz_physics.xml in the "deftank" +subdirectory. Still some work to do concerning the XIOS calendar (definition +of an initial date and month number and lenght). + Index: /trunk/LMDZ.TITAN/create_make_gcm =================================================================== --- /trunk/LMDZ.TITAN/create_make_gcm (revision 1644) +++ /trunk/LMDZ.TITAN/create_make_gcm (revision 1644) @@ -0,0 +1,263 @@ +#!/bin/sh +#set -xv +# +# Ehouarn: added the following feature: +# create_make_gcm must be called with list of directories +# which contain header (or modules) which should be scanned +# by create_make_gcm when checking dependencies. +# Example: +# create_make_gcm dyn3d grid +# means that header/modules will be looked for in directories +# ., dyn3d and grid +# + +# arguments given to create_make_gcm are the directories to scan +src_dirs=$* + +machine=`hostname` +os=`uname` +gcm=`pwd` +logfile=$gcm/create_make_gcm.log +rm -f $logfile ; touch -f $logfile +libf=$gcm/libf +libo=$gcm/libo +CRAY=0 +if [ "$machine" = "atlas" -o "$machine" = "etoile" -o "$machine" = "axis" ] ; then + CRAY=1 +fi +XNEC=0 +if [ "$machine" = "rhodes" ] ; then + XNEC=1 +fi +VPP=0 +if [ "$machine" = "nymphea0" ] ; then + VPP=1 +fi +# +echo "#%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%" +echo "# Definitions de Macros pour Make" +echo "#%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%" +echo +echo "# create_make_gcm arguments: $*" +echo +echo "# Repertoires :" +echo +echo "GCM = "$gcm +if [ "$CRAY" = '0' ] ; then + echo "MACHINE = sun4" +fi +echo 'LIBF = $(GCM)/libf' +if [ "$CRAY" = '0' ] ; then +# echo 'LIBO = $(GCM)/libo/$(MACHINE)' + echo 'LIBO = $(LIBOGCM)/$(MACHINE)' +else + echo 'LIBO = $(GCM)/libo' +fi +#echo 'LOCAL_DIR=$(GCM)' +#echo $localdir +echo "LOCAL_DIR=`echo $localdir`" +echo 'MISC = $(LIBF)/misc' +#echo 'AERONOMARS = $(LIBF)/aeronomars' +echo "FILTRE = filtre" +echo "PHYS = " +echo 'DYN = $(DYNTYPE)' +echo 'LIBPHY = $(LIBO)/libphy$(PHYS).a' +echo 'LIBDYN_PHY = $(LIBO)/libdynlmdz_phy$(PHYS).a' +echo 'DIRMAIN= $(DYN)$(DIM)d' +echo 'RM=rm' +echo +echo "OPLINK = " +echo +echo '# Les differentes librairies pour l"edition des liens:' +echo +echo 'L_DYN = -ldyn$(DIM)d' +echo 'L_FILTRE = -l$(FILTRE)' +echo 'L_DYN_PHY = -ldynlmdz_phy$(PHYS) ' +echo 'L_PHY = -lphy$(PHYS) -lphy_common' +echo 'L_MISC = -lmisc' +#echo 'L_AERONOMARS = -laeronomars' +echo 'L_ADJNT =' +echo +echo "#%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%" +echo "# Option de compilation FORTRAN" +echo "#%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%" +echo + echo 'COMPILE = $(F77) $(OPTIM) $(INCLUDE) -c' + echo 'COMPILE90 = $(F90) $(OPTIM90) $(INCLUDE) -c' + echo 'COMPTRU90 = $(F90) $(OPTIMTRU90) $(INCLUDE) -c' + echo "LINK = $LINK" + echo "AR = $AR" +echo +echo +echo "#%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%" +echo "# Creation des differents executables" +echo "#%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%" +echo +echo "# Executables:" +echo "# ------------" +echo +echo "PROG = code" +echo 'DYN = dyn$(DIM)d' +echo +echo 'main : $(DYN) misc phys phy_common dyn_phy $(OPTION_DEP) ' +echo ' cd $(LIBO) ; $(RANLIB) lib*.a ; cd $(GCM) ;\' +echo ' cd $(LOCAL_DIR); \' +echo ' $(COMPILE90) $(LIBF)/$(DIRMAIN)/$(SOURCE) -o $(PROG).o ; \' +echo ' $(LINK) $(PROG).o -L$(LIBO) $(L_DYN) $(L_DYN_PHY) $(L_ADJNT) $(L_FILTRE) $(L_PHY) $(L_DYN_PHY) $(L_MISC) $(L_DYN) $(L_PHY) $(OPLINK) $(OPTION_LINK) -o $(LOCAL_DIR)/$(PROG).e ; $(RM) $(PROG).o ' +echo +echo 'dyn : $(LIBO)/libdyn$(DIM)d.a $(FILTRE)$(DIM)d' +echo +echo 'olddyn : $(LIBO)/libolddyn$(DIM)d.a $(FILTRE)$(DIM)d' +echo +echo 'phys : $(LIBPHY)' +echo 'phy_common : $(LIBPHY_COMMON)' +echo +echo 'dyn3d : $(LIBO)/libdyn3d.a $(LIBO)/lib$(FILTRE).a' +echo 'dyn2d : $(LIBO)/libdyn2d.a' +echo 'dyn1d : ' +echo +echo 'dyn_phy: $(LIBDYN_PHYS)' +echo +echo 'misc : $(LIBO)/libmisc.a' +echo +#echo 'aeronomars : $(LIBO)/libaeronomars.a' +#echo +echo 'adjnt : $(LIBO)/libadjnt.a' +echo +echo '$(FILTRE)3d : $(LIBO)/lib$(FILTRE).a' +echo +echo '$(FILTRE)2d :' +echo +echo '$(FILTRE)1d :' +echo +echo "#%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%" +echo "# Contenu des differentes bibliotheques" +echo "#%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%" +echo +echo +cd $libf >/dev/null 2>&1 + +for diri in $src_dirs ; do + + if [ -d $diri ] ; then + if [ "`ls $diri/*.F`" != "" ] || [ "`ls $diri/*.[fF]90`" != "" ] ; then +# cd $diri >/dev/null 2>&1 + echo + listlib="" +# Liste des fichiers .F et .F90 n'etant pas des programmes principaux + for fili in `ls $diri/*.[fF]` ; do + # Check if file is a routine or main program + # i.e: look for the "program" keword preceeded by leading spaces + test=` ( head $fili | grep -i '^ *program' ) ` + # if it is not a main program, add it to the list + if [ "$test" = "" ] ; then listlib=$listlib" "$fili ; fi + done + for fili in `ls $diri/*.[fF]90` ; do + # Check if file is a routine or main program + # i.e. look for "program" keyword (with possibly some leading spaces) + test=` ( head $fili | grep -i '^ \{0,\}program' ) ` + # if it is not a main program, add it to the list + if [ "$test" = "" ] ; then listlib=$listlib" "$fili ; fi + done + echo + echo $listlib >> $logfile + echo + # topdiri contains main dir name (without trailing "/blabla" for subdirs) + topdiri=${diri%/*} + echo "#==================================================================" + echo "# Contenu de la bibliotheque correspondant au Directory "$diri + echo "#==================================================================" + echo + for trufile in $listlib ; do + fili=`echo $trufile | awk -F/ ' { print $NF } ' | cut -d. -f1` + echo '$(LIBO)/lib'$topdiri".a : " '$(LIBO)/lib'$topdiri".a("$fili".o)" + echo + done + echo '.PRECIOUS : $(LIBO)/lib'$topdiri'.a' + echo + echo + echo "# Compilation of elements in $diri of library lib"$topdiri".a" + echo + for trufile in $listlib ; do + fili=`echo $trufile | awk -F/ ' { print $NF } ' | cut -d. -f1` + F90=0 ; egrep -i '^ *use ' $trufile > /dev/null 2>&1 && F90=1 + egrep -i '^ *module ' $trufile > /dev/null 2>&1 && F90=1 + egrep -i '#include*.inc ' $trufile > /dev/null 2>&1 && F90=1 + str1='$(LIBO)/lib'$topdiri'.a('$fili'.o) : $(LIBF)/'$trufile + [ "$fili" = "$diri/chem.subs" ] && str1=$str1' $(LIBF)/'$diri/chem.mods.F + +########################################################################## +# TRAITEMENT DES DEPENDANCES +# Differents cas de dependance correspondant a des include ou des +# use module. +# soit dans le repertoire local soit dans un autre. +# Pour dyn3d, il faudrait remplacer la chaine de caractere par $DYN +# ou quelque chose du genre. +########################################################################## + + for stri in ` ( sed -e '/^[cC\!]/d' $trufile | sed -e "/\#include /s/\#include /XXnclude /" -e "/include /s/include /XXnclude /" -e "/INCLUDE /s/INCLUDE /XXnclude /" | sed -n "/XXnclude /s/XXnclude//p" | sed 's/\"//g' | sort | uniq ; sed -e '/^[cC\!]/d' $trufile | egrep -i '^ *use ' | sed -e 's/,/ /' | awk ' { print $2 } ' | sort | uniq ) ` ; do + echo $trufile $fili $stri >> $logfile + strj=`echo $stri | tr [A-Z] [a-z]` + str2="" + for dirinc in $src_dirs ; do +# Recherche dans l'ordre hierarchique inverse car seule la derniere +# ligne est conservee +# if [ $dirinc = phydev ] ; then +# dirstr='$(PHYS)' +# libstr='phy$(PHYS)' +# else + dirstr=$dirinc + libstr=$dirinc +# fi + echo dirinc $dirinc >> $logfile + if [ -f $dirinc/$stri ] ; then + str2='$(LIBF)/'$dirstr/$stri + elif [ -f $dirinc/$strj ] ; then + str2='$(LIBF)/'$dirstr/$stri + elif [ -f $dirinc/$strj.[fF]90 ] || [ -f $dirinc/$strj.[fF] ] ; then + strlib=`echo $libstr | awk -F/ ' { print $1 } '` + str2='$(LIBO)/lib'$strlib'.a('$strj'.o)' + elif [ -f $dirinc/$stri.[fF]90 ] || [ -f $dirinc/$stri.[fF] ] ; then + strlib=`echo $libstr | awk -F/ ' { print $1 } '` + str2='$(LIBO)/lib'$strlib'.a('$stri'.o)' + fi + echo stri $stri >> $logfile + echo str2 $str2 >> $logfile + done + echo dernier str2 $str2 >> $logfile + if [ "$str2" = "" ] ; then + echo Warn: Include $diri $trufile $fili $stri pas trouve >> $logfile + elif [ "$str2" = "$str1" ] ; then + echo Warn: Include $diri $trufile $fili $stri $str1 trouve 2x >> $logfile + else + echo $str1 \\ + str1=$str2 + fi + done # Fin de la boucle sur les dependances et ecriture de la derniere + echo $str1 + # Compile in LIBO directory; and before compiling, remove + # object from library + echo ' cd $(LIBO); \' + echo ' $(AR) d $(LIBO)/lib'$topdiri'.a '$fili'.o ; \' + if [ "$F90" -eq '0' ] ; then + ## Fixed Form Fortran 77 + echo ' $(COMPILE) $(LIBF)/'$trufile' ; \' + else + ## Fortran 90 + if [ `echo $trufile | cut -d. -f2` = F90 ] ; then + ## Free Form + echo ' $(COMPTRU90) $(LIBF)/'$trufile' ; \' + else + echo ' $(COMPILE90) $(LIBF)/'$trufile' ; \' + fi + fi + # Put generated object in library + echo ' $(AR) r $(LIBO)/lib'$topdiri'.a '$fili'.o ; $(RM) '$fili'.o ; \' + echo + done +# + echo + cd $libf + fi + fi +done Index: /trunk/LMDZ.TITAN/libf/chimtitan/aer.c =================================================================== --- /trunk/LMDZ.TITAN/libf/chimtitan/aer.c (revision 1644) +++ /trunk/LMDZ.TITAN/libf/chimtitan/aer.c (revision 1644) @@ -0,0 +1,206 @@ +/* aer: production of aerosol precursors by photochemistry */ + +#include "titan.h" + +void aer( char corps[][10], double *tp, double *nb, double y[][NLEV], + int *zj, double **k_dep, double **f, + double *r1, double *r2, double *r3, double *r4, double *r5, double *r6, + int *utilaer, double *m, double *prod, double *csn, double *csh ) +{ + int re,x,z; + int i,j,c2h2,c2,c2h,hc3n,c3n,c4h2,hcn,h2cn,c4h3,ac6h5,ac6h6; + int nccn,ch3cn,c2h3cn,NMAX; + double v1,v2,v3,alpha,beta1,beta2,gamma,denom; + double temp,ct,dy_c2h2,dy_hc3n,dy_hcn; + double dy_nccn,dy_ch3cn,dy_c2h3cn; + char sor1[20],sor2[20],sor3[20],outlog[10]; + FILE *fp, *out; + + NMAX = 20; + z = (*zj); + temp = tp[z]; + ct = nb[z]; + +/* debug + out = fopen( "aer.log", "a" ); + fprintf( out, "" ); + fclose( out ); +*/ + +/* composes interessants */ +/* --------------------- */ +/* !! decalage de 1 par rapport a calchim !! */ + + c2h2 = utilaer[2]; + c2 = utilaer[3]; + c2h = utilaer[4]; + hc3n = utilaer[5]; + hcn = utilaer[6]; + c3n = utilaer[7]; + h2cn = utilaer[8]; + c4h2 = utilaer[9]; + c4h3 = utilaer[10]; + ac6h5 = utilaer[11]; + ac6h6 = utilaer[12]; + nccn = utilaer[13]; + ch3cn = utilaer[14]; + c2h3cn = utilaer[15]; + + +/* si C2H3CN n'est pas pris en compte: attribue a CH3CN, mais reaction nulle */ + +/* vitesses de reactions */ +/* --------------------- */ + + /* v (et K) en cm3.s-1 */ + v1 = 2.e-16; + v2 = 3.72e-13*exp(-1561./temp); + v3 = 1.0e-12*exp(-900./temp); + + alpha = 6.; + beta1 = 1.; + beta2 = 1.; + gamma = 1.; + + /* k en s-1 */ + k_dep[1][1] = v1 *ct*y[c2h2][z]*y[c4h3][z]; /* C2H2 + C4H3 */ + k_dep[2][1] = v1 *ct*y[hc3n][z]*y[c4h3][z] *alpha; /* HC3N + C4H3 */ + for( i = 3; i <= 5; i++ ) k_dep[i][1] = 0.; + + k_dep[1][2] = v2 *ct*y[c2h2][z]*y[ac6h5][z]; /* C2H2 + AC6H5 */ + k_dep[2][2] = v2 *ct* y[hcn][z]*y[ac6h5][z]*beta1; /* HCN + AC6H5 */ + k_dep[3][2] = v2 *ct*y[hc3n][z]*y[ac6h5][z]*beta2; /* HC3N + AC6H5 */ +/* for( i = 4; i <= 5; i++ ) k_dep[i][2] = 0.; */ + k_dep[4][2] = 5.2e-10 *ct* y[c2][z]*y[ac6h6][z]; /* C2 + AC6H6 */ + k_dep[5][2] = 8.2e-11 *ct*y[c2h][z]*y[ac6h6][z]; /* C2H + AC6H6 */ + + k_dep[1][3] = v3 *ct* y[hcn][z]*y[h2cn][z]; /* HCNH + HCN */ +/* !! debug !! + k_dep[2][3] = v3 *ct*y[hc3n][z]*y[h2cn][z]*gamma; HCNH + HC3N */ + k_dep[2][3] = v3 *ct*y[hc3n][z]*y[h2cn][z]*1.e-10; /* HCNH + HC3N */ + k_dep[3][3] = v3 *ct*y[nccn][z]*y[h2cn][z]*gamma; /* HCNH + NCCN */ + k_dep[4][3] = v3 *ct*y[ch3cn][z]*y[h2cn][z]*gamma; /* HCNH + CH3CN */ + if(c2h3cn!=ch3cn) + k_dep[5][3] = v3*ct*y[c2h3cn][z]*y[h2cn][z]*gamma; /* HCNH + C2H3CN */ + else + k_dep[5][3] = 0.; + +/* Fractions de chaque compose dans les polymeres */ +/* ---------------------------------------------- */ + +/* polyC2H2 */ + + denom = y[c2h2][z] + alpha*y[hc3n][z]; + f[1][1] = y[c2h2][z] / denom; /* C2H2 */ + f[2][1] = alpha*y[hc3n][z] / denom; /* HC3N */ + for( i = 3; i <= 5; i++ ) f[i][1] = 0.; + +/* PAHs */ + + denom = y[c2h2][z] + beta1*y[hcn][z] + beta2*y[hc3n][z]; + f[1][2] = y[c2h2][z] / denom; /* C2H2 */ + f[2][2] = beta1*y[hcn][z] / denom; /* HCN */ + f[3][2] = beta2*y[hc3n][z] / denom; /* HC3N */ + for( i = 4; i <= 5; i++ ) f[i][2] = 0.; + +/* polyHCN */ + + if(c2h3cn!=ch3cn) + denom = y[hcn][z] + gamma*(y[hc3n][z]+y[nccn][z]+y[ch3cn][z]+y[c2h3cn][z]); + else + denom = y[hcn][z] + gamma*(y[hc3n][z]+y[nccn][z]+y[ch3cn][z]); + f[1][3] = y[hcn][z] / denom; /* HCN */ + f[2][3] = gamma* y[hc3n][z] / denom; /* HC3N */ + f[3][3] = gamma* y[nccn][z] / denom; /* NCCN */ + f[4][3] = gamma* y[ch3cn][z] / denom; /* CH3CN */ + if(c2h3cn!=ch3cn) + f[5][3] = gamma*y[c2h3cn][z] / denom; /* C2H3CN */ + else + f[5][3] = 0.; /* C2H3CN */ + +/* Masse molaire et Rapports C/N et C/H */ +/* Taux de production en masse */ +/* Taux de destruction molecules */ +/* ------------------------------------ */ + +/* polyC2H2 */ + + m[1] = NMAX*(f[1][1]*26 + f[2][1]*51); /* g.mol-1 */ + + prod[1] = 0.; + for( i = 1; i <= 5; i++ ) prod[1] += k_dep[i][1]; /* s-1 */ + + dy_c2h2 = prod[1] * NMAX * f[1][1]; + dy_hc3n = prod[1] * NMAX * f[2][1]; + + if( f[2][1] != 0.0e0 ) csn[1] = (2*f[1][1] + 3*f[2][1]) / f[2][1]; + else csn[1] = 1.0e30; + csh[1] = (2*f[1][1] + 3*f[2][1]) / (2*f[1][1] + f[2][1]); + +/* PAHs */ + + m[2] = NMAX*(f[1][2]*26 + f[2][2]*27 + f[3][2]*51); /* g.mol-1 */ + + prod[2] = 0.; + for( i = 1; i <= 5; i++ ) prod[2] += k_dep[i][2]; /* s-1 */ + + dy_c2h2 += prod[2] * NMAX * f[1][2]; + dy_hcn = prod[2] * NMAX * f[2][2]; + dy_hc3n += prod[2] * NMAX * f[3][2]; + + if( (f[2][2]+f[3][2]) != 0.0e0 ) + csn[2] = (2*f[1][2] + f[2][2]+ 3*f[3][2]) / (f[2][2] + f[3][2]); + else csn[2] = 1.0e30; + csh[2] = 1.; /* probleme du nombre exact de H */ + +/* polyHCN */ + + m[3] = NMAX*(f[1][3]*27+f[2][3]*51+f[3][3]*52+f[4][3]*41+f[5][3]*53); /* g.mol-1 */ + + prod[3] = 0.; + for( i = 1; i <= 5; i++ ) prod[3] += k_dep[i][3]; /* s-1 */ + + dy_hcn += prod[3] * NMAX * f[1][3]; + dy_hc3n += prod[3] * NMAX * f[2][3]; + dy_nccn = prod[3] * NMAX * f[3][3]; + dy_ch3cn = prod[3] * NMAX * f[4][3]; + dy_c2h3cn= prod[3] * NMAX * f[5][3]; + + csn[3] = (f[1][3]+3*f[2][3]+2*f[3][3]+2*f[4][3]+3*f[5][3]) + / (f[1][3]+ f[2][3]+2*f[3][3]+ f[4][3]+ f[5][3]); + csh[3] = (f[1][3]+3*f[2][3]+2*f[3][3]+2*f[4][3]+3*f[5][3]) + / (f[1][3]+ f[2][3] +3*f[4][3]+3*f[5][3]); + +/* melange */ + + csn[0] = ( prod[1]*(2*f[1][1]+3*f[2][1]) + + prod[2]*(2*f[1][2]+ f[2][2]+3*f[3][2]) + + prod[3]*( f[1][3]+3*f[2][3]+2*f[3][3]+2*f[4][3]+3*f[5][3]) ) + / ( prod[1]*( f[2][1]) + + prod[2]*( f[2][2]+ f[3][2]) + + prod[3]*( f[1][3]+ f[2][3]+2*f[3][3]+ f[4][3]+ f[5][3]) ); + csh[0] = ( prod[1]*(2*f[1][1]+3*f[2][1]) + + prod[2]*(2*f[1][2]+ f[2][2]+3*f[3][2]) + + prod[3]*( f[1][3]+3*f[2][3]+2*f[3][3]+2*f[4][3]+3*f[5][3]) ) + / ( prod[1]*(2*f[1][1]+ f[2][1]) + + prod[2]*(2*f[1][2]+ f[2][2]+ f[3][2]) + + prod[3]*( f[1][3]+ f[2][3] +3*f[4][3]+3*f[5][3]) ); + +/* mass production rates (in kg m-3 s-1) */ + + prod[0] = 0.; + for( i = 1; i <= 3; i++ ) + { + prod[i] = prod[i] * ct * m[i] / 6.022e23 *1.e3; + prod[0] += prod[i]; + } + + *r1 = dy_c2h2; + *r2 = dy_hc3n; + *r3 = dy_hcn; + *r4 = dy_nccn; + *r5 = dy_ch3cn; + *r6 = dy_c2h3cn; + +} + Index: /trunk/LMDZ.TITAN/libf/chimtitan/chimie.c =================================================================== --- /trunk/LMDZ.TITAN/libf/chimtitan/chimie.c (revision 1644) +++ /trunk/LMDZ.TITAN/libf/chimtitan/chimie.c (revision 1644) @@ -0,0 +1,117 @@ +/* chimie: Chemistry fabric */ +/* GCCM */ + +/* ko: low pressure limit: 3 body reaction (1st) */ +/* ki: high pressure limit: 2 body reaction (2nd) */ + +#include "titan.h" + +void chimie_( char CORPS[][10], double *NB, double *TEMP, double KRATE[][NLEV], int REACTIF[][5], + int *NOM_PERTE, int *NOM_PROD, int PERTE[][200][2], int PROD[][200] ) +{ + int dep,i,j,k,l,lat; + double ai,ao,ei,eo,ki,ko,m,ti,to; + FILE *out; + char corps[100][10]; + static char reaction[NREAC+1][12][10]={ +#include VERCHIM + "", "", "", "", "", "","","","","","",""}; + + for( i = 0; i <= NC; i++) + { + strcpy( corps[i], CORPS[i] ); + corps[i][strcspn(CORPS[i], " ")] = '\0'; + } + + for( i = 0; i <= NC-1; i++ ) + { + NOM_PERTE[i] = NOM_PROD[i] = 0; + for( j = 0; j < 200; j++ ) + PERTE[i][j][0] = PERTE[i][j][1] = PROD[i][j] = 0; + } + dep = 0; + for( i = dep; i <= NREAC-1; i++ ) /* Number of reactions */ + { + for( j = 0; j <= 4; j++ ) /* Number of compouds in each reactions */ + { + k = 0; + if( (strcmp(reaction[i][j],"prod")) /* prod and soot are not */ + && (strcmp(reaction[i][j],"soot")) /* considered in the compounds */ + && (strcmp(reaction[i][j],"")) ) /* Which compound ? */ + { + while( strcmp(reaction[i][j],corps[k]) ) /* Compound in reaction j, column i */ + { + if( k == NC+1 ) + { + out = fopen( "err.log", "a" ); + fprintf( out, "I cannot find %s\n", reaction[i][j] ); + fclose( out ); + exit(0); + } + k++; + } + REACTIF[i][j] = k; /* is number k */ + } + else REACTIF[i][j] = NC; + } + } + for( i = dep; i <= NREAC-1; i++ ) /* Total loss and production */ + { + j = REACTIF[i][0]; /* First compound reaction i */ + k = NOM_PERTE[j] + 1; /* Loss one more times */ + if( k >= 200 ) exit(0); + NOM_PERTE[j] = k; + PERTE[j][k-1][0] = i; /* Compound j loss in reaction i for the kth time */ + PERTE[j][k-1][1] = REACTIF[i][1]; /* Compound j reacts with number 2 in reaction i */ + j = REACTIF[i][1]; /* Second compound reaction i */ + if( j != NC ) /* Neither photodissociation nor desexcitation */ + { + k = NOM_PERTE[j] + 1; /* Loss one more times */ + if( k >= 200 ) exit(0); + NOM_PERTE[j] = k; + PERTE[j][k-1][0] = i; /* Compound j is loss in reaction i for the kth times */ + PERTE[j][k-1][1] = REACTIF[i][0]; /* Compound j reacts with number 1 reaction i */ + } + for( j = 2; j < 5; j++ ) /* Compounds from 3 to 5 */ + { + k = REACTIF[i][j]; /* Number of compound */ + if( k != NC ) + { + l = NOM_PROD[k] + 1; /* One more time produced */ + if( l >= 200 ) exit(0); + NOM_PROD[k] = l; + PROD[k][l-1] = i; /* at reaction i */ + } + } + } + for( i = RDISS+1; i <= NREAC-1; i++ ) /* 0 a RDISS-1: photodiss, RDISS: disso N2 */ + { + ao = strtod(reaction[i][5], NULL); + to = strtod(reaction[i][6], NULL); + eo = strtod(reaction[i][7], NULL); + ai = strtod(reaction[i][8], NULL); + ti = strtod(reaction[i][9], NULL); + ei = strtod(reaction[i][10],NULL); + m = strtod(reaction[i][11],NULL); + for( j = 0; j <= NLEV-1; j++ ) + { + ko = ao * pow( TEMP[j], to) * exp( eo / TEMP[j] ); + if( m == 1.0e0 ) + KRATE[i][j] = ko; + else if( m == 2.0e0 ) + { + KRATE[i][j] = ko * pow( NB[j], 2.0e0 ); + } + else if( m == 3.0e0 ) + { + if( ai == 0.0e0 ) + KRATE[i][j] = ko * pow( NB[j], 3.0e0 ); + else + { + ki = ai * pow( TEMP[j], ti ) * exp( ei / TEMP[j] ); + KRATE[i][j] = pow( NB[j], 3.0e0 ) * ko * ki / ( ko * NB[j] + ki ); + } + } + } + } +} Index: /trunk/LMDZ.TITAN/libf/chimtitan/chimie_simpnit =================================================================== --- /trunk/LMDZ.TITAN/libf/chimtitan/chimie_simpnit (revision 1644) +++ /trunk/LMDZ.TITAN/libf/chimtitan/chimie_simpnit (revision 1644) @@ -0,0 +1,387 @@ + "H2", "HV", "H", "H", "", "","","","","","","", /* 1 */ + "CH3", "HV", "1CH2", "H", "", "","","","","","","", /* 2 */ + "CH4", "HV", "1CH2", "H2", "", "","","","","","","", /* 3 */ + "CH4", "HV", "CH", "H2", "H", "","","","","","","", /* 4 */ + "CH4", "HV", "CH3", "H", "", "","","","","","","", /* 5 */ + "C2H2", "HV", "C2H", "H", "", "","","","","","","", /* 6 */ + "C2H2", "HV", "C2", "H2", "", "","","","","","","", /* 7 */ + "C2H4", "HV", "C2H2", "H2", "", "","","","","","","", /* 8 */ + "C2H4", "HV", "C2H2", "H", "H", "","","","","","","", /* 9 */ + "C2H6", "HV", "C2H4", "H2", "", "","","","","","","", /* 10 */ + "C2H6", "HV", "C2H4", "H", "H", "","","","","","","", /* 11 */ + "C2H6", "HV", "C2H2", "H2", "H2","","","","","","","", /* 12 */ + "C2H6", "HV", "CH4", "1CH2", "", "","","","","","","", /* 13 */ + "C2H6", "HV", "CH3", "CH3", "", "","","","","","","", /* 14 */ + "C3H3", "HV", "C3H2", "H", "", "","","","","","","", /* 15 */ + "CH2CCH2","HV", "C3H3", "H", "", "","","","","","","", /* 16 */ + "CH2CCH2","HV", "C3H2", "H2", "", "","","","","","","", /* 17 */ + "CH3CCH", "HV", "C3H3", "H", "", "","","","","","","", /* 18 */ + "CH3CCH", "HV", "C3H2", "H2", "", "","","","","","","", /* 19 */ + "C3H6", "HV", "CH2CCH2","H", "H", "","","","","","","", /* 20 */ + "C3H6", "HV", "CH3CCH", "H", "H", "","","","","","","", /* 21 */ + "C3H6", "HV", "C2H4", "3CH2", "", "","","","","","","", /* 22 */ + "C3H6", "HV", "C2H3", "CH3", "", "","","","","","","", /* 23 */ + "C3H6", "HV", "C2H2", "CH4", "", "","","","","","","", /* 24 */ + "C3H8", "HV", "C3H6", "H2", "", "","","","","","","", /* 25 */ + "C3H8", "HV", "C2H6", "1CH2", "", "","","","","","","", /* 26 */ + "C3H8", "HV", "C2H5", "CH3", "", "","","","","","","", /* 27 */ + "C3H8", "HV", "C2H4", "CH4", "", "","","","","","","", /* 28 */ + "C4H2", "HV", "C4H", "H", "", "","","","","","","", /* 29 */ + "C4H2", "HV", "C2H", "C2H", "", "","","","","","","", /* 30 */ + "C4H2", "HV", "C2H2", "C2", "", "","","","","","","", /* 31 */ + "C4H2", "HV", "C4H2s", "", "", "","","","","","","", /* 32 */ + "C4H4", "HV", "C4H2", "H2", "", "","","","","","","", /* 33 */ + "C4H4", "HV", "C2H2", "C2H2", "", "","","","","","","", /* 34 */ + "C4H6", "HV", "C4H4", "H2", "", "","","","","","","", /* 35 */ + "C4H6", "HV", "C2H4", "C2H2", "", "","","","","","","", /* 36 */ + "C4H6", "HV", "CH3", "C3H3", "", "","","","","","","", /* 37 */ + "C4H10", "HV", "C3H5", "CH3", "H2","","","","","","","", /* 38 */ + "C4H10", "HV", "C2H4", "C2H4", "H2","","","","","","","", /* 39 */ + "C4H10", "HV", "C3H6", "CH4", "", "","","","","","","", /* 40 */ + "C4H10", "HV", "C3H6", "CH3", "H", "","","","","","","", /* 41 */ + "C4H10", "HV", "C2H4", "C2H6", "", "","","","","","","", /* 42 */ + "C4H10", "HV", "C2H2", "C2H6", "H2","","","","","","","", /* 43 */ + "C4H10", "HV", "CH3", "C3H7", "", "","","","","","","", /* 44 */ + "C4H10", "HV", "C2H5", "C2H5", "", "","","","","","","", /* 45 */ + + "AC6H6", "HV", "prod", "CH3", "", "","","","","","","", /* 46 */ + "AC6H6", "HV", "AC6H5", "H", "", "","","","","","","", /* 47 */ + + "N2", "HV", "N4S", "N4S", "", "","","","","","","", /* 48 */ + "HCN", "HV", "H", "CN", "", "","","","","","","", /* 49 */ + "HC3N", "HV", "C2H", "CN", "", "","","","","","","", /* 50 */ + "HC3N", "HV", "H", "C3N", "", "","","","","","","", /* 51 */ + "NCCN", "HV", "CN", "CN", "", "","","","","","","", /* 52 */ + "CH3CN", "HV", "CH3", "CN", "", "","","","","","","", /* 53 */ + "C4N2", "HV", "C3N", "CN", "", "","","","","","","", /* 54 */ + + "N2", "", "N4S", "N4S", "", "0.00e+00","+00.0","+00000","0.00e+00","+00.0","+00000","1", + + "H", "H", "H2", "", "", "2.70e-31","-00.6","+00000","1.00e-11","+00.0","+00000","3", /* Baulch92 */ + "H", "1CH2", "CH", "H2", "", "5.00e-11","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "H", "3CH2", "H2", "CH", "", "3.54e-11","+0.32","+00000","0.00e+00","+00.0","+00000","2", + "H", "3CH2", "CH3", "", "", "1.70e-25","-01.8","+00000","3.50e-11","+0.32","-00000","3", /* cf V05 */ + "H", "CH3", "CH4", "", "", "6.33e-21","-2.98","-00635","2.63e-08","-0.60","-00189","3", + "H", "CH3", "H2", "3CH2", "", "1.00e-10","+00.0","-07600","0.00e+00","+00.0","+00000","2", + "H", "CH4", "H2", "CH3", "", "2.18e-20","+03.0","-04045","0.00e+00","+00.0","+00000","2", + "H", "C2H", "C2H2", "", "", "1.26e-18","-03.1","-00721","3.00e-10","+00.0","+00000","3", /* cf M05 */ + "H", "C2H2", "C2H3", "", "", "3.30e-30","+00.0","-00740","1.40e-11","+00.0","-01300","3", + "H", "C2H3", "H2", "C2H2", "", "6.86e-11","+00.0","+00023","0.00e+00","+00.0","+00000","2", + "H", "C2H3", "C2H4", "", "", "5.76e-24","-01.3","+00000","1.80e-10","+00.0","-00000","3", /* cf M05 */ + "H", "C2H4", "C2H3", "H2", "", "8.40e-17","+1.93","-06518","0.00e+00","+0.00","-00000","2", /* cf V05 */ + "H", "C2H4", "C2H5", "", "", "1.39e-29","+00.0","-00562","6.60e-15","+1.28","-00650","3", + "H", "C2H5", "CH3", "CH3", "", "1.20e-10","+00.0","-00000","0.00e+00","+00.0","+00000","2", /* Sillesen 93 */ + "H", "C2H5", "H2", "C2H4", "", "3.00e-12","+00.0","+00000","0.00e+00","+00.0","+00000","2", + "H", "C2H5", "C2H6", "", "", "5.50e-23","-2.00","-01040","1.66e-10","+00.0","+00000","3", + "H", "C2H6", "H2", "C2H5", "", "2.40e-15","+01.5","-03730","0.00e+00","+00.0","+00000","2", + "H", "C3H2", "C3H3", "", "", "1.70e-23","-1.80","-00000","1.00e-10","+0.00","+00000","3", /* cf V05 */ + "H", "C3H3", "CH3CCH", "", "", "9.40e-20","-3.30","-00000","1.00e-10","+0.00","+00000","3", /* cf M05 */ + "H", "C3H3", "CH2CCH2","", "", "1.70e-25","-01.8","+00000","2.50e-10","+0.00","-00000","3", /* cf V05 */ + "H", "CH3CCH", "CH3", "C2H2", "", "8.00e-24","-02.0","-01225","9.63e-12","+00.0","-01560","3", /* cf W04 */ + "H", "CH3CCH", "C3H3", "H2", "", "4.70e-16","+1.74","-03873","0.00e+00","+0.00","-00000","2", /* cf M05 */ + "H", "CH3CCH", "C3H5", "", "", "4.40e-31","+00.0","-00000","6.00e-11","+00.0","-01233","3", /* cf V05 */ + "H", "CH2CCH2","C2H2", "CH3", "", "8.00e-24","-2.00","-01225","9.70e-13","+0.00","-01550","3", /* cf W04 */ + "H", "CH2CCH2","CH3CCH", "H", "", "1.30e-11","+0.00","-01156","0.00e+00","+0.00","-00000","2", /* cf V05 */ + "H", "CH2CCH2","C3H5", "", "", "8.00e-24","+2.00","-01225","1.40e-11","+00.0","-01000","3", /* cf V05 */ + "H", "C3H5", "C2H3", "CH3", "", "4.00e-12","+0.00","-00000","0.00e+00","+0.00","-00000","2", /* cf M05 */ + "H", "C3H5", "CH2CCH2","H2", "", "1.40e-11","+00.0","+00000","0.00e+00","+00.0","+00000","2", + "H", "C3H5", "CH3CCH", "H2", "", "1.40e-11","+00.0","+00000","0.00e+00","+00.0","+00000","2", + "H", "C3H5", "C3H6", "", "", "1.00e-24","+00.0","+00000","2.80e-10","+00.0","+00000","3", /* cf V05 */ + "H", "C3H6", "C3H5", "H2", "", "2.87e-19","+02.5","-01254","0.00e+00","+00.0","+00000","2", + "H", "C3H6", "CH3", "C2H4", "", "2.20e-11","+00.0","-01641","0.00e+00","+00.0","+00000","2", /* M00 */ + "H", "C3H6", "C3H7", "", "", "1.30e-28","+00.0","-00380","9.47e-15","+1.16","-00440","3", /* cf M05 */ + "H", "C3H7", "C3H6", "H2", "", "3.00e-12","+00.0","+00000","0.00e+00","+00.0","+00000","2", + "H", "C3H7", "C2H5", "CH3", "", "6.00e-11","+0.00","-00000","0.00e+00","+0.00","-00000","2", /* cf M05 */ + "H", "C3H7", "C3H8", "", "", "2.50e-27","+0.00","-00000","2.50e-10","+0.00","-00000","3", /* cf M05 */ + "H", "C3H8", "C3H7", "H2", "", "2.20e-18","+2.54","-03400","0.00e+00","+00.0","+00000","2", + "H", "C4H", "C4H2", "", "", "1.26e-18","-03.1","-00721","3.00e-10","+00.0","+00000","3", /* cf M05 */ + "H", "C4H2", "C4H3", "", "", "2.00e-26","+0.00","-00740","1.39e-10","+0.00","-01184","3", /* cf M05 */ + "H", "C4H3", "C4H4", "", "", "8.56e-10","+00.0","-00405","0.00e+00","+00.0","+00000","2", +// "H", "C4H3", "C4H4", "", "", "1.50e-19","-03.0","-00300","8.56e-10","+00.0","-00405","3", /* cf M05 */ + "H", "C4H3", "C4H2", "H2", "", "1.20e-11","+00.0","-00000","0.00e+00","+00.0","+00000","2", + "H", "C4H3", "C2H2", "C2H2", "", "3.30e-12","+00.0","-00000","0.00e+00","+00.0","+00000","2", + "H", "C4H4", "C4H5", "", "", "3.32e-12","+0.00","+00000","0.00e+00","+00.0","+00000","2", +// "H", "C4H4", "C4H5", "", "", "8.76e-08","-7.00","-01390","3.32e-12","+0.00","+00000","3", /* cf W04 */ + "H", "C4H5", "prod", "", "", "1.50e-19","-03.0","-00300","1.00e-10","+00.0","+00000","3", /* cf M05 */ + "H", "C4H6", "H2", "C4H5", "", "1.05e-13","+0.70","-03019","0.00e+00","+0.00","+00000","2", /* Weisman 88 */ + "H", "C4H6", "prod", "", "", "7.70e-30","+0.00","-00380","8.50e-12","+0.00","-00000","3", /* cf V05 */ + "H", "C4H10", "prod", "H2", "", "3.50e-11","+0.00","-03970","0.00e+00","+0.00","-00000","2", /* cf V05 */ +// "H", "AC6H5", "C4H2", "C2H2", "", "3.16e-05","-01.6","-01117","0.00e+00","+00.0","+00000","2", /* cf M05 */ + "H", "AC6H5", "AC6H6", "", "", "1.82e+28","-16.3","-03526","1.66e-10","+0.00","+00000","3", /* WetF 97 */ + "H", "AC6H6", "AC6H5", "H2", "", "4.15e-10","+0.00","-08057","0.00e+00","+0.00","+00000","2", /* WetF 97 */ + "H2", "CH", "CH3", "", "", "4.70e-26","-01.6","+00000","2.50e-10","-0.08","+00000","3", /* Brownsword 97 */ + "H2", "CH", "3CH2", "H", "", "3.10e-10","+0.00","-01650","0.00e+00","+00.0","+00000","2", + "H2", "1CH2", "CH3", "H", "", "1.20e-10","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "H2", "3CH2", "CH3", "H", "", "5.00e-15","-00.0","-00000","0.00e+00","+00.0","+00000","2", /* cf V05 */ + "H2", "CH3", "CH4", "H", "", "1.14e-20","+2.74","-04740","0.00e+00","+00.0","+00000","2", + "H2", "C2", "C2H", "H", "", "1.77e-10","+0.00","-01470","0.00e+00","+00.0","+00000","2", /* cf V05,W04,M05 */ + "H2", "C2H", "C2H2", "H", "", "1.20e-11","+0.00","-00998","0.00e+00","+00.0","+00000","2", + "H2", "C2H3", "H", "C2H4", "", "1.57e-20","+2.56","-02529","0.00e+00","+00.0","+00000","2", + "H2", "C2H5", "C2H6", "H", "", "5.11e-24","+03.6","-04253","0.00e+00","+00.0","+00000","2", + "H2", "C3H5", "H", "C3H6", "", "1.80e-19","+2.38","-09557","0.00e+00","+00.0","+00000","2", + "H2", "C3H7", "C3H8", "H", "", "3.00e-21","+2.84","-04600","0.00e+00","+00.0","+00000","2", + "H2", "C4H", "C4H2", "H", "", "9.20e-18","+2.17","-00478","0.00e+00","+00.0","+00000","2", /* cf W04 */ + "H2", "C4H5", "C4H6", "H", "", "6.61e-15","+0.50","-01864","0.00e+00","+0.00","+00000","2", /* Weisman 88 */ + "H2", "AC6H5", "AC6H6", "H", "", "9.48e-20","+2.43","-03159","0.00e+00","+00.0","+00000","2", /* cf M05 */ + "CH", "CH", "C2H2", "", "", "1.99e-10","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "CH", "CH4", "C2H4", "H", "", "3.96e-08","-1.04","-00036","0.00e+00","+00.0","+00000","2", + "CH", "C2H2", "C3H2", "H", "", "1.59e-09","-0.23","-00016","0.00e+00","+00.0","+00000","2", /* cf V05,W04,M05 */ + "CH", "C2H4", "CH3CCH", "H", "", "3.90e-09","-0.55","-00029","0.00e+00","+00.0","+00000","2", /* cf V05,W04 */ + "CH", "C2H4", "CH2CCH2","H", "", "3.90e-09","-0.55","-00029","0.00e+00","+00.0","+00000","2", /* cf V05,W04 */ + "CH", "C2H6", "C2H4", "CH3", "", "1.90e-08","-0.86","-00053","0.00e+00","+00.0","+00000","2", /* cf V05,W04 */ + "CH", "C2H6", "C3H6", "H", "", "1.90e-08","-0.86","-00053","0.00e+00","+00.0","+00000","2", /* cf V05,W04 */ + "CH", "CH3CCH", "C4H4", "H", "", "4.60e-10","+0.00","+00000","0.00e+00","+0.00","+00000","2", /* Butler 81, cf M05 */ + "CH", "C3H8", "prod", "H", "", "1.90e-10","+0.00","+00240","0.00e+00","+00.0","+00000","2", + "CH", "C4H10", "prod", "", "", "4.40e-10","+0.00","+00028","0.00e+00","+00.0","+00000","2", /* Baulch 92 */ + "1CH2", "1CH2", "C2H2", "H", "H", "5.00e-11","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "1CH2", "3CH2", "C2H2", "H", "H", "3.00e-11","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "1CH2", "CH3", "C2H4", "H", "", "3.00e-11","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "1CH2", "CH4", "3CH2", "CH4", "", "1.20e-11","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "1CH2", "CH4", "CH3", "CH3", "", "5.90e-11","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "1CH2", "C2H", "C2H2", "CH", "", "3.00e-11","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "1CH2", "C2H2", "3CH2", "C2H2", "", "8.14e-11","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "1CH2", "C2H2", "C3H3", "H", "", "2.90e-10","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "1CH2", "C2H3", "C2H2", "CH3", "", "3.00e-11","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "1CH2", "C2H4", "3CH2", "C2H4", "", "2.30e-11","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "1CH2", "C2H4", "C3H6", "", "", "1.50e-18","-3.00","-00300","1.32e-10","+00.0","+00000","3", /* cf M05 */ + "1CH2", "C2H5", "C2H4", "CH3", "", "1.50e-11","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "1CH2", "C2H5", "C3H6", "H", "", "1.50e-11","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "1CH2", "C2H6", "3CH2", "C2H6", "", "3.60e-11","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "1CH2", "C2H6", "C2H5", "CH3", "", "1.90e-10","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "1CH2", "C3H5", "C4H6", "H", "", "3.30e-10","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "1CH2", "C3H5", "C2H4", "C2H3", "", "6.67e-11","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "1CH2", "C3H6", "3CH2", "C3H6", "", "5.00e-11","+0.00","+00000","0.00e+00","+0.00","+00000","2", /* Tsang 91 */ + "1CH2", "C3H6", "C3H5", "CH3", "", "8.70e-11","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "1CH2", "C3H7", "C2H5", "C2H4", "", "4.29e-11","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "1CH2", "C3H7", "C3H6", "CH3", "", "1.71e-11","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "1CH2", "C3H8", "C2H5", "C2H5", "", "1.60e-10","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "1CH2", "N2", "3CH2", "N2", "", "1.00e-11","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "3CH2", "3CH2", "C2H2", "H", "H", "1.80e-10","+0.00","-00400","0.00e+00","+00.0","+00000","2", + "3CH2", "3CH2", "C2H2", "H2", "", "2.00e-11","-00.0","-00400","0.00e+00","+00.0","+00000","2", /* cf W04 */ + "3CH2", "CH3", "C2H4", "H", "", "7.00e-11","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "3CH2", "CH4", "CH3", "CH3", "", "7.13e-12","+0.00","-05052","0.00e+00","+00.0","+00000","2", + "3CH2", "CH4", "C2H6", "", "", "3.50e-12","+0.00","-03332","0.00e+00","+00.0","+00000","2", + "3CH2", "C2H", "CH", "C2H2", "", "3.00e-11","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "3CH2", "C2H2", "C3H2", "H2", "", "1.00e-12","-00.0","-03332","0.00e+00","+00.0","+00000","2", /* cf M05 */ + "3CH2", "C2H2", "C3H3", "H", "", "2.00e-11","+0.00","-03330","0.00e+00","+00.0","+00000","2", /* cf W04,V05 */ + "3CH2", "C2H3", "CH3", "C2H2", "", "3.00e-11","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "3CH2", "C2H4", "C3H5", "H", "", "5.31e-12","+0.00","-02658","0.00e+00","+00.0","+00000","2", /* cf V05 */ + "3CH2", "C2H5", "CH3", "C2H4", "", "3.00e-11","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "3CH2", "C2H6", "C3H8", "", "", "8.13e-12","+0.00","-03332","0.00e+00","+00.0","+00000","2", + "3CH2", "C2H6", "CH3", "C2H5", "", "1.07e-11","+0.00","-03981","0.00e+00","+00.0","+00000","2", + "3CH2", "C3H5", "C4H6", "H", "", "5.00e-11","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "3CH2", "C3H6", "C3H5", "CH3", "", "1.20e-12","+0.00","-03116","0.00e+00","+00.0","+00000","2", + "3CH2", "C3H7", "CH3", "C3H6", "", "3.00e-12","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "3CH2", "C3H7", "C2H4", "C2H5", "", "3.00e-11","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "3CH2", "C3H8", "C4H10", "", "", "8.13e-12","+0.00","-03332","0.00e+00","+00.0","+00000","2", + "3CH2", "C3H8", "C3H7", "CH3", "", "1.50e-24","+3.65","-03600","0.00e+00","+00.0","+00000","2", + "3CH2", "C4H2", "C4H", "CH3", "", "2.16e-11","+0.00","-02165","0.00e+00","+00.0","+00000","2", + "3CH2", "C4H6" ,"CH3CCH", "C2H4", "", "6.14e-12","+0.00","-01731","0.00e+00","+0.00","+00000","2", /* Kraus 93 */ + "3CH2", "C4H10", "prod", "", "", "4.30e-12","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "CH3", "CH3", "C2H5", "H", "", "8.28e-12","0.099","-05335","0.00e+00","+00.0","+00000","2", + "CH3", "CH3", "C2H6", "", "", "1.65e-04","-8.75","-00985","1.17e-10","+0.00","-00000","3", /* Cody 03 */ + "CH3", "C2H", "C3H3", "H", "", "4.00e-11","+00.0","+00000","0.00e+00","+00.0","+00000","2", + "CH3", "C2H2", "CH3CCH", "H", "", "3.18e-20","+2.42","-06488","0.00e+00","+0.00","+00000","2", /* Diau 94 */ + "CH3", "C2H2", "C3H5", "", "", "3.30e-30","+0.00","-00740","1.00e-12","+0.00","-03900","3", /* cf V05 */ + "CH3", "C2H3", "C2H2", "CH4", "", "3.40e-11","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "CH3", "C2H3", "C3H6", "", "", "5.00e-27","+0.00","-00000","1.10e-10","+0.00","+00000","3", /* cf M05 */ + "CH3", "C2H4", "C2H3", "CH4", "", "1.10e-23","+03.7","-04780","0.00e+00","+00.0","+00000","2", + "CH3", "C2H4", "C3H7", "", "", "1.39e-29","+00.0","-00562","3.50e-13","+00.0","-03700","3", /* cf V05 */ + "CH3", "C2H5", "CH4", "C2H4", "", "3.25e-11","-0.50","+00000","0.00e+00","+00.0","+00000","2", + "CH3", "C2H5", "C3H8", "", "", "1.01e+20","-16.1","-01897","8.12e-10","-0.50","+00000","3", + "CH3", "C2H6", "CH4", "C2H5", "", "2.50e-31","+6.00","-03043","0.00e+00","+00.0","+00000","2", +// "CH3", "C3H3", "C4H6", "", "", "3.50e-06","-07.0","-01390","6.80e-11","+00.0","+00130","3", /* cf V05 */ + "CH3", "CH3CCH", "C2H6", "C2H", "", "8.32e-13","+00.0","-04428","0.00e+00","+00.0","+00000","2", + "CH3", "CH2CCH2","C2H5", "C2H2", "", "3.32e-13","+00.0","-04076","0.00e+00","+00.0","+00000","2", + "CH3", "C3H5", "CH2CCH2","CH4", "", "5.00e-12","-0.32","+00066","0.00e+00","+00.0","+00000","2", + "CH3", "C3H5", "prod", "", "", "1.28e-30","-0.32","+00066","1.69e-10","-0.32","+00066","3", /* cf W04 */ + "CH3", "C3H6", "CH4", "C3H5", "", "2.66e-13","+00.0","-04440","0.00e+00","+00.0","+00000","2", + "CH3", "C3H6", "prod", "", "", "7.70e-29","+0.00","-00380","1.19e-13","+00.0","-03330","3", /* cf V05 */ + "CH3", "C3H7", "C4H10", "", "", "8.63e+28","-18.5","-02307","3.20e-10","-0.32","+00000","3", + "CH3", "C3H7", "C3H6", "CH4", "", "1.90e-11","-0.32","+00000","0.00e+00","+00.0","+00000","2", + "CH3", "C3H8", "C3H7", "CH4", "", "1.50e-24","+3.65","-03600","0.00e+00","+00.0","+00000","2", + "CH3", "C4H4", "C4H3", "CH4", "", "6.61e-13","+0.00","-02502","0.00e+00","+00.0","+00000","2", + "CH3", "C4H6", "prod", "", "", "3.30e-30","+0.00","-00740","1.30e-13","+00.0","-02060","3", /* cf V05 */ + "CH3", "C4H10", "prod", "CH4", "", "6.60e-13","-00.0","-04840","0.00e+00","+00.0","+00000","2", /* cf V05 */ + "CH4", "C2", "CH3CCH", "", "", "1.70e-11","+0.00","-02805","0.00e+00","+00.0","+00000","2", /* Baulch 92 (3C2) */ + "CH4", "C2", "CH3", "C2H", "", "5.05e-11","+0.00","-00297","0.00e+00","+00.0","+00000","2", + "CH4", "C2H", "C2H2", "CH3", "", "1.20e-11","+0.00","-00491","0.00e+00","+00.0","+00000","2", + "CH4", "C2H3", "C2H4", "CH3", "", "2.40e-24","+4.02","-02754","0.00e+00","+00.0","+00000","2", + "CH4", "C2H5", "C2H6", "CH3", "", "1.43e-25","+4.14","-06322","0.00e+00","+00.0","+00000","2", + "CH4", "C3H5", "C3H6", "CH3", "", "6.60e-23","+3.40","-11670","0.00e+00","+00.0","+00000","2", /* cf V05 */ + "CH4", "C3H7", "C3H8", "CH3", "", "4.00e-26","+4.02","-05473","0.00e+00","+00.0","+00000","2", + "CH4", "C4H", "C4H2", "CH3", "", "1.20e-11","+0.00","-00491","0.00e+00","+00.0","+00000","2", /* pas de 1/3 */ + "CH4", "AC6H5", "AC6H6", "CH3", "", "3.32e-12","+0.00","-04329","0.00e+00","+00.0","+00000","2", /* cf M05 */ + "C2", "C2H2", "C2H", "C2H", "", "4.30e-10","+0.00","+00000","0.00e+00","+0.00","+00000","2", /* Baulch 92 (1C2) */ + "C2", "C2H4", "C2H", "C2H3", "", "3.30e-10","+0.00","+00000","0.00e+00","+0.00","+00000","2", /* Baulch 92 (1C2) */ + "C2", "C2H6", "C2H", "C2H5", "", "1.60e-10","+0.00","+00000","0.00e+00","+0.00","+00000","2", /* Baulch 92 (1C2) */ + "C2", "C3H8", "C3H7", "C2H", "", "3.30e-10","+0.00","+00000","0.00e+00","+0.00","+00000","2", /* Baulch 92 (1C2) */ + "C2", "AC6H6", "soot", "", "", "5.20e-10","+0.00","+00000","0.00e+00","+0.00","+00000","2", /* Reisler 80 */ + "C2H", "C2H", "C2H2", "C2", "", "3.00e-12","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C2H", "C2H2", "C4H2", "H", "", "8.60e-16","+1.80","+00474","0.00e+00","+00.0","+00000","2", + "C2H", "C2H2", "C4H", "H2", "", "8.60e-18","+1.80","+00474","0.00e+00","+00.0","+00000","2", /* Ralf Kaiser */ + "C2H", "C2H3", "C2H2", "C2H2", "", "1.60e-12","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C2H", "C2H4", "C4H4", "H", "", "7.80e-11","+0.00","+00134","0.00e+00","+00.0","+00000","2", + "C2H", "C2H5", "C3H3", "CH3", "", "3.00e-11","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C2H", "C2H5", "C2H2", "C2H4", "", "3.00e-12","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C2H", "C2H6", "C2H2", "C2H5", "", "5.10e-11","+0.00","-00076","0.00e+00","+00.0","+00000","2", /* cf V05 */ + "C2H", "CH3CCH", "C4H2", "CH3", "", "1.60e-10","+0.00","+00071","0.00e+00","+00.0","+00000","2", /* cf W04 */ + "C2H", "CH2CCH2","C2H2", "C3H3", "", "1.30e-10","+0.00","+00103","0.00e+00","+00.0","+00000","2", /* cf W04 */ + "C2H", "C3H5", "CH2CCH2","C2H2", "", "1.20e-11","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C2H", "C3H6", "prod", "H", "", "2.00e-10","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C2H", "C3H7", "C3H3", "C2H5", "", "2.00e-11","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C2H", "C3H7", "C3H6", "C2H2", "", "1.00e-11","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C2H", "C3H8", "C3H7", "C2H2", "", "9.80e-11","+0.00","-00071","0.00e+00","+00.0","+00000","2", /* cf V05 */ + "C2H", "C4H2", "prod", "H", "", "8.60e-16","+1.80","+00474","0.00e+00","+00.0","+00000","2", + "C2H", "C4H6", "AC6H6", "H", "", "3.30e-10","-00.0","-00000","0.00e+00","+00.0","+00000","2", /* cf V05 */ + "C2H", "C4H10", "prod", "C2H2", "", "1.20e-10","-00.0","-00000","0.00e+00","+00.0","+00000","2", /* cf V05 */ + "C2H", "AC6H6", "soot", "H", "", "8.20e-11","+0.00","+00000","0.00e+00","+0.00","+00000","2", /* WandF 97 */ + "C2H2", "C2H3", "C4H4", "H", "", "3.32e-12","+0.00","-02516","0.00e+00","+00.0","+00000","2", + "C2H2", "C2H3", "C4H5", "", "", "8.20e-30","+0.00","-00352","4.16e-19","+1.90","-01058","3", /* cf M05 */ + "C2H2", "C2H5", "prod", "", "", "3.30e-30","+0.00","-00740","5.60e-14","+00.0","-03520","3", /* cf V05 */ + "C2H2", "C3H5", "prod", "", "", "3.30e-30","+0.00","-00740","5.30e-14","+0.00","-03500","3", /* cf V05 */ + "C2H2", "C3H7", "C3H5", "C2H4", "", "1.20e-12","+0.00","-04531","0.00e+00","+00.0","+00000","2", + "C2H2", "C4H", "prod", "H", "", "8.60e-16","+1.80","+00474","0.00e+00","+00.0","+00000","2", /* pas de 1/3 */ + "C2H2", "C4H3", "soot", "", "", "2.00e-16","+0.00","-00000","0.00e+00","+0.00","+00000","2", + "C2H2", "C4H5", "AC6H6", "H", "", "3.50e-09","-1.07","-02417","0.00e+00","+0.00","+00000","2", /* WetF 94 */ + "C2H2", "C4H5", "AC6H6", "H", "", "4.20e-19","+1.80","-00602","0.00e+00","+0.00","+00000","2", /* Weismann 88 */ + "C2H2", "AC6H5", "soot", "", "", "3.72e-13","+0.00","-01561","0.00e+00","+0.00","+00000","2", /* Yu 94 */ + "C2H3", "C2H3", "C4H6", "", "", "5.00e-18","-3.75","-00300","1.40e-10","+00.0","+00000","3", /* cf M05 */ + "C2H3", "C2H3", "C2H2", "C2H4", "", "2.40e-11","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C2H3", "C2H4", "C4H6", "H", "", "8.30e-13","+0.00","-03676","0.00e+00","+00.0","+00000","2", + "C2H3", "C2H5", "C3H5", "CH3", "", "6.10e-47","+11.2","+03289","0.00e+00","+00.0","+00000","2", + "C2H3", "C2H5", "C2H4", "C2H4", "", "8.00e-13","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C2H3", "C2H5", "C2H2", "C2H6", "", "8.00e-13","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C2H3", "C2H5", "prod", "", "", "1.90e-27","+0.00","+00000","2.50e-11","+00.0","+00000","3", /* cf W04 */ + "C2H3", "C2H6", "C2H4", "C2H5", "", "9.98e-22","+3.30","-05285","0.00e+00","+00.0","+00000","2", + "C2H3", "C3H5", "CH2CCH2","C2H4", "", "4.00e-12","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C2H3", "C3H5", "C3H6", "C2H2", "", "8.00e-12","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C2H3", "C3H5", "prod", "H", "H", "8.00e-11","+0.00","-00000","0.00e+00","+00.0","+00000","2", /* cf W04 */ + "C2H3", "C3H6", "CH3", "C4H6", "", "1.20e-12","+0.00","-02520","0.00e+00","+00.0","+00000","2", + "C2H3", "C3H6", "C2H4", "C3H5", "", "3.68e-24","+3.50","-02356","0.00e+00","+00.0","+00000","2", + "C2H3", "C3H6", "prod", "H", "", "1.20e-12","+0.00","-03240","0.00e+00","+00.0","+00000","2", /* cf V05 */ + "C2H3", "C3H7", "C2H4", "C3H6", "", "2.00e-12","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C2H3", "C3H7", "C3H8", "C2H2", "", "2.00e-12","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C2H3", "C3H7", "prod", "", "", "3.50e-07","-7.00","-01390","1.60e-11","+00.0","+00000","3", /* cf V05 */ + "C2H3", "C3H8", "C3H7", "C2H4", "", "1.00e-21","+3.30","-05285","0.00e+00","+00.0","+00000","2", + "C2H3", "C4H3", "AC6H6", "", "", "4.77e-10","+0.00","-00411","0.00e+00","+0.00","+00000","2", /* Duran 88 */ + "C2H3", "C4H5", "AC6H6", "H2", "", "3.05e-37","+7.07","-01817","0.00e+00","+0.00","+00000","2", /* Westmoreland 89 */ + "C2H3", "C4H6", "prod", "", "", "1.50e-14","-5.84","-02363","2.45e-12","-0.17","-01630","3", /* cf V05 */ + "C2H4", "C2H5", "C2H3", "C2H6", "", "1.05e-21","+3.13","-09063","0.00e+00","+00.0","+00000","2", + "C2H4", "C3H5", "prod", "H", "", "1.00e-14","+0.00","-05776","0.00e+00","+00.0","+00000","2", /* cf V05 */ + "C2H4", "C3H7", "prod", "", "", "7.70e-30","+0.00","-00380","1.80e-13","+00.0","-03670","3", /* cf V05 */ + "C2H4", "C4H", "C4H2", "C2H3", "", "4.60e-11","+0.00","+00025","0.00e+00","+00.0","+00000","2", /* cf W04 */ + "C2H4", "AC6H5", "prod", "H", "", "1.20e-12","+0.00","-02250","0.00e+00","+00.0","+00000","2", /* cf M05 */ + "C2H5", "C2H5", "C4H10", "", "", "6.59e-06","-6.39","-00301","1.26e-11","+00.0","-00096","3", + "C2H5", "C2H5", "C2H6", "C2H4", "", "2.40e-12","+0.00","-00000","0.00e+00","+00.0","+00000","2", /* Baulch 92 */ + "C2H5", "CH2CCH2","C2H6", "C3H3", "", "5.25e-13","+0.00","-04579","0.00e+00","+0.00","+00000","2", /* Getty 67 */ + "C2H5", "C3H5", "CH2CCH2","C2H6", "", "1.60e-12","+0.00","+00066","0.00e+00","+00.0","+00000","2", + "C2H5", "C3H5", "C3H6", "C2H4", "", "4.30e-12","+0.00","+00066","0.00e+00","+00.0","+00000","2", + "C2H5", "C3H5", "prod", "", "", "3.50e-07","-07.0","-01390","3.30e-11","+00.0","+00066","3", /* cf V05 */ + "C2H5", "C3H6", "C2H6", "C3H5", "", "3.70e-24","+3.50","-03340","0.00e+00","+00.0","+00000","2", + "C2H5", "C3H6", "prod", "", "", "7.70e-30","-00.0","-00380","1.70e-13","+00.0","+03625","3", /* cf V05 */ + "C2H5", "C3H7", "C2H6", "C3H6", "", "2.40e-12","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C2H5", "C3H7", "C3H8", "C2H4", "", "1.90e-12","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C2H5", "C3H7", "prod", "", "", "9.70e+28","-18.5","-02307","3.30e-11","+00.0","+00000","3", /* cf V05 */ + "C2H5", "C3H8", "C3H7", "C2H6", "", "1.50e-24","+3.65","-04600","0.00e+00","+00.0","+00000","2", + "C2H6", "C3H5", "C2H5", "C3H6", "", "3.90e-22","+3.30","-09986","0.00e+00","+00.0","+00000","2", + "C2H6", "C3H7", "C3H8", "C2H5", "", "4.20e-25","+3.82","-04550","0.00e+00","+00.0","+00000","2", + "C2H6", "C4H", "C4H2", "C2H5", "", "3.50e-11","+0.00","+00003","0.00e+00","+00.0","+00000","2", /* cf W04 */ + "C3H3", "C3H3", "AC6H6", "", "", "6.00e-28","+0.00","+01680","1.20e-10","+0.00","+00000","3", /* Moses 00, Morter 94 */ + "C3H3", "C3H5", "prod", "", "", "2.90e-11","+0.00","-00000","0.00e+00","+00.0","+00000","2", /* cf W04 */ + "C3H3", "C4H2", "CH3CCH", "C4H", "", "1.00e-13","+0.00","+00000","0.00e+00","+0.00","+00000","2", /* Alkernade 89 */ + "C3H5", "C3H5", "CH2CCH2","C3H6", "", "1.40e-13","+0.00","+00132","0.00e+00","+00.0","+00000","2", + "C3H5", "C3H5", "prod", "", "", "3.50e-07","-7.00","-01390","1.70e-11","+0.00","+00132","3", /* cf V05 */ + "C3H5", "C3H6", "C2H5", "C4H4", "", "1.00e-14","+0.00","-05776","0.00e+00","+0.00","+00000","2", /* Tsang 91 */ + "C3H5", "C3H7", "C3H6", "C3H6", "", "2.40e-12","+0.00","+00066","0.00e+00","+00.0","+00000","2", + "C3H5", "C3H7", "CH2CCH2","C3H8", "", "1.20e-12","+0.00","+00066","0.00e+00","+00.0","+00000","2", + "C3H5", "C3H7", "prod", "", "", "3.50e-07","-7.00","-01390","3.40e-11","+0.00","+00066","3", /* cf V05 */ + "C3H5", "C3H8", "C3H7", "C3H6", "", "3.90e-22","+3.30","-09986","0.00e+00","+00.0","+00000","2", + "C3H5", "C4H10", "C3H6", "prod", "", "7.00e-23","+3.30","-07800","0.00e+00","+00.0","+00000","2", /* cf V05 */ + "C3H6", "C3H7", "C3H5", "C3H8", "", "3.70e-24","+3.50","-03340","0.00e+00","+00.0","+00000","2", + "C3H7", "C3H7", "C3H8", "C3H6", "", "2.80e-12","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C3H7", "C3H7", "prod", "", "", "2.90e-21","+0.00","+00000","1.70e-11","+00.0","+00000","3", /* cf V05 */ + "C4H", "C4H2", "prod", "H", "", "8.60e-16","+1.80","+00474","0.00e+00","+00.0","+00000","2", /* pad de 1/3 */ + "C4H2s", "", "C4H2", "", "", "1.00e+01","+0.00","+00000","0.00e+00","+00.0","+00000","1", + "C4H2s", "N2", "C4H2", "N2", "", "1.40e-15","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C4H2s", "C2H2", "prod", "H", "H", "3.50e-13","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C4H2s", "C2H4", "prod", "H", "H", "4.20e-13","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C4H2s", "CH3CCH", "prod", "H", "H", "1.60e-13","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C4H2s", "CH3CCH", "prod", "CH3", "H", "2.30e-13","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C4H2s", "CH3CCH", "prod", "C2H2", "", "2.50e-13","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C4H2s", "CH3CCH", "prod", "C2H3", "", "8.70e-14","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C4H2s", "C3H6", "prod", "H", "H", "1.60e-13","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C4H2s", "C3H6", "prod", "CH3", "H", "4.10e-13","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C4H2s", "C3H6", "prod", "C2H2", "", "2.50e-13","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C4H2s", "C3H6", "prod", "C2H3", "", "4.90e-14","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C4H2s", "C4H2", "prod", "C2H2", "", "8.20e-13","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C4H2s", "C4H2", "prod", "H", "H", "1.00e-12","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C4H2s", "C4H6", "soot", "H", "", "9.50e-13","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C4H2s", "C4H6", "AC6H6", "C2H2", "", "8.80e-13","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C4H2s", "C4H6", "prod", "C2H4", "", "3.60e-13","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C4H3", "C4H3", "prod", "", "", "3.50e-07","-7.00","-01390","7.00e-11","+0.00","+00000","3", /* cf V05 */ + "C4H4", "C4H4", "prod", "", "", "7.25e-14","+0.00","-09261","0.00e+00","+00.0","+00000","2", + "AC6H5", "AC6H6", "prod", "", "", "1.59e-12","+0.00","-02168","0.00e+00","+00.0","+00000","2", /* cf W04 */ + + "N4S", "N4S", "N2", "", "", "8.27e-34","+0.00","+00490","0.00e+00","+00.0","+00000","3", + "N4S", "CH", "CN", "H", "", "2.67e-10","-0.09","+00000","0.00e+00","+00.0","+00000","2", + "N4S", "CH3", "HCN", "H2", "", "6.00e-12","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "N4S", "CH3", "H2CN", "H", "", "5.60e-11","+0.00","+00000","0.00e+00","+00.0","+00000","2", +/* "N4S", "C2H2", "CH2CN", "", "", "1.70e-14","+0.00","+00000","0.00e+00","+0.00","+00000","2", Sato 74 */ + "N4S", "C2H3", "CH3CN", "", "", "3.08e-12","+0.00","+00000","0.00e+00","+0.00","+00000","2", /* Payne 96 */ + "N4S", "C2H3", "CH2CN", "H", "", "6.16e-11","+0.00","+00000","0.00e+00","+0.00","+00000","2", /* Payne 96 */ + "N4S", "C2H4", "CH3", "HCN", "", "3.32e-14","+0.00","-00352","0.00e+00","+0.00","+00000","2", /* Kerr 72 */ + "N4S", "C2H5", "HCN", "CH4", "", "1.10e-10","+0.00","+00000","0.00e+00","+0.00","+00000","2", /* Stief 95 */ + "N4S", "C2H6", "prod", "", "", "0.00e-00","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "N4S", "CH3CCH", "CHCN", "CH3", "", "1.15e-13","+0.00","-00745","0.00e+00","+0.00","+00000","2", /* Kerr 72 */ + "N4S", "C3H6", "HCN", "C2H4", "H", "2.49e-13","+0.00","-00830","0.00e+00","+0.00","+00000","2", /* Paraskevopoulos 67 */ + "N4S", "C3H8", "HCN", "C2H6", "H", "3.39e-13","+0.00","-02563","0.00e+00","+0.00","+00000","2", /* Onyzchuk 53 */ + "N4S", "C4H10", "C3H8", "HCN", "H", "2.97e-14","+0.00","-01813","0.00e+00","+0.00","+00000","2", /* Back 54 */ + "N4S", "H2CN", "HCN", "prod", "", "1.00e-10","+0.00","-00200","0.00e+00","+00.0","+00000","2", + "N4S", "CHCN", "NCCN", "H", "", "6.00e-15","+0.00","+00000","0.00e+00","+0.00","+00000","2", /* Safrany 68 */ + "N4S", "CH3CN", "HCN", "HCN", "H", "2.28e-15","+0.00","-00813","0.00e+00","+0.00","+00000","2", /* Forst 57 */ + "CN", "H", "HCN", "", "", "2.40e-24","-2.20","-00567","2.99e-09","-0.50","+00000","3", /* Tsang 92 */ + "CN", "H2", "HCN", "H", "", "2.23e-21","+3.31","-00756","0.00e+00","+00.0","+00000","2", + "CN", "CH4", "HCN", "CH3", "", "4.64e-16","+1.53","-00504","0.00e+00","+00.0","+00000","2", /* est, Yang 93 */ + "CN", "CH4", "CH3CN", "H", "", "5.15e-17","+1.53","-00504","0.00e+00","+0.00","+00000","2", /* est, Yang 93 */ + "CN", "C2H2", "HC3N", "H", "", "5.67e-09","-0.55","-00004","0.00e+00","+00.0","+00000","2", + "CN", "C2H6", "HCN", "C2H5", "", "5.91e-12","+0.22","+00058","0.00e+00","+00.0","+00000","2", + "CN", "CH3CCH", "HC3N", "CH3", "", "2.10e-10","+0.00","+00000","0.00e+00","+0.00","+00000","2", /* Sayah 88 */ + "CN", "CH2CCH2","HCN", "C3H3", "", "2.63e-10","+0.00","+00167","0.00e+00","+0.00","+00000","2", /* Butterfield 93 */ + "CN", "C3H6", "prod", "H", "", "1.73e-10","+0.00","+00102","0.00e+00","+0.00","+00000","2", /* Sims 93 */ + "CN", "C3H8", "C3H7", "HCN", "", "2.44e-14","+1.19","+00378","0.00e+00","+0.00","+00000","2", /* Yang 92 */ + "CN", "C4H2", "HC3N", "C2H", "", "5.26e-09","-0.52","-00019","0.00e+00","+0.00","+00000","2", /* est. Sims 93 */ + "CN", "C4H4", "C4H3", "HCN", "", "1.07e-07","-0.82","-00228","0.00e+00","+0.00","+00000","2", /* Yang 92 */ + "CN", "CN", "NCCN", "", "", "9.44e-23","-2.61","+00000","9.40e-12","+0.00","+00000","3", /* Tsang 92 */ + "CN", "HCN", "NCCN", "H", "", "2.51e-17","+1.71","-00770","0.00e+00","+0.00","+00000","2", /* Yang 92 */ + "CN", "CH3CN", "NCCN", "CH3", "", "6.46e-11","+0.00","-01190","0.00e+00","+0.00","+00000","2", /* Zabarnick 89 */ + "CN", "NCCN", "prod", "", "", "2.19e-21","+2.70","-00325","0.00e+00","+00.0","+00000","2", + "CN", "HC3N", "C4N2", "H", "", "1.70e-10","+0.00","+00000","0.00e+00","+0.00","+00000","2", /* Halpern 89 */ + "CN", "C4N2", "NCCN", "C3N", "", "5.40e-13","+0.00","+00000","0.00e+00","+0.00","+00000","2", /* Seki 96 */ + "HCN", "H", "H2CN", "", "", "4.40e-24","-2.73","-03855","5.50e-11","+00.0","-02438","3", + "HCN", "CH", "CHCN", "H", "", "5.00e-11","+0.00","+00500","0.00e+00","+0.00","+00000","2", /* Zabarnick 91 */ + "HCN", "C2H", "H", "HC3N", "", "5.26e-12","+0.00","-00770","0.00e+00","+00.0","+00000","2", + "HCN", "H2CN", "soot", "", "", "1.00e-12","+0.00","-00900","0.00e+00","+0.00","+00000","2", + "H2CN", "H", "HCN", "H2", "", "1.40e-10","+0.00","-00200","0.00e+00","+00.0","+00000","2", + "H2CN", "H2CN", "prod", "HCN", "", "1.16e-11","+0.00","+00000","0.00e+00","+0.00","+00000","2", /* Horne 70 */ + "H2CN", "CH3CN", "soot", "", "", "1.00e-12","+0.00","-00900","0.00e+00","+0.00","+00000","2", + "H2CN", "NCCN", "soot", "", "", "1.00e-12","+0.00","-00900","0.00e+00","+0.00","+00000","2", + "H2CN", "HC3N", "soot", "", "", "1.00e-12","+0.00","-00900","0.00e+00","+0.00","+00000","2", + "N2", "CH", "prod", "", "", "3.80e-25","-2.60","+00000","9.65e-11","-0.15","+00000","3", /* Fulle 96 */ + "CHCN", "H2", "CH3CN", "", "", "1.00e-13","+0.00","+00000","0.00e+00","+0.00","+00000","2", /* Adamson 97 */ + "CH2CN", "CH2CN", "C2H4", "NCCN", "", "1.80e-11","+0.00","-00769","0.00e+00","+0.00","+00000","2", /* est, Hoobler 97 */ + "CH3CN", "H", "CH3", "HCN", "", "3.39e-12","+0.00","-03954","0.00e+00","+0.00","+00000","2", /* Jamieson 70 */ + "CH3CN", "H", "CH4", "CN", "", "1.66e-13","+0.00","-01505","0.00e+00","+0.00","+00000","2", /* Jamieson 70 */ + "CH3CN", "C2H", "HC3N", "CH3", "", "1.80e-11","+0.00","-00769","0.00e+00","+0.00","+00000","2", /* Hoobler 97 */ + "C3N", "H2", "HC3N", "H", "", "1.20e-11","+0.00","-00998","0.00e+00","+00.0","+00000","2", + "C3N", "CH4", "HC3N", "CH3", "", "1.20e-11","+0.00","-00491","0.00e+00","+00.0","+00000","2", + "C3N", "C2H2", "prod", "H", "", "8.60e-16","+1.80","+00474","0.00e+00","+00.0","+00000","2", + "C3N", "C2H4", "prod", "H", "", "7.80e-11","+0.00","+00134","0.00e+00","+00.0","+00000","2", + "C3N", "C2H6", "HC3N", "C2H5", "", "3.50e-11","+0.00","+00002","0.00e+00","+00.0","+00000","2", + "C3N", "C3H8", "C3H7", "HC3N", "", "6.00e-12","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C3N", "C4H2", "prod", "H", "", "8.60e-16","+1.80","+00474","0.00e+00","+00.0","+00000","2", + "C3N", "HC3N", "prod", "H", "", "8.60e-16","+1.80","+00474","0.00e+00","+00.0","+00000","2", + "HC3N", "H", "HCN", "C2H2", "", "1.00e-28","+0.00","-00740","0.55e-12","+00.0","-00500","3", + "HC3N", "C2H", "prod", "H", "", "8.60e-16","+1.80","+00474","0.00e+00","+00.0","+00000","2", + "HC3N", "C4H", "prod", "H", "", "2.90e-16","+1.80","+00474","0.00e+00","+00.0","+00000","2", + "HC3N", "C4H3", "soot", "", "", "1.20e-15","+0.00","-00000","0.00e+00","+0.00","+00000","2", Index: /trunk/LMDZ.TITAN/libf/chimtitan/chimie_simpnit_051006 =================================================================== --- /trunk/LMDZ.TITAN/libf/chimtitan/chimie_simpnit_051006 (revision 1644) +++ /trunk/LMDZ.TITAN/libf/chimtitan/chimie_simpnit_051006 (revision 1644) @@ -0,0 +1,388 @@ + "H2", "HV", "H", "H", "", "","","","","","","", /* 1 */ + "CH3", "HV", "1CH2", "H", "", "","","","","","","", /* 2 */ + "CH4", "HV", "1CH2", "H2", "", "","","","","","","", /* 3 */ + "CH4", "HV", "CH", "H2", "H", "","","","","","","", /* 4 */ + "CH4", "HV", "CH3", "H", "", "","","","","","","", /* 5 */ + "C2H2", "HV", "C2H", "H", "", "","","","","","","", /* 6 */ + "C2H2", "HV", "C2", "H2", "", "","","","","","","", /* 7 */ + "C2H4", "HV", "C2H2", "H2", "", "","","","","","","", /* 8 */ + "C2H4", "HV", "C2H2", "H", "H", "","","","","","","", /* 9 */ + "C2H6", "HV", "C2H4", "H2", "", "","","","","","","", /* 10 */ + "C2H6", "HV", "C2H4", "H", "H", "","","","","","","", /* 11 */ + "C2H6", "HV", "C2H2", "H2", "H2","","","","","","","", /* 12 */ + "C2H6", "HV", "CH4", "1CH2", "", "","","","","","","", /* 13 */ + "C2H6", "HV", "CH3", "CH3", "", "","","","","","","", /* 14 */ + "C3H3", "HV", "C3H2", "H", "", "","","","","","","", /* 15 */ + "CH2CCH2","HV", "C3H3", "H", "", "","","","","","","", /* 16 */ + "CH2CCH2","HV", "C3H2", "H2", "", "","","","","","","", /* 17 */ + "CH3CCH", "HV", "C3H3", "H", "", "","","","","","","", /* 18 */ + "CH3CCH", "HV", "C3H2", "H2", "", "","","","","","","", /* 19 */ + "C3H6", "HV", "CH2CCH2","H", "H", "","","","","","","", /* 20 */ + "C3H6", "HV", "CH3CCH", "H", "H", "","","","","","","", /* 21 */ + "C3H6", "HV", "C2H4", "3CH2", "", "","","","","","","", /* 22 */ + "C3H6", "HV", "C2H3", "CH3", "", "","","","","","","", /* 23 */ + "C3H6", "HV", "C2H2", "CH4", "", "","","","","","","", /* 24 */ + "C3H8", "HV", "C3H6", "H2", "", "","","","","","","", /* 25 */ + "C3H8", "HV", "C2H6", "1CH2", "", "","","","","","","", /* 26 */ + "C3H8", "HV", "C2H5", "CH3", "", "","","","","","","", /* 27 */ + "C3H8", "HV", "C2H4", "CH4", "", "","","","","","","", /* 28 */ + "C4H2", "HV", "C4H", "H", "", "","","","","","","", /* 29 */ + "C4H2", "HV", "C2H", "C2H", "", "","","","","","","", /* 30 */ + "C4H2", "HV", "C2H2", "C2", "", "","","","","","","", /* 31 */ + "C4H2", "HV", "C4H2s", "", "", "","","","","","","", /* 32 */ + "C4H4", "HV", "C4H2", "H2", "", "","","","","","","", /* 33 */ + "C4H4", "HV", "C2H2", "C2H2", "", "","","","","","","", /* 34 */ + "C4H6", "HV", "C4H4", "H2", "", "","","","","","","", /* 35 */ + "C4H6", "HV", "C2H4", "C2H2", "", "","","","","","","", /* 36 */ + "C4H6", "HV", "CH3", "C3H3", "", "","","","","","","", /* 37 */ + "C4H10", "HV", "C3H5", "CH3", "H2","","","","","","","", /* 38 */ + "C4H10", "HV", "C2H4", "C2H4", "H2","","","","","","","", /* 39 */ + "C4H10", "HV", "C3H6", "CH4", "", "","","","","","","", /* 40 */ + "C4H10", "HV", "C3H6", "CH3", "H", "","","","","","","", /* 41 */ + "C4H10", "HV", "C2H4", "C2H6", "", "","","","","","","", /* 42 */ + "C4H10", "HV", "C2H2", "C2H6", "H2","","","","","","","", /* 43 */ + "C4H10", "HV", "CH3", "C3H7", "", "","","","","","","", /* 44 */ + "C4H10", "HV", "C2H5", "C2H5", "", "","","","","","","", /* 45 */ + + "AC6H6", "HV", "prod", "CH3", "", "","","","","","","", /* 46 */ + "AC6H6", "HV", "AC6H5", "H", "", "","","","","","","", /* 47 */ + + "N2", "HV", "N4S", "N4S", "", "","","","","","","", /* 48 */ + "HCN", "HV", "H", "CN", "", "","","","","","","", /* 49 */ + "HC3N", "HV", "C2H", "CN", "", "","","","","","","", /* 50 */ + "HC3N", "HV", "H", "C3N", "", "","","","","","","", /* 51 */ + "NCCN", "HV", "CN", "CN", "", "","","","","","","", /* 52 */ + "CH3CN", "HV", "CH3", "CN", "", "","","","","","","", /* 53 */ + "C4N2", "HV", "C3N", "CN", "", "","","","","","","", /* 54 */ + + "N2", "", "N4S", "N4S", "", "0.00e+00","+00.0","+00000","0.00e+00","+00.0","+00000","1", + + "H", "H", "H2", "", "", "2.70e-31","-00.6","+00000","1.00e-11","+00.0","+00000","3", /* Baulch92 */ + "H", "1CH2", "CH", "H2", "", "5.00e-11","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "H", "3CH2", "H2", "CH", "", "3.54e-11","+0.32","+00000","0.00e+00","+00.0","+00000","2", + "H", "3CH2", "CH3", "", "", "1.70e-25","-01.8","+00000","3.50e-11","+0.32","-00000","3", /* cf V05 */ + "H", "CH3", "CH4", "", "", "6.33e-21","-2.98","-00635","2.63e-08","-0.60","-00189","3", + "H", "CH3", "H2", "3CH2", "", "1.00e-10","+00.0","-07600","0.00e+00","+00.0","+00000","2", + "H", "CH4", "H2", "CH3", "", "2.18e-20","+03.0","-04045","0.00e+00","+00.0","+00000","2", + "H", "C2H", "C2H2", "", "", "1.26e-18","-03.1","-00721","3.00e-10","+00.0","+00000","3", /* cf M05 */ + "H", "C2H2", "C2H3", "", "", "3.30e-30","+00.0","-00740","1.40e-11","+00.0","-01300","3", + "H", "C2H3", "H2", "C2H2", "", "6.86e-11","+00.0","+00023","0.00e+00","+00.0","+00000","2", + "H", "C2H3", "C2H4", "", "", "5.76e-24","-01.3","+00000","1.80e-10","+00.0","-00000","3", /* cf M05 */ + "H", "C2H4", "C2H3", "H2", "", "8.40e-17","+1.93","-06518","0.00e+00","+0.00","-00000","2", /* cf V05 */ + "H", "C2H4", "C2H5", "", "", "1.39e-29","+00.0","-00562","6.60e-15","+1.28","-00650","3", + "H", "C2H5", "CH3", "CH3", "", "1.20e-10","+00.0","-00000","0.00e+00","+00.0","+00000","2", /* Sillesen 93 */ + "H", "C2H5", "H2", "C2H4", "", "3.00e-12","+00.0","+00000","0.00e+00","+00.0","+00000","2", + "H", "C2H5", "C2H6", "", "", "5.50e-23","-2.00","-01040","1.66e-10","+00.0","+00000","3", + "H", "C2H6", "H2", "C2H5", "", "2.40e-15","+01.5","-03730","0.00e+00","+00.0","+00000","2", + "H", "C3H2", "C3H3", "", "", "1.70e-23","-1.80","-00000","1.00e-10","+0.00","+00000","3", /* cf V05 */ + "H", "C3H3", "CH3CCH", "", "", "9.40e-20","-3.30","-00000","1.00e-10","+0.00","+00000","3", /* cf M05 */ + "H", "C3H3", "CH2CCH2","", "", "1.70e-25","-01.8","+00000","2.50e-10","+0.00","-00000","3", /* cf V05 */ + "H", "CH3CCH", "CH3", "C2H2", "", "8.00e-24","-02.0","-01225","9.63e-12","+00.0","-01560","3", /* cf W04 */ + "H", "CH3CCH", "C3H3", "H2", "", "4.70e-16","+1.74","-03873","0.00e+00","+0.00","-00000","2", /* cf M05 */ + "H", "CH3CCH", "C3H5", "", "", "4.40e-31","+00.0","-00000","6.00e-11","+00.0","-01233","3", /* cf V05 */ + "H", "CH2CCH2","C2H2", "CH3", "", "8.00e-24","-2.00","-01225","9.70e-13","+0.00","-01550","3", /* cf W04 */ + "H", "CH2CCH2","CH3CCH", "H", "", "1.30e-11","+0.00","-01156","0.00e+00","+0.00","-00000","2", /* cf V05 */ + "H", "CH2CCH2","C3H5", "", "", "8.00e-24","+2.00","-01225","1.40e-11","+00.0","-01000","3", /* cf V05 */ + "H", "C3H5", "C2H3", "CH3", "", "4.00e-12","+0.00","-00000","0.00e+00","+0.00","-00000","2", /* cf M05 */ + "H", "C3H5", "CH2CCH2","H2", "", "1.40e-11","+00.0","+00000","0.00e+00","+00.0","+00000","2", + "H", "C3H5", "CH3CCH", "H2", "", "1.40e-11","+00.0","+00000","0.00e+00","+00.0","+00000","2", + "H", "C3H5", "C3H6", "", "", "1.00e-24","+00.0","+00000","2.80e-10","+00.0","+00000","3", /* cf V05 */ + "H", "C3H6", "C3H5", "H2", "", "2.87e-19","+02.5","-01254","0.00e+00","+00.0","+00000","2", + "H", "C3H6", "CH3", "C2H4", "", "2.20e-11","+00.0","-01641","0.00e+00","+00.0","+00000","2", /* M00 */ + "H", "C3H6", "C3H7", "", "", "1.30e-28","+00.0","-00380","9.47e-15","+1.16","-00440","3", /* cf M05 */ + "H", "C3H7", "C3H6", "H2", "", "3.00e-12","+00.0","+00000","0.00e+00","+00.0","+00000","2", + "H", "C3H7", "C2H5", "CH3", "", "6.00e-11","+0.00","-00000","0.00e+00","+0.00","-00000","2", /* cf M05 */ + "H", "C3H7", "C3H8", "", "", "2.50e-27","+0.00","-00000","2.50e-10","+0.00","-00000","3", /* cf M05 */ + "H", "C3H8", "C3H7", "H2", "", "2.20e-18","+2.54","-03400","0.00e+00","+00.0","+00000","2", + "H", "C4H", "C4H2", "", "", "1.26e-18","-03.1","-00721","3.00e-10","+00.0","+00000","3", /* cf M05 */ + "H", "C4H2", "C4H3", "", "", "2.00e-26","+0.00","-00740","1.39e-10","+0.00","-01184","3", /* cf M05 */ + "H", "C4H3", "C4H4", "", "", "8.56e-10","+00.0","-00405","0.00e+00","+00.0","+00000","2", +// "H", "C4H3", "C4H4", "", "", "1.50e-19","-03.0","-00300","8.56e-10","+00.0","-00405","3", /* cf M05 */ + "H", "C4H3", "C4H2", "H2", "", "1.20e-11","+00.0","-00000","0.00e+00","+00.0","+00000","2", + "H", "C4H3", "C2H2", "C2H2", "", "3.30e-12","+00.0","-00000","0.00e+00","+00.0","+00000","2", + "H", "C4H4", "C4H5", "", "", "3.32e-12","+0.00","+00000","0.00e+00","+00.0","+00000","2", +// "H", "C4H4", "C4H5", "", "", "8.76e-08","-7.00","-01390","3.32e-12","+0.00","+00000","3", /* cf W04 */ + "H", "C4H5", "prod", "", "", "1.50e-19","-03.0","-00300","1.00e-10","+00.0","+00000","3", /* cf M05 */ + "H", "C4H6", "H2", "C4H5", "", "1.05e-13","+0.70","-03019","0.00e+00","+0.00","+00000","2", /* Weisman 88 */ + "H", "C4H6", "prod", "", "", "7.70e-30","+0.00","-00380","8.50e-12","+0.00","-00000","3", /* cf V05 */ + "H", "C4H10", "prod", "H2", "", "3.50e-11","+0.00","-03970","0.00e+00","+0.00","-00000","2", /* cf V05 */ +// "H", "AC6H5", "C4H2", "C2H2", "", "3.16e-05","-01.6","-01117","0.00e+00","+00.0","+00000","2", /* cf M05 */ + "H", "AC6H5", "AC6H6", "", "", "1.82e+28","-16.3","-03526","1.66e-10","+0.00","+00000","3", /* WetF 97 */ + "H", "AC6H6", "AC6H5", "H2", "", "4.15e-10","+0.00","-08057","0.00e+00","+0.00","+00000","2", /* WetF 97 */ + "H2", "CH", "CH3", "", "", "4.70e-26","-01.6","+00000","2.50e-10","-0.08","+00000","3", /* Brownsword 97 */ + "H2", "CH", "3CH2", "H", "", "3.10e-10","+0.00","-01650","0.00e+00","+00.0","+00000","2", + "H2", "1CH2", "CH3", "H", "", "1.20e-10","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "H2", "3CH2", "CH3", "H", "", "5.00e-15","-00.0","-00000","0.00e+00","+00.0","+00000","2", /* cf V05 */ + "H2", "CH3", "CH4", "H", "", "1.14e-20","+2.74","-04740","0.00e+00","+00.0","+00000","2", + "H2", "C2", "C2H", "H", "", "1.77e-10","+0.00","-01470","0.00e+00","+00.0","+00000","2", /* cf V05,W04,M05 */ + "H2", "C2H", "C2H2", "H", "", "1.20e-11","+0.00","-00998","0.00e+00","+00.0","+00000","2", + "H2", "C2H3", "H", "C2H4", "", "1.57e-20","+2.56","-02529","0.00e+00","+00.0","+00000","2", + "H2", "C2H5", "C2H6", "H", "", "5.11e-24","+03.6","-04253","0.00e+00","+00.0","+00000","2", + "H2", "C3H5", "H", "C3H6", "", "1.80e-19","+2.38","-09557","0.00e+00","+00.0","+00000","2", + "H2", "C3H7", "C3H8", "H", "", "3.00e-21","+2.84","-04600","0.00e+00","+00.0","+00000","2", + "H2", "C4H", "C4H2", "H", "", "9.20e-18","+2.17","-00478","0.00e+00","+00.0","+00000","2", /* cf W04 */ + "H2", "C4H5", "C4H6", "H", "", "6.61e-15","+0.50","-01864","0.00e+00","+0.00","+00000","2", /* Weisman 88 */ + "H2", "AC6H5", "AC6H6", "H", "", "9.48e-20","+2.43","-03159","0.00e+00","+00.0","+00000","2", /* cf M05 */ + "CH", "CH", "C2H2", "", "", "1.99e-10","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "CH", "CH4", "C2H4", "H", "", "3.96e-08","-1.04","-00036","0.00e+00","+00.0","+00000","2", + "CH", "C2H2", "C3H2", "H", "", "1.59e-09","-0.23","-00016","0.00e+00","+00.0","+00000","2", /* cf V05,W04,M05 */ + "CH", "C2H4", "CH3CCH", "H", "", "3.90e-09","-0.55","-00029","0.00e+00","+00.0","+00000","2", /* cf V05,W04 */ + "CH", "C2H4", "CH2CCH2","H", "", "3.90e-09","-0.55","-00029","0.00e+00","+00.0","+00000","2", /* cf V05,W04 */ + "CH", "C2H6", "C2H4", "CH3", "", "1.90e-08","-0.86","-00053","0.00e+00","+00.0","+00000","2", /* cf V05,W04 */ + "CH", "C2H6", "C3H6", "H", "", "1.90e-08","-0.86","-00053","0.00e+00","+00.0","+00000","2", /* cf V05,W04 */ + "CH", "CH3CCH", "C4H4", "H", "", "4.60e-10","+0.00","+00000","0.00e+00","+0.00","+00000","2", /* Butler 81, cf M05 */ + "CH", "C3H8", "prod", "H", "", "1.90e-10","+0.00","+00240","0.00e+00","+00.0","+00000","2", + "CH", "C4H10", "prod", "", "", "4.40e-10","+0.00","+00028","0.00e+00","+00.0","+00000","2", /* Baulch 92 */ + "1CH2", "1CH2", "C2H2", "H", "H", "5.00e-11","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "1CH2", "3CH2", "C2H2", "H", "H", "3.00e-11","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "1CH2", "CH3", "C2H4", "H", "", "3.00e-11","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "1CH2", "CH4", "3CH2", "CH4", "", "1.20e-11","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "1CH2", "CH4", "CH3", "CH3", "", "5.90e-11","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "1CH2", "C2H", "C2H2", "CH", "", "3.00e-11","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "1CH2", "C2H2", "3CH2", "C2H2", "", "8.14e-11","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "1CH2", "C2H2", "C3H3", "H", "", "2.90e-10","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "1CH2", "C2H3", "C2H2", "CH3", "", "3.00e-11","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "1CH2", "C2H4", "3CH2", "C2H4", "", "2.30e-11","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "1CH2", "C2H4", "C3H6", "", "", "1.50e-18","-3.00","-00300","1.32e-10","+00.0","+00000","3", /* cf M05 */ + "1CH2", "C2H5", "C2H4", "CH3", "", "1.50e-11","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "1CH2", "C2H5", "C3H6", "H", "", "1.50e-11","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "1CH2", "C2H6", "3CH2", "C2H6", "", "3.60e-11","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "1CH2", "C2H6", "C2H5", "CH3", "", "1.90e-10","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "1CH2", "C3H5", "C4H6", "H", "", "3.30e-10","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "1CH2", "C3H5", "C2H4", "C2H3", "", "6.67e-11","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "1CH2", "C3H6", "3CH2", "C3H6", "", "5.00e-11","+0.00","+00000","0.00e+00","+0.00","+00000","2", /* Tsang 91 */ + "1CH2", "C3H6", "C3H5", "CH3", "", "8.70e-11","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "1CH2", "C3H7", "C2H5", "C2H4", "", "4.29e-11","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "1CH2", "C3H7", "C3H6", "CH3", "", "1.71e-11","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "1CH2", "C3H8", "C2H5", "C2H5", "", "1.60e-10","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "1CH2", "N2", "3CH2", "N2", "", "1.00e-11","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "3CH2", "3CH2", "C2H2", "H", "H", "1.80e-10","+0.00","-00400","0.00e+00","+00.0","+00000","2", + "3CH2", "3CH2", "C2H2", "H2", "", "2.00e-11","-00.0","-00400","0.00e+00","+00.0","+00000","2", /* cf W04 */ + "3CH2", "CH3", "C2H4", "H", "", "7.00e-11","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "3CH2", "CH4", "CH3", "CH3", "", "7.13e-12","+0.00","-05052","0.00e+00","+00.0","+00000","2", + "3CH2", "CH4", "C2H6", "", "", "3.50e-12","+0.00","-03332","0.00e+00","+00.0","+00000","2", + "3CH2", "C2H", "CH", "C2H2", "", "3.00e-11","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "3CH2", "C2H2", "C3H2", "H2", "", "1.00e-12","-00.0","-03332","0.00e+00","+00.0","+00000","2", /* cf M05 */ + "3CH2", "C2H2", "C3H3", "H", "", "2.00e-11","+0.00","-03330","0.00e+00","+00.0","+00000","2", /* cf W04,V05 */ + "3CH2", "C2H3", "CH3", "C2H2", "", "3.00e-11","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "3CH2", "C2H4", "C3H5", "H", "", "5.31e-12","+0.00","-02658","0.00e+00","+00.0","+00000","2", /* cf V05 */ + "3CH2", "C2H5", "CH3", "C2H4", "", "3.00e-11","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "3CH2", "C2H6", "C3H8", "", "", "8.13e-12","+0.00","-03332","0.00e+00","+00.0","+00000","2", + "3CH2", "C2H6", "CH3", "C2H5", "", "1.07e-11","+0.00","-03981","0.00e+00","+00.0","+00000","2", + "3CH2", "C3H5", "C4H6", "H", "", "5.00e-11","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "3CH2", "C3H6", "C3H5", "CH3", "", "1.20e-12","+0.00","-03116","0.00e+00","+00.0","+00000","2", + "3CH2", "C3H7", "CH3", "C3H6", "", "3.00e-12","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "3CH2", "C3H7", "C2H4", "C2H5", "", "3.00e-11","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "3CH2", "C3H8", "C4H10", "", "", "8.13e-12","+0.00","-03332","0.00e+00","+00.0","+00000","2", + "3CH2", "C3H8", "C3H7", "CH3", "", "1.50e-24","+3.65","-03600","0.00e+00","+00.0","+00000","2", + "3CH2", "C4H2", "C4H", "CH3", "", "2.16e-11","+0.00","-02165","0.00e+00","+00.0","+00000","2", + "3CH2", "C4H6" ,"CH3CCH", "C2H4", "", "6.14e-12","+0.00","-01731","0.00e+00","+0.00","+00000","2", /* Kraus 93 */ + "3CH2", "C4H10", "prod", "", "", "4.30e-12","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "CH3", "CH3", "C2H5", "H", "", "8.28e-12","0.099","-05335","0.00e+00","+00.0","+00000","2", + "CH3", "CH3", "C2H6", "", "", "1.65e-04","-8.75","-00985","1.17e-10","+0.00","-00000","3", /* Cody 03 */ + "CH3", "C2H", "C3H3", "H", "", "4.00e-11","+00.0","+00000","0.00e+00","+00.0","+00000","2", + "CH3", "C2H2", "CH3CCH", "H", "", "3.18e-20","+2.42","-06488","0.00e+00","+0.00","+00000","2", /* Diau 94 */ + "CH3", "C2H2", "C3H5", "", "", "3.30e-30","+0.00","-00740","1.00e-12","+0.00","-03900","3", /* cf V05 */ + "CH3", "C2H3", "C2H2", "CH4", "", "3.40e-11","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "CH3", "C2H3", "C3H6", "", "", "5.00e-27","+0.00","-00000","1.10e-10","+0.00","+00000","3", /* cf M05 */ + "CH3", "C2H4", "C2H3", "CH4", "", "1.10e-23","+03.7","-04780","0.00e+00","+00.0","+00000","2", + "CH3", "C2H4", "C3H7", "", "", "1.39e-29","+00.0","-00562","3.50e-13","+00.0","-03700","3", /* cf V05 */ + "CH3", "C2H5", "CH4", "C2H4", "", "3.25e-11","-0.50","+00000","0.00e+00","+00.0","+00000","2", + "CH3", "C2H5", "C3H8", "", "", "1.01e+20","-16.1","-01897","8.12e-10","-0.50","+00000","3", + "CH3", "C2H6", "CH4", "C2H5", "", "2.50e-31","+6.00","-03043","0.00e+00","+00.0","+00000","2", +// "CH3", "C3H3", "C4H6", "", "", "3.50e-06","-07.0","-01390","6.80e-11","+00.0","+00130","3", /* cf V05 */ + "CH3", "CH3CCH", "C2H6", "C2H", "", "8.32e-13","+00.0","-04428","0.00e+00","+00.0","+00000","2", + "CH3", "CH2CCH2","C2H5", "C2H2", "", "3.32e-13","+00.0","-04076","0.00e+00","+00.0","+00000","2", + "CH3", "C3H5", "CH2CCH2","CH4", "", "5.00e-12","-0.32","+00066","0.00e+00","+00.0","+00000","2", + "CH3", "C3H5", "prod", "", "", "1.28e-30","-0.32","+00066","1.69e-10","-0.32","+00066","3", /* cf W04 */ + "CH3", "C3H6", "CH4", "C3H5", "", "2.66e-13","+00.0","-04440","0.00e+00","+00.0","+00000","2", + "CH3", "C3H6", "prod", "", "", "7.70e-29","+0.00","-00380","1.19e-13","+00.0","-03330","3", /* cf V05 */ + "CH3", "C3H7", "C4H10", "", "", "8.63e+28","-18.5","-02307","3.20e-10","-0.32","+00000","3", + "CH3", "C3H7", "C3H6", "CH4", "", "1.90e-11","-0.32","+00000","0.00e+00","+00.0","+00000","2", + "CH3", "C3H8", "C3H7", "CH4", "", "1.50e-24","+3.65","-03600","0.00e+00","+00.0","+00000","2", + "CH3", "C4H4", "C4H3", "CH4", "", "6.61e-13","+0.00","-02502","0.00e+00","+00.0","+00000","2", + "CH3", "C4H6", "prod", "", "", "3.30e-30","+0.00","-00740","1.30e-13","+00.0","-02060","3", /* cf V05 */ + "CH3", "C4H10", "prod", "CH4", "", "6.60e-13","-00.0","-04840","0.00e+00","+00.0","+00000","2", /* cf V05 */ +// "CH4", "C2", "CH3CCH", "", "", "1.70e-11","+0.00","-02805","0.00e+00","+00.0","+00000","2", /* Baulch 92 (3C2) */ + "CH4", "C2", "CH3", "C2H", "", "9.83e-11","-0.42","-00013","0.00e+00","+00.0","+00000","2", /* Canosa 06 (1C2) */ + "CH4", "C2H", "C2H2", "CH3", "", "1.20e-11","+0.00","-00491","0.00e+00","+00.0","+00000","2", + "CH4", "C2H3", "C2H4", "CH3", "", "2.40e-24","+4.02","-02754","0.00e+00","+00.0","+00000","2", + "CH4", "C2H5", "C2H6", "CH3", "", "1.43e-25","+4.14","-06322","0.00e+00","+00.0","+00000","2", + "CH4", "C3H5", "C3H6", "CH3", "", "6.60e-23","+3.40","-11670","0.00e+00","+00.0","+00000","2", /* cf V05 */ + "CH4", "C3H7", "C3H8", "CH3", "", "4.00e-26","+4.02","-05473","0.00e+00","+00.0","+00000","2", + "CH4", "C4H", "C4H2", "CH3", "", "1.20e-11","+0.00","-00491","0.00e+00","+00.0","+00000","2", /* pas de 1/3 */ + "CH4", "AC6H5", "AC6H6", "CH3", "", "3.32e-12","+0.00","-04329","0.00e+00","+00.0","+00000","2", /* cf M05 */ + "C2", "C2H2", "C4H", "H", "", "1.92e-07","-1.14","-00077","0.00e+00","+0.00","+00000","2", /* Canosa 06 (1C2) + produits: Nadia B. */ + "C2", "C2H4", "C4H3", "H", "", "5.10e-08","-0.93","-00058","0.00e+00","+0.00","+00000","2", /* Canosa 06 (1C2) + produits: Nadia B. */ + "C2", "C2H6", "C2H", "C2H5", "", "2.77e-08","-0.94","-00044","0.00e+00","+0.00","+00000","2", /* Canosa 06 (1C2); Produits ? */ + "C2", "C3H8", "C3H7", "C2H", "", "3.89e-08","-1.31","-00094","0.00e+00","+0.00","+00000","2", /* Canosa 06 (1C2); Produits ? */ + "C2", "AC6H6", "soot", "", "", "5.20e-10","+0.00","+00000","0.00e+00","+0.00","+00000","2", /* Reisler 80 */ + "C2H", "C2H", "C2H2", "C2", "", "3.00e-12","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C2H", "C2H2", "C4H2", "H", "", "8.60e-16","+1.80","+00474","0.00e+00","+00.0","+00000","2", /* peu != de Chastaing 98 */ + "C2H", "C2H2", "C4H", "H2", "", "8.60e-18","+1.80","+00474","0.00e+00","+00.0","+00000","2", /* Ralf Kaiser */ + "C2H", "C2H3", "C2H2", "C2H2", "", "1.60e-12","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C2H", "C2H4", "C4H4", "H", "", "7.80e-11","+0.00","+00134","0.00e+00","+00.0","+00000","2", /* peu != de Chastaing 98 */ + "C2H", "C2H5", "C3H3", "CH3", "", "3.00e-11","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C2H", "C2H5", "C2H2", "C2H4", "", "3.00e-12","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C2H", "C2H6", "C2H2", "C2H5", "", "5.10e-11","+0.00","-00076","0.00e+00","+00.0","+00000","2", /* cf V05 */ + "C2H", "CH3CCH", "C4H2", "CH3", "", "1.60e-10","+0.00","+00071","0.00e+00","+00.0","+00000","2", /* cf W04 */ + "C2H", "CH2CCH2","C2H2", "C3H3", "", "1.30e-10","+0.00","+00103","0.00e+00","+00.0","+00000","2", /* cf W04 */ + "C2H", "C3H5", "CH2CCH2","C2H2", "", "1.20e-11","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C2H", "C3H6", "prod", "H", "", "2.00e-10","+0.00","+00000","0.00e+00","+00.0","+00000","2", /* peu != de Chastaing 98 */ + "C2H", "C3H7", "C3H3", "C2H5", "", "2.00e-11","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C2H", "C3H7", "C3H6", "C2H2", "", "1.00e-11","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C2H", "C3H8", "C3H7", "C2H2", "", "9.80e-11","+0.00","-00071","0.00e+00","+00.0","+00000","2", /* cf V05 */ + "C2H", "C4H2", "prod", "H", "", "8.60e-16","+1.80","+00474","0.00e+00","+00.0","+00000","2", + "C2H", "C4H6", "AC6H6", "H", "", "3.30e-10","-00.0","-00000","0.00e+00","+00.0","+00000","2", /* cf V05 */ + "C2H", "C4H10", "prod", "C2H2", "", "1.20e-10","-00.0","-00000","0.00e+00","+00.0","+00000","2", /* cf V05 */ + "C2H", "AC6H6", "soot", "H", "", "8.20e-11","+0.00","+00000","0.00e+00","+0.00","+00000","2", /* WandF 97 */ + "C2H2", "C2H3", "C4H4", "H", "", "3.32e-12","+0.00","-02516","0.00e+00","+00.0","+00000","2", + "C2H2", "C2H3", "C4H5", "", "", "8.20e-30","+0.00","-00352","4.16e-19","+1.90","-01058","3", /* cf M05 */ + "C2H2", "C2H5", "prod", "", "", "3.30e-30","+0.00","-00740","5.60e-14","+00.0","-03520","3", /* cf V05 */ + "C2H2", "C3H5", "prod", "", "", "3.30e-30","+0.00","-00740","5.30e-14","+0.00","-03500","3", /* cf V05 */ + "C2H2", "C3H7", "C3H5", "C2H4", "", "1.20e-12","+0.00","-04531","0.00e+00","+00.0","+00000","2", + "C2H2", "C4H", "prod", "H", "", "8.60e-16","+1.80","+00474","0.00e+00","+00.0","+00000","2", /* pas de 1/3 */ + "C2H2", "C4H3", "soot", "", "", "2.00e-16","+0.00","-00000","0.00e+00","+0.00","+00000","2", + "C2H2", "C4H5", "AC6H6", "H", "", "3.50e-09","-1.07","-02417","0.00e+00","+0.00","+00000","2", /* WetF 94 */ + "C2H2", "C4H5", "AC6H6", "H", "", "4.20e-19","+1.80","-00602","0.00e+00","+0.00","+00000","2", /* Weismann 88 */ + "C2H2", "AC6H5", "soot", "", "", "3.72e-13","+0.00","-01561","0.00e+00","+0.00","+00000","2", /* Yu 94 */ + "C2H3", "C2H3", "C4H6", "", "", "5.00e-18","-3.75","-00300","1.40e-10","+00.0","+00000","3", /* cf M05 */ + "C2H3", "C2H3", "C2H2", "C2H4", "", "2.40e-11","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C2H3", "C2H4", "C4H6", "H", "", "8.30e-13","+0.00","-03676","0.00e+00","+00.0","+00000","2", + "C2H3", "C2H5", "C3H5", "CH3", "", "6.10e-47","+11.2","+03289","0.00e+00","+00.0","+00000","2", + "C2H3", "C2H5", "C2H4", "C2H4", "", "8.00e-13","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C2H3", "C2H5", "C2H2", "C2H6", "", "8.00e-13","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C2H3", "C2H5", "prod", "", "", "1.90e-27","+0.00","+00000","2.50e-11","+00.0","+00000","3", /* cf W04 */ + "C2H3", "C2H6", "C2H4", "C2H5", "", "9.98e-22","+3.30","-05285","0.00e+00","+00.0","+00000","2", + "C2H3", "C3H5", "CH2CCH2","C2H4", "", "4.00e-12","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C2H3", "C3H5", "C3H6", "C2H2", "", "8.00e-12","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C2H3", "C3H5", "prod", "H", "H", "8.00e-11","+0.00","-00000","0.00e+00","+00.0","+00000","2", /* cf W04 */ + "C2H3", "C3H6", "CH3", "C4H6", "", "1.20e-12","+0.00","-02520","0.00e+00","+00.0","+00000","2", + "C2H3", "C3H6", "C2H4", "C3H5", "", "3.68e-24","+3.50","-02356","0.00e+00","+00.0","+00000","2", + "C2H3", "C3H6", "prod", "H", "", "1.20e-12","+0.00","-03240","0.00e+00","+00.0","+00000","2", /* cf V05 */ + "C2H3", "C3H7", "C2H4", "C3H6", "", "2.00e-12","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C2H3", "C3H7", "C3H8", "C2H2", "", "2.00e-12","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C2H3", "C3H7", "prod", "", "", "3.50e-07","-7.00","-01390","1.60e-11","+00.0","+00000","3", /* cf V05 */ + "C2H3", "C3H8", "C3H7", "C2H4", "", "1.00e-21","+3.30","-05285","0.00e+00","+00.0","+00000","2", + "C2H3", "C4H3", "AC6H6", "", "", "4.77e-10","+0.00","-00411","0.00e+00","+0.00","+00000","2", /* Duran 88 */ + "C2H3", "C4H5", "AC6H6", "H2", "", "3.05e-37","+7.07","-01817","0.00e+00","+0.00","+00000","2", /* Westmoreland 89 */ + "C2H3", "C4H6", "prod", "", "", "1.50e-14","-5.84","-02363","2.45e-12","-0.17","-01630","3", /* cf V05 */ + "C2H4", "C2H5", "C2H3", "C2H6", "", "1.05e-21","+3.13","-09063","0.00e+00","+00.0","+00000","2", + "C2H4", "C3H5", "prod", "H", "", "1.00e-14","+0.00","-05776","0.00e+00","+00.0","+00000","2", /* cf V05 */ + "C2H4", "C3H7", "prod", "", "", "7.70e-30","+0.00","-00380","1.80e-13","+00.0","-03670","3", /* cf V05 */ + "C2H4", "C4H", "C4H2", "C2H3", "", "4.60e-11","+0.00","+00025","0.00e+00","+00.0","+00000","2", /* cf W04 */ + "C2H4", "AC6H5", "prod", "H", "", "1.20e-12","+0.00","-02250","0.00e+00","+00.0","+00000","2", /* cf M05 */ + "C2H5", "C2H5", "C4H10", "", "", "6.59e-06","-6.39","-00301","1.26e-11","+00.0","-00096","3", + "C2H5", "C2H5", "C2H6", "C2H4", "", "2.40e-12","+0.00","-00000","0.00e+00","+00.0","+00000","2", /* Baulch 92 */ + "C2H5", "CH2CCH2","C2H6", "C3H3", "", "5.25e-13","+0.00","-04579","0.00e+00","+0.00","+00000","2", /* Getty 67 */ + "C2H5", "C3H5", "CH2CCH2","C2H6", "", "1.60e-12","+0.00","+00066","0.00e+00","+00.0","+00000","2", + "C2H5", "C3H5", "C3H6", "C2H4", "", "4.30e-12","+0.00","+00066","0.00e+00","+00.0","+00000","2", + "C2H5", "C3H5", "prod", "", "", "3.50e-07","-07.0","-01390","3.30e-11","+00.0","+00066","3", /* cf V05 */ + "C2H5", "C3H6", "C2H6", "C3H5", "", "3.70e-24","+3.50","-03340","0.00e+00","+00.0","+00000","2", + "C2H5", "C3H6", "prod", "", "", "7.70e-30","-00.0","-00380","1.70e-13","+00.0","+03625","3", /* cf V05 */ + "C2H5", "C3H7", "C2H6", "C3H6", "", "2.40e-12","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C2H5", "C3H7", "C3H8", "C2H4", "", "1.90e-12","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C2H5", "C3H7", "prod", "", "", "9.70e+28","-18.5","-02307","3.30e-11","+00.0","+00000","3", /* cf V05 */ + "C2H5", "C3H8", "C3H7", "C2H6", "", "1.50e-24","+3.65","-04600","0.00e+00","+00.0","+00000","2", + "C2H6", "C3H5", "C2H5", "C3H6", "", "3.90e-22","+3.30","-09986","0.00e+00","+00.0","+00000","2", + "C2H6", "C3H7", "C3H8", "C2H5", "", "4.20e-25","+3.82","-04550","0.00e+00","+00.0","+00000","2", + "C2H6", "C4H", "C4H2", "C2H5", "", "3.50e-11","+0.00","+00003","0.00e+00","+00.0","+00000","2", /* cf W04 */ + "C3H3", "C3H3", "AC6H6", "", "", "6.00e-28","+0.00","+01680","1.20e-10","+0.00","+00000","3", /* Moses 00, Morter 94 */ + "C3H3", "C3H5", "prod", "", "", "2.90e-11","+0.00","-00000","0.00e+00","+00.0","+00000","2", /* cf W04 */ + "C3H3", "C4H2", "CH3CCH", "C4H", "", "1.00e-13","+0.00","+00000","0.00e+00","+0.00","+00000","2", /* Alkernade 89 */ + "C3H5", "C3H5", "CH2CCH2","C3H6", "", "1.40e-13","+0.00","+00132","0.00e+00","+00.0","+00000","2", + "C3H5", "C3H5", "prod", "", "", "3.50e-07","-7.00","-01390","1.70e-11","+0.00","+00132","3", /* cf V05 */ + "C3H5", "C3H6", "C2H5", "C4H4", "", "1.00e-14","+0.00","-05776","0.00e+00","+0.00","+00000","2", /* Tsang 91 */ + "C3H5", "C3H7", "C3H6", "C3H6", "", "2.40e-12","+0.00","+00066","0.00e+00","+00.0","+00000","2", + "C3H5", "C3H7", "CH2CCH2","C3H8", "", "1.20e-12","+0.00","+00066","0.00e+00","+00.0","+00000","2", + "C3H5", "C3H7", "prod", "", "", "3.50e-07","-7.00","-01390","3.40e-11","+0.00","+00066","3", /* cf V05 */ + "C3H5", "C3H8", "C3H7", "C3H6", "", "3.90e-22","+3.30","-09986","0.00e+00","+00.0","+00000","2", + "C3H5", "C4H10", "C3H6", "prod", "", "7.00e-23","+3.30","-07800","0.00e+00","+00.0","+00000","2", /* cf V05 */ + "C3H6", "C3H7", "C3H5", "C3H8", "", "3.70e-24","+3.50","-03340","0.00e+00","+00.0","+00000","2", + "C3H7", "C3H7", "C3H8", "C3H6", "", "2.80e-12","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C3H7", "C3H7", "prod", "", "", "2.90e-21","+0.00","+00000","1.70e-11","+00.0","+00000","3", /* cf V05 */ + "C4H", "C4H2", "prod", "H", "", "8.60e-16","+1.80","+00474","0.00e+00","+00.0","+00000","2", /* pad de 1/3 */ + "C4H2s", "", "C4H2", "", "", "1.00e+01","+0.00","+00000","0.00e+00","+00.0","+00000","1", + "C4H2s", "N2", "C4H2", "N2", "", "1.40e-15","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C4H2s", "C2H2", "prod", "H", "H", "3.50e-13","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C4H2s", "C2H4", "prod", "H", "H", "4.20e-13","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C4H2s", "CH3CCH", "prod", "H", "H", "1.60e-13","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C4H2s", "CH3CCH", "prod", "CH3", "H", "2.30e-13","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C4H2s", "CH3CCH", "prod", "C2H2", "", "2.50e-13","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C4H2s", "CH3CCH", "prod", "C2H3", "", "8.70e-14","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C4H2s", "C3H6", "prod", "H", "H", "1.60e-13","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C4H2s", "C3H6", "prod", "CH3", "H", "4.10e-13","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C4H2s", "C3H6", "prod", "C2H2", "", "2.50e-13","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C4H2s", "C3H6", "prod", "C2H3", "", "4.90e-14","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C4H2s", "C4H2", "prod", "C2H2", "", "8.20e-13","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C4H2s", "C4H2", "prod", "H", "H", "1.00e-12","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C4H2s", "C4H6", "soot", "H", "", "9.50e-13","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C4H2s", "C4H6", "AC6H6", "C2H2", "", "8.80e-13","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C4H2s", "C4H6", "prod", "C2H4", "", "3.60e-13","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C4H3", "C4H3", "prod", "", "", "3.50e-07","-7.00","-01390","7.00e-11","+0.00","+00000","3", /* cf V05 */ + "C4H4", "C4H4", "prod", "", "", "7.25e-14","+0.00","-09261","0.00e+00","+00.0","+00000","2", + "AC6H5", "AC6H6", "prod", "", "", "1.59e-12","+0.00","-02168","0.00e+00","+00.0","+00000","2", /* cf W04 */ + + "N4S", "N4S", "N2", "", "", "8.27e-34","+0.00","+00490","0.00e+00","+00.0","+00000","3", + "N4S", "CH", "CN", "H", "", "2.67e-10","-0.09","+00000","0.00e+00","+00.0","+00000","2", + "N4S", "CH3", "HCN", "H2", "", "6.00e-12","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "N4S", "CH3", "H2CN", "H", "", "5.60e-11","+0.00","+00000","0.00e+00","+00.0","+00000","2", +/* "N4S", "C2H2", "CH2CN", "", "", "1.70e-14","+0.00","+00000","0.00e+00","+0.00","+00000","2", Sato 74 */ + "N4S", "C2H3", "CH3CN", "", "", "3.08e-12","+0.00","+00000","0.00e+00","+0.00","+00000","2", /* Payne 96 */ + "N4S", "C2H3", "CH2CN", "H", "", "6.16e-11","+0.00","+00000","0.00e+00","+0.00","+00000","2", /* Payne 96 */ + "N4S", "C2H4", "CH3", "HCN", "", "3.32e-14","+0.00","-00352","0.00e+00","+0.00","+00000","2", /* Kerr 72 */ + "N4S", "C2H5", "HCN", "CH4", "", "1.10e-10","+0.00","+00000","0.00e+00","+0.00","+00000","2", /* Stief 95 */ + "N4S", "C2H6", "prod", "", "", "0.00e-00","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "N4S", "CH3CCH", "CHCN", "CH3", "", "1.15e-13","+0.00","-00745","0.00e+00","+0.00","+00000","2", /* Kerr 72 */ + "N4S", "C3H6", "HCN", "C2H4", "H", "2.49e-13","+0.00","-00830","0.00e+00","+0.00","+00000","2", /* Paraskevopoulos 67 */ + "N4S", "C3H8", "HCN", "C2H6", "H", "3.39e-13","+0.00","-02563","0.00e+00","+0.00","+00000","2", /* Onyzchuk 53 */ + "N4S", "C4H10", "C3H8", "HCN", "H", "2.97e-14","+0.00","-01813","0.00e+00","+0.00","+00000","2", /* Back 54 */ + "N4S", "H2CN", "HCN", "prod", "", "1.00e-10","+0.00","-00200","0.00e+00","+00.0","+00000","2", + "N4S", "CHCN", "NCCN", "H", "", "6.00e-15","+0.00","+00000","0.00e+00","+0.00","+00000","2", /* Safrany 68 */ + "N4S", "CH3CN", "HCN", "HCN", "H", "2.28e-15","+0.00","-00813","0.00e+00","+0.00","+00000","2", /* Forst 57 */ + "CN", "H", "HCN", "", "", "2.40e-24","-2.20","-00567","2.99e-09","-0.50","+00000","3", /* Tsang 92 */ + "CN", "H2", "HCN", "H", "", "2.23e-21","+3.31","-00756","0.00e+00","+00.0","+00000","2", + "CN", "CH4", "HCN", "CH3", "", "4.64e-16","+1.53","-00504","0.00e+00","+00.0","+00000","2", /* est, Yang 93 */ + "CN", "CH4", "CH3CN", "H", "", "5.15e-17","+1.53","-00504","0.00e+00","+0.00","+00000","2", /* est, Yang 93 */ + "CN", "C2H2", "HC3N", "H", "", "5.67e-09","-0.55","-00004","0.00e+00","+00.0","+00000","2", + "CN", "C2H6", "HCN", "C2H5", "", "5.91e-12","+0.22","+00058","0.00e+00","+00.0","+00000","2", + "CN", "CH3CCH", "HC3N", "CH3", "", "2.10e-10","+0.00","+00000","0.00e+00","+0.00","+00000","2", /* Sayah 88 */ + "CN", "CH2CCH2","HCN", "C3H3", "", "2.63e-10","+0.00","+00167","0.00e+00","+0.00","+00000","2", /* Butterfield 93 */ + "CN", "C3H6", "prod", "H", "", "1.73e-10","+0.00","+00102","0.00e+00","+0.00","+00000","2", /* Sims 93 */ + "CN", "C3H8", "C3H7", "HCN", "", "2.44e-14","+1.19","+00378","0.00e+00","+0.00","+00000","2", /* Yang 92 */ + "CN", "C4H2", "HC3N", "C2H", "", "5.26e-09","-0.52","-00019","0.00e+00","+0.00","+00000","2", /* est. Sims 93 */ + "CN", "C4H4", "C4H3", "HCN", "", "1.07e-07","-0.82","-00228","0.00e+00","+0.00","+00000","2", /* Yang 92 */ + "CN", "CN", "NCCN", "", "", "9.44e-23","-2.61","+00000","9.40e-12","+0.00","+00000","3", /* Tsang 92 */ + "CN", "HCN", "NCCN", "H", "", "2.51e-17","+1.71","-00770","0.00e+00","+0.00","+00000","2", /* Yang 92 */ + "CN", "CH3CN", "NCCN", "CH3", "", "6.46e-11","+0.00","-01190","0.00e+00","+0.00","+00000","2", /* Zabarnick 89 */ + "CN", "NCCN", "prod", "", "", "2.19e-21","+2.70","-00325","0.00e+00","+00.0","+00000","2", + "CN", "HC3N", "C4N2", "H", "", "1.70e-10","+0.00","+00000","0.00e+00","+0.00","+00000","2", /* Halpern 89 */ + "CN", "C4N2", "NCCN", "C3N", "", "5.40e-13","+0.00","+00000","0.00e+00","+0.00","+00000","2", /* Seki 96 */ + "HCN", "H", "H2CN", "", "", "4.40e-24","-2.73","-03855","5.50e-11","+00.0","-02438","3", + "HCN", "CH", "CHCN", "H", "", "5.00e-11","+0.00","+00500","0.00e+00","+0.00","+00000","2", /* Zabarnick 91 */ + "HCN", "C2H", "H", "HC3N", "", "5.26e-12","+0.00","-00770","0.00e+00","+00.0","+00000","2", + "HCN", "AC6H5", "soot", "", "", "3.72e-13","+0.00","-01561","0.00e+00","+0.00","+00000","2", + "HCN", "H2CN", "soot", "", "", "1.00e-12","+0.00","-00900","0.00e+00","+0.00","+00000","2", + "H2CN", "H", "HCN", "H2", "", "1.40e-10","+0.00","-00200","0.00e+00","+00.0","+00000","2", + "H2CN", "H2CN", "prod", "HCN", "", "1.16e-11","+0.00","+00000","0.00e+00","+0.00","+00000","2", /* Horne 70 */ + "H2CN", "CH3CN", "soot", "", "", "1.00e-12","+0.00","-00900","0.00e+00","+0.00","+00000","2", + "H2CN", "NCCN", "soot", "", "", "1.00e-12","+0.00","-00900","0.00e+00","+0.00","+00000","2", + "H2CN", "HC3N", "soot", "", "", "1.00e-12","+0.00","-00900","0.00e+00","+0.00","+00000","2", + "N2", "CH", "prod", "", "", "3.80e-25","-2.60","+00000","9.65e-11","-0.15","+00000","3", /* Fulle 96 */ + "CHCN", "H2", "CH3CN", "", "", "1.00e-13","+0.00","+00000","0.00e+00","+0.00","+00000","2", /* Adamson 97 */ + "CH2CN", "CH2CN", "C2H4", "NCCN", "", "1.80e-11","+0.00","-00769","0.00e+00","+0.00","+00000","2", /* est, Hoobler 97 */ + "CH3CN", "H", "CH3", "HCN", "", "3.39e-12","+0.00","-03954","0.00e+00","+0.00","+00000","2", /* Jamieson 70 */ + "CH3CN", "H", "CH4", "CN", "", "1.66e-13","+0.00","-01505","0.00e+00","+0.00","+00000","2", /* Jamieson 70 */ + "CH3CN", "C2H", "HC3N", "CH3", "", "1.80e-11","+0.00","-00769","0.00e+00","+0.00","+00000","2", /* Hoobler 97 */ + "C3N", "H2", "HC3N", "H", "", "1.20e-11","+0.00","-00998","0.00e+00","+00.0","+00000","2", + "C3N", "CH4", "HC3N", "CH3", "", "1.20e-11","+0.00","-00491","0.00e+00","+00.0","+00000","2", + "C3N", "C2H2", "prod", "H", "", "8.60e-16","+1.80","+00474","0.00e+00","+00.0","+00000","2", + "C3N", "C2H4", "prod", "H", "", "7.80e-11","+0.00","+00134","0.00e+00","+00.0","+00000","2", + "C3N", "C2H6", "HC3N", "C2H5", "", "3.50e-11","+0.00","+00002","0.00e+00","+00.0","+00000","2", + "C3N", "C3H8", "C3H7", "HC3N", "", "6.00e-12","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C3N", "C4H2", "prod", "H", "", "8.60e-16","+1.80","+00474","0.00e+00","+00.0","+00000","2", + "C3N", "HC3N", "prod", "H", "", "8.60e-16","+1.80","+00474","0.00e+00","+00.0","+00000","2", + "HC3N", "H", "HCN", "C2H2", "", "1.00e-28","+0.00","-00740","0.55e-12","+00.0","-00500","3", + "HC3N", "C2H", "prod", "H", "", "8.60e-16","+1.80","+00474","0.00e+00","+00.0","+00000","2", + "HC3N", "C4H", "prod", "H", "", "2.90e-16","+1.80","+00474","0.00e+00","+00.0","+00000","2", + "HC3N", "C4H3", "soot", "", "", "1.20e-15","+0.00","-00000","0.00e+00","+0.00","+00000","2", Index: /trunk/LMDZ.TITAN/libf/chimtitan/chimie_simpnit_051006_bis =================================================================== --- /trunk/LMDZ.TITAN/libf/chimtitan/chimie_simpnit_051006_bis (revision 1644) +++ /trunk/LMDZ.TITAN/libf/chimtitan/chimie_simpnit_051006_bis (revision 1644) @@ -0,0 +1,388 @@ + "H2", "HV", "H", "H", "", "","","","","","","", /* 1 */ + "CH3", "HV", "CH2s", "H", "", "","","","","","","", /* 2 */ + "CH4", "HV", "CH2s", "H2", "", "","","","","","","", /* 3 */ + "CH4", "HV", "CH", "H2", "H", "","","","","","","", /* 4 */ + "CH4", "HV", "CH3", "H", "", "","","","","","","", /* 5 */ + "C2H2", "HV", "C2H", "H", "", "","","","","","","", /* 6 */ + "C2H2", "HV", "C2", "H2", "", "","","","","","","", /* 7 */ + "C2H4", "HV", "C2H2", "H2", "", "","","","","","","", /* 8 */ + "C2H4", "HV", "C2H2", "H", "H", "","","","","","","", /* 9 */ + "C2H6", "HV", "C2H4", "H2", "", "","","","","","","", /* 10 */ + "C2H6", "HV", "C2H4", "H", "H", "","","","","","","", /* 11 */ + "C2H6", "HV", "C2H2", "H2", "H2","","","","","","","", /* 12 */ + "C2H6", "HV", "CH4", "CH2s", "", "","","","","","","", /* 13 */ + "C2H6", "HV", "CH3", "CH3", "", "","","","","","","", /* 14 */ + "C3H3", "HV", "C3H2", "H", "", "","","","","","","", /* 15 */ + "CH2CCH2","HV", "C3H3", "H", "", "","","","","","","", /* 16 */ + "CH2CCH2","HV", "C3H2", "H2", "", "","","","","","","", /* 17 */ + "CH3CCH", "HV", "C3H3", "H", "", "","","","","","","", /* 18 */ + "CH3CCH", "HV", "C3H2", "H2", "", "","","","","","","", /* 19 */ + "C3H6", "HV", "CH2CCH2","H", "H", "","","","","","","", /* 20 */ + "C3H6", "HV", "CH3CCH", "H", "H", "","","","","","","", /* 21 */ + "C3H6", "HV", "C2H4", "CH2", "", "","","","","","","", /* 22 */ + "C3H6", "HV", "C2H3", "CH3", "", "","","","","","","", /* 23 */ + "C3H6", "HV", "C2H2", "CH4", "", "","","","","","","", /* 24 */ + "C3H8", "HV", "C3H6", "H2", "", "","","","","","","", /* 25 */ + "C3H8", "HV", "C2H6", "CH2s", "", "","","","","","","", /* 26 */ + "C3H8", "HV", "C2H5", "CH3", "", "","","","","","","", /* 27 */ + "C3H8", "HV", "C2H4", "CH4", "", "","","","","","","", /* 28 */ + "C4H2", "HV", "C4H", "H", "", "","","","","","","", /* 29 */ + "C4H2", "HV", "C2H", "C2H", "", "","","","","","","", /* 30 */ + "C4H2", "HV", "C2H2", "C2", "", "","","","","","","", /* 31 */ + "C4H2", "HV", "C4H2s", "", "", "","","","","","","", /* 32 */ + "C4H4", "HV", "C4H2", "H2", "", "","","","","","","", /* 33 */ + "C4H4", "HV", "C2H2", "C2H2", "", "","","","","","","", /* 34 */ + "C4H6", "HV", "C4H4", "H2", "", "","","","","","","", /* 35 */ + "C4H6", "HV", "C2H4", "C2H2", "", "","","","","","","", /* 36 */ + "C4H6", "HV", "CH3", "C3H3", "", "","","","","","","", /* 37 */ + "C4H10", "HV", "C3H5", "CH3", "H2","","","","","","","", /* 38 */ + "C4H10", "HV", "C2H4", "C2H4", "H2","","","","","","","", /* 39 */ + "C4H10", "HV", "C3H6", "CH4", "", "","","","","","","", /* 40 */ + "C4H10", "HV", "C3H6", "CH3", "H", "","","","","","","", /* 41 */ + "C4H10", "HV", "C2H4", "C2H6", "", "","","","","","","", /* 42 */ + "C4H10", "HV", "C2H2", "C2H6", "H2","","","","","","","", /* 43 */ + "C4H10", "HV", "CH3", "C3H7", "", "","","","","","","", /* 44 */ + "C4H10", "HV", "C2H5", "C2H5", "", "","","","","","","", /* 45 */ + + "AC6H6", "HV", "prod", "CH3", "", "","","","","","","", /* 46 */ + "AC6H6", "HV", "AC6H5", "H", "", "","","","","","","", /* 47 */ + + "N2", "HV", "N4S", "N4S", "", "","","","","","","", /* 48 */ + "HCN", "HV", "H", "CN", "", "","","","","","","", /* 49 */ + "HC3N", "HV", "C2H", "CN", "", "","","","","","","", /* 50 */ + "HC3N", "HV", "H", "C3N", "", "","","","","","","", /* 51 */ + "NCCN", "HV", "CN", "CN", "", "","","","","","","", /* 52 */ + "CH3CN", "HV", "CH3", "CN", "", "","","","","","","", /* 53 */ + "C4N2", "HV", "C3N", "CN", "", "","","","","","","", /* 54 */ + + "N2", "", "N4S", "N4S", "", "0.00e+00","+00.0","+00000","0.00e+00","+00.0","+00000","1", + + "H", "H", "H2", "", "", "2.70e-31","-00.6","+00000","1.00e-11","+00.0","+00000","3", /* Baulch92 */ + "H", "CH2s", "CH", "H2", "", "5.00e-11","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "H", "CH2", "H2", "CH", "", "3.54e-11","+0.32","+00000","0.00e+00","+00.0","+00000","2", + "H", "CH2", "CH3", "", "", "1.70e-25","-01.8","+00000","3.50e-11","+0.32","-00000","3", /* cf V05 */ + "H", "CH3", "CH4", "", "", "6.33e-21","-2.98","-00635","2.63e-08","-0.60","-00189","3", + "H", "CH3", "H2", "CH2", "", "1.00e-10","+00.0","-07600","0.00e+00","+00.0","+00000","2", + "H", "CH4", "H2", "CH3", "", "2.18e-20","+03.0","-04045","0.00e+00","+00.0","+00000","2", + "H", "C2H", "C2H2", "", "", "1.26e-18","-03.1","-00721","3.00e-10","+00.0","+00000","3", /* cf M05 */ + "H", "C2H2", "C2H3", "", "", "3.30e-30","+00.0","-00740","1.40e-11","+00.0","-01300","3", + "H", "C2H3", "H2", "C2H2", "", "6.86e-11","+00.0","+00023","0.00e+00","+00.0","+00000","2", + "H", "C2H3", "C2H4", "", "", "5.76e-24","-01.3","+00000","1.80e-10","+00.0","-00000","3", /* cf M05 */ + "H", "C2H4", "C2H3", "H2", "", "8.40e-17","+1.93","-06518","0.00e+00","+0.00","-00000","2", /* cf V05 */ + "H", "C2H4", "C2H5", "", "", "1.39e-29","+00.0","-00562","6.60e-15","+1.28","-00650","3", + "H", "C2H5", "CH3", "CH3", "", "1.20e-10","+00.0","-00000","0.00e+00","+00.0","+00000","2", /* Sillesen 93 */ + "H", "C2H5", "H2", "C2H4", "", "3.00e-12","+00.0","+00000","0.00e+00","+00.0","+00000","2", + "H", "C2H5", "C2H6", "", "", "5.50e-23","-2.00","-01040","1.66e-10","+00.0","+00000","3", + "H", "C2H6", "H2", "C2H5", "", "2.40e-15","+01.5","-03730","0.00e+00","+00.0","+00000","2", + "H", "C3H2", "C3H3", "", "", "1.70e-23","-1.80","-00000","1.00e-10","+0.00","+00000","3", /* cf V05 */ + "H", "C3H3", "CH3CCH", "", "", "9.40e-20","-3.30","-00000","1.00e-10","+0.00","+00000","3", /* cf M05 */ + "H", "C3H3", "CH2CCH2","", "", "1.70e-25","-01.8","+00000","2.50e-10","+0.00","-00000","3", /* cf V05 */ + "H", "CH3CCH", "CH3", "C2H2", "", "8.00e-24","-02.0","-01225","9.63e-12","+00.0","-01560","3", /* cf W04 */ + "H", "CH3CCH", "C3H3", "H2", "", "4.70e-16","+1.74","-03873","0.00e+00","+0.00","-00000","2", /* cf M05 */ + "H", "CH3CCH", "C3H5", "", "", "4.40e-31","+00.0","-00000","6.00e-11","+00.0","-01233","3", /* cf V05 */ + "H", "CH2CCH2","C2H2", "CH3", "", "8.00e-24","-2.00","-01225","9.70e-13","+0.00","-01550","3", /* cf W04 */ + "H", "CH2CCH2","CH3CCH", "H", "", "1.30e-11","+0.00","-01156","0.00e+00","+0.00","-00000","2", /* cf V05 */ + "H", "CH2CCH2","C3H5", "", "", "8.00e-24","+2.00","-01225","1.40e-11","+00.0","-01000","3", /* cf V05 */ + "H", "C3H5", "C2H3", "CH3", "", "4.00e-12","+0.00","-00000","0.00e+00","+0.00","-00000","2", /* cf M05 */ + "H", "C3H5", "CH2CCH2","H2", "", "1.40e-11","+00.0","+00000","0.00e+00","+00.0","+00000","2", + "H", "C3H5", "CH3CCH", "H2", "", "1.40e-11","+00.0","+00000","0.00e+00","+00.0","+00000","2", + "H", "C3H5", "C3H6", "", "", "1.00e-24","+00.0","+00000","2.80e-10","+00.0","+00000","3", /* cf V05 */ + "H", "C3H6", "C3H5", "H2", "", "2.87e-19","+02.5","-01254","0.00e+00","+00.0","+00000","2", + "H", "C3H6", "CH3", "C2H4", "", "2.20e-11","+00.0","-01641","0.00e+00","+00.0","+00000","2", /* M00 */ + "H", "C3H6", "C3H7", "", "", "1.30e-28","+00.0","-00380","9.47e-15","+1.16","-00440","3", /* cf M05 */ + "H", "C3H7", "C3H6", "H2", "", "3.00e-12","+00.0","+00000","0.00e+00","+00.0","+00000","2", + "H", "C3H7", "C2H5", "CH3", "", "6.00e-11","+0.00","-00000","0.00e+00","+0.00","-00000","2", /* cf M05 */ + "H", "C3H7", "C3H8", "", "", "2.50e-27","+0.00","-00000","2.50e-10","+0.00","-00000","3", /* cf M05 */ + "H", "C3H8", "C3H7", "H2", "", "2.20e-18","+2.54","-03400","0.00e+00","+00.0","+00000","2", + "H", "C4H", "C4H2", "", "", "1.26e-18","-03.1","-00721","3.00e-10","+00.0","+00000","3", /* cf M05 */ + "H", "C4H2", "C4H3", "", "", "2.00e-26","+0.00","-00740","1.39e-10","+0.00","-01184","3", /* cf M05 */ + "H", "C4H3", "C4H4", "", "", "8.56e-10","+00.0","-00405","0.00e+00","+00.0","+00000","2", +// "H", "C4H3", "C4H4", "", "", "1.50e-19","-03.0","-00300","8.56e-10","+00.0","-00405","3", /* cf M05 */ + "H", "C4H3", "C4H2", "H2", "", "1.20e-11","+00.0","-00000","0.00e+00","+00.0","+00000","2", + "H", "C4H3", "C2H2", "C2H2", "", "3.30e-12","+00.0","-00000","0.00e+00","+00.0","+00000","2", + "H", "C4H4", "C4H5", "", "", "3.32e-12","+0.00","+00000","0.00e+00","+00.0","+00000","2", +// "H", "C4H4", "C4H5", "", "", "8.76e-08","-7.00","-01390","3.32e-12","+0.00","+00000","3", /* cf W04 */ + "H", "C4H5", "prod", "", "", "1.50e-19","-03.0","-00300","1.00e-10","+00.0","+00000","3", /* cf M05 */ + "H", "C4H6", "H2", "C4H5", "", "1.05e-13","+0.70","-03019","0.00e+00","+0.00","+00000","2", /* Weisman 88 */ + "H", "C4H6", "prod", "", "", "7.70e-30","+0.00","-00380","8.50e-12","+0.00","-00000","3", /* cf V05 */ + "H", "C4H10", "prod", "H2", "", "3.50e-11","+0.00","-03970","0.00e+00","+0.00","-00000","2", /* cf V05 */ +// "H", "AC6H5", "C4H2", "C2H2", "", "3.16e-05","-01.6","-01117","0.00e+00","+00.0","+00000","2", /* cf M05 */ + "H", "AC6H5", "AC6H6", "", "", "1.82e+28","-16.3","-03526","1.66e-10","+0.00","+00000","3", /* WetF 97 */ + "H", "AC6H6", "AC6H5", "H2", "", "4.15e-10","+0.00","-08057","0.00e+00","+0.00","+00000","2", /* WetF 97 */ + "H2", "CH", "CH3", "", "", "4.70e-26","-01.6","+00000","2.50e-10","-0.08","+00000","3", /* Brownsword 97 */ + "H2", "CH", "CH2", "H", "", "3.10e-10","+0.00","-01650","0.00e+00","+00.0","+00000","2", + "H2", "CH2s", "CH3", "H", "", "1.20e-10","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "H2", "CH2", "CH3", "H", "", "5.00e-15","-00.0","-00000","0.00e+00","+00.0","+00000","2", /* cf V05 */ + "H2", "CH3", "CH4", "H", "", "1.14e-20","+2.74","-04740","0.00e+00","+00.0","+00000","2", + "H2", "C2", "C2H", "H", "", "1.77e-10","+0.00","-01470","0.00e+00","+00.0","+00000","2", /* cf V05,W04,M05 */ + "H2", "C2H", "C2H2", "H", "", "1.20e-11","+0.00","-00998","0.00e+00","+00.0","+00000","2", + "H2", "C2H3", "H", "C2H4", "", "1.57e-20","+2.56","-02529","0.00e+00","+00.0","+00000","2", + "H2", "C2H5", "C2H6", "H", "", "5.11e-24","+03.6","-04253","0.00e+00","+00.0","+00000","2", + "H2", "C3H5", "H", "C3H6", "", "1.80e-19","+2.38","-09557","0.00e+00","+00.0","+00000","2", + "H2", "C3H7", "C3H8", "H", "", "3.00e-21","+2.84","-04600","0.00e+00","+00.0","+00000","2", + "H2", "C4H", "C4H2", "H", "", "9.20e-18","+2.17","-00478","0.00e+00","+00.0","+00000","2", /* cf W04 */ + "H2", "C4H5", "C4H6", "H", "", "6.61e-15","+0.50","-01864","0.00e+00","+0.00","+00000","2", /* Weisman 88 */ + "H2", "AC6H5", "AC6H6", "H", "", "9.48e-20","+2.43","-03159","0.00e+00","+00.0","+00000","2", /* cf M05 */ + "CH", "CH", "C2H2", "", "", "1.99e-10","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "CH", "CH4", "C2H4", "H", "", "3.96e-08","-1.04","-00036","0.00e+00","+00.0","+00000","2", + "CH", "C2H2", "C3H2", "H", "", "1.59e-09","-0.23","-00016","0.00e+00","+00.0","+00000","2", /* cf V05,W04,M05 */ + "CH", "C2H4", "CH3CCH", "H", "", "3.90e-09","-0.55","-00029","0.00e+00","+00.0","+00000","2", /* cf V05,W04 */ + "CH", "C2H4", "CH2CCH2","H", "", "3.90e-09","-0.55","-00029","0.00e+00","+00.0","+00000","2", /* cf V05,W04 */ + "CH", "C2H6", "C2H4", "CH3", "", "1.90e-08","-0.86","-00053","0.00e+00","+00.0","+00000","2", /* cf V05,W04 */ + "CH", "C2H6", "C3H6", "H", "", "1.90e-08","-0.86","-00053","0.00e+00","+00.0","+00000","2", /* cf V05,W04 */ + "CH", "CH3CCH", "C4H4", "H", "", "4.60e-10","+0.00","+00000","0.00e+00","+0.00","+00000","2", /* Butler 81, cf M05 */ + "CH", "C3H8", "prod", "H", "", "1.90e-10","+0.00","+00240","0.00e+00","+00.0","+00000","2", + "CH", "C4H10", "prod", "", "", "4.40e-10","+0.00","+00028","0.00e+00","+00.0","+00000","2", /* Baulch 92 */ + "CH2s", "CH2s", "C2H2", "H", "H", "5.00e-11","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "CH2s", "CH2", "C2H2", "H", "H", "3.00e-11","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "CH2s", "CH3", "C2H4", "H", "", "3.00e-11","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "CH2s", "CH4", "CH2", "CH4", "", "1.20e-11","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "CH2s", "CH4", "CH3", "CH3", "", "5.90e-11","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "CH2s", "C2H", "C2H2", "CH", "", "3.00e-11","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "CH2s", "C2H2", "CH2", "C2H2", "", "8.14e-11","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "CH2s", "C2H2", "C3H3", "H", "", "2.90e-10","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "CH2s", "C2H3", "C2H2", "CH3", "", "3.00e-11","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "CH2s", "C2H4", "CH2", "C2H4", "", "2.30e-11","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "CH2s", "C2H4", "C3H6", "", "", "1.50e-18","-3.00","-00300","1.32e-10","+00.0","+00000","3", /* cf M05 */ + "CH2s", "C2H5", "C2H4", "CH3", "", "1.50e-11","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "CH2s", "C2H5", "C3H6", "H", "", "1.50e-11","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "CH2s", "C2H6", "CH2", "C2H6", "", "3.60e-11","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "CH2s", "C2H6", "C2H5", "CH3", "", "1.90e-10","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "CH2s", "C3H5", "C4H6", "H", "", "3.30e-10","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "CH2s", "C3H5", "C2H4", "C2H3", "", "6.67e-11","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "CH2s", "C3H6", "CH2", "C3H6", "", "5.00e-11","+0.00","+00000","0.00e+00","+0.00","+00000","2", /* Tsang 91 */ + "CH2s", "C3H6", "C3H5", "CH3", "", "8.70e-11","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "CH2s", "C3H7", "C2H5", "C2H4", "", "4.29e-11","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "CH2s", "C3H7", "C3H6", "CH3", "", "1.71e-11","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "CH2s", "C3H8", "C2H5", "C2H5", "", "1.60e-10","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "CH2s", "N2", "CH2", "N2", "", "1.00e-11","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "CH2", "CH2", "C2H2", "H", "H", "1.80e-10","+0.00","-00400","0.00e+00","+00.0","+00000","2", + "CH2", "CH2", "C2H2", "H2", "", "2.00e-11","-00.0","-00400","0.00e+00","+00.0","+00000","2", /* cf W04 */ + "CH2", "CH3", "C2H4", "H", "", "7.00e-11","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "CH2", "CH4", "CH3", "CH3", "", "7.13e-12","+0.00","-05052","0.00e+00","+00.0","+00000","2", + "CH2", "CH4", "C2H6", "", "", "3.50e-12","+0.00","-03332","0.00e+00","+00.0","+00000","2", + "CH2", "C2H", "CH", "C2H2", "", "3.00e-11","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "CH2", "C2H2", "C3H2", "H2", "", "1.00e-12","-00.0","-03332","0.00e+00","+00.0","+00000","2", /* cf M05 */ + "CH2", "C2H2", "C3H3", "H", "", "2.00e-11","+0.00","-03330","0.00e+00","+00.0","+00000","2", /* cf W04,V05 */ + "CH2", "C2H3", "CH3", "C2H2", "", "3.00e-11","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "CH2", "C2H4", "C3H5", "H", "", "5.31e-12","+0.00","-02658","0.00e+00","+00.0","+00000","2", /* cf V05 */ + "CH2", "C2H5", "CH3", "C2H4", "", "3.00e-11","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "CH2", "C2H6", "C3H8", "", "", "8.13e-12","+0.00","-03332","0.00e+00","+00.0","+00000","2", + "CH2", "C2H6", "CH3", "C2H5", "", "1.07e-11","+0.00","-03981","0.00e+00","+00.0","+00000","2", + "CH2", "C3H5", "C4H6", "H", "", "5.00e-11","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "CH2", "C3H6", "C3H5", "CH3", "", "1.20e-12","+0.00","-03116","0.00e+00","+00.0","+00000","2", + "CH2", "C3H7", "CH3", "C3H6", "", "3.00e-12","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "CH2", "C3H7", "C2H4", "C2H5", "", "3.00e-11","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "CH2", "C3H8", "C4H10", "", "", "8.13e-12","+0.00","-03332","0.00e+00","+00.0","+00000","2", + "CH2", "C3H8", "C3H7", "CH3", "", "1.50e-24","+3.65","-03600","0.00e+00","+00.0","+00000","2", + "CH2", "C4H2", "C4H", "CH3", "", "2.16e-11","+0.00","-02165","0.00e+00","+00.0","+00000","2", + "CH2", "C4H6" ,"CH3CCH", "C2H4", "", "6.14e-12","+0.00","-01731","0.00e+00","+0.00","+00000","2", /* Kraus 93 */ + "CH2", "C4H10", "prod", "", "", "4.30e-12","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "CH3", "CH3", "C2H5", "H", "", "8.28e-12","0.099","-05335","0.00e+00","+00.0","+00000","2", + "CH3", "CH3", "C2H6", "", "", "1.65e-04","-8.75","-00985","1.17e-10","+0.00","-00000","3", /* Cody 03 */ + "CH3", "C2H", "C3H3", "H", "", "4.00e-11","+00.0","+00000","0.00e+00","+00.0","+00000","2", + "CH3", "C2H2", "CH3CCH", "H", "", "3.18e-20","+2.42","-06488","0.00e+00","+0.00","+00000","2", /* Diau 94 */ + "CH3", "C2H2", "C3H5", "", "", "3.30e-30","+0.00","-00740","1.00e-12","+0.00","-03900","3", /* cf V05 */ + "CH3", "C2H3", "C2H2", "CH4", "", "3.40e-11","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "CH3", "C2H3", "C3H6", "", "", "5.00e-27","+0.00","-00000","1.10e-10","+0.00","+00000","3", /* cf M05 */ + "CH3", "C2H4", "C2H3", "CH4", "", "1.10e-23","+03.7","-04780","0.00e+00","+00.0","+00000","2", + "CH3", "C2H4", "C3H7", "", "", "1.39e-29","+00.0","-00562","3.50e-13","+00.0","-03700","3", /* cf V05 */ + "CH3", "C2H5", "CH4", "C2H4", "", "3.25e-11","-0.50","+00000","0.00e+00","+00.0","+00000","2", + "CH3", "C2H5", "C3H8", "", "", "1.01e+20","-16.1","-01897","8.12e-10","-0.50","+00000","3", + "CH3", "C2H6", "CH4", "C2H5", "", "2.50e-31","+6.00","-03043","0.00e+00","+00.0","+00000","2", +// "CH3", "C3H3", "C4H6", "", "", "3.50e-06","-07.0","-01390","6.80e-11","+00.0","+00130","3", /* cf V05 */ + "CH3", "CH3CCH", "C2H6", "C2H", "", "8.32e-13","+00.0","-04428","0.00e+00","+00.0","+00000","2", + "CH3", "CH2CCH2","C2H5", "C2H2", "", "3.32e-13","+00.0","-04076","0.00e+00","+00.0","+00000","2", + "CH3", "C3H5", "CH2CCH2","CH4", "", "5.00e-12","-0.32","+00066","0.00e+00","+00.0","+00000","2", + "CH3", "C3H5", "prod", "", "", "1.28e-30","-0.32","+00066","1.69e-10","-0.32","+00066","3", /* cf W04 */ + "CH3", "C3H6", "CH4", "C3H5", "", "2.66e-13","+00.0","-04440","0.00e+00","+00.0","+00000","2", + "CH3", "C3H6", "prod", "", "", "7.70e-29","+0.00","-00380","1.19e-13","+00.0","-03330","3", /* cf V05 */ + "CH3", "C3H7", "C4H10", "", "", "8.63e+28","-18.5","-02307","3.20e-10","-0.32","+00000","3", + "CH3", "C3H7", "C3H6", "CH4", "", "1.90e-11","-0.32","+00000","0.00e+00","+00.0","+00000","2", + "CH3", "C3H8", "C3H7", "CH4", "", "1.50e-24","+3.65","-03600","0.00e+00","+00.0","+00000","2", + "CH3", "C4H4", "C4H3", "CH4", "", "6.61e-13","+0.00","-02502","0.00e+00","+00.0","+00000","2", + "CH3", "C4H6", "prod", "", "", "3.30e-30","+0.00","-00740","1.30e-13","+00.0","-02060","3", /* cf V05 */ + "CH3", "C4H10", "prod", "CH4", "", "6.60e-13","-00.0","-04840","0.00e+00","+00.0","+00000","2", /* cf V05 */ +// "CH4", "C2", "CH3CCH", "", "", "1.70e-11","+0.00","-02805","0.00e+00","+00.0","+00000","2", /* Baulch 92 (3C2) */ + "CH4", "C2", "CH3", "C2H", "", "9.83e-11","-0.42","-00013","0.00e+00","+00.0","+00000","2", /* Canosa 06 (1C2) */ + "CH4", "C2H", "C2H2", "CH3", "", "1.20e-11","+0.00","-00491","0.00e+00","+00.0","+00000","2", + "CH4", "C2H3", "C2H4", "CH3", "", "2.40e-24","+4.02","-02754","0.00e+00","+00.0","+00000","2", + "CH4", "C2H5", "C2H6", "CH3", "", "1.43e-25","+4.14","-06322","0.00e+00","+00.0","+00000","2", + "CH4", "C3H5", "C3H6", "CH3", "", "6.60e-23","+3.40","-11670","0.00e+00","+00.0","+00000","2", /* cf V05 */ + "CH4", "C3H7", "C3H8", "CH3", "", "4.00e-26","+4.02","-05473","0.00e+00","+00.0","+00000","2", + "CH4", "C4H", "C4H2", "CH3", "", "1.20e-11","+0.00","-00491","0.00e+00","+00.0","+00000","2", /* pas de 1/3 */ + "CH4", "AC6H5", "AC6H6", "CH3", "", "3.32e-12","+0.00","-04329","0.00e+00","+00.0","+00000","2", /* cf M05 */ + "C2", "C2H2", "C4H", "H", "", "1.92e-07","-1.14","-00077","0.00e+00","+0.00","+00000","2", /* Canosa 06 (1C2) + produits: Nadia B. */ + "C2", "C2H4", "C4H3", "H", "", "5.10e-08","-0.93","-00058","0.00e+00","+0.00","+00000","2", /* Canosa 06 (1C2) + produits: Nadia B. */ + "C2", "C2H6", "C2H", "C2H5", "", "2.77e-08","-0.94","-00044","0.00e+00","+0.00","+00000","2", /* Canosa 06 (1C2); Produits ? */ + "C2", "C3H8", "C3H7", "C2H", "", "3.89e-08","-1.31","-00094","0.00e+00","+0.00","+00000","2", /* Canosa 06 (1C2); Produits ? */ + "C2", "AC6H6", "soot", "", "", "5.20e-10","+0.00","+00000","0.00e+00","+0.00","+00000","2", /* Reisler 80 */ + "C2H", "C2H", "C2H2", "C2", "", "3.00e-12","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C2H", "C2H2", "C4H2", "H", "", "8.60e-16","+1.80","+00474","0.00e+00","+00.0","+00000","2", /* peu != de Chastaing 98 */ + "C2H", "C2H2", "C4H", "H2", "", "8.60e-18","+1.80","+00474","0.00e+00","+00.0","+00000","2", /* Ralf Kaiser */ + "C2H", "C2H3", "C2H2", "C2H2", "", "1.60e-12","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C2H", "C2H4", "C4H4", "H", "", "7.80e-11","+0.00","+00134","0.00e+00","+00.0","+00000","2", /* peu != de Chastaing 98 */ + "C2H", "C2H5", "C3H3", "CH3", "", "3.00e-11","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C2H", "C2H5", "C2H2", "C2H4", "", "3.00e-12","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C2H", "C2H6", "C2H2", "C2H5", "", "5.10e-11","+0.00","-00076","0.00e+00","+00.0","+00000","2", /* cf V05 */ + "C2H", "CH3CCH", "C4H2", "CH3", "", "1.60e-10","+0.00","+00071","0.00e+00","+00.0","+00000","2", /* cf W04 */ + "C2H", "CH2CCH2","C2H2", "C3H3", "", "1.30e-10","+0.00","+00103","0.00e+00","+00.0","+00000","2", /* cf W04 */ + "C2H", "C3H5", "CH2CCH2","C2H2", "", "1.20e-11","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C2H", "C3H6", "prod", "H", "", "2.00e-10","+0.00","+00000","0.00e+00","+00.0","+00000","2", /* peu != de Chastaing 98 */ + "C2H", "C3H7", "C3H3", "C2H5", "", "2.00e-11","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C2H", "C3H7", "C3H6", "C2H2", "", "1.00e-11","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C2H", "C3H8", "C3H7", "C2H2", "", "9.80e-11","+0.00","-00071","0.00e+00","+00.0","+00000","2", /* cf V05 */ + "C2H", "C4H2", "prod", "H", "", "8.60e-16","+1.80","+00474","0.00e+00","+00.0","+00000","2", + "C2H", "C4H6", "AC6H6", "H", "", "3.30e-10","-00.0","-00000","0.00e+00","+00.0","+00000","2", /* cf V05 */ + "C2H", "C4H10", "prod", "C2H2", "", "1.20e-10","-00.0","-00000","0.00e+00","+00.0","+00000","2", /* cf V05 */ + "C2H", "AC6H6", "soot", "H", "", "8.20e-11","+0.00","+00000","0.00e+00","+0.00","+00000","2", /* WandF 97 */ + "C2H2", "C2H3", "C4H4", "H", "", "3.32e-12","+0.00","-02516","0.00e+00","+00.0","+00000","2", + "C2H2", "C2H3", "C4H5", "", "", "8.20e-30","+0.00","-00352","4.16e-19","+1.90","-01058","3", /* cf M05 */ + "C2H2", "C2H5", "prod", "", "", "3.30e-30","+0.00","-00740","5.60e-14","+00.0","-03520","3", /* cf V05 */ + "C2H2", "C3H5", "prod", "", "", "3.30e-30","+0.00","-00740","5.30e-14","+0.00","-03500","3", /* cf V05 */ + "C2H2", "C3H7", "C3H5", "C2H4", "", "1.20e-12","+0.00","-04531","0.00e+00","+00.0","+00000","2", + "C2H2", "C4H", "prod", "H", "", "8.60e-16","+1.80","+00474","0.00e+00","+00.0","+00000","2", /* pas de 1/3 */ + "C2H2", "C4H3", "soot", "", "", "2.00e-16","+0.00","-00000","0.00e+00","+0.00","+00000","2", + "C2H2", "C4H5", "AC6H6", "H", "", "3.50e-09","-1.07","-02417","0.00e+00","+0.00","+00000","2", /* WetF 94 */ + "C2H2", "C4H5", "AC6H6", "H", "", "4.20e-19","+1.80","-00602","0.00e+00","+0.00","+00000","2", /* Weismann 88 */ + "C2H2", "AC6H5", "soot", "", "", "3.72e-13","+0.00","-01561","0.00e+00","+0.00","+00000","2", /* Yu 94 */ + "C2H3", "C2H3", "C4H6", "", "", "5.00e-18","-3.75","-00300","1.40e-10","+00.0","+00000","3", /* cf M05 */ + "C2H3", "C2H3", "C2H2", "C2H4", "", "2.40e-11","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C2H3", "C2H4", "C4H6", "H", "", "8.30e-13","+0.00","-03676","0.00e+00","+00.0","+00000","2", + "C2H3", "C2H5", "C3H5", "CH3", "", "6.10e-47","+11.2","+03289","0.00e+00","+00.0","+00000","2", + "C2H3", "C2H5", "C2H4", "C2H4", "", "8.00e-13","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C2H3", "C2H5", "C2H2", "C2H6", "", "8.00e-13","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C2H3", "C2H5", "prod", "", "", "1.90e-27","+0.00","+00000","2.50e-11","+00.0","+00000","3", /* cf W04 */ + "C2H3", "C2H6", "C2H4", "C2H5", "", "9.98e-22","+3.30","-05285","0.00e+00","+00.0","+00000","2", + "C2H3", "C3H5", "CH2CCH2","C2H4", "", "4.00e-12","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C2H3", "C3H5", "C3H6", "C2H2", "", "8.00e-12","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C2H3", "C3H5", "prod", "H", "H", "8.00e-11","+0.00","-00000","0.00e+00","+00.0","+00000","2", /* cf W04 */ + "C2H3", "C3H6", "CH3", "C4H6", "", "1.20e-12","+0.00","-02520","0.00e+00","+00.0","+00000","2", + "C2H3", "C3H6", "C2H4", "C3H5", "", "3.68e-24","+3.50","-02356","0.00e+00","+00.0","+00000","2", + "C2H3", "C3H6", "prod", "H", "", "1.20e-12","+0.00","-03240","0.00e+00","+00.0","+00000","2", /* cf V05 */ + "C2H3", "C3H7", "C2H4", "C3H6", "", "2.00e-12","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C2H3", "C3H7", "C3H8", "C2H2", "", "2.00e-12","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C2H3", "C3H7", "prod", "", "", "3.50e-07","-7.00","-01390","1.60e-11","+00.0","+00000","3", /* cf V05 */ + "C2H3", "C3H8", "C3H7", "C2H4", "", "1.00e-21","+3.30","-05285","0.00e+00","+00.0","+00000","2", + "C2H3", "C4H3", "AC6H6", "", "", "4.77e-10","+0.00","-00411","0.00e+00","+0.00","+00000","2", /* Duran 88 */ + "C2H3", "C4H5", "AC6H6", "H2", "", "3.05e-37","+7.07","-01817","0.00e+00","+0.00","+00000","2", /* Westmoreland 89 */ + "C2H3", "C4H6", "prod", "", "", "1.50e-14","-5.84","-02363","2.45e-12","-0.17","-01630","3", /* cf V05 */ + "C2H4", "C2H5", "C2H3", "C2H6", "", "1.05e-21","+3.13","-09063","0.00e+00","+00.0","+00000","2", + "C2H4", "C3H5", "prod", "H", "", "1.00e-14","+0.00","-05776","0.00e+00","+00.0","+00000","2", /* cf V05 */ + "C2H4", "C3H7", "prod", "", "", "7.70e-30","+0.00","-00380","1.80e-13","+00.0","-03670","3", /* cf V05 */ + "C2H4", "C4H", "C4H2", "C2H3", "", "4.60e-11","+0.00","+00025","0.00e+00","+00.0","+00000","2", /* cf W04 */ + "C2H4", "AC6H5", "prod", "H", "", "1.20e-12","+0.00","-02250","0.00e+00","+00.0","+00000","2", /* cf M05 */ + "C2H5", "C2H5", "C4H10", "", "", "6.59e-06","-6.39","-00301","1.26e-11","+00.0","-00096","3", + "C2H5", "C2H5", "C2H6", "C2H4", "", "2.40e-12","+0.00","-00000","0.00e+00","+00.0","+00000","2", /* Baulch 92 */ + "C2H5", "CH2CCH2","C2H6", "C3H3", "", "5.25e-13","+0.00","-04579","0.00e+00","+0.00","+00000","2", /* Getty 67 */ + "C2H5", "C3H5", "CH2CCH2","C2H6", "", "1.60e-12","+0.00","+00066","0.00e+00","+00.0","+00000","2", + "C2H5", "C3H5", "C3H6", "C2H4", "", "4.30e-12","+0.00","+00066","0.00e+00","+00.0","+00000","2", + "C2H5", "C3H5", "prod", "", "", "3.50e-07","-07.0","-01390","3.30e-11","+00.0","+00066","3", /* cf V05 */ + "C2H5", "C3H6", "C2H6", "C3H5", "", "3.70e-24","+3.50","-03340","0.00e+00","+00.0","+00000","2", + "C2H5", "C3H6", "prod", "", "", "7.70e-30","-00.0","-00380","1.70e-13","+00.0","+03625","3", /* cf V05 */ + "C2H5", "C3H7", "C2H6", "C3H6", "", "2.40e-12","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C2H5", "C3H7", "C3H8", "C2H4", "", "1.90e-12","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C2H5", "C3H7", "prod", "", "", "9.70e+28","-18.5","-02307","3.30e-11","+00.0","+00000","3", /* cf V05 */ + "C2H5", "C3H8", "C3H7", "C2H6", "", "1.50e-24","+3.65","-04600","0.00e+00","+00.0","+00000","2", + "C2H6", "C3H5", "C2H5", "C3H6", "", "3.90e-22","+3.30","-09986","0.00e+00","+00.0","+00000","2", + "C2H6", "C3H7", "C3H8", "C2H5", "", "4.20e-25","+3.82","-04550","0.00e+00","+00.0","+00000","2", + "C2H6", "C4H", "C4H2", "C2H5", "", "3.50e-11","+0.00","+00003","0.00e+00","+00.0","+00000","2", /* cf W04 */ + "C3H3", "C3H3", "AC6H6", "", "", "6.00e-28","+0.00","+01680","1.20e-10","+0.00","+00000","3", /* Moses 00, Morter 94 */ + "C3H3", "C3H5", "prod", "", "", "2.90e-11","+0.00","-00000","0.00e+00","+00.0","+00000","2", /* cf W04 */ + "C3H3", "C4H2", "CH3CCH", "C4H", "", "1.00e-13","+0.00","+00000","0.00e+00","+0.00","+00000","2", /* Alkernade 89 */ + "C3H5", "C3H5", "CH2CCH2","C3H6", "", "1.40e-13","+0.00","+00132","0.00e+00","+00.0","+00000","2", + "C3H5", "C3H5", "prod", "", "", "3.50e-07","-7.00","-01390","1.70e-11","+0.00","+00132","3", /* cf V05 */ + "C3H5", "C3H6", "C2H5", "C4H4", "", "1.00e-14","+0.00","-05776","0.00e+00","+0.00","+00000","2", /* Tsang 91 */ + "C3H5", "C3H7", "C3H6", "C3H6", "", "2.40e-12","+0.00","+00066","0.00e+00","+00.0","+00000","2", + "C3H5", "C3H7", "CH2CCH2","C3H8", "", "1.20e-12","+0.00","+00066","0.00e+00","+00.0","+00000","2", + "C3H5", "C3H7", "prod", "", "", "3.50e-07","-7.00","-01390","3.40e-11","+0.00","+00066","3", /* cf V05 */ + "C3H5", "C3H8", "C3H7", "C3H6", "", "3.90e-22","+3.30","-09986","0.00e+00","+00.0","+00000","2", + "C3H5", "C4H10", "C3H6", "prod", "", "7.00e-23","+3.30","-07800","0.00e+00","+00.0","+00000","2", /* cf V05 */ + "C3H6", "C3H7", "C3H5", "C3H8", "", "3.70e-24","+3.50","-03340","0.00e+00","+00.0","+00000","2", + "C3H7", "C3H7", "C3H8", "C3H6", "", "2.80e-12","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C3H7", "C3H7", "prod", "", "", "2.90e-21","+0.00","+00000","1.70e-11","+00.0","+00000","3", /* cf V05 */ + "C4H", "C4H2", "prod", "H", "", "8.60e-16","+1.80","+00474","0.00e+00","+00.0","+00000","2", /* pad de 1/3 */ + "C4H2s", "", "C4H2", "", "", "1.00e+01","+0.00","+00000","0.00e+00","+00.0","+00000","1", + "C4H2s", "N2", "C4H2", "N2", "", "1.40e-15","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C4H2s", "C2H2", "prod", "H", "H", "3.50e-13","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C4H2s", "C2H4", "prod", "H", "H", "4.20e-13","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C4H2s", "CH3CCH", "prod", "H", "H", "1.60e-13","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C4H2s", "CH3CCH", "prod", "CH3", "H", "2.30e-13","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C4H2s", "CH3CCH", "prod", "C2H2", "", "2.50e-13","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C4H2s", "CH3CCH", "prod", "C2H3", "", "8.70e-14","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C4H2s", "C3H6", "prod", "H", "H", "1.60e-13","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C4H2s", "C3H6", "prod", "CH3", "H", "4.10e-13","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C4H2s", "C3H6", "prod", "C2H2", "", "2.50e-13","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C4H2s", "C3H6", "prod", "C2H3", "", "4.90e-14","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C4H2s", "C4H2", "prod", "C2H2", "", "8.20e-13","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C4H2s", "C4H2", "prod", "H", "H", "1.00e-12","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C4H2s", "C4H6", "soot", "H", "", "9.50e-13","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C4H2s", "C4H6", "AC6H6", "C2H2", "", "8.80e-13","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C4H2s", "C4H6", "prod", "C2H4", "", "3.60e-13","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C4H3", "C4H3", "prod", "", "", "3.50e-07","-7.00","-01390","7.00e-11","+0.00","+00000","3", /* cf V05 */ + "C4H4", "C4H4", "prod", "", "", "7.25e-14","+0.00","-09261","0.00e+00","+00.0","+00000","2", + "AC6H5", "AC6H6", "prod", "", "", "1.59e-12","+0.00","-02168","0.00e+00","+00.0","+00000","2", /* cf W04 */ + + "N4S", "N4S", "N2", "", "", "8.27e-34","+0.00","+00490","0.00e+00","+00.0","+00000","3", + "N4S", "CH", "CN", "H", "", "2.67e-10","-0.09","+00000","0.00e+00","+00.0","+00000","2", + "N4S", "CH3", "HCN", "H2", "", "6.00e-12","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "N4S", "CH3", "H2CN", "H", "", "5.60e-11","+0.00","+00000","0.00e+00","+00.0","+00000","2", +/* "N4S", "C2H2", "CH2CN", "", "", "1.70e-14","+0.00","+00000","0.00e+00","+0.00","+00000","2", Sato 74 */ + "N4S", "C2H3", "CH3CN", "", "", "3.08e-12","+0.00","+00000","0.00e+00","+0.00","+00000","2", /* Payne 96 */ + "N4S", "C2H3", "CH2CN", "H", "", "6.16e-11","+0.00","+00000","0.00e+00","+0.00","+00000","2", /* Payne 96 */ + "N4S", "C2H4", "CH3", "HCN", "", "3.32e-14","+0.00","-00352","0.00e+00","+0.00","+00000","2", /* Kerr 72 */ + "N4S", "C2H5", "HCN", "CH4", "", "1.10e-10","+0.00","+00000","0.00e+00","+0.00","+00000","2", /* Stief 95 */ + "N4S", "C2H6", "prod", "", "", "0.00e-00","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "N4S", "CH3CCH", "CHCN", "CH3", "", "1.15e-13","+0.00","-00745","0.00e+00","+0.00","+00000","2", /* Kerr 72 */ + "N4S", "C3H6", "HCN", "C2H4", "H", "2.49e-13","+0.00","-00830","0.00e+00","+0.00","+00000","2", /* Paraskevopoulos 67 */ + "N4S", "C3H8", "HCN", "C2H6", "H", "3.39e-13","+0.00","-02563","0.00e+00","+0.00","+00000","2", /* Onyzchuk 53 */ + "N4S", "C4H10", "C3H8", "HCN", "H", "2.97e-14","+0.00","-01813","0.00e+00","+0.00","+00000","2", /* Back 54 */ + "N4S", "H2CN", "HCN", "prod", "", "1.00e-10","+0.00","-00200","0.00e+00","+00.0","+00000","2", + "N4S", "CHCN", "NCCN", "H", "", "6.00e-15","+0.00","+00000","0.00e+00","+0.00","+00000","2", /* Safrany 68 */ + "N4S", "CH3CN", "HCN", "HCN", "H", "2.28e-15","+0.00","-00813","0.00e+00","+0.00","+00000","2", /* Forst 57 */ + "CN", "H", "HCN", "", "", "2.40e-24","-2.20","-00567","2.99e-09","-0.50","+00000","3", /* Tsang 92 */ + "CN", "H2", "HCN", "H", "", "2.23e-21","+3.31","-00756","0.00e+00","+00.0","+00000","2", + "CN", "CH4", "HCN", "CH3", "", "4.64e-16","+1.53","-00504","0.00e+00","+00.0","+00000","2", /* est, Yang 93 */ + "CN", "CH4", "CH3CN", "H", "", "5.15e-17","+1.53","-00504","0.00e+00","+0.00","+00000","2", /* est, Yang 93 */ + "CN", "C2H2", "HC3N", "H", "", "5.67e-09","-0.55","-00004","0.00e+00","+00.0","+00000","2", + "CN", "C2H6", "HCN", "C2H5", "", "5.91e-12","+0.22","+00058","0.00e+00","+00.0","+00000","2", + "CN", "CH3CCH", "HC3N", "CH3", "", "2.10e-10","+0.00","+00000","0.00e+00","+0.00","+00000","2", /* Sayah 88 */ + "CN", "CH2CCH2","HCN", "C3H3", "", "2.63e-10","+0.00","+00167","0.00e+00","+0.00","+00000","2", /* Butterfield 93 */ + "CN", "C3H6", "prod", "H", "", "1.73e-10","+0.00","+00102","0.00e+00","+0.00","+00000","2", /* Sims 93 */ + "CN", "C3H8", "C3H7", "HCN", "", "2.44e-14","+1.19","+00378","0.00e+00","+0.00","+00000","2", /* Yang 92 */ + "CN", "C4H2", "HC3N", "C2H", "", "5.26e-09","-0.52","-00019","0.00e+00","+0.00","+00000","2", /* est. Sims 93 */ + "CN", "C4H4", "C4H3", "HCN", "", "1.07e-07","-0.82","-00228","0.00e+00","+0.00","+00000","2", /* Yang 92 */ + "CN", "CN", "NCCN", "", "", "9.44e-23","-2.61","+00000","9.40e-12","+0.00","+00000","3", /* Tsang 92 */ + "CN", "HCN", "NCCN", "H", "", "2.51e-17","+1.71","-00770","0.00e+00","+0.00","+00000","2", /* Yang 92 */ + "CN", "CH3CN", "NCCN", "CH3", "", "6.46e-11","+0.00","-01190","0.00e+00","+0.00","+00000","2", /* Zabarnick 89 */ + "CN", "NCCN", "prod", "", "", "2.19e-21","+2.70","-00325","0.00e+00","+00.0","+00000","2", + "CN", "HC3N", "C4N2", "H", "", "1.70e-10","+0.00","+00000","0.00e+00","+0.00","+00000","2", /* Halpern 89 */ + "CN", "C4N2", "NCCN", "C3N", "", "5.40e-13","+0.00","+00000","0.00e+00","+0.00","+00000","2", /* Seki 96 */ + "HCN", "H", "H2CN", "", "", "4.40e-24","-2.73","-03855","5.50e-11","+00.0","-02438","3", + "HCN", "CH", "CHCN", "H", "", "5.00e-11","+0.00","+00500","0.00e+00","+0.00","+00000","2", /* Zabarnick 91 */ + "HCN", "C2H", "H", "HC3N", "", "5.26e-12","+0.00","-00770","0.00e+00","+00.0","+00000","2", + "HCN", "AC6H5", "soot", "", "", "3.72e-13","+0.00","-01561","0.00e+00","+0.00","+00000","2", + "HCN", "H2CN", "soot", "", "", "1.00e-12","+0.00","-00900","0.00e+00","+0.00","+00000","2", + "H2CN", "H", "HCN", "H2", "", "1.40e-10","+0.00","-00200","0.00e+00","+00.0","+00000","2", + "H2CN", "H2CN", "prod", "HCN", "", "1.16e-11","+0.00","+00000","0.00e+00","+0.00","+00000","2", /* Horne 70 */ + "H2CN", "CH3CN", "soot", "", "", "1.00e-12","+0.00","-00900","0.00e+00","+0.00","+00000","2", + "H2CN", "NCCN", "soot", "", "", "1.00e-12","+0.00","-00900","0.00e+00","+0.00","+00000","2", + "H2CN", "HC3N", "soot", "", "", "1.00e-12","+0.00","-00900","0.00e+00","+0.00","+00000","2", + "N2", "CH", "prod", "", "", "3.80e-25","-2.60","+00000","9.65e-11","-0.15","+00000","3", /* Fulle 96 */ + "CHCN", "H2", "CH3CN", "", "", "1.00e-13","+0.00","+00000","0.00e+00","+0.00","+00000","2", /* Adamson 97 */ + "CH2CN", "CH2CN", "C2H4", "NCCN", "", "1.80e-11","+0.00","-00769","0.00e+00","+0.00","+00000","2", /* est, Hoobler 97 */ + "CH3CN", "H", "CH3", "HCN", "", "3.39e-12","+0.00","-03954","0.00e+00","+0.00","+00000","2", /* Jamieson 70 */ + "CH3CN", "H", "CH4", "CN", "", "1.66e-13","+0.00","-01505","0.00e+00","+0.00","+00000","2", /* Jamieson 70 */ + "CH3CN", "C2H", "HC3N", "CH3", "", "1.80e-11","+0.00","-00769","0.00e+00","+0.00","+00000","2", /* Hoobler 97 */ + "C3N", "H2", "HC3N", "H", "", "1.20e-11","+0.00","-00998","0.00e+00","+00.0","+00000","2", + "C3N", "CH4", "HC3N", "CH3", "", "1.20e-11","+0.00","-00491","0.00e+00","+00.0","+00000","2", + "C3N", "C2H2", "prod", "H", "", "8.60e-16","+1.80","+00474","0.00e+00","+00.0","+00000","2", + "C3N", "C2H4", "prod", "H", "", "7.80e-11","+0.00","+00134","0.00e+00","+00.0","+00000","2", + "C3N", "C2H6", "HC3N", "C2H5", "", "3.50e-11","+0.00","+00002","0.00e+00","+00.0","+00000","2", + "C3N", "C3H8", "C3H7", "HC3N", "", "6.00e-12","+0.00","+00000","0.00e+00","+00.0","+00000","2", + "C3N", "C4H2", "prod", "H", "", "8.60e-16","+1.80","+00474","0.00e+00","+00.0","+00000","2", + "C3N", "HC3N", "prod", "H", "", "8.60e-16","+1.80","+00474","0.00e+00","+00.0","+00000","2", + "HC3N", "H", "HCN", "C2H2", "", "1.00e-28","+0.00","-00740","0.55e-12","+00.0","-00500","3", + "HC3N", "C2H", "prod", "H", "", "8.60e-16","+1.80","+00474","0.00e+00","+00.0","+00000","2", + "HC3N", "C4H", "prod", "H", "", "2.90e-16","+1.80","+00474","0.00e+00","+00.0","+00000","2", + "HC3N", "C4H3", "soot", "", "", "1.20e-15","+0.00","-00000","0.00e+00","+0.00","+00000","2", Index: /trunk/LMDZ.TITAN/libf/chimtitan/comp.c =================================================================== --- /trunk/LMDZ.TITAN/libf/chimtitan/comp.c (revision 1644) +++ /trunk/LMDZ.TITAN/libf/chimtitan/comp.c (revision 1644) @@ -0,0 +1,547 @@ +/* comp: Compounds characteristics. */ +/* GCCM */ + +#include "titan.h" + +void comp_(char CORPS[][10], double *CT, double *TEMP, + double *MASS, double MD[][NLEV]) +{ + int i,j; + char corps[NC+1][10]; + + double m,ma,epsa,sig,siga,p; + + p = 2.976e07; /*9 10^7 R / 8 pi */ + + /* WARNING BACKGROUND GAS IS N2 */ + + ma = 28.0134e0; /* mass of background gas in g */ + siga = 3.798e0; /* Lennard-Jones length of background gas 1/10 nm */ + epsa = 71.4e0; /* Lennard-Jones energy of background gas */ + + for( i = 0; i <= NC; i++) + { + strcpy( corps[i], CORPS[i] ); + corps[i][strcspn(CORPS[i], " ")] = '\0'; + } + + for( i = 0; i <= NC-1; i++) + { + for( j = 0; j <= NLEV-1; j++ ) MD[i][j] = 0.0e0; + } + + for( i = 0; i <= NC-1; i++ ) + { + if( strcmp(corps[i], "CH4") == 0 ) + { + MASS[i] = 16.04e0; + m = ( ma + MASS[i] ) / ( ma * MASS[i] ); + sig = 1.0e-16 * pow( ( siga + 3.758e0 ), 2.0e0 ); + for( j = 0; j <= NLEV-1; j++ ) + MD[i][j] = sqrt( p * TEMP[j] * m ) + / ( CT[j] * sig * omega(TEMP[j],epsa,148.6e0) ); + } + if( strcmp(corps[i], "H") == 0 ) + { + MASS[i] = 1.01e0; + } + if( strcmp(corps[i], "H2") == 0 ) + { + MASS[i] = 2.0158e0; + m = ( ma + MASS[i] ) / ( ma * MASS[i] ); + sig = 1.0e-16 * pow( ( siga + 2.827e0 ), 2.0e0 ); + for( j = 0; j <= NLEV-1; j++ ) + MD[i][j] = sqrt( p * TEMP[j] * m ) + / ( CT[j] * sig * omega(TEMP[j],epsa,59.7e0) ); + } + if( strcmp(corps[i], "CH") == 0 ) + { + MASS[i] = 13.02e0; + m = ( ma + MASS[i] ) / ( ma * MASS[i] ); + sig = 1.0e-16 * pow( ( siga + 3.0e0 ), 2.0e0 ); + for( j = 0; j <= NLEV-1; j++ ) + MD[i][j] = sqrt( p * TEMP[j] * m ) / ( CT[j] * sig ); + } + if( ( strcmp( corps[i], "CH2" ) == 0 ) || ( strcmp( corps[i], "CH2s" ) == 0 ) ) + { + MASS[i] = 14.03e0; + m = ( ma + MASS[i] ) / ( ma * MASS[i] ); + sig = 1.0e-16 * pow( ( siga + 3.4e0 ), 2.0e0 ); + for( j = 0; j <= NLEV-1; j++ ) + MD[i][j] = sqrt( p * TEMP[j] * m ) / ( CT[j] * sig ); + } + if( strcmp(corps[i], "CH3") == 0 ) + { + MASS[i] = 15.03e0; + m = ( ma + MASS[i] ) / ( ma * MASS[i] ); + sig = 1.0e-16 * pow( ( siga + 3.7e0 ), 2.0e0 ); + for( j = 0; j <= NLEV-1; j++ ) + MD[i][j] = sqrt( p * TEMP[j] * m ) / ( CT[j] * sig ); + } + if( strcmp(corps[i], "C") == 0 ) + { + MASS[i] = 12.01e0; + m = ( ma + MASS[i] ) / ( ma * MASS[i] ); + sig = 1.0e-16 * pow( ( siga + 1.4e0 ), 2.0e0 ); + for( j = 0; j <= NLEV-1; j++ ) + MD[i][j] = sqrt( p * TEMP[j] * m ) / ( CT[j] * sig ); + } + if( strcmp(corps[i], "C2") == 0 ) + { + MASS[i] = 24.02e0; + m = ( ma + MASS[i] ) / ( ma * MASS[i] ); + sig = 1.0e-16 * pow( ( siga + 3.2e0 ), 2.0e0 ); + for( j = 0; j <= NLEV-1; j++ ) + MD[i][j] = sqrt( p * TEMP[j] * m ) / ( CT[j] * sig ); + } + if( strcmp(corps[i], "C2H") == 0 ) + { + MASS[i] = 25.03e0; + m = ( ma + MASS[i] ) / ( ma * MASS[i] ); + sig = 1.0e-16 * pow( ( siga + 3.5e0 ), 2.0e0 ); + for( j = 0; j <= NLEV-1; j++ ) + MD[i][j] = sqrt( p * TEMP[j] * m ) / ( CT[j] * sig ); + } + if( strcmp(corps[i], "C2H3") == 0 ) + { + MASS[i] = 27.05e0; + m = ( ma + MASS[i] ) / ( ma * MASS[i] ); + sig = 1.0e-16 * pow( ( siga + 3.8e0 ), 2.0e0 ); + for( j = 0; j <= NLEV-1; j++ ) + MD[i][j] = sqrt( p * TEMP[j] * m ) / ( CT[j] * sig ); + } + if( strcmp(corps[i], "C2H4") == 0 ) + { + MASS[i] = 28.05e0; + m = ( ma + MASS[i] ) / ( ma * MASS[i] ); + sig = 1.0e-16 * pow( ( siga + 4.163e0 ), 2.0e0 ); + for( j = 0; j <= NLEV-1; j++ ) + MD[i][j] = sqrt( p * TEMP[j] * m ) + / ( CT[j] * sig * omega(TEMP[j],epsa,224.7e0) ); + } + if( strcmp(corps[i], "C2H2") == 0 ) + { + MASS[i] = 26.04e0; + m = ( ma + MASS[i] ) / ( ma * MASS[i] ); + sig = 1.0e-16 * pow( ( siga + 4.033e0 ), 2.0e0 ); + for( j = 0; j <= NLEV-1; j++ ) + MD[i][j] = sqrt( p * TEMP[j] * m ) + / ( CT[j] * sig * omega(TEMP[j],epsa,231.8e0) ); + } + if( strcmp(corps[i], "C2H5") == 0 ) + { + MASS[i] = 29.06e0; + m = ( ma + MASS[i] ) / ( ma * MASS[i] ); + sig = 1.0e-16 * pow( ( siga + 4.0e0 ), 2.0e0 ); + for( j = 0; j <= NLEV-1; j++ ) + MD[i][j] = sqrt( p * TEMP[j] * m ) / ( CT[j] * sig ); + } + if( strcmp(corps[i], "C2H6") == 0 ) + { + MASS[i] = 30.07e0; + m = ( ma + MASS[i] ) / ( ma * MASS[i] ); + sig = 1.0e-16 * pow( ( siga + 4.443e0 ), 2.0e0 ); + for( j = 0; j <= NLEV-1; j++ ) + MD[i][j] = sqrt( p * TEMP[j] * m ) + / ( CT[j] * sig * omega(TEMP[j],epsa,215.7e0) ); + } + if( strcmp(corps[i], "C3H2") == 0 ) + { + MASS[i] = 38.05e0; + m = ( ma + MASS[i] ) / ( ma * MASS[i] ); + sig = 1.0e-16 * pow( ( siga + 4.6e0 ), 2.0e0 ); + for( j = 0; j <= NLEV-1; j++ ) + MD[i][j] = sqrt( p * TEMP[j] * m ) / ( CT[j] * sig ); + } + if( strcmp(corps[i], "C3H3") == 0 ) + { + MASS[i] = 39.06e0; + m = ( ma + MASS[i] ) / ( ma * MASS[i] ); + sig = 1.0e-16 * pow( ( siga + 4.7e0 ), 2.0e0 ); + for( j = 0; j <= NLEV-1; j++ ) + MD[i][j] = sqrt( p * TEMP[j] * m ) / ( CT[j] * sig ); + } + if( ( strcmp(corps[i], "CH2CCH2") == 0 ) || ( strcmp(corps[i], "CH3CCH") == 0 ) ) + { + MASS[i] = 40.07e0; + m = ( ma + MASS[i] ) / ( ma * MASS[i] ); + sig = 1.0e-16 * pow( ( siga + 4.761e0 ), 2.0e0 ); + for( j = 0; j <= NLEV-1; j++ ) + MD[i][j] = sqrt( p * TEMP[j] * m ) + / ( CT[j] * sig * omega(TEMP[j],epsa,251.8e0) ); + } + if( strcmp(corps[i], "C3H5") == 0 ) + { + MASS[i] = 41.07e0; + m = ( ma + MASS[i] ) / ( ma * MASS[i] ); + sig = 1.0e-16 * pow( ( siga + 4.78e0 ), 2.0e0 ); + for( j = 0; j <= NLEV-1; j++ ) + MD[i][j] = sqrt( p * TEMP[j] * m ) / ( CT[j] * sig ); + } + if( strcmp(corps[i], "C3H6") == 0 ) + { + MASS[i] = 42.08e0; + m = ( ma + MASS[i] ) / ( ma * MASS[i] ); + sig = 1.0e-16 * pow( ( siga + 4.807e0 ), 2.0e0 ); + for( j = 0; j <= NLEV-1; j++ ) + MD[i][j] = sqrt( p * TEMP[j] * m ) + / ( CT[j] * sig * omega(TEMP[j],epsa,248.9e0) ); + } + if( strcmp(corps[i], "C3H7") == 0 ) + { + MASS[i] = 43.09e0; + m = ( ma + MASS[i] ) / ( ma * MASS[i] ); + sig = 1.0e-16 * pow( ( siga + 5.0e0 ), 2.0e0 ); + for( j = 0; j <= NLEV-1; j++ ) + MD[i][j] = sqrt( p * TEMP[j] * m ) / ( CT[j] * sig ); + } + if( strcmp(corps[i], "C3H8") == 0 ) + { + MASS[i] = 44.11e0; + m = ( ma + MASS[i] ) / ( ma * MASS[i] ); + sig = 1.0e-16 * pow( ( siga + 5.118e0 ), 2.0e0 ); + for( j = 0; j <= NLEV-1; j++ ) + MD[i][j] = sqrt( p * TEMP[j] * m ) + / ( CT[j] * sig * omega(TEMP[j],epsa,237.1e0) ); + } + if( strcmp(corps[i], "C4H") == 0 ) + { + MASS[i] = 49.05e0; + m = ( ma + MASS[i] ) / ( ma * MASS[i] ); + sig = 1.0e-16 * pow( ( siga + 4.2e0 ), 2.0e0 ); + for( j = 0; j <= NLEV-1; j++ ) + MD[i][j] = sqrt( p * TEMP[j] * m ) / ( CT[j] * sig ); + } + if( ( strcmp(corps[i], "C4H2") == 0 )||( strcmp(corps[i], "C4H2s") == 0 ) ) + { + MASS[i] = 50.06e0; + m = ( ma + MASS[i] ) / ( ma * MASS[i] ); + sig = 1.0e-16 * pow( ( siga + 4.3e0 ), 2.0e0 ); + for( j = 0; j <= NLEV-1; j++ ) + MD[i][j] = sqrt( p * TEMP[j] * m ) / ( CT[j] * sig ); + } + if( strcmp(corps[i], "C4H3") == 0 ) + { + MASS[i] = 51.07e0; + m = ( ma + MASS[i] ) / ( ma * MASS[i] ); + sig = 1.0e-16 * pow( ( siga + 4.4e0 ), 2.0e0 ); + for( j = 0; j <= NLEV-1; j++ ) + MD[i][j] = sqrt( p * TEMP[j] * m ) / ( CT[j] * sig ); + } + if( strcmp(corps[i], "C4H4") == 0 ) + { + MASS[i] = 52.08e0; + m = ( ma + MASS[i] ) / ( ma * MASS[i] ); + sig = 1.0e-16 * pow( ( siga + 4.5e0 ), 2.0e0 ); + for( j = 0; j <= NLEV-1; j++ ) + MD[i][j] = sqrt( p * TEMP[j] * m ) / ( CT[j] * sig ); + } + if( strcmp(corps[i], "C4H5") == 0 ) + { + MASS[i] = 53.07e0; + m = ( ma + MASS[i] ) / ( ma * MASS[i] ); + sig = 1.0e-16 * pow( ( siga + 4.5e0 ), 2.0e0 ); + for( j = 0; j <= NLEV-1; j++ ) + MD[i][j] = sqrt( p * TEMP[j] * m ) / ( CT[j] * sig ); + } + if( strcmp(corps[i], "C4H6") == 0 ) + { + MASS[i] = 54.09e0; + m = ( ma + MASS[i] ) / ( ma * MASS[i] ); + sig = 1.0e-16 * pow( ( siga + 4.6e0 ), 2.0e0 ); + for( j = 0; j <= NLEV-1; j++ ) + MD[i][j] = sqrt( p * TEMP[j] * m ) / ( CT[j] * sig ); + } + if( strcmp(corps[i], "C4H10") == 0 ) + { + MASS[i] = 58.13e0; + m = ( ma + MASS[i] ) / ( ma * MASS[i] ); + sig = 1.0e-16 * pow( ( siga + 4.687e0 ), 2.0e0 ); + for( j = 0; j <= NLEV-1; j++ ) + MD[i][j] = sqrt( p * TEMP[j] * m ) + / ( CT[j] * sig * omega(TEMP[j],epsa,531.4e0) ); + } + if( strcmp(corps[i], "C6H") == 0 ) + { + MASS[i] = 73.07e0; + m = ( ma + MASS[i] ) / ( ma * MASS[i] ); + sig = 1.0e-16 * pow( ( siga + 5.2e0 ), 2.0e0 ); + for( j = 0; j <= NLEV-1; j++ ) + MD[i][j] = sqrt( p * TEMP[j] * m ) / ( CT[j] * sig ); + } + if( strcmp(corps[i], "C6H2") == 0 ) + { + MASS[i] = 74.08e0; + m = ( ma + MASS[i] ) / ( ma * MASS[i] ); + sig = 1.0e-16 * pow( ( siga + 5.4e0 ), 2.0e0 ); + for( j = 0; j <= NLEV-1; j++ ) + MD[i][j] = sqrt( p * TEMP[j] * m ) / ( CT[j] * sig ); + } + if( strcmp(corps[i], "C8H2") == 0 ) + { + MASS[i] = 98.10e0; + m = ( ma + MASS[i] ) / ( ma * MASS[i] ); + sig = 1.0e-16 * pow( ( siga + 6.0e0 ), 2.0e0 ); + for( j = 0; j <= NLEV-1; j++ ) + MD[i][j] = sqrt( p * TEMP[j] * m ) / ( CT[j] * sig ); + } + if( strcmp( corps[i], "AC6H6" ) == 0 ) + { + MASS[i] = 78.1136e0; + m = ( ma + MASS[i] ) / ( ma * MASS[i] ); + sig = 1.0e-16 * pow( ( siga + 5.4e0 ), 2.0e0 ); + for( j = 0; j <= NLEV-1; j++ ) /* P. G. L. */ + MD[i][j] = sqrt( p * TEMP[j] * m ) / ( CT[j] * sig ); + } + if( ( strcmp( corps[i], "C6H5" ) == 0 ) || ( strcmp( corps[i], "AC6H5" ) == 0 ) ) + { + MASS[i] = 77.1136e0; + m = ( ma + MASS[i] ) / ( ma * MASS[i] ); + sig = 1.0e-16 * pow( ( siga + 5.4e0 ), 2.0e0 ); + for( j = 0; j <= NLEV-1; j++ ) + MD[i][j] = sqrt( p * TEMP[j] * m ) / ( CT[j] * sig ); + } + if( strcmp( corps[i], "C6H6" ) == 0 ) + { + MASS[i] = 78.1136e0; + m = ( ma + MASS[i] ) / ( ma * MASS[i] ); + sig = 1.0e-16 * pow( ( siga + 5.4e0 ), 2.0e0 ); + for( j = 0; j <= NLEV-1; j++ ) + MD[i][j] = sqrt( p * TEMP[j] * m ) / ( CT[j] * sig ); + } + if( strcmp(corps[i], "N2") == 0 ) + { + MASS[i] = 28.0134e0; + } + if( strcmp(corps[i], "N4S") == 0 ) + { + MASS[i] = 14.01e0; + m = ( ma + MASS[i] ) / ( ma * MASS[i] ); + sig = 1.0e-16 * pow( ( siga + 1.5e0 ), 2.0e0 ); + for( j = 0; j <= NLEV-1; j++ ) + MD[i][j] = sqrt( p * TEMP[j] * m ) / ( CT[j] * sig ); + } + if( strcmp(corps[i], "NH") == 0 ) + { + MASS[i] = 15.01e0; + m = ( ma + MASS[i] ) / ( ma * MASS[i] ); + sig = 1.0e-16 * pow( ( siga + 3.0e0 ), 2.0e0 ); + for( j = 0; j <= NLEV-1; j++ ) + MD[i][j] = sqrt( p * TEMP[j] * m ) / ( CT[j] * sig ); + } + if( strcmp(corps[i], "CN") == 0 ) + { + MASS[i] = 26.02e0; + m = ( ma + MASS[i] ) / ( ma * MASS[i] ); + sig = 1.0e-16 * pow( ( siga + 3.2e0 ), 2.0e0 ); + for( j = 0; j <= NLEV-1; j++ ) + MD[i][j] = sqrt( p * TEMP[j] * m ) / ( CT[j] * sig ); + } + if( strcmp(corps[i], "HCN") == 0 ) + { + MASS[i] = 27.04e0; + m = ( ma + MASS[i] ) / ( ma * MASS[i] ); + sig = 1.0e-16 * pow( ( siga + 3.63e0 ), 2.0e0 ); + for( j = 0; j <= NLEV-1; j++ ) + MD[i][j] = sqrt( p * TEMP[j] * m ) + / ( CT[j] * sig * omega(TEMP[j],epsa,569.1e0) ); + } + if( strcmp(corps[i], "H2CN") == 0 ) + { + MASS[i] = 28.05e0; + m = ( ma + MASS[i] ) / ( ma * MASS[i] ); + sig = 1.0e-16 * pow( ( siga + 3.8e0 ), 2.0e0 ); + for( j = 0; j <= NLEV-1; j++ ) + MD[i][j] = sqrt( p * TEMP[j] * m ) / ( CT[j] * sig ); + } + if( strcmp(corps[i], "C2N") == 0 ) /* C2N */ + { + MASS[i] = 39.05e0; + m = ( ma + MASS[i] ) / ( ma * MASS[i] ); + sig = 1.0e-16 * pow( ( siga + 4.0e0 ), 2.0e0 ); + for( j = 0; j <= NLEV-1; j++ ) + MD[i][j] = sqrt( p * TEMP[j] * m ) / ( CT[j] * sig ); + } + if( strcmp( corps[i], "CHCN" ) == 0 ) + { + MASS[i] = 39.05e0; + m = ( ma + MASS[i] ) / ( ma * MASS[i] ); + sig = 1.0e-16 * pow( ( siga + 4.0e0 ), 2.0e0 ); + for( j = 0; j <= NLEV-1; j++ ) + MD[i][j] = sqrt( p * TEMP[j] * m ) / ( CT[j] * sig ); + } + if( strcmp( corps[i], "CH2CN" ) == 0 ) + { + MASS[i] = 40.04e0; + m = ( ma + MASS[i] ) / ( ma * MASS[i] ); + sig = 1.0e-16 * pow( ( siga + 4.0e0 ), 2.0e0 ); + for( j = 0; j <= NLEV-1; j++ ) + MD[i][j] = sqrt( p * TEMP[j] * m ) / ( CT[j] * sig ); + } + if( strcmp( corps[i], "CH3CN" ) == 0 ) + { + MASS[i] = 41.05e0; + m = ( ma + MASS[i] ) / ( ma * MASS[i] ); + sig = 1.0e-16 * pow( ( siga + 4.0e0 ), 2.0e0 ); + for( j = 0; j <= NLEV-1; j++ ) + MD[i][j] = sqrt( p * TEMP[j] * m ) / ( CT[j] * sig ); + } + if( strcmp( corps[i], "C2H3CN" ) == 0 ) + { + MASS[i] = 53.06e0; + m = ( ma + MASS[i] ) / ( ma * MASS[i] ); + sig = 1.0e-16 * pow( ( siga + 4.0e0 ), 2.0e0 ); + for( j = 0; j <= NLEV-1; j++ ) + MD[i][j] = sqrt( p * TEMP[j] * m ) / ( CT[j] * sig ); + } + if( strcmp(corps[i], "NCCN") == 0 ) /* NCCN */ + { + MASS[i] = 52.04e0; + m = ( ma + MASS[i] ) / ( ma * MASS[i] ); + sig = 1.0e-16 * pow( ( siga + 4.361e0 ), 2.0e0 ); + for( j = 0; j <= NLEV-1; j++ ) + MD[i][j] = sqrt( p * TEMP[j] * m ) + / ( CT[j] * sig * omega(TEMP[j],epsa,348.6e0) ); + } + if( strcmp(corps[i], "C3N") == 0 ) /* C3N */ + { + MASS[i] = 50.04e0; + m = ( ma + MASS[i] ) / ( ma * MASS[i] ); + sig = 1.0e-16 * pow( ( siga + 4.4e0 ), 2.0e0 ); + for( j = 0; j <= NLEV-1; j++ ) + MD[i][j] = sqrt( p * TEMP[j] * m ) / ( CT[j] * sig ); + } + if( strcmp(corps[i], "HC3N") == 0 ) /* HC3N */ + { + MASS[i] = 51.05e0; + m = ( ma + MASS[i] ) / ( ma * MASS[i] ); + sig = 1.0e-16 * pow( ( siga + 4.5e0 ), 2.0e0 ); + for( j = 0; j <= NLEV-1; j++ ) + MD[i][j] = sqrt( p * TEMP[j] * m ) / ( CT[j] * sig ); + } + if( strcmp( corps[i], "C4N2" ) == 0 ) + { + MASS[i] = 76.1e0; + m = ( ma + MASS[i] ) / ( ma * MASS[i] ); + sig = 1.0e-16 * pow( ( siga + 4.0e0 ), 2.0e0 ); + for( j = 0; j <= NLEV-1; j++ ) + MD[i][j] = sqrt( p * TEMP[j] * m ) / ( CT[j] * sig ); + } + if( strcmp(corps[i], "H2O") == 0 ) + { + MASS[i] = 18.02e0; + m = ( ma + MASS[i] ) / ( ma * MASS[i] ); + sig = 1.0e-16 * pow( ( siga + 2.641e0 ), 2.0e0 ); + for( j = 0; j <= NLEV-1; j++ ) + MD[i][j] = sqrt( p * TEMP[j] * m ) + / ( CT[j] * sig * omega(TEMP[j],epsa,809.1e0) ); + } + if( ( strcmp(corps[i], "O3P") == 0 ) || ( strcmp(corps[i], "O1D") == 0 ) ) + { + MASS[i] = 16.0e0; + m = ( ma + MASS[i] ) / ( ma * MASS[i] ); + sig = 1.0e-16 * pow( ( siga + 1.4e0 ), 2.0e0 ); + for( j = 0; j <= NLEV-1; j++ ) + MD[i][j] = sqrt( p * TEMP[j] * m ) / ( CT[j] * sig ); + } + if( strcmp(corps[i], "OH") == 0 ) + { + MASS[i] = 17.01e0; + m = ( ma + MASS[i] ) / ( ma * MASS[i] ); + sig = 1.0e-16 * pow( ( siga + 3.0e0 ), 2.0e0 ); + for( j = 0; j <= NLEV-1; j++ ) + MD[i][j] = sqrt( p * TEMP[j] * m ) / ( CT[j] * sig ); + } + if( strcmp(corps[i], "HO2") == 0 ) + { + MASS[i] = 33.01e0; + m = ( ma + MASS[i] ) / ( ma * MASS[i] ); + sig = 1.0e-16 * pow( ( siga + 3.5e0 ), 2.0e0 ); + for( j = 0; j <= NLEV-1; j++ ) + MD[i][j] = sqrt( p * TEMP[j] * m ) / ( CT[j] * sig ); + } + if( strcmp(corps[i], "H2O2") == 0 ) + { + MASS[i] = 33.01e0; + m = ( ma + MASS[i] ) / ( ma * MASS[i] ); + sig = 1.0e-16 * pow( ( siga + 3.5e0 ), 2.0e0 ); + for( j = 0; j <= NLEV-1; j++ ) + MD[i][j] = sqrt( p * TEMP[j] * m ) / ( CT[j] * sig ); + } + if( strcmp(corps[i], "O2") == 0 ) + { + MASS[i] = 32.0e0; + m = ( ma + MASS[i] ) / ( ma * MASS[i] ); + sig = 1.0e-16 * pow( ( siga + 3.7e0 ), 2.0e0 ); + for( j = 0; j <= NLEV-1; j++ ) + MD[i][j] = sqrt( p * TEMP[j] * m ) / ( CT[j] * sig ); + } + if( strcmp(corps[i], "O3") == 0 ) + { + MASS[i] = 32.0e0; + m = ( ma + MASS[i] ) / ( ma * MASS[i] ); + sig = 1.0e-16 * pow( ( siga + 3.7e0 ), 2.0e0 ); + for( j = 0; j <= NLEV-1; j++ ) + MD[i][j] = sqrt( p * TEMP[j] * m ) / ( CT[j] * sig ); + } + if( strcmp(corps[i], "CO") == 0 ) + { + MASS[i] = 28.01e0; + m = ( ma + MASS[i] ) / ( ma * MASS[i] ); + sig = 1.0e-16 * pow( ( siga + 3.69e0 ), 2.0e0 ); + for( j = 0; j <= NLEV-1; j++ ) + MD[i][j] = sqrt( p * TEMP[j] * m ) + / ( CT[j] * sig * omega(TEMP[j],epsa,91.7e0) ); + } + if( strcmp(corps[i], "HCO") == 0 ) + { + MASS[i] = 29.02e0; + m = ( ma + MASS[i] ) / ( ma * MASS[i] ); + sig = 1.0e-16 * pow( ( siga + 3.7e0 ), 2.0e0 ); + for( j = 0; j <= NLEV-1; j++ ) + MD[i][j] = sqrt( p * TEMP[j] * m ) / ( CT[j] * sig ); + } + if( strcmp(corps[i], "CO2") == 0 ) + { + MASS[i] = 44.01e0; + m = ( ma + MASS[i] ) / ( ma * MASS[i] ); + sig = 1.0e-16 * pow( ( siga + 3.941e0 ), 2.0e0 ); + for( j = 0; j <= NLEV-1; j++ ) + MD[i][j] = sqrt( p * TEMP[j] * m ) + / ( CT[j] * sig * omega(TEMP[j],epsa,195.2e0) ); + } + if( strcmp(corps[i], "CH2CO") == 0 ) + { + MASS[i] = 42.04e0; + m = ( ma + MASS[i] ) / ( ma * MASS[i] ); + sig = 1.0e-16 * pow( ( siga + 4.5e0 ), 2.0e0 ); + for( j = 0; j <= NLEV-1; j++ ) + MD[i][j] = sqrt( p * TEMP[j] * m ) / ( CT[j] * sig ); + } + if( strcmp(corps[i], "CH2O") == 0 ) + { + MASS[i] = 30.03e0; + m = ( ma + MASS[i] ) / ( ma * MASS[i] ); + sig = 1.0e-16 * pow( ( siga + 3.75e0 ), 2.0e0 ); + for( j = 0; j <= NLEV-1; j++ ) + MD[i][j] = sqrt( p * TEMP[j] * m ) / ( CT[j] * sig ); + } + if( ( strcmp(corps[i], "CH2OH") == 0 ) || ( strcmp(corps[i], "CH3O") == 0 ) ) + { + MASS[i] = 31.04e0; + m = ( ma + MASS[i] ) / ( ma * MASS[i] ); + sig = 1.0e-16 * pow( ( siga + 3.4e0 ), 2.0e0 ); + for( j = 0; j <= NLEV-1; j++ ) + MD[i][j] = sqrt( p * TEMP[j] * m ) / ( CT[j] * sig ); + } + if( strcmp(corps[i], "CH3OH") == 0 ) + { + MASS[i] = 32.042e0; + m = ( ma + MASS[i] ) / ( ma * MASS[i] ); + sig = 1.0e-16 * pow( ( siga + 3.626e0 ), 2.0e0 ); + for( j = 0; j <= NLEV-1; j++ ) + MD[i][j] = sqrt( p * TEMP[j] * m ) + / ( CT[j] * sig * omega(TEMP[j],epsa,481.8e0) ); + } + } +} Index: /trunk/LMDZ.TITAN/libf/chimtitan/disso.c =================================================================== --- /trunk/LMDZ.TITAN/libf/chimtitan/disso.c (revision 1644) +++ /trunk/LMDZ.TITAN/libf/chimtitan/disso.c (revision 1644) @@ -0,0 +1,390 @@ +/* disso: photodissociation rates */ +/* GCCM */ +/* correspond a chimie_simpnit (version 301105) */ +/* !!! ATTENTION !!! */ +/* Doit etre mis a jour en fonction de la chimie utilisee ! */ + +#include "titan.h" + +void disso_( double KRPD[][NLRT][RDISS+1][15], int *NLAT ) +{ + static double sH2[62] = { /* incertain en dessous de 70 et en dessus de 85... */ + 0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00, + 0.000e+00,0.000e+00,0.000e+00,0.000e+00,1.000e-18,5.000e-18,1.000e-17, + 9.000e-18,6.500e-18,1.000e-18,1.000e-19 }; + static double sCH4[62] = { + 2.852e-19,7.816e-19,1.534e-18,2.069e-18,2.795e-18,4.088e-18,4.543e-18, + 4.223e-18,3.314e-18,1.565e-18,8.892e-19,8.760e-19,8.792e-19,9.163e-19, + 2.069e-18,9.378e-18,2.543e-17,3.785e-17,4.066e-17,3.302e-17,2.840e-17, + 1.800e-17,1.920e-17,1.820e-17,1.840e-17,1.140e-17,2.656e-18,1.256e-19, + 7.988e-22,1.366e-23,6.740e-24 }; + static double sCH3CN[62] = { + 0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00, + 0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00, + 0.000e+00,0.000e+00,0.000e+00,0.000e+00,8.000e-17,8.000e-17,7.500e-17, + 4.800e-17,3.700e-17,2.700e-17,4.100e-17,1.000e-17,8.600e-18,4.000e-18, + 1.800e-18,1.100e-18,6.400e-19,3.600e-19,2.000e-19,1.200e-19,5.200e-20}; + static double sC2H2[62] = { + 0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00, + 0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00, + 0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,3.000e-17, + 3.000e-17,3.200e-17,3.640e-17,4.260e-17,1.040e-16,9.900e-18,4.800e-18, + 1.720e-17,1.782e-17,9.040e-19,9.600e-19,1.294e-18,1.352e-18,1.130e-18, + 6.680e-19,3.700e-19,3.900e-19,1.660e-19,5.400e-20 }; + static double sC2H4[62] = { + 0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00, + 0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00, + 0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00, + 0.000e+00,.1992E-16,.2734E-16,.2594E-16,.1690E-16,.2258E-16,.8507E-17, + .1583E-16,.2227E-16,.3056E-16,.3743E-16,.3788E-16,.2737E-16,.3171E-17, + .6033E-18,.1223E-18,.7247E-19,1.000e-20 }; + static double sC2H3CN[62] = { + 0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00, + 0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00, + 0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e-00,0.000e-00,0.000e-00, + 0.000e-00,0.000e-00,1.000e-17,6.600e-18,5.600e-18,3.600e-18,4.300e-18, + 4.000e-18,3.000e-18,2.900e-18,2.700e-18,2.700e-18,3.300e-18,4.500e-18, + 6.000e-18,7.100e-18,7.000e-18,5.000e-18,2.500e-18,6.600e-19,1.000e-19, + 1.500e-20,1.000e-21}; + static double sC2H6[62] = { + 0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00, + 0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00, + 0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,2.000e-17, + 2.000e-17,2.000e-17,2.060e-17,2.160e-17,1.540e-17,8.060e-18,3.860e-18, + 1.484e-18,3.060e-19,9.600e-21 }; + static double sCH3C2H[62] = { + 0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00, + 0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00, + 0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,1.000e-17, + 2.000e-17,4.580e-17,6.240e-17,5.880e-17,5.920e-17,1.940e-17,2.200e-17, + 2.820e-17,3.380e-17,1.142e-17,6.600e-18,8.100e-18,7.000e-18,2.800e-18, + 1.600e-18,2.300e-19,4.411e-19,2.119e-19,1.004e-19,2.934e-20,4.157e-21 }; + static double sCH2CCH2[62] = { + 0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00, + 0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00, + 0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00, + 0.000e+00,0.000e+00,2.200e-17,2.200e-17,1.700e-17,1.700e-17,1.800e-17, + 1.200e-17,1.500e-17,1.000e-17,2.100e-17,3.300e-17,4.000e-17,1.300e-17, + 5.000e-18,2.900e-18,2.601e-18,1.037e-18,9.046e-19,6.565e-19,4.672e-19, + 3.047e-19,1.579e-19,5.943e-20,2.261e-20 }; + static double sC3H6[62] = { + 0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00, + 0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00, + 0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,3.400e-17, + 3.300e-17,2.400e-17,2.500e-17,4.000e-17,3.700e-17,2.300e-17,1.900e-17, + 2.000e-17,1.500e-17,2.200e-17,2.500e-17,4.400e-17,4.200e-17,2.700e-17, + 1.200e-17,5.800e-18,1.400e-19,9.100e-21 }; + static double sC3H8[62] = { + 0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00, + 0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00, + 0.000e+00,0.000e+00,0.000e+00,0.000e+00,4.000e-17,4.000e-17,4.000e-17, + 4.000e-17,4.000e-17,3.280e-17,3.100e-17,2.680e-17,2.200e-17,1.760e-17, + 6.440e-18,3.000e-18,9.140e-19,7.000e-20 }; + static double sC4H2[62] = { + 0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00, + 0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00, + 0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00, + 0.000e+00,0.000e+00,2.500e-17,6.100e-17,4.780e-17,5.780e-17,1.014e-16, + 5.200e-17,4.200e-17,1.030e-16,1.770e-16,9.100e-17,1.290e-17,2.380e-18, + 3.400e-19,2.800e-19,2.600e-19,1.513e-19,2.583e-19,3.353e-19,4.115e-19, + 4.755e-19,4.990e-19,4.399e-19,5.358e-19,2.485e-19,3.931e-19,1.067e-19, + 3.761e-20,2.370e-20,2.277e-20 }; + static double sC4H4[62] = { + 0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00, + 0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00, + 0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00, + 0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00, + 0.000e+00,0.000e+00,0.000e+00,4.200e-17,5.000e-17,2.000e-17,6.700e-18, + 6.100e-18,8.000e-18,1.000e-17,1.400e-17,1.900e-17,2.200e-17,2.600e-17, + 1.600e-17,1.600e-17,4.000e-18,5.700e-19,1.400e-19 }; + static double sC4H6[62] = { + 0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00, + 0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00, + 0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00, + 0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00, + 0.000e+00,0.000e+00,0.000e+00,6.000e-18,1.200e-17,1.500e-17,1.300e-17, + 1.800e-17,3.100e-17,3.800e-17,6.600e-17,9.600e-17,1.060e-16,8.500e-17, + 6.700e-17,1.100e-17,1.700e-18,3.300e-19,6.500e-20 }; + static double sC4H10[62] = { + 0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00, + 0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00, + 0.000e+00,0.000e+00,0.000e+00,0.000e+00,6.000e-17,6.000e-17,6.000e-17, + 6.000e-17,6.000e-17,5.500e-17,4.400e-17,4.400e-17,3.800e-17,3.100e-17, + 1.900e-17,4.000e-18,1.300e-18,3.200e-19,2.000e-20 }; + static double sC6H6[62] = { + 0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00, + 0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00, + 0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,7.000e-17, + 8.000e-17,5.000e-17,3.500e-17,3.500e-17,3.500e-17,2.000e-17,1.500e-17, + 1.500e-17,1.500e-17,2.000e-17,2.500e-17,4.000e-17,9.500e-17,2.200e-16, + 1.000e-16,2.000e-17,2.000e-17,2.000e-17,2.000e-17,5.000e-18,1.000e-20, + 1.000e-20,1.000e-20,1.000e-20,1.000e-20,1.000e-19,2.000e-19,2.500e-19, + 4.000e-19,2.000e-19,2.000e-19,1.000e-19 }; + static double sN2[62] = { + 0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00, + 0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,4.898e-18,1.097e-17, + 2.192e-17,2.214e-17,2.336e-17,1.679e-17,1.893e-17 }; + static double sHCN[62] = { + 0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00, + 0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00, + 0.000e+00,0.000e+00,0.000e+00,2.800e-17,3.300e-17,2.800e-17,3.500e-17, + 4.800e-17,2.800e-17,1.700e-17,3.600e-18,2.500e-18,4.700e-18,2.700e-18, + 8.600e-19,4.400e-19,2.000e-19,1.429e-19,1.145e-19,7.482e-20,3.852e-20, + 1.009e-20 }; + static double sHC3N[62] = { + 0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00, + 0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00, + 0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,3.402e-17, + 3.647e-17,4.317e-17,3.759e-17,7.927e-17,3.796e-17,9.565e-17,1.716e-16, + 1.247e-16,2.360e-17,8.411e-18,4.400e-18,8.600e-19,7.400e-19,6.200e-19, + 4.899e-19,3.307e-19,2.128e-19,2.561e-19,2.621e-19,2.737e-19,3.601e-19, + 1.564e-19,1.816e-19,8.427e-20 }; + static double sC2N2[62] = { + 0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00, + 0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00, + 0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,2.635e-17, + 3.126e-17,4.392e-17,9.788e-17,1.682e-16,1.064e-16,6.513e-18,2.039e-18, + 2.828e-18,5.136e-18,8.188e-18,8.857e-18,1.489e-18,9.000e-20,6.200e-20, + 3.800e-20,4.483e-20,8.618e-20,1.008e-19,7.579e-20,6.666e-20,2.907e-20, + 2.476e-20,1.142e-20 }; + static double sH2O[62] = { + 0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00, + 0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00, + 0.000e+00,0.000e+00,0.000e+00,0.000e+00,1.927e-17,9.633e-18,7.440e-18, + 1.087e-18,8.600e-18,8.850e-18,7.300e-18,4.100e-18,1.240e-18,5.600e-19, + 7.977e-19,1.888e-18,3.333e-18,4.729e-18,4.963e-18,3.513e-18,1.440e-18, + 1.563e-19 }; + static double sCO[62] = { + 0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00, + 0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00, + 0.000e+00,0.000e+00,7.300e-17,2.050e-16,9.000e-17,7.180e-18,3.700e-17}; + static double sCO2[62] = { + 0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00, + 0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00, + 0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00, + 0.000e+00,1.022e-19,1.070e-19,4.220e-19,8.220e-19,6.640e-19,5.650e-19, + 5.850e-19,4.400e-19,2.100e-19,8.700e-20,4.000e-20,2.130e-20,3.700e-21, + 6.930e-22,4.040e-22,2.470e-23,4.800e-24,9.500e-25 }; + static double sol[62] = { + 9.45e+08,2.84e+08,4.24e+09,3.11e+09,1.22e+10,6.83e+09,2.54e+09,8.20e+08, + 1.82e+09,1.30e+09,1.05e+09,1.37e+09,3.87e+08,4.29e+08,2.45e+09,4.09e+09, + 1.06e+10,1.03e+10,4.08e+09,2.98e+10,7.00e+09,1.94e+09,7.40e+09,4.12e+11, + 1.36e+10,4.92e+10,3.04e+10,3.81e+10,5.49e+10,1.00e+11,1.26e+11,1.67e+11, + 2.97e+11,4.92e+11,7.17e+11,9.43e+11,1.34e+12,1.96e+12,2.96e+12,4.34e+12, + 7.25e+12,1.76e+13,2.21e+13,3.10e+13,2.80e+13,2.97e+13,3.03e+13,3.77e+13, + 3.44e+13,3.42e+13,7.08e+13,9.58e+13,1.63e+14,1.38e+14,1.26e+14,1.60e+14, + 2.23e+14,3.70e+14,3.31e+14,3.26e+14,3.59e+14,4.05e+14}; + + int i,j,l,s,lat,x; + double f,**flux; + double flact; + char name[60],dir[24]; + FILE *fp,*out; + + flux = dm2d(0,NLRT,0,14); + +/* lecture des flux actiniques: + - suppose que l'executable est dans $LMDGCM/RUN/xxx/ + - et les moyennes dans $LMDGCM/INPUT/PHOT(NLAT)/Moy_(lat:1 a NLAT) +*/ + strcpy( dir, "../../INPUT/PHOT" ); + if( (*NLAT) < 10 ) + { + strcat( dir, "0" ); + strcat( dir, (const char *)ecvt((float)(*NLAT),1,&x,&x) ); + } + else + strcat( dir, (const char *)ecvt((float)(*NLAT),2,&x,&x) ); + strcat( dir, "x/Moy_" ); + printf( "Directories for actinic fluxes: %s \n", dir ); + + for( lat = 0; lat <= (*NLAT)-1; lat++ ) /* Old array is set equal to 0. */ + for( j = 0; j <= NLRT-1; j++ ) + for( i = 0; i <= RDISS; i++ ) + for( s = 0; s <= 14; s++ ) + KRPD[lat][j][i][s] = 0.0e0; + + for( i = 0; i <= 13; i++ ) sCH4[i] = 0.0e0; + for( i = 0; i <= 13; i++ ) sC2H2[i] = 0.0e0; + for( i = 0; i <= 16; i++ ) sC2H4[i] = 0.0e0; + for( i = 0; i <= 16; i++ ) sC2H6[i] = 0.0e0; + + for( lat = 0; lat <= (*NLAT)-1; lat++ ) /* Main loop on latitude */ + for( i = 10; i <= 310; i += 5 ) /* Main loop on wavelength. */ + { + strcpy( name, dir ); + if( (lat+1) < 10 ) + { + strcat( name, "0" ); + strcat( name, (const char *)ecvt((float)(lat+1),1,&x,&x) ); + } + else + strcat( name, (const char *)ecvt((float)(lat+1),2,&x,&x) ); + if( i < 160 ) strcat( name, "/photmoy3a" ); + else strcat( name, "/photmoy3a" ); + if( i < 100 ) + { + strcat( name, ".0" ); + strcat( name, (const char *)ecvt((float)i,2,&x,&x) ); + } + else + { + strcat( name, "." ); + strcat( name, (const char *)ecvt((float)i,3,&x,&x) ); + } + if( !( fp = fopen( name, "r" ) ) ) + { + out = fopen( "err.log", "a" ); + fprintf( out, "I cannot open %s\n", name ); + fclose( out ); + exit(0); + } + for( j = 0; j <= NLRT-1; j++ ) + { + fscanf( fp,"%d ",&l ); + for( s = 0; s < 15; s++ ) + { + fscanf( fp,"%lg ", &flact ); + flux[j][s] = flact; + } + } + fclose(fp); + + l = i / 5 - 2; /* Pointer on wavelength. */ + +/* taux de photodissociations */ + + for( s = 0; s <= 14; s++ ) + for( j = 0; j <= NLRT-1; j++ ) + { + f = flux[j][s] * sol[l] / ( 9.5e0 * 9.5e0 ); /* !! # de reac de 0 a RDISS-1 !! */ + if( i == 220 ) KRPD[lat][j][1][s] += 4.4e-17 * f; /* CH3 -> 1CH2 + H */ + KRPD[lat][j][ 0][s] += sH2[l] * f * 1.00; /* H2 -> H + H */ + KRPD[lat][j][ 7][s] += sC2H4[l] * f * 0.51; /* C2H4 -> C2H2 + H2 */ + KRPD[lat][j][ 8][s] += sC2H4[l] * f * 0.49; /* C2H4 -> C2H2 + 2H */ + KRPD[lat][j][15][s] += sCH2CCH2[l]* f * 0.89; /* CH2CCH2 -> C3H3 + H Jackson 91 */ + KRPD[lat][j][16][s] += sCH2CCH2[l]* f * 0.11; /* CH2CCH2 -> C3H2 + H2 Jackson 91 */ + KRPD[lat][j][17][s] += sCH3C2H[l] * f * 0.89; /* CH3C2H -> C3H3 + H Jackson 91 */ + KRPD[lat][j][18][s] += sCH3C2H[l] * f * 0.11; /* CH3C2H -> C3H2 + H2 Jackson 91 */ + KRPD[lat][j][19][s] += sC3H6[l] * f * 0.33; /* C3H6 -> CH2CCH2 + H2 */ + KRPD[lat][j][20][s] += sC3H6[l] * f * 0.17; /* C3H6 -> CH3CCH + H2 */ + KRPD[lat][j][21][s] += sC3H6[l] * f * 0.03; /* C3H6 -> C2H4 + 3CH2 */ + KRPD[lat][j][22][s] += sC3H6[l] * f * 0.35; /* C3H6 -> C2H3 + CH3 */ + KRPD[lat][j][23][s] += sC3H6[l] * f * 0.05; /* C3H6 -> C2H2 + CH4 */ + KRPD[lat][j][32][s] += sC4H4[l] * f * 0.80; /* C4H4 -> C4H2 + H2 Gladstone 96 */ + KRPD[lat][j][33][s] += sC4H4[l] * f * 0.20; /* C4H4 -> C2H2 + C2H2 Gladstone 96 */ + KRPD[lat][j][34][s] += sC4H6[l] * f * 0.04; /* C4H6 -> C4H4 + H2 */ + KRPD[lat][j][35][s] += sC4H6[l] * f * 0.27; /* C4H6 -> C2H4 + C2H2 */ + KRPD[lat][j][36][s] += sC4H6[l] * f * 0.69; /* C4H6 -> CH3 + C3H3 */ + KRPD[lat][j][45][s] += sC6H6[l] * f * 0.04; /* AC6H6 -> C5H3 (prod...) + CH3 */ + KRPD[lat][j][46][s] += sC6H6[l] * f * 0.96; /* AC6H6 -> AC6H5 + H */ + KRPD[lat][j][47][s] += sN2[l] * f; /* N2 -> 2N2d */ + KRPD[lat][j][48][s] += sHCN[l] * f; /* HCN -> H + CN */ + KRPD[lat][j][51][s] += sC2N2[l] * f * 0.3; /* C2N2 -> 2CN */ + KRPD[lat][j][52][s] += sCH3CN[l] * f * 1.0; /* CH3CN -> CH3 + CN */ + KRPD[lat][j][53][s] += sC2N2[l] * f * 0.3; /* C4N2 -> C3N + CN */ + + if( i != 125 ) /* Not Lyman alpha */ + { + KRPD[lat][j][ 2][s] += sCH4[l] * f; /* CH4 -> 1CH2 + H2 */ + KRPD[lat][j][ 9][s] += sC2H6[l] * f * 0.56; /* C2H6 -> C2H4 + H2 */ + KRPD[lat][j][10][s] += sC2H6[l] * f * 0.14; /* C2H6 -> C2H4 + 2H */ + KRPD[lat][j][11][s] += sC2H6[l] * f * 0.27; /* C2H6 -> C2H2 + 2H2 */ + KRPD[lat][j][12][s] += sC2H6[l] * f * 0.02; /* C2H6 -> CH4 + 3CH2 */ + KRPD[lat][j][13][s] += sC2H6[l] * f * 0.01; /* C2H6 -> 2CH3 */ + KRPD[lat][j][24][s] += sC3H8[l] * f * 0.94; /* C3H8 -> C3H6 + H2 */ + KRPD[lat][j][27][s] += sC3H8[l] * f * 0.06; /* C3H8 -> C2H4 + CH4 */ + } + else /* Lyman alpha */ + { + KRPD[lat][j][ 2][s] += sCH4[l] * f * 0.64; /* CH4 -> 1CH2 + H2 */ + KRPD[lat][j][ 3][s] += sCH4[l] * f * 0.07; /* CH4 -> CH + H2 + H */ + KRPD[lat][j][ 4][s] += sCH4[l] * f * 0.29; /* CH4 -> CH3 + H */ + KRPD[lat][j][ 9][s] += sC2H6[l] * f * 0.13; /* C2H6 -> C2H4 + H2 */ + KRPD[lat][j][10][s] += sC2H6[l] * f * 0.3; /* C2H6 -> C2H4 + 2H */ + KRPD[lat][j][11][s] += sC2H6[l] * f * 0.25; /* C2H6 -> C2H2 + 2H2 */ + KRPD[lat][j][12][s] += sC2H6[l] * f * 0.25; /* C2H6 -> CH4 + 3CH2 */ + KRPD[lat][j][13][s] += sC2H6[l] * f * 0.08; /* C2H6 -> 2CH3 */ + KRPD[lat][j][24][s] += sC3H8[l] * f * 0.33; /* C3H8 -> C3H6 + H2 */ + KRPD[lat][j][25][s] += sC3H8[l] * f * 0.09; /* C3H8 -> C2H6 + 3CH2 */ + KRPD[lat][j][26][s] += sC3H8[l] * f * 0.39; /* C3H8 -> C2H5 + CH3 */ + KRPD[lat][j][27][s] += sC3H8[l] * f * 0.2; /* C3H8 -> C2H4 + CH4 */ + } + if( i < 145 ) /* C4H10: a revoir avec Jackson & Lias, 1974... */ + { + KRPD[lat][j][37][s] += sC4H10[l]* f * 0.18; /* C4H10 -> C4H8(ieC3H5+CH3)+H2 */ + KRPD[lat][j][38][s] += sC4H10[l]* f * 0.20; /* C4H10 -> 2 C2H4 + H2 */ + KRPD[lat][j][39][s] += sC4H10[l]* f * 0.03; /* C4H10 -> C3H6 + CH4 */ + KRPD[lat][j][40][s] += sC4H10[l]* f * 0.07; /* C4H10 -> C3H6 + CH3 + H */ + KRPD[lat][j][41][s] += sC4H10[l]* f * 0.00; /* C4H10 -> C2H6 + C2H4 */ + KRPD[lat][j][42][s] += sC4H10[l]* f * 0.15; /* C4H10 -> C2H6 + C2H2 + H2 */ + KRPD[lat][j][43][s] += sC4H10[l]* f * 0.27; /* C4H10 -> CH3 + C3H7 */ + KRPD[lat][j][44][s] += sC4H10[l]* f * 0.10; /* C4H10 -> 2 C2H5 */ + } + else + { + KRPD[lat][j][37][s] += sC4H10[l]* f * 0.41; /* C4H10 -> C4H8(ieC3H5+CH3)+H2 */ + KRPD[lat][j][38][s] += sC4H10[l]* f * 0.12; /* C4H10 -> 2 C2H4 + H2 */ + KRPD[lat][j][39][s] += sC4H10[l]* f * 0.01; /* C4H10 -> C3H6 + CH4 */ + KRPD[lat][j][40][s] += sC4H10[l]* f * 0.07; /* C4H10 -> C3H6 + CH3 + H */ + KRPD[lat][j][41][s] += sC4H10[l]* f * 0.02; /* C4H10 -> C2H6 + C2H4 */ + KRPD[lat][j][42][s] += sC4H10[l]* f * 0.06; /* C4H10 -> C2H6 + C2H2 + H2 */ + KRPD[lat][j][43][s] += sC4H10[l]* f * 0.24; /* C4H10 -> CH3 + C3H7 */ + KRPD[lat][j][44][s] += sC4H10[l]* f * 0.07; /* C4H10 -> 2 C2H5 */ + } + if( i < 150 ) + { + KRPD[lat][j][ 5][s] += sC2H2[l] * f * 0.3; /* C2H2 -> C2H + H */ + KRPD[lat][j][ 6][s] += sC2H2[l] * f * 0.1; /* C2H2 -> C2 + H2 */ + KRPD[lat][j][49][s] += sHC3N[l] * f * 0.3; /* HC3N -> C2H + CN */ + KRPD[lat][j][50][s] += sHC3N[l] * f * 0.09; /* HC3N -> H + C3N */ + } + else if( i < 205 ) + { + KRPD[lat][j][ 5][s] += sC2H2[l] * f * 0.08; /* C2H2 -> C2H + H */ + KRPD[lat][j][ 6][s] += sC2H2[l] * f * 0.1; /* C2H2 -> C2 + H2 */ + KRPD[lat][j][49][s] += sHC3N[l] * f * 0.05; /* HC3N -> C2H + CN */ + KRPD[lat][j][50][s] += sHC3N[l] * f * 0.09; /* HC3N -> H + C3N */ + } + else if( i < 245 ) + { + KRPD[lat][j][50][s] += sHC3N[l] * f * 0.09; /* HC3N -> H + C3N */ + } + if( i < 165 ) + { + KRPD[lat][j][28][s] += sC4H2[l] * f * 0.2; /* C4H2 -> C4H + H */ + KRPD[lat][j][29][s] += sC4H2[l] * f * 0.03; /* C4H2 -> 2C2H */ + KRPD[lat][j][30][s] += sC4H2[l] * f * 0.1; /* C4H2 -> C2H2 + C2 */ + KRPD[lat][j][31][s] += sC4H2[l] * f * 0.67; /* C4H2 -> C4H2* */ + } + else if( i < 205 ) + { + KRPD[lat][j][29][s] += sC4H2[l] * f * 0.01; /* C4H2 -> 2C2H */ + KRPD[lat][j][30][s] += sC4H2[l] * f * 0.06; /* C4H2 -> C2H2 + C2 */ + KRPD[lat][j][31][s] += sC4H2[l] * f * 0.93; /* C4H2 -> C4H2* */ + } + else + { + KRPD[lat][j][31][s] += sC4H2[l] * f * 1.00; /* C4H2 -> C4H2* */ + } + if( i < 190 ) KRPD[lat][j][14][s] += 4.e-17 * f; /* C3H3 -> C3H2 + H */ + } + } + +/* taux de dissociation de N2 ( e- et GCR ) */ + + for( lat = 0; lat <= (*NLAT)-1; lat++ ) + for( s = 0; s <= 14; s++ ) + { + for( j = 99; j <= NLRT-1; j++ ) /* level 100 = 200 km */ + KRPD[lat][j][RDISS][s] = 1.0e-16; + for( j = 49; j <= 98; j++ ) /* level 50 = 100 km */ + KRPD[lat][j][RDISS][s] = 1.0e-17+1.8e-18*(j-49); + for( j = 34; j <= 48; j++ ) /* level 35 = 70 km */ + KRPD[lat][j][RDISS][s] = pow(10.,(-23+0.4*(j-34))); + for( j = 0; j <= 33; j++ ) + KRPD[lat][j][RDISS][s] = 0.0e0; + } + + fdm2d( flux, 0, NLEV, 0 ); +} Index: /trunk/LMDZ.TITAN/libf/chimtitan/dmxd.c =================================================================== --- /trunk/LMDZ.TITAN/libf/chimtitan/dmxd.c (revision 1644) +++ /trunk/LMDZ.TITAN/libf/chimtitan/dmxd.c (revision 1644) @@ -0,0 +1,345 @@ +#include +#include +#include +#include + + /* dm1d: memory allocation for a vector of double */ + /* ---------------------------------------------- */ + +double *dm1d( int nl, int nh ) +{ + double *m; + FILE *out; + + m = (double *)calloc( (unsigned)(nh-nl+1), sizeof(double) ); + if(!m) + { + out = fopen( "err.log", "a" ); + fprintf( out, "Memory allocation error in dm1d" ); + fclose( out ); + exit(0); + } + return m-nl; +} + + /* dm2d: memory allocation for a matrix of double */ + /* ---------------------------------------------- */ + +double **dm2d( int nrl, int nrh, int ncl, int nch ) +{ + int i; + double **m; + FILE *out; + + m = (double **)calloc( (unsigned)(nrh-nrl+1), sizeof(double *) ); + if(!m) + { + out = fopen( "err.log", "a" ); + fprintf( out, "Memory allocation error in dm2d" ); + fclose( out ); + exit(0); + } + m -= nrl; + for( i = nrl; i <= nrh; i++ ) + { + m[i] = (double *)calloc( (unsigned)(nch-ncl+1), sizeof(double) ); + if(!m[i]) + { + out = fopen( "err.log", "a" ); + fprintf( out, "Memory allocation error in dm2d" ); + fclose( out ); + exit(0); + } + m[i] -= ncl; + } + return m; +} + + /* dm3d: memory allocation for a 3D vector of double */ + /* ------------------------------------------------- */ + +double ***dm3d( int nrl, int nrh, int ncl, int nch, int nal, int nah ) +{ + int i; + double ***m; + FILE *out; + + m = (double ***)calloc( (unsigned)(nrh-nrl+1), sizeof(double **) ); + if(!m) + { + out = fopen( "err.log", "a" ); + fprintf( out, "Memory allocation error in dm3d" ); + fclose( out ); + exit(0); + } + m -= nrl; + for( i = nrl; i <= nrh; i++ ) + m[i] = dm2d( ncl, nch, nal, nah ); + return m; +} + + /* dm4d: memory allocation for a 4D vector of double */ + /* ------------------------------------------------- */ + +double ****dm4d( int nrl, int nrh, int ncl, int nch, int nal, int nah, int nll, int nlh ) +{ + int i; + double ****m; + FILE *out; + + m = (double ****)calloc( (unsigned)(nrh-nrl+1), sizeof(double ***) ); + if(!m) + { + out = fopen( "err.log", "a" ); + fprintf( out, "Memory allocation error in dm4d" ); + fclose( out ); + exit(0); + } + m -= nrl; + for( i = nrl; i <= nrh; i++ ) + m[i] = dm3d( ncl, nch, nal, nah, nll, nlh ); + return m; +} + + /* fdm1d: release a vector of double */ + /* --------------------------------- */ + +void fdm1d(v,nl) +double *v; +int nl; +{ + free((char *)(v+nl)); +} + + /* fdm2d: release a matrix of double */ + /* --------------------------------- */ + +void fdm2d(m,nrl,nrh,ncl) +double **m; +int ncl,nrh,nrl; +{ + int i; + + for( i = nrh; i >= nrl; i-- ) free((char *)(m[i]+ncl)); + free((char *)(m+nrl)); +} + + /* fdm3d: release a 3D vector of double */ + /* ------------------------------------ */ + +void fdm3d(m,nrl,nrh,ncl,nch,nal) +double ***m; +int nch,ncl,nrh,nrl,nal; +{ + int i; + + for( i = nrh; i >= nrl; i-- ) fdm2d(m[i],ncl,nch,nal); + free((char *)(m+nrl)); +} + + /* frm1d: release a vector of float */ + /* -------------------------------- */ + +void frm1d(v,nl) +float *v; +int nl; +{ + free((char *)(v+nl)); +} + + /* frm2d: release a matrix of float */ + /* -------------------------------- */ + +void frm2d(m,nrl,nrh,ncl) +float **m; +int ncl,nrh,nrl; +{ + int i; + + for( i = nrh; i >= nrl; i-- ) free((char *)(m[i]+ncl)); + free((char *)(m+nrl)); +} + + /* frm3d: release a 3D vector of float */ + /* ----------------------------------- */ + +void frm3d(m,nrl,nrh,ncl,nch,nal) +float ***m; +int nch,ncl,nrh,nrl,nal; +{ + int i; + + for( i = nrh; i >= nrl; i-- ) frm2d(m[i],ncl,nch,nal); + free((char *)(m+nrl)); +} + + /* rm1d: memory allocation for a vector of float */ + /* --------------------------------------------- */ + +float *rm1d( int nl, int nh ) +{ + float *m; + FILE *out; + + m = (float *)calloc( (unsigned)(nh-nl+1), sizeof(float) ); + if(!m) + { + out = fopen( "err.log", "a" ); + fprintf( out, "Memory allocation error in rm1d" ); + fclose( out ); + exit(0); + } + return m-nl; +} + + /* rm2d: memory allocation for a matrix of float */ + /* --------------------------------------------- */ + +float **rm2d( int nrl, int nrh, int ncl, int nch ) +{ + int i; + float **m; + FILE *out; + + m = (float **)calloc( (unsigned)(nrh-nrl+1), sizeof(float *) ); + if(!m) + { + out = fopen( "err.log", "a" ); + fprintf( out, "Memory allocation error in rm2d" ); + fclose( out ); + exit(0); + } + m -= nrl; + for( i = nrl; i <= nrh; i++ ) + { + m[i] = (float *)calloc( (unsigned)(nch-ncl+1), sizeof(float) ); + if(!m[i]) + { + out = fopen( "err.log", "a" ); + fprintf( out, "Memory allocation error in rm2d" ); + fclose( out ); + exit(0); + } + m[i] -= ncl; + } + return m; +} + + /* rm3d: memory allocation for a 3D vector of float */ + /* ------------------------------------------------ */ + +float ***rm3d( int nrl, int nrh, int ncl, int nch, int nal, int nah ) +{ + int i; + float ***m; + FILE *out; + + m = (float ***)calloc( (unsigned)(nrh-nrl+1), sizeof(float **) ); + if(!m) + { + out = fopen( "err.log", "a" ); + fprintf( out, "Memory allocation error in rm3d" ); + fclose( out ); + exit(0); + } + m -= nrl; + for( i = nrl; i <= nrh; i++ ) + m[i] = rm2d( ncl, nch, nal, nah ); + return m; +} + + /* rm4d: memory allocation for a 4D vector of float */ + /* ------------------------------------------------ */ + +float ****rm4d( int nrl, int nrh, int ncl, int nch, int nal, int nah, int nll, int nlh ) +{ + int i; + float ****m; + FILE *out; + + m = (float ****)calloc( (unsigned)(nrh-nrl+1), sizeof(float ***) ); + if(!m) + { + out = fopen( "err.log", "a" ); + fprintf( out, "Memory allocation error in rm4d" ); + fclose( out ); + exit(0); + } + m -= nrl; + for( i = nrl; i <= nrh; i++ ) + m[i] = rm3d( ncl, nch, nal, nah, nll, nlh ); + return m; +} + + /* im1d: memory allocation for a vector of integer */ + /* ----------------------------------------------- */ + +int *im1d( int nl, int nh ) +{ + int *m; + FILE *out; + + m = (int *)calloc( (unsigned)(nh-nl+1), sizeof(int ) ); + if(!m) + { + out = fopen( "err.log", "a" ); + fprintf( out, "Memory allocation error in im1d" ); + fclose( out ); + exit(0); + } + return m-nl; +} + + /* im2d: memory allocation for a matrix of integer */ + /* ----------------------------------------------- */ + +int **im2d( int nrl, int nrh, int ncl, int nch ) +{ + int i,**m; + FILE *out; + + m = (int **)calloc( (unsigned)(nrh-nrl+1), sizeof(int *) ); + if( !m ) + { + out = fopen( "err.log", "a" ); + fprintf( out, "Memory allocation error in im2d" ); + fclose( out ); + exit(0); + } + m -= nrl; + for( i = nrl; i <= nrh; i++ ) + { + m[i] = (int *)calloc( (unsigned)(nch-ncl+1), sizeof(int) ); + if(!m[i]) + { + out = fopen( "err.log", "a" ); + fprintf( out, "Memory allocation error in im2d" ); + fclose( out ); + exit(0); + } + m[i] -= ncl; + } + return m; +} + + /* im3d: memory allocation for a 3D vector of integer */ + /* -------------------------------------------------- */ + +int ***im3d( int nrl, int nrh, int ncl, int nch, int nal, int nah ) +{ + int i,***m; + FILE *out; + + m = (int ***)calloc( (unsigned)(nrh-nrl+1), sizeof(int **) ); + if(!m) + { + out = fopen( "err.log", "a" ); + fprintf( out, "Memory allocation error in im3d" ); + fclose( out ); + exit(0); + } + m -= nrl; + for( i = nrl; i <= nrh; i++ ) + m[i] = im2d( ncl, nch, nal, nah ); + return m; +} Index: /trunk/LMDZ.TITAN/libf/chimtitan/gptitan.c =================================================================== --- /trunk/LMDZ.TITAN/libf/chimtitan/gptitan.c (revision 1644) +++ /trunk/LMDZ.TITAN/libf/chimtitan/gptitan.c (revision 1644) @@ -0,0 +1,919 @@ +/* gptitan: photochimie */ +/* GCCM */ + +/* tout est passe en simple precision */ +/* sauf pour l'inversion de la matrice */ + +/* nitriles et hydrocarbures separes pour l'inversion */ + +/* flux variable au sommet */ + +#include "titan.h" + +void gptitan_( + double *RA, double *TEMP, double *NB, + char CORPS[][10], double Y[][NLEV], + double *FIN, int *LAT, double *MASS, double MD[][NLEV], + double *KEDD, double *botCH4, double KRATE[][NLEV], + int reactif[][5], int *nom_prod, int *nom_perte, + int prod[][200], int perte[][200][2], int *aerprod, int *utilaer, + double MAER[][NLEV], double PRODAER[][NLEV], + double CSN[][NLEV], double CSH[][NLEV], + int *htoh2, double *surfhaze) +{ + char outlog[100],corps[100][10]; + int i,j,k,l; + int ireac,ncom1,ncom2; + double ***a,***b,**c; + double *fl,*fp,*mu,**jac,**ym1,**f; + double fluxCH4; + double conv,delta,deltamax; + double cm,cp,dim,dip,dm,dp,dym,dyp,km,kp,r,dra,dram,drap; + double np,nm,s,test,time,ts,v,dv; + char str2[15]; + FILE *out; + +/* va avec htoh2 */ + double dyh,dyh2; + +/* va avec aer */ + double dyc2h2,dyhc3n,dyhcn,dynccn,dych3cn,dyc2h3cn; + double **k_dep,**faer; + double *productaer,*csurn,*csurh,*mmolaer; + + if( (*aerprod) == 1 ) + { + k_dep = dm2d( 1, 5, 1, 3 ); /* k en s-1, reactions d'initiation */ + faer = dm2d( 1, 5, 1, 3 ); /* fraction de chaque compose */ + productaer = dm1d( 0, 3 ); /* local production rate by pathways */ + mmolaer = dm1d( 0, 3 ); /* local molar mass by pathways */ + csurn = dm1d( 0, 3 ); /* local C/N by pathways */ + csurh = dm1d( 0, 3 ); /* local C/H by pathways */ + } + +/* DEBUG */ + printf("CHIMIE: lat=%d\n",(*LAT)+1); +/**/ + + for( i = 0; i <= NC; i++) + { + strcpy( corps[i], CORPS[i] ); + corps[i][strcspn(CORPS[i], " ")] = '\0'; + } + + strcpy( outlog, "chimietitan" ); + strcat( outlog, ".log" ); + out = fopen( outlog, "w" ); + fprintf(out,"CHIMIE: lat=%d\n",(*LAT)+1); + fclose( out ); + + deltamax = 1.e5; + test = 1.0e-15; + +/* valeur de r: +r = g0 R0^2 / R * 2 * 1E-3 +avec g0 en cm/s2, R0 en km, mu et mass en g +*/ + r = 21.595656e0; + +/* DEBUG + out = fopen( outlog, "a" ); + fprintf(out,"CHIMIE: lat=%d\n",(*LAT)+1); + fclose( out ); +*/ + fl = dm1d( 0, NC-1 ); + fp = dm1d( 0, NC-1 ); + mu = dm1d( 0, NLEV-1 ); + ym1 = dm2d( 0, NC-1, 0, NLEV-1 ); + f = dm2d( 0, NC-1, 0, NLEV-1 ); + jac = dm2d( 0, NC-1, 0, NC-1 ); + c = dm2d( 0, NLEV-1, 0, NC-1 ); + a = dm3d( 0, NLEV-1, 0, NC-1, 0, NC-1 ); + b = dm3d( 0, NLEV-1, 0, NC-1, 1, 2 ); + +/* DEBUG */ +/* + out = fopen( "err.log", "a" ); + fprintf( out,"%s\n", ); + fclose( out ); +*/ + +/* initialisation mu, CH4 au sol */ + + for( j = 0; j <= NLEV-1; j++ ) + { + mu[j] = 0.0e0; + for( i = 0; i <= ST-1; i++ ) + { + if( ( strcmp(corps[i], "CH4") == 0 ) && ( Y[i][j] <= *botCH4 ) && ( j == 0 ) ) + { + fluxCH4 = (*botCH4 - Y[i][j]); + Y[i][j] = *botCH4; + } + mu[j] += ( MASS[i] * Y[i][j] ); + } + } + +/* initialisation compo avant calcul */ + for( j = NLEV-1; j >= 0; j-- ) + for( i = 0; i <= ST-1; i++ ) ym1[i][j] = max(Y[i][j],1.e-30); + +/* +========================================================================== + STRATEGIE: + INVERSION COMPLETE AVEC DIFFUSION ENTRE NLEV-1 et NLD + PUIS INVERSION LOCALE PAR BLOC ENTRE NLD ET LA SURFACE +========================================================================== + +PREMIERE ETAPE: +=============== + INVERSION COMPLETE AVEC DIFFUSION ENTRE NLEV-1 et NLD +=============== +*/ + +/* ****************** */ +/* Time loop: */ +/* ****************** */ + +time = ts = 0.0e0; +delta = 1.e-3; + +while( time < (*FIN) ) +{ + + +/* DEBUG + for( j = NLEV-1; j >= NLD; j-- ) + { + out = fopen( outlog, "a" ); + fprintf(out,"j=%d z=%e nb=%e T=%e\n",j,(RA[j]-R0),NB[j],TEMP[j]); + fclose( out ); + + out = fopen( "profils.log", "a" ); + fprintf(out,"%d %e %e %e\n",j,(RA[j]-R0),NB[j],TEMP[j]); + for (i=0;i<=NREAC-1;i++) fprintf(out,"%d %e\n",i,KRATE[i][j]); + for (i=0;i<=ST-1;i++) fprintf(out,"%10s %e\n",corps[i],Y[i][j]); + fclose( out ); + } + exit(0); +*/ + + +/* ------------------------------ */ +/* Calculs variations et jacobien */ +/* ------------------------------ */ + + for( j = NLEV-1; j >= NLD; j-- ) + { + +/* init of step */ +/* ------------ */ + for( i = 0; i <= ST-1; i++ ) + { + fp[i] = fl[i] = 0.0e0; + for( l = 0; l <= ST-1; l++ ) jac[i][l] = 0.0e0; + } + +/* Chimie */ +/* ------ */ + +/* productions et pertes chimiques */ + for( i = 0; i <= ST-1; i++ ) + { + Y[i][j] = max(Y[i][j],1.e-30); /* minimum */ + + for( l = 0; l <= nom_prod[i]-1; l++ ) /* Production term */ + { + ireac = prod[i][l]; /* Number of the reaction involves. */ + ncom1 = reactif[ireac][0]; /* First compound which reacts. */ + if( reactif[ireac][1] == NC ) /* Photodissociation or relaxation */ + { + jac[i][ncom1] += ( KRATE[ireac][j] * NB[j] ); + fp[i] += ( KRATE[ireac][j] * NB[j] * Y[ncom1][j] ); + } + else /* General case. */ + { + ncom2 = reactif[ireac][1]; /* Second compound which reacts. */ + jac[i][ncom1] += ( KRATE[ireac][j] * Y[ncom2][j] ); /* Jacobian compound #1. */ + jac[i][ncom2] += ( KRATE[ireac][j] * Y[ncom1][j] ); /* Jacobian compound #2. */ + fp[i] += ( KRATE[ireac][j] * Y[ncom1][j] * Y[ncom2][j] ); /* Production term. */ + } + } + + for( l = 0; l <= nom_perte[i]-1; l++ ) /* Loss term. */ + { + ireac = perte[i][l][0]; /* Reaction number. */ + ncom2 = perte[i][l][1]; /* Compound #2 reacts. */ + if( reactif[ireac][1] == NC ) /* Photodissociation or relaxation */ + { + jac[i][i] -= ( KRATE[ireac][j] * NB[j] ); + fl[i] += ( KRATE[ireac][j] * NB[j] ); + } + else /* General case. */ + { + jac[i][ncom2] -= ( KRATE[ireac][j] * Y[i][j] ); /* Jacobian compound #1. */ + jac[i][i] -= ( KRATE[ireac][j] * Y[ncom2][j] ); /* Jacobien compound #2. */ + fl[i] += ( KRATE[ireac][j] * Y[ncom2][j] ); /* Loss term. */ + } + } + } + + +/* Aerosols */ +/* -------- */ + if( (*aerprod) == 1 ) + { + aer(corps,TEMP,NB,Y,&j,k_dep,faer, + &dyc2h2,&dyhc3n,&dyhcn,&dynccn,&dych3cn,&dyc2h3cn,utilaer, + mmolaer,productaer,csurn,csurh); + + for( i = 0; i <= 3; i++ ) + { + PRODAER[i][j] = productaer[i]; + MAER[i][j] = mmolaer[i]; + CSN[i][j] = csurn[i]; + CSH[i][j] = csurh[i]; + } +/* DEBUG +printf("AERPROD : LAT = %d - J = %d\n",(*LAT),j); +if(fabs(dyc2h2*NB[j])>fabs(fp[utilaer[2]]/10.)) + printf("fp(%s) =%e; dyc2h2 =%e\n",corps[utilaer[2]], + fp[utilaer[2]],dyc2h2*NB[j]); +if(fabs(dyhcn*NB[j])>fabs(fp[utilaer[5]]/10.)) + printf("fp(%s) =%e; dyhcn =%e\n",corps[utilaer[5]], + fp[utilaer[5]],dyhcn*NB[j]); +if(fabs(dyhc3n*NB[j])>fabs(fp[utilaer[6]]/10.)) + printf("fp(%s) =%e; dyhc3n =%e\n",corps[utilaer[6]], + fp[utilaer[6]],dyhc3n*NB[j]); +if(fabs(dynccn*NB[j])>fabs(fp[utilaer[13]]/10.)) + printf("fp(%s) =%e; dynccn =%e\n",corps[utilaer[13]], + fp[utilaer[13]],dynccn*NB[j]); +if(fabs(dych3cn*NB[j])>fabs(fp[utilaer[14]]/10.)) + printf("fp(%s) =%e; dych3cn=%e\n",corps[utilaer[14]], + fp[utilaer[14]],dych3cn*NB[j]); +if(fabs(dyc2h3cn*NB[j])>fabs(fp[utilaer[15]]/10.)) + printf("fp(%s) =%e; dyc2h3cn=%e\n",corps[utilaer[15]], + fp[utilaer[15]],dyc2h3cn*NB[j]); +*/ + + fp[utilaer[2]] -= ( dyc2h2 * NB[j] ); + fp[utilaer[5]] -= ( dyhcn * NB[j] ); + fp[utilaer[6]] -= ( dyhc3n * NB[j] ); + fp[utilaer[13]]-= ( dynccn * NB[j] ); + fp[utilaer[14]]-= ( dych3cn * NB[j] ); + fp[utilaer[15]]-= ( dyc2h3cn * NB[j] ); + if( Y[utilaer[2]][j] != 0.0 ) + jac[utilaer[2]][utilaer[2]] -= ( dyc2h2 * NB[j] / Y[utilaer[2]][j] ); + if( Y[utilaer[5]][j] != 0.0 ) + jac[utilaer[5]][utilaer[5]] -= ( dyhcn * NB[j] / Y[utilaer[5]][j] ); + if( Y[utilaer[6]][j] != 0.0 ) + jac[utilaer[6]][utilaer[6]] -= ( dyhc3n * NB[j] / Y[utilaer[6]][j] ); + if( Y[utilaer[13]][j] != 0.0 ) + jac[utilaer[13]][utilaer[13]] -= ( dynccn * NB[j] / Y[utilaer[13]][j] ); + if( Y[utilaer[14]][j] != 0.0 ) + jac[utilaer[14]][utilaer[14]] -= ( dych3cn * NB[j] / Y[utilaer[14]][j] ); + if( Y[utilaer[15]][j] != 0.0 ) + jac[utilaer[15]][utilaer[15]] -= (dyc2h3cn * NB[j] / Y[utilaer[15]][j] ); + } + + +/* H -> H2 on haze particles */ +/* ------------------------- */ + if( (*htoh2) == 1 ) + { + heterohtoh2(corps,TEMP,NB,Y,surfhaze,&j,&dyh,&dyh2,utilaer); +/* dyh <= 0 / 1.0 en adsor., 1 en reac. */ + +/* DEBUG +printf("HTOH2 : LAT = %d - J = %d\n",(*LAT),j); +if(fabs(dyh*NB[j])>fabs(fp[utilaer[0]]/10.)) +printf("fp(%s) = %e; dyh = %e\n",corps[utilaer[0]],fp[utilaer[0]],dyh*NB[j]); +if(fabs(dyh2*NB[j])>fabs(fp[utilaer[1]]/10.)) +printf("fp(%s) = %e; dyh2 = %e\n",corps[utilaer[1]],fp[utilaer[1]],dyh2*NB[j]); +*/ + + fp[utilaer[0]] += ( dyh * NB[j] ); + /* pourquoi pas *2 ?? cf gptit dans 2da... */ + + fp[utilaer[1]] += ( dyh2 * NB[j] ); + if( Y[utilaer[0]][j] != 0.0 ) + jac[utilaer[0]][utilaer[0]] += ( dyh * NB[j] / Y[utilaer[0]][j] ); + /* pourquoi pas *2 ?? cf gptit dans 2da... */ + } + + +/* Backup jacobian level j. */ +/* ------------------------ */ + for( i = 0; i <= ST-1; i++ ) + for( k = 0; k <= ST-1; k++ ) + a[j][i][k] = jac[i][k]; + + +/* Diffusion verticale et flux exterieurs */ +/* -------------------------------------- */ + +/* +pour dy/dr, dr doit etre en cm... +pareil pour dphi/dr +*/ + for( i = 0; i <= ST-1; i++ ) + { + +/* First level. */ + if( j == NLD ) + { + v = dv = 0.0e0; + dra = RA[j+1]-RA[j]; + + cp = (NB[j+1]+NB[j])/2.; /* Mean total concentration. */ + dip = r * (MASS[i]-(mu[j+1]+mu[j])/2.) / (TEMP[j+1]+TEMP[j]) / + pow( RA[j+1], 2.0e0 ); /* Delta i,j level +1. */ + dp = (MD[i][j]+MD[i][j+1])/2.; /* Mean molecular diffusion. */ + dyp = (Y[i][j+1]-Y[i][j])/(RA[j+2]-RA[j])*2.e-5; /* Delta y level +1. */ + kp = (KEDD[j+1]+KEDD[j])/2.; /* Mean eddy diffusion. */ + /* div phi. */ + f[i][j] = cp * ( dp * ( (Y[i][j+1]+Y[i][j])/2. * dip + dyp ) + + kp * dyp ) + * (4.e-5/dra/pow((1.+RA[j]/RA[j+1]),2.)) + + fp[i] - Y[i][j]*fl[i] + v; + /* dphi / dy this level. */ + a[j][i][i] += ( cp * ( dp * 0.5e0 * dip + - 2.e-5/(RA[j+2]-RA[j]) * (dp + kp) ) + * (4.e-5/dra/pow((1.+RA[j]/RA[j+1]),2.)) + dv ); + /* dphi / dy level +1. */ + c[j][i] = -THETA * delta + * cp * ( dp * 0.5e0 * dip + + 2.e-5/(RA[j+2]-RA[j]) * (dp + kp) ) + * (4.e-5/dra/pow((1.+RA[j]/RA[j+1]),2.)); + } +/* Last level. */ + else if( j == NLEV-1 ) + { + v = dv = 0.0e0; + dra = RA[NLEV-1]-RA[NLEV-2]; + + /* Jeans escape */ + if( strcmp(corps[i], "H") == 0 ) + { + dv = top_H * NB[NLEV-1] + * (4.e-5/dra/pow((2.-dra/(RA[NLEV-1]+dra)),2.)); + v = dv * Y[i][NLEV-1]; + } + if( strcmp(corps[i], "H2") == 0 ) + { + dv = top_H2 * NB[NLEV-1] + * (4.e-5/dra/pow((2.-dra/(RA[NLEV-1]+dra)),2.)); + v = dv * Y[i][NLEV-1]; + } + /* Input flux for N(4S) */ + if( strcmp(corps[i], "N4S") == 0 ) + v = top_N4S + * (4.e-5/dra/pow((2.-dra/(RA[NLEV-1]+dra)),2.)); + + cm = (NB[NLEV-1]+NB[NLEV-2])/2.; /* Mean total concentration. */ + dim = r * (MASS[i]-(mu[NLEV-1]+mu[NLEV-2])/2.) + / (TEMP[NLEV-1]+TEMP[NLEV-2]) + / pow( RA[NLEV-1], 2.0e0 ); /* Delta i,j level -1. */ + dm = (MD[i][NLEV-1]+MD[i][NLEV-2])/2.; /* Mean molecular diffusion. */ + dym = (Y[i][NLEV-1]-Y[i][NLEV-2])/dra*1.e-5; /* Delta y level -1. */ + km = (KEDD[NLEV-1]+KEDD[NLEV-2])/2.; /* Mean eddy diffusion. */ + /* div phi. */ + f[i][NLEV-1] = fp[i] - Y[i][NLEV-1]*fl[i] - v + - cm * ( dm * ( (Y[i][NLEV-1]+Y[i][NLEV-2])/2. * dim + dym ) + + km * dym ) + * (4.e-5/dra/pow((2.+dra/RA[NLEV-1]),2.)); + /* dphi / dy this level */ + a[NLEV-1][i][i] -= ( cm * ( dm * 0.5e0 * dim + + 1.e-5/dra * (dm + km ) ) + * (4.e-5/dra/pow((2.+dra/RA[NLEV-1]),2.)) + dv ); + /* dphi / dy level -1. */ + b[NLEV-1][i][2] = THETA * delta + * cm * ( dm * 0.5e0 * dim + - 1.e-5/dra * (dm + km ) ) + * (4.e-5/dra/pow((2.+dra/RA[NLEV-1]),2.)); + } + else + { + v = dv = 0.0e0; + dram=(RA[j+1]-RA[j-1])/2.; + if (j= NLD; j-- ) + { + if( j != NLEV-1 ) + for( i = 0; i <= ST-1; i++ ) f[i][j] -= ( c[j][i] * b[j+1][i][1] ); + for( i = 0; i <= ST-1; i++ ) + { + s = 0.0e0; + for( k = 0; k <= ST-1; k++ ) s += ( a[j][i][k] * f[k][j] ); + b[j][i][1] = s; + Y[i][j] += s; + if( Y[i][j] <= 1.0e-30 ) Y[i][j] = 0.0e0; + } + } + +/* ------------------ */ +/* Tests et evolution */ +/* ------------------ */ + +/* Calcul deviation */ +/* ---------------- */ + + for( j = NLD; j <= NLEV-1; j++ ) + for( i = 0; i <= ST-1; i++ ) + if( ( Y[i][j] > test ) && ( ym1[i][j] > test ) ) + { + conv = fabs( Y[i][j] - ym1[i][j] ) / ym1[i][j]; + if( conv > ts ) + { +/* + if( conv >= 0.1 ) + { + out = fopen( outlog, "a" ); + fprintf( out, "Lat no %d;", (*LAT)+1); + fprintf(out, " alt:%e; %s %e %e ; %e %e\n",(RA[j]-R0),corps[i],ym1[i],Y[i][j],time,delta); + fclose( out ); + } +*/ + ts = conv; + } + } + +/* test deviation */ +/* -------------- */ + + if( ts < 0.1e0 ) + { + for( i = 0; i <= ST-1; i++ ) + for( j = NLD; j <= NLEV-1; j++ ) + if( (Y[i][j] >= 0.5e0) && (strcmp(corps[i],"N2") != 0) ) + { + out = fopen( outlog, "a" ); + fprintf( out, "WARNING %s mixing ratio is %e %e at %d\n", + corps[i], ym1[i], Y[i][j], j ); + for( k = 0; k <= NLEV-1; k++ ) fprintf( out, "%d %e %e\n",k,ym1[i],Y[i][k] ); + fclose( out ); + exit(0); +// Y[i][j] = 1.e-20; + } + for( j = NLD; j <= NLEV-1; j++ ) + for( i = 0; i <= NC-1; i++ ) ym1[i][j] = max(Y[i][j],1.e-30); + time += delta; + if( ts < 1.00e-5 ) delta *= 1.0e2; + if( ( ts > 1.00e-5 ) && ( ts < 1.0e-4 ) ) delta *= 1.0e1; + if( ( ts > 1.00e-4 ) && ( ts < 1.0e-3 ) ) delta *= 5.0e0; + if( ( ts > 1.00e-3 ) && ( ts < 5.0e-3 ) ) delta *= 3.0e0; + if( ( ts > 5.00e-3 ) && ( ts < 0.01e0 ) ) delta *= 1.5e0; + if( ( ts > 0.010e0 ) && ( ts < 0.03e0 ) ) delta *= 1.2e0; + if( ( ts > 0.030e0 ) && ( ts < 0.05e0 ) ) delta *= 1.1e0; + +// if( ( ts > 0.001e0 ) && ( ts < 0.01e0 ) ) delta *= 3.0e0; +// if( ( ts > 0.010e0 ) && ( ts < 0.05e0 ) ) delta *= 1.5e0; + + delta = min( deltamax, delta ); + } + else + { + for( j = NLD; j <= NLEV-1; j++ ) + for( i = 0; i <= NC-1; i++ ) Y[i][j] = ym1[i][j]; + + if( ts > 0.8 ) delta *= 1.e-6; + if( ( ts > 0.6 ) && ( ts <= 0.8 ) ) delta *= 1.e-4; + if( ( ts > 0.4 ) && ( ts <= 0.6 ) ) delta *= 1.e-2; + if( ( ts > 0.3 ) && ( ts <= 0.4 ) ) delta *= 0.1; + if( ( ts > 0.2 ) && ( ts <= 0.3 ) ) delta *= 0.2; + if( ( ts > 0.1 ) && ( ts <= 0.2 ) ) delta *= 0.3; + } + ts = 0.0e0; + + out = fopen( outlog, "a" ); + fprintf(out, "delta:%e; time:%e; fin:%e\n",delta,time,(*FIN)); + fclose( out ); + +} +/* **************** */ +/* end of time loop */ +/* **************** */ + +/* +========================================================================== + +SECONDE ETAPE: +=============== + INVERSION LOCALE PAR BLOC ENTRE NLD ET LA SURFACE +=============== +*/ + if( NLD != 0 ) + for( j = NLD-1; j >= 0; j-- ) + { + time = ts = 0.0e0; + delta = 1.e-3; + +/* ++++++++++++ */ +/* time loop. */ +/* ++++++++++++ */ + + while( time < (*FIN) ) + { + +/* init of step */ +/* ------------ */ + for( i = 0; i <= ST-1; i++ ) + { + fp[i] = fl[i] = 0.0e0; + for( l = 0; l <= ST-1; l++ ) jac[i][l] = 0.0e0; + } + +/* Chimie */ +/* ------ */ + +/* productions et pertes chimiques */ + for( i = 0; i <= ST-1; i++ ) + { + Y[i][j] = max(Y[i][j],1.e-30); /* minimum */ + + for( l = 0; l <= nom_prod[i]-1; l++ ) /* Production term */ + { + ireac = prod[i][l]; /* Number of the reaction involves. */ + ncom1 = reactif[ireac][0]; /* First compound which reacts. */ + if( reactif[ireac][1] == NC ) /* Photodissociation or relaxation */ + { + jac[i][ncom1] += ( KRATE[ireac][j] * NB[j] ); + fp[i] += ( KRATE[ireac][j] * NB[j] * Y[ncom1][j] ); + } + else /* General case. */ + { + ncom2 = reactif[ireac][1]; /* Second compound which reacts. */ + jac[i][ncom1] += ( KRATE[ireac][j] * Y[ncom2][j] ); /* Jacobian compound #1. */ + jac[i][ncom2] += ( KRATE[ireac][j] * Y[ncom1][j] ); /* Jacobian compound #2. */ + fp[i] += ( KRATE[ireac][j] * Y[ncom1][j] * Y[ncom2][j] ); /* Production term. */ + } + } + + for( l = 0; l <= nom_perte[i]-1; l++ ) /* Loss term. */ + { + ireac = perte[i][l][0]; /* Reaction number. */ + ncom2 = perte[i][l][1]; /* Compound #2 reacts. */ + if( reactif[ireac][1] == NC ) /* Photodissociation or relaxation */ + { + jac[i][i] -= ( KRATE[ireac][j] * NB[j] ); + fl[i] += ( KRATE[ireac][j] * NB[j] ); + } + else /* General case. */ + { + jac[i][ncom2] -= ( KRATE[ireac][j] * Y[i][j] ); /* Jacobian compound #1. */ + jac[i][i] -= ( KRATE[ireac][j] * Y[ncom2][j] ); /* Jacobien compound #2. */ + fl[i] += ( KRATE[ireac][j] * Y[ncom2][j] ); /* Loss term. */ + } + } + } + + +/* Aerosols */ +/* -------- */ + if( (*aerprod) == 1 ) + { + aer(corps,TEMP,NB,Y,&j,k_dep,faer, + &dyc2h2,&dyhc3n,&dyhcn,&dynccn,&dych3cn,&dyc2h3cn,utilaer, + mmolaer,productaer,csurn,csurh); + + for( i = 0; i <= 3; i++ ) + { + PRODAER[i][j] = productaer[i]; + MAER[i][j] = mmolaer[i]; + CSN[i][j] = csurn[i]; + CSH[i][j] = csurh[i]; + } +/* DEBUG +printf("AERPROD : LAT = %d - J = %d\n",(*LAT),j); +if(fabs(dyc2h2*NB[j])>fabs(fp[utilaer[2]]/10.)) + printf("fp(%s) =%e; dyc2h2 =%e\n",corps[utilaer[2]], + fp[utilaer[2]],dyc2h2*NB[j]); +if(fabs(dyhcn*NB[j])>fabs(fp[utilaer[5]]/10.)) + printf("fp(%s) =%e; dyhcn =%e\n",corps[utilaer[5]], + fp[utilaer[5]],dyhcn*NB[j]); +if(fabs(dyhc3n*NB[j])>fabs(fp[utilaer[6]]/10.)) + printf("fp(%s) =%e; dyhc3n =%e\n",corps[utilaer[6]], + fp[utilaer[6]],dyhc3n*NB[j]); +if(fabs(dynccn*NB[j])>fabs(fp[utilaer[13]]/10.)) + printf("fp(%s) =%e; dynccn =%e\n",corps[utilaer[13]], + fp[utilaer[13]],dynccn*NB[j]); +if(fabs(dych3cn*NB[j])>fabs(fp[utilaer[14]]/10.)) + printf("fp(%s) =%e; dych3cn=%e\n",corps[utilaer[14]], + fp[utilaer[14]],dych3cn*NB[j]); +if(fabs(dyc2h3cn*NB[j])>fabs(fp[utilaer[15]]/10.)) + printf("fp(%s) =%e; dyc2h3cn=%e\n",corps[utilaer[15]], + fp[utilaer[15]],dyc2h3cn*NB[j]); +*/ + + fp[utilaer[2]] -= ( dyc2h2 * NB[j] ); + fp[utilaer[5]] -= ( dyhcn * NB[j] ); + fp[utilaer[6]] -= ( dyhc3n * NB[j] ); + fp[utilaer[13]]-= ( dynccn * NB[j] ); + fp[utilaer[14]]-= ( dych3cn * NB[j] ); + fp[utilaer[15]]-= ( dyc2h3cn * NB[j] ); + if( Y[utilaer[2]][j] != 0.0 ) + jac[utilaer[2]][utilaer[2]] -= ( dyc2h2 * NB[j] / Y[utilaer[2]][j] ); + if( Y[utilaer[5]][j] != 0.0 ) + jac[utilaer[5]][utilaer[5]] -= ( dyhcn * NB[j] / Y[utilaer[5]][j] ); + if( Y[utilaer[6]][j] != 0.0 ) + jac[utilaer[6]][utilaer[6]] -= ( dyhc3n * NB[j] / Y[utilaer[6]][j] ); + if( Y[utilaer[13]][j] != 0.0 ) + jac[utilaer[13]][utilaer[13]] -= ( dynccn * NB[j] / Y[utilaer[13]][j] ); + if( Y[utilaer[14]][j] != 0.0 ) + jac[utilaer[14]][utilaer[14]] -= ( dych3cn * NB[j] / Y[utilaer[14]][j] ); + if( Y[utilaer[15]][j] != 0.0 ) + jac[utilaer[15]][utilaer[15]] -= (dyc2h3cn * NB[j] / Y[utilaer[15]][j] ); + } + + +/* H -> H2 on haze particles */ +/* ------------------------- */ + if( (*htoh2) == 1 ) + { + heterohtoh2(corps,TEMP,NB,Y,surfhaze,&j,&dyh,&dyh2,utilaer); +/* dyh <= 0 / 1.0 en adsor., 1 en reac. */ + +/* DEBUG +printf("HTOH2 : LAT = %d - J = %d\n",(*LAT),j); +if(fabs(dyh*NB[j])>fabs(fp[utilaer[0]]/10.)) +printf("fp(%s) = %e; dyh = %e\n",corps[utilaer[0]],fp[utilaer[0]],dyh*NB[j]); +if(fabs(dyh2*NB[j])>fabs(fp[utilaer[1]]/10.)) +printf("fp(%s) = %e; dyh2 = %e\n",corps[utilaer[1]],fp[utilaer[1]],dyh2*NB[j]); +*/ + + fp[utilaer[0]] += ( dyh * NB[j] ); + /* pourquoi pas *2 ?? cf gptit dans 2da... */ + + fp[utilaer[1]] += ( dyh2 * NB[j] ); + if( Y[utilaer[0]][j] != 0.0 ) + jac[utilaer[0]][utilaer[0]] += ( dyh * NB[j] / Y[utilaer[0]][j] ); + /* pourquoi pas *2 ?? cf gptit dans 2da... */ + } + + +/* Backup jacobian level j. */ +/* ------------------------ */ + for( i = 0; i <= ST-1; i++ ) + { + for( k = 0; k <= ST-1; k++ ) + a[j][i][k] = jac[i][k]; + f[i][j] = fp[i] - fl[i] * Y[i][j]; + } + + +/* finition pour inversion */ +/* ----------------------- */ + + for( i = 0; i <= ST-1; i++ ) + { + for( k = 0; k <= ST-1; k++ ) + { + a[j][i][k] *= ( -THETA * delta ); /* Correction time step. */ + if( k == i ) a[j][k][k] += NB[j]; /* Correction diagonal. */ + } + f[i][j] *= delta; + } + + +/* Inversion of matrix cf method LU */ +/* -------------------------------- */ + +/* inversion by blocs: */ +/* Hydrocarbons */ + + solve_b( a, f, j, 0, NHC-1 ); + for( i = 0; i <= NHC-1; i++ ) + { + Y[i][j] += f[i][j]; + if( Y[i][j] <= 1.0e-30 ) Y[i][j] = 0.0e0; + } + +/* Nitriles */ + + solve_b( a, f, j, NHC, ST-1 ); + for( i = NHC+1; i <= ST-1; i++ ) + { + Y[i][j] += f[i][j]; + if( Y[i][j] <= 1.0e-30 ) Y[i][j] = 0.0e0; + } + +/* end inversion by blocs: */ + +/* CH4 au sol */ +/* ---------- */ + for( i = 0; i <= ST-1; i++ ) + if( ( strcmp(corps[i], "CH4") == 0 ) && (j==0) && ( Y[i][0] < *botCH4 ) ) + { + fluxCH4 += (*botCH4 - Y[i][0]); + Y[i][0] = *botCH4; + } + +/* ------------------ */ +/* Tests et evolution */ +/* ------------------ */ + +/* Calcul deviation */ +/* ---------------- */ + + for( i = 0; i <= ST-1; i++ ) + { + test = 1.0e-15; + if( ( Y[i][j] > test ) && ( ym1[i][j] > test ) ) + { + conv = fabs( Y[i][j] - ym1[i][j] ) / ym1[i][j]; + + if( conv > ts ) + { +/* + if( conv >= 0.1 ) + { + out = fopen( outlog, "a" ); + fprintf( out, "Lat no %d; declin:%e;", (*LAT)+1, (*DECLIN) ); + fprintf(out, " alt:%e; %s %e %e ; %e %e\n",(RA[j]-R0),corps[i],ym1[i],Y[i][j],time,delta); + fclose( out ); + } +*/ + ts = conv; + } + } + } + +/* test deviation */ +/* -------------- */ + + if( ts < 0.1e0 ) + { + for( i = 0; i <= ST-1; i++ ) + if( (Y[i][j] >= 0.5e0) && (strcmp(corps[i],"N2") != 0) ) + { + out = fopen( outlog, "a" ); + fprintf( out, "WARNING %s mixing ratio is %e %e at %d\n", + corps[i], ym1[i][j], Y[i][j], j ); + for( k = 0; k <= NLEV-1; k++ ) fprintf( out, "%d %e %e\n",k,ym1[i][j],Y[i][k] ); + fclose( out ); + // exit(0); + Y[i][j] = 1.e-20; + } + for( i = 0; i <= NC-1; i++ ) ym1[i][j] = max(Y[i][j],1.e-30); + time += delta; + if( ts < 1.00e-5 ) delta *= 1.0e2; + if( ( ts > 1.00e-5 ) && ( ts < 1.0e-4 ) ) delta *= 1.0e1; + if( ( ts > 1.00e-4 ) && ( ts < 1.0e-3 ) ) delta *= 5.0e0; + if( ( ts > 0.001e0 ) && ( ts < 0.01e0 ) ) delta *= 3.0e0; + if( ( ts > 0.010e0 ) && ( ts < 0.05e0 ) ) delta *= 1.5e0; + + delta = min( deltamax, delta ); + } + else + { + for( i = 0; i <= NC-1; i++ ) Y[i][j] = ym1[i][j]; + + if( ts > 0.8 ) delta *= 1.e-6; + if( ( ts > 0.6 ) && ( ts <= 0.8 ) ) delta *= 1.e-4; + if( ( ts > 0.4 ) && ( ts <= 0.6 ) ) delta *= 1.e-2; + if( ( ts > 0.3 ) && ( ts <= 0.4 ) ) delta *= 0.1; + if( ( ts > 0.2 ) && ( ts <= 0.3 ) ) delta *= 0.2; + if( ( ts > 0.1 ) && ( ts <= 0.2 ) ) delta *= 0.3; + } + ts = 0.0e0; +/* + out = fopen( outlog, "a" ); + fprintf(out, " alt:%e; delta:%e; time:%e; fin:%e\n",(RA[j]-R0),delta,time,(*FIN)); + fclose( out ); +*/ + } + +/* +++++++++++++++++++ */ +/* end of time loop. */ +/* +++++++++++++++++++ */ + + for( i = 0; i <= ST-1; i++ ) + if( ( strcmp(corps[i],"CH4") == 0 ) && ( j == 0 ) ) + fluxCH4 *= ( MASS[i]/(6.022e23*time) ); + + } /* boucle j */ + + +/* +========================================================================== + +FINALISATION: +=============== +*/ + for( i = 0; i <= ST-1; i++ ) + if( strcmp(corps[i],"CH4") == 0 ) + fluxCH4 *= ( MASS[i]/(6.022e23*time) ); + +/* Niveau de N2 */ +/* ------------ */ + + for( j = 0; j <= NLEV-1; j++ ) + { + conv = 0.0e0; + for( i = 0; i <= ST-1; i++ ) + if( strcmp(corps[i],"N2") != 0 ) conv += Y[i][j]; + for( i = 0; i <= ST-1; i++ ) + if( strcmp(corps[i],"N2") == 0 ) Y[i][j] = 1. - conv; + } + + if( (*aerprod) == 1 ) + { + fdm2d( k_dep, 1, 5, 1 ); + fdm2d( faer, 1, 5, 1 ); + fdm1d( productaer, 0 ); + fdm1d( mmolaer, 0 ); + fdm1d( csurn, 0 ); + fdm1d( csurh, 0 ); + } + + fdm1d( fl, 0 ); + fdm1d( fp, 0 ); + fdm1d( mu, 0 ); + fdm2d( ym1, 0, NC-1, 0 ); + fdm2d( f, 0, NC-1, 0 ); + fdm2d( jac, 0, NC-1, 0 ); + fdm2d( c, 0, NLEV-1, 0 ); + fdm3d( a, 0, NLEV-1, 0, NC-1, 0 ); + fdm3d( b, 0, NLEV-1, 0, NC-1, 1 ); +} Index: /trunk/LMDZ.TITAN/libf/chimtitan/htoh2.c =================================================================== --- /trunk/LMDZ.TITAN/libf/chimtitan/htoh2.c (revision 1644) +++ /trunk/LMDZ.TITAN/libf/chimtitan/htoh2.c (revision 1644) @@ -0,0 +1,62 @@ +/* htoh2: production of H2 from heterogenous recombination of H + on the haze particles */ + +#include "titan.h" + +void heterohtoh2( char corps[][10], double *tp, double *nb, double y[][NLEV], + double *sh, int *zj, + double *out1, double *out2, int *utilaer ) +{ + int z; + int i,j,h,h2; + double dy_h2,dy_h,nbCsites; + double surfhaze,temp,ct; + + z = (*zj); + temp = tp[z]; + ct = nb[z]; + surfhaze = sh[z]; + +/* composes interessants */ +/* --------------------- */ +/* !! decalage de 1 par rapport a calchim !! */ + + h = utilaer[0]; + h2 = utilaer[1]; + +/* nbCsites: total nb of C sites */ +/* ----------------------------- */ + +/* HYPOTHESE POUR LA TAILLE DU SITE D'UN C */ + +/* 2e-9*4pi = 2.5e-8 = surface (um2) d'1 C + en supposant un disque PAH (correspond a un rayon de 0.9AA) */ + + nbCsites = surfhaze / 2.5e-8; + +/* taux de recombinaison */ +/* --------------------- */ + +/* H + bounded H -> H2 */ + + dy_h2 = y[h][z] + * 1.58e4 * sqrt(temp) /* kinetic speed of H atoms (cm s-1) */ + * nbCsites /* haze: total nb of C sites (cm-3) */ + * 1.8e-18*exp(-300/temp); /* X-section Y.Sekine (cm2) */ +// * 1.e-15*exp(-1700/temp); /* X-section for bounded H atoms (cm2) */ + + dy_h = -dy_h2; + +/* H + surface -> bounded H */ + + if(1==1) // si faux, surface saturee + dy_h = dy_h - y[h][z] + * 1.58e4 * sqrt(temp) /* kinetic speed of H atoms (cm s-1) */ + * nbCsites /* haze: total nb of C sites (cm-3) */ + * 8.8e-16*exp(-1100/temp); /* Xsection Y.Sekine (cm2) */ +// * 1.e-15*exp(-1700/temp); /* X-section for bounded H atoms (cm2) */ + + *out1 = dy_h; + *out2 = dy_h2; +} + Index: /trunk/LMDZ.TITAN/libf/chimtitan/omega.c =================================================================== --- /trunk/LMDZ.TITAN/libf/chimtitan/omega.c (revision 1644) +++ /trunk/LMDZ.TITAN/libf/chimtitan/omega.c (revision 1644) @@ -0,0 +1,14 @@ +/* omega: correction to perfect gas compound */ +/* 30 Oct 96 */ + +#include "titan.h" + +double omega( ts, epsa, epsb ) +double epsa,epsb,ts; +{ + double t; + + t = ts / sqrt( epsa * epsb ); + return 1.06036e0 * pow( t, -0.1561e0 ) + 0.193e0 * exp( -0.47635e0 * t ) + + 1.03587e0 * exp( -1.52996e0 * t ) + 1.76474e0 * exp( -3.89411e0 * t ); +} Index: /trunk/LMDZ.TITAN/libf/chimtitan/solve.c =================================================================== --- /trunk/LMDZ.TITAN/libf/chimtitan/solve.c (revision 1644) +++ /trunk/LMDZ.TITAN/libf/chimtitan/solve.c (revision 1644) @@ -0,0 +1,136 @@ +/* matrix inversion */ +/* cf Numerical Recipes LU Method for equations numbers */ +/* GCCM */ +/* similaire a inv (GP) */ +/* la matrice a est inversee seulement sur le bloc [n0;n1][n0;n1] */ + +#include "titan.h" + +void solve( double ***aa, int m, int n0, int n1 ) +{ + int i,ii,imax,j,k,l,ll; + double **a,aamax,dum,*indx,sum,**vv,tmp; + FILE *out; + + indx = dm1d( n0, n1 ); + vv = dm2d( n0, n1, n0, n1 ); + a = dm2d( n0, n1, n0, n1 ); + imax = n0; + + for( i = n0; i <= n1; i++ ) for( j = n0; j <= n1; j++ ) a[i][j]=aa[m][i][j]; + + for( i = n0; i <= n1; i++ ) + { + aamax = 0.0e0; + for( k = n0; k <= n1; k++ ) + if( (tmp=fabs(a[i][k])) > aamax ) aamax = tmp; + if( aamax < 1.0e-20 ) + { + out = fopen( "err.log", "a" ); + fprintf( out, "Singular matrix. n0=%ld k=%ld aamax=%le\n", + n0,k,aamax); + fclose( out ); + exit(0); +/* aamax = 1.e-30; */ + } + vv[i][1] = 1.0e0 / aamax; /* Save the scaling */ +/* + if( (aamax > 1.0e100)||(aamax < 1.0e-100) ) + { + out = fopen( "err.log", "a" ); + fprintf( out, "ATTENTION aamax = %le\n", aamax ); + fclose( out ); + exit( 0 ); + } +*/ + } + for( k = n0; k <= n1; k++ ) + { + for( i = n0; i < k; i++ ) /* This is equation 2.3.12 except for i = j */ + { + sum = a[i][k]; + for( l = n0; l < i; l++ ) + sum -= ( a[i][l] * a[l][k] ); + a[i][k] = sum; + } + aamax = 0.0e0; /* Initialize for the search for largest pivot element */ + for( i = k; i <= n1; i++ ) /* This is i = j of equation 2.3.12 and */ + { + sum = a[i][k]; /* i = J + 1,...,N of equation 2.3.13 */ + for( l = n0; l < k; l++ ) + sum -= ( a[i][l] * a[l][k] ); + a[i][k] = sum; + dum = vv[i][1] * fabs(sum); /* Figure of merit for the pivot */ + if( dum >= aamax ) /* Is it better than the best so far ? */ + { + imax = i; + aamax = dum; + } + } + if( k != imax ) /* Do we need to interchange rows ? */ + { + for( l = n0; l <= n1; l++ ) /* Yes, do so... */ + { + dum = a[imax][l]; + a[imax][l] = a[k][l]; + a[k][l] = dum; + } + vv[imax][1] = vv[k][1]; /* Also interchange the scale factor */ + } + indx[k] = imax; + if( fabs(a[k][k]) < 1.0e-20 ) + { + out = fopen( "err.log", "a" ); + fprintf( out, "Pivot too small. n0=%ld k=%ld fabs(a[k][k])=%le\n", + n0,k,fabs(a[k][k]) ); + fclose( out ); + exit(0); +/* a[k][k] = 1.e-20; */ + } + if( k != n1 ) /* If the pivot element is less than 1.0d-20 we */ + { /* assume that the matrix is singular */ + dum = a[k][k]; /* ( at least to the precision of the algorithm and the machine ) */ + for( i = k+1; i <= n1; i++ ) /* Now, finally devide by the pivot element */ + a[i][k] /= dum; + } + } /* Go back to the next column in the reduction */ + + for( i = n0; i <= n1; i++ ) + { + for( k = n0; k <= n1; k++ ) + vv[i][k] = 0.0e0; + vv[i][i] = 1.0e0; + } + + for( l = n0; l <= n1; l++ ) + { + ii = n0-1; + for( i = n0; i <= n1; i++ ) + { + ll = indx[i]; + sum = vv[ll][l]; + vv[ll][l] = vv[i][l]; + if( ii != (n0-1) ) + for( k = ii; k < i; k++ ) + sum -= ( a[i][k] * vv[k][l] ); + else if( sum != 0.0e0 ) ii = i; + vv[i][l] = sum; + } + for( i = n1; i >= n0; i-- ) + { + sum = vv[i][l]; + if( i < n1 ) + for( k = i+1; k <= n1; k++ ) + sum -= ( a[i][k] * vv[k][l] ); + vv[i][l] = sum / a[i][i]; + } + } + + for( i = n0; i <= n1; i++ ) + for( l = n0; l <= n1; l++ ) + aa[m][i][l]=vv[i][l]; + + fdm1d( indx, n0 ); + fdm2d( vv, n0, n1, n0 ); + fdm2d( a, n0, n1, n0 ); +} Index: /trunk/LMDZ.TITAN/libf/chimtitan/solve_b.c =================================================================== --- /trunk/LMDZ.TITAN/libf/chimtitan/solve_b.c (revision 1644) +++ /trunk/LMDZ.TITAN/libf/chimtitan/solve_b.c (revision 1644) @@ -0,0 +1,126 @@ +/* matrix inversion */ +/* cf Numerical Recipes LU Method for equations numbers */ +/* GCCM */ +/* similaire a inv (GP) */ +/* la matrice a est inversee seulement sur le bloc [n0;n1][n0;n1] */ + +#include "titan.h" + +void solve_b( double ***aa, double **f, int m, int n0, int n1 ) +{ + int i,ii,imax,j,k,l,ll; + double **a,aamax,dum,*indx,sum,*vv,tmp; + FILE *out; + + indx = dm1d( n0, n1 ); + vv = dm1d( n0, n1 ); + a = dm2d( n0, n1, n0, n1 ); + imax = n0; + + for( i = n0; i <= n1; i++ ) for( j = n0; j <= n1; j++ ) a[i][j]=aa[m][i][j]; + + for( i = n0; i <= n1; i++ ) + { + aamax = 0.0e0; + for( k = n0; k <= n1; k++ ) + if( (tmp=fabs(a[i][k])) > aamax ) aamax = tmp; + if( aamax < 1.0e-20 ) + { + out = fopen( "err.log", "a" ); + fprintf( out, "Singular matrix. n0=%ld k=%ld aamax=%le\n", + n0,k,aamax); + fclose( out ); + exit(0); +/* aamax = 1.e-30; */ + } + vv[i] = 1.0e0 / aamax; /* Save the scaling */ +/* + if( (aamax > 1.0e100)||(aamax < 1.0e-100) ) + { + out = fopen( "err.log", "a" ); + fprintf( out, "ATTENTION aamax = %le\n", aamax ); + fclose( out ); + exit( 0 ); + } +*/ + } + for( k = n0; k <= n1; k++ ) + { + for( i = n0; i < k; i++ ) /* This is equation 2.3.12 except for i = j */ + { + sum = a[i][k]; + for( l = n0; l < i; l++ ) + sum -= ( a[i][l] * a[l][k] ); + a[i][k] = sum; + } + aamax = 0.0e0; /* Initialize for the search for largest pivot element */ + for( i = k; i <= n1; i++ ) /* This is i = j of equation 2.3.12 and */ + { + sum = a[i][k]; /* i = J + 1,...,N of equation 2.3.13 */ + for( l = n0; l < k; l++ ) + sum -= ( a[i][l] * a[l][k] ); + a[i][k] = sum; + dum = vv[i] * fabs(sum); /* Figure of merit for the pivot */ + if( dum >= aamax ) /* Is it better than the best so far ? */ + { + imax = i; + aamax = dum; + } + } + if( k != imax ) /* Do we need to interchange rows ? */ + { + for( l = n0; l <= n1; l++ ) /* Yes, do so... */ + { + dum = a[imax][l]; + a[imax][l] = a[k][l]; + a[k][l] = dum; + } + vv[imax] = vv[k]; /* Also interchange the scale factor */ + } + indx[k] = imax; + if( fabs(a[k][k]) < 1.0e-20 ) + { + out = fopen( "err.log", "a" ); + fprintf( out, "Pivot too small. n0=%ld k=%ld fabs(a[k][k])=%le\n", + n0,k,fabs(a[k][k]) ); + fclose( out ); + exit(0); +/* a[k][k] = 1.e-20; */ + } + if( k != n1 ) /* If the pivot element is less than 1.0d-20 we */ + { /* assume that the matrix is singular */ + dum = a[k][k]; /* ( at least to the precision of the algorithm and the machine ) */ + for( i = k+1; i <= n1; i++ ) /* Now, finally devide by the pivot element */ + a[i][k] /= dum; + } + } /* Go back to the next column in the reduction */ + + for( i = n0; i <= n1; i++ ) vv[i]=f[i][m]; + + ii = n0-1; + for( i = n0; i <= n1; i++ ) + { + ll = indx[i]; + sum = vv[ll]; + vv[ll] = vv[i]; + if( ii != (n0-1) ) + for( k = ii; k < i; k++ ) + sum -= ( a[i][k] * vv[k] ); + else if( sum != 0.0e0 ) ii = i; + vv[i] = sum; + } + for( i = n1; i >= n0; i-- ) + { + sum = vv[i]; + if( i < n1 ) + for( k = i+1; k <= n1; k++ ) + sum -= ( a[i][k] * vv[k] ); + vv[i] = sum / a[i][i]; + } + + for( i = n0; i <= n1; i++ ) f[i][m]=vv[i]; + + fdm1d( indx, n0 ); + fdm1d( vv, n0 ); + fdm2d( a, n0, n1, n0 ); +} Index: /trunk/LMDZ.TITAN/libf/chimtitan/titan.h =================================================================== --- /trunk/LMDZ.TITAN/libf/chimtitan/titan.h (revision 1644) +++ /trunk/LMDZ.TITAN/libf/chimtitan/titan.h (revision 1644) @@ -0,0 +1,59 @@ +/* titan.h: parameters for gptitan.c */ + +#include +#include +#include +#include + +#define R0 (double)(2575.0) /* Titan's radius */ +#define NLEV (int)(125) /* Nbre de niv verticaux - =llm+70 dans common_mod */ +#define NLD (int)(40) /* Nbre de niv verticaux faits sans diff */ +#define NLRT (int)(650) /* Nbre de niv verticaux dans table fmoy - aussi dans common_mod */ + +/* fluxes at 1300 km : upward is +, downward is - */ +#define top_H (double)(+1.1e4) +#define top_H2 (double)(+3.7e3) +#define top_N4S (double)(-1.1e8) /* = -2.5e8/2.27 ... */ + +/* DEPEND DE LA VERSION CHIMIE: */ +#define VERCHIM "chimie_simpnit_051006_bis" +#define NREAC (int)(377) /* nombre de reactions - aussi dans common_mod */ +#define RDISS (int)(54) /* nombre de photodiss - aussi dans common_mod */ +#define NC (int)(44) /* nb de composes - aussi dans common_mod */ +#define ST (int)(NC) /* nb de composes inverses */ +#define NHC (int)(32) /* nb hydrocarbons */ + +#define THETA (double)(0.501) +#ifndef M_PI +#define M_PI (double)(3.14159265358979323846e0) +#endif +#define RAD (double)(M_PI / 180.0e0) +#ifndef max +#define max(a,b) ((a)>(b)?(a):(b)) +#define min(a,b) ((a)<=(b)?(a):(b)) +#endif + +void chimie_(char (*)[10], double *, double *, double (*)[NLEV], + int (*)[5], int *, int *, int (*)[200][2], int (*)[200]); +void comp_(char (*)[10], double *, double *, double *, double (*)[NLEV]); +void disso_(double (*)[NLRT][RDISS+1][15], int *); +double omega( double, double, double ); +void solve( double ***, int, int, int ); +void solve_b( double ***, double **, int, int, int ); +float *rm1d( int, int ); +float **rm2d( int, int, int, int ); +float ***rm3d( int, int, int, int, int, int ); +float ****rm4d( int, int, int, int, int, int, int, int ); +double *dm1d( int, int ); +double **dm2d( int, int, int, int ); +double ***dm3d( int, int, int, int, int, int ); +double ****dm4d( int, int, int, int, int, int, int, int ); +void frm1d( float *, int ); +void frm2d( float **, int, int, int ); +void frm3d( float ***, int, int, int, int, int ); +void fdm1d( double *, int ); +void fdm2d( double **, int, int, int ); +void fdm3d( double ***, int, int, int, int, int ); +int *im1d( int, int ); +int **im2d( int, int, int, int ); +int ***im3d( int, int, int, int, int, int ); Index: /trunk/LMDZ.TITAN/libf/chimtitan/tractitan.c =================================================================== --- /trunk/LMDZ.TITAN/libf/chimtitan/tractitan.c (revision 1644) +++ /trunk/LMDZ.TITAN/libf/chimtitan/tractitan.c (revision 1644) @@ -0,0 +1,174 @@ +/* tractitan: suivi de traceurs avec constantes de temps de rappel */ +/* GCCM */ + +#include "titan.h" + +void tractitan_( double *RB, char CORPS[][10], double Y[][NLEV], + double Y0[][NLEV], double *FIN ) +{ + char outlog[100],corps[100][10]; + int i,j,k,l; + double annee,**tau,**ym1; + double cm,conv,cp,delta,deltamax,deltao; + double test,time,ts; + char str2[15]; + FILE *out; + + for( i = 0; i <= NC; i++) + { + strcpy( corps[i], CORPS[i] ); + corps[i][strcspn(CORPS[i], " ")] = '\0'; + } + + time = ts = 0.0e0; + annee = 9.46728e8; + strcpy( outlog, "chimietitan" ); + strcat( outlog, ".log" ); + deltamax = 2.e5; + + deltao = delta = 1.e5; + + ym1 = dm2d( 0, NC-1, 0, NLEV-1 ); + tau = dm2d( 0, NC-1, 0, NLEV-1 ); + +/* debug */ +/* + out = fopen( "err.log", "a" ); + fprintf( out,"%s\n", ); + fclose( out ); +*/ + +/* Composition pour le rappel (identique a inichim): Y0 */ + +/* initialisation ym1 */ + + for( j = 0; j <= NLEV-1; j++ ) + for( i = 0; i <= NC-1; i++ ) ym1[i][j] = Y[i][j]; + +/* initialisation tau sans dependance en lat */ + + for( i = 0; i <= NC-1; i++ ) + { + for( j = NLEV-1; j >= 0; j-- ) + { + tau[i][j] = 1.e6; /* autres corps = 1.e6 s, donc rappel tres fort */ + + if( strcmp(corps[i],"C2H2") == 0 ) + tau[i][j] = annee*pow( 10., 2.+1.*(100.-(RB[j]-R0))/200. ); + if( strcmp(corps[i],"C2H6") == 0 ) + tau[i][j] = annee*pow( 10., 1.+1.*(200.-(RB[j]-R0))/300. ); + if( strcmp(corps[i],"HCN") == 0 ) + { + if( (RB[j]-R0) >= 350. ) + tau[i][j] = annee*pow( 10., 1.+1.3*((RB[j]-R0)-350.)/150. ); + else + tau[i][j] = annee*10.; + } + if( strcmp(corps[i],"C4H2") == 0 ) + { + if( (RB[j]-R0) >= 300. ) + tau[i][j] = annee*pow( 10.,-1.+0.3*(300.-(RB[j]-R0))/200. ); + else + tau[i][j] = annee*pow( 10., 0.+1.0*(100.-(RB[j]-R0))/200. ); + } + } +/* COUCHES HAUTES: RAPPEL FORCE PLUS GRAND */ + tau[i][NLEV-1] = min(tau[i][NLEV-1],annee/100.); + tau[i][NLEV-2] = min(tau[i][NLEV-2],annee/50.); + tau[i][NLEV-3] = min(tau[i][NLEV-3],annee/10.); +/* tau[i][NLEV-4] = min(tau[i][NLEV-4],annee/100.); */ + } + +/* out = fopen( outlog, "a" ); */ +/* vu la rapidite, on laisse le fichier ouvert pendant toute la boucle */ + +/* ***************** */ +/* Main time loop. */ +/* ***************** */ + + while( time < (*FIN) ) + { + for( i = 0; i <= NC-1; i++ ) + { +/* rappel */ +/* ------ */ + for( j = NLEV-2; j >= 0; j-- ) + Y[i][j] += delta * ( Y0[i][j] - Y[i][j] ) / tau[i][j]; +/* on laisse fixe la couche la plus haute */ + Y[i][NLEV-1] = Y0[i][NLEV-1]; + } + +/* test evolution delta */ +/* -------------------- */ + for( j = 0; j <= NLEV-2; j++ ) if( (RB[j]-R0) >= 90. ) + for( i = 0; i <= NC-1; i++ ) + { + test = 1.0e-15; + if( ( Y[i][j] > test ) && ( ym1[i][j] > test ) ) + { + conv = fabs( Y[i][j] - ym1[i][j] ) / ym1[i][j]; + if( conv > ts ) + { +/* + if( conv > 0.1 ) + { + fprintf(out, "%d %s %e %e\n",j,corps[i],ym1[i][j],Y[i][j]); + } +*/ + ts = conv; + } + } + } +/* + fprintf(out, "%e %e %e\n",time,delta,ts); +*/ + if( ts < 0.1e0 ) + { + for( i = 0; i <= NC-1; i++ ) + for( j = 0; j <= NLEV-1; j++ ) + if( Y[i][j] >= 1.0e0 ) + { +/* + fprintf( out, "WARNING %s mixing ratio is %e %e at %d", + corps[i], ym1[i][j], Y[i][j], j ); + fclose( out ); +*/ + exit(0); + } + for( j = 0; j <= NLEV-1; j++ ) + for( i = 0; i <= NC-1; i++ ) ym1[i][j] = Y[i][j]; + time += ( deltao = delta ); + if( ts < 1.00e-5 ) delta *= 10.e0; + if( ( ts > 1.00e-5 ) && ( ts < 1.0e-4 ) ) delta *= 5.0e0; + if( ( ts > 1.00e-4 ) && ( ts < 1.0e-3 ) ) delta *= 2.0e0; + if( ( ts > 0.001e0 ) && ( ts < 0.01e0 ) ) delta *= 1.5e0; + if( ( ts > 0.010e0 ) && ( ts < 0.05e0 ) ) delta *= 1.1e0; + + delta = min( deltamax, delta ); + + if( ( time + delta ) > (*FIN) ) + { + delta = (*FIN) - time; + time = (*FIN); + } + } + else + { + for( j = 0; j <= NLEV-1; j++ ) + for( i = 0; i <= NC-1; i++ ) Y[i][j] = ym1[i][j]; + delta *= 0.3e0; + } + ts = 0.0e0; + } + +/* **************** */ +/* end of main loop */ +/* **************** */ + +/* + fprintf( out, "%e\n", time ); + fclose( out ); +*/ + fdm2d( ym1, 0, NC-1, 0 ); + fdm2d( tau, 0, NC-1, 0 ); +} Index: /trunk/LMDZ.TITAN/libf/dyn3d/LISEZMOI =================================================================== --- /trunk/LMDZ.TITAN/libf/dyn3d/LISEZMOI (revision 1644) +++ /trunk/LMDZ.TITAN/libf/dyn3d/LISEZMOI (revision 1644) @@ -0,0 +1,136 @@ + +Version abbrégé spécial Mars + + .. Version du 28/12/1998 , avec nouveau fxyhyper appele par inigeom ... + ************************************************************************** + + 1) Le gcm LMDZ.3.2 a des coordonnees hybrides verticalement ,c.a.d des + ******** + coordonnees equivalentes a sigma pres de la surface et a P plus haut . + + Les pressions p(ij,l) aux differents interfaces des llm couches verti- + cales sont donnees par : + + p( ij,l ) = ap(l) + bp(l) * ps(ij) , 1 << l << llm + 1 . + + + La fonction d'Exner est calculee aux milieux des llm couches vertic. + + pk(ij,l) = cp * ( p(ij,l)/preff ) ** kappa , 1 << l << llm + + Les pressions PLS(ij,l) definies aux milieux des couches sont egales a : + + pls(ij,l) = preff * ( pk(ij,l) /cp ) ** 1./kappa + + + + 2) Une des variables prognostiques de LMDZ.3 est teta , temperature + potentielle : + + teta (ij,l) = temperature(ij,l) * cp/ pk(ij,l) + + + 3) Dans le programme principal gcm.F , il faut definir , au debut ,les para- + metres IADV ,pour choisir le shema d'advection pour l'eau et les traceurs + IADV = 3 , Van-Leer + + 4) Il y a 2 shemas de dissipation ( diffusion laterale ) : + + a) La dissipation star ( qui ne fait pas intervenir la geometrie de la + grille et qui est utilisee quand il y a un zoom ) + + Par expl . la diffusion d'un scalaire comme teta est formulee ( en + appelant l'operateur DIVGRAD2 ) comme : + + d( ro * teta ) = (-1)**(it-1) *cdiv * Lap * ro**1/2 * Lap_gam** (it-2 ) * + ro**1/2 * Lap * teta + avec : + Lap = 1/aire * Filt[ dx ( coefx*dx ) + dy( coefy*dy ) ] Filt + + Lap_gam = (1./aire)** -gam { dx[ coefx**(-gam) dx] + dy[ coefy**(-gam) dy ] } + + + Filt est l'operateur filtre + ro est la densite dp de chaque couche + it = nombre d'iterations de l'operateur de dissipation ( ici divgrad2 ) + gam = coefdis /( it -2 ) , coefdis = 0. si it = 2 , sinon = 1. habituellem. + dx = operateur difference finie : + dx(A) = A( X +1/2 , Y, z ) - A( X -1/2, Y, z ) , dans le systeme de + travail (X,Y) , avec l'increment DX = 1. + + Idem pour dy . + + coefx = beta(ij) / alpha(ij) , coefy = alpha(ij)/beta(ij) + avec u_covariant(ij) = alpha(ij)* u_nat(ij) + v_covariant(ij) = beta(ij) * v_nat(ij) + + Cette dissipation star est choisie en mettant le parametre lstardis a .TRUE. + dans le fichier run.def lu par le gcm en entree . + + b) La dissipation ' non star ' fait intervenir les operateurs elementaires + diverg,grad,rotat . Elle est choisie avec lstardis = .FALSE. + +N.B : Dans les 2 shemas de dissipation , le gcm est plus stable quand on + n'itere pas l'operateur ' GRADIV ' ou ' GRADIV2 " . + + 5) Les constantes thermodynamiques Cp et kappa = R/Cp utilisees dans la + partie dynamique ont ete mises , ce qui est normal, aux memes valeurs + qu'elles ont dans la partie ' physique ' , en changeant INICONST et en + les mettant dans l'entete de controle de start et startphy ,en changeant + etat0_lmd , par rapport a LMDZ.2.2 + + 6) Pour finir , quelques commentaires sur les parametres qui figurent sur + le fichier run.def qui commandent le gcm . + + + c) coefdis , coefficient qui intervient dans le calcul de gam , utilise + dans les routines de dissipation star , vus plus haut . + + d) iphysiq correspond ici a un appel de la physique toutes les 30 minutes. + + e) alphax et alphay correspondent au grossissement pour le zoom dans la + direction X et Y . + En fait , les facteurs de grossissement sont egaux a 1./ ( 1.- alphax ) + et 1./( 1.- alphay ) . + + f) fxyhypb est egal a .TRUE. si on choisit pour la fonction f(x,y) qui + definit la grille du modele une fonction a tangente hyperbolique , un peu + adaptee pour le zoom , que la fonction sinusoidale , definie par fxy_new.h + dans /..../gcm/libf/grid et lu par makegcm lors de la compilation du + code . + + +N.B: Pour l'instant , cette fonction hyperbolique n'est activee eventuellement +**** que pour un zoom latitudinal . + Pour un zoom longitudinal , la fonction sinusoidale precisee dans fxy_new.h + est choisie automatiquement . + + g) psi0 et delta sont des parametres pour cette fonction hyberbolique . + Ces valeurs de 0.3 et 0.5 ont ete adaptees pour 96x72 . + + + + + **************************************************************************** + + + AA) Choisir les options du run , avec le fichier run.def . + + Il y a entre autres choses , le nombre de jours qu'on veut integrer lors + d'un run . + Il y a le nombre de pas a faire pour 1 jour , ce qui calcule donc le dt + temporel ( en secondes ) pour un pas dynamique . + Iperiod est conseille d'etre a 5 pas ( mais non obligatoiremnet = 5 ) . + Idissip peut etre mis a n'importe quelle valeur . Il est maintenant + + Les parametres( la plupart des cles ) pour la physique commencent avec + la var. logique ** physic ** + + entiere( en pas ) ** iphysiq ** qui est calculee de telle facon a + appeler la physique tous les 30 minutes . + + ( en jours ) ** ecritphy ** qui indique la frequence en jours + du stockage sur diagfi + + + Index: /trunk/LMDZ.TITAN/libf/dyn3d/abort_gcm.F =================================================================== --- /trunk/LMDZ.TITAN/libf/dyn3d/abort_gcm.F (revision 1644) +++ /trunk/LMDZ.TITAN/libf/dyn3d/abort_gcm.F (revision 1644) @@ -0,0 +1,24 @@ + SUBROUTINE abort_gcm(modname, message, ierr) + +C +C Stops the simulation cleanly, closing files and printing various +C comments +C +C Input: modname = name of calling program +C message = stuff to print +C ierr = severity of situation ( = 0 normal ) + + character*20 modname + integer ierr + character*80 message + + write(*,*) 'in abort_gcm' + write(*,*) 'Stopping in ', modname + write(*,*) 'Reason = ',message + if (ierr .eq. 0) then + write(*,*) 'Everything is cool' + else + write(*,*) 'Houston, we have a problem ', ierr + endif + STOP + END Index: /trunk/LMDZ.TITAN/libf/dyn3d/addfi.F =================================================================== --- /trunk/LMDZ.TITAN/libf/dyn3d/addfi.F (revision 1644) +++ /trunk/LMDZ.TITAN/libf/dyn3d/addfi.F (revision 1644) @@ -0,0 +1,185 @@ + SUBROUTINE addfi(nq, pdt, leapf, forward, + S pucov, pvcov, pteta, pq , pps , pmasse , + S pdufi, pdvfi, pdhfi,pdqfi, pdpfi ) + + USE comvert_mod, ONLY: ap,bp + + IMPLICIT NONE +c +c======================================================================= +c +c Addition of the physical tendencies +c Modif special Mars : +c - no special treatment of iq = 1, 2, FF 2003 +c - recompute mass after incrementation of ps (EM,FF 2008) +c +c Interface : +c ----------- +c +c Input : +c ------- +c pdt time step of integration +c leapf logical +c forward logical +c pucov(ip1jmp1,llm) first component of the covariant velocity +c pvcov(ip1ip1jm,llm) second component of the covariant velocity +c pteta(ip1jmp1,llm) potential temperature +c pts(ip1jmp1,llm) surface temperature +c pdufi(ip1jmp1,llm) | +c pdvfi(ip1jm,llm) | respective +c pdhfi(ip1jmp1) | tendencies +c pdtsfi(ip1jmp1) | +c +c Output : +c -------- +c pucov +c pvcov +c ph +c pts +c pmasse(ip1jmp1,llm) ! mass +c +c +c======================================================================= +c +c----------------------------------------------------------------------- +c +c 0. Declarations : +c ------------------ +c +#include "dimensions.h" +#include "paramet.h" +#include "comgeom.h" +c +c Arguments : +c ----------- +c + INTEGER nq + + REAL pdt +c + REAL pvcov(ip1jm,llm),pucov(ip1jmp1,llm) + REAL pteta(ip1jmp1,llm),pq(ip1jmp1,llm,nq),pps(ip1jmp1) +c + REAL pdvfi(ip1jm,llm),pdufi(ip1jmp1,llm) + REAL pdqfi(ip1jmp1,llm,nq),pdhfi(ip1jmp1,llm),pdpfi(ip1jmp1) + + real pmasse(ip1jmp1,llm) +c + LOGICAL leapf,forward +c +c +c Local variables : +c ----------------- +c + REAL xpn(iim),xps(iim),tpn,tps + INTEGER j,k,iq,ij + REAL qtestw, qtestt + PARAMETER ( qtestw = 1.0e-15 ) + PARAMETER ( qtestt = 1.0e-30 ) + + real p(ip1jmp1,llmp1) ! pressure + + REAL SSUM + EXTERNAL SSUM +c +c----------------------------------------------------------------------- +! increment potential temperature + DO k = 1,llm + DO j = 1,ip1jmp1 + pteta(j,k)= pteta(j,k) + pdhfi(j,k) * pdt + ENDDO + ENDDO + + DO k = 1, llm + DO ij = 1, iim + xpn(ij) = aire( ij ) * pteta( ij ,k) + xps(ij) = aire(ij+ip1jm) * pteta(ij+ip1jm,k) + ENDDO + tpn = SSUM(iim,xpn,1)/ apoln + tps = SSUM(iim,xps,1)/ apols + + DO ij = 1, iip1 + pteta( ij ,k) = tpn + pteta(ij+ip1jm,k) = tps + ENDDO + ENDDO +c + +! increment covariant zonal wind + DO k = 1,llm + DO j = iip2,ip1jm + pucov(j,k)= pucov(j,k) + pdufi(j,k) * pdt + ENDDO + ENDDO + +! increment covariant meridional wind + DO k = 1,llm + DO j = 1,ip1jm + pvcov(j,k)= pvcov(j,k) + pdvfi(j,k) * pdt + ENDDO + ENDDO + +c +! increment surface pressure + DO j = 1,ip1jmp1 + pps(j) = pps(j) + pdpfi(j) * pdt + ENDDO + +c DO iq = 1, 2 ! special Mars: no special treatment for water +c DO k = 1,llm +c DO j = 1,ip1jmp1 +c pq(j,k,iq)= pq(j,k,iq) + pdqfi(j,k,iq) * pdt +c pq(j,k,iq)= AMAX1( pq(j,k,iq), qtestw ) +c ENDDO +c ENDDO +c ENDDO + +! increment tracers + DO iq = 1, nq + DO k = 1,llm + DO j = 1,ip1jmp1 +! pq(j,k,iq)= pdqfi(j,k,iq) * pdt + pq(j,k,iq)= pq(j,k,iq) + pdqfi(j,k,iq) * pdt + pq(j,k,iq)= AMAX1( pq(j,k,iq), qtestt ) ! forbid negative tracer values + ENDDO + ENDDO + ENDDO +! print*,'MAJOR TRACER MOD in addfi for test' + + + DO ij = 1, iim + xpn(ij) = aire( ij ) * pps( ij ) + xps(ij) = aire(ij+ip1jm) * pps(ij+ip1jm ) + ENDDO + tpn = SSUM(iim,xpn,1)/apoln + tps = SSUM(iim,xps,1)/apols + + DO ij = 1, iip1 + pps ( ij ) = tpn + pps ( ij+ip1jm ) = tps + ENDDO + +! recompute mass: (to be synchronous with update of ps) + CALL pression ( ip1jmp1, ap, bp, pps, p ) + CALL massdair ( p , pmasse ) + + + + DO iq = 1, nq + DO k = 1, llm + DO ij = 1, iim + xpn(ij) = aire( ij ) * pq( ij ,k,iq) + xps(ij) = aire(ij+ip1jm) * pq(ij+ip1jm,k,iq) + ENDDO + tpn = SSUM(iim,xpn,1)/apoln + tps = SSUM(iim,xps,1)/apols + + DO ij = 1, iip1 + pq ( ij ,k,iq) = tpn + pq (ij+ip1jm,k,iq) = tps + ENDDO + ENDDO + ENDDO + + RETURN + END Index: /trunk/LMDZ.TITAN/libf/dyn3d/adv_h2o.F =================================================================== --- /trunk/LMDZ.TITAN/libf/dyn3d/adv_h2o.F (revision 1644) +++ /trunk/LMDZ.TITAN/libf/dyn3d/adv_h2o.F (revision 1644) @@ -0,0 +1,132 @@ + SUBROUTINE adv_h2o (nq,iq,q,w, pbaru, pbarv,dq) + + USE logic_mod, ONLY: forward,leapf + + IMPLICIT NONE + +c======================================================================= +c +c Auteur: P. Le Van / F.Forget +c ------- +c +c ******************************************************************** +c Transport d'un traceur q par shema amont (horiz), moy arithmetique (vert) +c (Shema classique pour l'humidite specifique LMD) +c ******************************************************************** +c nq,iq,q,pbaru,pbarv,w sont des arguments d'entree pour le s-pg .... +c dq sont des arguments de sortie pour le s-pg .... +c +c======================================================================= + + +#include "dimensions.h" +#include "paramet.h" + +c Arguments: +c ---------- + INTEGER nq,iq + REAL pbaru( ip1jmp1,llm ),pbarv( ip1jm,llm) + REAL q(ip1jmp1,llm,nq), dq( ip1jmp1,llm,nq ) + REAL w(ip1jmp1,llm) + +c Local: +c ------ + + INTEGER l,ij + + REAL qbyv( ip1jm,llm ), qbxu( ip1jmp1,llm ) + REAL wsur2(ip1jmp1),ww + REAL dqh( ip1jmp1,llm) + + EXTERNAL convflu + +c ---------------------------------------------------------------- +c -- calcul transport horiz. pour dq -- +c - - +c - shema ' amont ' pour l'humidite specifique q - +c ---------------------------------------------------------------- +c + IF( iq.GT.2 ) THEN + DO l = 1, llm + DO ij = 1, ip1jmp1 + dq(ij,l,iq) = 0. + ENDDO + ENDDO + RETURN + ENDIF + + + IF( forward.OR.leapf ) THEN + + DO 10 l = 1, llm + + DO 6 ij = iip2, ip1jm - 1 + + IF( pbaru(ij,l).GT.0. ) THEN + qbxu( ij,l ) = pbaru( ij,l ) * q( ij ,l,iq) + ELSE + qbxu( ij,l ) = pbaru( ij,l ) * q(ij +1 ,l,iq) + ENDIF + + 6 CONTINUE + +c ..... correction pour qbxu(iip1,j,l) ..... +c ... qbxu(iip1,j,l)= qbxu(1,j,l) ... + +CDIR$ IVDEP + DO 7 ij = iip1 +iip1, ip1jm, iip1 + qbxu( ij,l ) = qbxu( ij - iim, l ) + 7 CONTINUE + + DO 8 ij = 1, ip1jm + IF( pbarv(ij,l).GT.0. ) THEN + qbyv( ij,l ) = pbarv( ij,l ) * q(ij+iip1, l,iq) + ELSE + qbyv( ij,l ) = pbarv( ij,l ) * q( ij , l,iq) + ENDIF + 8 CONTINUE +c + 10 CONTINUE +c + +c stockage dans dqh de la convergence horiz.du flux d'humidite . +c ------------------------------------------------------------- +c + CALL convflu(qbxu, qbyv, llm, dqh ) + +c +c --------------------------------------------------------------- +c .... calcul des termes d'advection vertic.pour q .... +c (moyenne arithmetique) +c --------------------------------------------------------------- + +c calcul de - d( q * w )/ d(sigma) qu'on ajoute a dqh pour calculer dq +c + + DO 20 l = 1,llmm1 + +c preliminaires: +c + DO 11 ij = 1,ip1jmp1 + wsur2( ij ) = - 0.5 * w( ij,l+1 ) + 11 CONTINUE + + + DO 12 ij = 1,ip1jmp1 + ww = wsur2(ij) * ( q(ij,l,iq) + q(ij,l+1,iq) ) + dq (ij, l ,iq) = dqh(ij, l ) - ww + dqh(ij,l+1 ) = dqh(ij,l+1) + ww + 12 CONTINUE +c + 20 CONTINUE +c +c special dq (ij,llm) (qui n'a pas ete rempli ! ) +c + DO ij = 1,ip1jmp1 + dq( ij,llm,iq ) = dqh( ij,llm ) + END DO + + END IF + + RETURN + END Index: /trunk/LMDZ.TITAN/libf/dyn3d/advect.F =================================================================== --- /trunk/LMDZ.TITAN/libf/dyn3d/advect.F (revision 1644) +++ /trunk/LMDZ.TITAN/libf/dyn3d/advect.F (revision 1644) @@ -0,0 +1,164 @@ + SUBROUTINE advect(ucov,vcov,teta,w,massebx,masseby,du,dv,dteta) + + USE comconst_mod, ONLY: daysec + USE logic_mod, ONLY: conser + USE ener_mod, ONLY: gtot + + IMPLICIT NONE +c======================================================================= +c +c Auteurs: P. Le Van , Fr. Hourdin . +c ------- +c +c Objet: +c ------ +c +c ************************************************************* +c .... calcul des termes d'advection vertic.pour u,v,teta,q ... +c ************************************************************* +c ces termes sont ajoutes a du,dv,dteta et dq . +c Modif F.Forget 03/94 : on retire q de advect +c +c======================================================================= +c----------------------------------------------------------------------- +c Declarations: +c ------------- + +#include "dimensions.h" +#include "paramet.h" +#include "comgeom.h" + +c Arguments: +c ---------- + + REAL vcov(ip1jm,llm),ucov(ip1jmp1,llm),teta(ip1jmp1,llm) + REAL massebx(ip1jmp1,llm),masseby(ip1jm,llm),w(ip1jmp1,llm) + REAL dv(ip1jm,llm),du(ip1jmp1,llm),dteta(ip1jmp1,llm) + +c Local: +c ------ + + REAL uav(ip1jmp1,llm),vav(ip1jm,llm),wsur2(ip1jmp1) + REAL unsaire2(ip1jmp1), ge(ip1jmp1) + REAL deuxjour, ww, gt, uu, vv + + INTEGER ij,l + + EXTERNAL SSUM + REAL SSUM + +c----------------------------------------------------------------------- +c 2. Calculs preliminaires: +c ------------------------- + + IF (conser) THEN + deuxjour = 2. * daysec + + DO 1 ij = 1, ip1jmp1 + unsaire2(ij) = unsaire(ij) * unsaire(ij) + 1 CONTINUE + END IF + + +c------------------ -yy ---------------------------------------------- +c . Calcul de u + + DO l=1,llm + DO ij = iip2, ip1jmp1 + uav(ij,l) = 0.25 * ( ucov(ij,l) + ucov(ij-iip1,l) ) + ENDDO + DO ij = iip2, ip1jm + uav(ij,l) = uav(ij,l) + uav(ij+iip1,l) + ENDDO + DO ij = 1, iip1 + uav(ij ,l) = 0. + uav(ip1jm+ij,l) = 0. + ENDDO + ENDDO + +c------------------ -xx ---------------------------------------------- +c . Calcul de v + + DO l=1,llm + DO ij = 2, ip1jm + vav(ij,l) = 0.25 * ( vcov(ij,l) + vcov(ij-1,l) ) + ENDDO + DO ij = 1,ip1jm,iip1 + vav(ij,l) = vav(ij+iim,l) + ENDDO + DO ij = 1, ip1jm-1 + vav(ij,l) = vav(ij,l) + vav(ij+1,l) + ENDDO + DO ij = 1, ip1jm, iip1 + vav(ij+iim,l) = vav(ij,l) + ENDDO + ENDDO + +c----------------------------------------------------------------------- + +c + DO 20 l = 1, llmm1 + + +c ...... calcul de - w/2. au niveau l+1 ....... + + DO 5 ij = 1, ip1jmp1 + wsur2( ij ) = - 0.5 * w( ij,l+1 ) + 5 CONTINUE + + +c ..................... calcul pour du .................. + + DO 6 ij = iip2 ,ip1jm-1 + ww = wsur2 ( ij ) + wsur2( ij+1 ) + uu = 0.5 * ( ucov(ij,l) + ucov(ij,l+1) ) + du(ij,l) = du(ij,l) - ww * ( uu - uav(ij, l ) )/massebx(ij, l ) + du(ij,l+1)= du(ij,l+1) + ww * ( uu - uav(ij,l+1) )/massebx(ij,l+1) + 6 CONTINUE + +c ..... correction pour du(iip1,j,l) ........ +c ..... du(iip1,j,l)= du(1,j,l) ..... + +CDIR$ IVDEP + DO 7 ij = iip1 +iip1, ip1jm, iip1 + du( ij, l ) = du( ij -iim, l ) + du( ij,l+1 ) = du( ij -iim,l+1 ) + 7 CONTINUE + +c ................. calcul pour dv ..................... + + DO 8 ij = 1, ip1jm + ww = wsur2( ij+iip1 ) + wsur2( ij ) + vv = 0.5 * ( vcov(ij,l) + vcov(ij,l+1) ) + dv(ij,l) = dv(ij, l ) - ww * (vv - vav(ij, l ) )/masseby(ij, l ) + dv(ij,l+1)= dv(ij,l+1) + ww * (vv - vav(ij,l+1) )/masseby(ij,l+1) + 8 CONTINUE + +c + +c ............................................................ +c ............... calcul pour dh ................... +c ............................................................ + +c ---z +c calcul de - d( teta * w ) qu'on ajoute a dh +c ............... + + DO 15 ij = 1, ip1jmp1 + ww = wsur2(ij) * (teta(ij,l) + teta(ij,l+1) ) + dteta(ij, l ) = dteta(ij, l ) - ww + dteta(ij,l+1) = dteta(ij,l+1) + ww + 15 CONTINUE + + IF( conser) THEN + DO 17 ij = 1,ip1jmp1 + ge(ij) = wsur2(ij) * wsur2(ij) * unsaire2(ij) + 17 CONTINUE + gt = SSUM( ip1jmp1,ge,1 ) + gtot(l) = deuxjour * SQRT( gt/ip1jmp1 ) + END IF + + 20 CONTINUE + + RETURN + END Index: /trunk/LMDZ.TITAN/libf/dyn3d/advtrac.h =================================================================== --- /trunk/LMDZ.TITAN/libf/dyn3d/advtrac.h (revision 1644) +++ /trunk/LMDZ.TITAN/libf/dyn3d/advtrac.h (revision 1644) @@ -0,0 +1,7 @@ +! +! Tracers in the dynamics (E.M, oct.2008) +! + COMMON/advtr/iadv,tnom + INTEGER :: iadv(nqmx) ! tracer advection scheme number + CHARACTER (len=20) :: tnom(nqmx) ! tracer name + ! NB: tnom length should be compatible with noms() in physics ... Index: /trunk/LMDZ.TITAN/libf/dyn3d/amont.F =================================================================== --- /trunk/LMDZ.TITAN/libf/dyn3d/amont.F (revision 1644) +++ /trunk/LMDZ.TITAN/libf/dyn3d/amont.F (revision 1644) @@ -0,0 +1,126 @@ + SUBROUTINE amont (nq,iq,q,w, pbaru, pbarv,dq) + + USE logic_mod, ONLY: forward,leapf + + IMPLICIT NONE + +c======================================================================= +c +c Auteur: P. Le Van / F.Forget +c ------- +c +c ******************************************************************** +c Transport d'un traceur q par shema amont 3D +c ******************************************************************** +c nq,iq,q,pbaru,pbarv,w sont des arguments d'entree pour le s-pg .... +c dq sont des arguments de sortie pour le s-pg .... +c +c======================================================================= + + +#include "dimensions.h" +#include "paramet.h" + +c Arguments: +c ---------- + INTEGER nq,iq + REAL pbaru( ip1jmp1,llm ),pbarv( ip1jm,llm) + REAL q(ip1jmp1,llm,nq), dq( ip1jmp1,llm,nq ) + REAL w(ip1jmp1,llm) + +c Local: +c ------ + + INTEGER l,ij + + REAL qbyv( ip1jm,llm ), qbxu( ip1jmp1,llm ) + REAL ww + REAL dqh( ip1jmp1,llm) + + EXTERNAL convflu + +c ---------------------------------------------------------------- +c -- calcul transport horiz. pour dq -- +c - - +c - shema ' amont ' - +c ---------------------------------------------------------------- +c + IF( iq.GT.2 ) THEN + DO l = 1, llm + DO ij = 1, ip1jmp1 + dq(ij,l,iq) = 0. + ENDDO + ENDDO + RETURN + ENDIF + +c + IF( forward.OR.leapf ) THEN + + DO 10 l = 1, llm + + DO 6 ij = iip2, ip1jm - 1 + IF( pbaru(ij,l).GT.0. ) THEN + qbxu( ij,l ) = pbaru( ij,l ) * q( ij ,l,iq) + ELSE + qbxu( ij,l ) = pbaru( ij,l ) * q(ij +1 ,l,iq) + ENDIF + 6 CONTINUE + +c ..... correction pour qbxu(iip1,j,l) ..... +c ... qbxu(iip1,j,l)= qbxu(1,j,l) ... + +CDIR$ IVDEP + DO 7 ij = iip1 +iip1, ip1jm, iip1 + qbxu( ij,l ) = qbxu( ij - iim, l ) + 7 CONTINUE + + DO 8 ij = 1, ip1jm + IF( pbarv(ij,l).GT.0. ) THEN + qbyv( ij,l ) = pbarv( ij,l ) * q(ij+iip1, l,iq) + ELSE + qbyv( ij,l ) = pbarv( ij,l ) * q( ij , l,iq) + ENDIF + 8 CONTINUE +c + 10 CONTINUE + +c stockage dans dqh de la convergence horiz.du flux d'humidite . +c ------------------------------------------------------------- +c + CALL convflu(qbxu, qbyv, llm, dqh ) + + +c --------------------------------------------------------------- +c .... calcul des termes d'advection vertic.pour q. Shema amont +c --------------------------------------------------------------- + +c calcul de - d( q * w ) qu'on ajoute a dqh pour calculer dq +c + + DO 20 l = 1,llmm1 +c + DO 11 ij = 1,ip1jmp1 + IF( w(ij,l+1).LT.0. ) THEN + ww = - w( ij,l+1 ) * q( ij, l ,iq) + ELSE + ww = - w( ij,l+1 ) * q( ij, l +1,iq) + ENDIF + + dq (ij, l ,iq ) = dqh(ij, l ) - ww + dqh(ij,l+1 ) = dqh(ij,l+1) + ww + 11 CONTINUE +c + 20 CONTINUE + +c +c special dq (ij,llm) (qui n'a pas ete rempli ! ) +c + DO ij = 1,ip1jmp1 + dq( ij,llm,iq ) = dqh( ij,llm ) + END DO + + END IF + + RETURN + END Index: /trunk/LMDZ.TITAN/libf/dyn3d/amont_qsat.F =================================================================== --- /trunk/LMDZ.TITAN/libf/dyn3d/amont_qsat.F (revision 1644) +++ /trunk/LMDZ.TITAN/libf/dyn3d/amont_qsat.F (revision 1644) @@ -0,0 +1,151 @@ + SUBROUTINE amont_qsat (nq,iq,q,teta,pk,w, pbaru, pbarv,dq) + + USE comvert_mod, ONLY: preff + USE comconst_mod, ONLY: kappa,cpp + + IMPLICIT NONE + +c======================================================================= +c +c Auteur: P. Le Van / F.Forget +c ------- +c +c ******************************************************************** +c Transport d'un traceur q par shema amont 3D avec contrainte thermi- +c -que +c ******************************************************************** +c nq,iq,q,pbaru,pbarv,w sont des arguments d'entree pour le s-pg .... +c dq sont des arguments de sortie pour le s-pg .... +c +c======================================================================= + + +#include "dimensions.h" +#include "paramet.h" +#include "comgeom.h" + +c Arguments: +c ---------- + INTEGER nq,iq + REAL pbaru( ip1jmp1,llm ),pbarv( ip1jm,llm) + REAL q(ip1jmp1,llm,nq), dq( ip1jmp1,llm,nq ) + REAL teta(ip1jmp1,llm),pk(ip1jmp1,llm) + REAL w(ip1jmp1,llm) + +c Local: +c ------ + + INTEGER l,ij + + REAL qbyv( ip1jm,llm ), qbxu( ip1jmp1,llm ) + REAL ww + REAL dqh( ip1jmp1,llm) + + REAL ptarg,pdelarg,foeew,zdelta + REAL rtt,retv,r3les,r3ies,r4les,r4ies,unskappa,play + REAL tempe(ip1jmp1),qsat(ip1jmp1,llm),r2es + + EXTERNAL convflu + + FOEEW ( PTARG,PDELARG ) = EXP ( + * (R3LES*(1.-PDELARG)+R3IES*PDELARG) * (PTARG-RTT) + * / (PTARG-(R4LES*(1.-PDELARG)+R4IES*PDELARG)) ) +C + + +c ---------------------------------------------------------------- +c -- calcul transport horiz. pour dq -- +c - - +c - shema ' amont ' - +c ---------------------------------------------------------------- + + r2es = 380.11733 + r3les = 17.269 + r3ies = 21.875 + r4les = 35.86 + r4ies = 7.66 + retv = 0.6077667 + rtt = 273.16 + + unskappa = 1./ kappa + + DO l = 1, llm + DO ij = 1, ip1jmp1 + tempe(ij) = teta(ij,l) * pk(ij,l) /cpp + ENDDO + DO ij = 1, ip1jmp1 + zdelta = MAX( 0., SIGN(1., rtt - tempe(ij)) ) + play = preff * (pk(ij,l)/cpp) ** unskappa + qsat(ij,l) = MIN(0.5, r2es* FOEEW(tempe(ij),zdelta) / play ) + qsat(ij,l) = qsat(ij,l) / ( 1. - retv * qsat(ij,l) ) + ENDDO + ENDDO + + DO 10 l = 1, llm + + DO 6 ij = iip2, ip1jm - 1 + IF( pbaru(ij,l).GT.0 ) THEN + qbxu( ij,l ) = pbaru( ij,l ) * MIN( q(ij,l,iq),qsat(ij +1,l)) + ELSE + qbxu( ij,l ) = pbaru( ij,l ) * MIN( q(ij+1,l,iq),qsat(ij,l) ) + ENDIF + + 6 CONTINUE + +c ..... correction pour qbxu(iip1,j,l) ..... +c ... qbxu(iip1,j,l)= qbxu(1,j,l) ... + +CDIR$ IVDEP + DO 7 ij = iip1 +iip1, ip1jm, iip1 + qbxu( ij,l ) = qbxu( ij - iim, l ) + 7 CONTINUE + + DO 8 ij = 1, ip1jm + IF( pbarv(ij,l).GT.0 ) THEN + qbyv(ij,l) = pbarv( ij,l ) * MIN( q(ij+iip1,l,iq),qsat(ij,l) ) + ELSE + qbyv(ij,l) = pbarv( ij,l ) * MIN( q(ij,l,iq),qsat(ij+iip1,l) ) + ENDIF + 8 CONTINUE +c + 10 CONTINUE + +c stockage dans dqh de la convergence horiz.du flux d'humidite . +c ------------------------------------------------------------- +c + CALL convflu(qbxu, qbyv, llm, dqh ) + + +c --------------------------------------------------------------- +c .... calcul des termes d'advection vertic.pour q. Shema amont +c --------------------------------------------------------------- + +c calcul de - d( q * w )/ d(sigma) qu'on ajoute a dqh pour calculer dq +c + + DO 20 l = 1,llmm1 +c + DO 11 ij = 1,ip1jmp1 + IF( w(ij,l+1).LT.0. ) THEN + ww = -w(ij,l+1) * MIN( q(ij, l ,iq),qsat(ij ,l+1) ) + ELSE + ww = -w(ij,l+1) * MIN( q(ij,l+1,iq),qsat(ij , l ) ) + ENDIF + +cc .... Modif . P. Le Van (26/09/95) .... + + dq (ij, l ,iq ) = dqh(ij, l ) - ww + dqh(ij,l+1 ) = dqh(ij,l+1) + ww + 11 CONTINUE +c + 20 CONTINUE + +c +c special dq (ij,llm) (qui n'a pas ete rempli ! ) +c + DO ij = 1,ip1jmp1 + dq( ij,llm,iq ) = dqh( ij,llm ) + END DO + + RETURN + END Index: /trunk/LMDZ.TITAN/libf/dyn3d/bernoui.F =================================================================== --- /trunk/LMDZ.TITAN/libf/dyn3d/bernoui.F (revision 1644) +++ /trunk/LMDZ.TITAN/libf/dyn3d/bernoui.F (revision 1644) @@ -0,0 +1,55 @@ + SUBROUTINE bernoui (ngrid,nlay,pphi,pecin,pbern) + IMPLICIT NONE + +c======================================================================= +c +c Auteur: P. Le Van +c ------- +c +c Objet: +c ------ +c calcul de la fonction de Bernouilli aux niveaux s ..... +c phi et ecin sont des arguments d'entree pour le s-pg ....... +c bern est un argument de sortie pour le s-pg ...... +c +c fonction de Bernouilli = bern = filtre de( geopotentiel + +c energ.cinet.) +c +c======================================================================= +c +c----------------------------------------------------------------------- +c Decalrations: +c ------------- +c +#include "dimensions.h" +#include "paramet.h" +c +c Arguments: +c ---------- +c + INTEGER nlay,ngrid + REAL pphi(ngrid*nlay),pecin(ngrid*nlay),pbern(ngrid*nlay) +c +c Local: +c ------ +c + INTEGER ijl + EXTERNAL filtreg +c +c----------------------------------------------------------------------- +c calcul de Bernouilli: +c --------------------- +c + DO 4 ijl = 1,ngrid*nlay + pbern( ijl ) = pphi( ijl ) + pecin( ijl ) + 4 CONTINUE +c +c----------------------------------------------------------------------- +c filtre: +c ------- +c + CALL filtreg( pbern, jjp1, llm, 2,1, .true., 1 ) +c +c----------------------------------------------------------------------- + RETURN + END Index: /trunk/LMDZ.TITAN/libf/dyn3d/caldyn.F =================================================================== --- /trunk/LMDZ.TITAN/libf/dyn3d/caldyn.F (revision 1644) +++ /trunk/LMDZ.TITAN/libf/dyn3d/caldyn.F (revision 1644) @@ -0,0 +1,125 @@ + SUBROUTINE caldyn + $ (itau,ucov,vcov,teta,ps,masse,pk,pkf,phis , + $ phi,conser,du,dv,dteta,dp,w,pbaru,pbarv,time ) + + USE comvert_mod, ONLY: ap,bp + + IMPLICIT NONE + +c======================================================================= +c +c Auteur : P. Le Van +c +c Objet: +c ------ +c +c Calcul des tendances dynamiques. +c +c Modif 04/93 F.Forget +c======================================================================= + +c----------------------------------------------------------------------- +c 0. Declarations: +c ---------------- + +#include "dimensions.h" +#include "paramet.h" +#include "comgeom.h" + +c Arguments: +c ---------- + + LOGICAL conser + + INTEGER itau + REAL vcov(ip1jm,llm),ucov(ip1jmp1,llm),teta(ip1jmp1,llm) + REAL ps(ip1jmp1),phis(ip1jmp1) + REAL pk(iip1,jjp1,llm),pkf(ip1jmp1,llm) + REAL vcont(ip1jm,llm),ucont(ip1jmp1,llm) + REAL phi(ip1jmp1,llm),masse(ip1jmp1,llm) + REAL dv(ip1jm,llm),du(ip1jmp1,llm) + REAL dteta(ip1jmp1,llm),dp(ip1jmp1) + REAL pbaru(ip1jmp1,llm),pbarv(ip1jm,llm) + REAL time + +c Local: +c ------ + + REAL ang(ip1jmp1,llm),p(ip1jmp1,llmp1) + REAL massebx(ip1jmp1,llm),masseby(ip1jm,llm),psexbarxy(ip1jm) + REAL vorpot(ip1jm,llm) + REAL w(ip1jmp1,llm),ecin(ip1jmp1,llm),convm(ip1jmp1,llm) + REAL bern(ip1jmp1,llm) + REAL massebxy(ip1jm,llm) + + + INTEGER ij,l + EXTERNAL advect,bernoui,convmas,covcont,dteta1,dudv1,dudv2, + * enercin,flumass,tourpot,vitvert,sortvarc, + * pression,psextbar,massdair + +c----------------------------------------------------------------------- +c Calcul des tendances dynamiques: +c -------------------------------- + + CALL covcont ( llm , ucov , vcov , ucont, vcont ) + CALL pression ( ip1jmp1, ap , bp , ps , p ) + CALL psextbar ( ps , psexbarxy ) + CALL massdair ( p , masse ) + CALL massbar ( masse, massebx , masseby ) + call massbarxy( masse, massebxy ) + CALL flumass ( massebx, masseby , vcont, ucont ,pbaru, pbarv ) + CALL dteta1 ( teta , pbaru , pbarv, dteta ) + CALL convmas ( pbaru, pbarv , convm ) + + DO ij =1, ip1jmp1 + dp( ij ) = convm( ij,1 ) / airesurg( ij ) + ENDDO +c write (38,*) "convm: ",convm +c write (38,*) "airesurg: ",airesurg +c write (38,*) "iip1: ",iip1 +c close (38) + + + CALL vitvert ( convm , w ) + CALL tourpot ( vcov , ucov , massebxy , vorpot ) + CALL dudv1 ( vorpot , pbaru , pbarv , du , dv ) + CALL enercin ( vcov , ucov , vcont , ucont , ecin ) + CALL bernoui ( ip1jmp1, llm , phi , ecin , bern ) + CALL dudv2 ( teta , pkf , bern , du , dv ) + + + DO l=1,llm + DO ij=1,ip1jmp1 + ang(ij,l) = ucov(ij,l) + constang(ij) + ENDDO + ENDDO + + + CALL advect( ang, vcov, teta, w, massebx, masseby, du, dv,dteta ) + +C WARNING probleme de peridocite de dv sur les PC/linux. Pb d'arrondi +C probablement. Observe sur le code compile avec pgf90 3.0-1 + + DO l = 1, llm + DO ij = 1, ip1jm, iip1 + IF( dv(ij,l).NE.dv(ij+iim,l) ) THEN +c PRINT *,'!!!ATTENTION!!! probleme de periodicite sur vcov', +c , ' dans caldyn' +c PRINT *,' l, ij = ', l, ij, ij+iim,dv(ij+iim,l),dv(ij,l) + dv(ij+iim,l) = dv(ij,l) + endif + enddo + enddo +c----------------------------------------------------------------------- +c Sorties eventuelles des variables de controle: +c ---------------------------------------------- +! write(*,*) 'CALDYN: itau=',itau,' conser=',conser + IF( conser ) THEN + CALL sortvarc + $ ( itau,ucov,teta,ps,masse,pk,phis,vorpot,phi,bern,dp,time,vcov ) + + ENDIF + + RETURN + END Index: /trunk/LMDZ.TITAN/libf/dyn3d/caldyn0.F =================================================================== --- /trunk/LMDZ.TITAN/libf/dyn3d/caldyn0.F (revision 1644) +++ /trunk/LMDZ.TITAN/libf/dyn3d/caldyn0.F (revision 1644) @@ -0,0 +1,88 @@ + SUBROUTINE caldyn0 + $ (itau,ucov,vcov,teta,ps,masse,pk,phis , + $ phi,w,pbaru,pbarv,time ) + + USE comvert_mod, ONLY: ap,bp + + IMPLICIT NONE + +c======================================================================= +c +c Auteur : P. Le Van +c +c Objet: +c ------ +c +c Calcul des tendances dynamiques. +c +c Modif 04/93 F.Forget +c======================================================================= + +c----------------------------------------------------------------------- +c 0. Declarations: +c ---------------- + +#include "dimensions.h" +#include "paramet.h" +#include "comgeom.h" + +c Arguments: +c ---------- + + INTEGER itau + REAL vcov(ip1jm,llm),ucov(ip1jmp1,llm),teta(ip1jmp1,llm) + REAL ps(ip1jmp1),phis(ip1jmp1) + REAL pk(iip1,jjp1,llm) + REAL vcont(ip1jm,llm),ucont(ip1jmp1,llm) + REAL phi(ip1jmp1,llm),masse(ip1jmp1,llm) + REAL pbaru(ip1jmp1,llm),pbarv(ip1jm,llm) + REAL time + +c Local: +c ------ + + REAL ang(ip1jmp1,llm),p(ip1jmp1,llmp1) + REAL massebx(ip1jmp1,llm),masseby(ip1jm,llm),psexbarxy(ip1jm) + REAL vorpot(ip1jm,llm) + REAL w(ip1jmp1,llm),ecin(ip1jmp1,llm),convm(ip1jmp1,llm) + REAL bern(ip1jmp1,llm) + REAL massebxy(ip1jm,llm), dp(ip1jmp1) + + + INTEGER ij,l + EXTERNAL advect,bernoui,convmas,covcont , + * enercin,flumass,tourpot,vitvert,sortvarc,traceur, + * pression,psextbar,massdair + +c----------------------------------------------------------------------- +c Calcul des tendances dynamiques: +c -------------------------------- + CALL covcont (llm,ucov,vcov,ucont,vcont) + CALL pression (ip1jmp1,ap,bp,ps,p) + CALL psextbar (ps,psexbarxy) + CALL massdair (p,masse) + CALL massbar (masse,massebx,masseby) + CALL massbarxy(masse,massebxy) + CALL flumass (massebx,masseby,vcont,ucont,pbaru,pbarv) + CALL convmas (pbaru,pbarv,convm) + + DO ij =1, ip1jmp1 + dp( ij ) = convm( ij,1 ) / airesurg( ij ) + ENDDO + + CALL vitvert (convm,w) + CALL tourpot (vcov,ucov,massebxy,vorpot) + CALL enercin (vcov,ucov,vcont,ucont,ecin) + CALL bernoui (ip1jmp1,llm,phi,ecin,bern) + + DO l=1,llm + DO ij=1,ip1jmp1 + ang(ij,l) = ucov(ij,l) + constang(ij) + ENDDO + ENDDO + + CALL sortvarc0 + $ (itau,ucov,teta,ps,masse,pk,phis,vorpot,phi,bern,dp,time,vcov) + + RETURN + END Index: /trunk/LMDZ.TITAN/libf/dyn3d/coefpoly.F =================================================================== --- /trunk/LMDZ.TITAN/libf/dyn3d/coefpoly.F (revision 1644) +++ /trunk/LMDZ.TITAN/libf/dyn3d/coefpoly.F (revision 1644) @@ -0,0 +1,38 @@ +c $Header: /users/lmdz/cvsroot/LMDZ.3.3/libf/dyn3d/coefpoly.F,v 1.1 2001/04/23 08:43:28 lmdz Exp $ + SUBROUTINE coefpoly ( Xf1, Xf2, Xprim1, Xprim2, xtild1,xtild2 , + , a0,a1,a2,a3 ) + IMPLICIT NONE +c +c ... Auteur : P. Le Van ... +c +c +c Calcul des coefficients a0, a1, a2, a3 du polynome de degre 3 qui +c satisfait aux 4 equations suivantes : + +c a0 + a1*xtild1 + a2*xtild1*xtild1 + a3*xtild1*xtild1*xtild1 = Xf1 +c a0 + a1*xtild2 + a2*xtild2*xtild2 + a3*xtild2*xtild2*xtild2 = Xf2 +c a1 + 2.*a2*xtild1 + 3.*a3*xtild1*xtild1 = Xprim1 +c a1 + 2.*a2*xtild2 + 3.*a3*xtild2*xtild2 = Xprim2 + +c On en revient a resoudre un systeme de 4 equat.a 4 inconnues a0,a1,a2,a3 + + REAL*8 Xf1, Xf2,Xprim1,Xprim2, xtild1,xtild2, xi + REAL*8 Xfout, Xprim + REAL*8 a1,a2,a3,a0, xtil1car, xtil2car,derr,x1x2car + + xtil1car = xtild1 * xtild1 + xtil2car = xtild2 * xtild2 + + derr= 2. *(Xf2-Xf1)/( xtild1-xtild2) + + x1x2car = ( xtild1-xtild2)*(xtild1-xtild2) + + a3 = (derr + Xprim1+Xprim2 )/x1x2car + a2 = ( Xprim1 - Xprim2 + 3.* a3 * ( xtil2car-xtil1car ) ) / + / ( 2.* ( xtild1 - xtild2 ) ) + + a1 = Xprim1 -3.* a3 * xtil1car -2.* a2 * xtild1 + a0 = Xf1 - a3 * xtild1* xtil1car -a2 * xtil1car - a1 *xtild1 + + RETURN + END Index: /trunk/LMDZ.TITAN/libf/dyn3d/comav.h =================================================================== --- /trunk/LMDZ.TITAN/libf/dyn3d/comav.h (revision 1644) +++ /trunk/LMDZ.TITAN/libf/dyn3d/comav.h (revision 1644) @@ -0,0 +1,3 @@ + COMMON/comav/period_av,time0_av + REAL period_av ! periode de stockage en jour + REAL time0_av ! date initiale de stokage en jour Index: /trunk/LMDZ.TITAN/libf/dyn3d/comconst_mod.F90 =================================================================== --- /trunk/LMDZ.TITAN/libf/dyn3d/comconst_mod.F90 (revision 1644) +++ /trunk/LMDZ.TITAN/libf/dyn3d/comconst_mod.F90 (revision 1644) @@ -0,0 +1,11 @@ +MODULE comconst_mod + +IMPLICIT NONE + +INTEGER im,jm,lllm,imp1,jmp1,lllmm1,lllmp1,lcl +REAL dtvr,daysec +REAL pi,dtphys,dtdiss,rad,r,cpp,kappa +REAL cotot,unsim,g,omeg + + +END MODULE comconst_mod Index: /trunk/LMDZ.TITAN/libf/dyn3d/comdiss.h =================================================================== --- /trunk/LMDZ.TITAN/libf/dyn3d/comdiss.h (revision 1644) +++ /trunk/LMDZ.TITAN/libf/dyn3d/comdiss.h (revision 1644) @@ -0,0 +1,12 @@ +c----------------------------------------------------------------------- +c INCLUDE 'comdiss.h' + + INTEGER niter + REAL tetau(llm),tetah(llm),cdivu,cdivh,crot + LOGICAL dissipst + + COMMON/comdissi/niter + COMMON/comdissr/tetau,tetah,cdivu,cdivh,crot + COMMON/comdissl/dissipst + +c----------------------------------------------------------------------- Index: /trunk/LMDZ.TITAN/libf/dyn3d/comdissip.h =================================================================== --- /trunk/LMDZ.TITAN/libf/dyn3d/comdissip.h (revision 1644) +++ /trunk/LMDZ.TITAN/libf/dyn3d/comdissip.h (revision 1644) @@ -0,0 +1,12 @@ +!----------------------------------------------------------------------- +! INCLUDE dissip.h + + COMMON/comdissip/ & + & niterdis,coefdis,tetavel,tetatemp,gamdissip + + + INTEGER niterdis + + REAL tetavel,tetatemp,coefdis,gamdissip + +!----------------------------------------------------------------------- Index: /trunk/LMDZ.TITAN/libf/dyn3d/comdissipn.h =================================================================== --- /trunk/LMDZ.TITAN/libf/dyn3d/comdissipn.h (revision 1644) +++ /trunk/LMDZ.TITAN/libf/dyn3d/comdissipn.h (revision 1644) @@ -0,0 +1,13 @@ +c----------------------------------------------------------------------- +c INCLUDE comdissipn.h + + REAL tetaudiv, tetaurot, tetah, cdivu, crot, cdivh +c + COMMON/comdissipn/ tetaudiv(llm),tetaurot(llm),tetah(llm) , + 1 cdivu, crot, cdivh + +c +c Les parametres de ce common proviennent des calculs effectues dans +c Inidissip . +c +c----------------------------------------------------------------------- Index: /trunk/LMDZ.TITAN/libf/dyn3d/comdissnew.h =================================================================== --- /trunk/LMDZ.TITAN/libf/dyn3d/comdissnew.h (revision 1644) +++ /trunk/LMDZ.TITAN/libf/dyn3d/comdissnew.h (revision 1644) @@ -0,0 +1,15 @@ +c----------------------------------------------------------------------- +c INCLUDE comdissnew.h + + COMMON/comdissnew/ lstardis,nitergdiv,nitergrot,niterh,tetagdiv, + 1 tetagrot,tetatemp,coefdis + + LOGICAL lstardis + INTEGER nitergdiv, nitergrot, niterh + REAL tetagdiv, tetagrot, tetatemp, coefdis + +c +c ... Les parametres de ce common comdissnew sont lues par defrun_new +c sur le fichier run.def .... +c +c----------------------------------------------------------------------- Index: /trunk/LMDZ.TITAN/libf/dyn3d/comgeom.h =================================================================== --- /trunk/LMDZ.TITAN/libf/dyn3d/comgeom.h (revision 1644) +++ /trunk/LMDZ.TITAN/libf/dyn3d/comgeom.h (revision 1644) @@ -0,0 +1,36 @@ +! +! Warning, these commons are also defined in comgeom2.h, so be careful +! about possible mismatches if you modify either file. +! For Fortran 77/Fortran 90 compliance always use line continuation +! symbols '&' in columns 73 and 6 +! +!CDK comgeom + COMMON/comgeom/ & + & cu(ip1jmp1),cv(ip1jm),unscu2(ip1jmp1),unscv2(ip1jm), & + & aire(ip1jmp1),airesurg(ip1jmp1),aireu(ip1jmp1), & + & airev(ip1jm),unsaire(ip1jmp1),apoln,apols, & + & unsairez(ip1jm),airuscv2(ip1jm),airvscu2(ip1jm), & + & aireij1(ip1jmp1),aireij2(ip1jmp1),aireij3(ip1jmp1), & + & aireij4(ip1jmp1),alpha1(ip1jmp1),alpha2(ip1jmp1), & + & alpha3(ip1jmp1),alpha4(ip1jmp1),alpha1p2(ip1jmp1), & + & alpha1p4(ip1jmp1),alpha2p3(ip1jmp1),alpha3p4(ip1jmp1), & + & fext(ip1jm),constang(ip1jmp1),rlatu(jjp1),rlatv(jjm), & + & rlonu(iip1),rlonv(iip1),cuvsurcv(ip1jm),cvsurcuv(ip1jm), & + & cvusurcu(ip1jmp1),cusurcvu(ip1jmp1),cuvscvgam1(ip1jm), & + & cuvscvgam2(ip1jm),cvuscugam1(ip1jmp1), & + & cvuscugam2(ip1jmp1),cvscuvgam(ip1jm),cuscvugam(ip1jmp1), & + & unsapolnga1,unsapolnga2,unsapolsga1,unsapolsga2, & + & unsair_gam1(ip1jmp1),unsair_gam2(ip1jmp1),unsairz_gam(ip1jm), & + & aivscu2gam(ip1jm),aiuscv2gam(ip1jm),xprimu(iip1),xprimv(iip1) + +! + REAL & + & cu,cv,unscu2,unscv2,aire,airesurg,aireu,airev,unsaire,apoln ,& + & apols,unsairez,airuscv2,airvscu2,aireij1,aireij2,aireij3,aireij4,& + & alpha1,alpha2,alpha3,alpha4,alpha1p2,alpha1p4,alpha2p3,alpha3p4 ,& + & fext,constang,rlatu,rlatv,rlonu,rlonv,cuvscvgam1,cuvscvgam2 ,& + & cvuscugam1,cvuscugam2,cvscuvgam,cuscvugam,unsapolnga1,unsapolnga2& + & ,unsapolsga1,unsapolsga2,unsair_gam1,unsair_gam2,unsairz_gam ,& + & aivscu2gam ,aiuscv2gam,cuvsurcv,cvsurcuv,cvusurcu,cusurcvu,xprimu& + & , xprimv +! Index: /trunk/LMDZ.TITAN/libf/dyn3d/comgeom2.h =================================================================== --- /trunk/LMDZ.TITAN/libf/dyn3d/comgeom2.h (revision 1644) +++ /trunk/LMDZ.TITAN/libf/dyn3d/comgeom2.h (revision 1644) @@ -0,0 +1,37 @@ +! +! Warning, these commons are also defined in comgeom.h, so be careful +! about possible mismatches if you modify either file. +! For Fortran 77/Fortran 90 compliance always use line continuation +! symbols '&' in columns 73 and 6 +! +!CDK comgeom2 + COMMON/comgeom/ & + & cu(iip1,jjp1),cv(iip1,jjm),unscu2(iip1,jjp1),unscv2(iip1,jjm) , & + & aire(iip1,jjp1),airesurg(iip1,jjp1),aireu(iip1,jjp1) , & + & airev(iip1,jjm),unsaire(iip1,jjp1),apoln,apols , & + & unsairez(iip1,jjm),airuscv2(iip1,jjm),airvscu2(iip1,jjm) , & + & aireij1(iip1,jjp1),aireij2(iip1,jjp1),aireij3(iip1,jjp1) , & + & aireij4(iip1,jjp1),alpha1(iip1,jjp1),alpha2(iip1,jjp1) , & + & alpha3(iip1,jjp1),alpha4(iip1,jjp1),alpha1p2(iip1,jjp1) , & + & alpha1p4(iip1,jjp1),alpha2p3(iip1,jjp1),alpha3p4(iip1,jjp1) , & + & fext(iip1,jjm),constang(iip1,jjp1), rlatu(jjp1),rlatv(jjm), & + & rlonu(iip1),rlonv(iip1),cuvsurcv(iip1,jjm),cvsurcuv(iip1,jjm) , & + & cvusurcu(iip1,jjp1),cusurcvu(iip1,jjp1) , & + & cuvscvgam1(iip1,jjm),cuvscvgam2(iip1,jjm),cvuscugam1(iip1,jjp1), & + & cvuscugam2(iip1,jjp1),cvscuvgam(iip1,jjm),cuscvugam(iip1,jjp1) , & + & unsapolnga1,unsapolnga2,unsapolsga1,unsapolsga2 , & + & unsair_gam1(iip1,jjp1),unsair_gam2(iip1,jjp1) , & + & unsairz_gam(iip1,jjm),aivscu2gam(iip1,jjm),aiuscv2gam(iip1,jjm) & + & , xprimu(iip1),xprimv(iip1) + +! + REAL & + & cu,cv,unscu2,unscv2,aire,airesurg,aireu,airev,apoln,apols,unsaire& + & ,unsairez,airuscv2,airvscu2,aireij1,aireij2,aireij3,aireij4 ,& + & alpha1,alpha2,alpha3,alpha4,alpha1p2,alpha1p4,alpha2p3,alpha3p4 ,& + & fext,constang,rlatu,rlatv,rlonu,rlonv,cuvscvgam1,cuvscvgam2 ,& + & cvuscugam1,cvuscugam2,cvscuvgam,cuscvugam,unsapolnga1 ,& + & unsapolnga2,unsapolsga1,unsapolsga2,unsair_gam1,unsair_gam2 ,& + & unsairz_gam,aivscu2gam,aiuscv2gam,cuvsurcv,cvsurcuv,cvusurcu ,& + & cusurcvu,xprimu,xprimv +! Index: /trunk/LMDZ.TITAN/libf/dyn3d/comvert_mod.F90 =================================================================== --- /trunk/LMDZ.TITAN/libf/dyn3d/comvert_mod.F90 (revision 1644) +++ /trunk/LMDZ.TITAN/libf/dyn3d/comvert_mod.F90 (revision 1644) @@ -0,0 +1,14 @@ +MODULE comvert_mod + +IMPLICIT NONE + +include "dimensions.h" +include "paramet.h" + +REAL ap(llm+1),bp(llm+1),presnivs(llm),dpres(llm),pa,preff, & + nivsigs(llm),nivsig(llm+1) +! Mars Ce qui suit vient de gcm +REAL sig(llm+1),ds(llm),aps(llm),bps(llm),pseudoalt(llm) +REAL scaleheight ! atmospheric scale height (km) + +END MODULE comvert_mod Index: /trunk/LMDZ.TITAN/libf/dyn3d/control_mod.F90 =================================================================== --- /trunk/LMDZ.TITAN/libf/dyn3d/control_mod.F90 (revision 1644) +++ /trunk/LMDZ.TITAN/libf/dyn3d/control_mod.F90 (revision 1644) @@ -0,0 +1,18 @@ + +module control_mod + + implicit none + + integer,save :: nday ! # of days to run + integer,save :: day_step ! # of dynamical time steps per day + integer,save :: iperiod ! make a Matsuno step before avery iperiod-1 LF steps + integer,save :: iconser ! + integer,save :: dissip_period ! apply dissipation every dissip_period dynamical step + integer,save :: iphysiq ! call physics every iphysiq dynamical steps + integer,save :: anneeref ! reference year # ! not used + real,save :: periodav +! integer,save :: ecritphy ! output data in "diagfi.nc" every ecritphy dynamical steps + character(len=10),save :: planet_type ! planet type ('earth','mars',...) + character(len=4),save :: config_inca + +end module control_mod Index: /trunk/LMDZ.TITAN/libf/dyn3d/convflu.F =================================================================== --- /trunk/LMDZ.TITAN/libf/dyn3d/convflu.F (revision 1644) +++ /trunk/LMDZ.TITAN/libf/dyn3d/convflu.F (revision 1644) @@ -0,0 +1,60 @@ + SUBROUTINE convflu( xflu,yflu,nbniv,convfl ) +c +c P. Le Van +c +c +c ******************************************************************* +c ... calcule la (convergence horiz. * aire locale)du flux ayant pour +c composantes xflu et yflu ,variables extensives . ...... +c ******************************************************************* +c xflu , yflu et nbniv sont des arguments d'entree pour le s-pg .. +c convfl est un argument de sortie pour le s-pg . +c +c njxflu est le nombre de lignes de latitude de xflu, +c ( = jjm ou jjp1 ) +c nbniv est le nombre de niveaux vert. de xflu et de yflu . +c + IMPLICIT NONE +c +#include "dimensions.h" +#include "paramet.h" + REAL xflu,yflu,convfl,convpn,convps + INTEGER l,ij,nbniv + DIMENSION xflu( ip1jmp1,nbniv ),yflu( ip1jm,nbniv ) , + * convfl( ip1jmp1,nbniv ) +c + EXTERNAL SSUM + REAL SSUM +c +c +#include "comgeom.h" +c + DO 5 l = 1,nbniv +c + DO 2 ij = iip2, ip1jm - 1 + convfl( ij + 1,l ) = xflu( ij,l ) - xflu( ij + 1,l ) + + * yflu(ij +1,l ) - yflu( ij -iim,l ) + 2 CONTINUE +c +c + +c .... correction pour convfl( 1,j,l) ...... +c .... convfl(1,j,l)= convfl(iip1,j,l) ... +c +CDIR$ IVDEP + DO 3 ij = iip2,ip1jm,iip1 + convfl( ij,l ) = convfl( ij + iim,l ) + 3 CONTINUE +c +c ...... calcul aux poles ....... +c + convpn = SSUM( iim, yflu( 1 ,l ), 1 ) + convps = - SSUM( iim, yflu( ip1jm-iim,l ), 1 ) + DO 4 ij = 1,iip1 + convfl( ij ,l ) = convpn * aire( ij ) / apoln + convfl( ij+ ip1jm,l ) = convps * aire( ij+ ip1jm) / apols + 4 CONTINUE +c + 5 CONTINUE + RETURN + END Index: /trunk/LMDZ.TITAN/libf/dyn3d/convmas.F =================================================================== --- /trunk/LMDZ.TITAN/libf/dyn3d/convmas.F (revision 1644) +++ /trunk/LMDZ.TITAN/libf/dyn3d/convmas.F (revision 1644) @@ -0,0 +1,60 @@ + SUBROUTINE convmas (pbaru, pbarv, convm ) +c + IMPLICIT NONE + +c======================================================================= +c +c Auteurs: P. Le Van , F. Hourdin . +c ------- +c +c Objet: +c ------ +c +c ******************************************************************** +c .... calcul de la convergence du flux de masse aux niveaux p ... +c ******************************************************************** +c +c +c pbaru et pbarv sont des arguments d'entree pour le s-pg .... +c ..... convm est un argument de sortie pour le s-pg .... +c +c le calcul se fait de haut en bas, +c la convergence de masse au niveau p(llm+1) est egale a 0. et +c n'est pas stockee dans le tableau convm . +c +c +c======================================================================= +c +c Declarations: +c ------------- + +#include "dimensions.h" +#include "paramet.h" + + REAL pbaru( ip1jmp1,llm ),pbarv( ip1jm,llm ),convm( ip1jmp1,llm ) + INTEGER l,ij + + EXTERNAL filtreg + EXTERNAL convflu + +c----------------------------------------------------------------------- +c .... calcul de - (d(pbaru)/dx + d(pbarv)/dy ) ...... + + CALL convflu( pbaru, pbarv, llm, convm ) + +c----------------------------------------------------------------------- +c filtrage: +c --------- + + CALL filtreg( convm, jjp1, llm, 2, 2, .true., 1 ) + +c integration de la convergence de masse de haut en bas ...... + + DO l = llmm1, 1, -1 + DO ij = 1, ip1jmp1 + convm(ij,l) = convm(ij,l) + convm(ij,l+1) + ENDDO + ENDDO +c + RETURN + END Index: /trunk/LMDZ.TITAN/libf/dyn3d/coordij.F =================================================================== --- /trunk/LMDZ.TITAN/libf/dyn3d/coordij.F (revision 1644) +++ /trunk/LMDZ.TITAN/libf/dyn3d/coordij.F (revision 1644) @@ -0,0 +1,46 @@ + SUBROUTINE coordij(lon,lat,ilon,jlat) + +c======================================================================= +c +c calcul des coordonnees i et j de la maille scalaire dans +c laquelle se trouve le point (lon,lat) en radian +c +c======================================================================= + + IMPLICIT NONE + REAL lon,lat + INTEGER ilon,jlat + INTEGER i,j + +#include "dimensions.h" +#include "paramet.h" +#include "comgeom.h" + + real zlon,zlat + + zlon=lon + zlat=lat + + DO i=1,iim+1 + print*,i,' ',rlonu(i),' ',zlon + IF (rlonu(i).GT.zlon) THEN + ilon=i + GOTO 10 + ENDIF + ENDDO +10 CONTINUE + + j=0 + DO j=1,jjm + print*,j,' ',rlatv(j),' ' ,zlat + IF(rlatv(j).LT.zlat) THEN + + jlat=j + GOTO 20 + ENDIF + ENDDO +20 CONTINUE + IF(j.EQ.0) j=jjm+1 + + RETURN + END Index: /trunk/LMDZ.TITAN/libf/dyn3d/covcont.F =================================================================== --- /trunk/LMDZ.TITAN/libf/dyn3d/covcont.F (revision 1644) +++ /trunk/LMDZ.TITAN/libf/dyn3d/covcont.F (revision 1644) @@ -0,0 +1,41 @@ + SUBROUTINE covcont (klevel,ucov, vcov, ucont, vcont ) + IMPLICIT NONE + +c======================================================================= +c +c Auteur: P. Le Van +c ------- +c +c Objet: +c ------ +c +c ********************************************************************* +c calcul des compos. contravariantes a partir des comp.covariantes +c ******************************************************************** +c +c======================================================================= + +#include "dimensions.h" +#include "paramet.h" +#include "comgeom.h" + + INTEGER klevel + REAL ucov ( ip1jmp1,klevel ), vcov( ip1jm,klevel ) + REAL ucont( ip1jmp1,klevel ), vcont( ip1jm,klevel ) + INTEGER l,ij + + + DO 10 l = 1,klevel + + DO 2 ij = iip2, ip1jm + ucont( ij,l ) = ucov( ij,l ) * unscu2( ij ) + 2 CONTINUE + + DO 4 ij = 1,ip1jm + vcont( ij,l ) = vcov( ij,l ) * unscv2( ij ) + 4 CONTINUE + + 10 CONTINUE + + RETURN + END Index: /trunk/LMDZ.TITAN/libf/dyn3d/covnat.F =================================================================== --- /trunk/LMDZ.TITAN/libf/dyn3d/covnat.F (revision 1644) +++ /trunk/LMDZ.TITAN/libf/dyn3d/covnat.F (revision 1644) @@ -0,0 +1,46 @@ + SUBROUTINE covnat (klevel,ucov, vcov, unat, vnat ) + IMPLICIT NONE + +c======================================================================= +c +c Auteur: F Hourdin Phu LeVan +c ------- +c +c Objet: +c ------ +c +c ********************************************************************* +c calcul des compos. naturelles a partir des comp.covariantes +c ******************************************************************** +c +c======================================================================= + +#include "dimensions.h" +#include "paramet.h" +#include "comgeom.h" + + INTEGER klevel + REAL ucov( ip1jmp1,klevel ), vcov( ip1jm,klevel ) + REAL unat( ip1jmp1,klevel ), vnat( ip1jm,klevel ) + INTEGER l,ij + + + DO l = 1,klevel + DO ij = 1, iip1 + unat (ij,l) =0. + END DO + + DO ij = iip2, ip1jm + unat( ij,l ) = ucov( ij,l ) / cu(ij) + ENDDO + DO ij = ip1jm+1, ip1jmp1 + unat (ij,l) =0. + END DO + + DO ij = 1,ip1jm + vnat( ij,l ) = vcov( ij,l ) / cv(ij) + ENDDO + + ENDDO + RETURN + END Index: /trunk/LMDZ.TITAN/libf/dyn3d/defrun_new.F =================================================================== --- /trunk/LMDZ.TITAN/libf/dyn3d/defrun_new.F (revision 1644) +++ /trunk/LMDZ.TITAN/libf/dyn3d/defrun_new.F (revision 1644) @@ -0,0 +1,535 @@ + SUBROUTINE defrun_new( tapedef, etatinit ) +#ifndef CPP_PARA +c +c----------------------------------------------------------------------- +c Auteurs : L. Fairhead , P. Le Van . +c Modif C. Hourdin F. Forget VERSION MARTIENNE +c +c +c ------------------------------------------------------------------- +c +c MODIF JUIN 2000 (zoom) +c ......... Version du 29/04/97 .......... +c +c Nouveaux parametres nitergdiv,nitergrot,niterh,tetagdiv,tetagrot, +c tetatemp ajoutes pour la dissipation . +c +c Autre parametre ajoute en fin de liste : ** fxyhypb ** +c +c Si fxyhypb = .TRUE. , choix de la fonction a derivee tangente hyperb. +c Sinon , choix de fxynew , a derivee sinusoidale .. +c +c ...... etatinit = . TRUE. si defrun_new est appele dans NEWSTART +c ETAT0_LMD ou LIMIT_LMD pour l'initialisation de start.dat (dic) et +c de limit.dat (dic) ........... +c Sinon etatinit = . FALSE . +c +c Donc etatinit = .F. si on veut comparer les valeurs de alphax , +c alphay,clon,clat, fxyhypb lues sur le fichier start avec +c celles passees par run.def , au debut du gcm, apres l'appel a +c lectba . +c Ces parametres definissant entre autres la grille et doivent etre +c pareils et coherents , sinon il y aura divergence du gcm . +c +c +c----------------------------------------------------------------------- +c Declarations : +c -------------- +! to use 'getin' + USE ioipsl_getincom + use sponge_mod,only: callsponge,nsponge,mode_sponge,tetasponge + use control_mod,only: nday, day_step, iperiod, anneeref, + & iconser, dissip_period, iphysiq + USE logic_mod, ONLY: hybrid,purmats,fxyhypb,ysinus,iflag_phys + USE serre_mod, ONLY: clon,clat,grossismx,grossismy,dzoomx,dzoomy, + . alphax,alphay,taux,tauy + IMPLICIT NONE + +#include "dimensions.h" +#include "paramet.h" +!#include "control.h" +#include "comdissnew.h" +#include "iniprint.h" +c +c arguments: +c --------- + LOGICAL etatinit ! should be .false. for a call from gcm.F + ! and .true. for a call from newstart.F + INTEGER tapedef ! unit number to assign to 'run.def' file +c +c local variables: +c --------------- + + CHARACTER ch1*72,ch2*72,ch3*72,ch4*8 ! to store various strings + integer tapeerr ! unit number for error message + parameter (tapeerr=0) + +c REAL clonn,clatt,alphaxx,alphayy +c LOGICAL fxyhypbb + INTEGER ierr + REAL clonn,clatt,grossismxx,grossismyy + REAL dzoomxx,dzoomyy,tauxx,tauyy,temp + LOGICAL fxyhypbb, ysinuss + + +c initialisations: +c ---------------- + +! lunout=6 + +c----------------------------------------------------------------------- +c Parametres de controle du run: +c----------------------------------------------------------------------- + + +!Initialisation des parametres "terrestres", qui ne concernent pas +!le modele martien et ne sont donc plus lues dans "run.def" + + anneeref=0 + ! Note: anneref is a common in 'control.h' + + OPEN(tapedef,file='run.def',status='old',form='formatted' + . ,iostat=ierr) + CLOSE(tapedef) ! first call to getin will open the file + + !lunout: default unit for the text outputs + lunout=6 + CALL getin('lunout', lunout) + IF (lunout /= 5 .and. lunout /= 6) THEN + OPEN(UNIT=lunout,FILE='lmdz.out',ACTION='write', + & STATUS='unknown',FORM='formatted') + ENDIF + + IF(ierr.EQ.0) THEN ! if file run.def is found + WRITE(lunout,*) "DEFRUN_NEW: reading file run.def" + + WRITE(lunout,*) "" + WRITE(lunout,*) "Number of days to run:" + nday=1 ! default value + call getin("nday",nday) + WRITE(lunout,*)" nday = ",nday + + WRITE(lunout,*) "" + WRITE(lunout,*) "Number of dynamical steps per day:", + & "(should be a multiple of iperiod)" + day_step=960 ! default value + call getin("day_step",day_step) + WRITE(lunout,*)" day_step = ",day_step + + WRITE(lunout,*) "" + WRITE(lunout,*) "periode pour le pas Matsuno (en pas)" + iperiod=5 ! default value + call getin("iperiod",iperiod) + WRITE(lunout,*)" iperiod = ",iperiod + + WRITE(lunout,*) "" + WRITE(lunout,*) "periode de sortie des variables de ", + & "controle (en pas)" + iconser=120 ! default value + call getin("iconser",iconser) + WRITE(lunout,*)" iconser = ",iconser + + WRITE(lunout,*) "" + WRITE(lunout,*) "periode de la dissipation (en pas)" + dissip_period=5 ! default value + call getin("idissip",dissip_period) + ! if there is a "dissip_period" in run.def, it overrides "idissip" + call getin("dissip_period",dissip_period) + WRITE(lunout,*)" dissip_period = ",dissip_period + +ccc .... P. Le Van , modif le 29/04/97 .pour la dissipation ... +ccc + WRITE(lunout,*) "" + WRITE(lunout,*) "choix de l'operateur de dissipation ", + & "(star ou non star )" + lstardis=.true. ! default value + call getin("lstardis",lstardis) + WRITE(lunout,*)" lstardis = ",lstardis + + WRITE(lunout,*) "" + WRITE(lunout,*) "avec ou sans coordonnee hybrides" + hybrid=.true. ! default value + call getin("hybrid",hybrid) + WRITE(lunout,*)" hybrid = ",hybrid + + WRITE(lunout,*) "" + WRITE(lunout,*) "nombre d'iterations de l'operateur de ", + & "dissipation gradiv " + nitergdiv=1 ! default value + call getin("nitergdiv",nitergdiv) + WRITE(lunout,*)" nitergdiv = ",nitergdiv + + WRITE(lunout,*) "" + WRITE(lunout,*) "nombre d'iterations de l'operateur de ", + & "dissipation nxgradrot" + nitergrot=2 ! default value + call getin("nitergrot",nitergrot) + WRITE(lunout,*)" nitergrot = ",nitergrot + + WRITE(lunout,*) "" + WRITE(lunout,*) "nombre d'iterations de l'operateur de ", + & "dissipation divgrad" + niterh=2 ! default value + call getin("niterh",niterh) + WRITE(lunout,*)" niterh = ",niterh + + WRITE(lunout,*) "" + WRITE(lunout,*) "temps de dissipation des plus petites ", + & "long.d ondes pour u,v (gradiv)" + tetagdiv=4000. ! default value + call getin("tetagdiv",tetagdiv) + WRITE(lunout,*)" tetagdiv = ",tetagdiv + + WRITE(lunout,*) "" + WRITE(lunout,*) "temps de dissipation des plus petites ", + & "long.d ondes pour u,v(nxgradrot)" + tetagrot=5000. ! default value + call getin("tetagrot",tetagrot) + WRITE(lunout,*)" tetagrot = ",tetagrot + + WRITE(lunout,*) "" + WRITE(lunout,*) "temps de dissipation des plus petites ", + & "long.d ondes pour h ( divgrad)" + tetatemp=5000. ! default value + call getin("tetatemp",tetatemp) + WRITE(lunout,*)" tetatemp = ",tetatemp + + WRITE(lunout,*) "" + WRITE(lunout,*) "coefficient pour gamdissip" + coefdis=0. ! default value + call getin("coefdis",coefdis) + WRITE(lunout,*)" coefdis = ",coefdis +c +c ............................................................... + + WRITE(lunout,*) "" + WRITE(lunout,*) "choix du shema d'integration temporelle ", + & "(true==Matsuno ou false==Matsuno-leapfrog)" + purmats=.false. ! default value + call getin("purmats",purmats) + WRITE(lunout,*)" purmats = ",purmats + + WRITE(lunout,*) "" + WRITE(lunout,*) "avec ou sans physique" +! physic=.true. ! default value +! call getin("physic",physic) +! WRITE(lunout,*)" physic = ",physic + iflag_phys=1 ! default value + call getin("iflag_phys",iflag_phys) + WRITE(lunout,*)" iflag_phys = ",iflag_phys + + WRITE(lunout,*) "" + WRITE(lunout,*) "periode de la physique (en pas)" + iphysiq=20 ! default value + call getin("iphysiq",iphysiq) + WRITE(lunout,*)" iphysiq = ",iphysiq + +! WRITE(lunout,*) "" +! WRITE(lunout,*) "choix d'une grille reguliere" +! grireg=.true. +! call getin("grireg",grireg) +! WRITE(lunout,*)" grireg = ",grireg + +ccc .... P.Le Van, ajout le 03/01/96 pour l'ecriture phys ... +c +! WRITE(lunout,*) "" +! WRITE(lunout,*) "frequence (en pas) de l'ecriture ", +! & "du fichier diagfi.nc" +! ecritphy=240 +! call getin("ecritphy",ecritphy) +! WRITE(lunout,*)" ecritphy = ",ecritphy + +ccc .... P. Le Van , ajout le 7/03/95 .pour le zoom ... +c ......... ( modif le 17/04/96 ) ......... +c + if (.not.etatinit ) then + + clonn=63. + call getin("clon",clonn) + + IF( ABS(clon - clonn).GE. 0.001 ) THEN + PRINT *,' La valeur de clon passee par run.def est ' + * ,'differente de celle lue sur le fichier start ' + STOP + ENDIF +c +c + clatt=0. + call getin("clat",clatt) + + IF( ABS(clat - clatt).GE. 0.001 ) THEN + PRINT *,' La valeur de clat passee par run.def est ' + * ,'differente de celle lue sur le fichier start ' + STOP + ENDIF + + grossismxx=1.0 + call getin("grossismx",grossismxx) + + if(grossismxx.eq.0) then + write(*,*) + write(*,*)'ERREUR : dans run.def, grossismx =0' + write(*,*)'Attention a ne pas utiliser une version de' + write(*,*)'run.def avant le nouveau zoom LMDZ2.3 (06/2000)' + write(*,*)'(Il faut ajouter grossismx,dzoomx,etc... a la' + write(*,*)'place de alphax, alphay. cf. dyn3d). ' + write(*,*) + stop + end if + + IF( ABS(grossismx - grossismxx).GE. 0.001 ) THEN + PRINT *,' La valeur de grossismx passee par run.def est ' + * ,'differente de celle lue sur le fichier start =', + * grossismx + if (grossismx.eq.0) then + write(*,*) 'OK,Normal : c est un vieux start' + * , 'd avant le nouveau zoom LMDZ2.3 (06/2000)' + grossismx=grossismxx + else + STOP + endif + ENDIF + + grossismyy=1.0 + call getin("grossismy",grossismyy) + + IF( ABS(grossismy - grossismyy).GE. 0.001 ) THEN + PRINT *,' La valeur de grossismy passee par run.def est ' + * ,'differente de celle lue sur le fichier start =', + * grossismy + if (grossismy.eq.0) then + write(*,*) 'OK,Normal : c est un vieux start' + * , 'd avant le nouveau zoom LMDZ2.3 (06/2000)' + grossismy=grossismyy + else + STOP + endif + ENDIF + + + IF( grossismx.LT.1. ) THEN + PRINT *,' *** ATTENTION !! grossismx < 1 . *** ' + STOP + ELSE + alphax = 1. - 1./ grossismx + ENDIF + + IF( grossismy.LT.1. ) THEN + PRINT *,' *** ATTENTION !! grossismy < 1 . *** ' + STOP + ELSE + alphay = 1. - 1./ grossismy + ENDIF + + PRINT *,' ' + PRINT *,' --> In defrun: alphax alphay ',alphax,alphay + PRINT *,' ' +c + fxyhypbb=.false. + call getin("fxyhypbb",fxyhypbb) + + IF( .NOT.fxyhypb ) THEN + IF( fxyhypbb ) THEN + PRINT *,' ******** PBS DANS DEFRUN ******** ' + PRINT *,' *** fxyhypb lu sur le fichier start est F ', + * 'alors qu il est T sur run.def ***' + STOP + ENDIF + ELSE + IF( .NOT.fxyhypbb ) THEN + PRINT *,' ******** PBS DANS DEFRUN ******** ' + PRINT *,' *** fxyhypb lu sur le fichier start est T ', + * 'alors qu il est F sur run.def **** ' + STOP + ENDIF + ENDIF + dzoomxx=0.0 + call getin("dzoomx",dzoomxx) + + IF( fxyhypb ) THEN + IF( ABS(dzoomx - dzoomxx).GE. 0.001 ) THEN + PRINT *,' La valeur de dzoomx passee par run.def est ' + * ,'differente de celle lue sur le fichier start ' + STOP + ENDIF + ENDIF + + dzoomyy=0.0 + call getin("dzoomy",dzoomyy) + + IF( fxyhypb ) THEN + IF( ABS(dzoomy - dzoomyy).GE. 0.001 ) THEN + PRINT *,' La valeur de dzoomy passee par run.def est ' + * ,'differente de celle lue sur le fichier start ' + STOP + ENDIF + ENDIF + + tauxx=2.0 + call getin("taux",tauxx) + + tauyy=2.0 + call getin("tauy",tauyy) + + IF( fxyhypb ) THEN + IF( ABS(taux - tauxx).GE. 0.001 ) THEN + WRITE(6,*)' La valeur de taux passee par run.def est', + * 'differente de celle lue sur le fichier start ' + CALL ABORT + ENDIF + + IF( ABS(tauy - tauyy).GE. 0.001 ) THEN + WRITE(6,*)' La valeur de tauy passee par run.def est', + * 'differente de celle lue sur le fichier start ' + CALL ABORT + ENDIF + ENDIF + + ELSE ! Below, case when etainit=.true. + + WRITE(lunout,*) "" + WRITE(lunout,*) "longitude en degres du centre du zoom" + clon=63. ! default value + call getin("clon",clon) + WRITE(lunout,*)" clon = ",clon + +c + WRITE(lunout,*) "" + WRITE(lunout,*) "latitude en degres du centre du zoom " + clat=0. ! default value + call getin("clat",clat) + WRITE(lunout,*)" clat = ",clat + + WRITE(lunout,*) "" + WRITE(lunout,*) "facteur de grossissement du zoom,", + & " selon longitude" + grossismx=1.0 ! default value + call getin("grossismx",grossismx) + WRITE(lunout,*)" grossismx = ",grossismx + + WRITE(lunout,*) "" + WRITE(lunout,*) "facteur de grossissement du zoom ,", + & " selon latitude" + grossismy=1.0 ! default value + call getin("grossismy",grossismy) + WRITE(lunout,*)" grossismy = ",grossismy + + IF( grossismx.LT.1. ) THEN + PRINT *,' *** ATTENTION !! grossismx < 1 . *** ' + STOP + ELSE + alphax = 1. - 1./ grossismx + ENDIF + + IF( grossismy.LT.1. ) THEN + PRINT *,' *** ATTENTION !! grossismy < 1 . *** ' + STOP + ELSE + alphay = 1. - 1./ grossismy + ENDIF + + PRINT *,' Defrun alphax alphay ',alphax,alphay +c + WRITE(lunout,*) "" + WRITE(lunout,*) "Fonction f(y) hyperbolique si = .true.", + & ", sinon sinusoidale" + fxyhypb=.false. ! default value + call getin("fxyhypb",fxyhypb) + WRITE(lunout,*)" fxyhypb = ",fxyhypb + + WRITE(lunout,*) "" + WRITE(lunout,*) "extension en longitude de la zone du zoom", + & " (fraction de la zone totale)" + dzoomx=0. ! default value + call getin("dzoomx",dzoomx) + WRITE(lunout,*)" dzoomx = ",dzoomx + + WRITE(lunout,*) "" + WRITE(lunout,*) "extension en latitude de la zone du zoom", + & " (fraction de la zone totale)" + dzoomy=0. ! default value + call getin("dzoomy",dzoomy) + WRITE(lunout,*)" dzoomy = ",dzoomy + + WRITE(lunout,*) "" + WRITE(lunout,*) "raideur du zoom en X" + taux=2. ! default value + call getin("taux",taux) + WRITE(lunout,*)" taux = ",taux + + WRITE(lunout,*) "" + WRITE(lunout,*) "raideur du zoom en Y" + tauy=2.0 ! default value + call getin("tauy",tauy) + WRITE(lunout,*)" tauy = ",tauy + + END IF ! of if (.not.etatinit ) + + WRITE(lunout,*) "" + WRITE(lunout,*) "Use a sponge layer?" + callsponge=.true. ! default value + call getin("callsponge",callsponge) + WRITE(lunout,*)" callsponge = ",callsponge + + WRITE(lunout,*) "" + WRITE(lunout,*) "Sponge: number of layers over which", + & " sponge extends" + nsponge=3 ! default value + call getin("nsponge",nsponge) + WRITE(lunout,*)" nsponge = ",nsponge + + WRITE(lunout,*)"" + WRITE(lunout,*)"Sponge mode: (forcing is towards ..." + WRITE(lunout,*)" over upper nsponge layers)" + WRITE(lunout,*)" 0: (h=hmean,u=v=0)" + WRITE(lunout,*)" 1: (h=hmean,u=umean,v=0)" + WRITE(lunout,*)" 2: (h=hmean,u=umean,v=vmean)" + mode_sponge=2 ! default value + call getin("mode_sponge",mode_sponge) + WRITE(lunout,*)" mode_sponge = ",mode_sponge + + WRITE(lunout,*) "" + WRITE(lunout,*) "Sponge: characteristic time scale tetasponge" + WRITE(lunout,*) "(seconds) at topmost layer (time scale then " + WRITE(lunout,*) " doubles with decreasing layer index)." + tetasponge=50000.0 + call getin("tetasponge",tetasponge) + WRITE(lunout,*)" tetasponge = ",tetasponge + + + WRITE(lunout,*) '-----------------------------------------------' + WRITE(lunout,*) ' ' + WRITE(lunout,*) ' ' +c + +c Unlike on Earth (cf LMDZ2.2) , always a regular grid on Mars : + ysinus = .false. !Mars Mettre a jour + + + WRITE(lunout,*) '-----------------------------------------------' + WRITE(lunout,*) ' ' + WRITE(lunout,*) ' ' +cc + ELSE + write(tapeerr,*) ' WHERE IS run.def ? WE NEED IT !!!!!!!!!!!!!!' + stop + ENDIF ! of IF(ierr.eq.0) + +c Test sur le zoom + + if((grossismx.eq.1).and.(grossismy.eq.1)) then +c Pas de zoom : + write(lunout,*) 'No zoom ? -> fxyhypb set to False' + & ,' (It runs better that way)' + fxyhypb = .false. + else +c Avec Zoom + if (.not.fxyhypb) stop 'With zoom, fxyhypb should be set to T + &in run.def for this version... -> STOP ! ' + end if +#else + write(*,*) "defrun_new should not be used in parallel mode!" + stop +#endif +! of #ifndef CPP_PARA + END Index: /trunk/LMDZ.TITAN/libf/dyn3d/diagadv.F =================================================================== --- /trunk/LMDZ.TITAN/libf/dyn3d/diagadv.F (revision 1644) +++ /trunk/LMDZ.TITAN/libf/dyn3d/diagadv.F (revision 1644) @@ -0,0 +1,77 @@ + subroutine diagadv(q,masse,descript) + implicit none +#include "dimensions.h" +#include "paramet.h" +#include "comgeom.h" + real q(iip1,jjp1,llm),masse(iip1,jjp1,llm) + integer i,j,l + character*10 descript + real sss,smas,smin,smax + + external ismin,ismax + integer ismin,ismax + + sss=0. + smas=0. + smin=1.e33 + smax=-1.e33 + do l=1,llm + do j=1,jjp1 + do i=1,iim + sss=sss+masse(i,j,l)*q(i,j,l) + smas=smas+masse(i,j,l) + smin=min(smin,q(i,j,l)) + smax=max(smax,q(i,j,l)) + enddo + enddo + enddo + + write(*,1000) descript,smin,smax,sss/smas,sss + + return +1000 format(a10,' MIN:',e15.4,' MAX:',e15.4,' MOY:',e15.4 + s ,' TOT:',e15.4) + end + + FUNCTION ismin(n,sx,incx) +c + IMPLICIT NONE +c + integer n,i,incx,ismin,ix + real sx((n-1)*incx+1),sxmin +c + ix=1 + ismin=1 + sxmin=sx(1) + DO i=1,n-1 + ix=ix+incx + if(sx(ix).lt.sxmin) then + sxmin=sx(ix) + ismin=i+1 + endif + ENDDO +c + return + end +C + function ismax(n,sx,incx) +c + IMPLICIT NONE +c + INTEGER n,i,incx,ismax,ix + real sx((n-1)*incx+1),sxmax +c + ix=1 + ismax=1 + sxmax=sx(1) + do 10 i=1,n-1 + ix=ix+incx + if(sx(ix).gt.sxmax) then + sxmax=sx(ix) + ismax=i+1 + endif +10 continue +c + return + end + Index: /trunk/LMDZ.TITAN/libf/dyn3d/dissip.F =================================================================== --- /trunk/LMDZ.TITAN/libf/dyn3d/dissip.F (revision 1644) +++ /trunk/LMDZ.TITAN/libf/dyn3d/dissip.F (revision 1644) @@ -0,0 +1,143 @@ + SUBROUTINE dissip( vcov,ucov,teta,p, dv,du,dh ) +c + USE comconst_mod, ONLY: dtdiss + + IMPLICIT NONE + + +c .. Avec nouveaux operateurs star : gradiv2 , divgrad2, nxgraro2 ... +c ( 10/01/98 ) + +c======================================================================= +c +c Auteur: P. Le Van +c ------- +c +c Objet: +c ------ +c +c Dissipation horizontale +c +c======================================================================= +c----------------------------------------------------------------------- +c Declarations: +c ------------- + +#include "dimensions.h" +#include "paramet.h" +#include "comgeom.h" +#include "comdissnew.h" +#include "comdissipn.h" + +c Arguments: +c ---------- + + REAL vcov(ip1jm,llm),ucov(ip1jmp1,llm),teta(ip1jmp1,llm) + REAL p( ip1jmp1,llmp1 ) + REAL dv(ip1jm,llm),du(ip1jmp1,llm),dh(ip1jmp1,llm) + +c Local: +c ------ + + REAL gdx(ip1jmp1,llm),gdy(ip1jm,llm) + REAL grx(ip1jmp1,llm),gry(ip1jm,llm) + REAL te1dt(llm),te2dt(llm),te3dt(llm) + REAL deltapres(ip1jmp1,llm) + + INTEGER l,ij + + REAL SSUM + EXTERNAL gradiv ,nXgrarot,divgrad,initial0 + EXTERNAL gradiv2,nXgraro2,divgrad2,SSUM + +c----------------------------------------------------------------------- +c initialisations: +c ---------------- + + DO l=1,llm + te1dt(l) = tetaudiv(l) * dtdiss + te2dt(l) = tetaurot(l) * dtdiss + te3dt(l) = tetah(l) * dtdiss + ENDDO + CALL initial0( ijp1llm, du ) + CALL initial0( ijmllm , dv ) + CALL initial0( ijp1llm, dh ) + +c----------------------------------------------------------------------- +c Calcul de la dissipation: +c ------------------------- + +c Calcul de la partie grad ( div ) : +c ------------------------------------- + + + IF(lstardis) THEN + CALL gradiv2( llm,ucov,vcov,nitergdiv,gdx,gdy ) + ELSE + CALL gradiv ( llm,ucov,vcov,nitergdiv,gdx,gdy ) + ENDIF + + DO l=1,llm + + DO ij = 1, iip1 + gdx( ij ,l) = 0. + gdx(ij+ip1jm,l) = 0. + ENDDO + + DO ij = iip2,ip1jm + du(ij,l) = du(ij,l) - te1dt(l) *gdx(ij,l) + ENDDO + DO ij = 1,ip1jm + dv(ij,l) = dv(ij,l) - te1dt(l) *gdy(ij,l) + ENDDO + + ENDDO + +c calcul de la partie n X grad ( rot ): +c --------------------------------------- + + IF(lstardis) THEN + CALL nxgraro2( llm,ucov, vcov, nitergrot,grx,gry ) + ELSE + CALL nxgrarot( llm,ucov, vcov, nitergrot,grx,gry ) + ENDIF + + + DO l=1,llm + DO ij = 1, iip1 + grx(ij,l) = 0. + ENDDO + + DO ij = iip2,ip1jm + du(ij,l) = du(ij,l) - te2dt(l) * grx(ij,l) + ENDDO + DO ij = 1, ip1jm + dv(ij,l) = dv(ij,l) - te2dt(l) * gry(ij,l) + ENDDO + ENDDO + +c calcul de la partie div ( grad ): +c ----------------------------------- + + + IF(lstardis) THEN + + DO l = 1, llm + DO ij = 1, ip1jmp1 + deltapres(ij,l) = AMAX1( 0., p(ij,l) - p(ij,l+1) ) + ENDDO + ENDDO + + CALL divgrad2( llm,teta, deltapres ,niterh, gdx ) + ELSE + CALL divgrad ( llm,teta, niterh, gdx ) + ENDIF + + DO l = 1,llm + DO ij = 1,ip1jmp1 + dh( ij,l ) = dh( ij,l ) - te3dt(l) * gdx( ij,l ) + ENDDO + ENDDO + + RETURN + END Index: /trunk/LMDZ.TITAN/libf/dyn3d/disvert.F =================================================================== --- /trunk/LMDZ.TITAN/libf/dyn3d/disvert.F (revision 1644) +++ /trunk/LMDZ.TITAN/libf/dyn3d/disvert.F (revision 1644) @@ -0,0 +1,310 @@ + SUBROUTINE disvert + +! to use 'getin' + USE ioipsl_getincom + USE callkeys_mod, ONLY: kastprof,pceil + USE comvert_mod, ONLY: ap,bp,sig,nivsigs,nivsig,pa,preff, + . aps,bps,presnivs,pseudoalt,scaleheight + +c Auteur : F. Forget Y. Wanherdrick, P. Levan +c Nouvelle version 100% Mars !! + + USE comconst_mod, ONLY: pi + USE logic_mod, ONLY: autozlevs,hybrid + + IMPLICIT NONE + +#include "dimensions.h" +#include "paramet.h" + + +c +c======================================================================= +c Discretisation verticale en coordonnée hybride OU sigma +c +c======================================================================= +c +c declarations: +c ------------- +c +c + INTEGER l,ll + REAL snorm + REAL alpha,beta,gama,delta,deltaz,quoi,quand + REAL zsig(llm) + INTEGER np,ierr + integer :: ierr1,ierr2,ierr3,ierr4 + REAL x + + REAL SSUM + EXTERNAL SSUM + real newsig + REAL dz0,dz1,nhaut,sig1,esig,csig,zz + real tt,rr,gg, prevz + real s(llm),dsig(llm) + + integer iz + real z, ps,p + + + real psurf, hmax ! for autozlevs + +c +c----------------------------------------------------------------------- +c + pi=2.*ASIN(1.) + + open(99,file="z2sig.def",status='old',form='formatted', + s iostat=ierr4) + + + autozlevs=.false. + PRINT *,'Auto-discretise vertical levels ?' + call getin("autozlevs",autozlevs) + write(*,*) " autozlevs = ", autozlevs + + write(*,*)"Operate in kastprof mode?" + kastprof=.false. + call getin("kastprof",kastprof) + write(*,*)" kastprof = ",kastprof + + print*,'kast=',kastprof + + pceil=100.0 ! Pascals + PRINT *,'Ceiling pressure (Pa) ?' + call getin("pceil",pceil) + write(*,*) " pceil = ", pceil + + if(autozlevs.and.iim.gt.1)then + print*,'autozlevs no good in 3D...' + call abort + endif + + if(kastprof.and.iim.gt.1)then + print*,'kastprof no good in 3D...' + call abort + endif + + psurf=610. ! default value for psurf + PRINT *,'Surface pressure (Pa) ?' + call getin("psurf",psurf) + write(*,*) " psurf = ",psurf + + if(kastprof)then + + sig(1)=1 + do l=2,llm + !sig(l)=1. - real(l-1)/real(llm) ! uses linear sigma spacing + !sig(l)=exp(-real(l-1)*h/real(llm)) ! uses log sigma spacing + !sig(l)=exp(-real(l-1)*Hmax/real(llm)) ! uses log sigma spacing + sig(l)=(pceil/psurf)**(real(l-1)/real(llm)) ! uses log sigma spacing + + end do + sig(llm+1)=0 + + elseIF(ierr4.eq.0)then + PRINT*,'****************************' + PRINT*,'Lecture de z2sig.def' + PRINT*,'****************************' + + READ(99,*) scaleheight + do l=1,llm + read(99,*) zsig(l) + end do + CLOSE(99) + + + if(autozlevs)then + open(91,file="z2sig.def",form='formatted') + read(91,*) scaleheight + DO l=1,llm-2 + read(91,*) Hmax + enddo + close(91) + + print*,'Hmax = ',Hmax,' km' + print*,'Auto-shifting h in disvert.F to:' +! h = Hmax / log(psurf/100.0) + scaleheight = Hmax / log(psurf/pceil) + print*,'h = ',scaleheight,' km' + endif + + sig(1)=1 + do l=2,llm + sig(l) = 0.5 * ( exp(-zsig(l)/scaleheight) + + & exp(-zsig(l-1)/scaleheight) ) + end do + sig(llm+1)=0 + +c----------------------------------------------------------------------- + ELSE + write(*,*) 'didn_t you forget something?' + write(*,*) 'We need the file z2sig.def!'! (OR esasig.def) ' + stop + ENDIF +c----------------------------------------------------------------------- + + + DO l=1,llm + nivsigs(l) = FLOAT(l) + ENDDO + + DO l=1,llmp1 + nivsig(l)= FLOAT(l) + ENDDO + + +c----------------------------------------------------------------------- +c .... Calculs de ap(l) et de bp(l) .... +c ......................................... +c +c ..... pa et preff sont lus sur les fichiers start par dynetat0 ..... +c----------------------------------------------------------------------- +c + + if (hybrid) then + write(*,*) "*******************************" + write(*,*) "Systeme en coordonnees hybrides" + write(*,*) +c Coordonnees hybrides avec mod + DO l = 1, llm + + call sig_hybrid(sig(l),pa,preff,newsig) + bp(l) = EXP( 1. - 1./(newsig**2) ) + ap(l) = pa * (newsig - bp(l) ) + enddo + bp(llmp1) = 0. + ap(llmp1) = 0. + else + write(*,*) "****************************" + write(*,*) "Systeme en coordonnees sigma" + write(*,*) +c Pour ne pas passer en coordonnees hybrides + DO l = 1, llm + ap(l) = 0. + bp(l) = sig(l) + ENDDO + ap(llmp1) = 0. + endif + + bp(llmp1) = 0. + + PRINT *,' BP ' + PRINT *, bp + PRINT *,' AP ' + PRINT *, ap + +c Calcul au milieu des couches : +c WARNING : le choix de placer le milieu des couches au niveau de +c pression intermédiaire est arbitraire et pourrait etre modifié. +c Le calcul du niveau pour la derniere couche +c (on met la meme distance (en log pression) entre P(llm) +c et P(llm -1) qu'entre P(llm-1) et P(llm-2) ) est +c Specifique. Ce choix est spécifié ici ET dans exner_hyb.F + + DO l = 1, llm-1 + aps(l) = 0.5 *( ap(l) +ap(l+1)) + bps(l) = 0.5 *( bp(l) +bp(l+1)) + ENDDO + + if (hybrid) then + aps(llm) = aps(llm-1)**2 / aps(llm-2) + bps(llm) = 0.5*(bp(llm) + bp(llm+1)) + else + bps(llm) = bps(llm-1)**2 / bps(llm-2) + aps(llm) = 0. ! what the hell is this??? + end if + + PRINT *,' BPs ' + PRINT *, bps + PRINT *,' APs' + PRINT *, aps + + + DO l = 1, llm + presnivs(l) = aps(l)+bps(l)*preff + pseudoalt(l) = -scaleheight*log(presnivs(l)/preff) + ENDDO + + PRINT *,' PRESNIVS' + PRINT *,presnivs + PRINT *,'Pseudo altitude des Presnivs : ' + PRINT *,pseudoalt + + +c -------------------------------------------------- +c This can be used to plot the vertical discretization +c (> xmgrace -nxy testhybrid.tab (z = H*log(p(l)/pref)) +c -------------------------------------------------- +c open (53,file='testhybrid.tab') +c do iz=0,60 +c z = -10 + min(iz,60-iz) +c ps = preff*exp(-z/10) +c do l=1,llm +c zsig(l)= -10.*log((aps(l) + bps(l)*ps)/preff) +c end do +c write(53,*)iz, (zsig(l),l=1,llm,1) +c end do +c close(53) +c -------------------------------------------------- + + + RETURN + END + +c ************************************************************ + subroutine sig_hybrid(sig,pa,preff,newsig) +c ---------------------------------------------- +c Subroutine utilisee pour calculer des valeurs de sigma modifie +c pour conserver les coordonnees verticales decrites dans +c esasig.def/z2sig.def lors du passage en coordonnees hybrides +c F. Forget 2002 +c Connaissant sig (niveaux "sigma" ou on veut mettre les couches) +c L'objectif est de calculer newsig telle que +c (1 -pa/preff)*exp(1-1./newsig**2)+(pa/preff)*newsig = sig +c Cela ne se résoud pas analytiquement: +c => on résoud par iterration bourrine +c ---------------------------------------------- +c Information : where exp(1-1./x**2) become << x +c x exp(1-1./x**2) /x +c 1 1 +c 0.68 0.5 +c 0.5 1.E-1 +c 0.391 1.E-2 +c 0.333 1.E-3 +c 0.295 1.E-4 +c 0.269 1.E-5 +c 0.248 1.E-6 +c => on peut utiliser newsig = sig*preff/pa si sig*preff/pa < 0.25 + + + implicit none + real x1, x2, sig,pa,preff, newsig, F + integer j + + newsig = sig + x1=0 + x2=1 + if (sig.ge.1) then + newsig= sig + else if (sig*preff/pa.ge.0.25) then + DO J=1,9999 ! nombre d''iteration max + F=((1 -pa/preff)*exp(1-1./newsig**2)+(pa/preff)*newsig)/sig +c write(0,*) J, ' newsig =', newsig, ' F= ', F + if (F.gt.1) then + X2 = newsig + newsig=(X1+newsig)*0.5 + else + X1 = newsig + newsig=(X2+newsig)*0.5 + end if +c Test : on arete lorsque on approxime sig à moins de 0.01 m près +c (en pseudo altiude) : + IF(abs(10.*log(F)).LT.1.E-5) goto 999 + END DO + else ! if (sig*preff/pa.le.0.25) then + newsig= sig*preff/pa + end if + 999 continue + Return + END Index: /trunk/LMDZ.TITAN/libf/dyn3d/disvert.orig =================================================================== --- /trunk/LMDZ.TITAN/libf/dyn3d/disvert.orig (revision 1644) +++ /trunk/LMDZ.TITAN/libf/dyn3d/disvert.orig (revision 1644) @@ -0,0 +1,341 @@ + SUBROUTINE disvert + +c Auteur : P. Le Van . F. Forget Y. Wanherdrick +c Many modif special mars !! + + IMPLICIT NONE + +#include "dimensions.h" +#include "paramet.h" +#include "comvert.h" +#include "comconst.h" +#include "hybrid.h" +c +c======================================================================= +c Discretisation verticale en coordonnée hybride +c +c======================================================================= +c +c declarations: +c ------------- +c +c + INTEGER l,ll + REAL snorm + REAL alpha,beta,gama,delta,deltaz,h,zsig,quoi,quand + INTEGER np,ierr + integer :: ierr1,ierr2,ierr3,ierr4 + REAL x + + REAL SSUM + EXTERNAL SSUM + real newsig + REAL dz0,dz1,nhaut,sig1,esig,csig,zz + real tt,rr,gg, prevz + real s(llm),dsig(llm) + +c +c----------------------------------------------------------------------- +c + pi=2.*ASIN(1.) + + open(99,file="sigma.def",status='old',form='formatted', + s iostat=ierr1) +! Ouverture possible de fichiers typiquement E.T. + + if(ierr1.ne.0) then + close(99) + open(99,file="esasig.def",status='old',form='formatted', + s iostat=ierr2) + if(ierr2.ne.0) then + close(99) + open(99,file="tritonsig.def",status='old',form='formatted', + s iostat=ierr3) + if(ierr3.ne.0) then + close(99) + open(99,file="z2sig.def",status='old',form='formatted', + s iostat=ierr4) + endif + endif + endif + +c----------------------------------------------------------------------- +c cas 1 on lit les options dans sigma.def: +c ---------------------------------------- + + IF (ierr1.eq.0) THEN + + PRINT*,'*****************************' + PRINT*,'WARNING Lecture de sigma.def' + PRINT*,'*****************************' + READ(99,*) deltaz + READ(99,*) h + READ(99,*) beta + READ(99,*) gama + READ(99,*) delta + READ(99,*) np + CLOSE(99) + alpha=deltaz/(llm*h) +c + + DO l = 1, llm + dsig(l) = (alpha+(1.-alpha)*exp(-beta*(llm-l)))* + $ ( (tanh(gama*l)/tanh(gama*llm))**np + + $ (1.-l/FLOAT(llm))*delta ) + ENDDO + + sig(1)=1. + DO l=1,llm-1 + sig(l+1)=sig(l)*(1.-dsig(l))/(1.+dsig(l)) + ENDDO + sig(llm+1)=0. + +c + +! Debut de la partie martienne pour lecture de esasig.def +c========================================================= + + ELSE IF(ierr2.eq.0) then + + PRINT*,'*****************************' + PRINT*,'WARNING Lecture de esasig.def' + PRINT*,'*****************************' + READ(99,*) h + READ(99,*) dz0 + READ(99,*) dz1 + READ(99,*) nhaut + CLOSE(99) + + dz0=dz0/h + dz1=dz1/h + + sig1=(1.-dz1)/tanh(.5*(llm-1)/nhaut) + + esig=1. + + PRINT* + do l=1,20 + esig=-log((1./sig1-1.)*exp(-dz0)/esig)/(llm-1.) + enddo + print*,'esig=',esig + PRINT* + csig=(1./sig1-1.)/(exp(esig)-1.) + + DO L = 2, llm + zz=csig*(exp(esig*(l-1.))-1.) + sig(l) =1./(1.+zz) + & * tanh(.5*(llm+1-l)/nhaut) + ENDDO + sig(1)=1. + sig(llm+1)=0. + +c Fin de la partie martienne +c ========================== + + ELSE IF(ierr3.eq.0) then + + PRINT*,'********************************' + PRINT*,'WARNING Lecture de tritonsig.def' + PRINT*,'********************************' + PRINT*,'kappa=', kappa + READ(99,*) gg + READ(99,*) rr + sig(1)=1. + prevz=0. + do l=1,llm-1 + read(99,*) zz, tt + sig(l+1) = sig(l)* exp(-(zz-prevz)*gg/(rr*tt)) + prevz=zz + if(l.eq.llm/2)h =1.e-3* rr*tt/gg + end do + sig(llm+1)=0. + CLOSE(99) + + ELSE IF(ierr4.eq.0) then + PRINT*,'****************************' + PRINT*,'WARNING Lecture de z2sig.def' + PRINT*,'****************************' + + + READ(99,*) h + do l=1,llm + read(99,*) zsig + s(l) = exp(-kappa*zsig/h) + end do + CLOSE(99) + + sig(1) =1 + do l=2,llm + sig(l) = 0.5 * (s(l)**(1/kappa)+s(l-1)**(1/kappa)) + end do + sig(llm+1) =0 + + ELSE +c----------------------------------------------------------------------- +c cas 2 ancienne discretisation (LMD5...): +c ---------------------------------------- + + PRINT*,'********************************************' + PRINT*,'WARNING!!! Ancienne discretisation verticale' + PRINT*,'********************************************' + stop ! interdit sur MARS + h=7. + snorm = 0. + DO l = 1, llm + x = 2.*asin(1.) * (FLOAT(l)-0.5) / float(llm+1) + dsig(l) = 1.0 + 7.0 * SIN(x)**2 + snorm = snorm + dsig(l) + ENDDO + snorm = 1./snorm + DO l = 1, llm + dsig(l) = dsig(l)*snorm + ENDDO + sig(llm+1) = 0. + DO l = llm, 1, -1 + sig(l) = sig(l+1) + dsig(l) + ENDDO + + ENDIF +c----------------------------------------------------------------------- + + DO l=1,llm + nivsigs(l) = FLOAT(l) + ENDDO + + DO l=1,llmp1 + nivsig(l)= FLOAT(l) + ENDDO + +c On ne recalcule s que dans les cas "classique" +c (esasig.def, sigma.def, ou ancienne discretisation sans fichier) + IF( (ierr1.eq.0) .or. (ierr2.eq.0) + & .or. ((ierr3.ne.0).and.(ierr4.ne.0)) ) then + quoi = 1. + 2.* kappa + s( llm ) = 1. + s(llm-1) = quoi + IF( llm.gt.2 ) THEN + DO ll = 2, llm-1 + l = llm+1 - ll + quand = sig(l+1)/ sig(l) + s(l-1) = quoi * (1.-quand) * s(l) + quand * s(l+1) + ENDDO + END IF +c + snorm=(1.-.5*sig(2)+kappa*(1.-sig(2)))*s(1)+.5*sig(2)*s(2) + DO l = 1, llm + s(l) = s(l)/ snorm + ENDDO + END IF + +c +c .... Calculs de ap(l) et de bp(l) .... +c ......................................... +c +c +c ..... pa et preff sont lus sur les fichiers start par dynetat0 ..... +c + + + if (hybrid) then + write(*,*) "*******************************" + write(*,*) "Systeme en coordonnees hybrides" + write(*,*) +c Coordonnees hybrides avec mod + write(*,*) "sig disvert",sig + DO l = 1, llm + call sig_hybrid(sig(l),pa,preff,1.e-6,newsig) + bp(l) = EXP( 1. -1./( newsig*newsig) ) + ap(l) = pa * (newsig - bp(l) ) + enddo + call sig_hybrid(sig(llmp1),pa,preff,1.e-6,newsig) + ap(llmp1) = pa * ( newsig - bp(llmp1) ) + else + write(*,*) "****************************" + write(*,*) "Systeme en coordonnees sigma" + write(*,*) +c Pour ne pas passer en coordonnees hybrides + DO l = 1, llm + ap(l) = 0. + bp(l) = sig(l) + ENDDO + ap(llmp1) = 0. + endif + + bp(llmp1) = 0. + + PRINT *,' BP ' + PRINT *, bp + PRINT *,' AP ' + PRINT *, ap + +c Calcul au milieu des couches : +c WARNING : le choix de placer le milieu des couches au niveau de +c pression intermédiaire est arbitraire et pourrait etre modifié. +c Le calcul du niveau pour la derniere couche +c (on met la meme distance (en log pression) entre P(llm) +c et P(llm -1) qu'entre P(llm-1) et P(llm-2) ) est +c Specifique. Ce choix est spécifié ici ET dans exner_hyb.F + + DO l = 1, llm-1 + aps(l) = 0.5 *( ap(l) +ap(l+1)) + bps(l) = 0.5 *( bp(l) +bp(l+1)) + ENDDO + + if (hybrid) then + aps(llm) = ap(llm-1)**2 / ap(llm-2) + bps(llm) = 0.5*(bp(llm) + bp(llm+1)) + else + bps(llm) = bp(llm-1)**2 / bp(llm-2) + aps(llm) = 0. + end if + + PRINT *,' BPs ' + PRINT *, bps + PRINT *,' APs' + PRINT *, aps + + DO l = 1, llm + presnivs(l) = aps(l)+bps(l)*preff + pseudoalt(l) = -10.*log(presnivs(l)/preff) + ENDDO + + PRINT *,' PRESNIVS' + PRINT *,presnivs + PRINT *,'Pseudo altitude des Presnivs : ' + PRINT *,pseudoalt + + RETURN + END + +c ************************************************************ + subroutine sig_hybrid(sig,pa,preff,xacc,newsig) +c ---------------------------------------------- +c Subroutine utilisee pour calculer des valeurs de sigma modifie +c pour conserver les coordonnees verticales decrites dans +c esasig.def/z2sig.def lors du passage en coordonnees hybrides +c F. Forget 2002 +c ---------------------------------------------- + implicit none + real x1, x2, xacc, sig,pa,preff, newsig, F + integer j + + newsig = sig + x1=0 + x2=1 + if ((sig.ne.0).and.(sig.ne.1)) then + DO J=1,9999 ! nombre d''iteration max + F=(1 -pa/preff)*exp(1-1./newsig**2)+(pa/preff)*newsig -sig + if (F.gt.0) then + X2 = newsig + newsig=(X1+newsig)*0.5 + else + X1 = newsig + newsig=(X2+newsig)*0.5 + end if +c write(0,*) J, ' newsig =', newsig, ' F= ', F + + IF(X2-X1.LT.XACC) RETURN + END DO + end if + Return + END Index: /trunk/LMDZ.TITAN/libf/dyn3d/diverg.F =================================================================== --- /trunk/LMDZ.TITAN/libf/dyn3d/diverg.F (revision 1644) +++ /trunk/LMDZ.TITAN/libf/dyn3d/diverg.F (revision 1644) @@ -0,0 +1,83 @@ + SUBROUTINE diverg(klevel,x,y,div) +c +c P. Le Van +c +c ********************************************************************* +c ... calcule la divergence a tous les niveaux d'1 vecteur de compos. +c x et y... +c x et y etant des composantes covariantes ... +c ********************************************************************* + IMPLICIT NONE +c +c x et y sont des arguments d'entree pour le s-prog +c div est un argument de sortie pour le s-prog +c +c +c --------------------------------------------------------------------- +c +c ATTENTION : pendant ce s-pg , ne pas toucher au COMMON/scratch/ . +c +c --------------------------------------------------------------------- +#include "dimensions.h" +#include "paramet.h" +#include "comgeom.h" +c +c .......... variables en arguments ................... +c + INTEGER klevel + REAL x( ip1jmp1,klevel ),y( ip1jm,klevel ),div( ip1jmp1,klevel ) + INTEGER l,ij +c +c ............... variables locales ......................... + + REAL aiy1( iip1 ) , aiy2( iip1 ) + REAL sumypn,sumyps +c ................................................................... +c + EXTERNAL SSUM + REAL SSUM +c +c + DO 10 l = 1,klevel +c + DO ij = iip2, ip1jm - 1 + div( ij + 1, l ) = + * cvusurcu( ij+1 ) * x( ij+1,l ) - cvusurcu( ij ) * x( ij , l) + + * cuvsurcv(ij-iim) * y(ij-iim,l) - cuvsurcv(ij+1) * y(ij+1,l) + ENDDO +c +c .... correction pour div( 1,j,l) ...... +c .... div(1,j,l)= div(iip1,j,l) .... +c +CDIR$ IVDEP + DO ij = iip2,ip1jm,iip1 + div( ij,l ) = div( ij + iim,l ) + ENDDO +c +c .... calcul aux poles ..... +c + DO ij = 1,iim + aiy1(ij) = cuvsurcv( ij ) * y( ij , l ) + aiy2(ij) = cuvsurcv( ij+ ip1jmi1 ) * y( ij+ ip1jmi1, l ) + ENDDO + sumypn = SSUM ( iim,aiy1,1 ) / apoln + sumyps = SSUM ( iim,aiy2,1 ) / apols +c + DO ij = 1,iip1 + div( ij , l ) = - sumypn + div( ij + ip1jm, l ) = sumyps + ENDDO + 10 CONTINUE +c + +ccc CALL filtreg( div, jjp1, klevel, 2, 2, .TRUE., 1 ) + +c + DO l = 1, klevel + DO ij = iip2,ip1jm + div(ij,l) = div(ij,l) * unsaire(ij) + ENDDO + ENDDO +c + RETURN + END Index: /trunk/LMDZ.TITAN/libf/dyn3d/diverg_gam.F =================================================================== --- /trunk/LMDZ.TITAN/libf/dyn3d/diverg_gam.F (revision 1644) +++ /trunk/LMDZ.TITAN/libf/dyn3d/diverg_gam.F (revision 1644) @@ -0,0 +1,78 @@ + SUBROUTINE diverg_gam(klevel,cuvscvgam,cvuscugam,unsairegam , + * unsapolnga,unsapolsga, x, y, div ) +c +c P. Le Van +c +c ********************************************************************* +c ... calcule la divergence a tous les niveaux d'1 vecteur de compos. +c x et y... +c x et y etant des composantes covariantes ... +c ********************************************************************* + IMPLICIT NONE +c +c x et y sont des arguments d'entree pour le s-prog +c div est un argument de sortie pour le s-prog +c +c +c --------------------------------------------------------------------- +c +c ATTENTION : pendant ce s-pg , ne pas toucher au COMMON/scratch/ . +c +c --------------------------------------------------------------------- +#include "dimensions.h" +#include "paramet.h" +#include "comgeom.h" +c +c .......... variables en arguments ................... +c + INTEGER klevel + REAL x( ip1jmp1,klevel ),y( ip1jm,klevel ),div( ip1jmp1,klevel ) + REAL cuvscvgam(ip1jm),cvuscugam(ip1jmp1),unsairegam(ip1jmp1) + REAL unsapolnga,unsapolsga +c +c ............... variables locales ......................... + + REAL aiy1( iip1 ) , aiy2( iip1 ) + REAL sumypn,sumyps + INTEGER l,ij +c ................................................................... +c + EXTERNAL SSUM + REAL SSUM +c +c + DO 10 l = 1,klevel +c + DO ij = iip2, ip1jm - 1 + div( ij + 1, l ) = ( + * cvuscugam( ij+1 ) * x( ij+1,l ) - cvuscugam( ij ) * x( ij , l) + + * cuvscvgam(ij-iim) * y(ij-iim,l) - cuvscvgam(ij+1) * y(ij+1,l) )* + * unsairegam( ij+1 ) + ENDDO +c +c .... correction pour div( 1,j,l) ...... +c .... div(1,j,l)= div(iip1,j,l) .... +c +CDIR$ IVDEP + DO ij = iip2,ip1jm,iip1 + div( ij,l ) = div( ij + iim,l ) + ENDDO +c +c .... calcul aux poles ..... +c + DO ij = 1,iim + aiy1(ij) = cuvscvgam( ij ) * y( ij , l ) + aiy2(ij) = cuvscvgam( ij+ ip1jmi1 ) * y( ij+ ip1jmi1, l ) + ENDDO + sumypn = SSUM ( iim,aiy1,1 ) * unsapolnga + sumyps = SSUM ( iim,aiy2,1 ) * unsapolsga +c + DO ij = 1,iip1 + div( ij , l ) = - sumypn + div( ij + ip1jm, l ) = sumyps + ENDDO + 10 CONTINUE +c + + RETURN + END Index: /trunk/LMDZ.TITAN/libf/dyn3d/divergf.F =================================================================== --- /trunk/LMDZ.TITAN/libf/dyn3d/divergf.F (revision 1644) +++ /trunk/LMDZ.TITAN/libf/dyn3d/divergf.F (revision 1644) @@ -0,0 +1,83 @@ + SUBROUTINE divergf(klevel,x,y,div) +c +c P. Le Van +c +c ********************************************************************* +c ... calcule la divergence a tous les niveaux d'1 vecteur de compos. +c x et y... +c x et y etant des composantes covariantes ... +c ********************************************************************* + IMPLICIT NONE +c +c x et y sont des arguments d'entree pour le s-prog +c div est un argument de sortie pour le s-prog +c +c +c --------------------------------------------------------------------- +c +c ATTENTION : pendant ce s-pg , ne pas toucher au COMMON/scratch/ . +c +c --------------------------------------------------------------------- +#include "dimensions.h" +#include "paramet.h" +#include "comgeom.h" +c +c .......... variables en arguments ................... +c + INTEGER klevel + REAL x( ip1jmp1,klevel ),y( ip1jm,klevel ),div( ip1jmp1,klevel ) + INTEGER l,ij +c +c ............... variables locales ......................... + + REAL aiy1( iip1 ) , aiy2( iip1 ) + REAL sumypn,sumyps +c ................................................................... +c + EXTERNAL SSUM + REAL SSUM +c +c + DO 10 l = 1,klevel +c + DO ij = iip2, ip1jm - 1 + div( ij + 1, l ) = + * cvusurcu( ij+1 ) * x( ij+1,l ) - cvusurcu( ij ) * x( ij , l) + + * cuvsurcv(ij-iim) * y(ij-iim,l) - cuvsurcv(ij+1) * y(ij+1,l) + ENDDO +c +c .... correction pour div( 1,j,l) ...... +c .... div(1,j,l)= div(iip1,j,l) .... +c +CDIR$ IVDEP + DO ij = iip2,ip1jm,iip1 + div( ij,l ) = div( ij + iim,l ) + ENDDO +c +c .... calcul aux poles ..... +c + DO ij = 1,iim + aiy1(ij) = cuvsurcv( ij ) * y( ij , l ) + aiy2(ij) = cuvsurcv( ij+ ip1jmi1 ) * y( ij+ ip1jmi1, l ) + ENDDO + sumypn = SSUM ( iim,aiy1,1 ) / apoln + sumyps = SSUM ( iim,aiy2,1 ) / apols +c + DO ij = 1,iip1 + div( ij , l ) = - sumypn + div( ij + ip1jm, l ) = sumyps + ENDDO + 10 CONTINUE +c + + CALL filtreg( div, jjp1, klevel, 2, 2, .TRUE., 1 ) + +c + DO l = 1, klevel + DO ij = iip2,ip1jm + div(ij,l) = div(ij,l) * unsaire(ij) + ENDDO + ENDDO +c + RETURN + END Index: /trunk/LMDZ.TITAN/libf/dyn3d/divergst.F =================================================================== --- /trunk/LMDZ.TITAN/libf/dyn3d/divergst.F (revision 1644) +++ /trunk/LMDZ.TITAN/libf/dyn3d/divergst.F (revision 1644) @@ -0,0 +1,60 @@ + SUBROUTINE divergst(klevel,x,y,div) + IMPLICIT NONE +c +c P. Le Van +c +c ****************************************************************** +c ... calcule la divergence a tous les niveaux d'1 vecteur de compos. x et y... +c x et y etant des composantes contravariantes ... +c **************************************************************** +c x et y sont des arguments d'entree pour le s-prog +c div est un argument de sortie pour le s-prog +c +c +c ------------------------------------------------------------------- +c +#include "dimensions.h" +#include "paramet.h" +#include "comgeom.h" + + INTEGER klevel + REAL x( ip1jmp1,klevel ),y( ip1jm,klevel ),div( ip1jmp1,klevel ) + INTEGER ij,l,i + REAL aiy1( iip1 ) , aiy2( iip1 ) + REAL sumypn,sumyps + + REAL SSUM + EXTERNAL SSUM +c +c + DO 10 l = 1,klevel +c + DO 1 ij = iip2, ip1jm - 1 + div( ij + 1, l ) = x(ij+1,l) - x(ij,l)+ y(ij-iim,l)-y(ij+1,l) + 1 CONTINUE +c +c .... correction pour div( 1,j,l) ...... +c .... div(1,j,l)= div(iip1,j,l) .... +c +CDIR$ IVDEP + DO 3 ij = iip2,ip1jm,iip1 + div( ij,l ) = div( ij + iim,l ) + 3 CONTINUE +c +c .... calcul aux poles ..... +c +c + DO 5 i = 1,iim + aiy1(i)= y(i,l) + aiy2(i)= y(i+ip1jmi1,l) + 5 CONTINUE + sumypn = SSUM ( iim,aiy1,1 ) + sumyps = SSUM ( iim,aiy2,1 ) + DO 7 i = 1,iip1 + div( i , l ) = - sumypn/iim + div( i + ip1jm, l ) = sumyps/iim + 7 CONTINUE +c + 10 CONTINUE + RETURN + END Index: /trunk/LMDZ.TITAN/libf/dyn3d/divgrad.F =================================================================== --- /trunk/LMDZ.TITAN/libf/dyn3d/divgrad.F (revision 1644) +++ /trunk/LMDZ.TITAN/libf/dyn3d/divgrad.F (revision 1644) @@ -0,0 +1,54 @@ + SUBROUTINE divgrad (klevel,h, lh, divgra ) + IMPLICIT NONE +c +c======================================================================= +c +c Auteur : P. Le Van +c ---------- +c +c lh +c calcul de (div( grad )) de h ..... +c h et lh sont des arguments d'entree pour le s-prog +c divgra est un argument de sortie pour le s-prog +c +c======================================================================= +c +c declarations: +c ------------- +c +#include "dimensions.h" +#include "paramet.h" +#include "comgeom.h" +#include "comdissipn.h" +c + INTEGER klevel + REAL h( ip1jmp1,klevel ), divgra( ip1jmp1,klevel ) +c + REAL ghy(ip1jm,llm), ghx(ip1jmp1,llm) + + INTEGER l,ij,iter,lh +c + EXTERNAL filtreg + EXTERNAL SCOPY, grad, covcont, diverg +c +c + CALL SCOPY ( ip1jmp1*klevel,h,1,divgra,1 ) +c + DO 10 iter = 1,lh + + CALL filtreg ( divgra,jjp1,klevel,2,1,.true.,1 ) + + CALL grad (klevel,divgra, ghx , ghy ) + CALL diverg (klevel, ghx , ghy , divgra ) + + CALL filtreg ( divgra,jjp1,klevel,2,1,.true.,1) + + DO 5 l = 1,klevel + DO 4 ij = 1, ip1jmp1 + divgra( ij,l ) = - cdivh * divgra( ij,l ) + 4 CONTINUE + 5 CONTINUE +c + 10 CONTINUE + RETURN + END Index: /trunk/LMDZ.TITAN/libf/dyn3d/divgrad2.F =================================================================== --- /trunk/LMDZ.TITAN/libf/dyn3d/divgrad2.F (revision 1644) +++ /trunk/LMDZ.TITAN/libf/dyn3d/divgrad2.F (revision 1644) @@ -0,0 +1,78 @@ + SUBROUTINE divgrad2 ( klevel, h, deltapres, lh, divgra ) +c +c P. Le Van +c +c *************************************************************** +c +c ..... calcul de (div( grad )) de ( pext * h ) ..... +c **************************************************************** +c h ,klevel,lh et pext sont des arguments d'entree pour le s-prg +c divgra est un argument de sortie pour le s-prg +c + IMPLICIT NONE +c +#include "dimensions.h" +#include "paramet.h" +#include "comgeom2.h" +#include "comdissipn.h" + +c ....... variables en arguments ....... +c + INTEGER klevel + REAL h( ip1jmp1,klevel ), deltapres( ip1jmp1,klevel ) + REAL divgra( ip1jmp1,klevel) +c +c ....... variables locales .......... +c + REAL signe, nudivgrs, sqrtps( ip1jmp1,llm ) + INTEGER l,ij,iter,lh +c ................................................................... + + EXTERNAL filtreg + EXTERNAL SCOPY, laplacien_gam +c + signe = (-1.)**lh + nudivgrs = signe * cdivh + + CALL SCOPY ( ip1jmp1 * klevel, h, 1, divgra, 1 ) + +c + CALL laplacien( klevel, divgra, divgra ) + + DO l = 1, klevel + DO ij = 1, ip1jmp1 + sqrtps( ij,l ) = SQRT( deltapres(ij,l) ) + ENDDO + ENDDO +c + DO l = 1, klevel + DO ij = 1, ip1jmp1 + divgra(ij,l) = divgra(ij,l) * sqrtps(ij,l) + ENDDO + ENDDO + +c ........ Iteration de l'operateur laplacien_gam ........ +c + DO iter = 1, lh - 2 + CALL laplacien_gam ( klevel,cuvscvgam2,cvuscugam2,unsair_gam2, + * unsapolnga2, unsapolsga2, divgra, divgra ) + ENDDO +c +c ............................................................... + + DO l = 1, klevel + DO ij = 1, ip1jmp1 + divgra(ij,l) = divgra(ij,l) * sqrtps(ij,l) + ENDDO + ENDDO +c + CALL laplacien ( klevel, divgra, divgra ) +c + DO l = 1,klevel + DO ij = 1,ip1jmp1 + divgra(ij,l) = nudivgrs * divgra(ij,l) / deltapres(ij,l) + ENDDO + ENDDO + + RETURN + END Index: /trunk/LMDZ.TITAN/libf/dyn3d/divgrad22.F =================================================================== --- /trunk/LMDZ.TITAN/libf/dyn3d/divgrad22.F (revision 1644) +++ /trunk/LMDZ.TITAN/libf/dyn3d/divgrad22.F (revision 1644) @@ -0,0 +1,55 @@ + SUBROUTINE divgrad2_mars (klevel,h, lh, divgra ) +c +c P. Le Van +c +c ************************************************************ +c +c lh +c calcul de (div( grad )) de h ..... +c ************************************************************ +c h et lh sont des arguments d'entree pour le s-prog +c divgra est un argument de sortie pour le s-prog +c + IMPLICIT NONE +c +#include "dimensions.h" +#include "paramet.h" +#include "comdissipn.h" + + INTEGER klevel + REAL h( ip1jmp1,klevel ), divgra( ip1jmp1,klevel ) +c + REAL ghy(ip1jm,llm), ghx(ip1jmp1,llm) + REAL signe, nudivgrs + + INTEGER l,ij,iter,lh + + EXTERNAL filtreg + EXTERNAL SCOPY, grad, covcont, diverg, divergst + + + signe = (-1.)**lh + nudivgrs = signe * cdivh + + CALL SCOPY ( ip1jmp1*klevel,h,1,divgra,1 ) + + DO 2 iter = 1, lh -1 + CALL grad (klevel,divgra, ghx , ghy ) + CALL divergst (klevel, ghx , ghy , divgra ) + 2 CONTINUE + + CALL filtreg (divgra,jjp1,klevel,2,1,.true.,1) + CALL grad (klevel,divgra, ghx, ghy ) + CALL covcont (klevel,ghx , ghy, ghx ,ghy ) + CALL diverg (klevel,ghx , ghy,divgra ) + + CALL filtreg ( divgra,jjp1,klevel,2,1,.true.,1) + + DO 5 l = 1,klevel + DO 4 ij = 1, ip1jmp1 + divgra( ij,l ) = nudivgrs * divgra( ij,l ) + 4 CONTINUE + 5 CONTINUE + + RETURN + END Index: /trunk/LMDZ.TITAN/libf/dyn3d/dteta1.F =================================================================== --- /trunk/LMDZ.TITAN/libf/dyn3d/dteta1.F (revision 1644) +++ /trunk/LMDZ.TITAN/libf/dyn3d/dteta1.F (revision 1644) @@ -0,0 +1,66 @@ + SUBROUTINE dteta1 ( teta, pbaru, pbarv, dteta) + IMPLICIT NONE + +c======================================================================= +c +c Auteur: P. Le Van +c ------- +c Modif F.Forget 03/94 (on retire q et dq pour construire dteta1) +c +c ******************************************************************** +c ... calcul du terme de convergence horizontale du flux d'enthalpie +c potentielle ...... +c ******************************************************************** +c .. teta,pbaru et pbarv sont des arguments d'entree pour le s-pg .... +c dteta sont des arguments de sortie pour le s-pg .... +c +c======================================================================= + + +#include "dimensions.h" +#include "paramet.h" + + REAL teta( ip1jmp1,llm ),pbaru( ip1jmp1,llm ),pbarv( ip1jm,llm) + REAL dteta( ip1jmp1,llm ) + INTEGER l,ij + + REAL hbyv( ip1jm,llm ), hbxu( ip1jmp1,llm ) + + EXTERNAL convflu + EXTERNAL filtreg +c + + DO 5 l = 1,llm + + DO 1 ij = iip2, ip1jm - 1 + hbxu(ij,l) = pbaru(ij,l) * 0.5 * ( teta(ij,l) + teta(ij+1,l) ) + 1 CONTINUE + +c .... correction pour hbxu(iip1,j,l) ..... +c .... hbxu(iip1,j,l)= hbxu(1,j,l) .... + +CDIR$ IVDEP + DO 2 ij = iip1+ iip1, ip1jm, iip1 + hbxu( ij, l ) = hbxu( ij - iim, l ) + 2 CONTINUE + + + DO 3 ij = 1,ip1jm + hbyv(ij,l)= pbarv(ij, l)* 0.5 * ( teta(ij, l)+ teta(ij +iip1,l) ) + 3 CONTINUE + + 5 CONTINUE + + + CALL convflu ( hbxu, hbyv, llm, dteta ) + + +c stockage dans dh de la convergence horizont. filtree' du flux +c .... ........... +c d'enthalpie potentielle . + + CALL filtreg( dteta, jjp1, llm, 2, 2, .true., 1) + +c + RETURN + END Index: /trunk/LMDZ.TITAN/libf/dyn3d/dudv1.F =================================================================== --- /trunk/LMDZ.TITAN/libf/dyn3d/dudv1.F (revision 1644) +++ /trunk/LMDZ.TITAN/libf/dyn3d/dudv1.F (revision 1644) @@ -0,0 +1,50 @@ + SUBROUTINE dudv1 ( vorpot, pbaru, pbarv, du, dv ) + IMPLICIT NONE +c +c----------------------------------------------------------------------- +c +c Auteur: P. Le Van +c ------- +c +c Objet: +c ------ +c calcul du terme de rotation +c ce terme est ajoute a d(ucov)/dt et a d(vcov)/dt .. +c vorpot, pbaru et pbarv sont des arguments d'entree pour le s-pg .. +c du et dv sont des arguments de sortie pour le s-pg .. +c +c----------------------------------------------------------------------- + +#include "dimensions.h" +#include "paramet.h" + + REAL vorpot( ip1jm,llm ) ,pbaru( ip1jmp1,llm ) , + * pbarv( ip1jm,llm ) ,du( ip1jmp1,llm ) ,dv( ip1jm,llm ) + INTEGER l,ij +c +c + DO 10 l = 1,llm +c + DO 2 ij = iip2, ip1jm - 1 + du( ij,l ) = 0.125 *( vorpot(ij-iip1, l) + vorpot( ij, l) ) * + * ( pbarv(ij-iip1, l) + pbarv(ij-iim, l) + + * pbarv( ij , l) + pbarv(ij+ 1 , l) ) + 2 CONTINUE +c + DO 3 ij = 1, ip1jm - 1 + dv( ij+1,l ) = - 0.125 *( vorpot(ij, l) + vorpot(ij+1, l) ) * + * ( pbaru(ij, l) + pbaru(ij+1 , l) + + * pbaru(ij+iip1, l) + pbaru(ij+iip2, l) ) + 3 CONTINUE +c +c .... correction pour dv( 1,j,l ) ..... +c .... dv(1,j,l)= dv(iip1,j,l) .... +c +CDIR$ IVDEP + DO 4 ij = 1, ip1jm, iip1 + dv( ij,l ) = dv( ij + iim, l ) + 4 CONTINUE +c + 10 CONTINUE + RETURN + END Index: /trunk/LMDZ.TITAN/libf/dyn3d/dudv2.F =================================================================== --- /trunk/LMDZ.TITAN/libf/dyn3d/dudv2.F (revision 1644) +++ /trunk/LMDZ.TITAN/libf/dyn3d/dudv2.F (revision 1644) @@ -0,0 +1,59 @@ + SUBROUTINE dudv2 ( teta, pkf, bern, du, dv ) + + IMPLICIT NONE +c +c======================================================================= +c +c Auteur: P. Le Van +c ------- +c +c Objet: +c ------ +c +c ***************************************************************** +c ..... calcul du terme de pression (gradient de p/densite ) et +c du terme de ( -gradient de la fonction de Bernouilli ) ... +c ***************************************************************** +c Ces termes sont ajoutes a d(ucov)/dt et a d(vcov)/dt .. +c +c +c teta , pkf, bern sont des arguments d'entree pour le s-pg .... +c du et dv sont des arguments de sortie pour le s-pg .... +c +c======================================================================= +c +#include "dimensions.h" +#include "paramet.h" + + REAL teta( ip1jmp1,llm ),pkf( ip1jmp1,llm ) ,bern( ip1jmp1,llm ), + * du( ip1jmp1,llm ), dv( ip1jm,llm ) + INTEGER l,ij +c +c + DO 5 l = 1,llm +c + DO 2 ij = iip2, ip1jm - 1 + du(ij,l) = du(ij,l) + 0.5* ( teta( ij,l ) + teta( ij+1,l ) ) * + * ( pkf( ij,l ) - pkf(ij+1,l) ) + bern(ij,l) - bern(ij+1,l) + 2 CONTINUE +c +c +c ..... correction pour du(iip1,j,l), j=2,jjm ...... +c ... du(iip1,j,l) = du(1,j,l) ... +c +CDIR$ IVDEP + DO 3 ij = iip1+ iip1, ip1jm, iip1 + du( ij,l ) = du( ij - iim,l ) + 3 CONTINUE +c +c + DO 4 ij = 1,ip1jm + dv( ij,l) = dv(ij,l) + 0.5 * ( teta(ij,l) + teta( ij+iip1,l ) ) * + * ( pkf(ij+iip1,l) - pkf( ij,l ) ) + * + bern( ij+iip1,l ) - bern( ij ,l ) + 4 CONTINUE +c + 5 CONTINUE +c + RETURN + END Index: /trunk/LMDZ.TITAN/libf/dyn3d/dump2d.F =================================================================== --- /trunk/LMDZ.TITAN/libf/dyn3d/dump2d.F (revision 1644) +++ /trunk/LMDZ.TITAN/libf/dyn3d/dump2d.F (revision 1644) @@ -0,0 +1,43 @@ + SUBROUTINE dump2d(im,jm,z,nom_z) + IMPLICIT NONE + INTEGER im,jm + REAL z(im,jm) + CHARACTER (len=*) :: nom_z + + INTEGER i,j,imin,illm,jmin,jllm + REAL zmin,zllm + + PRINT*,nom_z + + zmin=z(1,1) + zllm=z(1,1) + imin=1 + illm=1 + jmin=1 + jllm=1 + + DO j=1,jm + DO i=1,im + IF(z(i,j).GT.zllm) THEN + illm=i + jllm=j + zllm=z(i,j) + ENDIF + IF(z(i,j).LT.zmin) THEN + imin=i + jmin=j + zmin=z(i,j) + ENDIF + ENDDO + ENDDO + + PRINT*,'MIN: ',zmin + PRINT*,'MAX: ',zllm + + IF(zllm.GT.zmin) THEN + DO j=1,jm + WRITE(*,'(72i1)') (NINT(10.*(z(i,j)-zmin)/(zllm-zmin)),i=1,im) + ENDDO + ENDIF + RETURN + END Index: /trunk/LMDZ.TITAN/libf/dyn3d/dynetat0.F =================================================================== --- /trunk/LMDZ.TITAN/libf/dyn3d/dynetat0.F (revision 1644) +++ /trunk/LMDZ.TITAN/libf/dyn3d/dynetat0.F (revision 1644) @@ -0,0 +1,435 @@ + SUBROUTINE dynetat0(fichnom,vcov,ucov, + . teta,q,masse,ps,phis,time) + use infotrac, only: tname, nqtot + USE comvert_mod, ONLY: pa,preff + USE comconst_mod, ONLY: im,jm,lllm,daysec,dtvr,rad,omeg,g,cpp, + . kappa + USE logic_mod, ONLY: fxyhypb,ysinus + USE serre_mod, ONLY: clon,clat,grossismx,grossismy,dzoomx,dzoomy, + . taux,tauy + USE temps_mod, ONLY: day_ini + USE ener_mod, ONLY: etot0,ptot0,ztot0,stot0,ang0 + IMPLICIT NONE + +c======================================================================= +c +c Auteur: P. Le Van / L.Fairhead +c ------- +c +c objet: +c ------ +c +c Lecture de l'etat initial +c +c Modifs: Oct.2008 read in tracers by name. Ehouarn Millour +c +c======================================================================= +c----------------------------------------------------------------------- +c Declarations: +c ------------- + +#include "dimensions.h" +#include "paramet.h" +#include "comgeom.h" +#include "netcdf.inc" +!#include"advtrac.h" + +c Arguments: +c ---------- + + CHARACTER*(*) fichnom + REAL vcov(ip1jm,llm),ucov(ip1jmp1,llm),teta(ip1jmp1,llm) + REAL q(iip1,jjp1,llm,nqtot),masse(ip1jmp1,llm) + REAL ps(ip1jmp1),phis(ip1jmp1) + + REAL time + +c Variables +c + INTEGER length,iq,i,j,l + PARAMETER (length = 100) + REAL tab_cntrl(length) ! tableau des parametres du run + INTEGER ierr, nid, nvarid, nqold + CHARACTER str3*3,yes*1 + + +! added by RW for test + real pmean,airetot + integer ij + +c----------------------------------------------------------------------- + +c Ouverture NetCDF du fichier etat initial + + ierr = NF_OPEN (fichnom, NF_NOWRITE,nid) + IF (ierr.NE.NF_NOERR) THEN + write(6,*)' Pb d''ouverture du fichier ',fichnom + CALL ABORT + ENDIF + +c + ierr = NF_INQ_VARID (nid, "controle", nvarid) + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "dynetat0: Le champ est absent" + CALL abort + ENDIF +#ifdef NC_DOUBLE + ierr = NF_GET_VAR_DOUBLE(nid, nvarid, tab_cntrl) +#else + ierr = NF_GET_VAR_REAL(nid, nvarid, tab_cntrl) +#endif + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "dynetat0: Lecture echoue pour " + CALL abort + ENDIF + + im = tab_cntrl(1) + jm = tab_cntrl(2) + lllm = tab_cntrl(3) + day_ini = tab_cntrl(4) + rad = tab_cntrl(5) + omeg = tab_cntrl(6) + g = tab_cntrl(7) + cpp = tab_cntrl(8) + kappa = tab_cntrl(9) + daysec = tab_cntrl(10) + dtvr = tab_cntrl(11) + etot0 = tab_cntrl(12) + ptot0 = tab_cntrl(13) + ztot0 = tab_cntrl(14) + stot0 = tab_cntrl(15) + ang0 = tab_cntrl(16) + pa = tab_cntrl(17) + preff = tab_cntrl(18) +c + clon = tab_cntrl(19) + clat = tab_cntrl(20) + grossismx = tab_cntrl(21) + grossismy = tab_cntrl(22) +c + IF ( tab_cntrl(23).EQ.1. ) THEN + fxyhypb = . TRUE . + dzoomx = tab_cntrl(24) + dzoomy = tab_cntrl(25) + taux = tab_cntrl(27) + tauy = tab_cntrl(28) + ELSE + fxyhypb = . FALSE . + ysinus = . FALSE . + IF( tab_cntrl(26).EQ.1. ) ysinus = . TRUE. + ENDIF +c ................................................................. +c +c + PRINT*,'dynetat0: rad,omeg,g,cpp,kappa',rad,omeg,g,cpp,kappa + + IF( im.ne.iim ) THEN + PRINT 1,im,iim + STOP + ELSE IF( jm.ne.jjm ) THEN + PRINT 2,jm,jjm + STOP + ELSE IF( lllm.ne.llm ) THEN + PRINT 3,lllm,llm + STOP + ENDIF + + ierr = NF_INQ_VARID (nid, "rlonu", nvarid) + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "dynetat0: Le champ est absent" + CALL abort + ENDIF +#ifdef NC_DOUBLE + ierr = NF_GET_VAR_DOUBLE(nid, nvarid, rlonu) +#else + ierr = NF_GET_VAR_REAL(nid, nvarid, rlonu) +#endif + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "dynetat0: Lecture echouee pour " + CALL abort + ENDIF + + ierr = NF_INQ_VARID (nid, "rlatu", nvarid) + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "dynetat0: Le champ est absent" + CALL abort + ENDIF +#ifdef NC_DOUBLE + ierr = NF_GET_VAR_DOUBLE(nid, nvarid, rlatu) +#else + ierr = NF_GET_VAR_REAL(nid, nvarid, rlatu) +#endif + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "dynetat0: Lecture echouee pour " + CALL abort + ENDIF + + ierr = NF_INQ_VARID (nid, "rlonv", nvarid) + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "dynetat0: Le champ est absent" + CALL abort + ENDIF +#ifdef NC_DOUBLE + ierr = NF_GET_VAR_DOUBLE(nid, nvarid, rlonv) +#else + ierr = NF_GET_VAR_REAL(nid, nvarid, rlonv) +#endif + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "dynetat0: Lecture echouee pour " + CALL abort + ENDIF + + ierr = NF_INQ_VARID (nid, "rlatv", nvarid) + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "dynetat0: Le champ est absent" + CALL abort + ENDIF +#ifdef NC_DOUBLE + ierr = NF_GET_VAR_DOUBLE(nid, nvarid, rlatv) +#else + ierr = NF_GET_VAR_REAL(nid, nvarid, rlatv) +#endif + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "dynetat0: Lecture echouee pour rlatv" + CALL abort + ENDIF + + ierr = NF_INQ_VARID (nid, "cu", nvarid) + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "dynetat0: Le champ est absent" + CALL abort + ENDIF +#ifdef NC_DOUBLE + ierr = NF_GET_VAR_DOUBLE(nid, nvarid, cu) +#else + ierr = NF_GET_VAR_REAL(nid, nvarid, cu) +#endif + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "dynetat0: Lecture echouee pour " + CALL abort + ENDIF + + ierr = NF_INQ_VARID (nid, "cv", nvarid) + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "dynetat0: Le champ est absent" + CALL abort + ENDIF +#ifdef NC_DOUBLE + ierr = NF_GET_VAR_DOUBLE(nid, nvarid, cv) +#else + ierr = NF_GET_VAR_REAL(nid, nvarid, cv) +#endif + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "dynetat0: Lecture echouee pour " + CALL abort + ENDIF + + ierr = NF_INQ_VARID (nid, "aire", nvarid) + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "dynetat0: Le champ est absent" + CALL abort + ENDIF +#ifdef NC_DOUBLE + ierr = NF_GET_VAR_DOUBLE(nid, nvarid, aire) +#else + ierr = NF_GET_VAR_REAL(nid, nvarid, aire) +#endif + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "dynetat0: Lecture echouee pour " + CALL abort + ENDIF + + ierr = NF_INQ_VARID (nid, "phisinit", nvarid) + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "dynetat0: Le champ est absent" + CALL abort + ENDIF +#ifdef NC_DOUBLE + ierr = NF_GET_VAR_DOUBLE(nid, nvarid, phis) +#else + ierr = NF_GET_VAR_REAL(nid, nvarid, phis) +#endif + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "dynetat0: Lecture echouee pour " + CALL abort + ENDIF + + ierr = NF_INQ_VARID (nid, "Time", nvarid) + IF (ierr .NE. NF_NOERR) THEN + ierr = NF_INQ_VARID (nid, "temps", nvarid) + IF (ierr .NE. NF_NOERR) THEN + PRINT*, "dynetat0: