Index: trunk/ICOSA_LMDZ/compile_irene-amd
===================================================================
--- trunk/ICOSA_LMDZ/compile_irene-amd	(revision 2912)
+++ trunk/ICOSA_LMDZ/compile_irene-amd	(revision 2912)
@@ -0,0 +1,9 @@
+# Gas Giants:
+#make_icosa_lmdz -p std -p_opt "-b 20x25 -s 2" -parallel mpi_omp -arch X64_IRENE-AMD -arch_path ../ARCH -job 8
+
+# Venus:
+#make_icosa_lmdz -p venus -parallel mpi -arch X64_IRENE-AMD -arch_path ../ARCH -job 8
+
+# Mars:
+make_icosa_lmdz -p mars -parallel mpi_omp -arch X64_IRENE-AMD -arch_path ../ARCH -job 8
+
Index: trunk/ICOSA_LMDZ/make_icosa_lmdz
===================================================================
--- trunk/ICOSA_LMDZ/make_icosa_lmdz	(revision 2911)
+++ trunk/ICOSA_LMDZ/make_icosa_lmdz	(revision 2912)
@@ -227,5 +227,6 @@
 if [[ -d ../ICOSAGCM ]] ; then
     cd ../ICOSAGCM 
-    ./make_icosa -$compil_mode -parallel $parallel -external_ioipsl -with_xios -arch $arch -arch_path $arch_path -job $job $full_flag || exit 1
+    # for now compile using fcm1
+    ./make_icosa -with_fcm1 -$compil_mode -parallel $parallel -external_ioipsl -with_xios -arch $arch -arch_path $arch_path -job $job $full_flag || exit 1
     cd -
 else
Index: trunk/ICOSA_LMDZ/src/disvert_icosa_lmdz.f90
===================================================================
--- trunk/ICOSA_LMDZ/src/disvert_icosa_lmdz.f90	(revision 2911)
+++ trunk/ICOSA_LMDZ/src/disvert_icosa_lmdz.f90	(revision 2912)
@@ -5,5 +5,5 @@
 contains
 
-  SUBROUTINE disvert_icosa_lmdz(ap,bp,presnivs)
+  SUBROUTINE disvert_icosa_lmdz(ap,bp,presnivs,presinter)
   ! Routine to compute ap(),bp() and presnivs() in the same way as done
   ! in LMDZ for planets (see LMDZ.COMMON/libf/dyn3d_common/disvert_noterre.F)
@@ -23,4 +23,5 @@
   REAL(rstd),INTENT(OUT) :: bp(:)
   REAL(rstd),INTENT(OUT) :: presnivs(:)
+  REAL(rstd),INTENT(OUT) :: presinter(:)
 
   INTEGER :: unit
@@ -111,4 +112,8 @@
       presnivs(l)=0.5*(ap(l)+bp(l)*preff+ap(l+1)+bp(l+1)*preff)
     ENDDO
+    ! build presinter(), approximative inter-layer pressures
+    DO l=1,llm+1
+      presinter(l)=ap(l)+bp(l)*preff
+    ENDDO
     
     ! tell the world about it
