Index: trunk/MESOSCALE/LMD_MM_MARS/SRC/LES/modif_mars/Registry.EM
===================================================================
--- trunk/MESOSCALE/LMD_MM_MARS/SRC/LES/modif_mars/Registry.EM	(revision 1662)
+++ trunk/MESOSCALE/LMD_MM_MARS/SRC/LES/modif_mars/Registry.EM	(revision 1724)
@@ -99,4 +99,11 @@
 state  real  RICE      ikj  misc  1  -  rd   "RICE"      "ICE RADIUS"                      "m"       #SAVEMARS3 rice
 state  real  PDTZ      ikj  misc  1  -  rd   "PDT"       "TEMP TENDENCY"                   "K s-1"   #SAVEMARS3 pdt
+state  real  HR_SW     ikj   misc  1  -  -  "HR_SW"     "HEATING RATE SW"                 "K/s"
+state  real  HR_LW     ikj   misc  1  -  -  "HR_LW"     "HEATING RATE LW"                 "K/s"
+state  real  HR_DYN     ikj   misc  1  -  -  "HR_DYN"     "HEATING RATE DYN"                 "K/s"
+state  real  DDT     ikj   misc  1  -  -  "DDT"     "TEMPERATURE TENDENCY"                 "K/s"
+state  real  DT_RAD     ikj   misc  1  -  -  "DT_RAD"     "RADIATIVE TEMPERATURE TENDENCY"                 "K/s"
+state  real  DT_VDF     ikj   misc  1  -  -  "DT_VDF"     "PBL CLMAIN TEMPERATURE TENDENCY"                 "K/s"
+state  real  DT_AJS     ikj   misc  1  -  -  "DT_AJS"     "AJUSTEMENT SEC TEMPERATURE TENDENCY"                 "K/s"
 ####
 ####
Index: trunk/MESOSCALE/LMD_MM_MARS/SRC/LES/modif_mars/Registry.EM.newphys
===================================================================
--- trunk/MESOSCALE/LMD_MM_MARS/SRC/LES/modif_mars/Registry.EM.newphys	(revision 1662)
+++ trunk/MESOSCALE/LMD_MM_MARS/SRC/LES/modif_mars/Registry.EM.newphys	(revision 1724)
@@ -82,4 +82,10 @@
 state  real  HR_SW     ikj   misc  1  -  -  "HR_SW"     "HEATING RATE SW"                 "K/s"
 state  real  HR_LW     ikj   misc  1  -  -  "HR_LW"     "HEATING RATE LW"                 "K/s"
+state  real  HR_DYN     ikj   misc  1  -  -  "HR_DYN"     "HEATING RATE DYN"                 "K/s"
+state  real  DDT     ikj   misc  1  -  -  "DDT"     "TEMPERATURE TENDENCY"                 "K/s"
+state  real  DT_RAD     ikj   misc  1  -  -  "DT_RAD"     "RADIATIVE TEMPERATURE TENDENCY"                 "K/s"
+state  real  DT_VDF     ikj   misc  1  -  -  "DT_VDF"     "PBL CLMAIN TEMPERATURE TENDENCY"                 "K/s"
+state  real  DT_AJS     ikj   misc  1  -  -  "DT_AJS"     "AJUSTEMENT SEC TEMPERATURE TENDENCY"                 "K/s"
+
 state  real  SWDOWNZ    ij   misc  1  -  -  "SWDOWNZ"   "DOWNWARD SW FLUX AT SURFACE"     "W m-2"
 #### DUST CYCLE
@@ -96,4 +102,5 @@
 state  real  ZMAX       ij   misc  1  -  -  "ZMAX"      "MAXIMUM LEVEL THERMALS"          "m"
 state  real  HFMAX      ij   misc  1  -  -  "HFMAX"     "MAXIMUM PBL HEAT FLUX"           "m.K/s"
+
 ####
 ####
@@ -303,5 +310,5 @@
 state    real   t_save         ikj     dyn_em      1         -               "t_save"
 #                                               
-
+state    real   tz_init        ikj     dyn_em      1         -      ir       "tz_init" "initial potential temperature" "K"
 
 # Mass
Index: trunk/MESOSCALE/LMD_MM_MARS/SRC/LES/modif_mars/module_big_step_utilities_em.F
===================================================================
--- trunk/MESOSCALE/LMD_MM_MARS/SRC/LES/modif_mars/module_big_step_utilities_em.F	(revision 1662)
+++ trunk/MESOSCALE/LMD_MM_MARS/SRC/LES/modif_mars/module_big_step_utilities_em.F	(revision 1724)
@@ -14,4 +14,5 @@
 
    USE module_domain, ONLY : domain
+   USE module_configure
    USE module_model_constants
    USE module_state_description
@@ -4475,5 +4476,10 @@
       p_phy(i,k,j) = p(i,k,j) + pb(i,k,j)
       pi_phy(i,k,j) = (p_phy(i,k,j)/p1000mb)**rcp
-      t_phy(i,k,j) = th_phy(i,k,j)*pi_phy(i,k,j)
+      IF (planet.eq. "venus" ) THEN 
+      !call tpot2t(1,th_phy(i,k,j), t_phy(i,k,j), pi_phy(i,k,j))
+        t_phy(i,k,j)= (th_phy(i,k,j)**nu - nu*(TT00**nu)*log((p1000mb/p_phy(i,k,j))**rcp))**(1/nu)
+      ELSE
+        t_phy(i,k,j) = th_phy(i,k,j)*pi_phy(i,k,j)
+      ENDIF
       rho(i,k,j) = 1./alt(i,k,j)*(1.+moist(i,k,j,P_QV))
       mu_3d(i,k,j) = mu(i,j)
Index: trunk/MESOSCALE/LMD_MM_MARS/SRC/LES/modif_mars/module_first_rk_step_part1.F
===================================================================
--- trunk/MESOSCALE/LMD_MM_MARS/SRC/LES/modif_mars/module_first_rk_step_part1.F	(revision 1662)
+++ trunk/MESOSCALE/LMD_MM_MARS/SRC/LES/modif_mars/module_first_rk_step_part1.F	(revision 1724)
@@ -650,4 +650,9 @@
      &       ,HR_SW=grid%HR_SW   &
      &       ,HR_LW=grid%HR_LW   &
+     &       ,HR_DYN=grid%HR_DYN   &
+     &       ,DDT=grid%DDT  &
+     &       ,DT_RAD=grid%DT_RAD  &
+     &       ,DT_VDF=grid%DT_VDF  &
+     &       ,DT_AJS=grid%DT_AJS  &
      &       ,SWDOWNZ=grid%SWDOWNZ   &
      &       ,TAU_DUST=grid%TAU_DUST   &
Index: trunk/MESOSCALE/LMD_MM_MARS/SRC/LES/modif_mars/module_initialize_les.F
===================================================================
--- trunk/MESOSCALE/LMD_MM_MARS/SRC/LES/modif_mars/module_initialize_les.F	(revision 1662)
+++ trunk/MESOSCALE/LMD_MM_MARS/SRC/LES/modif_mars/module_initialize_les.F	(revision 1724)
@@ -86,5 +86,5 @@
 
    INTEGER, PARAMETER :: nl_max = 1000
-   REAL, DIMENSION(nl_max) :: zk, p_in, theta, rho, u, v, qv, pd_in
+   REAL, DIMENSION(nl_max) :: zk, p_in, theta, Tz, rho, u, v, qv, pd_in
    INTEGER :: nl_in
 
@@ -116,5 +116,9 @@
  ! for mode 3
  REAL, DIMENSION(nl_max) :: profdustq,profdustn
- REAL, DIMENSION(nl_max) :: prescribed_sw,prescribed_lw
+ REAL, DIMENSION(nl_max) :: hrsw,hrlw,hrdyn
+ REAL, DIMENSION(nl_max) :: trac
+ REAL, DIMENSION(nl_max) :: prescribed_sw,prescribed_lw,prescribed_dyn
+ REAL, DIMENSION(nl_max) :: venus_hrdyn
+ REAL, DIMENSION(nl_max) :: altitude
 !!MARS
 
@@ -123,11 +127,8 @@
       !INTEGER :: hypsometric_opt = 2 ! Wee et al. 2012 correction
 
-character(len=10) :: planet
 
 #ifdef DM_PARALLEL
 #    include <data_calls.inc>
 #endif
- 
-   call init_planet_constants
 
    SELECT CASE ( model_data_order )
@@ -172,12 +173,12 @@
 
 
-   !stretch_grid = .false.
+   stretch_grid = .false.
 !  FOR LES, set stretch to false
-   stretch_grid = .true.
+   !stretch_grid = .true.
    delt = 3.
 !   z_scale = .50
 !   z_scale = .10
 !   z_scale = .25
-!   z_scale = .15
+!   z_scale = .1
    pi = 2.*asin(1.0)
    write(6,*) ' pi is ',pi
@@ -302,5 +303,4 @@
    grid%rdx = 1./config_flags%dx
    grid%rdy = 1./config_flags%dy
-
 !  get the sounding from the ascii sounding file, first get dry sounding and 
 !  calculate base state
@@ -310,5 +310,5 @@
   write(6,*) ' getting dry sounding for base state '
 
-  CALL get_sounding( zk, p_in, pd_in, theta, rho, u, v, qv, dry_sounding, nl_max, nl_in )
+  CALL get_sounding( zk, p_in, pd_in, theta, Tz, rho, u, v, qv, dry_sounding, nl_max, nl_in )
   ENDIF
   CALL wrf_dm_bcast_real( zk , nl_max )
@@ -316,4 +316,5 @@
   CALL wrf_dm_bcast_real( pd_in , nl_max )
   CALL wrf_dm_bcast_real( theta , nl_max )
+  CALL wrf_dm_bcast_real( Tz , nl_max )
   CALL wrf_dm_bcast_real( rho , nl_max )
   CALL wrf_dm_bcast_real( u , nl_max )
@@ -384,14 +385,17 @@
   ENDDO
 
-  xs=ide/2 -3
-  xs=ids   -3
-  xe=xs + 6
-  ys=jde/2 -3
-  ye=ys + 6
-  mtn_ht = 500
+  xs=ide/2 -25
+  !xs=ids   -3
+  !xe=xs + 6
+  xe=xs + 25
+  !ys=jde/2 -3
+  ys=jde/2 -25
+  !ye=ys + 6
+  ye=ys + 25
+  mtn_ht = 1000
 #ifdef MTN
   DO j=max(ys,jds),min(ye,jde-1)
   DO i=max(xs,ids),min(xe,ide-1)
-     grid%ht(i,j) = mtn_ht * 0.25 * &
+     grid%ht(i,j) = alt_input + mtn_ht * 0.25 * &
                ( 1. + COS ( 2*pi/(xe-xs) * ( i-xs ) + pi ) ) * &
                ( 1. + COS ( 2*pi/(ye-ys) * ( j-ys ) + pi ) )
@@ -434,5 +438,6 @@
       p_level = grid%znu(k)*(p_surf - grid%p_top) + grid%p_top
       grid%pb(i,k,j) = p_level
-      grid%t_init(i,k,j) = interp_0( theta, p_in, p_level, nl_in ) - t0
+      grid%t_init(i,k,j) = interp_0_log( theta, p_in, p_level, nl_in ) - t0
+      grid%tz_init(i,k,j) = interp_0_log( Tz, p_in, p_level, nl_in )
       grid%alb(i,k,j) = (r_d/p1000mb)*(grid%t_init(i,k,j)+t0)*(grid%pb(i,k,j)/p1000mb)**cvpm
     ENDDO
@@ -458,5 +463,4 @@
   ENDDO
   ENDDO
-
   IF ( wrf_dm_on_monitor() ) THEN
     write(6,*) ' ptop is ',grid%p_top
@@ -468,5 +472,5 @@
   write(6,*) ' getting moist sounding for full state '
   dry_sounding = .false.
-  CALL get_sounding( zk, p_in, pd_in, theta, rho, u, v, qv, dry_sounding, nl_max, nl_in )
+  CALL get_sounding( zk, p_in, pd_in, theta, Tz, rho, u, v, qv, dry_sounding, nl_max, nl_in )
 
   DO J = jts, min(jde-1,jte)
@@ -491,6 +495,6 @@
       p_level = grid%znu(k)*(pd_surf - grid%p_top) + grid%p_top
 
-      moist(i,k,j,P_QV) = interp_0( qv, pd_in, p_level, nl_in )
-      grid%t_1(i,k,j)          = interp_0( theta, pd_in, p_level, nl_in ) - t0
+      moist(i,k,j,P_QV) = interp_0_log( qv, pd_in, p_level, nl_in )
+      grid%t_1(i,k,j)          = interp_0_log( theta, pd_in, p_level, nl_in ) - t0
       grid%t_2(i,k,j)          = grid%t_1(i,k,j)
       
@@ -694,5 +698,5 @@
     DO K = 1, kte-1
       p_level = grid%znu(k)*(p_surf - grid%p_top) + grid%p_top
-      grid%v_1(i,k,j) = interp_0( v, p_in, p_level, nl_in )
+      grid%v_1(i,k,j) = interp_0_log( v, p_in, p_level, nl_in )
       grid%v_2(i,k,j) = grid%v_1(i,k,j)
     ENDDO
@@ -718,5 +722,5 @@
     DO K = 1, kte-1
       p_level = grid%znu(k)*(p_surf - grid%p_top) + grid%p_top
-      grid%u_1(i,k,j) = interp_0( u, p_in, p_level, nl_in )
+      grid%u_1(i,k,j) = interp_0_log( u, p_in, p_level, nl_in )
       grid%u_2(i,k,j) = grid%u_1(i,k,j)
     ENDDO
@@ -847,5 +851,5 @@
       DO k=1,kte-1
          p_level = grid%znu(k)*(pd_surf - grid%p_top) + grid%p_top
-         scalar(its:ite,k,jts:jte,2) = interp_0( qv, pd_in, p_level, nl_in )
+         scalar(its:ite,k,jts:jte,2) = interp_0_log( qv, pd_in, p_level, nl_in )
          scalar(its:ite,k,jts:jte,3) = 0.
            !! water ice is set to 0 (was put into water vapor when building prof from MCD)
@@ -862,6 +866,6 @@
       DO k=1,kte-1
          p_level = grid%znu(k)*(pd_surf - grid%p_top) + grid%p_top
-         scalar(its:ite,k,jts:jte,4) = interp_0( profdustq, pd_in, p_level, nl_in )
-         scalar(its:ite,k,jts:jte,5) = interp_0( profdustn, pd_in, p_level, nl_in )
+         scalar(its:ite,k,jts:jte,4) = interp_0_log( profdustq, pd_in, p_level, nl_in )
+         scalar(its:ite,k,jts:jte,5) = interp_0_log( profdustn, pd_in, p_level, nl_in )
       ENDDO
       print *, "DUST Q", scalar(its,:,jts,4)
@@ -882,6 +886,6 @@
        DO i = its, ite
          !!! we use Q2 as a vehicle for heating rates! sick!
-         grid%m_q2(i,k,j) = interp_0( profdustq, pd_in, p_level, nl_in ) &
-                          + interp_0( profdustn, pd_in, p_level, nl_in )
+         grid%m_q2(i,k,j) = interp_0_log( profdustq, pd_in, p_level, nl_in ) &
+                          + interp_0_log( profdustn, pd_in, p_level, nl_in )
        ENDDO
        ENDDO
@@ -889,19 +893,42 @@
        !print*,k,grid%m_q2(1,k,1)
     ENDDO
-    print*,'planet',planet   
+
     IF (planet.eq."prescribed") Then
-      call read_hr(profdustq,profdustn,nl_in)
+      call read_hr(hrsw,hrlw,hrdyn,nl_in)
       open(unit=17,file="prescribed_sw.txt",action="write")
       open(unit=18,file="prescribed_lw.txt",action="write")
+      open(unit=19,file="prescribed_dyn.txt",action="write")
       DO k=1,kte!-1
         p_level = grid%znu(k)*(pd_surf - grid%p_top) + grid%p_top
-        prescribed_sw(k) = interp_0( profdustq, pd_in, p_level, nl_in )
-        prescribed_lw(k) = interp_0( profdustn, pd_in, p_level, nl_in )
+        prescribed_sw(k) = interp_0_log( hrsw, pd_in, p_level, nl_in )
+        prescribed_lw(k) = interp_0_log( hrlw, pd_in, p_level, nl_in )
+        prescribed_dyn(k) = interp_0_log( hrdyn, pd_in, p_level, nl_in )
         write (17,*) prescribed_sw(k)
         write (18,*) prescribed_lw(k)
+        write (19,*) prescribed_dyn(k)
       ENDDO
+      close(unit=19)
+      close(unit=18)
       close(unit=17)
-      close(unit=18)
     ENDIF
+    
+    IF (planet.eq."venus") Then
+      call read_hr(hrsw,hrlw,hrdyn,nl_in)
+      open(unit=20,file="venus_hrdyn.txt",action="write")
+      DO k=1,kte!-1
+        p_level = grid%znu(k)*(pd_surf - grid%p_top) + grid%p_top
+        venus_hrdyn(k) = interp_0_log( hrdyn, pd_in, p_level, nl_in )
+        write (20,*) venus_hrdyn(k)
+      ENDDO
+      close(unit=20)
+    ENDIF
+
+    open(unit=21,file="altitude.txt",action="write")
+    DO k=1,kte!-1
+      p_level = grid%znu(k)*(pd_surf - grid%p_top) + grid%p_top
+      altitude(k) = interp_0_log( zk, pd_in, p_level, nl_in )
+      write (21,*) altitude(k)
+    ENDDO
+    close(unit=21)
 
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
@@ -941,5 +968,5 @@
 !---------------------------------------------------------------------------
 
-      subroutine get_sounding( zk, p, p_dry, theta, rho, &
+      subroutine get_sounding( zk, p, p_dry, theta, Tz, rho, &
                                u, v, qv, dry, nl_max, nl_in )
       implicit none
@@ -947,5 +974,5 @@
       integer nl_max, nl_in
       real zk(nl_max), p(nl_max), theta(nl_max), rho(nl_max), &
-           u(nl_max), v(nl_max), qv(nl_max), p_dry(nl_max)
+           u(nl_max), v(nl_max), qv(nl_max), p_dry(nl_max),Tz(nl_max)
       logical dry
 
@@ -1112,4 +1139,5 @@
           v(k) = v_input(k)
           qv(k) = qv_input(k)
+          Tz(k) = t_therm(k)
 
         enddo
@@ -1198,5 +1226,5 @@
       implicit none
       integer n
-      real pdustq(n),pdustn(n)
+      real pdustq(n+1),pdustn(n+1)
       logical end_of_file
 
@@ -1223,8 +1251,8 @@
       end subroutine read_dust
 !!cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
-      subroutine read_hr(hr_sw,hr_lw,n)
+      subroutine read_hr(hr_sw,hr_lw,hr_dyn,n)
       implicit none
       integer n
-      real hr_sw(n),hr_lw(n)
+      real hr_sw(n+1),hr_lw(n+1),hr_dyn(n+1)
       logical end_of_file
 
@@ -1239,8 +1267,8 @@
       do while (.not. end_of_file)
 
-        read(11,*,end=103) hr_sw(k+1),hr_lw(k+1)
-        write(*,*) k,hr_sw(k+1),hr_lw(k+1)
+        read(11,*,end=103) hr_sw(k+1),hr_lw(k+1),hr_dyn(k+1)
+        write(*,*) k,hr_sw(k+1),hr_lw(k+1),hr_dyn(k+1)
         k = k+1
-        go to 113
+        go to 114
  103    end_of_file = .true.
  114    continue
Index: trunk/MESOSCALE/LMD_MM_MARS/SRC/LESnophys_/modif/Registry.EM
===================================================================
--- trunk/MESOSCALE/LMD_MM_MARS/SRC/LESnophys_/modif/Registry.EM	(revision 1662)
+++ trunk/MESOSCALE/LMD_MM_MARS/SRC/LESnophys_/modif/Registry.EM	(revision 1724)
@@ -72,38 +72,35 @@
 
 
-#####MARS MARS MARS MARS MARS
-#####MARS MARS MARS MARS MARS
-##### 
-##### variables physiques ecrites dans les fichiers WRF
-##### - h indique l'ecriture
-##### - en commentaire, les variables physiques dans physiq.F
-##### - utiliser le script automatique Registry.bash
-#####
-##### YOU CAN OUTPUT ANY 2D OR 3D VARIABLE THAT IS AVAILABLE IN MESO_PHYSIQ.F
-##### --- please indicate #SAVEMARS2 for 2D fields and #SAVEMARS3 for 3D fields
-#####
-##### !!!! WARNING !!!! WARNING !!!! WARNING !!!! WARNING !!!! WARNING !!!!
-#####         THIS HAS TO BE CONSISTENT WITH $MMM/SRC/WRFV2/Registry/Registry.EM
-##### !!!! WARNING !!!! WARNING !!!! WARNING !!!! WARNING !!!! WARNING !!!!
-#####
-############# name in WRF !!!!! ############# name in NETCDF !!!! ############################################## name in meso_physiq !!!!!
-#state  real  TSURF     ij   misc  1  -  rhd  "TSURF"     "SURF TEMPERATURE"                "K"       #SAVEMARS2 tsurf
-#state  real  CO2ICE    ij   misc  1  -  rd   "CO2ICE"    "CO2 GROUND ICE"                  "kg"      #SAVEMARS2 co2ice
-#state  real  EMISSIV   ij   misc  1  -  rd   "EMISSIV"   "EMISSIVITY"                      ""        #SAVEMARS2 emis
-#state  real  THETA     ij   misc  1  -  rd   "THETA"     "SLOPE INCLINATION"               "deg"     #SAVEMARS2 theta_sl
-#state  real  PSI       ij   misc  1  -  rd   "PSI"       "SLOPE ORIENTATION"               "deg"     #SAVEMARS2 psi_sl
-#state  real  TAU_DUST  ij   misc  1  -  rd   "TAU_DUST"  "REFERENCE VISIBLE DUST OPACITY"  ""        #SAVEMARS2 tauref
-#state  real  SWDOWNZ   ij   misc  1  -  rhd  "SWDOWNZ"   "DOWNWARD SW FLUX AT SURFACE"     "W m-2"   #SAVEMARS2 fluxsurf_sw_tot      
-#state  real  LWDOWNZ   ij   misc  1  -  rhd  "LWDOWNZ"   "DOWNWARD LW FLUX AT SURFACE"     "W m-2"   #SAVEMARS2 fluxsurf_lw
-#state  real  SWUP      ij   misc  1  -  rd   "SWUP"      "UPWARD SW FLUX AT TOP"           "W m-2"   #SAVEMARS2 fluxtop_sw_tot    
-#state  real  LWUP      ij   misc  1  -  rd   "LWUP"      "UPWARD LW FLUX AT TOP"           "W m-2"   #SAVEMARS2 fluxtop_lw
-#state  real  MTOT      ij   misc  1  -  rd   "MTOT"      "TOTAL MASS WATER VAPOR"          "kg m-2"  #SAVEMARS2 mtot
-#state  real  ICETOT    ij   misc  1  -  rd   "ICETOT"    "TOTAL MASS WATER ICE"            "kg m-2"  #SAVEMARS2 icetot
-#state  real  RAVE      ij   misc  1  -  rd   "RAVE"      "MEAN ICE RADIUS"                 "m"       #SAVEMARS2 rave
-#state  real  RICE      ikj  misc  1  -  rd   "RICE"      "ICE RADIUS"                      "m"       #SAVEMARS3 rice
-#####
-#####
-#####MARS MARS MARS MARS MARS
-#####MARS MARS MARS MARS MARS
+####MARS MARS MARS MARS MARS
+####MARS MARS MARS MARS MARS
+#### 
+#### variables physiques ecrites dans les fichiers WRF
+#### - h indique l'ecriture
+#### - en commentaire, les variables physiques dans physiq.F
+#### - utiliser le script automatique Registry.bash
+####
+#### YOU CAN OUTPUT ANY 2D OR 3D VARIABLE THAT IS AVAILABLE IN MESO_PHYSIQ.F
+#### --- please indicate #SAVEMARS2 for 2D fields and #SAVEMARS3 for 3D fields
+####
+############ name in WRF !!!!! ############# name in NETCDF !!!! ############################################## name in meso_physiq !!!!!
+state  real  TSURF     ij   misc  1  -  rhd  "TSURF"     "SURF TEMPERATURE"                "K"       #SAVEMARS2 tsurf
+state  real  CO2ICE    ij   misc  1  -  rd   "CO2ICE"    "CO2 GROUND ICE"                  "kg"      #SAVEMARS2 co2ice
+state  real  EMISSIV   ij   misc  1  -  rd   "EMISSIV"   "EMISSIVITY"                      ""        #SAVEMARS2 emis
+state  real  THETA     ij   misc  1  -  rd   "THETA"     "SLOPE INCLINATION"               "deg"     #SAVEMARS2 theta_sl
+state  real  PSI       ij   misc  1  -  rd   "PSI"       "SLOPE ORIENTATION"               "deg"     #SAVEMARS2 psi_sl
+state  real  TAU_DUST  ij   misc  1  -  rd   "TAU_DUST"  "REFERENCE VISIBLE DUST OPACITY"  ""        #SAVEMARS2 tauref
+state  real  SWDOWNZ   ij   misc  1  -  rhd  "SWDOWNZ"   "DOWNWARD SW FLUX AT SURFACE"     "W m-2"   #SAVEMARS2 fluxsurf_sw_tot      
+state  real  LWDOWNZ   ij   misc  1  -  rhd  "LWDOWNZ"   "DOWNWARD LW FLUX AT SURFACE"     "W m-2"   #SAVEMARS2 fluxsurf_lw
+state  real  SWUP      ij   misc  1  -  rd   "SWUP"      "UPWARD SW FLUX AT TOP"           "W m-2"   #SAVEMARS2 fluxtop_sw_tot    
+state  real  LWUP      ij   misc  1  -  rd   "LWUP"      "UPWARD LW FLUX AT TOP"           "W m-2"   #SAVEMARS2 fluxtop_lw
+state  real  MTOT      ij   misc  1  -  rd   "MTOT"      "TOTAL MASS WATER VAPOR"          "kg m-2"  #SAVEMARS2 mtot
+state  real  ICETOT    ij   misc  1  -  rd   "ICETOT"    "TOTAL MASS WATER ICE"            "kg m-2"  #SAVEMARS2 icetot
+state  real  RAVE      ij   misc  1  -  rd   "RAVE"      "MEAN ICE RADIUS"                 "m"       #SAVEMARS2 rave
+state  real  RICE      ikj  misc  1  -  rd   "RICE"      "ICE RADIUS"                      "m"       #SAVEMARS3 rice
+state  real  PDTZ      ikj  misc  1  -  rd   "PDT"       "TEMP TENDENCY"                   "K s-1"   #SAVEMARS3 pdt
+####
+####
+####MARS MARS MARS MARS MARS
+####MARS MARS MARS MARS MARS
 
 ####MARS MARS MARS MARS MARS
@@ -117,6 +114,9 @@
 state  real  QH2O      ikjftb  scalar  1  -  i01rhusdf=(bdy_interp:dt) "QH2O"       "Water vapor mixing ratio"   "kg kg-1"
 state  real  QH2O_ICE  ikjftb  scalar  1  -  i01rhusdf=(bdy_interp:dt) "QH2O_ICE"   "Water ice mixing ratio"     "kg kg-1"
-state  real  QDUST     ikjftb  scalar  1  -  i01rhusdf=(bdy_interp:dt) "QDUST"      "Dust mixing ratio"          "kg kg-1"
+state  real  qdust     ikjftb  scalar  1  -  i01rhusdf=(bdy_interp:dt) "QDUST"      "Dust mixing ratio"          "kg kg-1"
+state  real  qdustn    ikjftb  scalar  1  -  i01rhusdf=(bdy_interp:dt) "QDUSTN"     "Dust number density"        " m-3 "
 state  real  qtrac1    ikjftb  scalar  1  -  i01rhusdf=(bdy_interp:dt) "qtrac1"     "Decaying tracer 1"          "kg kg-1"
+state  real  upward    ikjftb  scalar  1  -  i01rhusdf=(bdy_interp:dt) "upward"     "Decaying tracer surf"       "kg kg-1"
+state  real  downward  ikjftb  scalar  1  -  i01rhusdf=(bdy_interp:dt) "downward"   "Decaying tracer zi"         "kg kg-1"
 ####
 ####
@@ -203,6 +203,8 @@
 #### variables dans real
 ####
+
 state  real   albedo_gcm_gc   ij   dyn_em  1  -  i1  "ALBEDO_GCM"       "albedo of naked ground"  "0 - 1 fraction"
 state  real   therm_inert_gc  ij   dyn_em  1  -  i1  "THERMAL_INERTIA"  "thermal inertia"         "J/m2/K/s0.5"
+state  real   z0_gc           ij   dyn_em  1  -  i1  "SURF_ROUGHNESS"   "surface roughness"       "cm"
 state  real   slpx_gc         ij   dyn_em  1  -  i1  "SLPX"             "slope x direction"       "rad"
 state  real   slpy_gc         ij   dyn_em  1  -  i1  "SLPY"             "slope y direction"       "rad"
@@ -215,21 +217,29 @@
 #### variables dans wrf
 ####
-state  real   albedo_gcm      ij   misc  1  -  i012rd  "MARS_ALB"    "albedo of naked ground"  "0 - 1 fraction"
-state  real   therm_inert     ij   misc  1  -  i012rd  "MARS_TI"     "thermal inertia"         "J/m2/K/s0.5"
-state  real   slpx            ij   misc  1  -  i012rd  "SLOPEX"      "slope x direction"       "rad"
-state  real   slpy            ij   misc  1  -  i012rd  "SLOPEY"      "slope y direction"       "rad"
-state  real   mars_emiss      ij   misc  1  -  i012rd  "MARS_EMISS"  "emissivity"              "0 - 1 fraction"
-state  real   mars_cice       ij   misc  1  -  i012rd  "MARS_CICE"   "co2 ice"                 "kg"
-state  real   mars_wice       ij   misc  1  -  i012rd  "MARS_WICE"   "h2o ice"                 "kg/m2"
-state  real   mars_tsoil     ilj   misc  1  -  i012rd  "MARS_TSOIL"  "soil temperatures"       "K"
-state  real   mars_isoil     ilj   misc  1  -  i012rd  "MARS_ISOIL"  "soil thermal inertia"    "tiu"
-state  real   mars_dsoil     ilj   misc  1  -  i012rd  "MARS_DSOIL"  "soil depths"             "m"
-state  real   mars_gw        ilj   misc  1  -  i012rd  "MARS_GW"     "gwparam"                 " "
+#### 'm_' prefix is to avoid redundancies with possible existing terrestrial variables
+####
+####          vvvv nom pour module_initialize, solve_em, lmd_driver (interne fortran)
+####                                                vvvv nom fichier netCDF (important initialisation
+################################################################################################################
+state  real   m_albedo     ij   misc  1  -  i012rd  "MARS_ALB"     "albedo of naked ground"   "0 - 1 fraction"
+state  real   m_ti         ij   misc  1  -  i012rd  "MARS_TI"      "thermal inertia"          "J/m2/K/s0.5"
+state  real   m_z0         ij   misc  1  -  i012rd  "MARS_Z0"      "surface roughness"        "m"
+state  real   slpx         ij   misc  1  -  i012rd  "SLOPEX"       "slope x direction"        "rad"
+state  real   slpy         ij   misc  1  -  i012rd  "SLOPEY"       "slope y direction"        "rad"
+state  real   m_emiss      ij   misc  1  -  i012rd  "MARS_EMISS"   "emissivity"               "0 - 1 fraction"
+state  real   m_co2ice     ij   misc  1  -  i012rd  "MARS_CICE"    "co2 ground ice"           "kg/m2"
+state  real   m_h2oice     ij   misc  1  -  i012rd  "MARS_WICE"    "h2o ground ice"           "kg/m2"
+state  real   m_fluxrad    ij   misc  1  -  i012rd  "MARS_FLUXRAD" "net rad flux at surf"     "W.m-2"
+state  real   m_wstar      ij   misc  1  -  i012rd  "MARS_WSTAR"   "free convection velocity" "m.s-1"
+state  real   m_tsurf      ij   misc  1  -  i012rd  "MARS_TSURF"   "surface temperature"      "K"
+state  real   m_tsoil     ilj   misc  1  -  i012rd  "MARS_TSOIL"   "soil temperatures"        "K"
+state  real   m_q2        ikj   misc  1  Z  i012rd  "MARS_Q2"      "parameterized TKE"        "kg.m-3"
+state  real   m_isoil     ilj   misc  1  -  i012rd  "MARS_ISOIL"   "soil thermal inertia"     "tiu"
+state  real   m_dsoil     ilj   misc  1  -  i012rd  "MARS_DSOIL"   "soil depths"              "m"
+state  real   m_gw        ilj   misc  1  -  i012rd  "MARS_GW"      "gwparam"                  " "
 ####
 ####
 ####MARS MARS MARS MARS MARS
 ####MARS MARS MARS MARS MARS
-
-
 
 #-----------------------------------------------------------------------------------------------------------------------------------------------------------------
@@ -341,15 +351,4 @@
 ##
 state    real   ptot           ikj     dyn_em      1         -      irh       "PTOT"        "total pressure"      "Pa"
-####### if you choose h here, you will probably want not to output u,v,w,t,etc...
-state    real   uave           ikj     dyn_em      1         -      ir       "UAVE"        "average zonal wind"  "m/s"
-state    real   ustd           ikj     dyn_em      1         -      ir       "USTD"        "std dev zonal wind"  "m/s"
-state    real   vave           ikj     dyn_em      1         -      ir       "VAVE"        "average meridional wind"  "m/s"
-state    real   vstd           ikj     dyn_em      1         -      ir       "VSTD"        "std dev meridional wind"  "m/s"
-state    real   wave           ikj     dyn_em      1         -      ir       "WAVE"        "average vertical wind"  "m/s"
-state    real   wstd           ikj     dyn_em      1         -      ir       "WSTD"        "std dev vertical wind"  "m/s"
-state    real   tave           ikj     dyn_em      1         -      ir       "TAVE"        "average pert. potential temperature"  "K"
-state    real   tstd           ikj     dyn_em      1         -      ir       "TSTD"        "std dev pert. potential temperature"  "K"
-#######
-## ajouter tk, ptot, phtot ??? les deux derniers sont assez smooth...
 
 #                                               
@@ -992,5 +991,5 @@
 state    real  CDA              ij      misc        1         -      r        "CDA"                   "DRAG COEFF AT LOWEST MODEL LVL"                      ""
 state    real  UST              ij      misc        1         -      r        "UST"                   "U* IN SIMILARITY THEORY"                      "m s-1"    
-state    real  USTM             ij      misc        1         -      r        "USTM"                  "U* IN SIMILARITY THEORY WITHOUT VCONV"        "m s-1"
+state    real  USTM             ij      misc        1         -      rh       "USTM"                  "U* IN SIMILARITY THEORY WITHOUT VCONV"        "m s-1"    #SAVEMARS2 ustar
 i1       real  HOL              ij      misc        1         -      -        "HOL"                   "PBL HEIGHT OVER MONIN-OBUKHOV LENGTH"         ""
 state    real  RMOL             ij      misc        1         -      r        "RMOL"                  "1./Monin Ob. Length"                      ""
@@ -999,5 +998,5 @@
 state    real  CAPG             ij      misc        1         -      r        "CAPG"                  "HEAT CAPACITY FOR SOIL"                       "J K-1 m-3"      
 state    real  THC              ij      misc        1         -      r        "THC"                   "THERMAL INERTIA"                              "Cal cm-1 K-1 s-0.5"      
-state    real  HFX              ij      misc        1         -      r       "HFX"                   "UPWARD HEAT FLUX AT THE SURFACE"              "W m-2"
+state    real  HFX              ij      misc        1         -      rh       "HFX"                   "UPWARD HEAT FLUX AT THE SURFACE"              "W m-2"     #SAVEMARS2 sensheat
 state    real  QFX              ij      misc        1         -      r       "QFX"                   "UPWARD MOISTURE FLUX AT THE SURFACE"          "kg m-2 s-1"      
 state    real  LH               ij      misc        1         -      r       "LH"                    "LATENT HEAT FLUX AT THE SURFACE"              "W m-2"
@@ -1247,6 +1246,8 @@
 ######
 rconfig  integer  mars      namelist,physics  max_domains  0        rh   "mars"      "model mode"              ""
+#rconfig  real     planet_type namelist,physics 1           1        rh   "planet_type"  "" ""
 rconfig  real     init_TI   namelist,physics  max_domains  0        irh  "init_TI"   "thermal inertia"         ""
 rconfig  real     init_AL   namelist,physics  max_domains  0        irh  "init_AL"   "albedo"                  ""
+rconfig  real     init_Z0   namelist,physics  max_domains  0        irh  "init_Z0"   "surface roughness"       ""
 rconfig  real     init_U    namelist,physics  max_domains  0        irh  "init_U"    "zonal wind"              ""
 rconfig  real     init_V    namelist,physics  max_domains  0        irh  "init_V"    "meridional wind"         ""
@@ -1260,4 +1261,5 @@
 ####### MARS SPECIFIC NAMELIST ENTRIES
 #######
+rconfig   character   planet_type         namelist,physics      1              "planet" -       "planet_type"   "Selection of the planet type (mars ou venus)" ""
 rconfig   integer     mp_physics          namelist,physics	max_domains    0       rh       "mp_physics"            ""      ""
 rconfig   integer     gsfcgce_hail        namelist,physics      1              0       rh       "gsfcgce select hail/graupel"  ""      ""
@@ -1393,5 +1395,5 @@
 rconfig   logical     pd_moist_dfi        namelist,dynamics	max_domains    .false.  rh    "pd_moist_dfi"    "positive-definite RK3 transport switch"      ""
 rconfig   logical     pd_chem             namelist,dynamics	max_domains    .false. rh    "pd_chem"          "positive-definite RK3 transport switch"      ""
-rconfig   logical     pd_scalar           namelist,dynamics	max_domains    .false. rh    "pd_scalar"        "positive-definite RK3 transport switch"      ""
+rconfig   logical     pd_scalar           namelist,dynamics	max_domains    .true. rh    "pd_scalar"        "positive-definite RK3 transport switch"      ""
 rconfig   logical     pd_tke              namelist,dynamics	max_domains    .false. rh    "pd_tke"           "positive-definite RK3 transport switch"      ""
 rconfig   logical top_radiation           namelist,dynamics	max_domains    .false. rh    "top_radiation"         ""      ""
@@ -1489,5 +1491,7 @@
 package   water        mars==1                      -              moist:qv;scalar:qh2o,qh2o_ice
 package   dust         mars==2                      -              moist:qv;scalar:qdust
+package   dust2eq      mars==3                      -              scalar:qdust,qdustn
 package   radioac      mars==20                     -              scalar:qtrac1
+package   radioac2     mars==21                     -              scalar:upward,downward
 ##### MARS OPTIONS
 ##### MARS OPTIONS
Index: trunk/MESOSCALE/LMD_MM_MARS/SRC/PREP_MARS/Mars/create_readmeteo.F90
===================================================================
--- trunk/MESOSCALE/LMD_MM_MARS/SRC/PREP_MARS/Mars/create_readmeteo.F90	(revision 1724)
+++ trunk/MESOSCALE/LMD_MM_MARS/SRC/PREP_MARS/Mars/create_readmeteo.F90	(revision 1724)
@@ -0,0 +1,262 @@
+program create_readmeteo
+
+implicit none
+include "netcdf.inc"
+
+!------------------------------------------------------------------------!
+! create_readmeteo generates the file 'readmeteo.def'                    !
+! ... must be run prior to readmeteo                                     !
+! ... the user will be asked a few questions                             !
+!                                                                        !
+! A. Spiga - 01/08/2007                                                  !
+!------------------------------------------------------------------------!
+
+INTEGER, PARAMETER :: MONTHS_PER_YEAR = 12
+INTEGER, PARAMETER :: mday(MONTHS_PER_YEAR)   &
+           = (/61,66,66,65,60,54,50,46,47,47,51,56/)
+
+INTEGER :: start_day,init,i,month,day
+INTEGER :: ierr,nid,nvarid
+INTEGER :: n,start,my,interval_subs,subs
+INTEGER :: start_hour,interval,hour,inc_hour
+INTEGER :: no_please
+INTEGER :: timedim,timelen
+
+REAL, DIMENSION(100) :: param
+REAL, DIMENSION(:), ALLOCATABLE :: time
+
+
+!
+! Init
+!
+interval = 0
+
+
+!
+! Open input NETCDF file
+!
+write(*,*) "Scanning netcdf file ..."
+ierr=NF_OPEN ("input_diagfi.nc",NF_NOWRITE,nid)
+IF (ierr.NE.NF_NOERR) THEN
+      write(*,*)'**** Please create a symbolic link called input_diagfi.nc'
+      CALL ABORT
+ENDIF
+
+ierr=NF_INQ_DIMID(nid,"Time",timedim)
+IF (ierr .NE. NF_NOERR) THEN
+    ierr=NF_INQ_DIMID(nid,"time",timedim)
+ENDIF
+ierr=NF_INQ_DIMLEN(nid,timedim,timelen)
+
+
+!
+! Get starting time
+!
+ALLOCATE(time(timelen))
+ierr = NF_INQ_VARID (nid, "Time",nvarid)
+IF (ierr .NE. NF_NOERR) THEN
+        ierr = NF_INQ_VARID (nid, "time",nvarid)
+           IF (ierr .NE. NF_NOERR) THEN
+                PRINT *, "Error: Readmeteo <Time> not found"
+                stop
+           ENDIF
+ENDIF
+#ifdef NC_DOUBLE
+ierr = NF_GET_VAR_DOUBLE(nid, nvarid, time)
+#else
+ierr = NF_GET_VAR_REAL(nid, nvarid, time)
+#endif
+
+ierr = NF_INQ_VARID (nid,"controle",nvarid)
+IF (ierr .NE. NF_NOERR) THEN
+        PRINT *, "Error: Readmeteo <ps> not found"
+        stop
+ENDIF
+#ifdef NC_DOUBLE
+ierr = NF_GET_VAR_DOUBLE(nid, nvarid, param)
+#else
+ierr = NF_GET_VAR_REAL(nid, nvarid, param)
+#endif
+
+write(*,*) "Done."
+
+
+!
+! fill the include if no info can be found in the diagfi
+!
+include "fix_no_info.inc"
+
+
+! beware, param(4) is the day reference of start and startfi
+! ...have to add time(1) to get the real starting date in diagfi
+start_day=floor(param(4)+time(1))		
+start_hour=nint((param(4)-floor(param(4))+time(1))*24)	! starting hour	
+start_hour=MOD(start_hour,24)   
+IF (interval .eq. 0) interval=nint(time(1)*24)	 ! interval between each time subscript	
+
+
+PRINT *,'*****************'
+PRINT *,'GCM data file starts at sol ',start_day,'and hour',start_hour
+PRINT *,'GCM data interval is ',interval,'hours'
+
+CALL wrf_day(start_day,month,day)
+
+!
+! User defined parameters
+!
+write(*,*) "This will erase readmeteo.def file"
+write(*,*) "  NB: Default mode is to generate "
+write(*,*) "      a WPS-compatible file for each timestep "
+write(*,*) "      included in the diagfi "
+write(*,*) "Total number of generated files: ",timelen 
+write(*,*) "Continue ? 0 if no, 1 if yes, 99 for settings"
+read(*,*) no_please
+if (no_please == 0) stop
+if (no_please == 1) then
+        my=2024
+        n=timelen
+        start=1
+        interval_subs=1
+else
+        write(*,*) "-- GCM data file information --"
+        write(*,*) "Starting Martian year ? ex: 24,25,26..."
+        read(*,*) my
+        my=2000+my
+        write(*,*) "-- WRF data file information --"
+        write(*,*) "How many files do you want to create ? at least 2, max is",timelen
+        read(*,*) n
+        IF (n == timelen) THEN
+                start=1
+                interval_subs=1
+        ELSE
+                write(*,*) "Time subscript you want to begin with (first is 1) ? max is",timelen-n+1
+                read(*,*) start
+                write(*,*) "Time subscript interval you want to get ? no more than",(timelen-start+1)/n
+                read(*,*) interval_subs
+        END IF
+endif
+
+
+
+!
+! Info
+!
+PRINT *,'-------'
+PRINT *,'run readmeteo with the command line:'
+PRINT *,'readmeteo.exe < readmeteo.def'
+
+
+!
+! Generate readmeteo.def
+!
+OPEN(6,file='readmeteo.def',status='replace',form='formatted')
+! files
+IF (n < 10) THEN
+        write(6,fmt='(I1)') n
+ELSE IF (n < 100) THEN
+        write(6,fmt='(I2)') n
+ELSE IF (n < 1000) THEN
+        write(6,fmt='(I3)') n
+ELSE
+        write(6,fmt='(I4)') n        
+END IF
+! subscript in GCM data file
+DO i=1,n
+        subs=start+(i-1)*interval_subs
+        IF (subs < 10) THEN
+                write(6,fmt='(I1)') subs 
+        ELSE IF (subs < 100) THEN 
+                write(6,fmt='(I2)') subs
+        ELSE IF (subs < 1000) THEN
+                write(6,fmt='(I3)') subs
+        ELSE 
+                write(6,fmt='(I4)') subs   
+        END IF        
+END DO
+! WRF time reference
+hour=start_hour+(start-1)*interval
+inc_hour=interval*interval_subs
+IF (hour >= 24) day=day+INT(hour/24)
+hour=MOD(hour,24)
+IF (day > mday(month)) THEN
+      day=day-mday(month)
+      month=month+1
+END IF
+IF (month > MONTHS_PER_YEAR) THEN
+      my=my+1
+      month=1
+END IF
+DO i=1,n
+        write(6,fmt='(I4)') my
+        IF (month < 10) THEN
+                write(6,fmt='(I1,I1)') 0,month 
+        ELSE 
+                write(6,fmt='(I2)') month
+        END IF  
+        IF (day < 10) THEN
+                write(6,fmt='(I1,I1)') 0,day
+        ELSE
+                write(6,fmt='(I2)') day
+        END IF
+        IF (hour < 10) THEN
+                write(6,fmt='(I1,I1)') 0,hour
+        ELSE
+                write(6,fmt='(I2)') hour
+        END IF
+        write(6,fmt='(A1)') 'y'
+IF (hour+inc_hour >= 24) day=day+INT((hour+inc_hour)/24)
+hour=MOD(hour+inc_hour,24)
+IF (day > mday(month)) THEN
+        day=day-mday(month)
+        month=month+1
+END IF        
+IF (month > MONTHS_PER_YEAR) THEN
+        my=my+1
+        month=1
+END IF        
+END DO
+close(6)
+
+END
+
+
+!--------------------------------------------------
+!--------------------------------------------------
+
+SUBROUTINE wrf_day(gcm_day,wrf_month,day) 
+
+IMPLICIT NONE
+
+INTEGER, INTENT(INOUT) :: gcm_day
+INTEGER, INTENT(OUT) :: wrf_month,day
+
+INTEGER :: init,i
+INTEGER, PARAMETER :: MONTHS_PER_YEAR = 12
+INTEGER, PARAMETER :: mday(MONTHS_PER_YEAR)   &
+           = (/61,66,66,65,60,54,50,46,47,47,51,56/)
+
+!
+! Find WRF month and day
+!
+
+IF (gcm_day >= 669) THEN    !! gcm_day commence au jour 0
+        PRINT *,'out of bounds ! martian year is 669 sols !'
+        gcm_day=MOD(gcm_day,669)
+        !STOP
+ENDIF
+
+
+
+init=gcm_day+1    !!+1 sinon on decale tout
+DO i=1,MONTHS_PER_YEAR
+        wrf_month=i
+        init=init-mday(i)
+        IF (init <= 0) EXIT
+END DO
+
+PRINT *,'corresponding WRF month is ',wrf_month
+day=init+mday(wrf_month)
+PRINT *,'corresponding WRF day is ',day
+PRINT *,'*****************'
+
+END
Index: trunk/MESOSCALE/LMD_MM_MARS/SRC/PREP_MARS/Mars/readmeteo.F90
===================================================================
--- trunk/MESOSCALE/LMD_MM_MARS/SRC/PREP_MARS/Mars/readmeteo.F90	(revision 1724)
+++ trunk/MESOSCALE/LMD_MM_MARS/SRC/PREP_MARS/Mars/readmeteo.F90	(revision 1724)
@@ -0,0 +1,1760 @@
+program readmeteo
+
+implicit none
+include "netcdf.inc"
+
+!------------------------------------------------------------------------!
+! Readmeteo prepares an initial state for the WPS pre-processor of WRF   !
+!                                                                        !
+! Input is a diagfi.nc NETCDF file from a LMD/GCM simulation             !
+!                                                                        !
+! Outputs are WRFSI intermediate format files ready for metgrid.exe      !
+!       http://www.mmm.ucar.edu/wrf/OnLineTutorial/WPS/IM_si.htm         !
+!                                                                        !
+! **** Please create a WPSFEED folder (or a symbolic link) ****          !       
+!                                                                        !
+! A. Spiga - 16/04/2007                                                  !
+!	     22/05/2007 : need to run zrecast as a preliminary           !
+!            07/06/2007 : external parameter file 'readmeteo.def         !
+!	     30/07/2007 : manage additional variables (tsoil, emiss,...) !	
+!            19/10/2007 : no need to run zrecast at all (eta levels)     !   
+!		12/2007 : include co2ice and emissivity			 ! 
+!               02/2008 : include water vapor and ice                    !
+!               01/2010 : possible use of diagsoil for new physics       ! 
+!               02/2011 : add dust tracers, correct surface              !
+!									 !
+! spiga@lmd.jussieu.fr							 !	
+!------------------------------------------------------------------------!
+
+
+
+!***************************************************************************
+!***************************************************************************
+REAL, PARAMETER :: emiss_prescribed=0.95
+REAL, PARAMETER :: co2ice_prescribed=0.
+CHARACTER (LEN=3), PARAMETER :: ident='LMD'
+
+
+
+!***************************************************************************
+!***************************************************************************
+
+REAL :: ptop
+REAL, PARAMETER :: grav=3.72
+LOGICAL, PARAMETER :: blank=.false.
+
+
+
+!! Variables to be written in the output file
+!! *** NB: conformity with metgrid/src/read_met_module.F90
+CHARACTER (LEN=33) :: output
+INTEGER :: IFV
+CHARACTER (LEN=24) :: HDATE
+REAL :: XFCST
+CHARACTER (LEN=32) :: SOURCE
+CHARACTER (LEN=9) :: FIELD
+CHARACTER (LEN=25) :: UNITS
+CHARACTER (LEN=46) :: DESC
+REAL :: XLVL
+INTEGER :: NX,NY,IPROJ
+CHARACTER (LEN=8) :: STARTLOC
+REAL :: STARTLAT,STARTLON,DELTALAT,DELTALON
+REAL, POINTER, DIMENSION(:,:) :: SLAB
+
+!! Variables related to NETCDF format
+integer :: nid,nid2,nid3,nvarid,ierr,ierr2
+integer :: timedim,londim,latdim,altdim,altdim2
+integer :: rlatvdim,rlonudim
+integer :: timelen,lonlen,latlen,altlen,altlen2
+integer :: rlatvlen,rlonulen
+integer :: soillen,soildim
+integer :: nphys
+integer, dimension(4) :: corner,edges
+
+!! Intermediate data arrays
+integer :: k,l,m,n,p
+real, dimension(:), allocatable :: lat,lon,time,alt,aps,bps,levels,vertdsoil
+real, dimension(:,:), allocatable :: vide,ones,ghtsfile
+real, dimension(:,:), allocatable :: interm
+real, dimension(:,:,:), allocatable :: gwparam
+real, dimension(:,:,:), allocatable :: psfile,tsfile
+real, dimension(:,:,:), allocatable :: emissfile,co2icefile
+real, dimension(:,:,:), allocatable :: tnsfile,unsfile,vnsfile
+real, dimension(:,:,:,:), allocatable :: tfile,ufile,vfile,rfile,hfile
+real, dimension(:,:,:,:), allocatable :: eta_gcm
+!real, dimension(:,:,:,:), allocatable :: tfileorig,ufileorig,vfileorig
+real, dimension(:,:,:,:), allocatable :: tsoilfile, dsoilfile, isoilfile
+real, dimension(:,:,:,:), allocatable :: waterfile, watericefile
+real, dimension(:,:,:), allocatable :: swatericefile!, swaterfile
+real, dimension(:,:,:,:), allocatable :: dustfile,dustnfile
+real, dimension(:,:,:,:), allocatable :: co2file
+real, dimension(:,:,:,:), allocatable :: ccnfile,ccnnfile
+
+!! Reading the parameter file 
+integer :: tmp,increment,FILES
+integer :: tmp2,tmp3,tmp4
+character*1 :: answer
+character*4 :: str
+character*2 :: str2, str3, str4
+integer, dimension(:), allocatable :: time_out
+character*13, dimension(:), allocatable :: date_out
+character*19, dimension(:), allocatable :: date_out2
+
+#ifdef PHOTOCHEM
+real, dimension(:,:,:,:,:), allocatable :: chemtrac
+integer :: nchemtrac,i
+CHARACTER*20,DIMENSION(:),ALLOCATABLE :: wtnom
+#endif
+
+
+!***************************************************************************
+!***************************************************************************
+
+
+!!---------------------
+!! Open the datafile
+!!---------------------
+ierr=NF_OPEN ("input_diagfi.nc",NF_NOWRITE,nid)
+IF (ierr.NE.NF_NOERR) THEN
+   write(*,*)'**** Please create a symbolic link called input_diagfi.nc'
+   CALL ABORT
+ENDIF
+
+
+!!--------------------------
+!! Ask for data references
+!!--------------------------
+!write(*,*) "Create n files. What is n ?"
+read(*,*) FILES
+allocate(time_out(FILES))
+allocate(date_out(FILES))
+allocate(date_out2(FILES))
+
+!write(*,*) ""
+!write(*,*) "INPUT: Diagfi time"
+!write(*,*) "list of n subscripts, separated by <Return>s"
+increment=1
+do while (increment.ne.FILES+1)
+    read(*,*) tmp
+    time_out(increment)=tmp
+    increment=increment+1
+enddo
+
+!write(*,*) ""
+!write(*,*) "OUTPUT: WRF time"
+!write(*,*) "fill 4 lines indicating"
+!write(*,*) "-year (4 digits)"
+!write(*,*) "-month (2 digits)" 
+!write(*,*) "-day (2 digits)"
+!write(*,*) "-hour (2 digits)"
+increment=1
+do while (increment.ne.FILES+1)
+    read(*,*) str
+    read(*,*) str2
+    read(*,*) str3
+    read(*,*) str4
+    date_out(increment)=str//'-'//str2//'-'//str3//'_'//str4
+    date_out2(increment)=str//'-'//str2//'-'//str3//'_'//str4//':00:00'
+    !print *,date_out(increment)
+    !write(*,*) "ok? (y/n)"
+    read(*,*) answer
+    if (answer.eq.'n') then
+        !write(*,*) "please write again"
+    else 
+        !write(*,*) "next one, please"    
+        increment=increment+1
+    endif
+enddo
+
+
+!!-------------------
+!! Get array sizes
+!!-------------------
+SELECT CASE(ident)
+CASE('LMD')
+ierr=NF_INQ_DIMID(nid,"Time",timedim)
+CASE('OXF')
+ierr=NF_INQ_DIMID(nid,"time",timedim)
+END SELECT
+ierr=NF_INQ_DIMLEN(nid,timedim,timelen)
+  write(*,*) "timelen: ",timelen
+
+SELECT CASE(ident)
+CASE('LMD')
+ierr=NF_INQ_DIMID(nid,"latitude",latdim)
+CASE('OXF')
+ierr=NF_INQ_DIMID(nid,"lat",latdim)
+END SELECT
+ierr=NF_INQ_DIMLEN(nid,latdim,latlen)
+  write(*,*) "latlen: ",latlen
+
+SELECT CASE(ident)
+CASE('LMD')
+ierr=NF_INQ_DIMID(nid,"longitude",londim)
+CASE('OXF')
+ierr=NF_INQ_DIMID(nid,"lon",londim)
+END SELECT
+ierr=NF_INQ_DIMLEN(nid,londim,lonlen)
+  write(*,*) "lonlen: ",lonlen
+
+SELECT CASE(ident)
+CASE('LMD')
+ierr=NF_INQ_DIMID(nid,"altitude",altdim)
+CASE('OXF')
+ierr=NF_INQ_DIMID(nid,"sigma",altdim)
+END SELECT
+ierr=NF_INQ_DIMLEN(nid,altdim,altlen)
+  write(*,*) "altlen: ",altlen
+
+
+
+!!-------------------------
+!! Allocate local arrays
+!!-------------------------
+allocate(eta_gcm(lonlen,latlen,altlen,timelen))
+allocate(tfile(lonlen,latlen,altlen,timelen))
+allocate(tsoilfile(lonlen,latlen,altlen,timelen))
+allocate(dsoilfile(lonlen,latlen,altlen,timelen))
+allocate(isoilfile(lonlen,latlen,altlen,timelen))
+allocate(vertdsoil(altlen))
+!allocate(tfileorig(lonlen,latlen,altlen,timelen))
+allocate(ufile(lonlen,latlen,altlen,timelen))
+!allocate(ufileorig(lonlen,latlen,altlen,timelen))
+allocate(vfile(lonlen,latlen,altlen,timelen))
+!allocate(vfileorig(lonlen,latlen,altlen,timelen))
+allocate(rfile(lonlen,latlen,altlen,timelen))
+allocate(hfile(lonlen,latlen,altlen,timelen))  
+allocate(waterfile(lonlen,latlen,altlen,timelen))
+allocate(watericefile(lonlen,latlen,altlen,timelen))
+!allocate(swaterfile(lonlen,latlen,timelen))
+allocate(swatericefile(lonlen,latlen,timelen))
+allocate(dustfile(lonlen,latlen,altlen,timelen))
+allocate(dustnfile(lonlen,latlen,altlen,timelen))
+allocate(co2file(lonlen,latlen,altlen,timelen))
+allocate(ccnfile(lonlen,latlen,altlen,timelen))
+allocate(ccnnfile(lonlen,latlen,altlen,timelen))
+allocate(psfile(lonlen,latlen,timelen)) 
+allocate(tsfile(lonlen,latlen,timelen))
+allocate(tnsfile(lonlen,latlen,timelen))
+allocate(unsfile(lonlen,latlen,timelen))
+allocate(vnsfile(lonlen,latlen,timelen))
+allocate(emissfile(lonlen,latlen,timelen))
+allocate(co2icefile(lonlen,latlen,timelen))
+allocate(interm(lonlen,latlen))
+allocate(gwparam(lonlen,latlen,5))
+allocate(ghtsfile(lonlen,latlen))    !! no scan axis
+allocate(vide(lonlen,latlen))
+allocate(ones(lonlen,latlen))
+allocate(lat(latlen), lon(lonlen), alt(altlen), time(timelen))
+allocate(aps(altlen),bps(altlen),levels(altlen))
+#ifdef PHOTOCHEM
+nchemtrac = 14
+allocate(wtnom(nchemtrac))
+wtnom(1)  = "c_co2"
+wtnom(2)  = "c_co"
+wtnom(3)  = "c_o"
+wtnom(4)  = "c_o1d"
+wtnom(5)  = "c_o2"
+wtnom(6)  = "c_o3"
+wtnom(7)  = "c_h"
+wtnom(8)  = "c_h2"
+wtnom(9)  = "c_oh"
+wtnom(10) = "c_ho2"
+wtnom(11) = "c_h2o2"
+wtnom(12) = "c_ch4"
+wtnom(13) = "c_n2"
+wtnom(14) = "c_ar"
+allocate(chemtrac(lonlen,latlen,altlen,timelen,nchemtrac))
+chemtrac(:,:,:,:,:)=0
+#endif
+
+tfile(:,:,:,:)=0
+tsoilfile(:,:,:,:)=0 
+isoilfile(:,:,:,:)=0 
+dsoilfile(:,:,:,:)=0 
+vertdsoil(:)=0.
+!tfileorig(:,:,:,:)=0
+!ufileorig(:,:,:,:)=0
+!vfileorig(:,:,:,:)=0
+ufile(:,:,:,:)=0 
+vfile(:,:,:,:)=0 
+rfile(:,:,:,:)=0 
+hfile(:,:,:,:)=0
+waterfile(:,:,:,:)=0
+watericefile(:,:,:,:)=0
+!swaterfile(:,:,:)=0
+swatericefile(:,:,:)=0
+dustfile(:,:,:,:)=0
+dustnfile(:,:,:,:)=0
+co2file(:,:,:,:)=0
+ccnfile(:,:,:,:)=0
+ccnnfile(:,:,:,:)=0
+psfile(:,:,:)=0 
+tsfile(:,:,:)=0
+emissfile(:,:,:)=0
+co2icefile(:,:,:)=0
+tnsfile(:,:,:)=0
+unsfile(:,:,:)=0
+vnsfile(:,:,:)=0
+interm(:,:)=0
+gwparam(:,:,:)=0
+ghtsfile(:,:)=0
+vide(:,:)=0
+ones(:,:)=0
+
+
+!!-------------------
+!! Read dimensions
+!!-------------------
+
+print *,'>>> Read dimensions !'
+
+print *,'Time'
+SELECT CASE(ident)
+CASE('LMD')
+   ierr = NF_INQ_VARID (nid, "Time",nvarid)
+CASE('OXF')
+   ierr = NF_INQ_VARID (nid, "time",nvarid)
+END SELECT
+   IF (ierr .NE. NF_NOERR) THEN
+      PRINT *, "Error: Readmeteo <Time> not found"
+      stop
+   ENDIF
+#ifdef NC_DOUBLE
+   ierr = NF_GET_VAR_DOUBLE(nid, nvarid, time)
+#else
+   ierr = NF_GET_VAR_REAL(nid, nvarid, time)
+#endif
+   print *,time(1),' ... to ... ',time(timelen)
+
+print *,'Latitude'
+SELECT CASE(ident)
+CASE('LMD')
+   ierr = NF_INQ_VARID (nid, "latitude",nvarid)
+CASE('OXF')
+   ierr = NF_INQ_VARID (nid, "lat",nvarid)
+END SELECT
+   IF (ierr .NE. NF_NOERR) THEN
+      PRINT *, "Error: Readmeteo <latitude> not found"
+      stop
+   ENDIF
+#ifdef NC_DOUBLE
+   ierr = NF_GET_VAR_DOUBLE(nid, nvarid, lat)
+#else
+   ierr = NF_GET_VAR_REAL(nid, nvarid, lat)
+#endif
+   print *,lat(1),' ... to ... ',lat(latlen),' ... step: ',lat(latlen)-lat(latlen-1)
+
+print *,'Longitude'
+SELECT CASE(ident)
+CASE('LMD')
+   ierr = NF_INQ_VARID (nid, "longitude",nvarid)
+CASE('OXF')
+   ierr = NF_INQ_VARID (nid, "lon",nvarid)
+END SELECT
+   IF (ierr .NE. NF_NOERR) THEN
+      PRINT *, "Error: Readmeteo <longitude> not found"
+      stop
+   ENDIF
+#ifdef NC_DOUBLE
+   ierr = NF_GET_VAR_DOUBLE(nid, nvarid, lon)
+#else
+   ierr = NF_GET_VAR_REAL(nid, nvarid, lon)
+#endif
+   print *,lon(1),' ... to ... ',lon(lonlen),' ... step: ',lon(lonlen)-lon(lonlen-1)
+
+SELECT CASE(ident)
+CASE('LMD')
+print *, 'Hybrid coordinates'
+   ierr = NF_INQ_VARID (nid, "aps", nvarid)
+   IF (ierr .NE. NF_NOERR) THEN
+      PRINT *, "Error: Readmeteo <aps> not found"
+      stop
+   ENDIF
+#ifdef NC_DOUBLE
+   ierr = NF_GET_VAR_DOUBLE(nid, nvarid, aps)
+#else
+   ierr = NF_GET_VAR_REAL(nid, nvarid, aps)
+#endif
+   ierr = NF_INQ_VARID (nid, "bps", nvarid)
+   IF (ierr .NE. NF_NOERR) THEN
+      PRINT *, "Error: Readmeteo <bps> not found"
+      stop
+   ENDIF
+#ifdef NC_DOUBLE
+   ierr = NF_GET_VAR_DOUBLE(nid, nvarid, bps)
+#else
+   ierr = NF_GET_VAR_REAL(nid, nvarid, bps)
+#endif
+   print *,aps(1),' ... to ... ',aps(altlen)
+   print *,bps(1),' ... to ... ',bps(altlen)
+CASE('OXF')
+   ierr = NF_INQ_VARID (nid, "sigma", nvarid)
+   IF (ierr .NE. NF_NOERR) THEN
+      PRINT *, "Error: Readmeteo <sigma> not found"
+      stop
+   ENDIF
+#ifdef NC_DOUBLE
+   ierr = NF_GET_VAR_DOUBLE(nid, nvarid, bps)
+#else
+   ierr = NF_GET_VAR_REAL(nid, nvarid, bps)
+#endif
+   print *,bps(1),' ... to ... ',bps(altlen)
+END SELECT
+
+
+!!-------------------------------------------
+!! Reading 2D and 3D meteorological fields
+!!-------------------------------------------
+
+IF (blank .EQV. .false.) THEN
+
+print *,'>>> Read 2D optional fields !'
+
+print *,'Emissivity'
+   ierr = NF_INQ_VARID (nid,"emis",nvarid)
+IF (ierr .NE. NF_NOERR) THEN
+        PRINT *, '...warning: not found in diagfi !'
+        PRINT *, '...will be filled with a prescribed value', emiss_prescribed
+  emissfile(:,:,:)=emiss_prescribed
+ELSE
+#ifdef NC_DOUBLE
+  ierr = NF_GET_VAR_DOUBLE(nid, nvarid, emissfile)
+#else
+  ierr = NF_GET_VAR_REAL(nid, nvarid, emissfile)
+#endif
+ENDIF   
+
+print *,'CO2 ice'
+   ierr = NF_INQ_VARID (nid,"co2ice",nvarid)
+IF (ierr .NE. NF_NOERR) THEN
+  PRINT *, '...warning: not found in diagfi !'
+  PRINT *, '...will be filled with a prescribed value', co2ice_prescribed
+  co2icefile(:,:,:)=co2ice_prescribed
+ELSE
+#ifdef NC_DOUBLE
+  ierr = NF_GET_VAR_DOUBLE(nid, nvarid, co2icefile)
+#else
+  ierr = NF_GET_VAR_REAL(nid, nvarid, co2icefile)
+#endif
+ENDIF
+
+print *,'>>> Read 2D surface fields !'
+
+print *,'Surface Pressure'
+   ierr = NF_INQ_VARID (nid,"ps",nvarid)
+   IF (ierr .NE. NF_NOERR) THEN
+      PRINT *, "Error: Readmeteo <ps> not found"
+      stop
+   ENDIF
+#ifdef NC_DOUBLE
+   ierr = NF_GET_VAR_DOUBLE(nid, nvarid, psfile)
+#else
+   ierr = NF_GET_VAR_REAL(nid, nvarid, psfile)
+#endif
+
+print *,'Ground Temperature'
+   ierr = NF_INQ_VARID (nid,"tsurf",nvarid)
+   IF (ierr .NE. NF_NOERR) THEN
+      PRINT *, "Error: Readmeteo <tsurf> not found"
+      stop
+   ENDIF
+#ifdef NC_DOUBLE
+   ierr = NF_GET_VAR_DOUBLE(nid, nvarid, tsfile)
+#else
+   ierr = NF_GET_VAR_REAL(nid, nvarid, tsfile)
+#endif
+
+
+!!!"atmospheric" surface temperature is taken
+!!!from original diagfi.nc first level
+!!!... level is ~3-5 meters
+!print *,'Near-Surface Temperature'
+!   ierr = NF_INQ_VARID (nid,"temp",nvarid)
+!   IF (ierr .NE. NF_NOERR) THEN
+!      ierr = NF_INQ_VARID (nid,"t",nvarid)
+!	IF (ierr .NE. NF_NOERR) THEN
+!           PRINT *, "Error: Readmeteo <temp> not found"
+!           stop
+!	ENDIF
+!   ENDIF
+!#ifdef NC_DOUBLE
+!   ierr = NF_GET_VAR_DOUBLE(nid, nvarid, tfileorig)
+!#else
+!   ierr = NF_GET_VAR_REAL(nid, nvarid, tfileorig)
+!#endif
+!   tnsfile=tfileorig(:,:,1,:)
+
+!!!"atmospheric" surface u is taken
+!!!from original diagfi.nc first level
+!!!... level is ~3-5 meters
+!print *,'Near-Surface Zonal Wind'
+!   ierr = NF_INQ_VARID (nid,"u",nvarid)
+!   IF (ierr .NE. NF_NOERR) THEN
+!     PRINT *, "Error: Readmeteo <u> not found"
+!     stop
+!   ENDIF
+!#ifdef NC_DOUBLE
+!   ierr = NF_GET_VAR_DOUBLE(nid, nvarid, ufileorig)
+!#else
+!   ierr = NF_GET_VAR_REAL(nid, nvarid, ufileorig)
+!#endif
+!   unsfile=ufileorig(:,:,1,:)
+
+!!!"atmospheric" surface v is taken
+!!!from original diagfi.nc first level
+!!!... level is ~3-5 meters
+!print *,'Near-Surface Meridional Wind'
+!   ierr = NF_INQ_VARID (nid,"v",nvarid)
+!   IF (ierr .NE. NF_NOERR) THEN
+!     PRINT *, "Error: Readmeteo <v> not found"
+!     stop
+!   ENDIF
+!#ifdef NC_DOUBLE
+!   ierr = NF_GET_VAR_DOUBLE(nid, nvarid, vfileorig)
+!#else
+!   ierr = NF_GET_VAR_REAL(nid, nvarid, vfileorig)
+!#endif
+!   vnsfile=vfileorig(:,:,1,:)
+
+SELECT CASE(ident)
+CASE('LMD')
+   print *,'Geopotential height at the ground'
+   ierr = NF_INQ_VARID (nid,"phisinit",nvarid)
+   IF (ierr .NE. NF_NOERR) THEN
+      PRINT *, "Error: Readmeteo <phisinit> not found"
+      stop
+   ENDIF
+#ifdef NC_DOUBLE
+   ierr = NF_GET_VAR_DOUBLE(nid, nvarid, ghtsfile)
+#else
+   ierr = NF_GET_VAR_REAL(nid, nvarid, ghtsfile)
+#endif
+!**** from geopotential to geopotential height
+ghtsfile=ghtsfile/grav
+!****
+CASE('OXF')
+!
+! geopotential height ~ altimetry
+!
+print *,'Geopotential height at the ground from file mountain_new.nc'
+ierr=NF_OPEN("mountain_new.nc",NF_NOWRITE,nid3)
+    if (ierr.ne.NF_NOERR) then
+      write(*,*) "Error: Could not open that file either"
+      stop "Might as well stop here"
+    endif
+ierr=NF_INQ_VARID(nid3,"orography",nvarid)
+ierr=NF_GET_VAR_REAL(nid3,nvarid,ghtsfile)
+if (ierr.ne.NF_NOERR) then
+    stop "Error: Failed reading phisinit"
+endif
+ierr=NF_CLOSE(nid3)
+END SELECT
+
+
+print *,'>>> Read 3D meteorological fields ! - This may take some time ...'
+
+print *,'Temperature'
+   ierr = NF_INQ_VARID (nid,"temp",nvarid)
+   IF (ierr .NE. NF_NOERR) THEN
+      ierr = NF_INQ_VARID (nid,"t",nvarid)
+        IF (ierr .NE. NF_NOERR) THEN
+          PRINT *, "Error: Readmeteo <t> not found"
+          stop
+        ENDIF
+   ENDIF
+#ifdef NC_DOUBLE
+   ierr = NF_GET_VAR_DOUBLE(nid, nvarid, tfile)
+#else
+   ierr = NF_GET_VAR_REAL(nid, nvarid, tfile)
+#endif
+tnsfile=tfile(:,:,1,:)
+
+print *,'Zonal wind'   
+   ierr = NF_INQ_VARID (nid,"u",nvarid)
+   IF (ierr .NE. NF_NOERR) THEN
+      PRINT *, "Error: Readmeteo <u> not found"
+      stop
+   ENDIF
+#ifdef NC_DOUBLE
+   ierr = NF_GET_VAR_DOUBLE(nid, nvarid, ufile)
+#else
+   ierr = NF_GET_VAR_REAL(nid, nvarid, ufile)
+#endif
+unsfile=ufile(:,:,1,:)
+
+print *,'Meridional wind'
+   ierr = NF_INQ_VARID (nid,"v",nvarid)
+   IF (ierr .NE. NF_NOERR) THEN
+      PRINT *, "Error: Readmeteo <v> not found"
+      stop
+   ENDIF
+#ifdef NC_DOUBLE
+   ierr = NF_GET_VAR_DOUBLE(nid, nvarid, vfile)
+#else
+   ierr = NF_GET_VAR_REAL(nid, nvarid, vfile)
+#endif
+vnsfile=ufile(:,:,1,:)
+
+
+!!------------------------
+!! special water stuff
+!!------------------------
+    print *,'Water vapor'
+    ierr=NF_INQ_VARID(nid,"q02",nvarid)
+    if (ierr.ne.NF_NOERR) then
+      write(*,*) "...No q02 - Water vapor set to 0"
+      waterfile(:,:,:,:)=0.  
+    else
+      ierr=NF_GET_VAR_REAL(nid,nvarid,waterfile)
+    endif   
+
+    print *,'Water ice'
+    ierr=NF_INQ_VARID(nid,"q01",nvarid)
+    if (ierr.ne.NF_NOERR) then
+      write(*,*) "...No q01 - Water ice set to 0"  
+      watericefile(:,:,:,:)=0.
+    else
+      ierr=NF_GET_VAR_REAL(nid,nvarid,watericefile)
+    endif
+!    print *,'Surface Water vapor'
+!    ierr=NF_INQ_VARID(nid,"qsurf02",nvarid)
+!    if (ierr.ne.NF_NOERR) then
+!      write(*,*) "...No qsurf02 - surface Water vapor set to 0"
+!      swaterfile(:,:,:)=0.
+!    endif
+!    ierr=NF_GET_VAR_REAL(nid,nvarid,swaterfile)
+
+    print *,'Surface Water ice'
+!!!!!! ATTENTION ATTENTION 
+!!!!!! water ice a la surface est qsurf(ig,nqmx)
+    ierr=NF_INQ_VARID(nid,"qsurf02",nvarid)
+    if (ierr.ne.NF_NOERR) then
+      write(*,*) "...No qsurf02 - surface Water ice set to 0"
+      swatericefile(:,:,:)=0.
+    else
+      ierr=NF_GET_VAR_REAL(nid,nvarid,swatericefile)
+    endif
+!!------------------------
+!! special water stuff
+!!------------------------
+
+    print *,'CO2 mass mixing ratio'
+    ierr=NF_INQ_VARID(nid,"co2",nvarid)
+    if (ierr.ne.NF_NOERR) then
+      write(*,*) "...No co2 - co2 mixing ratio set to 0.95"
+      co2file(:,:,:,:)=0.95
+    else
+      ierr=NF_GET_VAR_REAL(nid,nvarid,co2file)
+    endif
+
+!!------------------------
+!! special dust stuff
+!!------------------------
+    print *,'Dust mass'
+    ierr=NF_INQ_VARID(nid,"dustq",nvarid)
+    if (ierr.ne.NF_NOERR) then
+      write(*,*) "...No dustq - Dust mass set to 0"
+      dustfile(:,:,:,:)=0.
+    else
+      ierr=NF_GET_VAR_REAL(nid,nvarid,dustfile)
+    endif
+
+    print *,'Dust number'
+    ierr=NF_INQ_VARID(nid,"dustN",nvarid)
+    if (ierr.ne.NF_NOERR) then
+      write(*,*) "...No dustN - Dust number set to 0"
+      dustnfile(:,:,:,:)=0.
+    else
+      ierr=NF_GET_VAR_REAL(nid,nvarid,dustnfile)
+    endif
+
+    print *,'CCN mass'
+    ierr=NF_INQ_VARID(nid,"ccn",nvarid)
+    if (ierr.ne.NF_NOERR) then
+      write(*,*) "...No ccn - CCN mass set to 0"
+      ccnfile(:,:,:,:)=0.
+    else
+      ierr=NF_GET_VAR_REAL(nid,nvarid,ccnfile)
+    endif
+
+    print *,'CCN number'
+    ierr=NF_INQ_VARID(nid,"ccnN",nvarid)
+    if (ierr.ne.NF_NOERR) then
+      write(*,*) "...No ccnN - CCN number set to 0"
+      ccnnfile(:,:,:,:)=0.
+    else
+      ierr=NF_GET_VAR_REAL(nid,nvarid,ccnnfile)
+    endif
+!!------------------------
+!! special dust stuff
+!!------------------------
+
+!SELECT CASE(ident)
+!CASE('LMD')
+
+    print *,'Soil temperatures'
+    ierr=NF_INQ_VARID(nid,"tsoil",nvarid)
+    if (ierr.ne.NF_NOERR) then
+        write(*,*) "...No tsoil - Soil temperatures set isothermal with surface temperature"
+        DO l=1,altlen
+                tsoilfile(:,:,l,:)=tsfile(:,:,:)
+        ENDDO
+    else
+        ierr=NF_GET_VAR_REAL(nid,nvarid,tsoilfile)
+    endif
+
+!!!!!!!!
+!!!!!!!! new physics (but still compatible with old physics)
+    print *,'Soil depths'
+    ierr=NF_INQ_VARID(nid,"soildepth",nvarid)
+    if (ierr.ne.NF_NOERR) then
+        write(*,*) "...No soildepth - Set to -999"  !!! see soil_settings in LMD physics
+        DO l=1,altlen
+                vertdsoil(l)=-999.
+        ENDDO
+    else
+        ierr=NF_GET_VAR_REAL(nid,nvarid,vertdsoil)
+    endif
+    print *, 'wait a minute' !! AS: I know this could be better
+    DO m=1,lonlen
+     DO n=1,latlen
+      DO p=1,timelen
+       dsoilfile(m,n,:,p) = vertdsoil(:) 
+      ENDDO
+     ENDDO
+    ENDDO 
+    DEALLOCATE(vertdsoil)
+
+    print *,'Soil thermal inertia'
+    ierr=NF_INQ_VARID(nid,"inertiedat",nvarid)
+    if (ierr.ne.NF_NOERR) then
+        write(*,*) "...No soil therm. inert. - Set to -999"
+        DO l=1,altlen
+                isoilfile(:,:,l,:)=-999.
+        ENDDO
+    else
+        ierr=NF_GET_VAR_REAL(nid,nvarid,isoilfile)
+    endif
+!!!!!!!!
+!!!!!!!! new physics
+
+
+!!!!!!!!!!!!!!!!!!!!!!!!NEW PHYSICS + PHOTOCHEM
+!!!!!!!!!!!!!!!!!!!!!!!!NEW PHYSICS + PHOTOCHEM
+#ifdef PHOTOCHEM
+    print *,'photochem'
+    DO i=1,nchemtrac
+     print *,wtnom(i)
+     ierr=NF_INQ_VARID(nid,wtnom(i),nvarid)
+     if (ierr.ne.NF_NOERR) then
+       write(*,*) "...No ",wtnom(i), " - set to 0"
+       chemtrac(:,:,:,:,i)=0.
+     else
+       ierr=NF_GET_VAR_REAL(nid,nvarid,chemtrac(:,:,:,:,i))
+     endif
+    ENDDO
+#endif
+!!!!!!!!!!!!!!!!!!!!!!!!NEW PHYSICS + PHOTOCHEM
+!!!!!!!!!!!!!!!!!!!!!!!!NEW PHYSICS + PHOTOCHEM
+
+
+
+!END SELECT
+
+ierr=NF_CLOSE(nid)
+
+!!!!lott stuff
+!print *,'get lott'
+!ierr=NF_OPEN("init_lott.nc",NF_NOWRITE,nid3)
+!ierr=NF_INQ_VARID(nid3,"ZMEA",nvarid)
+!ierr=NF_GET_VAR_REAL(nid3,nvarid,interm)
+!gwparam(:,:,1)=interm(:,:)
+!ierr=NF_INQ_VARID(nid3,"ZSTD",nvarid)
+!ierr=NF_GET_VAR_REAL(nid3,nvarid,interm)
+!gwparam(:,:,2)=interm(:,:)
+!ierr=NF_INQ_VARID(nid3,"ZSIG",nvarid)
+!ierr=NF_GET_VAR_REAL(nid3,nvarid,interm)
+!gwparam(:,:,3)=interm(:,:)
+!ierr=NF_INQ_VARID(nid3,"ZGAM",nvarid)
+!ierr=NF_GET_VAR_REAL(nid3,nvarid,interm)
+!gwparam(:,:,4)=interm(:,:)
+!ierr=NF_INQ_VARID(nid3,"ZTHE",nvarid)
+!ierr=NF_GET_VAR_REAL(nid3,nvarid,interm)
+!gwparam(:,:,5)=interm(:,:)
+!ierr=NF_CLOSE(nid3)
+
+ENDIF
+
+!!-----------------------------
+!! Loop on the written files
+!! >>> what follows is pretty repetitive ... 
+!!        gotta do something (one more loop?)
+!!-----------------------------
+
+!!! Equivalent eta levels for WRF interpolation in initialize_real
+!print *,'Computing equivalent eta levels'
+!	
+!	!ptop will be passed through RH(surface)
+!	ptop=MINVAL(aps(altlen)+bps(altlen)*psfile(:,:,:))
+!	print *, 'ptop', ptop
+!
+!print *, 'sample: equivalent eta levels at i=1,j=1'
+!DO k = 1,altlen
+!        levels(k)=-k
+!        eta_gcm(:,:,k,:)=(aps(k)+bps(k)*psfile(:,:,:)-ptop)/(psfile(:,:,:)-ptop)
+!        print *, eta_gcm(1,1,k,1) 
+!END DO
+
+!!---better to pass pressure values 
+!!---the eta treatment is done in module_initialize_real
+DO k = 1,altlen
+        levels(k)=-k
+        !!dummy decreasing levels
+END DO
+
+
+
+
+!! Dummy surface level is XLVL=200100.
+
+
+DO l=1,FILES
+
+
+!!---------------------------------------------
+!! Write file in intermediate format for WPS
+!! 1. Surface data
+!!---------------------------------------------
+!!
+!! a mettre pour tous sinon
+!!     WRF_DEBUG: Warning DIM             4 , NAME num_metgrid_levels REDIFINED  by
+!!            var DUSTN            26           25  in wrf_io.F90 line         2349
+!!
+
+!
+! These variables remain the same in the "loop"
+!
+HDATE=date_out(l)
+IFV=4
+XFCST=0.
+SOURCE=ident
+NX=lonlen
+NY=latlen
+ALLOCATE(SLAB(NX,NY))
+IPROJ=0
+STARTLOC='SWCORNER'
+STARTLAT=lat(1) 
+STARTLON=lon(1)
+DELTALAT=lat(latlen)-lat(latlen-1)
+DELTALON=lon(lonlen)-lon(lonlen-1)
+!
+! Open the data destination file
+!
+output="./WPSFEED/"//ident//":"//date_out2(l)       
+open(UNIT=1,			&
+	FILE=output,		&
+	STATUS='REPLACE',	&
+	FORM='UNFORMATTED',	&
+	ACCESS='SEQUENTIAL')
+
+!------------------------!    
+! >>> Write a variable   !
+!    ... Copy&Paste part !
+!------------------------! 
+FIELD='T'
+UNITS='K'
+DESC='Atmospheric temperature'
+XLVL=200100.
+SLAB=tnsfile(:,:,time_out(l))
+	! And now put everything in the destination file
+	! ... Header
+        write(1) IFV
+        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
+        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON
+	! ... Data
+	write(1) SLAB
+!print *,'The field '//DESC//' was written to '//output
+
+!------------------------!    
+! >>> Write a variable   !
+!    ... Copy&Paste part !
+!------------------------! 
+FIELD='U'
+UNITS='m s{-1}'
+DESC='Zonal wind'
+XLVL=200100.
+SLAB=unsfile(:,:,time_out(l))
+        ! And now put everything in the destination file
+	! ... Header
+        write(1) IFV
+        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
+        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON 
+	! ... Data
+	write(1) SLAB
+!print *,'The field '//DESC//' was written to '//output
+
+!------------------------!    
+! >>> Write a variable   !
+!    ... Copy&Paste part !
+!------------------------! 
+FIELD='V'
+UNITS='m s{-1}'
+DESC='Meridional wind'
+XLVL=200100.
+SLAB=vnsfile(:,:,time_out(l))
+	! And now put everything in the destination file
+	! ... Header
+        write(1) IFV
+        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
+        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON 
+	! ... Data
+	write(1) SLAB
+!print *,'The field '//DESC//' was written to '//output
+
+!------------------------!    
+! >>> Write a variable   !
+!    ... Copy&Paste part !
+!------------------------! 
+FIELD='RH'
+UNITS=''
+DESC='Customized 2D static field'
+XLVL=200100.
+SLAB=vide(:,:)
+	! And now put everything in the destination file
+	! ... Header
+        write(1) IFV
+        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
+        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON
+	! ... Data
+	write(1) SLAB
+!print *,'The field '//DESC//' was written to '//output
+
+!------------------------!    
+! >>> Write a variable   !
+!    ... Copy&Paste part !
+!------------------------! 
+FIELD='SOILHGT'
+UNITS='m' 
+DESC='Terrain field of source analysis'  !Ground geopotential height
+XLVL=200100.
+SLAB=ghtsfile(:,:)
+	! And now put everything in the destination file
+	! ... Header
+        write(1) IFV
+        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
+        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON
+	! ... Data
+	write(1) SLAB
+!print *,'The field '//DESC//' was written to '//output
+
+!------------------------!    
+! >>> Write a variable   !
+!    ... Copy&Paste part !
+!------------------------! 
+FIELD='PSFC'
+UNITS='Pa'
+DESC='Surface Pressure'
+XLVL=200100.
+SLAB=psfile(:,:,time_out(l))
+	! And now put everything in the destination file
+	! ... Header
+        write(1) IFV
+        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
+        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON
+	! ... Data
+	write(1) SLAB
+!print *,'The field '//DESC//' was written to '//output
+
+!------------------------!    
+! >>> Write a variable   !
+!    ... Copy&Paste part !
+!------------------------! 
+FIELD='ST000010'
+UNITS=''
+DESC='Emissivity'
+XLVL=200100.
+SLAB=emissfile(:,:,time_out(l))
+	! And now put everything in the destination file
+	! ... Header
+        write(1) IFV
+        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
+        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON 
+	! ... Data
+	write(1) SLAB
+!print *,'The field '//DESC//' was written to '//output
+
+!------------------------!    
+! >>> Write a variable   !
+!    ... Copy&Paste part !
+!------------------------! 
+FIELD='ST010040'
+UNITS=''
+DESC='CO2 ice'
+XLVL=200100.
+SLAB=co2icefile(:,:,time_out(l))
+	! And now put everything in the destination file
+	! ... Header
+        write(1) IFV
+        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
+        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON
+	! ... Data
+	write(1) SLAB
+!print *,'The field '//DESC//' was written to '//output
+
+!------------------------!    
+! >>> Write a variable   !
+!    ... Copy&Paste part !
+!------------------------! 
+FIELD='ST040100'
+UNITS=''
+DESC='ZMEA'
+XLVL=200100.
+SLAB=gwparam(:,:,1)
+	! And now put everything in the destination file
+	! ... Header
+        write(1) IFV
+        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
+        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON  
+	! ... Data
+	write(1) SLAB
+!print *,'The field '//DESC//' was written to '//output
+
+!------------------------!    
+! >>> Write a variable   !
+!    ... Copy&Paste part !
+!------------------------! 
+FIELD='ST100200'
+UNITS=''
+DESC='ZSTD'
+XLVL=200100.
+SLAB=gwparam(:,:,2)
+	! And now put everything in the destination file
+	! ... Header
+        write(1) IFV
+        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
+        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON  
+	! ... Data
+	write(1) SLAB
+!print *,'The field '//DESC//' was written to '//output
+
+!------------------------!    
+! >>> Write a variable   !
+!    ... Copy&Paste part !
+!------------------------! 
+FIELD='LANDSEA'
+UNITS='0/1 Flag'
+DESC='Land/Sea flag'
+XLVL=200100.
+SLAB=ones(:,:)
+	! And now put everything in the destination file
+	! ... Header
+        write(1) IFV
+        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
+        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON  
+	! ... Data
+	write(1) SLAB
+!print *,'The field '//DESC//' was written to '//output
+
+!------------------------!    
+! >>> Write a variable   !
+!    ... Copy&Paste part !
+!------------------------! 
+FIELD='SKINTEMP'
+UNITS='K'
+DESC='Ground temperature'
+XLVL=200100.
+SLAB=tsfile(:,:,time_out(l))
+	! And now put everything in the destination file
+	! ... Header
+        write(1) IFV
+        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
+        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON
+	! ... Data
+	write(1) SLAB
+!print *,'The field '//DESC//' was written to '//output
+
+!------------------------!    
+! >>> Write a variable   !
+!    ... Copy&Paste part !
+!------------------------! 
+FIELD='SM000010'
+UNITS=''
+DESC='ZSIG'
+XLVL=200100.
+SLAB=gwparam(:,:,3)
+	! And now put everything in the destination file
+	! ... Header
+        write(1) IFV
+        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
+        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON
+	! ... Data
+	write(1) SLAB
+!print *,'The field '//DESC//' was written to '//output
+
+!------------------------!    
+! >>> Write a variable   !
+!    ... Copy&Paste part !
+!------------------------! 
+FIELD='SM010040'
+UNITS=''
+DESC='ZGAM'
+XLVL=200100.
+SLAB=gwparam(:,:,4)
+	! And now put everything in the destination file
+	! ... Header
+        write(1) IFV
+        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
+        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON
+	! ... Data
+	write(1) SLAB
+!print *,'The field '//DESC//' was written to '//output
+
+!------------------------!    
+! >>> Write a variable   !
+!    ... Copy&Paste part !
+!------------------------! 
+FIELD='SM040100'
+UNITS=''
+DESC='ZTHE'
+XLVL=200100.
+SLAB=gwparam(:,:,5)
+	! And now put everything in the destination file
+	! ... Header
+        write(1) IFV
+        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
+        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON
+	! ... Data
+	write(1) SLAB
+!print *,'The field '//DESC//' was written to '//output
+
+!------------------------!    
+! >>> Write a variable   !
+!    ... Copy&Paste part !
+!------------------------! 
+FIELD='SM100200'
+UNITS='kg/m2'
+DESC='Surf water ice'
+XLVL=200100.
+SLAB=swatericefile(:,:,time_out(l))
+	! And now put everything in the destination file
+	! ... Header
+        write(1) IFV
+        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
+        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON 
+	! ... Data
+	write(1) SLAB
+!print *,'The field '//DESC//' was written to '//output
+
+
+!------------------------!
+! >>> Write a variable   !
+!    ... Copy&Paste part !
+!------------------------!
+FIELD='HV'
+UNITS='kg/kg'
+DESC='Water vapor'
+XLVL=200100.
+SLAB=waterfile(:,:,1,time_out(l))
+        ! And now put everything in the destination file
+        ! ... Header
+        write(1) IFV
+        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
+        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON
+        ! ... Data
+        write(1) SLAB
+!print *,'The field '//DESC//' was written to '//output
+
+!------------------------!
+! >>> Write a variable   !
+!    ... Copy&Paste part !
+!------------------------!
+FIELD='HI'
+UNITS='kg/kg'
+DESC='Water ice'
+XLVL=200100.
+SLAB=watericefile(:,:,1,time_out(l))
+        ! And now put everything in the destination file
+        ! ... Header
+        write(1) IFV
+        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
+        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON
+        ! ... Data
+        write(1) SLAB
+!print *,'The field '//DESC//' was written to '//output
+
+!------------------------!
+! >>> Write a variable   !
+!    ... Copy&Paste part !
+!------------------------!
+FIELD='TSOIL'
+UNITS='K'
+DESC='Soil temperature'
+XLVL=200100.
+SLAB=tsoilfile(:,:,1,time_out(l))
+        ! And now put everything in the destination file
+        ! ... Header
+        write(1) IFV
+        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
+        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON
+        ! ... Data
+        write(1) SLAB
+!print *,'The field '//DESC//' was written to '//output
+
+!------------------------!
+! >>> Write a variable   !
+!    ... Copy&Paste part !
+!------------------------!
+FIELD='DSOIL'
+UNITS='m'
+DESC='Soil depths'
+XLVL=200100.
+SLAB=dsoilfile(:,:,1,time_out(l))
+        ! And now put everything in the destination file
+        ! ... Header
+        write(1) IFV
+        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
+        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON
+        ! ... Data
+        write(1) SLAB
+!print *,'The field '//DESC//' was written to '//output
+
+!------------------------!
+! >>> Write a variable   !
+!    ... Copy&Paste part !
+!------------------------!
+FIELD='ISOIL'
+UNITS='tiu'
+DESC='Soil thermal inertia'
+XLVL=200100.
+SLAB=isoilfile(:,:,1,time_out(l))
+        ! And now put everything in the destination file
+        ! ... Header
+        write(1) IFV
+        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
+        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON
+        ! ... Data
+        write(1) SLAB
+!print *,'The field '//DESC//' was written to '//output
+
+!------------------------!
+! >>> Write a variable   !
+!    ... Copy&Paste part !
+!------------------------!
+FIELD='CO2'
+UNITS='kg/kg'
+DESC='CO2 mixing ratio'
+XLVL=200100.
+SLAB=co2file(:,:,1,time_out(l))
+        ! And now put everything in the destination file
+        ! ... Header
+        write(1) IFV
+        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
+        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON
+        ! ... Data
+        write(1) SLAB
+!print *,'The field '//DESC//' was written to '//output
+
+!------------------------!
+! >>> Write a variable   !
+!    ... Copy&Paste part !
+!------------------------!
+FIELD='DUSTQ'
+UNITS='kg/kg'
+DESC='Dust mixing ratio'
+XLVL=200100.
+SLAB=dustfile(:,:,1,time_out(l))
+        ! And now put everything in the destination file
+        ! ... Header
+        write(1) IFV
+        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
+        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON
+        ! ... Data
+        write(1) SLAB
+!print *,'The field '//DESC//' was written to '//output
+
+!------------------------!
+! >>> Write a variable   !
+!    ... Copy&Paste part !
+!------------------------!
+FIELD='DUSTN'
+UNITS='part/kg' 
+DESC='Dust number density'
+XLVL=200100.
+SLAB=dustnfile(:,:,1,time_out(l))
+        ! And now put everything in the destination file
+        ! ... Header
+        write(1) IFV
+        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
+        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON
+        ! ... Data
+        write(1) SLAB
+!print *,'The field '//DESC//' was written to '//output
+
+!------------------------!
+! >>> Write a variable   !
+!    ... Copy&Paste part !
+!------------------------!
+FIELD='CCNQ'
+UNITS='kg/kg'
+DESC='CCN mixing ratio'
+XLVL=200100.
+SLAB=ccnfile(:,:,1,time_out(l))
+        ! And now put everything in the destination file
+        ! ... Header
+        write(1) IFV
+        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
+        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON
+        ! ... Data
+        write(1) SLAB
+!print *,'The field '//DESC//' was written to '//output
+
+!------------------------!
+! >>> Write a variable   !
+!    ... Copy&Paste part !
+!------------------------!
+FIELD='CCNN'
+UNITS='part/kg'
+DESC='CCN number density'
+XLVL=200100.
+SLAB=ccnnfile(:,:,1,time_out(l))
+        ! And now put everything in the destination file
+        ! ... Header
+        write(1) IFV
+        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
+        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON
+        ! ... Data
+        write(1) SLAB
+!print *,'The field '//DESC//' was written to '//output
+
+
+!------------------------!
+! >>> Write a variable   !
+!     PHOTOCHEMISTRY     !
+!------------------------!
+#ifdef PHOTOCHEM
+    DO i=1,nchemtrac
+       FIELD=wtnom(i)
+       UNITS='units'
+       DESC='desc'
+       XLVL=200100.
+       SLAB=chemtrac(:,:,1,time_out(l),i)
+       ! And now put everything in the destination file
+       ! ... Header
+       write(1) IFV
+       write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
+       write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON
+       ! ... Data
+       write(1) SLAB
+    ENDDO
+#endif
+
+!!----------------------------------------------------
+!! Write file in intermediate format for WPS
+!! 2. 3D meteorological data
+!! >>> same stuff, but handle vertical profile
+!! >>> !! XLVL must be decreasing (pressure levels) 
+!!----------------------------------------------------
+
+!------------------------!    
+! >>> Write a variable   !
+!    ... Copy&Paste part !
+!------------------------! 
+FIELD='T'
+UNITS='K'
+DESC='Atmospheric temperature'
+DO k = 1,altlen
+	XLVL=levels(k)
+	SLAB=tfile(:,:,k,time_out(l))
+		! And now put everything in the destination file
+		! ... Header
+        write(1) IFV
+        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
+        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON  
+		! ... Data
+		write(1) SLAB
+END DO
+!print *,'The field '//DESC//' was written to '//output
+
+!------------------------!    
+! >>> Write a variable   !
+!    ... Copy&Paste part !
+!------------------------! 
+FIELD='U'
+UNITS='m s{-1}'
+DESC='Zonal wind'
+DO k = 1,altlen
+        XLVL=levels(k)
+	SLAB=ufile(:,:,k,time_out(l))
+		! And now put everything in the destination file
+		! ... Header
+        write(1) IFV
+        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
+        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON  
+		! ... Data
+		write(1) SLAB
+END DO
+!print *,'The field '//DESC//' was written to '//output
+
+!------------------------!    
+! >>> Write a variable   !
+!    ... Copy&Paste part !
+!------------------------! 
+FIELD='V'
+UNITS='m s{-1}'
+DESC='Meridional wind'
+DO k = 1,altlen
+        XLVL=levels(k)
+	SLAB=vfile(:,:,k,time_out(l))
+		! And now put everything in the destination file
+		! ... Header
+        write(1) IFV
+        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
+        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON  
+		! ... Data
+		write(1) SLAB
+END DO
+!print *,'The field '//DESC//' was written to '//output
+
+!------------------------!    
+! >>> Write a variable   !
+!    ... Copy&Paste part !
+!------------------------! 
+FIELD='RH'
+UNITS=''
+DESC='Customized 2D static field'
+DESC='Eta-levels from the GCM'
+DESC='Pressure values from the GCM'
+DO k = 1,altlen
+        XLVL=levels(k)
+SELECT CASE(ident)
+CASE('LMD')
+        SLAB=aps(k)+bps(k)*psfile(:,:,time_out(l))
+CASE('OXF')
+	SLAB=bps(k)*psfile(:,:,time_out(l))
+END SELECT
+		! And now put everything in the destination file
+		! ... Header
+        write(1) IFV
+        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
+        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON  
+		! ... Data
+		write(1) SLAB
+END DO
+!print *,'The field '//DESC//' was written to '//output
+
+!------------------------!    
+! >>> Write a variable   !
+!    ... Copy&Paste part !
+!------------------------! 
+FIELD='HGT'
+UNITS='m'
+DESC='Height'
+DO k = 1,altlen
+        XLVL=levels(k)
+!!*******
+!! PROVISOIRE: normalement, il faudrait la hauteur geopotentielle
+!!*******
+!!however, not used by initialize_real
+SELECT CASE(ident)
+CASE('LMD')
+        SLAB=10000.*alog(610./(aps(k)+bps(k)*psfile(:,:,time_out(l))))
+CASE('OXF')
+	SLAB=10000.*alog(610./(bps(k)*psfile(:,:,time_out(l))))
+END SELECT
+		! And now put everything in the destination file
+		! ... Header
+        write(1) IFV
+        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
+        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON  
+		! ... Data
+		write(1) SLAB
+END DO
+!print *,'The field '//DESC//' was written to '//output
+
+!------------------------!
+! >>> Write a variable   !
+!    ... Copy&Paste part !
+!------------------------!
+FIELD='HV'
+UNITS='kg/kg'
+DESC='Water vapor'
+DO k = 1,altlen
+        XLVL=levels(k)
+        SLAB=waterfile(:,:,k,time_out(l))
+                ! And now put everything in the destination file
+                ! ... Header
+        write(1) IFV
+        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
+        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON
+                ! ... Data
+                write(1) SLAB
+END DO
+!print *,'The field '//DESC//' was written to '//output
+
+!------------------------!
+! >>> Write a variable   !
+!    ... Copy&Paste part !
+!------------------------!
+FIELD='HI'
+UNITS='kg/kg'
+DESC='Water ice'
+DO k = 1,altlen
+        XLVL=levels(k)
+        SLAB=watericefile(:,:,k,time_out(l))
+                ! And now put everything in the destination file
+                ! ... Header
+        write(1) IFV
+        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
+        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON
+                ! ... Data
+                write(1) SLAB
+END DO
+!print *,'The field '//DESC//' was written to '//output
+
+!------------------------!
+! >>> Write a variable   !
+!    ... Copy&Paste part !
+!------------------------!
+FIELD='TSOIL'
+UNITS='K'
+DESC='Soil temperature'
+DO k = 1,altlen
+        XLVL=levels(k)
+        SLAB=tsoilfile(:,:,k,time_out(l))
+                ! And now put everything in the destination file
+                ! ... Header
+        write(1) IFV
+        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
+        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON
+                ! ... Data
+                write(1) SLAB
+END DO
+!print *,'The field '//DESC//' was written to '//output
+
+!------------------------!
+! >>> Write a variable   !
+!    ... Copy&Paste part !
+!------------------------!
+FIELD='DSOIL'
+UNITS='m'
+DESC='Soil depths'
+DO k = 1,altlen
+        XLVL=levels(k)
+        SLAB=dsoilfile(:,:,k,time_out(l))
+                ! And now put everything in the destination file
+                ! ... Header
+        write(1) IFV
+        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
+        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON
+                ! ... Data
+                write(1) SLAB
+END DO
+!print *,'The field '//DESC//' was written to '//output
+
+!------------------------!
+! >>> Write a variable   !
+!    ... Copy&Paste part !
+!------------------------!
+FIELD='ISOIL'
+UNITS='tiu'
+DESC='Soil thermal inertia'
+DO k = 1,altlen
+        XLVL=levels(k)
+        SLAB=isoilfile(:,:,k,time_out(l))
+                ! And now put everything in the destination file
+                ! ... Header
+        write(1) IFV
+        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
+        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON
+                ! ... Data
+                write(1) SLAB
+END DO
+!print *,'The field '//DESC//' was written to '//output
+
+!------------------------!
+! >>> Write a variable   !
+!    ... Copy&Paste part !
+!------------------------!
+FIELD='CO2'
+UNITS='kg/kg'
+DESC='CO2 mixing ratio'
+DO k = 1,altlen
+        XLVL=levels(k)
+        SLAB=co2file(:,:,k,time_out(l))
+                ! And now put everything in the destination file
+                ! ... Header
+        write(1) IFV
+        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
+        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON
+                ! ... Data
+                write(1) SLAB
+END DO
+!print *,'The field '//DESC//' was written to '//output
+
+!------------------------!
+! >>> Write a variable   !
+!    ... Copy&Paste part !
+!------------------------!
+FIELD='DUSTQ'
+UNITS='kg/kg'
+DESC='Dust mixing ratio'
+DO k = 1,altlen
+        XLVL=levels(k)
+        SLAB=dustfile(:,:,k,time_out(l))
+                ! And now put everything in the destination file
+                ! ... Header
+        write(1) IFV
+        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
+        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON
+                ! ... Data
+                write(1) SLAB
+END DO
+!print *,'The field '//DESC//' was written to '//output
+
+!------------------------!
+! >>> Write a variable   !
+!    ... Copy&Paste part !
+!------------------------!
+FIELD='DUSTN'
+UNITS='part/kg'
+DESC='Dust number density'
+DO k = 1,altlen
+        XLVL=levels(k)
+        SLAB=dustnfile(:,:,k,time_out(l))
+                ! And now put everything in the destination file
+                ! ... Header
+        write(1) IFV
+        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
+        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON
+                ! ... Data
+                write(1) SLAB
+END DO
+!print *,'The field '//DESC//' was written to '//output
+
+!------------------------!
+! >>> Write a variable   !
+!    ... Copy&Paste part !
+!------------------------!
+FIELD='CCNQ'
+UNITS='kg/kg'
+DESC='CCN mixing ratio'
+DO k = 1,altlen
+        XLVL=levels(k)
+        SLAB=ccnfile(:,:,k,time_out(l))
+                ! And now put everything in the destination file
+                ! ... Header
+        write(1) IFV
+        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
+        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON
+                ! ... Data
+                write(1) SLAB
+END DO
+!print *,'The field '//DESC//' was written to '//output
+
+!------------------------!
+! >>> Write a variable   !
+!    ... Copy&Paste part !
+!------------------------!
+FIELD='CCNN'
+UNITS='part/kg'
+DESC='CCN number density'
+DO k = 1,altlen
+        XLVL=levels(k)
+        SLAB=ccnnfile(:,:,k,time_out(l))
+                ! And now put everything in the destination file
+                ! ... Header
+        write(1) IFV
+        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
+        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON
+                ! ... Data
+                write(1) SLAB
+END DO
+!print *,'The field '//DESC//' was written to '//output
+
+
+!------------------------!
+! >>> Write a variable   !
+!     PHOTOCHEMISTRY     !
+!------------------------!
+#ifdef PHOTOCHEM
+    DO i=1,nchemtrac
+       FIELD=wtnom(i)
+       UNITS='units'
+       DESC='desc'
+       DO k = 1,altlen
+         XLVL=levels(k)
+         SLAB=chemtrac(:,:,k,time_out(l),i)
+         ! And now put everything in the destination file
+         ! ... Header
+         write(1) IFV
+         write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
+         write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON
+         ! ... Data
+         write(1) SLAB
+       END DO
+    ENDDO
+#endif
+
+print *,'****done file '//output, int(100.*float(l)/float(FILES)), ' % '
+close(1)
+
+DEALLOCATE(SLAB)
+
+END DO !! end of the files loop
+
+
+!!-------------------------
+!! DeAllocate local arrays
+!!-------------------------
+deallocate(eta_gcm)
+deallocate(tfile)
+deallocate(tsoilfile)
+deallocate(isoilfile)
+deallocate(dsoilfile)
+!deallocate(tfileorig)
+deallocate(ufile)
+!deallocate(ufileorig)
+deallocate(vfile)
+!deallocate(vfileorig)
+deallocate(rfile)
+deallocate(hfile)  
+deallocate(waterfile)
+deallocate(watericefile)
+!deallocate(swaterfile)
+deallocate(swatericefile)
+deallocate(dustfile)
+deallocate(dustnfile)
+deallocate(co2file)
+deallocate(ccnfile)
+deallocate(ccnnfile)
+deallocate(psfile) 
+deallocate(tsfile)
+deallocate(tnsfile)
+deallocate(unsfile)
+deallocate(vnsfile)
+deallocate(emissfile)
+deallocate(co2icefile)
+deallocate(ghtsfile)	!! no scan axis
+deallocate(vide)
+deallocate(ones)
+deallocate(lat, lon, alt, time)
+deallocate(aps,bps,levels)
+
+#ifdef PHOTOCHEM
+deallocate(chemtrac)
+deallocate(wtnom)
+#endif
+
+print *, '------------------------'
+print *, 'End of pre-WPS process !'
+print *, '------------------------'
+print *, 'Here is what you should set in namelist.wps:' 
+print *, " start_date = '"//date_out2(1)//"'"
+print *, " end_date = '"//date_out2(FILES)//"'"
+print *, '------------------------'
+print *, 'Any date between those is ok'
+print *, 'for example, second available date is ... '//date_out2(2)
+print *, '------------------------'
+
+end
Index: trunk/MESOSCALE/LMD_MM_MARS/SRC/PREP_MARS/Venus/create_readmeteo.F90
===================================================================
--- trunk/MESOSCALE/LMD_MM_MARS/SRC/PREP_MARS/Venus/create_readmeteo.F90	(revision 1724)
+++ trunk/MESOSCALE/LMD_MM_MARS/SRC/PREP_MARS/Venus/create_readmeteo.F90	(revision 1724)
@@ -0,0 +1,264 @@
+program create_readmeteo
+
+implicit none
+include "netcdf.inc"
+
+!------------------------------------------------------------------------!
+! create_readmeteo generates the file 'readmeteo.def'                    !
+! ... must be run prior to readmeteo                                     !
+! ... the user will be asked a few questions                             !
+!                                                                        !
+! A. Spiga - 01/08/2007                                                  !
+!------------------------------------------------------------------------!
+
+INTEGER, PARAMETER :: MONTHS_PER_YEAR = 12
+INTEGER, PARAMETER :: mday(MONTHS_PER_YEAR)   &
+           = (/61,66,66,65,60,54,50,46,47,47,51,56/)
+
+INTEGER :: start_day,init,i,month,day
+INTEGER :: ierr,nid,nvarid
+INTEGER :: n,start,my,interval_subs,subs
+INTEGER :: start_hour,interval,hour,inc_hour
+INTEGER :: no_please
+INTEGER :: timedim,timelen
+
+REAL, DIMENSION(100) :: param
+REAL, DIMENSION(:), ALLOCATABLE :: time
+
+
+!
+! Init
+!
+interval = 0
+
+
+!
+! Open input NETCDF file
+!
+write(*,*) "Scanning netcdf file ..."
+ierr=NF_OPEN ("input_diagfi.nc",NF_NOWRITE,nid)
+ierr=NF__OPEN ("input_diagfi.nc",NF_NOWRITE,4096,nid)
+!ierr=nc_open("input_diagfi.nc",NC_NOWRITE,nid)
+IF (ierr.NE.NF_NOERR) THEN
+      write(*,*)'**** Please create a symbolic link called input_diagfi.nc'
+      CALL ABORT
+ENDIF
+
+ierr=NF_INQ_DIMID(nid,"Time",timedim)
+IF (ierr .NE. NF_NOERR) THEN
+    ierr=NF_INQ_DIMID(nid,"time",timedim)
+ENDIF
+ierr=NF_INQ_DIMLEN(nid,timedim,timelen)
+
+
+!
+! Get starting time
+!
+ALLOCATE(time(timelen))
+ierr = NF_INQ_VARID (nid, "Time",nvarid)
+IF (ierr .NE. NF_NOERR) THEN
+        ierr = NF_INQ_VARID (nid, "time",nvarid)
+           IF (ierr .NE. NF_NOERR) THEN
+                PRINT *, "Error: Readmeteo <Time> not found"
+                stop
+           ENDIF
+ENDIF
+#ifdef NC_DOUBLE
+ierr = NF_GET_VAR_DOUBLE(nid, nvarid, time)
+#else
+ierr = NF_GET_VAR_REAL(nid, nvarid, time)
+#endif
+
+ierr = NF_INQ_VARID (nid,"controle",nvarid)
+IF (ierr .NE. NF_NOERR) THEN
+        PRINT *, "Error: Readmeteo <ps> not found"
+        stop
+ENDIF
+#ifdef NC_DOUBLE
+ierr = NF_GET_VAR_DOUBLE(nid, nvarid, param)
+#else
+ierr = NF_GET_VAR_REAL(nid, nvarid, param)
+#endif
+
+write(*,*) "Done."
+
+
+!
+! fill the include if no info can be found in the diagfi
+!
+include "fix_no_info.inc"
+
+
+! beware, param(4) is the day reference of start and startfi
+! ...have to add time(1) to get the real starting date in diagfi
+start_day=floor(param(4)+time(1))		
+start_hour=nint((param(4)-floor(param(4))+time(1))*24)	! starting hour	
+start_hour=MOD(start_hour,24)   
+IF (interval .eq. 0) interval=nint(time(1)*24)	 ! interval between each time subscript	
+
+
+PRINT *,'*****************'
+PRINT *,'GCM data file starts at sol ',start_day,'and hour',start_hour
+PRINT *,'GCM data interval is ',interval,'hours'
+
+CALL wrf_day(start_day,month,day)
+
+!
+! User defined parameters
+!
+write(*,*) "This will erase readmeteo.def file"
+write(*,*) "  NB: Default mode is to generate "
+write(*,*) "      a WPS-compatible file for each timestep "
+write(*,*) "      included in the diagfi "
+write(*,*) "Total number of generated files: ",timelen 
+write(*,*) "Continue ? 0 if no, 1 if yes, 99 for settings"
+read(*,*) no_please
+if (no_please == 0) stop
+if (no_please == 1) then
+        my=2024
+        n=timelen
+        start=1
+        interval_subs=1
+else
+        write(*,*) "-- GCM data file information --"
+        write(*,*) "Starting Martian year ? ex: 24,25,26..."
+        read(*,*) my
+        my=2000+my
+        write(*,*) "-- WRF data file information --"
+        write(*,*) "How many files do you want to create ? at least 2, max is",timelen
+        read(*,*) n
+        IF (n == timelen) THEN
+                start=1
+                interval_subs=1
+        ELSE
+                write(*,*) "Time subscript you want to begin with (first is 1) ? max is",timelen-n+1
+                read(*,*) start
+                write(*,*) "Time subscript interval you want to get ? no more than",(timelen-start+1)/n
+                read(*,*) interval_subs
+        END IF
+endif
+
+
+
+!
+! Info
+!
+PRINT *,'-------'
+PRINT *,'run readmeteo with the command line:'
+PRINT *,'readmeteo.exe < readmeteo.def'
+
+
+!
+! Generate readmeteo.def
+!
+OPEN(6,file='readmeteo.def',status='replace',form='formatted')
+! files
+IF (n < 10) THEN
+        write(6,fmt='(I1)') n
+ELSE IF (n < 100) THEN
+        write(6,fmt='(I2)') n
+ELSE IF (n < 1000) THEN
+        write(6,fmt='(I3)') n
+ELSE
+        write(6,fmt='(I4)') n        
+END IF
+! subscript in GCM data file
+DO i=1,n
+        subs=start+(i-1)*interval_subs
+        IF (subs < 10) THEN
+                write(6,fmt='(I1)') subs 
+        ELSE IF (subs < 100) THEN 
+                write(6,fmt='(I2)') subs
+        ELSE IF (subs < 1000) THEN
+                write(6,fmt='(I3)') subs
+        ELSE 
+                write(6,fmt='(I4)') subs   
+        END IF        
+END DO
+! WRF time reference
+hour=start_hour+(start-1)*interval
+inc_hour=interval*interval_subs
+IF (hour >= 24) day=day+INT(hour/24)
+hour=MOD(hour,24)
+IF (day > mday(month)) THEN
+      day=day-mday(month)
+      month=month+1
+END IF
+IF (month > MONTHS_PER_YEAR) THEN
+      my=my+1
+      month=1
+END IF
+DO i=1,n
+        write(6,fmt='(I4)') my
+        IF (month < 10) THEN
+                write(6,fmt='(I1,I1)') 0,month 
+        ELSE 
+                write(6,fmt='(I2)') month
+        END IF  
+        IF (day < 10) THEN
+                write(6,fmt='(I1,I1)') 0,day
+        ELSE
+                write(6,fmt='(I2)') day
+        END IF
+        IF (hour < 10) THEN
+                write(6,fmt='(I1,I1)') 0,hour
+        ELSE
+                write(6,fmt='(I2)') hour
+        END IF
+        write(6,fmt='(A1)') 'y'
+IF (hour+inc_hour >= 24) day=day+INT((hour+inc_hour)/24)
+hour=MOD(hour+inc_hour,24)
+IF (day > mday(month)) THEN
+        day=day-mday(month)
+        month=month+1
+END IF        
+IF (month > MONTHS_PER_YEAR) THEN
+        my=my+1
+        month=1
+END IF        
+END DO
+close(6)
+
+END
+
+
+!--------------------------------------------------
+!--------------------------------------------------
+
+SUBROUTINE wrf_day(gcm_day,wrf_month,day) 
+
+IMPLICIT NONE
+
+INTEGER, INTENT(INOUT) :: gcm_day
+INTEGER, INTENT(OUT) :: wrf_month,day
+
+INTEGER :: init,i
+INTEGER, PARAMETER :: MONTHS_PER_YEAR = 12
+INTEGER, PARAMETER :: mday(MONTHS_PER_YEAR)   &
+           = (/61,66,66,65,60,54,50,46,47,47,51,56/)
+
+!
+! Find WRF month and day
+!
+
+IF (gcm_day >= 669) THEN    !! gcm_day commence au jour 0
+        PRINT *,'out of bounds ! martian year is 669 sols !'
+        gcm_day=MOD(gcm_day,669)
+        !STOP
+ENDIF
+
+
+
+init=gcm_day+1    !!+1 sinon on decale tout
+DO i=1,MONTHS_PER_YEAR
+        wrf_month=i
+        init=init-mday(i)
+        IF (init <= 0) EXIT
+END DO
+
+PRINT *,'corresponding WRF month is ',wrf_month
+day=init+mday(wrf_month)
+PRINT *,'corresponding WRF day is ',day
+PRINT *,'*****************'
+
+END
Index: trunk/MESOSCALE/LMD_MM_MARS/SRC/PREP_MARS/Venus/readmeteo.F90
===================================================================
--- trunk/MESOSCALE/LMD_MM_MARS/SRC/PREP_MARS/Venus/readmeteo.F90	(revision 1724)
+++ trunk/MESOSCALE/LMD_MM_MARS/SRC/PREP_MARS/Venus/readmeteo.F90	(revision 1724)
@@ -0,0 +1,1760 @@
+program readmeteo
+
+implicit none
+include "netcdf.inc"
+
+!------------------------------------------------------------------------!
+! Readmeteo prepares an initial state for the WPS pre-processor of WRF   !
+!                                                                        !
+! Input is a diagfi.nc NETCDF file from a LMD/GCM simulation             !
+!                                                                        !
+! Outputs are WRFSI intermediate format files ready for metgrid.exe      !
+!       http://www.mmm.ucar.edu/wrf/OnLineTutorial/WPS/IM_si.htm         !
+!                                                                        !
+! **** Please create a WPSFEED folder (or a symbolic link) ****          !       
+!                                                                        !
+! A. Spiga - 16/04/2007                                                  !
+!	     22/05/2007 : need to run zrecast as a preliminary           !
+!            07/06/2007 : external parameter file 'readmeteo.def         !
+!	     30/07/2007 : manage additional variables (tsoil, emiss,...) !	
+!            19/10/2007 : no need to run zrecast at all (eta levels)     !   
+!		12/2007 : include co2ice and emissivity			 ! 
+!               02/2008 : include water vapor and ice                    !
+!               01/2010 : possible use of diagsoil for new physics       ! 
+!               02/2011 : add dust tracers, correct surface              !
+!									 !
+! spiga@lmd.jussieu.fr							 !	
+!------------------------------------------------------------------------!
+
+
+
+!***************************************************************************
+!***************************************************************************
+REAL, PARAMETER :: emiss_prescribed=0.95
+REAL, PARAMETER :: co2ice_prescribed=0.
+CHARACTER (LEN=3), PARAMETER :: ident='LMD'
+
+
+
+!***************************************************************************
+!***************************************************************************
+
+REAL :: ptop
+REAL, PARAMETER :: grav=3.72
+LOGICAL, PARAMETER :: blank=.false.
+
+
+
+!! Variables to be written in the output file
+!! *** NB: conformity with metgrid/src/read_met_module.F90
+CHARACTER (LEN=33) :: output
+INTEGER :: IFV
+CHARACTER (LEN=24) :: HDATE
+REAL :: XFCST
+CHARACTER (LEN=32) :: SOURCE
+CHARACTER (LEN=9) :: FIELD
+CHARACTER (LEN=25) :: UNITS
+CHARACTER (LEN=46) :: DESC
+REAL :: XLVL
+INTEGER :: NX,NY,IPROJ
+CHARACTER (LEN=8) :: STARTLOC
+REAL :: STARTLAT,STARTLON,DELTALAT,DELTALON
+REAL, POINTER, DIMENSION(:,:) :: SLAB
+
+!! Variables related to NETCDF format
+integer :: nid,nid2,nid3,nvarid,ierr,ierr2
+integer :: timedim,londim,latdim,altdim,altdim2
+integer :: rlatvdim,rlonudim
+integer :: timelen,lonlen,latlen,altlen,altlen2
+integer :: rlatvlen,rlonulen
+integer :: soillen,soildim
+integer :: nphys
+integer, dimension(4) :: corner,edges
+
+!! Intermediate data arrays
+integer :: k,l,m,n,p
+real, dimension(:), allocatable :: lat,lon,time,alt,aps,bps,levels,vertdsoil
+real, dimension(:,:), allocatable :: vide,ones,ghtsfile
+real, dimension(:,:), allocatable :: interm
+real, dimension(:,:,:), allocatable :: gwparam
+real, dimension(:,:,:), allocatable :: psfile,tsfile
+real, dimension(:,:,:), allocatable :: emissfile,co2icefile
+real, dimension(:,:,:), allocatable :: tnsfile,unsfile,vnsfile
+real, dimension(:,:,:,:), allocatable :: tfile,ufile,vfile,rfile,hfile
+real, dimension(:,:,:,:), allocatable :: eta_gcm
+!real, dimension(:,:,:,:), allocatable :: tfileorig,ufileorig,vfileorig
+real, dimension(:,:,:,:), allocatable :: tsoilfile, dsoilfile, isoilfile
+real, dimension(:,:,:,:), allocatable :: waterfile, watericefile
+real, dimension(:,:,:), allocatable :: swatericefile!, swaterfile
+real, dimension(:,:,:,:), allocatable :: dustfile,dustnfile
+real, dimension(:,:,:,:), allocatable :: co2file
+real, dimension(:,:,:,:), allocatable :: ccnfile,ccnnfile
+
+!! Reading the parameter file 
+integer :: tmp,increment,FILES
+integer :: tmp2,tmp3,tmp4
+character*1 :: answer
+character*4 :: str
+character*2 :: str2, str3, str4
+integer, dimension(:), allocatable :: time_out
+character*13, dimension(:), allocatable :: date_out
+character*19, dimension(:), allocatable :: date_out2
+
+#ifdef PHOTOCHEM
+real, dimension(:,:,:,:,:), allocatable :: chemtrac
+integer :: nchemtrac,i
+CHARACTER*20,DIMENSION(:),ALLOCATABLE :: wtnom
+#endif
+
+
+!***************************************************************************
+!***************************************************************************
+
+
+!!---------------------
+!! Open the datafile
+!!---------------------
+ierr=NF_OPEN ("input_diagfi.nc",NF_NOWRITE,nid)
+IF (ierr.NE.NF_NOERR) THEN
+   write(*,*)'**** Please create a symbolic link called input_diagfi.nc'
+   CALL ABORT
+ENDIF
+
+
+!!--------------------------
+!! Ask for data references
+!!--------------------------
+!write(*,*) "Create n files. What is n ?"
+read(*,*) FILES
+allocate(time_out(FILES))
+allocate(date_out(FILES))
+allocate(date_out2(FILES))
+
+!write(*,*) ""
+!write(*,*) "INPUT: Diagfi time"
+!write(*,*) "list of n subscripts, separated by <Return>s"
+increment=1
+do while (increment.ne.FILES+1)
+    read(*,*) tmp
+    time_out(increment)=tmp
+    increment=increment+1
+enddo
+
+!write(*,*) ""
+!write(*,*) "OUTPUT: WRF time"
+!write(*,*) "fill 4 lines indicating"
+!write(*,*) "-year (4 digits)"
+!write(*,*) "-month (2 digits)" 
+!write(*,*) "-day (2 digits)"
+!write(*,*) "-hour (2 digits)"
+increment=1
+do while (increment.ne.FILES+1)
+    read(*,*) str
+    read(*,*) str2
+    read(*,*) str3
+    read(*,*) str4
+    date_out(increment)=str//'-'//str2//'-'//str3//'_'//str4
+    date_out2(increment)=str//'-'//str2//'-'//str3//'_'//str4//':00:00'
+    !print *,date_out(increment)
+    !write(*,*) "ok? (y/n)"
+    read(*,*) answer
+    if (answer.eq.'n') then
+        !write(*,*) "please write again"
+    else 
+        !write(*,*) "next one, please"    
+        increment=increment+1
+    endif
+enddo
+
+
+!!-------------------
+!! Get array sizes
+!!-------------------
+SELECT CASE(ident)
+CASE('LMD')
+ierr=NF_INQ_DIMID(nid,"Time",timedim)
+CASE('OXF')
+ierr=NF_INQ_DIMID(nid,"time",timedim)
+END SELECT
+ierr=NF_INQ_DIMLEN(nid,timedim,timelen)
+  write(*,*) "timelen: ",timelen
+
+SELECT CASE(ident)
+CASE('LMD')
+ierr=NF_INQ_DIMID(nid,"latitude",latdim)
+CASE('OXF')
+ierr=NF_INQ_DIMID(nid,"lat",latdim)
+END SELECT
+ierr=NF_INQ_DIMLEN(nid,latdim,latlen)
+  write(*,*) "latlen: ",latlen
+
+SELECT CASE(ident)
+CASE('LMD')
+ierr=NF_INQ_DIMID(nid,"longitude",londim)
+CASE('OXF')
+ierr=NF_INQ_DIMID(nid,"lon",londim)
+END SELECT
+ierr=NF_INQ_DIMLEN(nid,londim,lonlen)
+  write(*,*) "lonlen: ",lonlen
+
+SELECT CASE(ident)
+CASE('LMD')
+ierr=NF_INQ_DIMID(nid,"altitude",altdim)
+CASE('OXF')
+ierr=NF_INQ_DIMID(nid,"sigma",altdim)
+END SELECT
+ierr=NF_INQ_DIMLEN(nid,altdim,altlen)
+  write(*,*) "altlen: ",altlen
+
+
+
+!!-------------------------
+!! Allocate local arrays
+!!-------------------------
+allocate(eta_gcm(lonlen,latlen,altlen,timelen))
+allocate(tfile(lonlen,latlen,altlen,timelen))
+allocate(tsoilfile(lonlen,latlen,altlen,timelen))
+allocate(dsoilfile(lonlen,latlen,altlen,timelen))
+allocate(isoilfile(lonlen,latlen,altlen,timelen))
+allocate(vertdsoil(altlen))
+!allocate(tfileorig(lonlen,latlen,altlen,timelen))
+allocate(ufile(lonlen,latlen,altlen,timelen))
+!allocate(ufileorig(lonlen,latlen,altlen,timelen))
+allocate(vfile(lonlen,latlen,altlen,timelen))
+!allocate(vfileorig(lonlen,latlen,altlen,timelen))
+allocate(rfile(lonlen,latlen,altlen,timelen))
+allocate(hfile(lonlen,latlen,altlen,timelen))  
+allocate(waterfile(lonlen,latlen,altlen,timelen))
+allocate(watericefile(lonlen,latlen,altlen,timelen))
+!allocate(swaterfile(lonlen,latlen,timelen))
+allocate(swatericefile(lonlen,latlen,timelen))
+allocate(dustfile(lonlen,latlen,altlen,timelen))
+allocate(dustnfile(lonlen,latlen,altlen,timelen))
+allocate(co2file(lonlen,latlen,altlen,timelen))
+allocate(ccnfile(lonlen,latlen,altlen,timelen))
+allocate(ccnnfile(lonlen,latlen,altlen,timelen))
+allocate(psfile(lonlen,latlen,timelen)) 
+allocate(tsfile(lonlen,latlen,timelen))
+allocate(tnsfile(lonlen,latlen,timelen))
+allocate(unsfile(lonlen,latlen,timelen))
+allocate(vnsfile(lonlen,latlen,timelen))
+allocate(emissfile(lonlen,latlen,timelen))
+allocate(co2icefile(lonlen,latlen,timelen))
+allocate(interm(lonlen,latlen))
+allocate(gwparam(lonlen,latlen,5))
+allocate(ghtsfile(lonlen,latlen))    !! no scan axis
+allocate(vide(lonlen,latlen))
+allocate(ones(lonlen,latlen))
+allocate(lat(latlen), lon(lonlen), alt(altlen), time(timelen))
+allocate(aps(altlen),bps(altlen),levels(altlen))
+#ifdef PHOTOCHEM
+nchemtrac = 14
+allocate(wtnom(nchemtrac))
+wtnom(1)  = "c_co2"
+wtnom(2)  = "c_co"
+wtnom(3)  = "c_o"
+wtnom(4)  = "c_o1d"
+wtnom(5)  = "c_o2"
+wtnom(6)  = "c_o3"
+wtnom(7)  = "c_h"
+wtnom(8)  = "c_h2"
+wtnom(9)  = "c_oh"
+wtnom(10) = "c_ho2"
+wtnom(11) = "c_h2o2"
+wtnom(12) = "c_ch4"
+wtnom(13) = "c_n2"
+wtnom(14) = "c_ar"
+allocate(chemtrac(lonlen,latlen,altlen,timelen,nchemtrac))
+chemtrac(:,:,:,:,:)=0
+#endif
+
+tfile(:,:,:,:)=0
+tsoilfile(:,:,:,:)=0 
+isoilfile(:,:,:,:)=0 
+dsoilfile(:,:,:,:)=0 
+vertdsoil(:)=0.
+!tfileorig(:,:,:,:)=0
+!ufileorig(:,:,:,:)=0
+!vfileorig(:,:,:,:)=0
+ufile(:,:,:,:)=0 
+vfile(:,:,:,:)=0 
+rfile(:,:,:,:)=0 
+hfile(:,:,:,:)=0
+waterfile(:,:,:,:)=0
+watericefile(:,:,:,:)=0
+!swaterfile(:,:,:)=0
+swatericefile(:,:,:)=0
+dustfile(:,:,:,:)=0
+dustnfile(:,:,:,:)=0
+co2file(:,:,:,:)=0
+ccnfile(:,:,:,:)=0
+ccnnfile(:,:,:,:)=0
+psfile(:,:,:)=0 
+tsfile(:,:,:)=0
+emissfile(:,:,:)=0
+co2icefile(:,:,:)=0
+tnsfile(:,:,:)=0
+unsfile(:,:,:)=0
+vnsfile(:,:,:)=0
+interm(:,:)=0
+gwparam(:,:,:)=0
+ghtsfile(:,:)=0
+vide(:,:)=0
+ones(:,:)=0
+
+
+!!-------------------
+!! Read dimensions
+!!-------------------
+
+print *,'>>> Read dimensions !'
+
+print *,'Time'
+SELECT CASE(ident)
+CASE('LMD')
+   ierr = NF_INQ_VARID (nid, "Time",nvarid)
+CASE('OXF')
+   ierr = NF_INQ_VARID (nid, "time",nvarid)
+END SELECT
+   IF (ierr .NE. NF_NOERR) THEN
+      PRINT *, "Error: Readmeteo <Time> not found"
+      stop
+   ENDIF
+#ifdef NC_DOUBLE
+   ierr = NF_GET_VAR_DOUBLE(nid, nvarid, time)
+#else
+   ierr = NF_GET_VAR_REAL(nid, nvarid, time)
+#endif
+   print *,time(1),' ... to ... ',time(timelen)
+
+print *,'Latitude'
+SELECT CASE(ident)
+CASE('LMD')
+   ierr = NF_INQ_VARID (nid, "latitude",nvarid)
+CASE('OXF')
+   ierr = NF_INQ_VARID (nid, "lat",nvarid)
+END SELECT
+   IF (ierr .NE. NF_NOERR) THEN
+      PRINT *, "Error: Readmeteo <latitude> not found"
+      stop
+   ENDIF
+#ifdef NC_DOUBLE
+   ierr = NF_GET_VAR_DOUBLE(nid, nvarid, lat)
+#else
+   ierr = NF_GET_VAR_REAL(nid, nvarid, lat)
+#endif
+   print *,lat(1),' ... to ... ',lat(latlen),' ... step: ',lat(latlen)-lat(latlen-1)
+
+print *,'Longitude'
+SELECT CASE(ident)
+CASE('LMD')
+   ierr = NF_INQ_VARID (nid, "longitude",nvarid)
+CASE('OXF')
+   ierr = NF_INQ_VARID (nid, "lon",nvarid)
+END SELECT
+   IF (ierr .NE. NF_NOERR) THEN
+      PRINT *, "Error: Readmeteo <longitude> not found"
+      stop
+   ENDIF
+#ifdef NC_DOUBLE
+   ierr = NF_GET_VAR_DOUBLE(nid, nvarid, lon)
+#else
+   ierr = NF_GET_VAR_REAL(nid, nvarid, lon)
+#endif
+   print *,lon(1),' ... to ... ',lon(lonlen),' ... step: ',lon(lonlen)-lon(lonlen-1)
+
+SELECT CASE(ident)
+CASE('LMD')
+print *, 'Hybrid coordinates'
+   ierr = NF_INQ_VARID (nid, "aps", nvarid)
+   IF (ierr .NE. NF_NOERR) THEN
+      PRINT *, "Error: Readmeteo <aps> not found"
+      stop
+   ENDIF
+#ifdef NC_DOUBLE
+   ierr = NF_GET_VAR_DOUBLE(nid, nvarid, aps)
+#else
+   ierr = NF_GET_VAR_REAL(nid, nvarid, aps)
+#endif
+   ierr = NF_INQ_VARID (nid, "bps", nvarid)
+   IF (ierr .NE. NF_NOERR) THEN
+      PRINT *, "Error: Readmeteo <bps> not found"
+      stop
+   ENDIF
+#ifdef NC_DOUBLE
+   ierr = NF_GET_VAR_DOUBLE(nid, nvarid, bps)
+#else
+   ierr = NF_GET_VAR_REAL(nid, nvarid, bps)
+#endif
+   print *,aps(1),' ... to ... ',aps(altlen)
+   print *,bps(1),' ... to ... ',bps(altlen)
+CASE('OXF')
+   ierr = NF_INQ_VARID (nid, "sigma", nvarid)
+   IF (ierr .NE. NF_NOERR) THEN
+      PRINT *, "Error: Readmeteo <sigma> not found"
+      stop
+   ENDIF
+#ifdef NC_DOUBLE
+   ierr = NF_GET_VAR_DOUBLE(nid, nvarid, bps)
+#else
+   ierr = NF_GET_VAR_REAL(nid, nvarid, bps)
+#endif
+   print *,bps(1),' ... to ... ',bps(altlen)
+END SELECT
+
+
+!!-------------------------------------------
+!! Reading 2D and 3D meteorological fields
+!!-------------------------------------------
+
+IF (blank .EQV. .false.) THEN
+
+print *,'>>> Read 2D optional fields !'
+
+print *,'Emissivity'
+   ierr = NF_INQ_VARID (nid,"emis",nvarid)
+IF (ierr .NE. NF_NOERR) THEN
+        PRINT *, '...warning: not found in diagfi !'
+        PRINT *, '...will be filled with a prescribed value', emiss_prescribed
+  emissfile(:,:,:)=emiss_prescribed
+ELSE
+#ifdef NC_DOUBLE
+  ierr = NF_GET_VAR_DOUBLE(nid, nvarid, emissfile)
+#else
+  ierr = NF_GET_VAR_REAL(nid, nvarid, emissfile)
+#endif
+ENDIF   
+
+print *,'CO2 ice'
+   ierr = NF_INQ_VARID (nid,"co2ice",nvarid)
+IF (ierr .NE. NF_NOERR) THEN
+  PRINT *, '...warning: not found in diagfi !'
+  PRINT *, '...will be filled with a prescribed value', co2ice_prescribed
+  co2icefile(:,:,:)=co2ice_prescribed
+ELSE
+#ifdef NC_DOUBLE
+  ierr = NF_GET_VAR_DOUBLE(nid, nvarid, co2icefile)
+#else
+  ierr = NF_GET_VAR_REAL(nid, nvarid, co2icefile)
+#endif
+ENDIF
+
+print *,'>>> Read 2D surface fields !'
+
+print *,'Surface Pressure'
+   ierr = NF_INQ_VARID (nid,"ps",nvarid)
+   IF (ierr .NE. NF_NOERR) THEN
+      PRINT *, "Error: Readmeteo <ps> not found"
+      stop
+   ENDIF
+#ifdef NC_DOUBLE
+   ierr = NF_GET_VAR_DOUBLE(nid, nvarid, psfile)
+#else
+   ierr = NF_GET_VAR_REAL(nid, nvarid, psfile)
+#endif
+
+print *,'Ground Temperature'
+   ierr = NF_INQ_VARID (nid,"tsurf",nvarid)
+   IF (ierr .NE. NF_NOERR) THEN
+      PRINT *, "Error: Readmeteo <tsurf> not found"
+      stop
+   ENDIF
+#ifdef NC_DOUBLE
+   ierr = NF_GET_VAR_DOUBLE(nid, nvarid, tsfile)
+#else
+   ierr = NF_GET_VAR_REAL(nid, nvarid, tsfile)
+#endif
+
+
+!!!"atmospheric" surface temperature is taken
+!!!from original diagfi.nc first level
+!!!... level is ~3-5 meters
+!print *,'Near-Surface Temperature'
+!   ierr = NF_INQ_VARID (nid,"temp",nvarid)
+!   IF (ierr .NE. NF_NOERR) THEN
+!      ierr = NF_INQ_VARID (nid,"t",nvarid)
+!	IF (ierr .NE. NF_NOERR) THEN
+!           PRINT *, "Error: Readmeteo <temp> not found"
+!           stop
+!	ENDIF
+!   ENDIF
+!#ifdef NC_DOUBLE
+!   ierr = NF_GET_VAR_DOUBLE(nid, nvarid, tfileorig)
+!#else
+!   ierr = NF_GET_VAR_REAL(nid, nvarid, tfileorig)
+!#endif
+!   tnsfile=tfileorig(:,:,1,:)
+
+!!!"atmospheric" surface u is taken
+!!!from original diagfi.nc first level
+!!!... level is ~3-5 meters
+!print *,'Near-Surface Zonal Wind'
+!   ierr = NF_INQ_VARID (nid,"u",nvarid)
+!   IF (ierr .NE. NF_NOERR) THEN
+!     PRINT *, "Error: Readmeteo <u> not found"
+!     stop
+!   ENDIF
+!#ifdef NC_DOUBLE
+!   ierr = NF_GET_VAR_DOUBLE(nid, nvarid, ufileorig)
+!#else
+!   ierr = NF_GET_VAR_REAL(nid, nvarid, ufileorig)
+!#endif
+!   unsfile=ufileorig(:,:,1,:)
+
+!!!"atmospheric" surface v is taken
+!!!from original diagfi.nc first level
+!!!... level is ~3-5 meters
+!print *,'Near-Surface Meridional Wind'
+!   ierr = NF_INQ_VARID (nid,"v",nvarid)
+!   IF (ierr .NE. NF_NOERR) THEN
+!     PRINT *, "Error: Readmeteo <v> not found"
+!     stop
+!   ENDIF
+!#ifdef NC_DOUBLE
+!   ierr = NF_GET_VAR_DOUBLE(nid, nvarid, vfileorig)
+!#else
+!   ierr = NF_GET_VAR_REAL(nid, nvarid, vfileorig)
+!#endif
+!   vnsfile=vfileorig(:,:,1,:)
+
+SELECT CASE(ident)
+CASE('LMD')
+   print *,'Geopotential height at the ground'
+   ierr = NF_INQ_VARID (nid,"phisinit",nvarid)
+   IF (ierr .NE. NF_NOERR) THEN
+      PRINT *, "Error: Readmeteo <phisinit> not found"
+      stop
+   ENDIF
+#ifdef NC_DOUBLE
+   ierr = NF_GET_VAR_DOUBLE(nid, nvarid, ghtsfile)
+#else
+   ierr = NF_GET_VAR_REAL(nid, nvarid, ghtsfile)
+#endif
+!**** from geopotential to geopotential height
+ghtsfile=ghtsfile/grav
+!****
+CASE('OXF')
+!
+! geopotential height ~ altimetry
+!
+print *,'Geopotential height at the ground from file mountain_new.nc'
+ierr=NF_OPEN("mountain_new.nc",NF_NOWRITE,nid3)
+    if (ierr.ne.NF_NOERR) then
+      write(*,*) "Error: Could not open that file either"
+      stop "Might as well stop here"
+    endif
+ierr=NF_INQ_VARID(nid3,"orography",nvarid)
+ierr=NF_GET_VAR_REAL(nid3,nvarid,ghtsfile)
+if (ierr.ne.NF_NOERR) then
+    stop "Error: Failed reading phisinit"
+endif
+ierr=NF_CLOSE(nid3)
+END SELECT
+
+
+print *,'>>> Read 3D meteorological fields ! - This may take some time ...'
+
+print *,'Temperature'
+   ierr = NF_INQ_VARID (nid,"temp",nvarid)
+   IF (ierr .NE. NF_NOERR) THEN
+      ierr = NF_INQ_VARID (nid,"t",nvarid)
+        IF (ierr .NE. NF_NOERR) THEN
+          PRINT *, "Error: Readmeteo <t> not found"
+          stop
+        ENDIF
+   ENDIF
+#ifdef NC_DOUBLE
+   ierr = NF_GET_VAR_DOUBLE(nid, nvarid, tfile)
+#else
+   ierr = NF_GET_VAR_REAL(nid, nvarid, tfile)
+#endif
+tnsfile=tfile(:,:,1,:)
+
+print *,'Zonal wind'   
+   ierr = NF_INQ_VARID (nid,"u",nvarid)
+   IF (ierr .NE. NF_NOERR) THEN
+      PRINT *, "Error: Readmeteo <u> not found"
+      stop
+   ENDIF
+#ifdef NC_DOUBLE
+   ierr = NF_GET_VAR_DOUBLE(nid, nvarid, ufile)
+#else
+   ierr = NF_GET_VAR_REAL(nid, nvarid, ufile)
+#endif
+unsfile=ufile(:,:,1,:)
+
+print *,'Meridional wind'
+   ierr = NF_INQ_VARID (nid,"v",nvarid)
+   IF (ierr .NE. NF_NOERR) THEN
+      PRINT *, "Error: Readmeteo <v> not found"
+      stop
+   ENDIF
+#ifdef NC_DOUBLE
+   ierr = NF_GET_VAR_DOUBLE(nid, nvarid, vfile)
+#else
+   ierr = NF_GET_VAR_REAL(nid, nvarid, vfile)
+#endif
+vnsfile=ufile(:,:,1,:)
+
+
+!!------------------------
+!! special water stuff
+!!------------------------
+    print *,'Water vapor'
+    ierr=NF_INQ_VARID(nid,"q02",nvarid)
+    if (ierr.ne.NF_NOERR) then
+      write(*,*) "...No q02 - Water vapor set to 0"
+      waterfile(:,:,:,:)=0.  
+    else
+      ierr=NF_GET_VAR_REAL(nid,nvarid,waterfile)
+    endif   
+
+    print *,'Water ice'
+    ierr=NF_INQ_VARID(nid,"q01",nvarid)
+    if (ierr.ne.NF_NOERR) then
+      write(*,*) "...No q01 - Water ice set to 0"  
+      watericefile(:,:,:,:)=0.
+    else
+      ierr=NF_GET_VAR_REAL(nid,nvarid,watericefile)
+    endif
+!    print *,'Surface Water vapor'
+!    ierr=NF_INQ_VARID(nid,"qsurf02",nvarid)
+!    if (ierr.ne.NF_NOERR) then
+!      write(*,*) "...No qsurf02 - surface Water vapor set to 0"
+!      swaterfile(:,:,:)=0.
+!    endif
+!    ierr=NF_GET_VAR_REAL(nid,nvarid,swaterfile)
+
+    print *,'Surface Water ice'
+!!!!!! ATTENTION ATTENTION 
+!!!!!! water ice a la surface est qsurf(ig,nqmx)
+    ierr=NF_INQ_VARID(nid,"qsurf02",nvarid)
+    if (ierr.ne.NF_NOERR) then
+      write(*,*) "...No qsurf02 - surface Water ice set to 0"
+      swatericefile(:,:,:)=0.
+    else
+      ierr=NF_GET_VAR_REAL(nid,nvarid,swatericefile)
+    endif
+!!------------------------
+!! special water stuff
+!!------------------------
+
+    print *,'CO2 mass mixing ratio'
+    ierr=NF_INQ_VARID(nid,"co2",nvarid)
+    if (ierr.ne.NF_NOERR) then
+      write(*,*) "...No co2 - co2 mixing ratio set to 0.95"
+      co2file(:,:,:,:)=0.95
+    else
+      ierr=NF_GET_VAR_REAL(nid,nvarid,co2file)
+    endif
+
+!!------------------------
+!! special dust stuff
+!!------------------------
+    print *,'Dust mass'
+    ierr=NF_INQ_VARID(nid,"dustq",nvarid)
+    if (ierr.ne.NF_NOERR) then
+      write(*,*) "...No dustq - Dust mass set to 0"
+      dustfile(:,:,:,:)=0.
+    else
+      ierr=NF_GET_VAR_REAL(nid,nvarid,dustfile)
+    endif
+
+    print *,'Dust number'
+    ierr=NF_INQ_VARID(nid,"dustN",nvarid)
+    if (ierr.ne.NF_NOERR) then
+      write(*,*) "...No dustN - Dust number set to 0"
+      dustnfile(:,:,:,:)=0.
+    else
+      ierr=NF_GET_VAR_REAL(nid,nvarid,dustnfile)
+    endif
+
+    print *,'CCN mass'
+    ierr=NF_INQ_VARID(nid,"ccn",nvarid)
+    if (ierr.ne.NF_NOERR) then
+      write(*,*) "...No ccn - CCN mass set to 0"
+      ccnfile(:,:,:,:)=0.
+    else
+      ierr=NF_GET_VAR_REAL(nid,nvarid,ccnfile)
+    endif
+
+    print *,'CCN number'
+    ierr=NF_INQ_VARID(nid,"ccnN",nvarid)
+    if (ierr.ne.NF_NOERR) then
+      write(*,*) "...No ccnN - CCN number set to 0"
+      ccnnfile(:,:,:,:)=0.
+    else
+      ierr=NF_GET_VAR_REAL(nid,nvarid,ccnnfile)
+    endif
+!!------------------------
+!! special dust stuff
+!!------------------------
+
+!SELECT CASE(ident)
+!CASE('LMD')
+
+    print *,'Soil temperatures'
+    ierr=NF_INQ_VARID(nid,"tsoil",nvarid)
+    if (ierr.ne.NF_NOERR) then
+        write(*,*) "...No tsoil - Soil temperatures set isothermal with surface temperature"
+        DO l=1,altlen
+                tsoilfile(:,:,l,:)=tsfile(:,:,:)
+        ENDDO
+    else
+        ierr=NF_GET_VAR_REAL(nid,nvarid,tsoilfile)
+    endif
+
+!!!!!!!!
+!!!!!!!! new physics (but still compatible with old physics)
+    print *,'Soil depths'
+    ierr=NF_INQ_VARID(nid,"soildepth",nvarid)
+    if (ierr.ne.NF_NOERR) then
+        write(*,*) "...No soildepth - Set to -999"  !!! see soil_settings in LMD physics
+        DO l=1,altlen
+                vertdsoil(l)=-999.
+        ENDDO
+    else
+        ierr=NF_GET_VAR_REAL(nid,nvarid,vertdsoil)
+    endif
+    print *, 'wait a minute' !! AS: I know this could be better
+    DO m=1,lonlen
+     DO n=1,latlen
+      DO p=1,timelen
+       dsoilfile(m,n,:,p) = vertdsoil(:) 
+      ENDDO
+     ENDDO
+    ENDDO 
+    DEALLOCATE(vertdsoil)
+
+    print *,'Soil thermal inertia'
+    ierr=NF_INQ_VARID(nid,"inertiedat",nvarid)
+    if (ierr.ne.NF_NOERR) then
+        write(*,*) "...No soil therm. inert. - Set to -999"
+        DO l=1,altlen
+                isoilfile(:,:,l,:)=-999.
+        ENDDO
+    else
+        ierr=NF_GET_VAR_REAL(nid,nvarid,isoilfile)
+    endif
+!!!!!!!!
+!!!!!!!! new physics
+
+
+!!!!!!!!!!!!!!!!!!!!!!!!NEW PHYSICS + PHOTOCHEM
+!!!!!!!!!!!!!!!!!!!!!!!!NEW PHYSICS + PHOTOCHEM
+#ifdef PHOTOCHEM
+    print *,'photochem'
+    DO i=1,nchemtrac
+     print *,wtnom(i)
+     ierr=NF_INQ_VARID(nid,wtnom(i),nvarid)
+     if (ierr.ne.NF_NOERR) then
+       write(*,*) "...No ",wtnom(i), " - set to 0"
+       chemtrac(:,:,:,:,i)=0.
+     else
+       ierr=NF_GET_VAR_REAL(nid,nvarid,chemtrac(:,:,:,:,i))
+     endif
+    ENDDO
+#endif
+!!!!!!!!!!!!!!!!!!!!!!!!NEW PHYSICS + PHOTOCHEM
+!!!!!!!!!!!!!!!!!!!!!!!!NEW PHYSICS + PHOTOCHEM
+
+
+
+!END SELECT
+
+ierr=NF_CLOSE(nid)
+
+!!!!lott stuff
+!print *,'get lott'
+!ierr=NF_OPEN("init_lott.nc",NF_NOWRITE,nid3)
+!ierr=NF_INQ_VARID(nid3,"ZMEA",nvarid)
+!ierr=NF_GET_VAR_REAL(nid3,nvarid,interm)
+!gwparam(:,:,1)=interm(:,:)
+!ierr=NF_INQ_VARID(nid3,"ZSTD",nvarid)
+!ierr=NF_GET_VAR_REAL(nid3,nvarid,interm)
+!gwparam(:,:,2)=interm(:,:)
+!ierr=NF_INQ_VARID(nid3,"ZSIG",nvarid)
+!ierr=NF_GET_VAR_REAL(nid3,nvarid,interm)
+!gwparam(:,:,3)=interm(:,:)
+!ierr=NF_INQ_VARID(nid3,"ZGAM",nvarid)
+!ierr=NF_GET_VAR_REAL(nid3,nvarid,interm)
+!gwparam(:,:,4)=interm(:,:)
+!ierr=NF_INQ_VARID(nid3,"ZTHE",nvarid)
+!ierr=NF_GET_VAR_REAL(nid3,nvarid,interm)
+!gwparam(:,:,5)=interm(:,:)
+!ierr=NF_CLOSE(nid3)
+
+ENDIF
+
+!!-----------------------------
+!! Loop on the written files
+!! >>> what follows is pretty repetitive ... 
+!!        gotta do something (one more loop?)
+!!-----------------------------
+
+!!! Equivalent eta levels for WRF interpolation in initialize_real
+!print *,'Computing equivalent eta levels'
+!	
+!	!ptop will be passed through RH(surface)
+!	ptop=MINVAL(aps(altlen)+bps(altlen)*psfile(:,:,:))
+!	print *, 'ptop', ptop
+!
+!print *, 'sample: equivalent eta levels at i=1,j=1'
+!DO k = 1,altlen
+!        levels(k)=-k
+!        eta_gcm(:,:,k,:)=(aps(k)+bps(k)*psfile(:,:,:)-ptop)/(psfile(:,:,:)-ptop)
+!        print *, eta_gcm(1,1,k,1) 
+!END DO
+
+!!---better to pass pressure values 
+!!---the eta treatment is done in module_initialize_real
+DO k = 1,altlen
+        levels(k)=-k
+        !!dummy decreasing levels
+END DO
+
+
+
+
+!! Dummy surface level is XLVL=200100.
+
+
+DO l=1,FILES
+
+
+!!---------------------------------------------
+!! Write file in intermediate format for WPS
+!! 1. Surface data
+!!---------------------------------------------
+!!
+!! a mettre pour tous sinon
+!!     WRF_DEBUG: Warning DIM             4 , NAME num_metgrid_levels REDIFINED  by
+!!            var DUSTN            26           25  in wrf_io.F90 line         2349
+!!
+
+!
+! These variables remain the same in the "loop"
+!
+HDATE=date_out(l)
+IFV=4
+XFCST=0.
+SOURCE=ident
+NX=lonlen
+NY=latlen
+ALLOCATE(SLAB(NX,NY))
+IPROJ=0
+STARTLOC='SWCORNER'
+STARTLAT=lat(1) 
+STARTLON=lon(1)
+DELTALAT=lat(latlen)-lat(latlen-1)
+DELTALON=lon(lonlen)-lon(lonlen-1)
+!
+! Open the data destination file
+!
+output="./WPSFEED/"//ident//":"//date_out2(l)       
+open(UNIT=1,			&
+	FILE=output,		&
+	STATUS='REPLACE',	&
+	FORM='UNFORMATTED',	&
+	ACCESS='SEQUENTIAL')
+
+!------------------------!    
+! >>> Write a variable   !
+!    ... Copy&Paste part !
+!------------------------! 
+FIELD='T'
+UNITS='K'
+DESC='Atmospheric temperature'
+XLVL=200100.
+SLAB=tnsfile(:,:,time_out(l))
+	! And now put everything in the destination file
+	! ... Header
+        write(1) IFV
+        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
+        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON
+	! ... Data
+	write(1) SLAB
+!print *,'The field '//DESC//' was written to '//output
+
+!------------------------!    
+! >>> Write a variable   !
+!    ... Copy&Paste part !
+!------------------------! 
+FIELD='U'
+UNITS='m s{-1}'
+DESC='Zonal wind'
+XLVL=200100.
+SLAB=unsfile(:,:,time_out(l))
+        ! And now put everything in the destination file
+	! ... Header
+        write(1) IFV
+        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
+        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON 
+	! ... Data
+	write(1) SLAB
+!print *,'The field '//DESC//' was written to '//output
+
+!------------------------!    
+! >>> Write a variable   !
+!    ... Copy&Paste part !
+!------------------------! 
+FIELD='V'
+UNITS='m s{-1}'
+DESC='Meridional wind'
+XLVL=200100.
+SLAB=vnsfile(:,:,time_out(l))
+	! And now put everything in the destination file
+	! ... Header
+        write(1) IFV
+        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
+        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON 
+	! ... Data
+	write(1) SLAB
+!print *,'The field '//DESC//' was written to '//output
+
+!------------------------!    
+! >>> Write a variable   !
+!    ... Copy&Paste part !
+!------------------------! 
+FIELD='RH'
+UNITS=''
+DESC='Customized 2D static field'
+XLVL=200100.
+SLAB=vide(:,:)
+	! And now put everything in the destination file
+	! ... Header
+        write(1) IFV
+        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
+        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON
+	! ... Data
+	write(1) SLAB
+!print *,'The field '//DESC//' was written to '//output
+
+!------------------------!    
+! >>> Write a variable   !
+!    ... Copy&Paste part !
+!------------------------! 
+FIELD='SOILHGT'
+UNITS='m' 
+DESC='Terrain field of source analysis'  !Ground geopotential height
+XLVL=200100.
+SLAB=ghtsfile(:,:)
+	! And now put everything in the destination file
+	! ... Header
+        write(1) IFV
+        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
+        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON
+	! ... Data
+	write(1) SLAB
+!print *,'The field '//DESC//' was written to '//output
+
+!------------------------!    
+! >>> Write a variable   !
+!    ... Copy&Paste part !
+!------------------------! 
+FIELD='PSFC'
+UNITS='Pa'
+DESC='Surface Pressure'
+XLVL=200100.
+SLAB=psfile(:,:,time_out(l))
+	! And now put everything in the destination file
+	! ... Header
+        write(1) IFV
+        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
+        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON
+	! ... Data
+	write(1) SLAB
+!print *,'The field '//DESC//' was written to '//output
+
+!------------------------!    
+! >>> Write a variable   !
+!    ... Copy&Paste part !
+!------------------------! 
+FIELD='ST000010'
+UNITS=''
+DESC='Emissivity'
+XLVL=200100.
+SLAB=emissfile(:,:,time_out(l))
+	! And now put everything in the destination file
+	! ... Header
+        write(1) IFV
+        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
+        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON 
+	! ... Data
+	write(1) SLAB
+!print *,'The field '//DESC//' was written to '//output
+
+!------------------------!    
+! >>> Write a variable   !
+!    ... Copy&Paste part !
+!------------------------! 
+FIELD='ST010040'
+UNITS=''
+DESC='CO2 ice'
+XLVL=200100.
+SLAB=co2icefile(:,:,time_out(l))
+	! And now put everything in the destination file
+	! ... Header
+        write(1) IFV
+        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
+        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON
+	! ... Data
+	write(1) SLAB
+!print *,'The field '//DESC//' was written to '//output
+
+!------------------------!    
+! >>> Write a variable   !
+!    ... Copy&Paste part !
+!------------------------! 
+FIELD='ST040100'
+UNITS=''
+DESC='ZMEA'
+XLVL=200100.
+SLAB=gwparam(:,:,1)
+	! And now put everything in the destination file
+	! ... Header
+        write(1) IFV
+        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
+        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON  
+	! ... Data
+	write(1) SLAB
+!print *,'The field '//DESC//' was written to '//output
+
+!------------------------!    
+! >>> Write a variable   !
+!    ... Copy&Paste part !
+!------------------------! 
+FIELD='ST100200'
+UNITS=''
+DESC='ZSTD'
+XLVL=200100.
+SLAB=gwparam(:,:,2)
+	! And now put everything in the destination file
+	! ... Header
+        write(1) IFV
+        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
+        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON  
+	! ... Data
+	write(1) SLAB
+!print *,'The field '//DESC//' was written to '//output
+
+!------------------------!    
+! >>> Write a variable   !
+!    ... Copy&Paste part !
+!------------------------! 
+FIELD='LANDSEA'
+UNITS='0/1 Flag'
+DESC='Land/Sea flag'
+XLVL=200100.
+SLAB=ones(:,:)
+	! And now put everything in the destination file
+	! ... Header
+        write(1) IFV
+        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
+        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON  
+	! ... Data
+	write(1) SLAB
+!print *,'The field '//DESC//' was written to '//output
+
+!------------------------!    
+! >>> Write a variable   !
+!    ... Copy&Paste part !
+!------------------------! 
+FIELD='SKINTEMP'
+UNITS='K'
+DESC='Ground temperature'
+XLVL=200100.
+SLAB=tsfile(:,:,time_out(l))
+	! And now put everything in the destination file
+	! ... Header
+        write(1) IFV
+        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
+        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON
+	! ... Data
+	write(1) SLAB
+!print *,'The field '//DESC//' was written to '//output
+
+!------------------------!    
+! >>> Write a variable   !
+!    ... Copy&Paste part !
+!------------------------! 
+FIELD='SM000010'
+UNITS=''
+DESC='ZSIG'
+XLVL=200100.
+SLAB=gwparam(:,:,3)
+	! And now put everything in the destination file
+	! ... Header
+        write(1) IFV
+        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
+        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON
+	! ... Data
+	write(1) SLAB
+!print *,'The field '//DESC//' was written to '//output
+
+!------------------------!    
+! >>> Write a variable   !
+!    ... Copy&Paste part !
+!------------------------! 
+FIELD='SM010040'
+UNITS=''
+DESC='ZGAM'
+XLVL=200100.
+SLAB=gwparam(:,:,4)
+	! And now put everything in the destination file
+	! ... Header
+        write(1) IFV
+        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
+        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON
+	! ... Data
+	write(1) SLAB
+!print *,'The field '//DESC//' was written to '//output
+
+!------------------------!    
+! >>> Write a variable   !
+!    ... Copy&Paste part !
+!------------------------! 
+FIELD='SM040100'
+UNITS=''
+DESC='ZTHE'
+XLVL=200100.
+SLAB=gwparam(:,:,5)
+	! And now put everything in the destination file
+	! ... Header
+        write(1) IFV
+        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
+        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON
+	! ... Data
+	write(1) SLAB
+!print *,'The field '//DESC//' was written to '//output
+
+!------------------------!    
+! >>> Write a variable   !
+!    ... Copy&Paste part !
+!------------------------! 
+FIELD='SM100200'
+UNITS='kg/m2'
+DESC='Surf water ice'
+XLVL=200100.
+SLAB=swatericefile(:,:,time_out(l))
+	! And now put everything in the destination file
+	! ... Header
+        write(1) IFV
+        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
+        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON 
+	! ... Data
+	write(1) SLAB
+!print *,'The field '//DESC//' was written to '//output
+
+
+!------------------------!
+! >>> Write a variable   !
+!    ... Copy&Paste part !
+!------------------------!
+FIELD='HV'
+UNITS='kg/kg'
+DESC='Water vapor'
+XLVL=200100.
+SLAB=waterfile(:,:,1,time_out(l))
+        ! And now put everything in the destination file
+        ! ... Header
+        write(1) IFV
+        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
+        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON
+        ! ... Data
+        write(1) SLAB
+!print *,'The field '//DESC//' was written to '//output
+
+!------------------------!
+! >>> Write a variable   !
+!    ... Copy&Paste part !
+!------------------------!
+FIELD='HI'
+UNITS='kg/kg'
+DESC='Water ice'
+XLVL=200100.
+SLAB=watericefile(:,:,1,time_out(l))
+        ! And now put everything in the destination file
+        ! ... Header
+        write(1) IFV
+        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
+        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON
+        ! ... Data
+        write(1) SLAB
+!print *,'The field '//DESC//' was written to '//output
+
+!------------------------!
+! >>> Write a variable   !
+!    ... Copy&Paste part !
+!------------------------!
+FIELD='TSOIL'
+UNITS='K'
+DESC='Soil temperature'
+XLVL=200100.
+SLAB=tsoilfile(:,:,1,time_out(l))
+        ! And now put everything in the destination file
+        ! ... Header
+        write(1) IFV
+        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
+        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON
+        ! ... Data
+        write(1) SLAB
+!print *,'The field '//DESC//' was written to '//output
+
+!------------------------!
+! >>> Write a variable   !
+!    ... Copy&Paste part !
+!------------------------!
+FIELD='DSOIL'
+UNITS='m'
+DESC='Soil depths'
+XLVL=200100.
+SLAB=dsoilfile(:,:,1,time_out(l))
+        ! And now put everything in the destination file
+        ! ... Header
+        write(1) IFV
+        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
+        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON
+        ! ... Data
+        write(1) SLAB
+!print *,'The field '//DESC//' was written to '//output
+
+!------------------------!
+! >>> Write a variable   !
+!    ... Copy&Paste part !
+!------------------------!
+FIELD='ISOIL'
+UNITS='tiu'
+DESC='Soil thermal inertia'
+XLVL=200100.
+SLAB=isoilfile(:,:,1,time_out(l))
+        ! And now put everything in the destination file
+        ! ... Header
+        write(1) IFV
+        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
+        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON
+        ! ... Data
+        write(1) SLAB
+!print *,'The field '//DESC//' was written to '//output
+
+!------------------------!
+! >>> Write a variable   !
+!    ... Copy&Paste part !
+!------------------------!
+FIELD='CO2'
+UNITS='kg/kg'
+DESC='CO2 mixing ratio'
+XLVL=200100.
+SLAB=co2file(:,:,1,time_out(l))
+        ! And now put everything in the destination file
+        ! ... Header
+        write(1) IFV
+        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
+        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON
+        ! ... Data
+        write(1) SLAB
+!print *,'The field '//DESC//' was written to '//output
+
+!------------------------!
+! >>> Write a variable   !
+!    ... Copy&Paste part !
+!------------------------!
+FIELD='DUSTQ'
+UNITS='kg/kg'
+DESC='Dust mixing ratio'
+XLVL=200100.
+SLAB=dustfile(:,:,1,time_out(l))
+        ! And now put everything in the destination file
+        ! ... Header
+        write(1) IFV
+        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
+        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON
+        ! ... Data
+        write(1) SLAB
+!print *,'The field '//DESC//' was written to '//output
+
+!------------------------!
+! >>> Write a variable   !
+!    ... Copy&Paste part !
+!------------------------!
+FIELD='DUSTN'
+UNITS='part/kg' 
+DESC='Dust number density'
+XLVL=200100.
+SLAB=dustnfile(:,:,1,time_out(l))
+        ! And now put everything in the destination file
+        ! ... Header
+        write(1) IFV
+        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
+        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON
+        ! ... Data
+        write(1) SLAB
+!print *,'The field '//DESC//' was written to '//output
+
+!------------------------!
+! >>> Write a variable   !
+!    ... Copy&Paste part !
+!------------------------!
+FIELD='CCNQ'
+UNITS='kg/kg'
+DESC='CCN mixing ratio'
+XLVL=200100.
+SLAB=ccnfile(:,:,1,time_out(l))
+        ! And now put everything in the destination file
+        ! ... Header
+        write(1) IFV
+        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
+        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON
+        ! ... Data
+        write(1) SLAB
+!print *,'The field '//DESC//' was written to '//output
+
+!------------------------!
+! >>> Write a variable   !
+!    ... Copy&Paste part !
+!------------------------!
+FIELD='CCNN'
+UNITS='part/kg'
+DESC='CCN number density'
+XLVL=200100.
+SLAB=ccnnfile(:,:,1,time_out(l))
+        ! And now put everything in the destination file
+        ! ... Header
+        write(1) IFV
+        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
+        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON
+        ! ... Data
+        write(1) SLAB
+!print *,'The field '//DESC//' was written to '//output
+
+
+!------------------------!
+! >>> Write a variable   !
+!     PHOTOCHEMISTRY     !
+!------------------------!
+#ifdef PHOTOCHEM
+    DO i=1,nchemtrac
+       FIELD=wtnom(i)
+       UNITS='units'
+       DESC='desc'
+       XLVL=200100.
+       SLAB=chemtrac(:,:,1,time_out(l),i)
+       ! And now put everything in the destination file
+       ! ... Header
+       write(1) IFV
+       write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
+       write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON
+       ! ... Data
+       write(1) SLAB
+    ENDDO
+#endif
+
+!!----------------------------------------------------
+!! Write file in intermediate format for WPS
+!! 2. 3D meteorological data
+!! >>> same stuff, but handle vertical profile
+!! >>> !! XLVL must be decreasing (pressure levels) 
+!!----------------------------------------------------
+
+!------------------------!    
+! >>> Write a variable   !
+!    ... Copy&Paste part !
+!------------------------! 
+FIELD='T'
+UNITS='K'
+DESC='Atmospheric temperature'
+DO k = 1,altlen
+	XLVL=levels(k)
+	SLAB=tfile(:,:,k,time_out(l))
+		! And now put everything in the destination file
+		! ... Header
+        write(1) IFV
+        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
+        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON  
+		! ... Data
+		write(1) SLAB
+END DO
+!print *,'The field '//DESC//' was written to '//output
+
+!------------------------!    
+! >>> Write a variable   !
+!    ... Copy&Paste part !
+!------------------------! 
+FIELD='U'
+UNITS='m s{-1}'
+DESC='Zonal wind'
+DO k = 1,altlen
+        XLVL=levels(k)
+	SLAB=ufile(:,:,k,time_out(l))
+		! And now put everything in the destination file
+		! ... Header
+        write(1) IFV
+        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
+        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON  
+		! ... Data
+		write(1) SLAB
+END DO
+!print *,'The field '//DESC//' was written to '//output
+
+!------------------------!    
+! >>> Write a variable   !
+!    ... Copy&Paste part !
+!------------------------! 
+FIELD='V'
+UNITS='m s{-1}'
+DESC='Meridional wind'
+DO k = 1,altlen
+        XLVL=levels(k)
+	SLAB=vfile(:,:,k,time_out(l))
+		! And now put everything in the destination file
+		! ... Header
+        write(1) IFV
+        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
+        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON  
+		! ... Data
+		write(1) SLAB
+END DO
+!print *,'The field '//DESC//' was written to '//output
+
+!------------------------!    
+! >>> Write a variable   !
+!    ... Copy&Paste part !
+!------------------------! 
+FIELD='RH'
+UNITS=''
+DESC='Customized 2D static field'
+DESC='Eta-levels from the GCM'
+DESC='Pressure values from the GCM'
+DO k = 1,altlen
+        XLVL=levels(k)
+SELECT CASE(ident)
+CASE('LMD')
+        SLAB=aps(k)+bps(k)*psfile(:,:,time_out(l))
+CASE('OXF')
+	SLAB=bps(k)*psfile(:,:,time_out(l))
+END SELECT
+		! And now put everything in the destination file
+		! ... Header
+        write(1) IFV
+        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
+        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON  
+		! ... Data
+		write(1) SLAB
+END DO
+!print *,'The field '//DESC//' was written to '//output
+
+!------------------------!    
+! >>> Write a variable   !
+!    ... Copy&Paste part !
+!------------------------! 
+FIELD='HGT'
+UNITS='m'
+DESC='Height'
+DO k = 1,altlen
+        XLVL=levels(k)
+!!*******
+!! PROVISOIRE: normalement, il faudrait la hauteur geopotentielle
+!!*******
+!!however, not used by initialize_real
+SELECT CASE(ident)
+CASE('LMD')
+        SLAB=10000.*alog(610./(aps(k)+bps(k)*psfile(:,:,time_out(l))))
+CASE('OXF')
+	SLAB=10000.*alog(610./(bps(k)*psfile(:,:,time_out(l))))
+END SELECT
+		! And now put everything in the destination file
+		! ... Header
+        write(1) IFV
+        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
+        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON  
+		! ... Data
+		write(1) SLAB
+END DO
+!print *,'The field '//DESC//' was written to '//output
+
+!------------------------!
+! >>> Write a variable   !
+!    ... Copy&Paste part !
+!------------------------!
+FIELD='HV'
+UNITS='kg/kg'
+DESC='Water vapor'
+DO k = 1,altlen
+        XLVL=levels(k)
+        SLAB=waterfile(:,:,k,time_out(l))
+                ! And now put everything in the destination file
+                ! ... Header
+        write(1) IFV
+        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
+        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON
+                ! ... Data
+                write(1) SLAB
+END DO
+!print *,'The field '//DESC//' was written to '//output
+
+!------------------------!
+! >>> Write a variable   !
+!    ... Copy&Paste part !
+!------------------------!
+FIELD='HI'
+UNITS='kg/kg'
+DESC='Water ice'
+DO k = 1,altlen
+        XLVL=levels(k)
+        SLAB=watericefile(:,:,k,time_out(l))
+                ! And now put everything in the destination file
+                ! ... Header
+        write(1) IFV
+        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
+        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON
+                ! ... Data
+                write(1) SLAB
+END DO
+!print *,'The field '//DESC//' was written to '//output
+
+!------------------------!
+! >>> Write a variable   !
+!    ... Copy&Paste part !
+!------------------------!
+FIELD='TSOIL'
+UNITS='K'
+DESC='Soil temperature'
+DO k = 1,altlen
+        XLVL=levels(k)
+        SLAB=tsoilfile(:,:,k,time_out(l))
+                ! And now put everything in the destination file
+                ! ... Header
+        write(1) IFV
+        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
+        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON
+                ! ... Data
+                write(1) SLAB
+END DO
+!print *,'The field '//DESC//' was written to '//output
+
+!------------------------!
+! >>> Write a variable   !
+!    ... Copy&Paste part !
+!------------------------!
+FIELD='DSOIL'
+UNITS='m'
+DESC='Soil depths'
+DO k = 1,altlen
+        XLVL=levels(k)
+        SLAB=dsoilfile(:,:,k,time_out(l))
+                ! And now put everything in the destination file
+                ! ... Header
+        write(1) IFV
+        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
+        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON
+                ! ... Data
+                write(1) SLAB
+END DO
+!print *,'The field '//DESC//' was written to '//output
+
+!------------------------!
+! >>> Write a variable   !
+!    ... Copy&Paste part !
+!------------------------!
+FIELD='ISOIL'
+UNITS='tiu'
+DESC='Soil thermal inertia'
+DO k = 1,altlen
+        XLVL=levels(k)
+        SLAB=isoilfile(:,:,k,time_out(l))
+                ! And now put everything in the destination file
+                ! ... Header
+        write(1) IFV
+        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
+        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON
+                ! ... Data
+                write(1) SLAB
+END DO
+!print *,'The field '//DESC//' was written to '//output
+
+!------------------------!
+! >>> Write a variable   !
+!    ... Copy&Paste part !
+!------------------------!
+FIELD='CO2'
+UNITS='kg/kg'
+DESC='CO2 mixing ratio'
+DO k = 1,altlen
+        XLVL=levels(k)
+        SLAB=co2file(:,:,k,time_out(l))
+                ! And now put everything in the destination file
+                ! ... Header
+        write(1) IFV
+        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
+        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON
+                ! ... Data
+                write(1) SLAB
+END DO
+!print *,'The field '//DESC//' was written to '//output
+
+!------------------------!
+! >>> Write a variable   !
+!    ... Copy&Paste part !
+!------------------------!
+FIELD='DUSTQ'
+UNITS='kg/kg'
+DESC='Dust mixing ratio'
+DO k = 1,altlen
+        XLVL=levels(k)
+        SLAB=dustfile(:,:,k,time_out(l))
+                ! And now put everything in the destination file
+                ! ... Header
+        write(1) IFV
+        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
+        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON
+                ! ... Data
+                write(1) SLAB
+END DO
+!print *,'The field '//DESC//' was written to '//output
+
+!------------------------!
+! >>> Write a variable   !
+!    ... Copy&Paste part !
+!------------------------!
+FIELD='DUSTN'
+UNITS='part/kg'
+DESC='Dust number density'
+DO k = 1,altlen
+        XLVL=levels(k)
+        SLAB=dustnfile(:,:,k,time_out(l))
+                ! And now put everything in the destination file
+                ! ... Header
+        write(1) IFV
+        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
+        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON
+                ! ... Data
+                write(1) SLAB
+END DO
+!print *,'The field '//DESC//' was written to '//output
+
+!------------------------!
+! >>> Write a variable   !
+!    ... Copy&Paste part !
+!------------------------!
+FIELD='CCNQ'
+UNITS='kg/kg'
+DESC='CCN mixing ratio'
+DO k = 1,altlen
+        XLVL=levels(k)
+        SLAB=ccnfile(:,:,k,time_out(l))
+                ! And now put everything in the destination file
+                ! ... Header
+        write(1) IFV
+        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
+        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON
+                ! ... Data
+                write(1) SLAB
+END DO
+!print *,'The field '//DESC//' was written to '//output
+
+!------------------------!
+! >>> Write a variable   !
+!    ... Copy&Paste part !
+!------------------------!
+FIELD='CCNN'
+UNITS='part/kg'
+DESC='CCN number density'
+DO k = 1,altlen
+        XLVL=levels(k)
+        SLAB=ccnnfile(:,:,k,time_out(l))
+                ! And now put everything in the destination file
+                ! ... Header
+        write(1) IFV
+        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
+        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON
+                ! ... Data
+                write(1) SLAB
+END DO
+!print *,'The field '//DESC//' was written to '//output
+
+
+!------------------------!
+! >>> Write a variable   !
+!     PHOTOCHEMISTRY     !
+!------------------------!
+#ifdef PHOTOCHEM
+    DO i=1,nchemtrac
+       FIELD=wtnom(i)
+       UNITS='units'
+       DESC='desc'
+       DO k = 1,altlen
+         XLVL=levels(k)
+         SLAB=chemtrac(:,:,k,time_out(l),i)
+         ! And now put everything in the destination file
+         ! ... Header
+         write(1) IFV
+         write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
+         write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON
+         ! ... Data
+         write(1) SLAB
+       END DO
+    ENDDO
+#endif
+
+print *,'****done file '//output, int(100.*float(l)/float(FILES)), ' % '
+close(1)
+
+DEALLOCATE(SLAB)
+
+END DO !! end of the files loop
+
+
+!!-------------------------
+!! DeAllocate local arrays
+!!-------------------------
+deallocate(eta_gcm)
+deallocate(tfile)
+deallocate(tsoilfile)
+deallocate(isoilfile)
+deallocate(dsoilfile)
+!deallocate(tfileorig)
+deallocate(ufile)
+!deallocate(ufileorig)
+deallocate(vfile)
+!deallocate(vfileorig)
+deallocate(rfile)
+deallocate(hfile)  
+deallocate(waterfile)
+deallocate(watericefile)
+!deallocate(swaterfile)
+deallocate(swatericefile)
+deallocate(dustfile)
+deallocate(dustnfile)
+deallocate(co2file)
+deallocate(ccnfile)
+deallocate(ccnnfile)
+deallocate(psfile) 
+deallocate(tsfile)
+deallocate(tnsfile)
+deallocate(unsfile)
+deallocate(vnsfile)
+deallocate(emissfile)
+deallocate(co2icefile)
+deallocate(ghtsfile)	!! no scan axis
+deallocate(vide)
+deallocate(ones)
+deallocate(lat, lon, alt, time)
+deallocate(aps,bps,levels)
+
+#ifdef PHOTOCHEM
+deallocate(chemtrac)
+deallocate(wtnom)
+#endif
+
+print *, '------------------------'
+print *, 'End of pre-WPS process !'
+print *, '------------------------'
+print *, 'Here is what you should set in namelist.wps:' 
+print *, " start_date = '"//date_out2(1)//"'"
+print *, " end_date = '"//date_out2(FILES)//"'"
+print *, '------------------------'
+print *, 'Any date between those is ok'
+print *, 'for example, second available date is ... '//date_out2(2)
+print *, '------------------------'
+
+end
Index: trunk/MESOSCALE/LMD_MM_MARS/SRC/PREP_MARS/create_readmeteo.F90
===================================================================
--- trunk/MESOSCALE/LMD_MM_MARS/SRC/PREP_MARS/create_readmeteo.F90	(revision 1662)
+++ 	(revision )
@@ -1,262 +1,0 @@
-program create_readmeteo
-
-implicit none
-include "netcdf.inc"
-
-!------------------------------------------------------------------------!
-! create_readmeteo generates the file 'readmeteo.def'                    !
-! ... must be run prior to readmeteo                                     !
-! ... the user will be asked a few questions                             !
-!                                                                        !
-! A. Spiga - 01/08/2007                                                  !
-!------------------------------------------------------------------------!
-
-INTEGER, PARAMETER :: MONTHS_PER_YEAR = 12
-INTEGER, PARAMETER :: mday(MONTHS_PER_YEAR)   &
-           = (/61,66,66,65,60,54,50,46,47,47,51,56/)
-
-INTEGER :: start_day,init,i,month,day
-INTEGER :: ierr,nid,nvarid
-INTEGER :: n,start,my,interval_subs,subs
-INTEGER :: start_hour,interval,hour,inc_hour
-INTEGER :: no_please
-INTEGER :: timedim,timelen
-
-REAL, DIMENSION(100) :: param
-REAL, DIMENSION(:), ALLOCATABLE :: time
-
-
-!
-! Init
-!
-interval = 0
-
-
-!
-! Open input NETCDF file
-!
-write(*,*) "Scanning netcdf file ..."
-ierr=NF_OPEN ("input_diagfi.nc",NF_NOWRITE,nid)
-IF (ierr.NE.NF_NOERR) THEN
-      write(*,*)'**** Please create a symbolic link called input_diagfi.nc'
-      CALL ABORT
-ENDIF
-
-ierr=NF_INQ_DIMID(nid,"Time",timedim)
-IF (ierr .NE. NF_NOERR) THEN
-    ierr=NF_INQ_DIMID(nid,"time",timedim)
-ENDIF
-ierr=NF_INQ_DIMLEN(nid,timedim,timelen)
-
-
-!
-! Get starting time
-!
-ALLOCATE(time(timelen))
-ierr = NF_INQ_VARID (nid, "Time",nvarid)
-IF (ierr .NE. NF_NOERR) THEN
-        ierr = NF_INQ_VARID (nid, "time",nvarid)
-           IF (ierr .NE. NF_NOERR) THEN
-                PRINT *, "Error: Readmeteo <Time> not found"
-                stop
-           ENDIF
-ENDIF
-#ifdef NC_DOUBLE
-ierr = NF_GET_VAR_DOUBLE(nid, nvarid, time)
-#else
-ierr = NF_GET_VAR_REAL(nid, nvarid, time)
-#endif
-
-ierr = NF_INQ_VARID (nid,"controle",nvarid)
-IF (ierr .NE. NF_NOERR) THEN
-        PRINT *, "Error: Readmeteo <ps> not found"
-        stop
-ENDIF
-#ifdef NC_DOUBLE
-ierr = NF_GET_VAR_DOUBLE(nid, nvarid, param)
-#else
-ierr = NF_GET_VAR_REAL(nid, nvarid, param)
-#endif
-
-write(*,*) "Done."
-
-
-!
-! fill the include if no info can be found in the diagfi
-!
-include "fix_no_info.inc"
-
-
-! beware, param(4) is the day reference of start and startfi
-! ...have to add time(1) to get the real starting date in diagfi
-start_day=floor(param(4)+time(1))		
-start_hour=nint((param(4)-floor(param(4))+time(1))*24)	! starting hour	
-start_hour=MOD(start_hour,24)   
-IF (interval .eq. 0) interval=nint(time(1)*24)	 ! interval between each time subscript	
-
-
-PRINT *,'*****************'
-PRINT *,'GCM data file starts at sol ',start_day,'and hour',start_hour
-PRINT *,'GCM data interval is ',interval,'hours'
-
-CALL wrf_day(start_day,month,day)
-
-!
-! User defined parameters
-!
-write(*,*) "This will erase readmeteo.def file"
-write(*,*) "  NB: Default mode is to generate "
-write(*,*) "      a WPS-compatible file for each timestep "
-write(*,*) "      included in the diagfi "
-write(*,*) "Total number of generated files: ",timelen 
-write(*,*) "Continue ? 0 if no, 1 if yes, 99 for settings"
-read(*,*) no_please
-if (no_please == 0) stop
-if (no_please == 1) then
-        my=2024
-        n=timelen
-        start=1
-        interval_subs=1
-else
-        write(*,*) "-- GCM data file information --"
-        write(*,*) "Starting Martian year ? ex: 24,25,26..."
-        read(*,*) my
-        my=2000+my
-        write(*,*) "-- WRF data file information --"
-        write(*,*) "How many files do you want to create ? at least 2, max is",timelen
-        read(*,*) n
-        IF (n == timelen) THEN
-                start=1
-                interval_subs=1
-        ELSE
-                write(*,*) "Time subscript you want to begin with (first is 1) ? max is",timelen-n+1
-                read(*,*) start
-                write(*,*) "Time subscript interval you want to get ? no more than",(timelen-start+1)/n
-                read(*,*) interval_subs
-        END IF
-endif
-
-
-
-!
-! Info
-!
-PRINT *,'-------'
-PRINT *,'run readmeteo with the command line:'
-PRINT *,'readmeteo.exe < readmeteo.def'
-
-
-!
-! Generate readmeteo.def
-!
-OPEN(6,file='readmeteo.def',status='replace',form='formatted')
-! files
-IF (n < 10) THEN
-        write(6,fmt='(I1)') n
-ELSE IF (n < 100) THEN
-        write(6,fmt='(I2)') n
-ELSE IF (n < 1000) THEN
-        write(6,fmt='(I3)') n
-ELSE
-        write(6,fmt='(I4)') n        
-END IF
-! subscript in GCM data file
-DO i=1,n
-        subs=start+(i-1)*interval_subs
-        IF (subs < 10) THEN
-                write(6,fmt='(I1)') subs 
-        ELSE IF (subs < 100) THEN 
-                write(6,fmt='(I2)') subs
-        ELSE IF (subs < 1000) THEN
-                write(6,fmt='(I3)') subs
-        ELSE 
-                write(6,fmt='(I4)') subs   
-        END IF        
-END DO
-! WRF time reference
-hour=start_hour+(start-1)*interval
-inc_hour=interval*interval_subs
-IF (hour >= 24) day=day+INT(hour/24)
-hour=MOD(hour,24)
-IF (day > mday(month)) THEN
-      day=day-mday(month)
-      month=month+1
-END IF
-IF (month > MONTHS_PER_YEAR) THEN
-      my=my+1
-      month=1
-END IF
-DO i=1,n
-        write(6,fmt='(I4)') my
-        IF (month < 10) THEN
-                write(6,fmt='(I1,I1)') 0,month 
-        ELSE 
-                write(6,fmt='(I2)') month
-        END IF  
-        IF (day < 10) THEN
-                write(6,fmt='(I1,I1)') 0,day
-        ELSE
-                write(6,fmt='(I2)') day
-        END IF
-        IF (hour < 10) THEN
-                write(6,fmt='(I1,I1)') 0,hour
-        ELSE
-                write(6,fmt='(I2)') hour
-        END IF
-        write(6,fmt='(A1)') 'y'
-IF (hour+inc_hour >= 24) day=day+INT((hour+inc_hour)/24)
-hour=MOD(hour+inc_hour,24)
-IF (day > mday(month)) THEN
-        day=day-mday(month)
-        month=month+1
-END IF        
-IF (month > MONTHS_PER_YEAR) THEN
-        my=my+1
-        month=1
-END IF        
-END DO
-close(6)
-
-END
-
-
-!--------------------------------------------------
-!--------------------------------------------------
-
-SUBROUTINE wrf_day(gcm_day,wrf_month,day) 
-
-IMPLICIT NONE
-
-INTEGER, INTENT(INOUT) :: gcm_day
-INTEGER, INTENT(OUT) :: wrf_month,day
-
-INTEGER :: init,i
-INTEGER, PARAMETER :: MONTHS_PER_YEAR = 12
-INTEGER, PARAMETER :: mday(MONTHS_PER_YEAR)   &
-           = (/61,66,66,65,60,54,50,46,47,47,51,56/)
-
-!
-! Find WRF month and day
-!
-
-IF (gcm_day >= 669) THEN    !! gcm_day commence au jour 0
-        PRINT *,'out of bounds ! martian year is 669 sols !'
-        gcm_day=MOD(gcm_day,669)
-        !STOP
-ENDIF
-
-
-
-init=gcm_day+1    !!+1 sinon on decale tout
-DO i=1,MONTHS_PER_YEAR
-        wrf_month=i
-        init=init-mday(i)
-        IF (init <= 0) EXIT
-END DO
-
-PRINT *,'corresponding WRF month is ',wrf_month
-day=init+mday(wrf_month)
-PRINT *,'corresponding WRF day is ',day
-PRINT *,'*****************'
-
-END
Index: trunk/MESOSCALE/LMD_MM_MARS/SRC/PREP_MARS/readmeteo.F90
===================================================================
--- trunk/MESOSCALE/LMD_MM_MARS/SRC/PREP_MARS/readmeteo.F90	(revision 1662)
+++ 	(revision )
@@ -1,1760 +1,0 @@
-program readmeteo
-
-implicit none
-include "netcdf.inc"
-
-!------------------------------------------------------------------------!
-! Readmeteo prepares an initial state for the WPS pre-processor of WRF   !
-!                                                                        !
-! Input is a diagfi.nc NETCDF file from a LMD/GCM simulation             !
-!                                                                        !
-! Outputs are WRFSI intermediate format files ready for metgrid.exe      !
-!       http://www.mmm.ucar.edu/wrf/OnLineTutorial/WPS/IM_si.htm         !
-!                                                                        !
-! **** Please create a WPSFEED folder (or a symbolic link) ****          !       
-!                                                                        !
-! A. Spiga - 16/04/2007                                                  !
-!	     22/05/2007 : need to run zrecast as a preliminary           !
-!            07/06/2007 : external parameter file 'readmeteo.def         !
-!	     30/07/2007 : manage additional variables (tsoil, emiss,...) !	
-!            19/10/2007 : no need to run zrecast at all (eta levels)     !   
-!		12/2007 : include co2ice and emissivity			 ! 
-!               02/2008 : include water vapor and ice                    !
-!               01/2010 : possible use of diagsoil for new physics       ! 
-!               02/2011 : add dust tracers, correct surface              !
-!									 !
-! spiga@lmd.jussieu.fr							 !	
-!------------------------------------------------------------------------!
-
-
-
-!***************************************************************************
-!***************************************************************************
-REAL, PARAMETER :: emiss_prescribed=0.95
-REAL, PARAMETER :: co2ice_prescribed=0.
-CHARACTER (LEN=3), PARAMETER :: ident='LMD'
-
-
-
-!***************************************************************************
-!***************************************************************************
-
-REAL :: ptop
-REAL, PARAMETER :: grav=3.72
-LOGICAL, PARAMETER :: blank=.false.
-
-
-
-!! Variables to be written in the output file
-!! *** NB: conformity with metgrid/src/read_met_module.F90
-CHARACTER (LEN=33) :: output
-INTEGER :: IFV
-CHARACTER (LEN=24) :: HDATE
-REAL :: XFCST
-CHARACTER (LEN=32) :: SOURCE
-CHARACTER (LEN=9) :: FIELD
-CHARACTER (LEN=25) :: UNITS
-CHARACTER (LEN=46) :: DESC
-REAL :: XLVL
-INTEGER :: NX,NY,IPROJ
-CHARACTER (LEN=8) :: STARTLOC
-REAL :: STARTLAT,STARTLON,DELTALAT,DELTALON
-REAL, POINTER, DIMENSION(:,:) :: SLAB
-
-!! Variables related to NETCDF format
-integer :: nid,nid2,nid3,nvarid,ierr,ierr2
-integer :: timedim,londim,latdim,altdim,altdim2
-integer :: rlatvdim,rlonudim
-integer :: timelen,lonlen,latlen,altlen,altlen2
-integer :: rlatvlen,rlonulen
-integer :: soillen,soildim
-integer :: nphys
-integer, dimension(4) :: corner,edges
-
-!! Intermediate data arrays
-integer :: k,l,m,n,p
-real, dimension(:), allocatable :: lat,lon,time,alt,aps,bps,levels,vertdsoil
-real, dimension(:,:), allocatable :: vide,ones,ghtsfile
-real, dimension(:,:), allocatable :: interm
-real, dimension(:,:,:), allocatable :: gwparam
-real, dimension(:,:,:), allocatable :: psfile,tsfile
-real, dimension(:,:,:), allocatable :: emissfile,co2icefile
-real, dimension(:,:,:), allocatable :: tnsfile,unsfile,vnsfile
-real, dimension(:,:,:,:), allocatable :: tfile,ufile,vfile,rfile,hfile
-real, dimension(:,:,:,:), allocatable :: eta_gcm
-!real, dimension(:,:,:,:), allocatable :: tfileorig,ufileorig,vfileorig
-real, dimension(:,:,:,:), allocatable :: tsoilfile, dsoilfile, isoilfile
-real, dimension(:,:,:,:), allocatable :: waterfile, watericefile
-real, dimension(:,:,:), allocatable :: swatericefile!, swaterfile
-real, dimension(:,:,:,:), allocatable :: dustfile,dustnfile
-real, dimension(:,:,:,:), allocatable :: co2file
-real, dimension(:,:,:,:), allocatable :: ccnfile,ccnnfile
-
-!! Reading the parameter file 
-integer :: tmp,increment,FILES
-integer :: tmp2,tmp3,tmp4
-character*1 :: answer
-character*4 :: str
-character*2 :: str2, str3, str4
-integer, dimension(:), allocatable :: time_out
-character*13, dimension(:), allocatable :: date_out
-character*19, dimension(:), allocatable :: date_out2
-
-#ifdef PHOTOCHEM
-real, dimension(:,:,:,:,:), allocatable :: chemtrac
-integer :: nchemtrac,i
-CHARACTER*20,DIMENSION(:),ALLOCATABLE :: wtnom
-#endif
-
-
-!***************************************************************************
-!***************************************************************************
-
-
-!!---------------------
-!! Open the datafile
-!!---------------------
-ierr=NF_OPEN ("input_diagfi.nc",NF_NOWRITE,nid)
-IF (ierr.NE.NF_NOERR) THEN
-   write(*,*)'**** Please create a symbolic link called input_diagfi.nc'
-   CALL ABORT
-ENDIF
-
-
-!!--------------------------
-!! Ask for data references
-!!--------------------------
-!write(*,*) "Create n files. What is n ?"
-read(*,*) FILES
-allocate(time_out(FILES))
-allocate(date_out(FILES))
-allocate(date_out2(FILES))
-
-!write(*,*) ""
-!write(*,*) "INPUT: Diagfi time"
-!write(*,*) "list of n subscripts, separated by <Return>s"
-increment=1
-do while (increment.ne.FILES+1)
-    read(*,*) tmp
-    time_out(increment)=tmp
-    increment=increment+1
-enddo
-
-!write(*,*) ""
-!write(*,*) "OUTPUT: WRF time"
-!write(*,*) "fill 4 lines indicating"
-!write(*,*) "-year (4 digits)"
-!write(*,*) "-month (2 digits)" 
-!write(*,*) "-day (2 digits)"
-!write(*,*) "-hour (2 digits)"
-increment=1
-do while (increment.ne.FILES+1)
-    read(*,*) str
-    read(*,*) str2
-    read(*,*) str3
-    read(*,*) str4
-    date_out(increment)=str//'-'//str2//'-'//str3//'_'//str4
-    date_out2(increment)=str//'-'//str2//'-'//str3//'_'//str4//':00:00'
-    !print *,date_out(increment)
-    !write(*,*) "ok? (y/n)"
-    read(*,*) answer
-    if (answer.eq.'n') then
-        !write(*,*) "please write again"
-    else 
-        !write(*,*) "next one, please"    
-        increment=increment+1
-    endif
-enddo
-
-
-!!-------------------
-!! Get array sizes
-!!-------------------
-SELECT CASE(ident)
-CASE('LMD')
-ierr=NF_INQ_DIMID(nid,"Time",timedim)
-CASE('OXF')
-ierr=NF_INQ_DIMID(nid,"time",timedim)
-END SELECT
-ierr=NF_INQ_DIMLEN(nid,timedim,timelen)
-  write(*,*) "timelen: ",timelen
-
-SELECT CASE(ident)
-CASE('LMD')
-ierr=NF_INQ_DIMID(nid,"latitude",latdim)
-CASE('OXF')
-ierr=NF_INQ_DIMID(nid,"lat",latdim)
-END SELECT
-ierr=NF_INQ_DIMLEN(nid,latdim,latlen)
-  write(*,*) "latlen: ",latlen
-
-SELECT CASE(ident)
-CASE('LMD')
-ierr=NF_INQ_DIMID(nid,"longitude",londim)
-CASE('OXF')
-ierr=NF_INQ_DIMID(nid,"lon",londim)
-END SELECT
-ierr=NF_INQ_DIMLEN(nid,londim,lonlen)
-  write(*,*) "lonlen: ",lonlen
-
-SELECT CASE(ident)
-CASE('LMD')
-ierr=NF_INQ_DIMID(nid,"altitude",altdim)
-CASE('OXF')
-ierr=NF_INQ_DIMID(nid,"sigma",altdim)
-END SELECT
-ierr=NF_INQ_DIMLEN(nid,altdim,altlen)
-  write(*,*) "altlen: ",altlen
-
-
-
-!!-------------------------
-!! Allocate local arrays
-!!-------------------------
-allocate(eta_gcm(lonlen,latlen,altlen,timelen))
-allocate(tfile(lonlen,latlen,altlen,timelen))
-allocate(tsoilfile(lonlen,latlen,altlen,timelen))
-allocate(dsoilfile(lonlen,latlen,altlen,timelen))
-allocate(isoilfile(lonlen,latlen,altlen,timelen))
-allocate(vertdsoil(altlen))
-!allocate(tfileorig(lonlen,latlen,altlen,timelen))
-allocate(ufile(lonlen,latlen,altlen,timelen))
-!allocate(ufileorig(lonlen,latlen,altlen,timelen))
-allocate(vfile(lonlen,latlen,altlen,timelen))
-!allocate(vfileorig(lonlen,latlen,altlen,timelen))
-allocate(rfile(lonlen,latlen,altlen,timelen))
-allocate(hfile(lonlen,latlen,altlen,timelen))  
-allocate(waterfile(lonlen,latlen,altlen,timelen))
-allocate(watericefile(lonlen,latlen,altlen,timelen))
-!allocate(swaterfile(lonlen,latlen,timelen))
-allocate(swatericefile(lonlen,latlen,timelen))
-allocate(dustfile(lonlen,latlen,altlen,timelen))
-allocate(dustnfile(lonlen,latlen,altlen,timelen))
-allocate(co2file(lonlen,latlen,altlen,timelen))
-allocate(ccnfile(lonlen,latlen,altlen,timelen))
-allocate(ccnnfile(lonlen,latlen,altlen,timelen))
-allocate(psfile(lonlen,latlen,timelen)) 
-allocate(tsfile(lonlen,latlen,timelen))
-allocate(tnsfile(lonlen,latlen,timelen))
-allocate(unsfile(lonlen,latlen,timelen))
-allocate(vnsfile(lonlen,latlen,timelen))
-allocate(emissfile(lonlen,latlen,timelen))
-allocate(co2icefile(lonlen,latlen,timelen))
-allocate(interm(lonlen,latlen))
-allocate(gwparam(lonlen,latlen,5))
-allocate(ghtsfile(lonlen,latlen))    !! no scan axis
-allocate(vide(lonlen,latlen))
-allocate(ones(lonlen,latlen))
-allocate(lat(latlen), lon(lonlen), alt(altlen), time(timelen))
-allocate(aps(altlen),bps(altlen),levels(altlen))
-#ifdef PHOTOCHEM
-nchemtrac = 14
-allocate(wtnom(nchemtrac))
-wtnom(1)  = "c_co2"
-wtnom(2)  = "c_co"
-wtnom(3)  = "c_o"
-wtnom(4)  = "c_o1d"
-wtnom(5)  = "c_o2"
-wtnom(6)  = "c_o3"
-wtnom(7)  = "c_h"
-wtnom(8)  = "c_h2"
-wtnom(9)  = "c_oh"
-wtnom(10) = "c_ho2"
-wtnom(11) = "c_h2o2"
-wtnom(12) = "c_ch4"
-wtnom(13) = "c_n2"
-wtnom(14) = "c_ar"
-allocate(chemtrac(lonlen,latlen,altlen,timelen,nchemtrac))
-chemtrac(:,:,:,:,:)=0
-#endif
-
-tfile(:,:,:,:)=0
-tsoilfile(:,:,:,:)=0 
-isoilfile(:,:,:,:)=0 
-dsoilfile(:,:,:,:)=0 
-vertdsoil(:)=0.
-!tfileorig(:,:,:,:)=0
-!ufileorig(:,:,:,:)=0
-!vfileorig(:,:,:,:)=0
-ufile(:,:,:,:)=0 
-vfile(:,:,:,:)=0 
-rfile(:,:,:,:)=0 
-hfile(:,:,:,:)=0
-waterfile(:,:,:,:)=0
-watericefile(:,:,:,:)=0
-!swaterfile(:,:,:)=0
-swatericefile(:,:,:)=0
-dustfile(:,:,:,:)=0
-dustnfile(:,:,:,:)=0
-co2file(:,:,:,:)=0
-ccnfile(:,:,:,:)=0
-ccnnfile(:,:,:,:)=0
-psfile(:,:,:)=0 
-tsfile(:,:,:)=0
-emissfile(:,:,:)=0
-co2icefile(:,:,:)=0
-tnsfile(:,:,:)=0
-unsfile(:,:,:)=0
-vnsfile(:,:,:)=0
-interm(:,:)=0
-gwparam(:,:,:)=0
-ghtsfile(:,:)=0
-vide(:,:)=0
-ones(:,:)=0
-
-
-!!-------------------
-!! Read dimensions
-!!-------------------
-
-print *,'>>> Read dimensions !'
-
-print *,'Time'
-SELECT CASE(ident)
-CASE('LMD')
-   ierr = NF_INQ_VARID (nid, "Time",nvarid)
-CASE('OXF')
-   ierr = NF_INQ_VARID (nid, "time",nvarid)
-END SELECT
-   IF (ierr .NE. NF_NOERR) THEN
-      PRINT *, "Error: Readmeteo <Time> not found"
-      stop
-   ENDIF
-#ifdef NC_DOUBLE
-   ierr = NF_GET_VAR_DOUBLE(nid, nvarid, time)
-#else
-   ierr = NF_GET_VAR_REAL(nid, nvarid, time)
-#endif
-   print *,time(1),' ... to ... ',time(timelen)
-
-print *,'Latitude'
-SELECT CASE(ident)
-CASE('LMD')
-   ierr = NF_INQ_VARID (nid, "latitude",nvarid)
-CASE('OXF')
-   ierr = NF_INQ_VARID (nid, "lat",nvarid)
-END SELECT
-   IF (ierr .NE. NF_NOERR) THEN
-      PRINT *, "Error: Readmeteo <latitude> not found"
-      stop
-   ENDIF
-#ifdef NC_DOUBLE
-   ierr = NF_GET_VAR_DOUBLE(nid, nvarid, lat)
-#else
-   ierr = NF_GET_VAR_REAL(nid, nvarid, lat)
-#endif
-   print *,lat(1),' ... to ... ',lat(latlen),' ... step: ',lat(latlen)-lat(latlen-1)
-
-print *,'Longitude'
-SELECT CASE(ident)
-CASE('LMD')
-   ierr = NF_INQ_VARID (nid, "longitude",nvarid)
-CASE('OXF')
-   ierr = NF_INQ_VARID (nid, "lon",nvarid)
-END SELECT
-   IF (ierr .NE. NF_NOERR) THEN
-      PRINT *, "Error: Readmeteo <longitude> not found"
-      stop
-   ENDIF
-#ifdef NC_DOUBLE
-   ierr = NF_GET_VAR_DOUBLE(nid, nvarid, lon)
-#else
-   ierr = NF_GET_VAR_REAL(nid, nvarid, lon)
-#endif
-   print *,lon(1),' ... to ... ',lon(lonlen),' ... step: ',lon(lonlen)-lon(lonlen-1)
-
-SELECT CASE(ident)
-CASE('LMD')
-print *, 'Hybrid coordinates'
-   ierr = NF_INQ_VARID (nid, "aps", nvarid)
-   IF (ierr .NE. NF_NOERR) THEN
-      PRINT *, "Error: Readmeteo <aps> not found"
-      stop
-   ENDIF
-#ifdef NC_DOUBLE
-   ierr = NF_GET_VAR_DOUBLE(nid, nvarid, aps)
-#else
-   ierr = NF_GET_VAR_REAL(nid, nvarid, aps)
-#endif
-   ierr = NF_INQ_VARID (nid, "bps", nvarid)
-   IF (ierr .NE. NF_NOERR) THEN
-      PRINT *, "Error: Readmeteo <bps> not found"
-      stop
-   ENDIF
-#ifdef NC_DOUBLE
-   ierr = NF_GET_VAR_DOUBLE(nid, nvarid, bps)
-#else
-   ierr = NF_GET_VAR_REAL(nid, nvarid, bps)
-#endif
-   print *,aps(1),' ... to ... ',aps(altlen)
-   print *,bps(1),' ... to ... ',bps(altlen)
-CASE('OXF')
-   ierr = NF_INQ_VARID (nid, "sigma", nvarid)
-   IF (ierr .NE. NF_NOERR) THEN
-      PRINT *, "Error: Readmeteo <sigma> not found"
-      stop
-   ENDIF
-#ifdef NC_DOUBLE
-   ierr = NF_GET_VAR_DOUBLE(nid, nvarid, bps)
-#else
-   ierr = NF_GET_VAR_REAL(nid, nvarid, bps)
-#endif
-   print *,bps(1),' ... to ... ',bps(altlen)
-END SELECT
-
-
-!!-------------------------------------------
-!! Reading 2D and 3D meteorological fields
-!!-------------------------------------------
-
-IF (blank .EQV. .false.) THEN
-
-print *,'>>> Read 2D optional fields !'
-
-print *,'Emissivity'
-   ierr = NF_INQ_VARID (nid,"emis",nvarid)
-IF (ierr .NE. NF_NOERR) THEN
-        PRINT *, '...warning: not found in diagfi !'
-        PRINT *, '...will be filled with a prescribed value', emiss_prescribed
-  emissfile(:,:,:)=emiss_prescribed
-ELSE
-#ifdef NC_DOUBLE
-  ierr = NF_GET_VAR_DOUBLE(nid, nvarid, emissfile)
-#else
-  ierr = NF_GET_VAR_REAL(nid, nvarid, emissfile)
-#endif
-ENDIF   
-
-print *,'CO2 ice'
-   ierr = NF_INQ_VARID (nid,"co2ice",nvarid)
-IF (ierr .NE. NF_NOERR) THEN
-  PRINT *, '...warning: not found in diagfi !'
-  PRINT *, '...will be filled with a prescribed value', co2ice_prescribed
-  co2icefile(:,:,:)=co2ice_prescribed
-ELSE
-#ifdef NC_DOUBLE
-  ierr = NF_GET_VAR_DOUBLE(nid, nvarid, co2icefile)
-#else
-  ierr = NF_GET_VAR_REAL(nid, nvarid, co2icefile)
-#endif
-ENDIF
-
-print *,'>>> Read 2D surface fields !'
-
-print *,'Surface Pressure'
-   ierr = NF_INQ_VARID (nid,"ps",nvarid)
-   IF (ierr .NE. NF_NOERR) THEN
-      PRINT *, "Error: Readmeteo <ps> not found"
-      stop
-   ENDIF
-#ifdef NC_DOUBLE
-   ierr = NF_GET_VAR_DOUBLE(nid, nvarid, psfile)
-#else
-   ierr = NF_GET_VAR_REAL(nid, nvarid, psfile)
-#endif
-
-print *,'Ground Temperature'
-   ierr = NF_INQ_VARID (nid,"tsurf",nvarid)
-   IF (ierr .NE. NF_NOERR) THEN
-      PRINT *, "Error: Readmeteo <tsurf> not found"
-      stop
-   ENDIF
-#ifdef NC_DOUBLE
-   ierr = NF_GET_VAR_DOUBLE(nid, nvarid, tsfile)
-#else
-   ierr = NF_GET_VAR_REAL(nid, nvarid, tsfile)
-#endif
-
-
-!!!"atmospheric" surface temperature is taken
-!!!from original diagfi.nc first level
-!!!... level is ~3-5 meters
-!print *,'Near-Surface Temperature'
-!   ierr = NF_INQ_VARID (nid,"temp",nvarid)
-!   IF (ierr .NE. NF_NOERR) THEN
-!      ierr = NF_INQ_VARID (nid,"t",nvarid)
-!	IF (ierr .NE. NF_NOERR) THEN
-!           PRINT *, "Error: Readmeteo <temp> not found"
-!           stop
-!	ENDIF
-!   ENDIF
-!#ifdef NC_DOUBLE
-!   ierr = NF_GET_VAR_DOUBLE(nid, nvarid, tfileorig)
-!#else
-!   ierr = NF_GET_VAR_REAL(nid, nvarid, tfileorig)
-!#endif
-!   tnsfile=tfileorig(:,:,1,:)
-
-!!!"atmospheric" surface u is taken
-!!!from original diagfi.nc first level
-!!!... level is ~3-5 meters
-!print *,'Near-Surface Zonal Wind'
-!   ierr = NF_INQ_VARID (nid,"u",nvarid)
-!   IF (ierr .NE. NF_NOERR) THEN
-!     PRINT *, "Error: Readmeteo <u> not found"
-!     stop
-!   ENDIF
-!#ifdef NC_DOUBLE
-!   ierr = NF_GET_VAR_DOUBLE(nid, nvarid, ufileorig)
-!#else
-!   ierr = NF_GET_VAR_REAL(nid, nvarid, ufileorig)
-!#endif
-!   unsfile=ufileorig(:,:,1,:)
-
-!!!"atmospheric" surface v is taken
-!!!from original diagfi.nc first level
-!!!... level is ~3-5 meters
-!print *,'Near-Surface Meridional Wind'
-!   ierr = NF_INQ_VARID (nid,"v",nvarid)
-!   IF (ierr .NE. NF_NOERR) THEN
-!     PRINT *, "Error: Readmeteo <v> not found"
-!     stop
-!   ENDIF
-!#ifdef NC_DOUBLE
-!   ierr = NF_GET_VAR_DOUBLE(nid, nvarid, vfileorig)
-!#else
-!   ierr = NF_GET_VAR_REAL(nid, nvarid, vfileorig)
-!#endif
-!   vnsfile=vfileorig(:,:,1,:)
-
-SELECT CASE(ident)
-CASE('LMD')
-   print *,'Geopotential height at the ground'
-   ierr = NF_INQ_VARID (nid,"phisinit",nvarid)
-   IF (ierr .NE. NF_NOERR) THEN
-      PRINT *, "Error: Readmeteo <phisinit> not found"
-      stop
-   ENDIF
-#ifdef NC_DOUBLE
-   ierr = NF_GET_VAR_DOUBLE(nid, nvarid, ghtsfile)
-#else
-   ierr = NF_GET_VAR_REAL(nid, nvarid, ghtsfile)
-#endif
-!**** from geopotential to geopotential height
-ghtsfile=ghtsfile/grav
-!****
-CASE('OXF')
-!
-! geopotential height ~ altimetry
-!
-print *,'Geopotential height at the ground from file mountain_new.nc'
-ierr=NF_OPEN("mountain_new.nc",NF_NOWRITE,nid3)
-    if (ierr.ne.NF_NOERR) then
-      write(*,*) "Error: Could not open that file either"
-      stop "Might as well stop here"
-    endif
-ierr=NF_INQ_VARID(nid3,"orography",nvarid)
-ierr=NF_GET_VAR_REAL(nid3,nvarid,ghtsfile)
-if (ierr.ne.NF_NOERR) then
-    stop "Error: Failed reading phisinit"
-endif
-ierr=NF_CLOSE(nid3)
-END SELECT
-
-
-print *,'>>> Read 3D meteorological fields ! - This may take some time ...'
-
-print *,'Temperature'
-   ierr = NF_INQ_VARID (nid,"temp",nvarid)
-   IF (ierr .NE. NF_NOERR) THEN
-      ierr = NF_INQ_VARID (nid,"t",nvarid)
-        IF (ierr .NE. NF_NOERR) THEN
-          PRINT *, "Error: Readmeteo <t> not found"
-          stop
-        ENDIF
-   ENDIF
-#ifdef NC_DOUBLE
-   ierr = NF_GET_VAR_DOUBLE(nid, nvarid, tfile)
-#else
-   ierr = NF_GET_VAR_REAL(nid, nvarid, tfile)
-#endif
-tnsfile=tfile(:,:,1,:)
-
-print *,'Zonal wind'   
-   ierr = NF_INQ_VARID (nid,"u",nvarid)
-   IF (ierr .NE. NF_NOERR) THEN
-      PRINT *, "Error: Readmeteo <u> not found"
-      stop
-   ENDIF
-#ifdef NC_DOUBLE
-   ierr = NF_GET_VAR_DOUBLE(nid, nvarid, ufile)
-#else
-   ierr = NF_GET_VAR_REAL(nid, nvarid, ufile)
-#endif
-unsfile=ufile(:,:,1,:)
-
-print *,'Meridional wind'
-   ierr = NF_INQ_VARID (nid,"v",nvarid)
-   IF (ierr .NE. NF_NOERR) THEN
-      PRINT *, "Error: Readmeteo <v> not found"
-      stop
-   ENDIF
-#ifdef NC_DOUBLE
-   ierr = NF_GET_VAR_DOUBLE(nid, nvarid, vfile)
-#else
-   ierr = NF_GET_VAR_REAL(nid, nvarid, vfile)
-#endif
-vnsfile=ufile(:,:,1,:)
-
-
-!!------------------------
-!! special water stuff
-!!------------------------
-    print *,'Water vapor'
-    ierr=NF_INQ_VARID(nid,"q02",nvarid)
-    if (ierr.ne.NF_NOERR) then
-      write(*,*) "...No q02 - Water vapor set to 0"
-      waterfile(:,:,:,:)=0.  
-    else
-      ierr=NF_GET_VAR_REAL(nid,nvarid,waterfile)
-    endif   
-
-    print *,'Water ice'
-    ierr=NF_INQ_VARID(nid,"q01",nvarid)
-    if (ierr.ne.NF_NOERR) then
-      write(*,*) "...No q01 - Water ice set to 0"  
-      watericefile(:,:,:,:)=0.
-    else
-      ierr=NF_GET_VAR_REAL(nid,nvarid,watericefile)
-    endif
-!    print *,'Surface Water vapor'
-!    ierr=NF_INQ_VARID(nid,"qsurf02",nvarid)
-!    if (ierr.ne.NF_NOERR) then
-!      write(*,*) "...No qsurf02 - surface Water vapor set to 0"
-!      swaterfile(:,:,:)=0.
-!    endif
-!    ierr=NF_GET_VAR_REAL(nid,nvarid,swaterfile)
-
-    print *,'Surface Water ice'
-!!!!!! ATTENTION ATTENTION 
-!!!!!! water ice a la surface est qsurf(ig,nqmx)
-    ierr=NF_INQ_VARID(nid,"qsurf02",nvarid)
-    if (ierr.ne.NF_NOERR) then
-      write(*,*) "...No qsurf02 - surface Water ice set to 0"
-      swatericefile(:,:,:)=0.
-    else
-      ierr=NF_GET_VAR_REAL(nid,nvarid,swatericefile)
-    endif
-!!------------------------
-!! special water stuff
-!!------------------------
-
-    print *,'CO2 mass mixing ratio'
-    ierr=NF_INQ_VARID(nid,"co2",nvarid)
-    if (ierr.ne.NF_NOERR) then
-      write(*,*) "...No co2 - co2 mixing ratio set to 0.95"
-      co2file(:,:,:,:)=0.95
-    else
-      ierr=NF_GET_VAR_REAL(nid,nvarid,co2file)
-    endif
-
-!!------------------------
-!! special dust stuff
-!!------------------------
-    print *,'Dust mass'
-    ierr=NF_INQ_VARID(nid,"dustq",nvarid)
-    if (ierr.ne.NF_NOERR) then
-      write(*,*) "...No dustq - Dust mass set to 0"
-      dustfile(:,:,:,:)=0.
-    else
-      ierr=NF_GET_VAR_REAL(nid,nvarid,dustfile)
-    endif
-
-    print *,'Dust number'
-    ierr=NF_INQ_VARID(nid,"dustN",nvarid)
-    if (ierr.ne.NF_NOERR) then
-      write(*,*) "...No dustN - Dust number set to 0"
-      dustnfile(:,:,:,:)=0.
-    else
-      ierr=NF_GET_VAR_REAL(nid,nvarid,dustnfile)
-    endif
-
-    print *,'CCN mass'
-    ierr=NF_INQ_VARID(nid,"ccn",nvarid)
-    if (ierr.ne.NF_NOERR) then
-      write(*,*) "...No ccn - CCN mass set to 0"
-      ccnfile(:,:,:,:)=0.
-    else
-      ierr=NF_GET_VAR_REAL(nid,nvarid,ccnfile)
-    endif
-
-    print *,'CCN number'
-    ierr=NF_INQ_VARID(nid,"ccnN",nvarid)
-    if (ierr.ne.NF_NOERR) then
-      write(*,*) "...No ccnN - CCN number set to 0"
-      ccnnfile(:,:,:,:)=0.
-    else
-      ierr=NF_GET_VAR_REAL(nid,nvarid,ccnnfile)
-    endif
-!!------------------------
-!! special dust stuff
-!!------------------------
-
-!SELECT CASE(ident)
-!CASE('LMD')
-
-    print *,'Soil temperatures'
-    ierr=NF_INQ_VARID(nid,"tsoil",nvarid)
-    if (ierr.ne.NF_NOERR) then
-        write(*,*) "...No tsoil - Soil temperatures set isothermal with surface temperature"
-        DO l=1,altlen
-                tsoilfile(:,:,l,:)=tsfile(:,:,:)
-        ENDDO
-    else
-        ierr=NF_GET_VAR_REAL(nid,nvarid,tsoilfile)
-    endif
-
-!!!!!!!!
-!!!!!!!! new physics (but still compatible with old physics)
-    print *,'Soil depths'
-    ierr=NF_INQ_VARID(nid,"soildepth",nvarid)
-    if (ierr.ne.NF_NOERR) then
-        write(*,*) "...No soildepth - Set to -999"  !!! see soil_settings in LMD physics
-        DO l=1,altlen
-                vertdsoil(l)=-999.
-        ENDDO
-    else
-        ierr=NF_GET_VAR_REAL(nid,nvarid,vertdsoil)
-    endif
-    print *, 'wait a minute' !! AS: I know this could be better
-    DO m=1,lonlen
-     DO n=1,latlen
-      DO p=1,timelen
-       dsoilfile(m,n,:,p) = vertdsoil(:) 
-      ENDDO
-     ENDDO
-    ENDDO 
-    DEALLOCATE(vertdsoil)
-
-    print *,'Soil thermal inertia'
-    ierr=NF_INQ_VARID(nid,"inertiedat",nvarid)
-    if (ierr.ne.NF_NOERR) then
-        write(*,*) "...No soil therm. inert. - Set to -999"
-        DO l=1,altlen
-                isoilfile(:,:,l,:)=-999.
-        ENDDO
-    else
-        ierr=NF_GET_VAR_REAL(nid,nvarid,isoilfile)
-    endif
-!!!!!!!!
-!!!!!!!! new physics
-
-
-!!!!!!!!!!!!!!!!!!!!!!!!NEW PHYSICS + PHOTOCHEM
-!!!!!!!!!!!!!!!!!!!!!!!!NEW PHYSICS + PHOTOCHEM
-#ifdef PHOTOCHEM
-    print *,'photochem'
-    DO i=1,nchemtrac
-     print *,wtnom(i)
-     ierr=NF_INQ_VARID(nid,wtnom(i),nvarid)
-     if (ierr.ne.NF_NOERR) then
-       write(*,*) "...No ",wtnom(i), " - set to 0"
-       chemtrac(:,:,:,:,i)=0.
-     else
-       ierr=NF_GET_VAR_REAL(nid,nvarid,chemtrac(:,:,:,:,i))
-     endif
-    ENDDO
-#endif
-!!!!!!!!!!!!!!!!!!!!!!!!NEW PHYSICS + PHOTOCHEM
-!!!!!!!!!!!!!!!!!!!!!!!!NEW PHYSICS + PHOTOCHEM
-
-
-
-!END SELECT
-
-ierr=NF_CLOSE(nid)
-
-!!!!lott stuff
-!print *,'get lott'
-!ierr=NF_OPEN("init_lott.nc",NF_NOWRITE,nid3)
-!ierr=NF_INQ_VARID(nid3,"ZMEA",nvarid)
-!ierr=NF_GET_VAR_REAL(nid3,nvarid,interm)
-!gwparam(:,:,1)=interm(:,:)
-!ierr=NF_INQ_VARID(nid3,"ZSTD",nvarid)
-!ierr=NF_GET_VAR_REAL(nid3,nvarid,interm)
-!gwparam(:,:,2)=interm(:,:)
-!ierr=NF_INQ_VARID(nid3,"ZSIG",nvarid)
-!ierr=NF_GET_VAR_REAL(nid3,nvarid,interm)
-!gwparam(:,:,3)=interm(:,:)
-!ierr=NF_INQ_VARID(nid3,"ZGAM",nvarid)
-!ierr=NF_GET_VAR_REAL(nid3,nvarid,interm)
-!gwparam(:,:,4)=interm(:,:)
-!ierr=NF_INQ_VARID(nid3,"ZTHE",nvarid)
-!ierr=NF_GET_VAR_REAL(nid3,nvarid,interm)
-!gwparam(:,:,5)=interm(:,:)
-!ierr=NF_CLOSE(nid3)
-
-ENDIF
-
-!!-----------------------------
-!! Loop on the written files
-!! >>> what follows is pretty repetitive ... 
-!!        gotta do something (one more loop?)
-!!-----------------------------
-
-!!! Equivalent eta levels for WRF interpolation in initialize_real
-!print *,'Computing equivalent eta levels'
-!	
-!	!ptop will be passed through RH(surface)
-!	ptop=MINVAL(aps(altlen)+bps(altlen)*psfile(:,:,:))
-!	print *, 'ptop', ptop
-!
-!print *, 'sample: equivalent eta levels at i=1,j=1'
-!DO k = 1,altlen
-!        levels(k)=-k
-!        eta_gcm(:,:,k,:)=(aps(k)+bps(k)*psfile(:,:,:)-ptop)/(psfile(:,:,:)-ptop)
-!        print *, eta_gcm(1,1,k,1) 
-!END DO
-
-!!---better to pass pressure values 
-!!---the eta treatment is done in module_initialize_real
-DO k = 1,altlen
-        levels(k)=-k
-        !!dummy decreasing levels
-END DO
-
-
-
-
-!! Dummy surface level is XLVL=200100.
-
-
-DO l=1,FILES
-
-
-!!---------------------------------------------
-!! Write file in intermediate format for WPS
-!! 1. Surface data
-!!---------------------------------------------
-!!
-!! a mettre pour tous sinon
-!!     WRF_DEBUG: Warning DIM             4 , NAME num_metgrid_levels REDIFINED  by
-!!            var DUSTN            26           25  in wrf_io.F90 line         2349
-!!
-
-!
-! These variables remain the same in the "loop"
-!
-HDATE=date_out(l)
-IFV=4
-XFCST=0.
-SOURCE=ident
-NX=lonlen
-NY=latlen
-ALLOCATE(SLAB(NX,NY))
-IPROJ=0
-STARTLOC='SWCORNER'
-STARTLAT=lat(1) 
-STARTLON=lon(1)
-DELTALAT=lat(latlen)-lat(latlen-1)
-DELTALON=lon(lonlen)-lon(lonlen-1)
-!
-! Open the data destination file
-!
-output="./WPSFEED/"//ident//":"//date_out2(l)       
-open(UNIT=1,			&
-	FILE=output,		&
-	STATUS='REPLACE',	&
-	FORM='UNFORMATTED',	&
-	ACCESS='SEQUENTIAL')
-
-!------------------------!    
-! >>> Write a variable   !
-!    ... Copy&Paste part !
-!------------------------! 
-FIELD='T'
-UNITS='K'
-DESC='Atmospheric temperature'
-XLVL=200100.
-SLAB=tnsfile(:,:,time_out(l))
-	! And now put everything in the destination file
-	! ... Header
-        write(1) IFV
-        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
-        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON
-	! ... Data
-	write(1) SLAB
-!print *,'The field '//DESC//' was written to '//output
-
-!------------------------!    
-! >>> Write a variable   !
-!    ... Copy&Paste part !
-!------------------------! 
-FIELD='U'
-UNITS='m s{-1}'
-DESC='Zonal wind'
-XLVL=200100.
-SLAB=unsfile(:,:,time_out(l))
-        ! And now put everything in the destination file
-	! ... Header
-        write(1) IFV
-        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
-        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON 
-	! ... Data
-	write(1) SLAB
-!print *,'The field '//DESC//' was written to '//output
-
-!------------------------!    
-! >>> Write a variable   !
-!    ... Copy&Paste part !
-!------------------------! 
-FIELD='V'
-UNITS='m s{-1}'
-DESC='Meridional wind'
-XLVL=200100.
-SLAB=vnsfile(:,:,time_out(l))
-	! And now put everything in the destination file
-	! ... Header
-        write(1) IFV
-        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
-        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON 
-	! ... Data
-	write(1) SLAB
-!print *,'The field '//DESC//' was written to '//output
-
-!------------------------!    
-! >>> Write a variable   !
-!    ... Copy&Paste part !
-!------------------------! 
-FIELD='RH'
-UNITS=''
-DESC='Customized 2D static field'
-XLVL=200100.
-SLAB=vide(:,:)
-	! And now put everything in the destination file
-	! ... Header
-        write(1) IFV
-        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
-        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON
-	! ... Data
-	write(1) SLAB
-!print *,'The field '//DESC//' was written to '//output
-
-!------------------------!    
-! >>> Write a variable   !
-!    ... Copy&Paste part !
-!------------------------! 
-FIELD='SOILHGT'
-UNITS='m' 
-DESC='Terrain field of source analysis'  !Ground geopotential height
-XLVL=200100.
-SLAB=ghtsfile(:,:)
-	! And now put everything in the destination file
-	! ... Header
-        write(1) IFV
-        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
-        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON
-	! ... Data
-	write(1) SLAB
-!print *,'The field '//DESC//' was written to '//output
-
-!------------------------!    
-! >>> Write a variable   !
-!    ... Copy&Paste part !
-!------------------------! 
-FIELD='PSFC'
-UNITS='Pa'
-DESC='Surface Pressure'
-XLVL=200100.
-SLAB=psfile(:,:,time_out(l))
-	! And now put everything in the destination file
-	! ... Header
-        write(1) IFV
-        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
-        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON
-	! ... Data
-	write(1) SLAB
-!print *,'The field '//DESC//' was written to '//output
-
-!------------------------!    
-! >>> Write a variable   !
-!    ... Copy&Paste part !
-!------------------------! 
-FIELD='ST000010'
-UNITS=''
-DESC='Emissivity'
-XLVL=200100.
-SLAB=emissfile(:,:,time_out(l))
-	! And now put everything in the destination file
-	! ... Header
-        write(1) IFV
-        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
-        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON 
-	! ... Data
-	write(1) SLAB
-!print *,'The field '//DESC//' was written to '//output
-
-!------------------------!    
-! >>> Write a variable   !
-!    ... Copy&Paste part !
-!------------------------! 
-FIELD='ST010040'
-UNITS=''
-DESC='CO2 ice'
-XLVL=200100.
-SLAB=co2icefile(:,:,time_out(l))
-	! And now put everything in the destination file
-	! ... Header
-        write(1) IFV
-        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
-        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON
-	! ... Data
-	write(1) SLAB
-!print *,'The field '//DESC//' was written to '//output
-
-!------------------------!    
-! >>> Write a variable   !
-!    ... Copy&Paste part !
-!------------------------! 
-FIELD='ST040100'
-UNITS=''
-DESC='ZMEA'
-XLVL=200100.
-SLAB=gwparam(:,:,1)
-	! And now put everything in the destination file
-	! ... Header
-        write(1) IFV
-        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
-        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON  
-	! ... Data
-	write(1) SLAB
-!print *,'The field '//DESC//' was written to '//output
-
-!------------------------!    
-! >>> Write a variable   !
-!    ... Copy&Paste part !
-!------------------------! 
-FIELD='ST100200'
-UNITS=''
-DESC='ZSTD'
-XLVL=200100.
-SLAB=gwparam(:,:,2)
-	! And now put everything in the destination file
-	! ... Header
-        write(1) IFV
-        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
-        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON  
-	! ... Data
-	write(1) SLAB
-!print *,'The field '//DESC//' was written to '//output
-
-!------------------------!    
-! >>> Write a variable   !
-!    ... Copy&Paste part !
-!------------------------! 
-FIELD='LANDSEA'
-UNITS='0/1 Flag'
-DESC='Land/Sea flag'
-XLVL=200100.
-SLAB=ones(:,:)
-	! And now put everything in the destination file
-	! ... Header
-        write(1) IFV
-        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
-        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON  
-	! ... Data
-	write(1) SLAB
-!print *,'The field '//DESC//' was written to '//output
-
-!------------------------!    
-! >>> Write a variable   !
-!    ... Copy&Paste part !
-!------------------------! 
-FIELD='SKINTEMP'
-UNITS='K'
-DESC='Ground temperature'
-XLVL=200100.
-SLAB=tsfile(:,:,time_out(l))
-	! And now put everything in the destination file
-	! ... Header
-        write(1) IFV
-        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
-        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON
-	! ... Data
-	write(1) SLAB
-!print *,'The field '//DESC//' was written to '//output
-
-!------------------------!    
-! >>> Write a variable   !
-!    ... Copy&Paste part !
-!------------------------! 
-FIELD='SM000010'
-UNITS=''
-DESC='ZSIG'
-XLVL=200100.
-SLAB=gwparam(:,:,3)
-	! And now put everything in the destination file
-	! ... Header
-        write(1) IFV
-        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
-        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON
-	! ... Data
-	write(1) SLAB
-!print *,'The field '//DESC//' was written to '//output
-
-!------------------------!    
-! >>> Write a variable   !
-!    ... Copy&Paste part !
-!------------------------! 
-FIELD='SM010040'
-UNITS=''
-DESC='ZGAM'
-XLVL=200100.
-SLAB=gwparam(:,:,4)
-	! And now put everything in the destination file
-	! ... Header
-        write(1) IFV
-        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
-        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON
-	! ... Data
-	write(1) SLAB
-!print *,'The field '//DESC//' was written to '//output
-
-!------------------------!    
-! >>> Write a variable   !
-!    ... Copy&Paste part !
-!------------------------! 
-FIELD='SM040100'
-UNITS=''
-DESC='ZTHE'
-XLVL=200100.
-SLAB=gwparam(:,:,5)
-	! And now put everything in the destination file
-	! ... Header
-        write(1) IFV
-        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
-        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON
-	! ... Data
-	write(1) SLAB
-!print *,'The field '//DESC//' was written to '//output
-
-!------------------------!    
-! >>> Write a variable   !
-!    ... Copy&Paste part !
-!------------------------! 
-FIELD='SM100200'
-UNITS='kg/m2'
-DESC='Surf water ice'
-XLVL=200100.
-SLAB=swatericefile(:,:,time_out(l))
-	! And now put everything in the destination file
-	! ... Header
-        write(1) IFV
-        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
-        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON 
-	! ... Data
-	write(1) SLAB
-!print *,'The field '//DESC//' was written to '//output
-
-
-!------------------------!
-! >>> Write a variable   !
-!    ... Copy&Paste part !
-!------------------------!
-FIELD='HV'
-UNITS='kg/kg'
-DESC='Water vapor'
-XLVL=200100.
-SLAB=waterfile(:,:,1,time_out(l))
-        ! And now put everything in the destination file
-        ! ... Header
-        write(1) IFV
-        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
-        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON
-        ! ... Data
-        write(1) SLAB
-!print *,'The field '//DESC//' was written to '//output
-
-!------------------------!
-! >>> Write a variable   !
-!    ... Copy&Paste part !
-!------------------------!
-FIELD='HI'
-UNITS='kg/kg'
-DESC='Water ice'
-XLVL=200100.
-SLAB=watericefile(:,:,1,time_out(l))
-        ! And now put everything in the destination file
-        ! ... Header
-        write(1) IFV
-        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
-        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON
-        ! ... Data
-        write(1) SLAB
-!print *,'The field '//DESC//' was written to '//output
-
-!------------------------!
-! >>> Write a variable   !
-!    ... Copy&Paste part !
-!------------------------!
-FIELD='TSOIL'
-UNITS='K'
-DESC='Soil temperature'
-XLVL=200100.
-SLAB=tsoilfile(:,:,1,time_out(l))
-        ! And now put everything in the destination file
-        ! ... Header
-        write(1) IFV
-        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
-        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON
-        ! ... Data
-        write(1) SLAB
-!print *,'The field '//DESC//' was written to '//output
-
-!------------------------!
-! >>> Write a variable   !
-!    ... Copy&Paste part !
-!------------------------!
-FIELD='DSOIL'
-UNITS='m'
-DESC='Soil depths'
-XLVL=200100.
-SLAB=dsoilfile(:,:,1,time_out(l))
-        ! And now put everything in the destination file
-        ! ... Header
-        write(1) IFV
-        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
-        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON
-        ! ... Data
-        write(1) SLAB
-!print *,'The field '//DESC//' was written to '//output
-
-!------------------------!
-! >>> Write a variable   !
-!    ... Copy&Paste part !
-!------------------------!
-FIELD='ISOIL'
-UNITS='tiu'
-DESC='Soil thermal inertia'
-XLVL=200100.
-SLAB=isoilfile(:,:,1,time_out(l))
-        ! And now put everything in the destination file
-        ! ... Header
-        write(1) IFV
-        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
-        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON
-        ! ... Data
-        write(1) SLAB
-!print *,'The field '//DESC//' was written to '//output
-
-!------------------------!
-! >>> Write a variable   !
-!    ... Copy&Paste part !
-!------------------------!
-FIELD='CO2'
-UNITS='kg/kg'
-DESC='CO2 mixing ratio'
-XLVL=200100.
-SLAB=co2file(:,:,1,time_out(l))
-        ! And now put everything in the destination file
-        ! ... Header
-        write(1) IFV
-        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
-        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON
-        ! ... Data
-        write(1) SLAB
-!print *,'The field '//DESC//' was written to '//output
-
-!------------------------!
-! >>> Write a variable   !
-!    ... Copy&Paste part !
-!------------------------!
-FIELD='DUSTQ'
-UNITS='kg/kg'
-DESC='Dust mixing ratio'
-XLVL=200100.
-SLAB=dustfile(:,:,1,time_out(l))
-        ! And now put everything in the destination file
-        ! ... Header
-        write(1) IFV
-        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
-        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON
-        ! ... Data
-        write(1) SLAB
-!print *,'The field '//DESC//' was written to '//output
-
-!------------------------!
-! >>> Write a variable   !
-!    ... Copy&Paste part !
-!------------------------!
-FIELD='DUSTN'
-UNITS='part/kg' 
-DESC='Dust number density'
-XLVL=200100.
-SLAB=dustnfile(:,:,1,time_out(l))
-        ! And now put everything in the destination file
-        ! ... Header
-        write(1) IFV
-        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
-        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON
-        ! ... Data
-        write(1) SLAB
-!print *,'The field '//DESC//' was written to '//output
-
-!------------------------!
-! >>> Write a variable   !
-!    ... Copy&Paste part !
-!------------------------!
-FIELD='CCNQ'
-UNITS='kg/kg'
-DESC='CCN mixing ratio'
-XLVL=200100.
-SLAB=ccnfile(:,:,1,time_out(l))
-        ! And now put everything in the destination file
-        ! ... Header
-        write(1) IFV
-        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
-        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON
-        ! ... Data
-        write(1) SLAB
-!print *,'The field '//DESC//' was written to '//output
-
-!------------------------!
-! >>> Write a variable   !
-!    ... Copy&Paste part !
-!------------------------!
-FIELD='CCNN'
-UNITS='part/kg'
-DESC='CCN number density'
-XLVL=200100.
-SLAB=ccnnfile(:,:,1,time_out(l))
-        ! And now put everything in the destination file
-        ! ... Header
-        write(1) IFV
-        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
-        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON
-        ! ... Data
-        write(1) SLAB
-!print *,'The field '//DESC//' was written to '//output
-
-
-!------------------------!
-! >>> Write a variable   !
-!     PHOTOCHEMISTRY     !
-!------------------------!
-#ifdef PHOTOCHEM
-    DO i=1,nchemtrac
-       FIELD=wtnom(i)
-       UNITS='units'
-       DESC='desc'
-       XLVL=200100.
-       SLAB=chemtrac(:,:,1,time_out(l),i)
-       ! And now put everything in the destination file
-       ! ... Header
-       write(1) IFV
-       write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
-       write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON
-       ! ... Data
-       write(1) SLAB
-    ENDDO
-#endif
-
-!!----------------------------------------------------
-!! Write file in intermediate format for WPS
-!! 2. 3D meteorological data
-!! >>> same stuff, but handle vertical profile
-!! >>> !! XLVL must be decreasing (pressure levels) 
-!!----------------------------------------------------
-
-!------------------------!    
-! >>> Write a variable   !
-!    ... Copy&Paste part !
-!------------------------! 
-FIELD='T'
-UNITS='K'
-DESC='Atmospheric temperature'
-DO k = 1,altlen
-	XLVL=levels(k)
-	SLAB=tfile(:,:,k,time_out(l))
-		! And now put everything in the destination file
-		! ... Header
-        write(1) IFV
-        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
-        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON  
-		! ... Data
-		write(1) SLAB
-END DO
-!print *,'The field '//DESC//' was written to '//output
-
-!------------------------!    
-! >>> Write a variable   !
-!    ... Copy&Paste part !
-!------------------------! 
-FIELD='U'
-UNITS='m s{-1}'
-DESC='Zonal wind'
-DO k = 1,altlen
-        XLVL=levels(k)
-	SLAB=ufile(:,:,k,time_out(l))
-		! And now put everything in the destination file
-		! ... Header
-        write(1) IFV
-        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
-        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON  
-		! ... Data
-		write(1) SLAB
-END DO
-!print *,'The field '//DESC//' was written to '//output
-
-!------------------------!    
-! >>> Write a variable   !
-!    ... Copy&Paste part !
-!------------------------! 
-FIELD='V'
-UNITS='m s{-1}'
-DESC='Meridional wind'
-DO k = 1,altlen
-        XLVL=levels(k)
-	SLAB=vfile(:,:,k,time_out(l))
-		! And now put everything in the destination file
-		! ... Header
-        write(1) IFV
-        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
-        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON  
-		! ... Data
-		write(1) SLAB
-END DO
-!print *,'The field '//DESC//' was written to '//output
-
-!------------------------!    
-! >>> Write a variable   !
-!    ... Copy&Paste part !
-!------------------------! 
-FIELD='RH'
-UNITS=''
-DESC='Customized 2D static field'
-DESC='Eta-levels from the GCM'
-DESC='Pressure values from the GCM'
-DO k = 1,altlen
-        XLVL=levels(k)
-SELECT CASE(ident)
-CASE('LMD')
-        SLAB=aps(k)+bps(k)*psfile(:,:,time_out(l))
-CASE('OXF')
-	SLAB=bps(k)*psfile(:,:,time_out(l))
-END SELECT
-		! And now put everything in the destination file
-		! ... Header
-        write(1) IFV
-        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
-        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON  
-		! ... Data
-		write(1) SLAB
-END DO
-!print *,'The field '//DESC//' was written to '//output
-
-!------------------------!    
-! >>> Write a variable   !
-!    ... Copy&Paste part !
-!------------------------! 
-FIELD='HGT'
-UNITS='m'
-DESC='Height'
-DO k = 1,altlen
-        XLVL=levels(k)
-!!*******
-!! PROVISOIRE: normalement, il faudrait la hauteur geopotentielle
-!!*******
-!!however, not used by initialize_real
-SELECT CASE(ident)
-CASE('LMD')
-        SLAB=10000.*alog(610./(aps(k)+bps(k)*psfile(:,:,time_out(l))))
-CASE('OXF')
-	SLAB=10000.*alog(610./(bps(k)*psfile(:,:,time_out(l))))
-END SELECT
-		! And now put everything in the destination file
-		! ... Header
-        write(1) IFV
-        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
-        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON  
-		! ... Data
-		write(1) SLAB
-END DO
-!print *,'The field '//DESC//' was written to '//output
-
-!------------------------!
-! >>> Write a variable   !
-!    ... Copy&Paste part !
-!------------------------!
-FIELD='HV'
-UNITS='kg/kg'
-DESC='Water vapor'
-DO k = 1,altlen
-        XLVL=levels(k)
-        SLAB=waterfile(:,:,k,time_out(l))
-                ! And now put everything in the destination file
-                ! ... Header
-        write(1) IFV
-        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
-        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON
-                ! ... Data
-                write(1) SLAB
-END DO
-!print *,'The field '//DESC//' was written to '//output
-
-!------------------------!
-! >>> Write a variable   !
-!    ... Copy&Paste part !
-!------------------------!
-FIELD='HI'
-UNITS='kg/kg'
-DESC='Water ice'
-DO k = 1,altlen
-        XLVL=levels(k)
-        SLAB=watericefile(:,:,k,time_out(l))
-                ! And now put everything in the destination file
-                ! ... Header
-        write(1) IFV
-        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
-        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON
-                ! ... Data
-                write(1) SLAB
-END DO
-!print *,'The field '//DESC//' was written to '//output
-
-!------------------------!
-! >>> Write a variable   !
-!    ... Copy&Paste part !
-!------------------------!
-FIELD='TSOIL'
-UNITS='K'
-DESC='Soil temperature'
-DO k = 1,altlen
-        XLVL=levels(k)
-        SLAB=tsoilfile(:,:,k,time_out(l))
-                ! And now put everything in the destination file
-                ! ... Header
-        write(1) IFV
-        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
-        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON
-                ! ... Data
-                write(1) SLAB
-END DO
-!print *,'The field '//DESC//' was written to '//output
-
-!------------------------!
-! >>> Write a variable   !
-!    ... Copy&Paste part !
-!------------------------!
-FIELD='DSOIL'
-UNITS='m'
-DESC='Soil depths'
-DO k = 1,altlen
-        XLVL=levels(k)
-        SLAB=dsoilfile(:,:,k,time_out(l))
-                ! And now put everything in the destination file
-                ! ... Header
-        write(1) IFV
-        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
-        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON
-                ! ... Data
-                write(1) SLAB
-END DO
-!print *,'The field '//DESC//' was written to '//output
-
-!------------------------!
-! >>> Write a variable   !
-!    ... Copy&Paste part !
-!------------------------!
-FIELD='ISOIL'
-UNITS='tiu'
-DESC='Soil thermal inertia'
-DO k = 1,altlen
-        XLVL=levels(k)
-        SLAB=isoilfile(:,:,k,time_out(l))
-                ! And now put everything in the destination file
-                ! ... Header
-        write(1) IFV
-        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
-        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON
-                ! ... Data
-                write(1) SLAB
-END DO
-!print *,'The field '//DESC//' was written to '//output
-
-!------------------------!
-! >>> Write a variable   !
-!    ... Copy&Paste part !
-!------------------------!
-FIELD='CO2'
-UNITS='kg/kg'
-DESC='CO2 mixing ratio'
-DO k = 1,altlen
-        XLVL=levels(k)
-        SLAB=co2file(:,:,k,time_out(l))
-                ! And now put everything in the destination file
-                ! ... Header
-        write(1) IFV
-        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
-        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON
-                ! ... Data
-                write(1) SLAB
-END DO
-!print *,'The field '//DESC//' was written to '//output
-
-!------------------------!
-! >>> Write a variable   !
-!    ... Copy&Paste part !
-!------------------------!
-FIELD='DUSTQ'
-UNITS='kg/kg'
-DESC='Dust mixing ratio'
-DO k = 1,altlen
-        XLVL=levels(k)
-        SLAB=dustfile(:,:,k,time_out(l))
-                ! And now put everything in the destination file
-                ! ... Header
-        write(1) IFV
-        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
-        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON
-                ! ... Data
-                write(1) SLAB
-END DO
-!print *,'The field '//DESC//' was written to '//output
-
-!------------------------!
-! >>> Write a variable   !
-!    ... Copy&Paste part !
-!------------------------!
-FIELD='DUSTN'
-UNITS='part/kg'
-DESC='Dust number density'
-DO k = 1,altlen
-        XLVL=levels(k)
-        SLAB=dustnfile(:,:,k,time_out(l))
-                ! And now put everything in the destination file
-                ! ... Header
-        write(1) IFV
-        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
-        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON
-                ! ... Data
-                write(1) SLAB
-END DO
-!print *,'The field '//DESC//' was written to '//output
-
-!------------------------!
-! >>> Write a variable   !
-!    ... Copy&Paste part !
-!------------------------!
-FIELD='CCNQ'
-UNITS='kg/kg'
-DESC='CCN mixing ratio'
-DO k = 1,altlen
-        XLVL=levels(k)
-        SLAB=ccnfile(:,:,k,time_out(l))
-                ! And now put everything in the destination file
-                ! ... Header
-        write(1) IFV
-        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
-        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON
-                ! ... Data
-                write(1) SLAB
-END DO
-!print *,'The field '//DESC//' was written to '//output
-
-!------------------------!
-! >>> Write a variable   !
-!    ... Copy&Paste part !
-!------------------------!
-FIELD='CCNN'
-UNITS='part/kg'
-DESC='CCN number density'
-DO k = 1,altlen
-        XLVL=levels(k)
-        SLAB=ccnnfile(:,:,k,time_out(l))
-                ! And now put everything in the destination file
-                ! ... Header
-        write(1) IFV
-        write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
-        write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON
-                ! ... Data
-                write(1) SLAB
-END DO
-!print *,'The field '//DESC//' was written to '//output
-
-
-!------------------------!
-! >>> Write a variable   !
-!     PHOTOCHEMISTRY     !
-!------------------------!
-#ifdef PHOTOCHEM
-    DO i=1,nchemtrac
-       FIELD=wtnom(i)
-       UNITS='units'
-       DESC='desc'
-       DO k = 1,altlen
-         XLVL=levels(k)
-         SLAB=chemtrac(:,:,k,time_out(l),i)
-         ! And now put everything in the destination file
-         ! ... Header
-         write(1) IFV
-         write(1) HDATE,XFCST,SOURCE,FIELD,UNITS,DESC,XLVL,NX,NY,IPROJ
-         write(1) STARTLOC,STARTLAT,STARTLON,DELTALAT,DELTALON
-         ! ... Data
-         write(1) SLAB
-       END DO
-    ENDDO
-#endif
-
-print *,'****done file '//output, int(100.*float(l)/float(FILES)), ' % '
-close(1)
-
-DEALLOCATE(SLAB)
-
-END DO !! end of the files loop
-
-
-!!-------------------------
-!! DeAllocate local arrays
-!!-------------------------
-deallocate(eta_gcm)
-deallocate(tfile)
-deallocate(tsoilfile)
-deallocate(isoilfile)
-deallocate(dsoilfile)
-!deallocate(tfileorig)
-deallocate(ufile)
-!deallocate(ufileorig)
-deallocate(vfile)
-!deallocate(vfileorig)
-deallocate(rfile)
-deallocate(hfile)  
-deallocate(waterfile)
-deallocate(watericefile)
-!deallocate(swaterfile)
-deallocate(swatericefile)
-deallocate(dustfile)
-deallocate(dustnfile)
-deallocate(co2file)
-deallocate(ccnfile)
-deallocate(ccnnfile)
-deallocate(psfile) 
-deallocate(tsfile)
-deallocate(tnsfile)
-deallocate(unsfile)
-deallocate(vnsfile)
-deallocate(emissfile)
-deallocate(co2icefile)
-deallocate(ghtsfile)	!! no scan axis
-deallocate(vide)
-deallocate(ones)
-deallocate(lat, lon, alt, time)
-deallocate(aps,bps,levels)
-
-#ifdef PHOTOCHEM
-deallocate(chemtrac)
-deallocate(wtnom)
-#endif
-
-print *, '------------------------'
-print *, 'End of pre-WPS process !'
-print *, '------------------------'
-print *, 'Here is what you should set in namelist.wps:' 
-print *, " start_date = '"//date_out2(1)//"'"
-print *, " end_date = '"//date_out2(FILES)//"'"
-print *, '------------------------'
-print *, 'Any date between those is ok'
-print *, 'for example, second available date is ... '//date_out2(2)
-print *, '------------------------'
-
-end
Index: trunk/MESOSCALE/LMD_MM_MARS/SRC/SCRIPTS/NETCDF/gfortran_netcdf4_fpic2
===================================================================
--- trunk/MESOSCALE/LMD_MM_MARS/SRC/SCRIPTS/NETCDF/gfortran_netcdf4_fpic2	(revision 1662)
+++ trunk/MESOSCALE/LMD_MM_MARS/SRC/SCRIPTS/NETCDF/gfortran_netcdf4_fpic2	(revision 1724)
@@ -7,6 +7,6 @@
 #cd netcdf-3.6.1
 
-#cp /donnees/emlmd/Downloads/Software/netcdf-4.0.1.tar.gz .
-#gunzip netcdf-4.0.1.tar.gz
+cp /donnees/emlmd/Downloads/Software/netcdf-4.0.1.tar.gz .
+gunzip netcdf-4.0.1.tar.gz
 tar xvf netcdf-4.0.1.tar
 cd netcdf-4.0.1
@@ -35,6 +35,6 @@
 export CXXFLAGS="-O2 -fPIC"
 
-mkdir /home/marshttp/NETCDF/netcdf64-4.0.1_gfortran_fPIC
-./configure --prefix=/home/marshttp/NETCDF/netcdf64-4.0.1_gfortran_fPIC #> configure.log 2>&1
+mkdir /u/mlefevre/NETCDF/netcdf64-4.0.1_gfortran_fPIC
+./configure --prefix=/u/mlefevre/NETCDF/netcdf64-4.0.1_gfortran_fPIC #> configure.log 2>&1
 make #> make.log 2>&1
 make test #> make_test.log 2>&1
Index: trunk/MESOSCALE/LMD_MM_MARS/SRC/WPS/geogrid/GEOGRID.TBL.ARW
===================================================================
--- trunk/MESOSCALE/LMD_MM_MARS/SRC/WPS/geogrid/GEOGRID.TBL.ARW	(revision 1662)
+++ trunk/MESOSCALE/LMD_MM_MARS/SRC/WPS/geogrid/GEOGRID.TBL.ARW	(revision 1724)
@@ -19,4 +19,5 @@
         interp_option =		custom:four_pt
         interp_option =         omega:four_pt
+        interp_option =         venus_gcm:average_gcell(4.0)+four_pt+average_4p
         rel_path=               default:mola_topo32/
         rel_path= 		32ppd:mola_topo32/
@@ -27,4 +28,5 @@
         rel_path=               custom:crater2/
         rel_path=               omega:mola_topo64/
+        rel_path=               venus_gcm:Venus_topo/
 ===============================
 name = HGT_U
@@ -43,4 +45,5 @@
         interp_option =         omega:four_pt
         interp_option =         gcm:four_pt
+        interp_option =         venus_gcm:average_gcell(4.0)+four_pt+average_4pt
         rel_path=               default:mola_topo32/
         rel_path=               32ppd:mola_topo32/
@@ -51,4 +54,5 @@
         rel_path=               custom:crater2/
         rel_path=               omega:mola_topo64/
+        rel_path=               venus_gcm:Venus_topo/
 ===============================
 name = HGT_V
@@ -75,4 +79,5 @@
         rel_path=               custom:crater2/
         rel_path=               omega:mola_topo64/
+        rel_path=               venus_gcm:Venus_topo/
 ===============================
 name = THERMAL_INERTIA
@@ -97,4 +102,6 @@
 #	fill_missing=400. #north polar TI (needed with thermal_TES)
 #        fill_missing=180. #polar projection artefacts
+        interp_option =         venus_gcm:average_gcell(4.0)+four_pt+average_4pt
+        rel_path=               venus_gcm:Venus_topo/
 ===============================
 name = ALBEDO_GCM
@@ -119,4 +126,6 @@
         interp_option = gcm:four_pt
         rel_path =      gcm:albedo_GCM/
+        interp_option =         venus_gcm:average_gcell(4.0)+four_pt+average_4pt
+        rel_path=               venus_gcm:Venus_topo/
 #===============================
 #name=LANDUSEF
Index: trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/Registry/Registry.EM
===================================================================
--- trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/Registry/Registry.EM	(revision 1662)
+++ trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/Registry/Registry.EM	(revision 1724)
@@ -112,4 +112,9 @@
 state  real  WSTAR     ij   misc  1  -  rd   "WSTAR"     "FREE CONVECTION VELOCITY FROM TH" "m/s"    #SAVEMARS2 wstar
 state  real  Z0SET     ij   misc  1  -  rd   "Z0SET"     "SET SURFACE ROUGHNESS"           "m"       #SAVEMARS2 z0
+state  real  HR_DYN     ikj   misc  1  -  -  "HR_DYN"     "HEATING RATE DYN"                 "K/s"
+state  real  DDT     ikj   misc  1  -  -  "DDT"     "TEMPERATURE TENDENCY"                 "K/s"
+state  real  DT_RAD     ikj   misc  1  -  -  "DT_RAD"     "RADIATIVE TEMPERATURE TENDENCY"                 "K/s"
+state  real  DT_VDF     ikj   misc  1  -  -  "DT_VDF"     "PBL CLMAIN TEMPERATURE TENDENCY"                 "K/s"
+state  real  DT_AJS     ikj   misc  1  -  -  "DT_AJS"     "AJUSTEMENT SEC TEMPERATURE TENDENCY"                 "K/s"
 
 ####
Index: trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/Registry/Registry.EM.newphys
===================================================================
--- trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/Registry/Registry.EM.newphys	(revision 1662)
+++ trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/Registry/Registry.EM.newphys	(revision 1724)
@@ -80,4 +80,9 @@
 state  real  HR_SW     ikj   misc  1  -  h  "HR_SW"     "HEATING RATE SW"                 "K/s"
 state  real  HR_LW     ikj   misc  1  -  h  "HR_LW"     "HEATING RATE LW"                 "K/s"
+state  real  HR_DYN     ikj   misc  1  -  -  "HR_DYN"     "HEATING RATE DYN"                 "K/s"
+state  real  DDT     ikj   misc  1  -  -  "DDT"     "TEMPERATURE TENDENCY"                 "K/s"
+state  real  DT_RAD     ikj   misc  1  -  -  "DT_RAD"     "RADIATIVE TEMPERATURE TENDENCY"                 "K/s"
+state  real  DT_VDF     ikj   misc  1  -  -  "DT_VDF"     "PBL CLMAIN TEMPERATURE TENDENCY"                 "K/s"
+state  real  DT_AJS     ikj   misc  1  -  -  "DT_AJS"     "AJUSTEMENT SEC TEMPERATURE TENDENCY"                 "K/s"
 state  real  SWDOWNZ    ij   misc  1  -  h  "SWDOWNZ"   "DOWNWARD SW FLUX AT SURFACE"     "W m-2"
 #### DUST CYCLE
@@ -106,15 +111,12 @@
 #### - effacer le h si l'on veut eviter les sorties
 ####
-state  real  -          ikjftb  scalar  1  -  -                         -
-state  real  qh2o       ikjftb  scalar  1  -  i01rhusdf=(bdy_interp:dt)  "QH2O"          "Water vapor mixing ratio"    "kg kg-1"
-state  real  qh2o_ice   ikjftb  scalar  1  -  i01rhusdf=(bdy_interp:dt)  "QH2O_ICE"      "Water ice mixing ratio"      "kg kg-1"
-state  real  qdust      ikjftb  scalar  1  -  i01rhusdf=(bdy_interp:dt)  "QDUST"         "Dust mixing ratio"           "kg kg-1"
-state  real  qdustn     ikjftb  scalar  1  -  i01rhusdf=(bdy_interp:dt)  "QDUSTN"        "Dust_number mixing ratio"    "kg kg-1"
-state  real  qccn       ikjftb  scalar  1  -  i01rhusdf=(bdy_interp:dt)  "QCCN"          "CCN mixing ratio"            "kg kg-1"
-state  real  qccnn      ikjftb  scalar  1  -  i01rhusdf=(bdy_interp:dt)  "QCCNN"         "CCN number mixing ratio"     "kg kg-1"
-state  real  qco2       ikjftb  scalar  1  -  i01rhusdf=(bdy_interp:dt)  "QCO2"          "CO2 mixing ratio"            "kg kg-1"
-state  real  qco2_ice   ikjftb  scalar  1  -  i01rhusdf=(bdy_interp:dt)  "QCO2_ICE"      "CO2 ice mixing ratio"        "kg kg-1"
-state  real  qccn_co2   ikjftb  scalar  1  -  i01rhusdf=(bdy_interp:dt)  "QCCN_CO2"      "CO2 CCN mixing ratio"        "kg kg-1"
-state  real  qccnn_co2  ikjftb  scalar  1  -  i01rhusdf=(bdy_interp:dt)  "QCCNN_CO2"     "CO2 CCN number mixing ratio" "kg kg-1"
+state  real  -         ikjftb  scalar  1  -  -                         -
+state  real  qh2o      ikjftb  scalar  1  -  i01rhusdf=(bdy_interp:dt)  "QH2O"          "Water vapor mixing ratio"   "kg kg-1"
+state  real  qh2o_ice  ikjftb  scalar  1  -  i01rhusdf=(bdy_interp:dt)  "QH2O_ICE"      "Water ice mixing ratio"     "kg kg-1"
+state  real  qdust     ikjftb  scalar  1  -  i01rhusdf=(bdy_interp:dt)  "QDUST"         "Dust mixing ratio"          "kg kg-1"
+state  real  qdustn    ikjftb  scalar  1  -  i01rhusdf=(bdy_interp:dt)  "QDUSTN"        "Dust_number mixing ratio"   "kg kg-1"
+state  real  qccn      ikjftb  scalar  1  -  i01rhusdf=(bdy_interp:dt)  "QCCN"         "CCN mixing ratio"          "kg kg-1"
+state  real  qccnn     ikjftb  scalar  1  -  i01rhusdf=(bdy_interp:dt)  "QCCNN"        "CCN number mixing ratio"   "kg kg-1"
+state  real  qco2      ikjftb  scalar  1  -  i01rhusdf=(bdy_interp:dt)  "QCO2"          "CO2 mixing ratio"           "kg kg-1"
 state  real  chem_co   ikjftb  scalar  1  -  i01rusdf=(bdy_interp:dt)  "chem_co"     ""   ""
 state  real  chem_o    ikjftb  scalar  1  -  i01rusdf=(bdy_interp:dt)  "chem_o"      ""   ""
@@ -130,4 +132,5 @@
 state  real  chem_n2   ikjftb  scalar  1  -  i01rusdf=(bdy_interp:dt)  "chem_n2"     ""   ""
 state  real  chem_ar   ikjftb  scalar  1  -  i01rusdf=(bdy_interp:dt)  "chem_ar"     ""   ""
+####
 ####
 ####MARS MARS MARS MARS MARS
@@ -1267,7 +1270,7 @@
 rconfig   logical pert_coriolis           namelist,dynamics	max_domains  .false.  irh  "pert_coriolis"    ""   ""
 rconfig   logical mix_full_fields         namelist,dynamics     max_domains  .false.  irh  "mix_full_field"   ""   ""
-rconfig   real    base_pres               namelist,dynamics	1             610.     h    "base_pres"  "Mars Base state pressure, real only"      "Pa"
-rconfig   real    base_temp               namelist,dynamics	1             220.     h    "base_temp"  "Mars Base state sea level temperature, real only"      "K"
-rconfig   real    base_lapse              namelist,dynamics	1              30.     h    "base_lapse" "Mars Base state temperature difference between base pres and 1/e of atm depth - do not change, real only"      "K"
+rconfig   real    base_pres               namelist,dynamics	1             9.2e6     h    "base_pres"  "Mars Base state pressure, real only"      "Pa"
+rconfig   real    base_temp               namelist,dynamics	1             735.     h    "base_temp"  "Mars Base state sea level temperature, real only"      "K"
+rconfig   real    base_lapse              namelist,dynamics	1             100.     h    "base_lapse" "Mars Base state temperature difference between base pres and 1/e of atm depth - do not change, real only"      "K"
 rconfig   real    tiso                    namelist,dynamics     1             140.     h    "tiso"    "Mars isothermal value for high alt, real only"  "K"
 
@@ -1354,5 +1357,4 @@
 package   newwater     mars==11                     -              scalar:qh2o,qh2o_ice,qdust,qdustn
 package   newwatersca  mars==12                     -              scalar:qh2o,qh2o_ice,qdust,qdustn,qccn,qccnn
-package   cloudco2     mars==32                     -              scalar:qh2o,qh2o_ice,qdust,qdustn,qccn,qccnn,qco2,qco2_ice,qccn_co2,qccnn_co2
 package   photochem    mars==42                     -              scalar:qco2,chem_co,chem_o,chem_o1d,chem_o2,chem_o3,chem_h,chem_h2,chem_oh,chem_ho2,chem_h2o2,chem_ch4,chem_n2,chem_ar,qh2o_ice,qh2o,qdust,qdustn
 ##### MARS OPTIONS
Index: trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/dyn_em/module_big_step_utilities_em.F
===================================================================
--- trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/dyn_em/module_big_step_utilities_em.F	(revision 1662)
+++ trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/dyn_em/module_big_step_utilities_em.F	(revision 1724)
@@ -18,5 +18,4 @@
    USE module_configure
    USE module_wrf_error
-
 CONTAINS
 
@@ -569,5 +568,5 @@
       ENDDO
       ENDDO
-
+      !print*,'muu(i,j)',muu(1,:)
    ELSE IF (name .EQ. 'v')THEN
 
@@ -588,5 +587,5 @@
       ENDDO
       ENDDO
-
+      !print*,'muv(i,j)',muv(1,:)
    ELSE IF (name .EQ. 'w')THEN
       itf=MIN(ite,ide-1)
@@ -621,5 +620,6 @@
       ENDDO
       ENDDO
-   
+      !print*,'field(i,k,j)',field(1,:,1)
+      !print*,'(mu(i,j)+mub(i,j))',(mu(1,:)+mub(1,:))   
    ENDIF
 
@@ -1052,7 +1052,8 @@
 
   IF (non_hydrostatic) THEN
-
+      print*,'n_moist',n_moist
+      print*,'PARAM_FIRST_SCALAR',PARAM_FIRST_SCALAR
       IF (n_moist >= PARAM_FIRST_SCALAR ) THEN  
-
+        print*,'p(i,k,j)_before',p(1,:,1)
         DO j=jts,jtf
         DO k=kts,ktf
@@ -1075,5 +1076,5 @@
         ENDDO
         ENDDO
-
+        print*,'p(i,k,j)_after',p(1,:,1)
       ELSE
 
@@ -4075,5 +4076,5 @@
    INTEGER :: i_start, i_end, j_start, j_end, k_start, k_end, i_startu, j_startv
    INTEGER :: i, j, k
-   REAL    :: w1, w2, z0, z1, z2
+   REAL    :: w1, w2, z0, z1, z2,temp
 
 !-----------------------------------------------------------------------
@@ -4099,5 +4100,4 @@
 
 !  compute thermodynamics and velocities at pressure points
-
     do j = j_start,j_end
     do k = k_start, k_end
@@ -4107,5 +4107,9 @@
       p_phy(i,k,j) = p(i,k,j) + pb(i,k,j)
       pi_phy(i,k,j) = (p_phy(i,k,j)/p1000mb)**rcp
-      t_phy(i,k,j) = th_phy(i,k,j)*pi_phy(i,k,j)
+      IF (planet .eq. "venus" ) THEN
+        t_phy(i,k,j)= (th_phy(i,k,j)**nu - nu*(TT00**nu)*log((p1000mb/p_phy(i,k,j))**rcp))**(1/nu)
+      ELSE
+        t_phy(i,k,j) = th_phy(i,k,j)*pi_phy(i,k,j)
+      ENDIF
       rho(i,k,j) = 1./alt(i,k,j)*(1.+moist(i,k,j,P_QV))
       mu_3d(i,k,j) = mu(i,j)
Index: trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/dyn_em/module_init_utilities.F
===================================================================
--- trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/dyn_em/module_init_utilities.F	(revision 1662)
+++ trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/dyn_em/module_init_utilities.F	(revision 1724)
@@ -91,4 +91,92 @@
  END FUNCTION interp_0
 
+ real function interp_0_log( v_in,  &
+                         p_in, p_out, nz_in  )
+ implicit none
+ integer nz_in, nz_out
+ real    v_in(nz_in), p_in(nz_in)
+ real    p_out
+
+ integer kp, k, im, ip
+ logical interp, increasing_z 
+ real    height, w1, w2
+ logical debug
+ parameter ( debug = .false. )
+
+! does vertical coordinate increase or decrease with increasing k?
+! set offset appropriately
+
+ height = p_out
+
+ if(debug) write(6,*) ' height in interp_0 ',height
+
+ if (p_in(nz_in) .gt. p_in(1)) then
+
+    if(debug) write(6,*) ' monotonic increase in z in interp_0 '
+    IF (height > p_in(nz_in)) then
+      if(debug) write(6,*) ' point 1 in interp_0 '
+      w2 = log(p_in(nz_in)/height)/log(p_in(nz_in)/p_in(nz_in-1))
+      w1 = 1.-w2
+      interp_0_log = w1*v_in(nz_in) + w2*v_in(nz_in-1)
+    ELSE IF (height < p_in(1)) then
+      if(debug) write(6,*) ' point 2 in interp_0 '
+      w2 = log(p_in(2)/height)/log(p_in(2)/p_in(1))
+      w1 = 1.-w2
+      interp_0_log = w1*v_in(2) + w2*v_in(1)
+    ELSE
+      if(debug) write(6,*) ' point 3 in interp_0 '
+      interp = .false.
+      kp = nz_in
+      DO WHILE ( (interp .eqv. .false.) .and. (kp .ge. 2) )
+        IF(   ((p_in(kp)   .ge. height) .and.     &
+               (p_in(kp-1) .le. height))        )   THEN
+          w2 = log(height/p_in(kp))/log(p_in(kp-1)/p_in(kp))
+          w1 = 1.-w2
+          interp_0_log = w1*v_in(kp) + w2*v_in(kp-1)
+          if(debug) write(6,*) ' interp data, kp, w1, w2 ',kp, w1, w2
+          if(debug) write(6,*) ' interp data, v_in(kp), v_in(kp-1), interp_0_p ', &
+                     v_in(kp), v_in(kp-1), interp_0_log
+          interp = .true.
+        END IF
+        kp = kp-1
+      ENDDO
+    ENDIF
+
+ else
+
+    if(debug) write(6,*) ' monotonic decrease in z in interp_0 '
+
+    IF (height < p_in(nz_in)) then
+      if(debug) write(6,*) ' point 1 in interp_0 '
+      w2 = log(p_in(nz_in)/height)/log(p_in(nz_in)/p_in(nz_in-1))
+      w1 = 1.-w2
+      interp_0_log = w1*v_in(nz_in) + w2*v_in(nz_in-1)
+    ELSE IF (height > p_in(1)) then
+      if(debug) write(6,*) ' point 2 in interp_0 '
+      w2 = log(p_in(2)/height)/log(p_in(2)/p_in(1))
+      w1 = 1.-w2
+      interp_0_log = w1*v_in(2) + w2*v_in(1)
+    ELSE
+      if(debug) write(6,*) ' point 3 in interp_0 '
+      interp = .false.
+      kp = nz_in
+      height = p_out
+      DO WHILE ( (interp .eqv. .false.) .and. (kp .ge. 2) )
+        IF(   ((p_in(kp)   .le. height) .and.     &
+               (p_in(kp-1) .ge. height))             )   THEN
+          w2 = log(height/p_in(kp))/log(p_in(kp-1)/p_in(kp))
+          w1 = 1.-w2
+          interp_0_log = w1*v_in(kp) + w2*v_in(kp-1)
+          interp = .true.
+        END IF
+        kp = kp-1
+      ENDDO
+    ENDIF
+
+ end if
+
+ return
+ END FUNCTION interp_0_log
+
 END MODULE module_init_utilities
 
Index: trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/dyn_em/module_initialize_real.F
===================================================================
--- trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/dyn_em/module_initialize_real.F	(revision 1662)
+++ trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/dyn_em/module_initialize_real.F	(revision 1724)
@@ -21,4 +21,5 @@
    USE module_soil_pre
    USE module_date_time
+   use module_init_utilities
 #ifdef DM_PARALLEL
    USE module_dm
@@ -118,7 +119,9 @@
       REAL :: max_dz
 
-!      INTEGER , PARAMETER :: nl_max = 1000
+      INTEGER , PARAMETER :: nl_max = 1000
+      INTEGER :: nl_in
 !      REAL , DIMENSION(nl_max) :: grid%em_dn
-
+      REAL, DIMENSION(nl_max) :: pd_in
+      REAL, DIMENSION(nl_max) :: profdustq,profdustn
 integer::oops1,oops2
 
@@ -149,5 +152,5 @@
       !LOGICAL :: interp_theta = .false. ! Wee et al. 2012 correction
       REAL :: pfu, pfd, phm
-
+      REAL :: tpot
 
 #ifdef DM_PARALLEL
@@ -1080,32 +1083,32 @@
 !!END DO
 
-
+IF ( planet == "mars" ) then
 !--get vertical size of the GCM input array and allocate new stuff
-sizegcm=SIZE(grid%em_rh_gc(1,:,1))
-ALLOCATE(sig(MIN(ite,ide-1)-its+1,sizegcm, MIN(jte,jde-1)-jts+1))
-!ALLOCATE(ap(MIN(ite,ide-1)-its+1,sizegcm, MIN(jte,jde-1)-jts+1))
-ALLOCATE(bp(MIN(ite,ide-1)-its+1,sizegcm, MIN(jte,jde-1)-jts+1))
-
-DO j = jts , MIN ( jde-1 , jte )
-DO i = its , MIN (ide-1 , ite )
+  sizegcm=SIZE(grid%em_rh_gc(1,:,1))
+  ALLOCATE(sig(MIN(ite,ide-1)-its+1,sizegcm, MIN(jte,jde-1)-jts+1))
+  !ALLOCATE(ap(MIN(ite,ide-1)-its+1,sizegcm, MIN(jte,jde-1)-jts+1))
+  ALLOCATE(bp(MIN(ite,ide-1)-its+1,sizegcm, MIN(jte,jde-1)-jts+1))
+
+  DO j = jts , MIN ( jde-1 , jte )
+  DO i = its , MIN (ide-1 , ite )
 
 !!! Define old sigma levels for each column
-        sig(i,:,j)=grid%em_p_gc(i,:,j)/grid%em_psfc_gc(i,j)
+          sig(i,:,j)=grid%em_p_gc(i,:,j)/grid%em_psfc_gc(i,j)
 
 !!! Compute new sigma levels from old sigma levels with GCM (low-res) and WRF (hi-res) surface pressure 
 !!!                        (dimlevs,sigma_gcm, ps_gcm,                ps_hr,         sigma_hr)
-        CALL build_sigma_hr(sizegcm,sig(i,:,j),grid%em_psfc_gc(i,j),grid%psfc(i,j),bp(i,:,j))
+          CALL build_sigma_hr(sizegcm,sig(i,:,j),grid%em_psfc_gc(i,j),grid%psfc(i,j),bp(i,:,j))
 
 !!! Calculate new pressure levels
-        grid%em_pd_gc(i,:,j)=bp(i,:,j)*grid%psfc(i,j)
-
-END DO
-END DO
-
-DEALLOCATE(sig)
-DEALLOCATE(bp)
+          grid%em_pd_gc(i,:,j)=bp(i,:,j)*grid%psfc(i,j)
+
+  END DO
+  END DO
+
+  DEALLOCATE(sig)
+  DEALLOCATE(bp)
 
 !!****MARS who knows...
-grid%em_rh_gc(:,:,:)=0.
+  grid%em_rh_gc(:,:,:)=0.
 
 
@@ -1113,5 +1116,5 @@
 !grid%em_pd_gc=grid%em_p_gc
 !!****MARS
-
+ELSE ! VENUS
 
 
@@ -1120,26 +1123,28 @@
          !!  dry top pressure (constant).
          !
-         !CALL p_dts ( grid%em_mu0 , grid%em_intq_gc , grid%psfc , grid%p_top , &
-         !             ids , ide , jds , jde , 1   , num_metgrid_levels , &
-         !             ims , ime , jms , jme , 1   , num_metgrid_levels , &
-         !             its , ite , jts , jte , 1   , num_metgrid_levels )
-
+           CALL p_dts ( grid%em_mu0 , grid%em_intq_gc , grid%psfc , grid%p_top , &
+                        ids , ide , jds , jde , 1   , num_metgrid_levels , &
+                        ims , ime , jms , jme , 1   , num_metgrid_levels , &
+                        its , ite , jts , jte , 1   , num_metgrid_levels )
+ENDIF
+IF ( planet == "mars" ) then
 !!****MARS
-DO j = jts , MIN ( jde-1 , jte )
-DO i = its , MIN (ide-1 , ite )
-
-   grid%em_mu0(i,j) = grid%psfc(i,j) - grid%p_top
-
-END DO
-END DO
+  DO j = jts , MIN ( jde-1 , jte )
+  DO i = its , MIN (ide-1 , ite )
+
+     grid%em_mu0(i,j) = grid%psfc(i,j) - grid%p_top
+
+  END DO
+  END DO
 !!****MARS
-
+ELSE ! VENUS
    
          !!  Compute the dry, hydrostatic surface pressure.
          !
-         !CALL p_dhs ( grid%em_pdhs , grid%ht , p00 , t00 , a , &
-         !             ids , ide , jds , jde , kds , kde , &
-         !             ims , ime , jms , jme , kms , kme , &
-         !             its , ite , jts , jte , kts , kte )
+           CALL p_dhs ( grid%em_pdhs , grid%ht , p00 , t00 , a , &
+                        ids , ide , jds , jde , kds , kde , &
+                        ims , ime , jms , jme , kms , kme , &
+                        its , ite , jts , jte , kts , kte )
+ENDIF
 !!****MARS: voir remarques dans la routine
 !!****MARS: dry hydrostatic pressure comes from the GCM ...
@@ -2294,5 +2299,9 @@
 IF (( i .EQ. its ) .AND. ( j .EQ. jts )) print *, temp, k
 !!! MODIF WRFV3.1 - parameter tiso
-               grid%em_t_init(i,k,j) = temp*(p00/grid%em_pb(i,k,j))**(r_d/cp) - t0
+               IF (planet .eq. "mars" ) THEN
+                 grid%em_t_init(i,k,j) = temp*(p00/grid%em_pb(i,k,j))**(r_d/cp) - t0
+               ELSE
+                 grid%em_t_init(i,k,j) = (temp**nu + nu*(TT00**nu)*log((p00/grid%em_pb(i,k,j))**rcp))**(1/nu) -t0
+               ENDIF
                grid%em_alb(i,k,j) = (r_d/p1000mb)*(grid%em_t_init(i,k,j)+t0)*(grid%em_pb(i,k,j)/p1000mb)**cvpm
             END DO
@@ -2601,5 +2610,4 @@
 !!NB: q2 is used for other purpose ...
 
-
 !      END IF
 
@@ -2780,6 +2788,9 @@
 temp1 = MAX(tiso,t00+A*LOG(grid%em_pb(i,k,j)/p00))
 temp2 = MAX(tiso,t00+A*LOG(           pb_int/p00))
-grid%em_t_init(i,k,j) = temp1*(p00/grid%em_pb(i,k,j))**(r_d/cp) - t0
-t_init_int(i,k,j)     = temp2*(p00/pb_int           )**(r_d/cp) - t0
+IF (planet .eq. "mars" ) THEN
+  grid%em_t_init(i,k,j) = temp1*(p00/grid%em_pb(i,k,j))**(r_d/cp) - t0
+  t_init_int(i,k,j)     = temp2*(p00/pb_int           )**(r_d/cp) - t0
+ELSE
+ENDIF
                grid%em_alb(i,k,j) = (r_d/p1000mb)*(grid%em_t_init(i,k,j)+t0)*(grid%em_pb(i,k,j)/p1000mb)**cvpm
             END DO
@@ -4969,5 +4980,9 @@
 !            temp =             t00 + A*LOG(pb/p00)
 temp = MAX ( tiso, t00 + A*LOG(pb/p00) )
-            t_init = temp*(p00/pb)**(r_d/cp) - t0
+           IF (planet .eq. "mars" ) THEN
+              t_init = temp*(p00/pb)**(r_d/cp) - t0
+            ELSE
+              t_init = (temp**nu + nu*(TT00**nu)*log((p00/pb)**(rcp)))**(1/nu) - t0
+            ENDIF
             alb(k) = (r_d/p1000mb)*(t_init+t0)*(pb/p1000mb)**cvpm
          END DO
@@ -5005,5 +5020,9 @@
 !            temp =             t00 + A*LOG(pb/p00)
 temp = MAX ( tiso, t00 + A*LOG(pb/p00) )
-            t_init = temp*(p00/pb)**(r_d/cp) - t0
+           IF (planet .eq. "mars" ) THEN
+              t_init = temp*(p00/pb)**(r_d/cp) - t0
+            ELSE
+              t_init = (temp**nu + nu*(TT00**nu)*log((p00/pb)**(rcp)))**(1/nu) -t0
+            ENDIF
             alb(k) = (r_d/p1000mb)*(t_init+t0)*(pb/p1000mb)**cvpm
             znw(k+1) = znw(k) - dz*g / ( mub*alb(k) )
@@ -5025,5 +5044,9 @@
 !                  temp =             t00 + A*LOG(pb/p00)
 temp = MAX ( tiso, t00 + A*LOG(pb/p00) )
-                  t_init = temp*(p00/pb)**(r_d/cp) - t0
+           IF (planet .eq. "mars" ) THEN
+              t_init = temp*(p00/pb)**(r_d/cp) - t0
+            ELSE
+              t_init = (temp**nu + nu*(TT00**nu)*log((p00/pb)**(rcp)))**(1/nu) -t0
+            ENDIF
                   alb(k) = (r_d/p1000mb)*(t_init+t0)*(pb/p1000mb)**cvpm
                   znw(k+1) = znw(k) - dz*g / ( mub*alb(k) )
@@ -5052,5 +5075,9 @@
 !               temp =             t00 + A*LOG(pb/p00)
 temp = MAX ( tiso, t00 + A*LOG(pb/p00) )
-               t_init = temp*(p00/pb)**(r_d/cp) - t0
+           IF (planet .eq. "mars" ) THEN
+              t_init = temp*(p00/pb)**(r_d/cp) - t0
+            ELSE
+              t_init = (temp**nu + nu*(TT00**nu)*log((p00/pb)**(rcp)))**(1/nu) -t0
+            ENDIF
                alb(k) = (r_d/p1000mb)*(t_init+t0)*(pb/p1000mb)**cvpm
             END DO
@@ -5720,8 +5747,4 @@
       end subroutine build_sigma_hr
 
-
-
-
-
 END MODULE module_initialize
 
Index: trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/dyn_em/solve_em.F
===================================================================
--- trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/dyn_em/solve_em.F	(revision 1662)
+++ trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/dyn_em/solve_em.F	(revision 1724)
@@ -160,5 +160,5 @@
   ijds = min(ids, jds)
   ijde = max(ide, jde)
-
+  !num_moist = 3
   num_3d_m        = num_moist
   num_3d_c        = num_chem
@@ -892,4 +892,9 @@
      &       ,HR_SW=grid%HR_SW   &
      &       ,HR_LW=grid%HR_LW   &
+     &       ,HR_DYN=grid%HR_DYN   &
+     &       ,DDT=grid%DDT  &
+     &       ,DT_RAD=grid%DT_RAD  &
+     &       ,DT_VDF=grid%DT_VDF  &
+     &       ,DT_AJS=grid%DT_AJS  &
      &       ,SWDOWNZ=grid%SWDOWNZ   &
      &       ,TAU_DUST=grid%TAU_DUST   &
Index: trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/phys/dynphy_wrf_mars_lmd_new/update_outputs_physiq_mod.F
===================================================================
--- trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/phys/dynphy_wrf_mars_lmd_new/update_outputs_physiq_mod.F	(revision 1662)
+++ trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/phys/dynphy_wrf_mars_lmd_new/update_outputs_physiq_mod.F	(revision 1724)
@@ -160,5 +160,5 @@
             SWDOWNZ,TAU_DUST,QSURFDUST,&
             MTOT,ICETOT,TAU_ICE,&
-            HR_SW,HR_LW,&
+            HR_SW,HR_LW,HR_DYN,DT,DTRAD,DTVDF,DTAJS,&
             RDUST,VMR_ICE,RICE)
 
@@ -171,5 +171,5 @@
      MTOT,ICETOT,TAU_ICE
    REAL, DIMENSION( ims:ime, kms:kme, jms:jme ), INTENT(INOUT ) :: &
-     HR_SW,HR_LW,RDUST,VMR_ICE,RICE
+     HR_SW,HR_LW,RDUST,VMR_ICE,RICE,HR_DYN,DT,DTRAD,DTVDF,DTAJS
    INTEGER :: i,j,subs
 
Index: trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/phys/dynphy_wrf_prescribed_void_lmd_new/update_outputs_physiq_mod.F
===================================================================
--- trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/phys/dynphy_wrf_prescribed_void_lmd_new/update_outputs_physiq_mod.F	(revision 1662)
+++ trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/phys/dynphy_wrf_prescribed_void_lmd_new/update_outputs_physiq_mod.F	(revision 1724)
@@ -52,5 +52,5 @@
 SUBROUTINE update_outputs_physiq_turb( &
             ims,ime,jms,jme,kms,kme,&
-            ips,ipe,jps,jpe,&
+            ips,ipe,jps,jpe,kps,kpe,&
             M_Q2,M_WSTAR,&
             HFMAX,ZMAX,USTM,HFX)
@@ -67,10 +67,10 @@
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 SUBROUTINE update_outputs_physiq_diag( &
-            ims,ime,jms,jme,kms,kme,&
-            ips,ipe,jps,jpe,kps,kpe,&
-            SWDOWNZ,TAU_DUST,QSURFDUST,&
-            MTOT,ICETOT,TAU_ICE,&
-            HR_SW,HR_LW,&
-            RDUST,VMR_ICE,RICE)
+           ims,ime,jms,jme,kms,kme,&
+           ips,ipe,jps,jpe,kps,kpe,&
+           SWDOWNZ,TAU_DUST,QSURFDUST,&
+           MTOT,ICETOT,TAU_ICE,&
+           HR_SW,HR_LW,HR_DYN,DT,DTRAD,DTVDF,DTAJS,&
+           RDUST,VMR_ICE,RICE)
 
    INTEGER, INTENT(IN) :: ims,ime,jms,jme,kms,kme
@@ -80,23 +80,28 @@
      MTOT,ICETOT,TAU_ICE
    REAL, DIMENSION( ims:ime, kms:kme, jms:jme ), INTENT(INOUT ) :: &
-     HR_SW,HR_LW,RDUST,VMR_ICE,RICE
+     HR_SW,HR_LW,HR_DYN,RDUST,VMR_ICE,RICE,DT,DTRA,DTVDF,DTAJS
    INTEGER :: i,j,k,subs
-   REAL, DIMENSION(kms:kme) :: phr_sw,phr_lw
+   REAL, DIMENSION(kms:kme) :: phr_sw,phr_lw,phr_dyn
 
   open(17,file='prescribed_sw.txt',form='formatted',status='old')
   open(18,file='prescribed_lw.txt',form='formatted',status='old')
+  open(19,file='prescribed_dyn.txt',form='formatted',status='old')
   rewind(17)
   rewind(18)
+  rewind(19)
   DO k=1,kpe-kps+1
     read(17,*) phr_sw(k)
     read(18,*) phr_lw(k)
+    read(19,*) phr_dyn(k)
   ENDDO
+  close(19)
+  close(18)
   close(17)
-  close(18)
-  print*,'phr_lw',phr_lw 
+ !print*,'phr_lw',phr_lw 
   DO j=jps,jpe 
   DO i=ips,ipe
     HR_SW(i,:,j)=phr_sw(:)
     HR_LW(i,:,j)=phr_lw(:)
+    HR_DYN(i,:,j)=phr_dyn(:)
   ENDDO
   ENDDO
Index: trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/phys/dynphy_wrf_venus_lmd_new/callphysiq_mod.F
===================================================================
--- trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/phys/dynphy_wrf_venus_lmd_new/callphysiq_mod.F	(revision 1662)
+++ trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/phys/dynphy_wrf_venus_lmd_new/callphysiq_mod.F	(revision 1724)
@@ -12,5 +12,5 @@
 CONTAINS
 
-SUBROUTINE call_physiq(planet_type, klon,llm,nqtot,                       &
+SUBROUTINE call_physiq(planet_type, klon,llm,nqtot,tname,                 &
                        debut_split,lafin_split,                           &
                        jD_cur,jH_cur_split,zdt_split,                     &
@@ -23,5 +23,6 @@
 
   USE physiq_mod, ONLY: physiq
-  USE module_model_constants, only : p0,rcp
+  USE module_model_constants, only : p0,rcp,cp
+  use moyzon_mod, only: tmoy
   IMPLICIT NONE
 
@@ -31,27 +32,30 @@
   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*4,INTENT(IN) :: JD_cur ! Julian day
-  REAL*4,INTENT(IN) :: JH_cur_split ! Julian hour (fraction of day)
-  REAL*4,INTENT(IN) :: zdt_split ! time step over which the physics are evaluated
-  REAL*4,INTENT(IN) :: zplev_omp(klon,llm+1) ! interlayer pressure (Pa)
-  REAL*4,INTENT(IN) :: zplay_omp(klon,llm) ! mid-layer pressure (Pa)
-  REAL*4,INTENT(INOUT) :: zpk_omp(klon,llm)
-  REAL*4,INTENT(IN) :: zphi_omp(klon,llm) ! geopotential at midlayer
-  REAL*4,INTENT(INOUT) :: zphis_omp(klon) ! surface geopotential
-  REAL*4,INTENT(INOUT) :: presnivs_omp(llm) ! approximate pressure of atm. layers
-  REAL*4,INTENT(IN) :: zufi_omp(klon,llm) ! zonal wind (m/s)
-  REAL*4,INTENT(IN) :: zvfi_omp(klon,llm) ! meridional wind (m/s)
-  REAL*4,INTENT(INOUT) :: zrfi_omp(klon,llm) ! relative wind vorticity, in s-1
-  REAL*4,INTENT(IN) :: ztfi_omp(klon,llm) ! temperature (K)
-  REAL*4,INTENT(IN) :: zqfi_omp(klon,llm,nqtot) ! tracers (*/kg of air)
-  REAL*4,INTENT(IN) :: flxwfi_omp(klon,llm) ! Vertical mass flux on lower mesh interfaces (kg/s) 
+  REAL*8,INTENT(IN) :: JD_cur ! Julian day
+  REAL*8,INTENT(IN) :: JH_cur_split ! Julian hour (fraction of day)
+  REAL*8,INTENT(IN) :: zdt_split ! time step over which the physics are evaluated
+  REAL*8,INTENT(IN) :: zplev_omp(klon,llm+1) ! interlayer pressure (Pa)
+  REAL*8,INTENT(IN) :: zplay_omp(klon,llm) ! mid-layer pressure (Pa)
+  REAL*8,INTENT(INOUT) :: zpk_omp(klon,llm)
+  REAL*8,INTENT(IN) :: zphi_omp(klon,llm) ! geopotential at midlayer
+  REAL*8,INTENT(INOUT) :: zphis_omp(klon) ! surface geopotential
+  REAL*8,INTENT(INOUT) :: presnivs_omp(llm) ! approximate pressure of atm. layers
+  REAL*8,INTENT(IN) :: zufi_omp(klon,llm) ! zonal wind (m/s)
+  REAL*8,INTENT(IN) :: zvfi_omp(klon,llm) ! meridional wind (m/s)
+  REAL*8,INTENT(INOUT) :: zrfi_omp(klon,llm) ! relative wind vorticity, in s-1
+  REAL*8,INTENT(IN) :: ztfi_omp(klon,llm) ! temperature (K)
+  REAL*8,INTENT(IN) :: zqfi_omp(klon,llm,nqtot) ! tracers (*/kg of air)
+  REAL*8,INTENT(IN) :: flxwfi_omp(klon,llm) ! Vertical mass flux on lower mesh interfaces (kg/s) 
   ! tendencies (in */s) from the physics:
-  REAL*4,INTENT(OUT) :: zdufi_omp(klon,llm) ! tendency on zonal winds
-  REAL*4,INTENT(OUT) :: zdvfi_omp(klon,llm) ! tendency on meridional winds
-  REAL*4,INTENT(OUT) :: zdtfi_omp(klon,llm) ! tendency on temperature
-  REAL*4,INTENT(OUT) :: zdqfi_omp(klon,llm,nqtot) ! tendency on tracers
-  REAL*4,INTENT(OUT) :: zdpsrf_omp(klon) ! tendency on surface pressure
+  REAL*8,INTENT(OUT) :: zdufi_omp(klon,llm) ! tendency on zonal winds
+  REAL*8,INTENT(OUT) :: zdvfi_omp(klon,llm) ! tendency on meridional winds
+  REAL*8,INTENT(OUT) :: zdtfi_omp(klon,llm) ! tendency on temperature
+  REAL*8,INTENT(OUT) :: zdqfi_omp(klon,llm,nqtot) ! tendency on tracers
+  REAL*8,INTENT(OUT) :: zdpsrf_omp(klon) ! tendency on surface pressure
+  REAL*8 :: zplevmoy(llm+1) ! planet-averaged mean pressure (Pa) at interfaces
+  REAL*8 :: ztmoy(llm)
 
 !  ! Local variables
@@ -77,8 +81,12 @@
 
 ! Set dummy variables for Mars to zero (additional and prob useless security)
-  zpk_omp=(zplay_omp/p0)**rcp
-  zphis_omp(:)=zphi_omp(1,1)
+! NB: tname already filled with tracers' names (though not used here)
+  zpk_omp(1:klon,1:llm)=cp*((zplay_omp(1:klon,1:llm)/p0)**rcp)
+  !print*,'zpk_omp',zpk_omp(1,:)
+  zphis_omp(1:klon)=zphi_omp(1:klon,1)
   presnivs_omp(:)=0.
   zrfi_omp(:,:)=0.
+  ztmoy(:)=ztfi_omp(1,:)
+  zplevmoy(:)=zplev_omp(1,:)
 ! Call physics package with required inputs/outputs
   CALL physiq(klon,           &
@@ -101,4 +109,6 @@
               zqfi_omp,       &
               flxwfi_omp,     &
+              zplevmoy,       &
+              ztmoy,          &
               zdufi_omp,      &
               zdvfi_omp,      &
@@ -106,5 +116,5 @@
               zdqfi_omp,      &
               zdpsrf_omp)
-
+   deallocate(tmoy)
 END SUBROUTINE call_physiq
 
Index: trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/phys/dynphy_wrf_venus_lmd_new/iniphysiq_mod.F
===================================================================
--- trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/phys/dynphy_wrf_venus_lmd_new/iniphysiq_mod.F	(revision 1662)
+++ trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/phys/dynphy_wrf_venus_lmd_new/iniphysiq_mod.F	(revision 1724)
@@ -10,5 +10,5 @@
 !                            dtphys,daysec,day_ini,hour_ini
 use comconst_mod, only : cpp
-use cpdet_mod, only: cpdet,ini_cpdet
+use cpdet_phy_mod, only: init_cpdet_phy
 USE control_mod, ONLY: planet_type
 !use surfdat_h, only: ini_surfdat_h
@@ -18,5 +18,5 @@
 use dimphy, only: init_dimphy
 USE phys_state_var_mod
-
+use module_model_constants, only : nu, TT00
 implicit none
 
@@ -27,5 +27,5 @@
 REAL,intent(in) :: punjours
 !DOUBLE PRECISION,intent(in) :: ptimestep
-REAL,intent(in) :: phour_ini
+REAL*8,intent(in) :: phour_ini
 
 !real,intent(in) :: prad ! radius of the planet (m)
@@ -35,5 +35,5 @@
 !real,intent(in) :: punjours ! length (in s) of a standard day [daysec]
 integer,intent(in) :: pdayref ! reference day of for the simulation [day_ini]
-real*4,intent(in) :: ptimestep !physics time step (s) [dtphys]
+real*8,intent(in) :: ptimestep !physics time step (s) [dtphys]
 integer,intent(in) :: iflag_phys ! type of physics to be called
 
@@ -43,5 +43,5 @@
 !real,intent(in) :: phour_ini   ! start time (fraction of day) of the run 0=<phour_ini<1
 real,intent(in) :: piphysiq   ! call physics every piphysiq dynamical timesteps
-
+real*8 :: CPPP,nuvenus,T0venus
 
 ! copy some fundamental parameters to physics 
@@ -81,5 +81,8 @@
       cpp=pcpp
       planet_type="venus"
-      call ini_cpdet
+      CPPP=pcpp
+      nuvenus=nu
+      T0venus=TT00
+      call init_cpdet_phy(CPPP,nuvenus,T0venus)
 
 !! a few time constants initialization 
Index: trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/phys/dynphy_wrf_venus_lmd_new/update_inputs_physiq_mod.F
===================================================================
--- trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/phys/dynphy_wrf_venus_lmd_new/update_inputs_physiq_mod.F	(revision 1662)
+++ trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/phys/dynphy_wrf_venus_lmd_new/update_inputs_physiq_mod.F	(revision 1724)
@@ -1,7 +1,3 @@
 MODULE update_inputs_physiq_mod
-
-IMPLICIT NONE
-
-CHARACTER(len=20),save,allocatable,dimension(:) :: traceurs ! tracer names
 
 CONTAINS
@@ -17,4 +13,12 @@
 !SUBROUTINE update_inputs_physiq_slope
 
+!cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
+
+
+!c  Returns solar longitude, Ls (in deg.), from day number (in sol),
+!c  where sol=0=Ls=0 at the northern hemisphere spring equinox
+
+
+!!cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
 
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
@@ -31,16 +35,25 @@
   REAL, INTENT(IN) :: GMT,elaps,lon_input,ls_input,lct_input
   REAL,INTENT(OUT) :: MY
-  REAL,INTENT(OUT) :: ptime,pday
+  REAL*8,INTENT(OUT) :: ptime,pday
 
     !
     ! specified
     !
-    ptime = (GMT + elaps/3700.) !! universal time (0<ptime<1): ptime=0.5 at 12:00 UT 
+  IF (JULYR .ne. 9999) THEN
+    ptime = (GMT + elaps/420000.) !! universal time (0<ptime<1): ptime=0.5 at 12:00 UT 
     ptime = MODULO(ptime,24.)   !! the two arguments of MODULO must be of the same type 
     ptime = ptime / 24.
-    pday = (JULDAY - 1 + INT((3700*GMT+elaps)/88800))
+    pday = (JULDAY - 1 + INT((420000.0*GMT+elaps)/1.008e7))
+    pday = MODULO(int(pday),2)
+    MY = (JULYR-2000) + (1.008e7*(JULDAY - 1)+420000.0*GMT+elaps)/2.016e7
+    MY = INT(MY)
+  ELSE
+    ptime = lct_input - lon_input / 15. + elaps/(4200.)
+    ptime = MODULO(ptime,2808.)
+    ptime = ptime / 2808.
+    print*,'ptime',ptime
     pday = MODULO(int(pday),669)
-    MY = (JULYR-2000) + (88800.*(JULDAY - 1)+3700.*GMT+elaps)/59496000.
-    MY = INT(MY)
+    MY = 2024
+ ENDIF
 
 END SUBROUTINE update_inputs_physiq_time
@@ -48,5 +61,5 @@
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-SUBROUTINE update_inputs_physiq_tracers(nq,MARS_MODE)
+SUBROUTINE update_inputs_physiq_tracers(nq,MARS_MODE,tname)
 
   !use infotrac
@@ -54,7 +67,7 @@
   implicit none
   INTEGER, INTENT(IN) :: nq,MARS_MODE
-
-  ALLOCATE(traceurs(nq))
-  traceurs(:)='zolbxs' 
+  CHARACTER(len=*), INTENT(INOUT) :: tname(nq) ! tracer names
+
+  tname(:)='zolbxs' 
   !call infotrac_init ! Need traceur.def
 
@@ -93,5 +106,5 @@
             ips,ipe,jps,jpe,&
             JULYR,ngrid,nlayer,&
-            DX,DY,MSFT,&
+            DDX,DDY,MSFT,&
             lat_input, lon_input,&
             XLAT,XLONG)
@@ -105,5 +118,5 @@
    USE geometry_mod, ONLY: latitude,latitude_deg,&
                            longitude,longitude_deg,&
-                           cell_area
+                           cell_area,dx,dy
 
    implicit none
@@ -113,5 +126,5 @@
    REAL, DIMENSION( ims:ime, jms:jme ), INTENT(IN)  :: &
      MSFT,XLAT,XLONG
-   REAL, INTENT(IN) :: dx,dy
+   REAL, INTENT(IN) :: ddx,ddy
    REAL, INTENT(IN) :: lat_input, lon_input
    INTEGER :: i,j,subs
@@ -130,5 +143,5 @@
     !----------------------------------------!
     !parea(subs) = dx*dy                           !! 1. idealized cases - computational grid
-    parea(subs) = (dx/msft(i,j))*(dy/msft(i,j))    !! 2. WRF map scale factors - assume that msfx=msfy (msf=covariance)
+    parea(subs) = (ddx/msft(i,j))*(ddy/msft(i,j))    !! 2. WRF map scale factors - assume that msfx=msfy (msf=covariance)
     !parea(subs)=dx*dy/msfu(i,j)                   !! 3. special for Mercator GCM-like simulations
 
@@ -167,4 +180,6 @@
    IF(.not.ALLOCATED(latitude_deg)) ALLOCATE(latitude_deg(ngrid))
    IF(.not.ALLOCATED(cell_area)) ALLOCATE(cell_area(ngrid))
+   IF (.not.ALLOCATED(dx)) ALLOCATE(dx(ngrid))
+   IF (.not.ALLOCATED(dy)) ALLOCATE(dy(ngrid))
    longitude(:) = plon(:)
    latitude(:) = plat(:)
@@ -184,5 +199,5 @@
             M_ALBEDO,CST_AL,&
             M_TSURF,M_EMISS,M_CO2ICE,&
-            M_GW,M_Z0,CST_Z0,&
+            M_GW,M_Z0,&
             M_H2OICE,&
             phisfi_val)
@@ -195,5 +210,5 @@
    INTEGER, INTENT(IN) :: ips,ipe,jps,jpe,JULYR,MARS_MODE
    INTEGER :: i,j,subs,nlast
-   REAL, INTENT(IN  ) :: CST_AL, phisfi_val, CST_Z0
+   REAL, INTENT(IN  ) :: CST_AL, phisfi_val
    REAL, DIMENSION( ims:ime, jms:jme ), INTENT(IN)  :: &
      M_ALBEDO,M_TSURF,M_EMISS,M_CO2ICE,M_H2OICE,M_Z0
@@ -334,5 +349,5 @@
             M_Q2,M_WSTAR)
 
-   !use turb_mod, only: q2,wstar,turb_resolved
+   use turb_mod, only: q2,wstar,turb_resolved
 
    implicit none
@@ -340,10 +355,38 @@
    INTEGER, INTENT(IN) :: ims,ime,jms,jme,kms,kme
    INTEGER, INTENT(IN) :: ips,ipe,jps,jpe
-   INTEGER :: i,j,subs,nlast      
+   INTEGER :: i,j,subs,nlast
    REAL, DIMENSION( ims:ime, jms:jme ), INTENT(IN)  :: M_WSTAR
    REAL, DIMENSION( ims:ime, kms:kme+1, jms:jme ), INTENT(IN) :: M_Q2
    LOGICAL, INTENT(IN ) :: RESTART,isles
 
-   !! Nothing is done
+   turb_resolved =.true.
+   print*,'turb_resolved :',isles
+
+   DO j = jps,jpe
+   DO i = ips,ipe
+
+     !-----------------------------------!
+     ! 1D subscript for physics "cursor" !
+     !-----------------------------------!
+     subs = (j-jps)*(ipe-ips+1)+(i-ips+1)
+
+     !PBL wind variance
+     IF (.not. restart) THEN
+      q2(subs,:) = 1.E-6
+      wstar(subs)=0.
+     ELSE
+      q2(subs,:)=M_Q2(i,:,j)
+      wstar(subs)=M_WSTAR(i,j)
+     ENDIF
+
+   ENDDO
+   ENDDO
+
+   !!---------------------!!
+   !! OUTPUT FOR CHECKING !!
+   !!---------------------!!
+   nlast = (ipe-ips+1)*(jpe-jps+1)
+   print*,"check: q2",q2(1,1),q2(nlast,kme+1)
+   print*,"check: wstar",wstar(1),wstar(nlast)
 
 END SUBROUTINE update_inputs_physiq_turb
Index: trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/phys/dynphy_wrf_venus_lmd_new/update_outputs_physiq_mod.F
===================================================================
--- trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/phys/dynphy_wrf_venus_lmd_new/update_outputs_physiq_mod.F	(revision 1662)
+++ trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/phys/dynphy_wrf_venus_lmd_new/update_outputs_physiq_mod.F	(revision 1724)
@@ -118,9 +118,9 @@
 SUBROUTINE update_outputs_physiq_turb( &
             ims,ime,jms,jme,kms,kme,&
-            ips,ipe,jps,jpe,&
+            ips,ipe,jps,jpe,kps,kpe,&
             M_Q2,M_WSTAR,&
             HFMAX,ZMAX,USTM,HFX)
 
-   !use turb_mod, only: q2,wstar,ustar,sensibFlux,&
+   use turb_mod, only: q2,wstar,yustar,sens!,&
    !                     hfmax_th,zmax_th
 
@@ -128,10 +128,32 @@
 
    INTEGER, INTENT(IN) :: ims,ime,jms,jme,kms,kme
-   INTEGER, INTENT(IN) :: ips,ipe,jps,jpe
-   INTEGER :: i,j,subs    
+   INTEGER, INTENT(IN) :: ips,ipe,jps,jpe,kps,kpe
+   INTEGER :: i,j,subs
    REAL, DIMENSION( ims:ime, jms:jme ), INTENT(INOUT)  :: &
      M_WSTAR,HFMAX,ZMAX,USTM,HFX
    REAL, DIMENSION( ims:ime, kms:kme+1, jms:jme ), INTENT(INOUT) :: M_Q2
 
+   DO j = jps,jpe
+   DO i = ips,ipe
+
+     !-----------------------------------!
+     ! 1D subscript for physics "cursor" !
+     !-----------------------------------!
+     subs = (j-jps)*(ipe-ips+1)+(i-ips+1)
+
+     !-------------------------------------------------------!
+     ! Save key variables for restart and output and nesting !  
+     !-------------------------------------------------------!
+     M_Q2(i,kps:kpe+1,j) = q2(subs,:)
+     M_WSTAR(i,j) = wstar(subs)
+
+     !! output only (arrays already in phys modules)
+     !HFMAX(i,j) = HFMAX_TH(subs)
+     !ZMAX(i,j) = ZMAX_TH(subs)
+     USTM(i,j) = yustar(subs)
+     HFX(i,j) = sens(subs)
+
+  ENDDO
+  ENDDO
 
 END SUBROUTINE update_outputs_physiq_turb
@@ -144,5 +166,5 @@
            SWDOWNZ,TAU_DUST,QSURFDUST,& 
            MTOT,ICETOT,TAU_ICE,& 
-           HR_SW,HR_LW,& 
+           HR_SW,HR_LW,HR_DYN,DT,DTRAD,DTVDF,DTAJS,& 
            RDUST,VMR_ICE,RICE) 
 
@@ -155,5 +177,5 @@
      MTOT,ICETOT,TAU_ICE 
   REAL, DIMENSION( ims:ime, kms:kme, jms:jme ), INTENT(INOUT ) :: & 
-     HR_SW,HR_LW,RDUST,VMR_ICE,RICE 
+     HR_SW,HR_LW,HR_DYN,RDUST,VMR_ICE,RICE,DT,DTRAD,DTVDF,DTAJS
   INTEGER :: i,j,subs 
  
@@ -171,4 +193,9 @@
    HR_SW(i,kps:kpe,j) = comm_HR_SW(subs,kps:kpe) 
    HR_LW(i,kps:kpe,j) = comm_HR_LW(subs,kps:kpe) 
+   HR_DYN(i,kps:kpe,j) = comm_HR_DYN(subs,kps:kpe)
+   DT(i,kps:kpe,j) = comm_DT(subs,kps:kpe)
+   DTRAD(i,kps:kpe,j) = comm_DT_RAD(subs,kps:kpe)
+   DTVDF(i,kps:kpe,j) = comm_DT_VDF(subs,kps:kpe)
+   DTAJS(i,kps:kpe,j) = comm_DT_AJS(subs,kps:kpe)
 
    ENDDO 
Index: trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/phys/dynphy_wrf_void_lmd_new/update_outputs_physiq_mod.F
===================================================================
--- trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/phys/dynphy_wrf_void_lmd_new/update_outputs_physiq_mod.F	(revision 1662)
+++ trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/phys/dynphy_wrf_void_lmd_new/update_outputs_physiq_mod.F	(revision 1724)
@@ -71,5 +71,5 @@
             SWDOWNZ,TAU_DUST,QSURFDUST,&
             MTOT,ICETOT,TAU_ICE,&
-            HR_SW,HR_LW,&
+            HR_SW,HR_LW,HR_DYN,DT,DTRAD,DTVDF,DTAJS,&
             RDUST,VMR_ICE,RICE)
 
@@ -80,5 +80,5 @@
      MTOT,ICETOT,TAU_ICE
    REAL, DIMENSION( ims:ime, kms:kme, jms:jme ), INTENT(INOUT ) :: &
-     HR_SW,HR_LW,RDUST,VMR_ICE,RICE
+     HR_SW,HR_LW,RDUST,VMR_ICE,RICE,HR_DYN,DT,DTRAD,DTVDF,DTAJS
    INTEGER :: i,j,subs
 
Index: trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/phys/module_lmd_driver.F.new
===================================================================
--- trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/phys/module_lmd_driver.F.new	(revision 1662)
+++ trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/phys/module_lmd_driver.F.new	(revision 1724)
@@ -40,5 +40,5 @@
         isfflx, diff_opt, km_opt, &
         HISTORY_INTERVAL, &
-        HR_SW,HR_LW,SWDOWNZ,&
+        HR_SW,HR_LW,HR_DYN,DDT,DT_RAD,DT_VDF,DT_AJS,SWDOWNZ,&
         TAU_DUST,RDUST,QSURFDUST,&
         MTOT,ICETOT,VMR_ICE,TAU_ICE,RICE,&
@@ -109,5 +109,5 @@
 REAL, DIMENSION( ims:ime, kms:kme, jms:jme ), INTENT(OUT ) :: &
      RTHBLTEN,RUBLTEN,RVBLTEN, &
-     HR_SW,HR_LW,RDUST,VMR_ICE,RICE
+     HR_SW,HR_LW,HR_DYN,DDT,DT_RAD,DT_VDF,DT_AJS,RDUST,VMR_ICE,RICE
 REAL, DIMENSION( ims:ime, kms:kme+1, jms:jme ), INTENT(INOUT ) :: &
      M_Q2
@@ -138,16 +138,17 @@
    ! ------> inputs:
    INTEGER :: ngrid,nlayer,nq,nsoil 
-   REAL :: pday,ptime,MY  
+   REAL*8 :: pday,ptime
+   REAL :: MY  
    REAL :: phisfi_val
    LOGICAL :: firstcall,lastcall
    ! ----------	
-   REAL,DIMENSION(:,:),ALLOCATABLE :: pplev,pplay,pphi,pu,pv,pt,flxw
-   REAL,DIMENSION(:,:,:),ALLOCATABLE :: pq  
+   REAL*8,DIMENSION(:,:),ALLOCATABLE :: pplev,pplay,pphi,pu,pv,pt,flxw
+   REAL*8,DIMENSION(:,:,:),ALLOCATABLE :: pq  
 
    ! <------ outputs:
    !     physical tendencies
-   REAL,DIMENSION(:),ALLOCATABLE :: pdpsrf
-   REAL,DIMENSION(:,:),ALLOCATABLE :: pdu,pdv,pdt
-   REAL,DIMENSION(:,:,:),ALLOCATABLE :: pdq
+   REAL*8,DIMENSION(:),ALLOCATABLE :: pdpsrf
+   REAL*8,DIMENSION(:,:),ALLOCATABLE :: pdu,pdv,pdt,pdtheta
+   REAL*8,DIMENSION(:,:,:),ALLOCATABLE :: pdq
    ! ... intermediate arrays
    REAL, DIMENSION(:), ALLOCATABLE  :: &
@@ -158,5 +159,6 @@
    ! Additional control variables
    INTEGER :: sponge_top,relax,ips,ipe,jps,jpe,kps,kpe
-   REAL :: elaps, ptimestep
+   REAL :: elaps
+   REAL*8 :: ptimestep
    INTEGER :: test
    REAL :: wappel_phys
@@ -173,5 +175,5 @@
              dp_save
       REAL, DIMENSION(:,:,:), ALLOCATABLE, SAVE :: &
-             du_save, dv_save, dt_save
+             du_save, dv_save, dt_save,dtheta_save
       REAL, DIMENSION(:,:,:,:), ALLOCATABLE, SAVE :: &
              dq_save      
@@ -180,5 +182,5 @@
              dp_save
       REAL, DIMENSION(:,:), ALLOCATABLE, SAVE :: &
-             du_save, dv_save, dt_save
+             du_save, dv_save, dt_save,dtheta_save
       REAL, DIMENSION(:,:,:), ALLOCATABLE, SAVE :: &
              dq_save      
@@ -191,9 +193,10 @@
 
    !! arguments to physiq
-   REAL,ALLOCATABLE :: zpk_omp(:,:)
-   REAL,ALLOCATABLE :: zphis_omp(:) ! surface geopotential
-   REAL,ALLOCATABLE :: presnivs_omp(:) ! approximate pressure of atm. layers  
-   REAL,ALLOCATABLE :: zrfi_omp(:,:) ! relative wind vorticity, in s-1
-
+   CHARACTER(len=20),ALLOCATABLE :: tname(:) ! tracer names
+   REAL*8,ALLOCATABLE :: zpk_omp(:,:)
+   REAL*8,ALLOCATABLE :: zphis_omp(:) ! surface geopotential
+   REAL*8,ALLOCATABLE :: presnivs_omp(:) ! approximate pressure of atm. layers  
+   REAL*8,ALLOCATABLE :: zrfi_omp(:,:) ! relative wind vorticity, in s-1
+   REAL :: tk1,tk2
 !==================================================================
 ! CODE
@@ -301,4 +304,5 @@
    ALLOCATE(dv_save(ngrid,nlayer,max_dom))
    ALLOCATE(dt_save(ngrid,nlayer,max_dom))
+   ALLOCATE(dtheta_save(ngrid,nlayer,max_dom))
    ALLOCATE(dq_save(ngrid,nlayer,nq,max_dom))
    dp_save(:,:)=0.    !! initialize these arrays ...
@@ -306,4 +310,5 @@
    dv_save(:,:,:)=0.
    dt_save(:,:,:)=0.
+   dtheta_save(:,:,:)=0.
    dq_save(:,:,:,:)=0.
 ENDIF
@@ -319,4 +324,5 @@
 ALLOCATE(dv_save(ngrid,nlayer))
 ALLOCATE(dt_save(ngrid,nlayer))
+ALLOCATE(dtheta_save(ngrid,nlayer))
 ALLOCATE(dq_save(ngrid,nlayer,nq))
 ENDIF
@@ -325,4 +331,5 @@
 dv_save(:,:)=0.
 dt_save(:,:)=0.
+dtheta_save(:,:)=0.
 dq_save(:,:,:)=0.
 flag_first_restart=.false.
@@ -369,4 +376,5 @@
 ! ALLOCATE !
 !----------!
+IF (.not.ALLOCATED(tname)) ALLOCATE(tname(nq)) 
 !-------------------------------------------------------------------------------!
 ! outputs:									!	
@@ -381,4 +389,5 @@
 ALLOCATE(pdv(ngrid,nlayer))
 ALLOCATE(pdt(ngrid,nlayer))
+ALLOCATE(pdtheta(ngrid,nlayer))
 ALLOCATE(pdq(ngrid,nlayer,nq))
 !!!
@@ -392,10 +401,13 @@
 pdv(:,:)=dv_save(:,:,id)
 pdt(:,:)=dt_save(:,:,id)
+pdtheta(:,:)=dtheta_save(:,:,id)
 pdq(:,:,:)=dq_save(:,:,:,id)
 #else
+print*,'else'
 pdpsrf(:)=dp_save(:)
 pdu(:,:)=du_save(:,:)
 pdv(:,:)=dv_save(:,:)
 pdt(:,:)=dt_save(:,:)
+pdtheta(:,:)=dtheta_save(:,:)
 pdq(:,:,:)=dq_save(:,:,:)
 #endif
@@ -442,5 +454,5 @@
   !! tracers' name
   PRINT *,'** ',planet_type,'** TRACERS NAMES'
-  CALL update_inputs_physiq_tracers(nq,MARS_MODE)
+  CALL update_inputs_physiq_tracers(nq,MARS_MODE,tname)
   !! PHYSICS VARIABLES (cf. iniphysiq in LMD GCM)
   !! parameters are defined in the module_model_constants.F WRF routine
@@ -504,12 +516,4 @@
   ENDIF
 ENDIF
-
-IF (MARS_MODE .EQ. 32) THEN
-  IF (firstcall .EQV. .true. .and. (.not. restart)) THEN
-      q_prof(:,7) = 0.95
-!! traceurs(7)   = 'co2'
-  ENDIF
-ENDIF
-
 
 IF (firstcall .EQV. .true.) THEN
@@ -621,5 +625,5 @@
             M_ALBEDO,CST_AL,&
             M_TSURF,M_EMISS,M_CO2ICE,&
-            M_GW,M_Z0,CST_Z0,&
+            M_GW,M_Z0,&
             M_H2OICE,&
             phisfi_val)
@@ -653,4 +657,5 @@
 pdv(:,:)=0.
 pdt(:,:)=0.
+pdtheta(:,:)=0.
 pdq(:,:,:)=0.
 print *, '** ',planet_type,'** CALL TO LMD PHYSICS'
@@ -662,5 +667,5 @@
             ptime,pday,MY)
 !!!
-CALL call_physiq(planet_type,ngrid,nlayer,nq,       &
+CALL call_physiq(planet_type,ngrid,nlayer,nq,tname, &
                        firstcall,lastcall,          &
                        pday,ptime,ptimestep,        &
@@ -679,4 +684,17 @@
 ENDIF
 #endif
+
+IF (planet_type .eq. "venus" ) THEN
+  DO j=jps,jpe
+  DO i=ips,ipe
+    do k=kps,kpe
+      subs=(j-jps)*(ipe-ips+1)+(i-ips+1)
+      tk1=(pt(subs,k)**nu + nu*TT00**nu*log((p1000mb/pplay(subs,k))**rcp))**(1/nu)
+      tk2=((pt(subs,k) + pdt(subs,k))**nu + nu*TT00**nu*log((p1000mb/pplay(subs,k))**rcp))**(1/nu)
+      pdtheta(subs,k)=tk2-tk1
+    enddo
+  ENDDO
+  ENDDO
+ENDIF
 
 print *, '** ',planet_type,'** CALL TO LMD PHYSICS DONE'
@@ -694,5 +712,4 @@
 DEALLOCATE(zrfi_omp)
 
-
 !---------------------------------------------------------------------------------!
 ! PHYSIQ TENDENCIES ARE SAVED TO BE SPLIT WITHIN INTERMEDIATE DYNAMICAL TIMESTEPS !
@@ -703,4 +720,5 @@
 dv_save(:,:,id)=pdv(:,:)
 dt_save(:,:,id)=pdt(:,:)
+dtheta_save(:,:,id)=pdtheta(:,:)
 dq_save(:,:,:,id)=pdq(:,:,:)
 #else
@@ -709,4 +727,5 @@
 dv_save(:,:)=pdv(:,:)
 dt_save(:,:)=pdt(:,:)
+dtheta_save(:,:)=pdtheta(:,:)
 dq_save(:,:,:)=pdq(:,:,:)
 #endif
@@ -737,5 +756,5 @@
 CALL update_outputs_physiq_turb( &
             ims,ime,jms,jme,kms,kme,&
-            ips,ipe,jps,jpe,&
+            ips,ipe,jps,jpe,kps,kpe,&
             M_Q2,M_WSTAR,&
             HFMAX,ZMAX,USTM,HFX)
@@ -746,7 +765,10 @@
             SWDOWNZ,TAU_DUST,QSURFDUST,&
             MTOT,ICETOT,TAU_ICE,&
-            HR_SW,HR_LW,&
+            HR_SW,HR_LW,HR_DYN,DDT,DT_RAD,DT_VDF,DT_AJS,&
             RDUST,VMR_ICE,RICE)
 !!!
+print*,"update_outputs_physiq_diag"
+
+
 ENDIF call_physics
 
@@ -770,5 +792,6 @@
 ! --is the one calculated during the last call to physics          !
 !------------------------------------------------------------------!
-
+!print*,'pdt',pdt(1,1),pdt(1,nlayer)
+!print*,'exner',exner(1,:,1)
 DO j = jps,jpe
 DO i = ips,ipe
@@ -778,16 +801,16 @@
     ! zonal wind
   RUBLTEN(i,kps:kpe,j) = pdu(subs,kps:kpe) 
-
     ! meridional wind
   RVBLTEN(i,kps:kpe,j) = pdv(subs,kps:kpe) 
-
     ! potential temperature
     ! (dT = dtheta * exner for isobaric coordinates or if pressure variations are negligible)
-  RTHBLTEN(i,kps:kpe,j) = pdt(subs,kps:kpe) / exner(i,kps:kpe,j)
-
+  IF (planet_type .eq. "venus" ) THEN
+    RTHBLTEN(i,kps:kpe,j) = pdtheta(subs,kps:kpe)
+  ELSE
+   RTHBLTEN(i,kps:kpe,j) = pdt(subs,kps:kpe) / exner(i,kps:kpe,j)
+  ENDIF
     ! update surface pressure (cf CO2 cycle in physics)
     ! here dt is needed
   PSFC(i,j)=PSFC(i,j)+pdpsrf(subs)*dt 
-
     ! tracers
   SCALAR(i,kps:kpe,j,1)=0.
@@ -807,5 +830,4 @@
 ENDDO
 ENDDO
-
 DEALLOCATE(pdpsrf)
 DEALLOCATE(pdu)
@@ -813,5 +835,5 @@
 DEALLOCATE(pdt)
 DEALLOCATE(pdq)
-
+DEALLOCATE(pdtheta)
 !!*****!!
 !! END !!
Index: trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/share/Makefile
===================================================================
--- trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/share/Makefile	(revision 1662)
+++ trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/share/Makefile	(revision 1724)
@@ -17,5 +17,6 @@
 	module_optional_si_input.o	\
 	module_compute_geop.o           \
-	module_soil_pre.o
+	module_soil_pre.o \
+        cpdet_mod.o
 
 OBJS    = 		\
Index: trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/share/cpdet_mod.F
===================================================================
--- trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/share/cpdet_mod.F	(revision 1724)
+++ trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/share/cpdet_mod.F	(revision 1724)
@@ -0,0 +1,114 @@
+module cpdet_mod
+
+implicit none
+
+! ADAPTATION OF GCM TO CP(T)
+!======================================================================
+! From S. Lebonnois in LMD Venus GCM
+!
+! Cp must be computed using cpdet(t) to be valid
+!
+! The Exner function is still pk = (play/pref)**RKAPPA
+! (RCPD=cpp, RKAPPA=kappa)
+!
+! One goes from T to teta (potential temperature) using t2tpot(t,teta,pk)
+! One goes from teta to T using tpot2t(teta,t,pk)
+!
+!======================================================================
+
+contains
+
+      FUNCTION cpdet(t)
+
+!      USE control_mod, ONLY: planet_type 
+!      USE comconst_mod, ONLY: cpp,t0_venus,nu_venus
+      USE module_configure 
+      USE module_model_constants
+      IMPLICIT none
+
+! for cpp, nu_venus and t0_venus:
+
+      real,intent(in) :: t
+      real cpdet
+
+      if (planet.eq."venus") then
+          cpdet = cp*(t/TT00)**nu
+      else
+          cpdet = cp
+      endif
+
+      return
+      end function cpdet
+      
+!======================================================================
+!======================================================================
+
+      SUBROUTINE t2tpot(npoints, yt, yteta, ypk)
+!======================================================================
+! Arguments:
+!
+! yt   --------input-R- Temperature
+! yteta-------output-R- Temperature potentielle
+! ypk  --------input-R- Fonction d'Exner: (pplay/pref)**RKAPPA
+!
+!======================================================================
+
+!      USE control_mod, ONLY: planet_type 
+!      USE comconst_mod, ONLY: cpp,t0_venus,nu_venus
+      USE module_configure
+      USE module_model_constants
+
+
+      IMPLICIT NONE
+
+      integer,intent(in) :: npoints
+      REAL,intent(in) :: yt(npoints), ypk(npoints)
+      REAL,intent(out) :: yteta(npoints)
+      if (planet.eq."venus") then
+          yteta = yt**nu                                          &
+     &            - nu * TT00**nu * log(ypk)
+          yteta = yteta**(1./nu)
+      else
+          yteta = yt * 1./ypk
+      endif
+
+      return
+      end subroutine t2tpot
+
+!======================================================================
+!======================================================================
+
+      SUBROUTINE tpot2t(npoints,yteta, yt, ypk)
+!======================================================================
+! Arguments:
+!
+! yteta--------input-R- Temperature potentielle
+! yt   -------output-R- Temperature
+! ypk  --------input-R- Fonction d'Exner: (pplay/pref)**RKAPPA
+!
+!======================================================================
+
+!      USE control_mod, ONLY: planet_type 
+!      USE comconst_mod, ONLY: cpp,nu_venus,t0_venus
+      USE module_configure
+      USE module_model_constants
+
+
+      IMPLICIT NONE
+
+      integer,intent(in) :: npoints
+      REAL,intent(in) :: yteta(npoints), ypk(npoints)
+      REAL,intent(out) :: yt(npoints)
+      print*,planet
+      if (planet.eq."venus") then
+         yt = yteta**nu                                           &
+     &       + nu * TT00**nu * log(ypk)
+         yt = yt**(1./nu)
+         print*,yt
+      else
+          yt = yteta * ypk
+      endif
+      print*,yt 
+      return
+      end subroutine tpot2t
+end module cpdet_mod
Index: trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/share/module_model_constants.F
===================================================================
--- trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/share/module_model_constants.F	(revision 1662)
+++ trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/share/module_model_constants.F	(revision 1724)
@@ -8,5 +8,5 @@
 
    !  A really small number.
-
+   character(len=15) :: planet
    REAL    , PARAMETER :: epsilon         = 1.E-15
 
@@ -183,10 +183,10 @@
     REAL  :: z_scale        ! scale height 
 
+    REAL :: TT00
+    REAL :: nu
  CONTAINS
   SUBROUTINE init_planet_constants
     IMPLICIT NONE
-    character(len=15) :: planet
     Call initial_config
-    planet=model_config_rec%planet 
     !write(*,*) "unknown planet type", planet
     !stop
@@ -239,4 +239,6 @@
      wvolcapa      = 1.e6       ! volumetric capacity of soil (new soil model)
 #endif
+     TT00=0.
+     nu=0.
 !#endif
     ELSE if ( planet == "venus") then 
@@ -255,4 +257,6 @@
      womeg        = 0.2992549E-06
      wdaysec      = 0.1008707E08
+     TT00=460.
+     nu=0.35
     ELSE if ( planet == "prescribed") then
      open(17,file='planet_constant',form='formatted',status='old')
@@ -268,4 +272,6 @@
      p1000mb=p0
      reradius=1./rad
+     TT00=0.
+     nu=0.
     Else 
      write(*,*) "unknown planet type:", planet
@@ -295,4 +301,6 @@
     write(*,*) "t0 = ", t0
     write(*,*) "p0 = ", p0
+    write(*,*) "T0 = ", TT00
+    write(*,*) "nu = ", nu
   END SUBROUTINE init_planet_constants
  END MODULE module_model_constants
Index: trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/venus_lmd_new/.:
===================================================================
--- trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/venus_lmd_new/.:	(revision 1724)
+++ trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/venus_lmd_new/.:	(revision 1724)
@@ -0,0 +1,1 @@
+link /u/mlefevre/MODELES/LMDZ.VENUS/Tools/
Index: trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/venus_lmd_new/.makelmdz
===================================================================
--- trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/venus_lmd_new/.makelmdz	(revision 1724)
+++ trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/venus_lmd_new/.makelmdz	(revision 1724)
@@ -0,0 +1,1 @@
+grid misc phy_common phyvenus phyvenus/dyn1d
Index: trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/venus_lmd_new/arch
===================================================================
--- trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/venus_lmd_new/arch	(revision 1724)
+++ trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/venus_lmd_new/arch	(revision 1724)
@@ -0,0 +1,1 @@
+link /planeto/mlefevre/MODELES/LMDZ.COMMON/arch/
Index: trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/venus_lmd_new/arch.fcm
===================================================================
--- trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/venus_lmd_new/arch.fcm	(revision 1724)
+++ trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/venus_lmd_new/arch.fcm	(revision 1724)
@@ -0,0 +1,1 @@
+link arch/arch-linux-ifort_meso.fcm
Index: trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/venus_lmd_new/create_make_gcm.log
===================================================================
--- trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/venus_lmd_new/create_make_gcm.log	(revision 1724)
+++ trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/venus_lmd_new/create_make_gcm.log	(revision 1724)
@@ -0,0 +1,9044 @@
+misc/cbrt.F misc/chfev.F misc/cray.F misc/fdump.F misc/formcoord.F misc/i1mach.F misc/ismax.F misc/ismin.F misc/j4save.F misc/juldate.F misc/minmax2.F misc/minmax.F misc/pchdf.F misc/pchfe.F misc/pchsp.F misc/q_sat.F misc/ran1.F misc/sort.F misc/xercnt.F misc/xerhlt.F misc/xermsg.F misc/xerprn.F misc/xersve.F misc/xgetua.F misc/arth_m.F90 misc/assert_eq_m.F90 misc/assert_m.F90 misc/coefpoly_m.F90 misc/handle_err_m.F90 misc/interpolation.F90 misc/ioipsl_errioipsl.F90 misc/ioipsl_getincom.F90 misc/ioipsl_stringop.F90 misc/netcdf95.F90 misc/new_unit_m.F90 misc/nf95_def_var_m.F90 misc/nf95_get_att_m.F90 misc/nf95_get_var_m.F90 misc/nf95_gw_var_m.F90 misc/nf95_put_att_m.F90 misc/nf95_put_var_m.F90 misc/nrtype.F90 misc/pchfe_95_m.F90 misc/pchsp_95_m.F90 misc/pres2lev_mod.F90 misc/regr1_lint_m.F90 misc/regr1_step_av_m.F90 misc/regr3_lint_m.F90 misc/simple.F90 misc/vampir.F90 misc/write_field.F90 misc/wxios.F90
+misc/coefpoly_m.F90 coefpoly_m nrtype
+dirinc grid
+stri nrtype
+str2
+dirinc misc
+stri nrtype
+str2 $(LIBO)/libmisc.a(nrtype.o)
+dirinc phy_common
+stri nrtype
+str2 $(LIBO)/libmisc.a(nrtype.o)
+dirinc phyvenus
+stri nrtype
+str2 $(LIBO)/libmisc.a(nrtype.o)
+dirinc phyvenus/dyn1d
+stri nrtype
+str2 $(LIBO)/libmisc.a(nrtype.o)
+dernier str2 $(LIBO)/libmisc.a(nrtype.o)
+misc/handle_err_m.F90 handle_err_m !
+dirinc grid
+stri !
+str2
+dirinc misc
+stri !
+str2
+dirinc phy_common
+stri !
+str2
+dirinc phyvenus
+stri !
+str2
+dirinc phyvenus/dyn1d
+stri !
+str2
+dernier str2
+Warn: Include misc misc/handle_err_m.F90 handle_err_m ! pas trouve
+misc/handle_err_m.F90 handle_err_m (should
+dirinc grid
+stri (should
+str2
+dirinc misc
+stri (should
+str2
+dirinc phy_common
+stri (should
+str2
+dirinc phyvenus
+stri (should
+str2
+dirinc phyvenus/dyn1d
+stri (should
+str2
+dernier str2
+Warn: Include misc misc/handle_err_m.F90 handle_err_m (should pas trouve
+misc/handle_err_m.F90 handle_err_m name
+dirinc grid
+stri name
+str2
+dirinc misc
+stri name
+str2
+dirinc phy_common
+stri name
+str2
+dirinc phyvenus
+stri name
+str2
+dirinc phyvenus/dyn1d
+stri name
+str2
+dernier str2
+Warn: Include misc misc/handle_err_m.F90 handle_err_m name pas trouve
+misc/handle_err_m.F90 handle_err_m of
+dirinc grid
+stri of
+str2
+dirinc misc
+stri of
+str2
+dirinc phy_common
+stri of
+str2
+dirinc phyvenus
+stri of
+str2
+dirinc phyvenus/dyn1d
+stri of
+str2
+dernier str2
+Warn: Include misc misc/handle_err_m.F90 handle_err_m of pas trouve
+misc/handle_err_m.F90 handle_err_m calling
+dirinc grid
+stri calling
+str2
+dirinc misc
+stri calling
+str2
+dirinc phy_common
+stri calling
+str2
+dirinc phyvenus
+stri calling
+str2
+dirinc phyvenus/dyn1d
+stri calling
+str2
+dernier str2
+Warn: Include misc misc/handle_err_m.F90 handle_err_m calling pas trouve
+misc/handle_err_m.F90 handle_err_m procedure)
+dirinc grid
+stri procedure)
+str2
+dirinc misc
+stri procedure)
+str2
+dirinc phy_common
+stri procedure)
+str2
+dirinc phyvenus
+stri procedure)
+str2
+dirinc phyvenus/dyn1d
+stri procedure)
+str2
+dernier str2
+Warn: Include misc misc/handle_err_m.F90 handle_err_m procedure) pas trouve
+misc/handle_err_m.F90 handle_err_m netcdf
+dirinc grid
+stri netcdf
+str2
+dirinc misc
+stri netcdf
+str2
+dirinc phy_common
+stri netcdf
+str2
+dirinc phyvenus
+stri netcdf
+str2
+dirinc phyvenus/dyn1d
+stri netcdf
+str2
+dernier str2
+Warn: Include misc misc/handle_err_m.F90 handle_err_m netcdf pas trouve
+misc/ioipsl_getincom.F90 ioipsl_getincom ioipsl_errioipsl
+dirinc grid
+stri ioipsl_errioipsl
+str2
+dirinc misc
+stri ioipsl_errioipsl
+str2 $(LIBO)/libmisc.a(ioipsl_errioipsl.o)
+dirinc phy_common
+stri ioipsl_errioipsl
+str2 $(LIBO)/libmisc.a(ioipsl_errioipsl.o)
+dirinc phyvenus
+stri ioipsl_errioipsl
+str2 $(LIBO)/libmisc.a(ioipsl_errioipsl.o)
+dirinc phyvenus/dyn1d
+stri ioipsl_errioipsl
+str2 $(LIBO)/libmisc.a(ioipsl_errioipsl.o)
+dernier str2 $(LIBO)/libmisc.a(ioipsl_errioipsl.o)
+misc/ioipsl_getincom.F90 ioipsl_getincom ioipsl_stringop
+dirinc grid
+stri ioipsl_stringop
+str2
+dirinc misc
+stri ioipsl_stringop
+str2 $(LIBO)/libmisc.a(ioipsl_stringop.o)
+dirinc phy_common
+stri ioipsl_stringop
+str2 $(LIBO)/libmisc.a(ioipsl_stringop.o)
+dirinc phyvenus
+stri ioipsl_stringop
+str2 $(LIBO)/libmisc.a(ioipsl_stringop.o)
+dirinc phyvenus/dyn1d
+stri ioipsl_stringop
+str2 $(LIBO)/libmisc.a(ioipsl_stringop.o)
+dernier str2 $(LIBO)/libmisc.a(ioipsl_stringop.o)
+misc/netcdf95.F90 netcdf95 handle_err_m
+dirinc grid
+stri handle_err_m
+str2
+dirinc misc
+stri handle_err_m
+str2 $(LIBO)/libmisc.a(handle_err_m.o)
+dirinc phy_common
+stri handle_err_m
+str2 $(LIBO)/libmisc.a(handle_err_m.o)
+dirinc phyvenus
+stri handle_err_m
+str2 $(LIBO)/libmisc.a(handle_err_m.o)
+dirinc phyvenus/dyn1d
+stri handle_err_m
+str2 $(LIBO)/libmisc.a(handle_err_m.o)
+dernier str2 $(LIBO)/libmisc.a(handle_err_m.o)
+misc/netcdf95.F90 netcdf95 nf95_def_var_m
+dirinc grid
+stri nf95_def_var_m
+str2
+dirinc misc
+stri nf95_def_var_m
+str2 $(LIBO)/libmisc.a(nf95_def_var_m.o)
+dirinc phy_common
+stri nf95_def_var_m
+str2 $(LIBO)/libmisc.a(nf95_def_var_m.o)
+dirinc phyvenus
+stri nf95_def_var_m
+str2 $(LIBO)/libmisc.a(nf95_def_var_m.o)
+dirinc phyvenus/dyn1d
+stri nf95_def_var_m
+str2 $(LIBO)/libmisc.a(nf95_def_var_m.o)
+dernier str2 $(LIBO)/libmisc.a(nf95_def_var_m.o)
+misc/netcdf95.F90 netcdf95 nf95_get_att_m
+dirinc grid
+stri nf95_get_att_m
+str2
+dirinc misc
+stri nf95_get_att_m
+str2 $(LIBO)/libmisc.a(nf95_get_att_m.o)
+dirinc phy_common
+stri nf95_get_att_m
+str2 $(LIBO)/libmisc.a(nf95_get_att_m.o)
+dirinc phyvenus
+stri nf95_get_att_m
+str2 $(LIBO)/libmisc.a(nf95_get_att_m.o)
+dirinc phyvenus/dyn1d
+stri nf95_get_att_m
+str2 $(LIBO)/libmisc.a(nf95_get_att_m.o)
+dernier str2 $(LIBO)/libmisc.a(nf95_get_att_m.o)
+misc/netcdf95.F90 netcdf95 nf95_get_var_m
+dirinc grid
+stri nf95_get_var_m
+str2
+dirinc misc
+stri nf95_get_var_m
+str2 $(LIBO)/libmisc.a(nf95_get_var_m.o)
+dirinc phy_common
+stri nf95_get_var_m
+str2 $(LIBO)/libmisc.a(nf95_get_var_m.o)
+dirinc phyvenus
+stri nf95_get_var_m
+str2 $(LIBO)/libmisc.a(nf95_get_var_m.o)
+dirinc phyvenus/dyn1d
+stri nf95_get_var_m
+str2 $(LIBO)/libmisc.a(nf95_get_var_m.o)
+dernier str2 $(LIBO)/libmisc.a(nf95_get_var_m.o)
+misc/netcdf95.F90 netcdf95 nf95_gw_var_m
+dirinc grid
+stri nf95_gw_var_m
+str2
+dirinc misc
+stri nf95_gw_var_m
+str2 $(LIBO)/libmisc.a(nf95_gw_var_m.o)
+dirinc phy_common
+stri nf95_gw_var_m
+str2 $(LIBO)/libmisc.a(nf95_gw_var_m.o)
+dirinc phyvenus
+stri nf95_gw_var_m
+str2 $(LIBO)/libmisc.a(nf95_gw_var_m.o)
+dirinc phyvenus/dyn1d
+stri nf95_gw_var_m
+str2 $(LIBO)/libmisc.a(nf95_gw_var_m.o)
+dernier str2 $(LIBO)/libmisc.a(nf95_gw_var_m.o)
+misc/netcdf95.F90 netcdf95 nf95_put_att_m
+dirinc grid
+stri nf95_put_att_m
+str2
+dirinc misc
+stri nf95_put_att_m
+str2 $(LIBO)/libmisc.a(nf95_put_att_m.o)
+dirinc phy_common
+stri nf95_put_att_m
+str2 $(LIBO)/libmisc.a(nf95_put_att_m.o)
+dirinc phyvenus
+stri nf95_put_att_m
+str2 $(LIBO)/libmisc.a(nf95_put_att_m.o)
+dirinc phyvenus/dyn1d
+stri nf95_put_att_m
+str2 $(LIBO)/libmisc.a(nf95_put_att_m.o)
+dernier str2 $(LIBO)/libmisc.a(nf95_put_att_m.o)
+misc/netcdf95.F90 netcdf95 nf95_put_var_m
+dirinc grid
+stri nf95_put_var_m
+str2
+dirinc misc
+stri nf95_put_var_m
+str2 $(LIBO)/libmisc.a(nf95_put_var_m.o)
+dirinc phy_common
+stri nf95_put_var_m
+str2 $(LIBO)/libmisc.a(nf95_put_var_m.o)
+dirinc phyvenus
+stri nf95_put_var_m
+str2 $(LIBO)/libmisc.a(nf95_put_var_m.o)
+dirinc phyvenus/dyn1d
+stri nf95_put_var_m
+str2 $(LIBO)/libmisc.a(nf95_put_var_m.o)
+dernier str2 $(LIBO)/libmisc.a(nf95_put_var_m.o)
+misc/netcdf95.F90 netcdf95 simple
+dirinc grid
+stri simple
+str2
+dirinc misc
+stri simple
+str2 $(LIBO)/libmisc.a(simple.o)
+dirinc phy_common
+stri simple
+str2 $(LIBO)/libmisc.a(simple.o)
+dirinc phyvenus
+stri simple
+str2 $(LIBO)/libmisc.a(simple.o)
+dirinc phyvenus/dyn1d
+stri simple
+str2 $(LIBO)/libmisc.a(simple.o)
+dernier str2 $(LIBO)/libmisc.a(simple.o)
+misc/nf95_def_var_m.F90 nf95_def_var_m handle_err_m
+dirinc grid
+stri handle_err_m
+str2
+dirinc misc
+stri handle_err_m
+str2 $(LIBO)/libmisc.a(handle_err_m.o)
+dirinc phy_common
+stri handle_err_m
+str2 $(LIBO)/libmisc.a(handle_err_m.o)
+dirinc phyvenus
+stri handle_err_m
+str2 $(LIBO)/libmisc.a(handle_err_m.o)
+dirinc phyvenus/dyn1d
+stri handle_err_m
+str2 $(LIBO)/libmisc.a(handle_err_m.o)
+dernier str2 $(LIBO)/libmisc.a(handle_err_m.o)
+misc/nf95_def_var_m.F90 nf95_def_var_m netcdf
+dirinc grid
+stri netcdf
+str2
+dirinc misc
+stri netcdf
+str2
+dirinc phy_common
+stri netcdf
+str2
+dirinc phyvenus
+stri netcdf
+str2
+dirinc phyvenus/dyn1d
+stri netcdf
+str2
+dernier str2
+Warn: Include misc misc/nf95_def_var_m.F90 nf95_def_var_m netcdf pas trouve
+misc/nf95_get_att_m.F90 nf95_get_att_m handle_err_m
+dirinc grid
+stri handle_err_m
+str2
+dirinc misc
+stri handle_err_m
+str2 $(LIBO)/libmisc.a(handle_err_m.o)
+dirinc phy_common
+stri handle_err_m
+str2 $(LIBO)/libmisc.a(handle_err_m.o)
+dirinc phyvenus
+stri handle_err_m
+str2 $(LIBO)/libmisc.a(handle_err_m.o)
+dirinc phyvenus/dyn1d
+stri handle_err_m
+str2 $(LIBO)/libmisc.a(handle_err_m.o)
+dernier str2 $(LIBO)/libmisc.a(handle_err_m.o)
+misc/nf95_get_att_m.F90 nf95_get_att_m netcdf
+dirinc grid
+stri netcdf
+str2
+dirinc misc
+stri netcdf
+str2
+dirinc phy_common
+stri netcdf
+str2
+dirinc phyvenus
+stri netcdf
+str2
+dirinc phyvenus/dyn1d
+stri netcdf
+str2
+dernier str2
+Warn: Include misc misc/nf95_get_att_m.F90 nf95_get_att_m netcdf pas trouve
+misc/nf95_get_att_m.F90 nf95_get_att_m simple
+dirinc grid
+stri simple
+str2
+dirinc misc
+stri simple
+str2 $(LIBO)/libmisc.a(simple.o)
+dirinc phy_common
+stri simple
+str2 $(LIBO)/libmisc.a(simple.o)
+dirinc phyvenus
+stri simple
+str2 $(LIBO)/libmisc.a(simple.o)
+dirinc phyvenus/dyn1d
+stri simple
+str2 $(LIBO)/libmisc.a(simple.o)
+dernier str2 $(LIBO)/libmisc.a(simple.o)
+misc/nf95_get_var_m.F90 nf95_get_var_m handle_err_m
+dirinc grid
+stri handle_err_m
+str2
+dirinc misc
+stri handle_err_m
+str2 $(LIBO)/libmisc.a(handle_err_m.o)
+dirinc phy_common
+stri handle_err_m
+str2 $(LIBO)/libmisc.a(handle_err_m.o)
+dirinc phyvenus
+stri handle_err_m
+str2 $(LIBO)/libmisc.a(handle_err_m.o)
+dirinc phyvenus/dyn1d
+stri handle_err_m
+str2 $(LIBO)/libmisc.a(handle_err_m.o)
+dernier str2 $(LIBO)/libmisc.a(handle_err_m.o)
+misc/nf95_get_var_m.F90 nf95_get_var_m netcdf
+dirinc grid
+stri netcdf
+str2
+dirinc misc
+stri netcdf
+str2
+dirinc phy_common
+stri netcdf
+str2
+dirinc phyvenus
+stri netcdf
+str2
+dirinc phyvenus/dyn1d
+stri netcdf
+str2
+dernier str2
+Warn: Include misc misc/nf95_get_var_m.F90 nf95_get_var_m netcdf pas trouve
+misc/nf95_get_var_m.F90 nf95_get_var_m typesizes
+dirinc grid
+stri typesizes
+str2
+dirinc misc
+stri typesizes
+str2
+dirinc phy_common
+stri typesizes
+str2
+dirinc phyvenus
+stri typesizes
+str2
+dirinc phyvenus/dyn1d
+stri typesizes
+str2
+dernier str2
+Warn: Include misc misc/nf95_get_var_m.F90 nf95_get_var_m typesizes pas trouve
+misc/nf95_gw_var_m.F90 nf95_gw_var_m nf95_get_var_m
+dirinc grid
+stri nf95_get_var_m
+str2
+dirinc misc
+stri nf95_get_var_m
+str2 $(LIBO)/libmisc.a(nf95_get_var_m.o)
+dirinc phy_common
+stri nf95_get_var_m
+str2 $(LIBO)/libmisc.a(nf95_get_var_m.o)
+dirinc phyvenus
+stri nf95_get_var_m
+str2 $(LIBO)/libmisc.a(nf95_get_var_m.o)
+dirinc phyvenus/dyn1d
+stri nf95_get_var_m
+str2 $(LIBO)/libmisc.a(nf95_get_var_m.o)
+dernier str2 $(LIBO)/libmisc.a(nf95_get_var_m.o)
+misc/nf95_gw_var_m.F90 nf95_gw_var_m simple
+dirinc grid
+stri simple
+str2
+dirinc misc
+stri simple
+str2 $(LIBO)/libmisc.a(simple.o)
+dirinc phy_common
+stri simple
+str2 $(LIBO)/libmisc.a(simple.o)
+dirinc phyvenus
+stri simple
+str2 $(LIBO)/libmisc.a(simple.o)
+dirinc phyvenus/dyn1d
+stri simple
+str2 $(LIBO)/libmisc.a(simple.o)
+dernier str2 $(LIBO)/libmisc.a(simple.o)
+misc/nf95_put_att_m.F90 nf95_put_att_m handle_err_m
+dirinc grid
+stri handle_err_m
+str2
+dirinc misc
+stri handle_err_m
+str2 $(LIBO)/libmisc.a(handle_err_m.o)
+dirinc phy_common
+stri handle_err_m
+str2 $(LIBO)/libmisc.a(handle_err_m.o)
+dirinc phyvenus
+stri handle_err_m
+str2 $(LIBO)/libmisc.a(handle_err_m.o)
+dirinc phyvenus/dyn1d
+stri handle_err_m
+str2 $(LIBO)/libmisc.a(handle_err_m.o)
+dernier str2 $(LIBO)/libmisc.a(handle_err_m.o)
+misc/nf95_put_att_m.F90 nf95_put_att_m netcdf
+dirinc grid
+stri netcdf
+str2
+dirinc misc
+stri netcdf
+str2
+dirinc phy_common
+stri netcdf
+str2
+dirinc phyvenus
+stri netcdf
+str2
+dirinc phyvenus/dyn1d
+stri netcdf
+str2
+dernier str2
+Warn: Include misc misc/nf95_put_att_m.F90 nf95_put_att_m netcdf pas trouve
+misc/nf95_put_att_m.F90 nf95_put_att_m typesizes
+dirinc grid
+stri typesizes
+str2
+dirinc misc
+stri typesizes
+str2
+dirinc phy_common
+stri typesizes
+str2
+dirinc phyvenus
+stri typesizes
+str2
+dirinc phyvenus/dyn1d
+stri typesizes
+str2
+dernier str2
+Warn: Include misc misc/nf95_put_att_m.F90 nf95_put_att_m typesizes pas trouve
+misc/nf95_put_var_m.F90 nf95_put_var_m handle_err_m
+dirinc grid
+stri handle_err_m
+str2
+dirinc misc
+stri handle_err_m
+str2 $(LIBO)/libmisc.a(handle_err_m.o)
+dirinc phy_common
+stri handle_err_m
+str2 $(LIBO)/libmisc.a(handle_err_m.o)
+dirinc phyvenus
+stri handle_err_m
+str2 $(LIBO)/libmisc.a(handle_err_m.o)
+dirinc phyvenus/dyn1d
+stri handle_err_m
+str2 $(LIBO)/libmisc.a(handle_err_m.o)
+dernier str2 $(LIBO)/libmisc.a(handle_err_m.o)
+misc/nf95_put_var_m.F90 nf95_put_var_m netcdf
+dirinc grid
+stri netcdf
+str2
+dirinc misc
+stri netcdf
+str2
+dirinc phy_common
+stri netcdf
+str2
+dirinc phyvenus
+stri netcdf
+str2
+dirinc phyvenus/dyn1d
+stri netcdf
+str2
+dernier str2
+Warn: Include misc misc/nf95_put_var_m.F90 nf95_put_var_m netcdf pas trouve
+misc/nf95_put_var_m.F90 nf95_put_var_m typesizes
+dirinc grid
+stri typesizes
+str2
+dirinc misc
+stri typesizes
+str2
+dirinc phy_common
+stri typesizes
+str2
+dirinc phyvenus
+stri typesizes
+str2
+dirinc phyvenus/dyn1d
+stri typesizes
+str2
+dernier str2
+Warn: Include misc misc/nf95_put_var_m.F90 nf95_put_var_m typesizes pas trouve
+misc/pchfe_95_m.F90 pchfe_95_m assert_eq_m
+dirinc grid
+stri assert_eq_m
+str2
+dirinc misc
+stri assert_eq_m
+str2 $(LIBO)/libmisc.a(assert_eq_m.o)
+dirinc phy_common
+stri assert_eq_m
+str2 $(LIBO)/libmisc.a(assert_eq_m.o)
+dirinc phyvenus
+stri assert_eq_m
+str2 $(LIBO)/libmisc.a(assert_eq_m.o)
+dirinc phyvenus/dyn1d
+stri assert_eq_m
+str2 $(LIBO)/libmisc.a(assert_eq_m.o)
+dernier str2 $(LIBO)/libmisc.a(assert_eq_m.o)
+misc/pchsp_95_m.F90 pchsp_95_m assert_eq_m
+dirinc grid
+stri assert_eq_m
+str2
+dirinc misc
+stri assert_eq_m
+str2 $(LIBO)/libmisc.a(assert_eq_m.o)
+dirinc phy_common
+stri assert_eq_m
+str2 $(LIBO)/libmisc.a(assert_eq_m.o)
+dirinc phyvenus
+stri assert_eq_m
+str2 $(LIBO)/libmisc.a(assert_eq_m.o)
+dirinc phyvenus/dyn1d
+stri assert_eq_m
+str2 $(LIBO)/libmisc.a(assert_eq_m.o)
+dernier str2 $(LIBO)/libmisc.a(assert_eq_m.o)
+misc/regr1_lint_m.F90 regr1_lint_m assert_eq_m
+dirinc grid
+stri assert_eq_m
+str2
+dirinc misc
+stri assert_eq_m
+str2 $(LIBO)/libmisc.a(assert_eq_m.o)
+dirinc phy_common
+stri assert_eq_m
+str2 $(LIBO)/libmisc.a(assert_eq_m.o)
+dirinc phyvenus
+stri assert_eq_m
+str2 $(LIBO)/libmisc.a(assert_eq_m.o)
+dirinc phyvenus/dyn1d
+stri assert_eq_m
+str2 $(LIBO)/libmisc.a(assert_eq_m.o)
+dernier str2 $(LIBO)/libmisc.a(assert_eq_m.o)
+misc/regr1_lint_m.F90 regr1_lint_m interpolation
+dirinc grid
+stri interpolation
+str2
+dirinc misc
+stri interpolation
+str2 $(LIBO)/libmisc.a(interpolation.o)
+dirinc phy_common
+stri interpolation
+str2 $(LIBO)/libmisc.a(interpolation.o)
+dirinc phyvenus
+stri interpolation
+str2 $(LIBO)/libmisc.a(interpolation.o)
+dirinc phyvenus/dyn1d
+stri interpolation
+str2 $(LIBO)/libmisc.a(interpolation.o)
+dernier str2 $(LIBO)/libmisc.a(interpolation.o)
+misc/regr1_step_av_m.F90 regr1_step_av_m assert_eq_m
+dirinc grid
+stri assert_eq_m
+str2
+dirinc misc
+stri assert_eq_m
+str2 $(LIBO)/libmisc.a(assert_eq_m.o)
+dirinc phy_common
+stri assert_eq_m
+str2 $(LIBO)/libmisc.a(assert_eq_m.o)
+dirinc phyvenus
+stri assert_eq_m
+str2 $(LIBO)/libmisc.a(assert_eq_m.o)
+dirinc phyvenus/dyn1d
+stri assert_eq_m
+str2 $(LIBO)/libmisc.a(assert_eq_m.o)
+dernier str2 $(LIBO)/libmisc.a(assert_eq_m.o)
+misc/regr1_step_av_m.F90 regr1_step_av_m assert_m
+dirinc grid
+stri assert_m
+str2
+dirinc misc
+stri assert_m
+str2 $(LIBO)/libmisc.a(assert_m.o)
+dirinc phy_common
+stri assert_m
+str2 $(LIBO)/libmisc.a(assert_m.o)
+dirinc phyvenus
+stri assert_m
+str2 $(LIBO)/libmisc.a(assert_m.o)
+dirinc phyvenus/dyn1d
+stri assert_m
+str2 $(LIBO)/libmisc.a(assert_m.o)
+dernier str2 $(LIBO)/libmisc.a(assert_m.o)
+misc/regr1_step_av_m.F90 regr1_step_av_m interpolation
+dirinc grid
+stri interpolation
+str2
+dirinc misc
+stri interpolation
+str2 $(LIBO)/libmisc.a(interpolation.o)
+dirinc phy_common
+stri interpolation
+str2 $(LIBO)/libmisc.a(interpolation.o)
+dirinc phyvenus
+stri interpolation
+str2 $(LIBO)/libmisc.a(interpolation.o)
+dirinc phyvenus/dyn1d
+stri interpolation
+str2 $(LIBO)/libmisc.a(interpolation.o)
+dernier str2 $(LIBO)/libmisc.a(interpolation.o)
+misc/regr3_lint_m.F90 regr3_lint_m assert_eq_m
+dirinc grid
+stri assert_eq_m
+str2
+dirinc misc
+stri assert_eq_m
+str2 $(LIBO)/libmisc.a(assert_eq_m.o)
+dirinc phy_common
+stri assert_eq_m
+str2 $(LIBO)/libmisc.a(assert_eq_m.o)
+dirinc phyvenus
+stri assert_eq_m
+str2 $(LIBO)/libmisc.a(assert_eq_m.o)
+dirinc phyvenus/dyn1d
+stri assert_eq_m
+str2 $(LIBO)/libmisc.a(assert_eq_m.o)
+dernier str2 $(LIBO)/libmisc.a(assert_eq_m.o)
+misc/regr3_lint_m.F90 regr3_lint_m interpolation
+dirinc grid
+stri interpolation
+str2
+dirinc misc
+stri interpolation
+str2 $(LIBO)/libmisc.a(interpolation.o)
+dirinc phy_common
+stri interpolation
+str2 $(LIBO)/libmisc.a(interpolation.o)
+dirinc phyvenus
+stri interpolation
+str2 $(LIBO)/libmisc.a(interpolation.o)
+dirinc phyvenus/dyn1d
+stri interpolation
+str2 $(LIBO)/libmisc.a(interpolation.o)
+dernier str2 $(LIBO)/libmisc.a(interpolation.o)
+misc/simple.F90 simple handle_err_m
+dirinc grid
+stri handle_err_m
+str2
+dirinc misc
+stri handle_err_m
+str2 $(LIBO)/libmisc.a(handle_err_m.o)
+dirinc phy_common
+stri handle_err_m
+str2 $(LIBO)/libmisc.a(handle_err_m.o)
+dirinc phyvenus
+stri handle_err_m
+str2 $(LIBO)/libmisc.a(handle_err_m.o)
+dirinc phyvenus/dyn1d
+stri handle_err_m
+str2 $(LIBO)/libmisc.a(handle_err_m.o)
+dernier str2 $(LIBO)/libmisc.a(handle_err_m.o)
+misc/simple.F90 simple netcdf
+dirinc grid
+stri netcdf
+str2
+dirinc misc
+stri netcdf
+str2
+dirinc phy_common
+stri netcdf
+str2
+dirinc phyvenus
+stri netcdf
+str2
+dirinc phyvenus/dyn1d
+stri netcdf
+str2
+dernier str2
+Warn: Include misc misc/simple.F90 simple netcdf pas trouve
+misc/vampir.F90 vampir 'mpe_logf.h'
+dirinc grid
+stri 'mpe_logf.h'
+str2
+dirinc misc
+stri 'mpe_logf.h'
+str2
+dirinc phy_common
+stri 'mpe_logf.h'
+str2
+dirinc phyvenus
+stri 'mpe_logf.h'
+str2
+dirinc phyvenus/dyn1d
+stri 'mpe_logf.h'
+str2
+dernier str2
+Warn: Include misc misc/vampir.F90 vampir 'mpe_logf.h' pas trouve
+misc/vampir.F90 vampir 'VT.inc'
+dirinc grid
+stri 'VT.inc'
+str2
+dirinc misc
+stri 'VT.inc'
+str2
+dirinc phy_common
+stri 'VT.inc'
+str2
+dirinc phyvenus
+stri 'VT.inc'
+str2
+dirinc phyvenus/dyn1d
+stri 'VT.inc'
+str2
+dernier str2
+Warn: Include misc misc/vampir.F90 vampir 'VT.inc' pas trouve
+misc/write_field.F90 write_field 'netcdf.inc'
+dirinc grid
+stri 'netcdf.inc'
+str2
+dirinc misc
+stri 'netcdf.inc'
+str2
+dirinc phy_common
+stri 'netcdf.inc'
+str2
+dirinc phyvenus
+stri 'netcdf.inc'
+str2
+dirinc phyvenus/dyn1d
+stri 'netcdf.inc'
+str2
+dernier str2
+Warn: Include misc misc/write_field.F90 write_field 'netcdf.inc' pas trouve
+misc/write_field.F90 write_field 'netcdf.inc'
+dirinc grid
+stri 'netcdf.inc'
+str2
+dirinc misc
+stri 'netcdf.inc'
+str2
+dirinc phy_common
+stri 'netcdf.inc'
+str2
+dirinc phyvenus
+stri 'netcdf.inc'
+str2
+dirinc phyvenus/dyn1d
+stri 'netcdf.inc'
+str2
+dernier str2
+Warn: Include misc misc/write_field.F90 write_field 'netcdf.inc' pas trouve
+misc/wxios.F90 wxios 'iniprint.h'
+dirinc grid
+stri 'iniprint.h'
+str2
+dirinc misc
+stri 'iniprint.h'
+str2
+dirinc phy_common
+stri 'iniprint.h'
+str2
+dirinc phyvenus
+stri 'iniprint.h'
+str2
+dirinc phyvenus/dyn1d
+stri 'iniprint.h'
+str2
+dernier str2
+Warn: Include misc misc/wxios.F90 wxios 'iniprint.h' pas trouve
+misc/wxios.F90 wxios logical,intent(in)
+dirinc grid
+stri logical,intent(in)
+str2
+dirinc misc
+stri logical,intent(in)
+str2
+dirinc phy_common
+stri logical,intent(in)
+str2
+dirinc phyvenus
+stri logical,intent(in)
+str2
+dirinc phyvenus/dyn1d
+stri logical,intent(in)
+str2
+dernier str2
+Warn: Include misc misc/wxios.F90 wxios logical,intent(in) pas trouve
+misc/wxios.F90 wxios ::
+dirinc grid
+stri ::
+str2
+dirinc misc
+stri ::
+str2
+dirinc phy_common
+stri ::
+str2
+dirinc phyvenus
+stri ::
+str2
+dirinc phyvenus/dyn1d
+stri ::
+str2
+dernier str2
+Warn: Include misc misc/wxios.F90 wxios :: pas trouve
+misc/wxios.F90 wxios is_south_pole
+dirinc grid
+stri is_south_pole
+str2
+dirinc misc
+stri is_south_pole
+str2
+dirinc phy_common
+stri is_south_pole
+str2
+dirinc phyvenus
+stri is_south_pole
+str2
+dirinc phyvenus/dyn1d
+stri is_south_pole
+str2
+dernier str2
+Warn: Include misc misc/wxios.F90 wxios is_south_pole pas trouve
+misc/wxios.F90 wxios !
+dirinc grid
+stri !
+str2
+dirinc misc
+stri !
+str2
+dirinc phy_common
+stri !
+str2
+dirinc phyvenus
+stri !
+str2
+dirinc phyvenus/dyn1d
+stri !
+str2
+dernier str2
+Warn: Include misc misc/wxios.F90 wxios ! pas trouve
+misc/wxios.F90 wxios does
+dirinc grid
+stri does
+str2
+dirinc misc
+stri does
+str2
+dirinc phy_common
+stri does
+str2
+dirinc phyvenus
+stri does
+str2
+dirinc phyvenus/dyn1d
+stri does
+str2
+dernier str2
+Warn: Include misc misc/wxios.F90 wxios does pas trouve
+misc/wxios.F90 wxios this
+dirinc grid
+stri this
+str2
+dirinc misc
+stri this
+str2
+dirinc phy_common
+stri this
+str2
+dirinc phyvenus
+stri this
+str2
+dirinc phyvenus/dyn1d
+stri this
+str2
+dernier str2
+Warn: Include misc misc/wxios.F90 wxios this pas trouve
+misc/wxios.F90 wxios process
+dirinc grid
+stri process
+str2
+dirinc misc
+stri process
+str2
+dirinc phy_common
+stri process
+str2
+dirinc phyvenus
+stri process
+str2
+dirinc phyvenus/dyn1d
+stri process
+str2
+dernier str2
+Warn: Include misc misc/wxios.F90 wxios process pas trouve
+misc/wxios.F90 wxios the
+dirinc grid
+stri the
+str2
+dirinc misc
+stri the
+str2
+dirinc phy_common
+stri the
+str2
+dirinc phyvenus
+stri the
+str2
+dirinc phyvenus/dyn1d
+stri the
+str2
+dernier str2
+Warn: Include misc misc/wxios.F90 wxios the pas trouve
+misc/wxios.F90 wxios south
+dirinc grid
+stri south
+str2
+dirinc misc
+stri south
+str2
+dirinc phy_common
+stri south
+str2
+dirinc phyvenus
+stri south
+str2
+dirinc phyvenus/dyn1d
+stri south
+str2
+dernier str2
+Warn: Include misc misc/wxios.F90 wxios south pas trouve
+misc/wxios.F90 wxios pole?
+dirinc grid
+stri pole?
+str2
+dirinc misc
+stri pole?
+str2
+dirinc phy_common
+stri pole?
+str2
+dirinc phyvenus
+stri pole?
+str2
+dirinc phyvenus/dyn1d
+stri pole?
+str2
+dernier str2
+Warn: Include misc misc/wxios.F90 wxios pole? pas trouve
+misc/wxios.F90 wxios iaxis
+dirinc grid
+stri iaxis
+str2
+dirinc misc
+stri iaxis
+str2
+dirinc phy_common
+stri iaxis
+str2
+dirinc phyvenus
+stri iaxis
+str2
+dirinc phyvenus/dyn1d
+stri iaxis
+str2
+dernier str2
+Warn: Include misc misc/wxios.F90 wxios iaxis pas trouve
+misc/wxios.F90 wxios iaxis_attr
+dirinc grid
+stri iaxis_attr
+str2
+dirinc misc
+stri iaxis_attr
+str2
+dirinc phy_common
+stri iaxis_attr
+str2
+dirinc phyvenus
+stri iaxis_attr
+str2
+dirinc phyvenus/dyn1d
+stri iaxis_attr
+str2
+dernier str2
+Warn: Include misc misc/wxios.F90 wxios iaxis_attr pas trouve
+misc/wxios.F90 wxios icontext_attr
+dirinc grid
+stri icontext_attr
+str2
+dirinc misc
+stri icontext_attr
+str2
+dirinc phy_common
+stri icontext_attr
+str2
+dirinc phyvenus
+stri icontext_attr
+str2
+dirinc phyvenus/dyn1d
+stri icontext_attr
+str2
+dernier str2
+Warn: Include misc misc/wxios.F90 wxios icontext_attr pas trouve
+misc/wxios.F90 wxios idate
+dirinc grid
+stri idate
+str2
+dirinc misc
+stri idate
+str2
+dirinc phy_common
+stri idate
+str2
+dirinc phyvenus
+stri idate
+str2
+dirinc phyvenus/dyn1d
+stri idate
+str2
+dernier str2
+Warn: Include misc misc/wxios.F90 wxios idate pas trouve
+misc/wxios.F90 wxios idomain_attr
+dirinc grid
+stri idomain_attr
+str2
+dirinc misc
+stri idomain_attr
+str2
+dirinc phy_common
+stri idomain_attr
+str2
+dirinc phyvenus
+stri idomain_attr
+str2
+dirinc phyvenus/dyn1d
+stri idomain_attr
+str2
+dernier str2
+Warn: Include misc misc/wxios.F90 wxios idomain_attr pas trouve
+misc/wxios.F90 wxios ifield_attr
+dirinc grid
+stri ifield_attr
+str2
+dirinc misc
+stri ifield_attr
+str2
+dirinc phy_common
+stri ifield_attr
+str2
+dirinc phyvenus
+stri ifield_attr
+str2
+dirinc phyvenus/dyn1d
+stri ifield_attr
+str2
+dernier str2
+Warn: Include misc misc/wxios.F90 wxios ifield_attr pas trouve
+misc/wxios.F90 wxios ifile_attr
+dirinc grid
+stri ifile_attr
+str2
+dirinc misc
+stri ifile_attr
+str2
+dirinc phy_common
+stri ifile_attr
+str2
+dirinc phyvenus
+stri ifile_attr
+str2
+dirinc phyvenus/dyn1d
+stri ifile_attr
+str2
+dernier str2
+Warn: Include misc misc/wxios.F90 wxios ifile_attr pas trouve
+misc/wxios.F90 wxios ixml_tree
+dirinc grid
+stri ixml_tree
+str2
+dirinc misc
+stri ixml_tree
+str2
+dirinc phy_common
+stri ixml_tree
+str2
+dirinc phyvenus
+stri ixml_tree
+str2
+dirinc phyvenus/dyn1d
+stri ixml_tree
+str2
+dernier str2
+Warn: Include misc misc/wxios.F90 wxios ixml_tree pas trouve
+misc/wxios.F90 wxios netcdf
+dirinc grid
+stri netcdf
+str2
+dirinc misc
+stri netcdf
+str2
+dirinc phy_common
+stri netcdf
+str2
+dirinc phyvenus
+stri netcdf
+str2
+dirinc phyvenus/dyn1d
+stri netcdf
+str2
+dernier str2
+Warn: Include misc misc/wxios.F90 wxios netcdf pas trouve
+misc/wxios.F90 wxios xios
+dirinc grid
+stri xios
+str2
+dirinc misc
+stri xios
+str2
+dirinc phy_common
+stri xios
+str2
+dirinc phyvenus
+stri xios
+str2
+dirinc phyvenus/dyn1d
+stri xios
+str2
+dernier str2
+Warn: Include misc misc/wxios.F90 wxios xios pas trouve
+phy_common/abort_physic.F90 phy_common/geometry_mod.F90 phy_common/ioipsl_getin_p_mod.F90 phy_common/mod_grid_phy_lmdz.F90 phy_common/mod_phys_lmdz_mpi_data.F90 phy_common/mod_phys_lmdz_mpi_transfert.F90 phy_common/mod_phys_lmdz_omp_data.F90 phy_common/mod_phys_lmdz_omp_transfert.F90 phy_common/mod_phys_lmdz_para.F90 phy_common/mod_phys_lmdz_transfert_para.F90 phy_common/physics_distribution_mod.F90 phy_common/print_control_mod.F90 phy_common/regular_lonlat_mod.F90 phy_common/write_field_phy.F90
+phy_common/abort_physic.F90 abort_physic IOIPSL
+dirinc grid
+stri IOIPSL
+str2
+dirinc misc
+stri IOIPSL
+str2
+dirinc phy_common
+stri IOIPSL
+str2
+dirinc phyvenus
+stri IOIPSL
+str2
+dirinc phyvenus/dyn1d
+stri IOIPSL
+str2
+dernier str2
+Warn: Include phy_common phy_common/abort_physic.F90 abort_physic IOIPSL pas trouve
+phy_common/abort_physic.F90 abort_physic ioipsl_getincom
+dirinc grid
+stri ioipsl_getincom
+str2
+dirinc misc
+stri ioipsl_getincom
+str2 $(LIBO)/libmisc.a(ioipsl_getincom.o)
+dirinc phy_common
+stri ioipsl_getincom
+str2 $(LIBO)/libmisc.a(ioipsl_getincom.o)
+dirinc phyvenus
+stri ioipsl_getincom
+str2 $(LIBO)/libmisc.a(ioipsl_getincom.o)
+dirinc phyvenus/dyn1d
+stri ioipsl_getincom
+str2 $(LIBO)/libmisc.a(ioipsl_getincom.o)
+dernier str2 $(LIBO)/libmisc.a(ioipsl_getincom.o)
+phy_common/abort_physic.F90 abort_physic mod_phys_lmdz_para
+dirinc grid
+stri mod_phys_lmdz_para
+str2
+dirinc misc
+stri mod_phys_lmdz_para
+str2
+dirinc phy_common
+stri mod_phys_lmdz_para
+str2 $(LIBO)/libphy_common.a(mod_phys_lmdz_para.o)
+dirinc phyvenus
+stri mod_phys_lmdz_para
+str2 $(LIBO)/libphy_common.a(mod_phys_lmdz_para.o)
+dirinc phyvenus/dyn1d
+stri mod_phys_lmdz_para
+str2 $(LIBO)/libphy_common.a(mod_phys_lmdz_para.o)
+dernier str2 $(LIBO)/libphy_common.a(mod_phys_lmdz_para.o)
+phy_common/abort_physic.F90 abort_physic print_control_mod
+dirinc grid
+stri print_control_mod
+str2
+dirinc misc
+stri print_control_mod
+str2
+dirinc phy_common
+stri print_control_mod
+str2 $(LIBO)/libphy_common.a(print_control_mod.o)
+dirinc phyvenus
+stri print_control_mod
+str2 $(LIBO)/libphy_common.a(print_control_mod.o)
+dirinc phyvenus/dyn1d
+stri print_control_mod
+str2 $(LIBO)/libphy_common.a(print_control_mod.o)
+dernier str2 $(LIBO)/libphy_common.a(print_control_mod.o)
+phy_common/geometry_mod.F90 geometry_mod mod_grid_phy_lmdz
+dirinc grid
+stri mod_grid_phy_lmdz
+str2
+dirinc misc
+stri mod_grid_phy_lmdz
+str2
+dirinc phy_common
+stri mod_grid_phy_lmdz
+str2 $(LIBO)/libphy_common.a(mod_grid_phy_lmdz.o)
+dirinc phyvenus
+stri mod_grid_phy_lmdz
+str2 $(LIBO)/libphy_common.a(mod_grid_phy_lmdz.o)
+dirinc phyvenus/dyn1d
+stri mod_grid_phy_lmdz
+str2 $(LIBO)/libphy_common.a(mod_grid_phy_lmdz.o)
+dernier str2 $(LIBO)/libphy_common.a(mod_grid_phy_lmdz.o)
+phy_common/geometry_mod.F90 geometry_mod nrtype
+dirinc grid
+stri nrtype
+str2
+dirinc misc
+stri nrtype
+str2 $(LIBO)/libmisc.a(nrtype.o)
+dirinc phy_common
+stri nrtype
+str2 $(LIBO)/libmisc.a(nrtype.o)
+dirinc phyvenus
+stri nrtype
+str2 $(LIBO)/libmisc.a(nrtype.o)
+dirinc phyvenus/dyn1d
+stri nrtype
+str2 $(LIBO)/libmisc.a(nrtype.o)
+dernier str2 $(LIBO)/libmisc.a(nrtype.o)
+phy_common/ioipsl_getin_p_mod.F90 ioipsl_getin_p_mod ioipsl
+dirinc grid
+stri ioipsl
+str2
+dirinc misc
+stri ioipsl
+str2
+dirinc phy_common
+stri ioipsl
+str2
+dirinc phyvenus
+stri ioipsl
+str2
+dirinc phyvenus/dyn1d
+stri ioipsl
+str2
+dernier str2
+Warn: Include phy_common phy_common/ioipsl_getin_p_mod.F90 ioipsl_getin_p_mod ioipsl pas trouve
+phy_common/ioipsl_getin_p_mod.F90 ioipsl_getin_p_mod ioipsl_getincom
+dirinc grid
+stri ioipsl_getincom
+str2
+dirinc misc
+stri ioipsl_getincom
+str2 $(LIBO)/libmisc.a(ioipsl_getincom.o)
+dirinc phy_common
+stri ioipsl_getincom
+str2 $(LIBO)/libmisc.a(ioipsl_getincom.o)
+dirinc phyvenus
+stri ioipsl_getincom
+str2 $(LIBO)/libmisc.a(ioipsl_getincom.o)
+dirinc phyvenus/dyn1d
+stri ioipsl_getincom
+str2 $(LIBO)/libmisc.a(ioipsl_getincom.o)
+dernier str2 $(LIBO)/libmisc.a(ioipsl_getincom.o)
+phy_common/ioipsl_getin_p_mod.F90 ioipsl_getin_p_mod mod_phys_lmdz_mpi_data
+dirinc grid
+stri mod_phys_lmdz_mpi_data
+str2
+dirinc misc
+stri mod_phys_lmdz_mpi_data
+str2
+dirinc phy_common
+stri mod_phys_lmdz_mpi_data
+str2 $(LIBO)/libphy_common.a(mod_phys_lmdz_mpi_data.o)
+dirinc phyvenus
+stri mod_phys_lmdz_mpi_data
+str2 $(LIBO)/libphy_common.a(mod_phys_lmdz_mpi_data.o)
+dirinc phyvenus/dyn1d
+stri mod_phys_lmdz_mpi_data
+str2 $(LIBO)/libphy_common.a(mod_phys_lmdz_mpi_data.o)
+dernier str2 $(LIBO)/libphy_common.a(mod_phys_lmdz_mpi_data.o)
+phy_common/ioipsl_getin_p_mod.F90 ioipsl_getin_p_mod mod_phys_lmdz_omp_data
+dirinc grid
+stri mod_phys_lmdz_omp_data
+str2
+dirinc misc
+stri mod_phys_lmdz_omp_data
+str2
+dirinc phy_common
+stri mod_phys_lmdz_omp_data
+str2 $(LIBO)/libphy_common.a(mod_phys_lmdz_omp_data.o)
+dirinc phyvenus
+stri mod_phys_lmdz_omp_data
+str2 $(LIBO)/libphy_common.a(mod_phys_lmdz_omp_data.o)
+dirinc phyvenus/dyn1d
+stri mod_phys_lmdz_omp_data
+str2 $(LIBO)/libphy_common.a(mod_phys_lmdz_omp_data.o)
+dernier str2 $(LIBO)/libphy_common.a(mod_phys_lmdz_omp_data.o)
+phy_common/ioipsl_getin_p_mod.F90 ioipsl_getin_p_mod mod_phys_lmdz_transfert_para
+dirinc grid
+stri mod_phys_lmdz_transfert_para
+str2
+dirinc misc
+stri mod_phys_lmdz_transfert_para
+str2
+dirinc phy_common
+stri mod_phys_lmdz_transfert_para
+str2 $(LIBO)/libphy_common.a(mod_phys_lmdz_transfert_para.o)
+dirinc phyvenus
+stri mod_phys_lmdz_transfert_para
+str2 $(LIBO)/libphy_common.a(mod_phys_lmdz_transfert_para.o)
+dirinc phyvenus/dyn1d
+stri mod_phys_lmdz_transfert_para
+str2 $(LIBO)/libphy_common.a(mod_phys_lmdz_transfert_para.o)
+dernier str2 $(LIBO)/libphy_common.a(mod_phys_lmdz_transfert_para.o)
+phy_common/mod_phys_lmdz_mpi_data.F90 mod_phys_lmdz_mpi_data iniprint.h
+dirinc grid
+stri iniprint.h
+str2
+dirinc misc
+stri iniprint.h
+str2 $(LIBF)/misc/iniprint.h
+dirinc phy_common
+stri iniprint.h
+str2 $(LIBF)/misc/iniprint.h
+dirinc phyvenus
+stri iniprint.h
+str2 $(LIBF)/misc/iniprint.h
+dirinc phyvenus/dyn1d
+stri iniprint.h
+str2 $(LIBF)/misc/iniprint.h
+dernier str2 $(LIBF)/misc/iniprint.h
+phy_common/mod_phys_lmdz_mpi_data.F90 mod_phys_lmdz_mpi_data 'mpif.h'
+dirinc grid
+stri 'mpif.h'
+str2
+dirinc misc
+stri 'mpif.h'
+str2
+dirinc phy_common
+stri 'mpif.h'
+str2
+dirinc phyvenus
+stri 'mpif.h'
+str2
+dirinc phyvenus/dyn1d
+stri 'mpif.h'
+str2
+dernier str2
+Warn: Include phy_common phy_common/mod_phys_lmdz_mpi_data.F90 mod_phys_lmdz_mpi_data 'mpif.h' pas trouve
+phy_common/mod_phys_lmdz_mpi_transfert.F90 mod_phys_lmdz_mpi_transfert 'mpif.h'
+dirinc grid
+stri 'mpif.h'
+str2
+dirinc misc
+stri 'mpif.h'
+str2
+dirinc phy_common
+stri 'mpif.h'
+str2
+dirinc phyvenus
+stri 'mpif.h'
+str2
+dirinc phyvenus/dyn1d
+stri 'mpif.h'
+str2
+dernier str2
+Warn: Include phy_common phy_common/mod_phys_lmdz_mpi_transfert.F90 mod_phys_lmdz_mpi_transfert 'mpif.h' pas trouve
+phy_common/mod_phys_lmdz_mpi_transfert.F90 mod_phys_lmdz_mpi_transfert mod_grid_phy_lmdz
+dirinc grid
+stri mod_grid_phy_lmdz
+str2
+dirinc misc
+stri mod_grid_phy_lmdz
+str2
+dirinc phy_common
+stri mod_grid_phy_lmdz
+str2 $(LIBO)/libphy_common.a(mod_grid_phy_lmdz.o)
+dirinc phyvenus
+stri mod_grid_phy_lmdz
+str2 $(LIBO)/libphy_common.a(mod_grid_phy_lmdz.o)
+dirinc phyvenus/dyn1d
+stri mod_grid_phy_lmdz
+str2 $(LIBO)/libphy_common.a(mod_grid_phy_lmdz.o)
+dernier str2 $(LIBO)/libphy_common.a(mod_grid_phy_lmdz.o)
+phy_common/mod_phys_lmdz_mpi_transfert.F90 mod_phys_lmdz_mpi_transfert mod_phys_lmdz_mpi_data
+dirinc grid
+stri mod_phys_lmdz_mpi_data
+str2
+dirinc misc
+stri mod_phys_lmdz_mpi_data
+str2
+dirinc phy_common
+stri mod_phys_lmdz_mpi_data
+str2 $(LIBO)/libphy_common.a(mod_phys_lmdz_mpi_data.o)
+dirinc phyvenus
+stri mod_phys_lmdz_mpi_data
+str2 $(LIBO)/libphy_common.a(mod_phys_lmdz_mpi_data.o)
+dirinc phyvenus/dyn1d
+stri mod_phys_lmdz_mpi_data
+str2 $(LIBO)/libphy_common.a(mod_phys_lmdz_mpi_data.o)
+dernier str2 $(LIBO)/libphy_common.a(mod_phys_lmdz_mpi_data.o)
+phy_common/mod_phys_lmdz_omp_data.F90 mod_phys_lmdz_omp_data iniprint.h
+dirinc grid
+stri iniprint.h
+str2
+dirinc misc
+stri iniprint.h
+str2 $(LIBF)/misc/iniprint.h
+dirinc phy_common
+stri iniprint.h
+str2 $(LIBF)/misc/iniprint.h
+dirinc phyvenus
+stri iniprint.h
+str2 $(LIBF)/misc/iniprint.h
+dirinc phyvenus/dyn1d
+stri iniprint.h
+str2 $(LIBF)/misc/iniprint.h
+dernier str2 $(LIBF)/misc/iniprint.h
+phy_common/mod_phys_lmdz_omp_data.F90 mod_phys_lmdz_omp_data dimphy
+dirinc grid
+stri dimphy
+str2
+dirinc misc
+stri dimphy
+str2
+dirinc phy_common
+stri dimphy
+str2
+dirinc phyvenus
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dirinc phyvenus/dyn1d
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dernier str2 $(LIBO)/libphyvenus.a(dimphy.o)
+phy_common/mod_phys_lmdz_omp_transfert.F90 mod_phys_lmdz_omp_transfert mod_phys_lmdz_mpi_data
+dirinc grid
+stri mod_phys_lmdz_mpi_data
+str2
+dirinc misc
+stri mod_phys_lmdz_mpi_data
+str2
+dirinc phy_common
+stri mod_phys_lmdz_mpi_data
+str2 $(LIBO)/libphy_common.a(mod_phys_lmdz_mpi_data.o)
+dirinc phyvenus
+stri mod_phys_lmdz_mpi_data
+str2 $(LIBO)/libphy_common.a(mod_phys_lmdz_mpi_data.o)
+dirinc phyvenus/dyn1d
+stri mod_phys_lmdz_mpi_data
+str2 $(LIBO)/libphy_common.a(mod_phys_lmdz_mpi_data.o)
+dernier str2 $(LIBO)/libphy_common.a(mod_phys_lmdz_mpi_data.o)
+phy_common/mod_phys_lmdz_omp_transfert.F90 mod_phys_lmdz_omp_transfert mod_phys_lmdz_omp_data
+dirinc grid
+stri mod_phys_lmdz_omp_data
+str2
+dirinc misc
+stri mod_phys_lmdz_omp_data
+str2
+dirinc phy_common
+stri mod_phys_lmdz_omp_data
+str2 $(LIBO)/libphy_common.a(mod_phys_lmdz_omp_data.o)
+dirinc phyvenus
+stri mod_phys_lmdz_omp_data
+str2 $(LIBO)/libphy_common.a(mod_phys_lmdz_omp_data.o)
+dirinc phyvenus/dyn1d
+stri mod_phys_lmdz_omp_data
+str2 $(LIBO)/libphy_common.a(mod_phys_lmdz_omp_data.o)
+dernier str2 $(LIBO)/libphy_common.a(mod_phys_lmdz_omp_data.o)
+phy_common/mod_phys_lmdz_para.F90 mod_phys_lmdz_para iniprint.h
+dirinc grid
+stri iniprint.h
+str2
+dirinc misc
+stri iniprint.h
+str2 $(LIBF)/misc/iniprint.h
+dirinc phy_common
+stri iniprint.h
+str2 $(LIBF)/misc/iniprint.h
+dirinc phyvenus
+stri iniprint.h
+str2 $(LIBF)/misc/iniprint.h
+dirinc phyvenus/dyn1d
+stri iniprint.h
+str2 $(LIBF)/misc/iniprint.h
+dernier str2 $(LIBF)/misc/iniprint.h
+phy_common/mod_phys_lmdz_para.F90 mod_phys_lmdz_para mod_grid_phy_lmdz
+dirinc grid
+stri mod_grid_phy_lmdz
+str2
+dirinc misc
+stri mod_grid_phy_lmdz
+str2
+dirinc phy_common
+stri mod_grid_phy_lmdz
+str2 $(LIBO)/libphy_common.a(mod_grid_phy_lmdz.o)
+dirinc phyvenus
+stri mod_grid_phy_lmdz
+str2 $(LIBO)/libphy_common.a(mod_grid_phy_lmdz.o)
+dirinc phyvenus/dyn1d
+stri mod_grid_phy_lmdz
+str2 $(LIBO)/libphy_common.a(mod_grid_phy_lmdz.o)
+dernier str2 $(LIBO)/libphy_common.a(mod_grid_phy_lmdz.o)
+phy_common/mod_phys_lmdz_para.F90 mod_phys_lmdz_para mod_phys_lmdz_mpi_data
+dirinc grid
+stri mod_phys_lmdz_mpi_data
+str2
+dirinc misc
+stri mod_phys_lmdz_mpi_data
+str2
+dirinc phy_common
+stri mod_phys_lmdz_mpi_data
+str2 $(LIBO)/libphy_common.a(mod_phys_lmdz_mpi_data.o)
+dirinc phyvenus
+stri mod_phys_lmdz_mpi_data
+str2 $(LIBO)/libphy_common.a(mod_phys_lmdz_mpi_data.o)
+dirinc phyvenus/dyn1d
+stri mod_phys_lmdz_mpi_data
+str2 $(LIBO)/libphy_common.a(mod_phys_lmdz_mpi_data.o)
+dernier str2 $(LIBO)/libphy_common.a(mod_phys_lmdz_mpi_data.o)
+phy_common/mod_phys_lmdz_para.F90 mod_phys_lmdz_para mod_phys_lmdz_omp_data
+dirinc grid
+stri mod_phys_lmdz_omp_data
+str2
+dirinc misc
+stri mod_phys_lmdz_omp_data
+str2
+dirinc phy_common
+stri mod_phys_lmdz_omp_data
+str2 $(LIBO)/libphy_common.a(mod_phys_lmdz_omp_data.o)
+dirinc phyvenus
+stri mod_phys_lmdz_omp_data
+str2 $(LIBO)/libphy_common.a(mod_phys_lmdz_omp_data.o)
+dirinc phyvenus/dyn1d
+stri mod_phys_lmdz_omp_data
+str2 $(LIBO)/libphy_common.a(mod_phys_lmdz_omp_data.o)
+dernier str2 $(LIBO)/libphy_common.a(mod_phys_lmdz_omp_data.o)
+phy_common/mod_phys_lmdz_para.F90 mod_phys_lmdz_para mod_phys_lmdz_transfert_para
+dirinc grid
+stri mod_phys_lmdz_transfert_para
+str2
+dirinc misc
+stri mod_phys_lmdz_transfert_para
+str2
+dirinc phy_common
+stri mod_phys_lmdz_transfert_para
+str2 $(LIBO)/libphy_common.a(mod_phys_lmdz_transfert_para.o)
+dirinc phyvenus
+stri mod_phys_lmdz_transfert_para
+str2 $(LIBO)/libphy_common.a(mod_phys_lmdz_transfert_para.o)
+dirinc phyvenus/dyn1d
+stri mod_phys_lmdz_transfert_para
+str2 $(LIBO)/libphy_common.a(mod_phys_lmdz_transfert_para.o)
+dernier str2 $(LIBO)/libphy_common.a(mod_phys_lmdz_transfert_para.o)
+phy_common/mod_phys_lmdz_transfert_para.F90 mod_phys_lmdz_transfert_para mod_phys_lmdz_mpi_data
+dirinc grid
+stri mod_phys_lmdz_mpi_data
+str2
+dirinc misc
+stri mod_phys_lmdz_mpi_data
+str2
+dirinc phy_common
+stri mod_phys_lmdz_mpi_data
+str2 $(LIBO)/libphy_common.a(mod_phys_lmdz_mpi_data.o)
+dirinc phyvenus
+stri mod_phys_lmdz_mpi_data
+str2 $(LIBO)/libphy_common.a(mod_phys_lmdz_mpi_data.o)
+dirinc phyvenus/dyn1d
+stri mod_phys_lmdz_mpi_data
+str2 $(LIBO)/libphy_common.a(mod_phys_lmdz_mpi_data.o)
+dernier str2 $(LIBO)/libphy_common.a(mod_phys_lmdz_mpi_data.o)
+phy_common/mod_phys_lmdz_transfert_para.F90 mod_phys_lmdz_transfert_para mod_phys_lmdz_mpi_transfert
+dirinc grid
+stri mod_phys_lmdz_mpi_transfert
+str2
+dirinc misc
+stri mod_phys_lmdz_mpi_transfert
+str2
+dirinc phy_common
+stri mod_phys_lmdz_mpi_transfert
+str2 $(LIBO)/libphy_common.a(mod_phys_lmdz_mpi_transfert.o)
+dirinc phyvenus
+stri mod_phys_lmdz_mpi_transfert
+str2 $(LIBO)/libphy_common.a(mod_phys_lmdz_mpi_transfert.o)
+dirinc phyvenus/dyn1d
+stri mod_phys_lmdz_mpi_transfert
+str2 $(LIBO)/libphy_common.a(mod_phys_lmdz_mpi_transfert.o)
+dernier str2 $(LIBO)/libphy_common.a(mod_phys_lmdz_mpi_transfert.o)
+phy_common/mod_phys_lmdz_transfert_para.F90 mod_phys_lmdz_transfert_para mod_phys_lmdz_omp_transfert
+dirinc grid
+stri mod_phys_lmdz_omp_transfert
+str2
+dirinc misc
+stri mod_phys_lmdz_omp_transfert
+str2
+dirinc phy_common
+stri mod_phys_lmdz_omp_transfert
+str2 $(LIBO)/libphy_common.a(mod_phys_lmdz_omp_transfert.o)
+dirinc phyvenus
+stri mod_phys_lmdz_omp_transfert
+str2 $(LIBO)/libphy_common.a(mod_phys_lmdz_omp_transfert.o)
+dirinc phyvenus/dyn1d
+stri mod_phys_lmdz_omp_transfert
+str2 $(LIBO)/libphy_common.a(mod_phys_lmdz_omp_transfert.o)
+dernier str2 $(LIBO)/libphy_common.a(mod_phys_lmdz_omp_transfert.o)
+phy_common/physics_distribution_mod.F90 physics_distribution_mod mod_grid_phy_lmdz
+dirinc grid
+stri mod_grid_phy_lmdz
+str2
+dirinc misc
+stri mod_grid_phy_lmdz
+str2
+dirinc phy_common
+stri mod_grid_phy_lmdz
+str2 $(LIBO)/libphy_common.a(mod_grid_phy_lmdz.o)
+dirinc phyvenus
+stri mod_grid_phy_lmdz
+str2 $(LIBO)/libphy_common.a(mod_grid_phy_lmdz.o)
+dirinc phyvenus/dyn1d
+stri mod_grid_phy_lmdz
+str2 $(LIBO)/libphy_common.a(mod_grid_phy_lmdz.o)
+dernier str2 $(LIBO)/libphy_common.a(mod_grid_phy_lmdz.o)
+phy_common/physics_distribution_mod.F90 physics_distribution_mod mod_phys_lmdz_para
+dirinc grid
+stri mod_phys_lmdz_para
+str2
+dirinc misc
+stri mod_phys_lmdz_para
+str2
+dirinc phy_common
+stri mod_phys_lmdz_para
+str2 $(LIBO)/libphy_common.a(mod_phys_lmdz_para.o)
+dirinc phyvenus
+stri mod_phys_lmdz_para
+str2 $(LIBO)/libphy_common.a(mod_phys_lmdz_para.o)
+dirinc phyvenus/dyn1d
+stri mod_phys_lmdz_para
+str2 $(LIBO)/libphy_common.a(mod_phys_lmdz_para.o)
+dernier str2 $(LIBO)/libphy_common.a(mod_phys_lmdz_para.o)
+phy_common/print_control_mod.F90 print_control_mod ioipsl_getin_p_mod
+dirinc grid
+stri ioipsl_getin_p_mod
+str2
+dirinc misc
+stri ioipsl_getin_p_mod
+str2
+dirinc phy_common
+stri ioipsl_getin_p_mod
+str2 $(LIBO)/libphy_common.a(ioipsl_getin_p_mod.o)
+dirinc phyvenus
+stri ioipsl_getin_p_mod
+str2 $(LIBO)/libphy_common.a(ioipsl_getin_p_mod.o)
+dirinc phyvenus/dyn1d
+stri ioipsl_getin_p_mod
+str2 $(LIBO)/libphy_common.a(ioipsl_getin_p_mod.o)
+dernier str2 $(LIBO)/libphy_common.a(ioipsl_getin_p_mod.o)
+phy_common/print_control_mod.F90 print_control_mod mod_phys_lmdz_para
+dirinc grid
+stri mod_phys_lmdz_para
+str2
+dirinc misc
+stri mod_phys_lmdz_para
+str2
+dirinc phy_common
+stri mod_phys_lmdz_para
+str2 $(LIBO)/libphy_common.a(mod_phys_lmdz_para.o)
+dirinc phyvenus
+stri mod_phys_lmdz_para
+str2 $(LIBO)/libphy_common.a(mod_phys_lmdz_para.o)
+dirinc phyvenus/dyn1d
+stri mod_phys_lmdz_para
+str2 $(LIBO)/libphy_common.a(mod_phys_lmdz_para.o)
+dernier str2 $(LIBO)/libphy_common.a(mod_phys_lmdz_para.o)
+phy_common/write_field_phy.F90 write_field_phy mod_grid_phy_lmdz
+dirinc grid
+stri mod_grid_phy_lmdz
+str2
+dirinc misc
+stri mod_grid_phy_lmdz
+str2
+dirinc phy_common
+stri mod_grid_phy_lmdz
+str2 $(LIBO)/libphy_common.a(mod_grid_phy_lmdz.o)
+dirinc phyvenus
+stri mod_grid_phy_lmdz
+str2 $(LIBO)/libphy_common.a(mod_grid_phy_lmdz.o)
+dirinc phyvenus/dyn1d
+stri mod_grid_phy_lmdz
+str2 $(LIBO)/libphy_common.a(mod_grid_phy_lmdz.o)
+dernier str2 $(LIBO)/libphy_common.a(mod_grid_phy_lmdz.o)
+phy_common/write_field_phy.F90 write_field_phy mod_phys_lmdz_para
+dirinc grid
+stri mod_phys_lmdz_para
+str2
+dirinc misc
+stri mod_phys_lmdz_para
+str2
+dirinc phy_common
+stri mod_phys_lmdz_para
+str2 $(LIBO)/libphy_common.a(mod_phys_lmdz_para.o)
+dirinc phyvenus
+stri mod_phys_lmdz_para
+str2 $(LIBO)/libphy_common.a(mod_phys_lmdz_para.o)
+dirinc phyvenus/dyn1d
+stri mod_phys_lmdz_para
+str2 $(LIBO)/libphy_common.a(mod_phys_lmdz_para.o)
+dernier str2 $(LIBO)/libphy_common.a(mod_phys_lmdz_para.o)
+phy_common/write_field_phy.F90 write_field_phy Write_Field
+dirinc grid
+stri Write_Field
+str2
+dirinc misc
+stri Write_Field
+str2 $(LIBO)/libmisc.a(write_field.o)
+dirinc phy_common
+stri Write_Field
+str2 $(LIBO)/libmisc.a(write_field.o)
+dirinc phyvenus
+stri Write_Field
+str2 $(LIBO)/libmisc.a(write_field.o)
+dirinc phyvenus/dyn1d
+stri Write_Field
+str2 $(LIBO)/libmisc.a(write_field.o)
+dernier str2 $(LIBO)/libmisc.a(write_field.o)
+phyvenus/aaam_bud.F phyvenus/ajsec.F phyvenus/ballon.F phyvenus/blendrad.F phyvenus/clmain.F phyvenus/cltrac.F phyvenus/coefkzmin.F phyvenus/concentrations2.F phyvenus/conduction.F phyvenus/conf_dat2d.F phyvenus/diagphy.F phyvenus/drag_noro.F phyvenus/grid_noro.F phyvenus/gwprofil.F phyvenus/gwstress.F phyvenus/hgardfou.F phyvenus/hrtherm.F phyvenus/interp_vert.F phyvenus/jthermcalc_e107.F phyvenus/jthermcalc.F phyvenus/load_ksi.F phyvenus/lwi.F phyvenus/lw_venus_ve.F phyvenus/moldiffcoeff_red.F phyvenus/molvis.F phyvenus/mucorr.F phyvenus/new_cloud_sedim.F phyvenus/new_cloud_venus.F phyvenus/nirco2abs.F phyvenus/nir_leedat.F phyvenus/nlte_aux.F phyvenus/nlte_calc.F phyvenus/nltecool.F phyvenus/nlte_setup.F phyvenus/nlte_tcool.F phyvenus/nlthermeq.F phyvenus/orodrag.F phyvenus/orosetup.F phyvenus/param_read_e107.F phyvenus/param_read.F phyvenus/physiq_mod.F phyvenus/phytrac_chimie.F phyvenus/phytrac_emiss.F phyvenus/phytrac_relax.F phyvenus/printflag.F phyvenus/profile.F phyvenus/radlwsw.F phyvenus/soil.F phyvenus/sugwd.F phyvenus/suphec.F phyvenus/sw_venus_cl_1Dglobave.F phyvenus/sw_venus_cl.F phyvenus/sw_venus_dc_1Dglobave.F phyvenus/sw_venus_dc.F phyvenus/sw_venus_ve_1Dglobave.F phyvenus/sw_venus_ve.F phyvenus/transp.F phyvenus/ustarhb.F phyvenus/vdif_kcay.F phyvenus/yamada4.F phyvenus/yamada.F phyvenus/zenang.F phyvenus/chemparam_mod.F90 phyvenus/clcdrag.F90 phyvenus/comcstfi_h.F90 phyvenus/comgeomfi_h.F90 phyvenus/comm_wrf.F90 phyvenus/compo_hedin_mod2.F90 phyvenus/comsaison_h.F90 phyvenus/comsoil_h.F90 phyvenus/conc.F90 phyvenus/conc_mod.F90 phyvenus/conf_phys.F90 phyvenus/def_var.F90 phyvenus/dimphy.F90 phyvenus/dimradmars_mod.F90 phyvenus/euvheat.F90 phyvenus/flott_gwd_ran.F90 phyvenus/gr_fi_ecrit.F90 phyvenus/interface_surf.F90 phyvenus/iophy.F90 phyvenus/iostart.F90 phyvenus/moldiff_red.F90 phyvenus/new_photochemistry_venus.F90 phyvenus/phyetat0.F90 phyvenus/phyredem.F90 phyvenus/phys_state_var_init_mod.F90 phyvenus/phys_state_var_mod.F90 phyvenus/planete_h.F90 phyvenus/slope_mod.F90 phyvenus/surfdat_h.F90 phyvenus/time_phylmdz_mod.F90 phyvenus/time_phylmdz_mod_meso.F90 phyvenus/tracer_mod.F90 phyvenus/turb_mod.F90 phyvenus/write_field_phy.F90 phyvenus/yomlw_h.F90
+phyvenus/aaam_bud.F aaam_bud dimphy
+dirinc grid
+stri dimphy
+str2
+dirinc misc
+stri dimphy
+str2
+dirinc phy_common
+stri dimphy
+str2
+dirinc phyvenus
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dirinc phyvenus/dyn1d
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dernier str2 $(LIBO)/libphyvenus.a(dimphy.o)
+phyvenus/aaam_bud.F aaam_bud mod_grid_phy_lmdz
+dirinc grid
+stri mod_grid_phy_lmdz
+str2
+dirinc misc
+stri mod_grid_phy_lmdz
+str2
+dirinc phy_common
+stri mod_grid_phy_lmdz
+str2 $(LIBO)/libphy_common.a(mod_grid_phy_lmdz.o)
+dirinc phyvenus
+stri mod_grid_phy_lmdz
+str2 $(LIBO)/libphy_common.a(mod_grid_phy_lmdz.o)
+dirinc phyvenus/dyn1d
+stri mod_grid_phy_lmdz
+str2 $(LIBO)/libphy_common.a(mod_grid_phy_lmdz.o)
+dernier str2 $(LIBO)/libphy_common.a(mod_grid_phy_lmdz.o)
+phyvenus/ajsec.F ajsec YOMCST.h
+dirinc grid
+stri YOMCST.h
+str2
+dirinc misc
+stri YOMCST.h
+str2
+dirinc phy_common
+stri YOMCST.h
+str2
+dirinc phyvenus
+stri YOMCST.h
+str2 $(LIBF)/phyvenus/YOMCST.h
+dirinc phyvenus/dyn1d
+stri YOMCST.h
+str2 $(LIBF)/phyvenus/YOMCST.h
+dernier str2 $(LIBF)/phyvenus/YOMCST.h
+phyvenus/ajsec.F ajsec cpdet_mod
+dirinc grid
+stri cpdet_mod
+str2
+dirinc misc
+stri cpdet_mod
+str2
+dirinc phy_common
+stri cpdet_mod
+str2
+dirinc phyvenus
+stri cpdet_mod
+str2
+dirinc phyvenus/dyn1d
+stri cpdet_mod
+str2 $(LIBO)/libphyvenus.a(cpdet_mod.o)
+dernier str2 $(LIBO)/libphyvenus.a(cpdet_mod.o)
+phyvenus/ajsec.F ajsec dimphy
+dirinc grid
+stri dimphy
+str2
+dirinc misc
+stri dimphy
+str2
+dirinc phy_common
+stri dimphy
+str2
+dirinc phyvenus
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dirinc phyvenus/dyn1d
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dernier str2 $(LIBO)/libphyvenus.a(dimphy.o)
+phyvenus/ajsec.F ajsec mod_grid_phy_lmdz
+dirinc grid
+stri mod_grid_phy_lmdz
+str2
+dirinc misc
+stri mod_grid_phy_lmdz
+str2
+dirinc phy_common
+stri mod_grid_phy_lmdz
+str2 $(LIBO)/libphy_common.a(mod_grid_phy_lmdz.o)
+dirinc phyvenus
+stri mod_grid_phy_lmdz
+str2 $(LIBO)/libphy_common.a(mod_grid_phy_lmdz.o)
+dirinc phyvenus/dyn1d
+stri mod_grid_phy_lmdz
+str2 $(LIBO)/libphy_common.a(mod_grid_phy_lmdz.o)
+dernier str2 $(LIBO)/libphy_common.a(mod_grid_phy_lmdz.o)
+phyvenus/ballon.F ballon YOMCST.h
+dirinc grid
+stri YOMCST.h
+str2
+dirinc misc
+stri YOMCST.h
+str2
+dirinc phy_common
+stri YOMCST.h
+str2
+dirinc phyvenus
+stri YOMCST.h
+str2 $(LIBF)/phyvenus/YOMCST.h
+dirinc phyvenus/dyn1d
+stri YOMCST.h
+str2 $(LIBF)/phyvenus/YOMCST.h
+dernier str2 $(LIBF)/phyvenus/YOMCST.h
+phyvenus/ballon.F ballon dimphy
+dirinc grid
+stri dimphy
+str2
+dirinc misc
+stri dimphy
+str2
+dirinc phy_common
+stri dimphy
+str2
+dirinc phyvenus
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dirinc phyvenus/dyn1d
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dernier str2 $(LIBO)/libphyvenus.a(dimphy.o)
+phyvenus/ballon.F ballon mod_grid_phy_lmdz
+dirinc grid
+stri mod_grid_phy_lmdz
+str2
+dirinc misc
+stri mod_grid_phy_lmdz
+str2
+dirinc phy_common
+stri mod_grid_phy_lmdz
+str2 $(LIBO)/libphy_common.a(mod_grid_phy_lmdz.o)
+dirinc phyvenus
+stri mod_grid_phy_lmdz
+str2 $(LIBO)/libphy_common.a(mod_grid_phy_lmdz.o)
+dirinc phyvenus/dyn1d
+stri mod_grid_phy_lmdz
+str2 $(LIBO)/libphy_common.a(mod_grid_phy_lmdz.o)
+dernier str2 $(LIBO)/libphy_common.a(mod_grid_phy_lmdz.o)
+phyvenus/blendrad.F blendrad nlteparams.h
+dirinc grid
+stri nlteparams.h
+str2
+dirinc misc
+stri nlteparams.h
+str2
+dirinc phy_common
+stri nlteparams.h
+str2
+dirinc phyvenus
+stri nlteparams.h
+str2 $(LIBF)/phyvenus/nlteparams.h
+dirinc phyvenus/dyn1d
+stri nlteparams.h
+str2 $(LIBF)/phyvenus/nlteparams.h
+dernier str2 $(LIBF)/phyvenus/nlteparams.h
+phyvenus/blendrad.F blendrad YOMCST.h
+dirinc grid
+stri YOMCST.h
+str2
+dirinc misc
+stri YOMCST.h
+str2
+dirinc phy_common
+stri YOMCST.h
+str2
+dirinc phyvenus
+stri YOMCST.h
+str2 $(LIBF)/phyvenus/YOMCST.h
+dirinc phyvenus/dyn1d
+stri YOMCST.h
+str2 $(LIBF)/phyvenus/YOMCST.h
+dernier str2 $(LIBF)/phyvenus/YOMCST.h
+phyvenus/blendrad.F blendrad dimphy
+dirinc grid
+stri dimphy
+str2
+dirinc misc
+stri dimphy
+str2
+dirinc phy_common
+stri dimphy
+str2
+dirinc phyvenus
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dirinc phyvenus/dyn1d
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dernier str2 $(LIBO)/libphyvenus.a(dimphy.o)
+phyvenus/clmain.F clmain clesphys.h
+dirinc grid
+stri clesphys.h
+str2
+dirinc misc
+stri clesphys.h
+str2
+dirinc phy_common
+stri clesphys.h
+str2
+dirinc phyvenus
+stri clesphys.h
+str2 $(LIBF)/phyvenus/clesphys.h
+dirinc phyvenus/dyn1d
+stri clesphys.h
+str2 $(LIBF)/phyvenus/clesphys.h
+dernier str2 $(LIBF)/phyvenus/clesphys.h
+phyvenus/clmain.F clmain compbl.h
+dirinc grid
+stri compbl.h
+str2
+dirinc misc
+stri compbl.h
+str2
+dirinc phy_common
+stri compbl.h
+str2
+dirinc phyvenus
+stri compbl.h
+str2 $(LIBF)/phyvenus/compbl.h
+dirinc phyvenus/dyn1d
+stri compbl.h
+str2 $(LIBF)/phyvenus/compbl.h
+dernier str2 $(LIBF)/phyvenus/compbl.h
+phyvenus/clmain.F clmain dimsoil.h
+dirinc grid
+stri dimsoil.h
+str2
+dirinc misc
+stri dimsoil.h
+str2
+dirinc phy_common
+stri dimsoil.h
+str2
+dirinc phyvenus
+stri dimsoil.h
+str2 $(LIBF)/phyvenus/dimsoil.h
+dirinc phyvenus/dyn1d
+stri dimsoil.h
+str2 $(LIBF)/phyvenus/dimsoil.h
+dernier str2 $(LIBF)/phyvenus/dimsoil.h
+phyvenus/clmain.F clmain iniprint.h
+dirinc grid
+stri iniprint.h
+str2
+dirinc misc
+stri iniprint.h
+str2 $(LIBF)/misc/iniprint.h
+dirinc phy_common
+stri iniprint.h
+str2 $(LIBF)/misc/iniprint.h
+dirinc phyvenus
+stri iniprint.h
+str2 $(LIBF)/misc/iniprint.h
+dirinc phyvenus/dyn1d
+stri iniprint.h
+str2 $(LIBF)/misc/iniprint.h
+dernier str2 $(LIBF)/misc/iniprint.h
+phyvenus/clmain.F clmain YOMCST.h
+dirinc grid
+stri YOMCST.h
+str2
+dirinc misc
+stri YOMCST.h
+str2
+dirinc phy_common
+stri YOMCST.h
+str2
+dirinc phyvenus
+stri YOMCST.h
+str2 $(LIBF)/phyvenus/YOMCST.h
+dirinc phyvenus/dyn1d
+stri YOMCST.h
+str2 $(LIBF)/phyvenus/YOMCST.h
+dernier str2 $(LIBF)/phyvenus/YOMCST.h
+phyvenus/clmain.F clmain cpdet_mod
+dirinc grid
+stri cpdet_mod
+str2
+dirinc misc
+stri cpdet_mod
+str2
+dirinc phy_common
+stri cpdet_mod
+str2
+dirinc phyvenus
+stri cpdet_mod
+str2
+dirinc phyvenus/dyn1d
+stri cpdet_mod
+str2 $(LIBO)/libphyvenus.a(cpdet_mod.o)
+dernier str2 $(LIBO)/libphyvenus.a(cpdet_mod.o)
+phyvenus/clmain.F clmain dimphy
+dirinc grid
+stri dimphy
+str2
+dirinc misc
+stri dimphy
+str2
+dirinc phy_common
+stri dimphy
+str2
+dirinc phyvenus
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dirinc phyvenus/dyn1d
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dernier str2 $(LIBO)/libphyvenus.a(dimphy.o)
+phyvenus/clmain.F clmain interface_surf
+dirinc grid
+stri interface_surf
+str2
+dirinc misc
+stri interface_surf
+str2
+dirinc phy_common
+stri interface_surf
+str2
+dirinc phyvenus
+stri interface_surf
+str2 $(LIBO)/libphyvenus.a(interface_surf.o)
+dirinc phyvenus/dyn1d
+stri interface_surf
+str2 $(LIBO)/libphyvenus.a(interface_surf.o)
+dernier str2 $(LIBO)/libphyvenus.a(interface_surf.o)
+phyvenus/clmain.F clmain ioipsl
+dirinc grid
+stri ioipsl
+str2
+dirinc misc
+stri ioipsl
+str2
+dirinc phy_common
+stri ioipsl
+str2
+dirinc phyvenus
+stri ioipsl
+str2
+dirinc phyvenus/dyn1d
+stri ioipsl
+str2
+dernier str2
+Warn: Include phyvenus phyvenus/clmain.F clmain ioipsl pas trouve
+phyvenus/clmain.F clmain mod_grid_phy_lmdz
+dirinc grid
+stri mod_grid_phy_lmdz
+str2
+dirinc misc
+stri mod_grid_phy_lmdz
+str2
+dirinc phy_common
+stri mod_grid_phy_lmdz
+str2 $(LIBO)/libphy_common.a(mod_grid_phy_lmdz.o)
+dirinc phyvenus
+stri mod_grid_phy_lmdz
+str2 $(LIBO)/libphy_common.a(mod_grid_phy_lmdz.o)
+dirinc phyvenus/dyn1d
+stri mod_grid_phy_lmdz
+str2 $(LIBO)/libphy_common.a(mod_grid_phy_lmdz.o)
+dernier str2 $(LIBO)/libphy_common.a(mod_grid_phy_lmdz.o)
+phyvenus/cltrac.F cltrac YOMCST.h
+dirinc grid
+stri YOMCST.h
+str2
+dirinc misc
+stri YOMCST.h
+str2
+dirinc phy_common
+stri YOMCST.h
+str2
+dirinc phyvenus
+stri YOMCST.h
+str2 $(LIBF)/phyvenus/YOMCST.h
+dirinc phyvenus/dyn1d
+stri YOMCST.h
+str2 $(LIBF)/phyvenus/YOMCST.h
+dernier str2 $(LIBF)/phyvenus/YOMCST.h
+phyvenus/cltrac.F cltrac dimphy
+dirinc grid
+stri dimphy
+str2
+dirinc misc
+stri dimphy
+str2
+dirinc phy_common
+stri dimphy
+str2
+dirinc phyvenus
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dirinc phyvenus/dyn1d
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dernier str2 $(LIBO)/libphyvenus.a(dimphy.o)
+phyvenus/coefkzmin.F coefkzmin YOMCST.h
+dirinc grid
+stri YOMCST.h
+str2
+dirinc misc
+stri YOMCST.h
+str2
+dirinc phy_common
+stri YOMCST.h
+str2
+dirinc phyvenus
+stri YOMCST.h
+str2 $(LIBF)/phyvenus/YOMCST.h
+dirinc phyvenus/dyn1d
+stri YOMCST.h
+str2 $(LIBF)/phyvenus/YOMCST.h
+dernier str2 $(LIBF)/phyvenus/YOMCST.h
+phyvenus/coefkzmin.F coefkzmin dimphy
+dirinc grid
+stri dimphy
+str2
+dirinc misc
+stri dimphy
+str2
+dirinc phy_common
+stri dimphy
+str2
+dirinc phyvenus
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dirinc phyvenus/dyn1d
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dernier str2 $(LIBO)/libphyvenus.a(dimphy.o)
+phyvenus/concentrations2.F concentrations2 clesphys.h
+dirinc grid
+stri clesphys.h
+str2
+dirinc misc
+stri clesphys.h
+str2
+dirinc phy_common
+stri clesphys.h
+str2
+dirinc phyvenus
+stri clesphys.h
+str2 $(LIBF)/phyvenus/clesphys.h
+dirinc phyvenus/dyn1d
+stri clesphys.h
+str2 $(LIBF)/phyvenus/clesphys.h
+dernier str2 $(LIBF)/phyvenus/clesphys.h
+phyvenus/concentrations2.F concentrations2 YOMCST.h
+dirinc grid
+stri YOMCST.h
+str2
+dirinc misc
+stri YOMCST.h
+str2
+dirinc phy_common
+stri YOMCST.h
+str2
+dirinc phyvenus
+stri YOMCST.h
+str2 $(LIBF)/phyvenus/YOMCST.h
+dirinc phyvenus/dyn1d
+stri YOMCST.h
+str2 $(LIBF)/phyvenus/YOMCST.h
+dernier str2 $(LIBF)/phyvenus/YOMCST.h
+phyvenus/concentrations2.F concentrations2 chemparam_mod
+dirinc grid
+stri chemparam_mod
+str2
+dirinc misc
+stri chemparam_mod
+str2
+dirinc phy_common
+stri chemparam_mod
+str2
+dirinc phyvenus
+stri chemparam_mod
+str2 $(LIBO)/libphyvenus.a(chemparam_mod.o)
+dirinc phyvenus/dyn1d
+stri chemparam_mod
+str2 $(LIBO)/libphyvenus.a(chemparam_mod.o)
+dernier str2 $(LIBO)/libphyvenus.a(chemparam_mod.o)
+phyvenus/concentrations2.F concentrations2 conc
+dirinc grid
+stri conc
+str2
+dirinc misc
+stri conc
+str2
+dirinc phy_common
+stri conc
+str2
+dirinc phyvenus
+stri conc
+str2 $(LIBO)/libphyvenus.a(conc.o)
+dirinc phyvenus/dyn1d
+stri conc
+str2 $(LIBO)/libphyvenus.a(conc.o)
+dernier str2 $(LIBO)/libphyvenus.a(conc.o)
+phyvenus/concentrations2.F concentrations2 cpdet_mod
+dirinc grid
+stri cpdet_mod
+str2
+dirinc misc
+stri cpdet_mod
+str2
+dirinc phy_common
+stri cpdet_mod
+str2
+dirinc phyvenus
+stri cpdet_mod
+str2
+dirinc phyvenus/dyn1d
+stri cpdet_mod
+str2 $(LIBO)/libphyvenus.a(cpdet_mod.o)
+dernier str2 $(LIBO)/libphyvenus.a(cpdet_mod.o)
+phyvenus/concentrations2.F concentrations2 dimphy
+dirinc grid
+stri dimphy
+str2
+dirinc misc
+stri dimphy
+str2
+dirinc phy_common
+stri dimphy
+str2
+dirinc phyvenus
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dirinc phyvenus/dyn1d
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dernier str2 $(LIBO)/libphyvenus.a(dimphy.o)
+phyvenus/concentrations2.F concentrations2 infotrac
+dirinc grid
+stri infotrac
+str2
+dirinc misc
+stri infotrac
+str2
+dirinc phy_common
+stri infotrac
+str2
+dirinc phyvenus
+stri infotrac
+str2
+dirinc phyvenus/dyn1d
+stri infotrac
+str2 $(LIBO)/libphyvenus.a(infotrac.o)
+dernier str2 $(LIBO)/libphyvenus.a(infotrac.o)
+phyvenus/conduction.F conduction conc
+dirinc grid
+stri conc
+str2
+dirinc misc
+stri conc
+str2
+dirinc phy_common
+stri conc
+str2
+dirinc phyvenus
+stri conc
+str2 $(LIBO)/libphyvenus.a(conc.o)
+dirinc phyvenus/dyn1d
+stri conc
+str2 $(LIBO)/libphyvenus.a(conc.o)
+dernier str2 $(LIBO)/libphyvenus.a(conc.o)
+phyvenus/conduction.F conduction dimphy
+dirinc grid
+stri dimphy
+str2
+dirinc misc
+stri dimphy
+str2
+dirinc phy_common
+stri dimphy
+str2
+dirinc phyvenus
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dirinc phyvenus/dyn1d
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dernier str2 $(LIBO)/libphyvenus.a(dimphy.o)
+phyvenus/diagphy.F diagphy YOMCST.h
+dirinc grid
+stri YOMCST.h
+str2
+dirinc misc
+stri YOMCST.h
+str2
+dirinc phy_common
+stri YOMCST.h
+str2
+dirinc phyvenus
+stri YOMCST.h
+str2 $(LIBF)/phyvenus/YOMCST.h
+dirinc phyvenus/dyn1d
+stri YOMCST.h
+str2 $(LIBF)/phyvenus/YOMCST.h
+dernier str2 $(LIBF)/phyvenus/YOMCST.h
+phyvenus/diagphy.F diagphy cpdet_mod
+dirinc grid
+stri cpdet_mod
+str2
+dirinc misc
+stri cpdet_mod
+str2
+dirinc phy_common
+stri cpdet_mod
+str2
+dirinc phyvenus
+stri cpdet_mod
+str2
+dirinc phyvenus/dyn1d
+stri cpdet_mod
+str2 $(LIBO)/libphyvenus.a(cpdet_mod.o)
+dernier str2 $(LIBO)/libphyvenus.a(cpdet_mod.o)
+phyvenus/diagphy.F diagphy dimphy
+dirinc grid
+stri dimphy
+str2
+dirinc misc
+stri dimphy
+str2
+dirinc phy_common
+stri dimphy
+str2
+dirinc phyvenus
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dirinc phyvenus/dyn1d
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dernier str2 $(LIBO)/libphyvenus.a(dimphy.o)
+phyvenus/drag_noro.F drag_noro YOEGWD.h
+dirinc grid
+stri YOEGWD.h
+str2
+dirinc misc
+stri YOEGWD.h
+str2
+dirinc phy_common
+stri YOEGWD.h
+str2
+dirinc phyvenus
+stri YOEGWD.h
+str2 $(LIBF)/phyvenus/YOEGWD.h
+dirinc phyvenus/dyn1d
+stri YOEGWD.h
+str2 $(LIBF)/phyvenus/YOEGWD.h
+dernier str2 $(LIBF)/phyvenus/YOEGWD.h
+phyvenus/drag_noro.F drag_noro YOMCST.h
+dirinc grid
+stri YOMCST.h
+str2
+dirinc misc
+stri YOMCST.h
+str2
+dirinc phy_common
+stri YOMCST.h
+str2
+dirinc phyvenus
+stri YOMCST.h
+str2 $(LIBF)/phyvenus/YOMCST.h
+dirinc phyvenus/dyn1d
+stri YOMCST.h
+str2 $(LIBF)/phyvenus/YOMCST.h
+dernier str2 $(LIBF)/phyvenus/YOMCST.h
+phyvenus/drag_noro.F drag_noro dimphy
+dirinc grid
+stri dimphy
+str2
+dirinc misc
+stri dimphy
+str2
+dirinc phy_common
+stri dimphy
+str2
+dirinc phyvenus
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dirinc phyvenus/dyn1d
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dernier str2 $(LIBO)/libphyvenus.a(dimphy.o)
+phyvenus/grid_noro.F grid_noro YOMCST.h
+dirinc grid
+stri YOMCST.h
+str2
+dirinc misc
+stri YOMCST.h
+str2
+dirinc phy_common
+stri YOMCST.h
+str2
+dirinc phyvenus
+stri YOMCST.h
+str2 $(LIBF)/phyvenus/YOMCST.h
+dirinc phyvenus/dyn1d
+stri YOMCST.h
+str2 $(LIBF)/phyvenus/YOMCST.h
+dernier str2 $(LIBF)/phyvenus/YOMCST.h
+phyvenus/grid_noro.F grid_noro mod_grid_phy_lmdz
+dirinc grid
+stri mod_grid_phy_lmdz
+str2
+dirinc misc
+stri mod_grid_phy_lmdz
+str2
+dirinc phy_common
+stri mod_grid_phy_lmdz
+str2 $(LIBO)/libphy_common.a(mod_grid_phy_lmdz.o)
+dirinc phyvenus
+stri mod_grid_phy_lmdz
+str2 $(LIBO)/libphy_common.a(mod_grid_phy_lmdz.o)
+dirinc phyvenus/dyn1d
+stri mod_grid_phy_lmdz
+str2 $(LIBO)/libphy_common.a(mod_grid_phy_lmdz.o)
+dernier str2 $(LIBO)/libphy_common.a(mod_grid_phy_lmdz.o)
+phyvenus/gwprofil.F gwprofil YOEGWD.h
+dirinc grid
+stri YOEGWD.h
+str2
+dirinc misc
+stri YOEGWD.h
+str2
+dirinc phy_common
+stri YOEGWD.h
+str2
+dirinc phyvenus
+stri YOEGWD.h
+str2 $(LIBF)/phyvenus/YOEGWD.h
+dirinc phyvenus/dyn1d
+stri YOEGWD.h
+str2 $(LIBF)/phyvenus/YOEGWD.h
+dernier str2 $(LIBF)/phyvenus/YOEGWD.h
+phyvenus/gwprofil.F gwprofil YOMCST.h
+dirinc grid
+stri YOMCST.h
+str2
+dirinc misc
+stri YOMCST.h
+str2
+dirinc phy_common
+stri YOMCST.h
+str2
+dirinc phyvenus
+stri YOMCST.h
+str2 $(LIBF)/phyvenus/YOMCST.h
+dirinc phyvenus/dyn1d
+stri YOMCST.h
+str2 $(LIBF)/phyvenus/YOMCST.h
+dernier str2 $(LIBF)/phyvenus/YOMCST.h
+phyvenus/gwprofil.F gwprofil dimphy
+dirinc grid
+stri dimphy
+str2
+dirinc misc
+stri dimphy
+str2
+dirinc phy_common
+stri dimphy
+str2
+dirinc phyvenus
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dirinc phyvenus/dyn1d
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dernier str2 $(LIBO)/libphyvenus.a(dimphy.o)
+phyvenus/gwstress.F gwstress YOEGWD.h
+dirinc grid
+stri YOEGWD.h
+str2
+dirinc misc
+stri YOEGWD.h
+str2
+dirinc phy_common
+stri YOEGWD.h
+str2
+dirinc phyvenus
+stri YOEGWD.h
+str2 $(LIBF)/phyvenus/YOEGWD.h
+dirinc phyvenus/dyn1d
+stri YOEGWD.h
+str2 $(LIBF)/phyvenus/YOEGWD.h
+dernier str2 $(LIBF)/phyvenus/YOEGWD.h
+phyvenus/gwstress.F gwstress YOMCST.h
+dirinc grid
+stri YOMCST.h
+str2
+dirinc misc
+stri YOMCST.h
+str2
+dirinc phy_common
+stri YOMCST.h
+str2
+dirinc phyvenus
+stri YOMCST.h
+str2 $(LIBF)/phyvenus/YOMCST.h
+dirinc phyvenus/dyn1d
+stri YOMCST.h
+str2 $(LIBF)/phyvenus/YOMCST.h
+dernier str2 $(LIBF)/phyvenus/YOMCST.h
+phyvenus/gwstress.F gwstress dimphy
+dirinc grid
+stri dimphy
+str2
+dirinc misc
+stri dimphy
+str2
+dirinc phy_common
+stri dimphy
+str2
+dirinc phyvenus
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dirinc phyvenus/dyn1d
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dernier str2 $(LIBO)/libphyvenus.a(dimphy.o)
+phyvenus/hgardfou.F hgardfou YOMCST.h
+dirinc grid
+stri YOMCST.h
+str2
+dirinc misc
+stri YOMCST.h
+str2
+dirinc phy_common
+stri YOMCST.h
+str2
+dirinc phyvenus
+stri YOMCST.h
+str2 $(LIBF)/phyvenus/YOMCST.h
+dirinc phyvenus/dyn1d
+stri YOMCST.h
+str2 $(LIBF)/phyvenus/YOMCST.h
+dernier str2 $(LIBF)/phyvenus/YOMCST.h
+phyvenus/hgardfou.F hgardfou dimphy
+dirinc grid
+stri dimphy
+str2
+dirinc misc
+stri dimphy
+str2
+dirinc phy_common
+stri dimphy
+str2
+dirinc phyvenus
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dirinc phyvenus/dyn1d
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dernier str2 $(LIBO)/libphyvenus.a(dimphy.o)
+phyvenus/hrtherm.F hrtherm clesphys.h
+dirinc grid
+stri clesphys.h
+str2
+dirinc misc
+stri clesphys.h
+str2
+dirinc phy_common
+stri clesphys.h
+str2
+dirinc phyvenus
+stri clesphys.h
+str2 $(LIBF)/phyvenus/clesphys.h
+dirinc phyvenus/dyn1d
+stri clesphys.h
+str2 $(LIBF)/phyvenus/clesphys.h
+dernier str2 $(LIBF)/phyvenus/clesphys.h
+phyvenus/hrtherm.F hrtherm param.h
+dirinc grid
+stri param.h
+str2
+dirinc misc
+stri param.h
+str2
+dirinc phy_common
+stri param.h
+str2
+dirinc phyvenus
+stri param.h
+str2 $(LIBF)/phyvenus/param.h
+dirinc phyvenus/dyn1d
+stri param.h
+str2 $(LIBF)/phyvenus/param.h
+dernier str2 $(LIBF)/phyvenus/param.h
+phyvenus/hrtherm.F hrtherm param_v4.h
+dirinc grid
+stri param_v4.h
+str2
+dirinc misc
+stri param_v4.h
+str2
+dirinc phy_common
+stri param_v4.h
+str2
+dirinc phyvenus
+stri param_v4.h
+str2 $(LIBF)/phyvenus/param_v4.h
+dirinc phyvenus/dyn1d
+stri param_v4.h
+str2 $(LIBF)/phyvenus/param_v4.h
+dernier str2 $(LIBF)/phyvenus/param_v4.h
+phyvenus/hrtherm.F hrtherm conc
+dirinc grid
+stri conc
+str2
+dirinc misc
+stri conc
+str2
+dirinc phy_common
+stri conc
+str2
+dirinc phyvenus
+stri conc
+str2 $(LIBO)/libphyvenus.a(conc.o)
+dirinc phyvenus/dyn1d
+stri conc
+str2 $(LIBO)/libphyvenus.a(conc.o)
+dernier str2 $(LIBO)/libphyvenus.a(conc.o)
+phyvenus/hrtherm.F hrtherm dimphy
+dirinc grid
+stri dimphy
+str2
+dirinc misc
+stri dimphy
+str2
+dirinc phy_common
+stri dimphy
+str2
+dirinc phyvenus
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dirinc phyvenus/dyn1d
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dernier str2 $(LIBO)/libphyvenus.a(dimphy.o)
+phyvenus/jthermcalc_e107.F jthermcalc_e107 !Auxiliar
+dirinc grid
+stri !Auxiliar
+str2
+dirinc misc
+stri !Auxiliar
+str2
+dirinc phy_common
+stri !Auxiliar
+str2
+dirinc phyvenus
+stri !Auxiliar
+str2
+dirinc phyvenus/dyn1d
+stri !Auxiliar
+str2
+dernier str2
+Warn: Include phyvenus phyvenus/jthermcalc_e107.F jthermcalc_e107 !Auxiliar pas trouve
+phyvenus/jthermcalc_e107.F jthermcalc_e107 column
+dirinc grid
+stri column
+str2
+dirinc misc
+stri column
+str2
+dirinc phy_common
+stri column
+str2
+dirinc phyvenus
+stri column
+str2
+dirinc phyvenus/dyn1d
+stri column
+str2
+dernier str2
+Warn: Include phyvenus phyvenus/jthermcalc_e107.F jthermcalc_e107 column pas trouve
+phyvenus/jthermcalc_e107.F jthermcalc_e107 to
+dirinc grid
+stri to
+str2
+dirinc misc
+stri to
+str2
+dirinc phy_common
+stri to
+str2
+dirinc phyvenus
+stri to
+str2
+dirinc phyvenus/dyn1d
+stri to
+str2
+dernier str2
+Warn: Include phyvenus phyvenus/jthermcalc_e107.F jthermcalc_e107 to pas trouve
+phyvenus/jthermcalc_e107.F jthermcalc_e107 the
+dirinc grid
+stri the
+str2
+dirinc misc
+stri the
+str2
+dirinc phy_common
+stri the
+str2
+dirinc phyvenus
+stri the
+str2
+dirinc phyvenus/dyn1d
+stri the
+str2
+dernier str2
+Warn: Include phyvenus phyvenus/jthermcalc_e107.F jthermcalc_e107 the pas trouve
+phyvenus/jthermcalc_e107.F jthermcalc_e107 temperature
+dirinc grid
+stri temperature
+str2
+dirinc misc
+stri temperature
+str2
+dirinc phy_common
+stri temperature
+str2
+dirinc phyvenus
+stri temperature
+str2
+dirinc phyvenus/dyn1d
+stri temperature
+str2
+dernier str2
+Warn: Include phyvenus phyvenus/jthermcalc_e107.F jthermcalc_e107 temperature pas trouve
+phyvenus/jthermcalc_e107.F jthermcalc_e107 dependence
+dirinc grid
+stri dependence
+str2
+dirinc misc
+stri dependence
+str2
+dirinc phy_common
+stri dependence
+str2
+dirinc phyvenus
+stri dependence
+str2
+dirinc phyvenus/dyn1d
+stri dependence
+str2
+dernier str2
+Warn: Include phyvenus phyvenus/jthermcalc_e107.F jthermcalc_e107 dependence pas trouve
+phyvenus/jthermcalc_e107.F jthermcalc_e107 !Correction
+dirinc grid
+stri !Correction
+str2
+dirinc misc
+stri !Correction
+str2
+dirinc phy_common
+stri !Correction
+str2
+dirinc phyvenus
+stri !Correction
+str2
+dirinc phyvenus/dyn1d
+stri !Correction
+str2
+dernier str2
+Warn: Include phyvenus phyvenus/jthermcalc_e107.F jthermcalc_e107 !Correction pas trouve
+phyvenus/jthermcalc_e107.F jthermcalc_e107 to
+dirinc grid
+stri to
+str2
+dirinc misc
+stri to
+str2
+dirinc phy_common
+stri to
+str2
+dirinc phyvenus
+stri to
+str2
+dirinc phyvenus/dyn1d
+stri to
+str2
+dernier str2
+Warn: Include phyvenus phyvenus/jthermcalc_e107.F jthermcalc_e107 to pas trouve
+phyvenus/jthermcalc_e107.F jthermcalc_e107 T
+dirinc grid
+stri T
+str2
+dirinc misc
+stri T
+str2
+dirinc phy_common
+stri T
+str2
+dirinc phyvenus
+stri T
+str2
+dirinc phyvenus/dyn1d
+stri T
+str2
+dernier str2
+Warn: Include phyvenus phyvenus/jthermcalc_e107.F jthermcalc_e107 T pas trouve
+phyvenus/jthermcalc_e107.F jthermcalc_e107 variation
+dirinc grid
+stri variation
+str2
+dirinc misc
+stri variation
+str2
+dirinc phy_common
+stri variation
+str2
+dirinc phyvenus
+stri variation
+str2
+dirinc phyvenus/dyn1d
+stri variation
+str2
+dernier str2
+Warn: Include phyvenus phyvenus/jthermcalc_e107.F jthermcalc_e107 variation pas trouve
+phyvenus/jthermcalc_e107.F jthermcalc_e107 of
+dirinc grid
+stri of
+str2
+dirinc misc
+stri of
+str2
+dirinc phy_common
+stri of
+str2
+dirinc phyvenus
+stri of
+str2
+dirinc phyvenus/dyn1d
+stri of
+str2
+dernier str2
+Warn: Include phyvenus phyvenus/jthermcalc_e107.F jthermcalc_e107 of pas trouve
+phyvenus/jthermcalc_e107.F jthermcalc_e107 CO2
+dirinc grid
+stri CO2
+str2
+dirinc misc
+stri CO2
+str2
+dirinc phy_common
+stri CO2
+str2
+dirinc phyvenus
+stri CO2
+str2
+dirinc phyvenus/dyn1d
+stri CO2
+str2
+dernier str2
+Warn: Include phyvenus phyvenus/jthermcalc_e107.F jthermcalc_e107 CO2 pas trouve
+phyvenus/jthermcalc_e107.F jthermcalc_e107 cross
+dirinc grid
+stri cross
+str2
+dirinc misc
+stri cross
+str2
+dirinc phy_common
+stri cross
+str2
+dirinc phyvenus
+stri cross
+str2
+dirinc phyvenus/dyn1d
+stri cross
+str2
+dernier str2
+Warn: Include phyvenus phyvenus/jthermcalc_e107.F jthermcalc_e107 cross pas trouve
+phyvenus/jthermcalc_e107.F jthermcalc_e107 section
+dirinc grid
+stri section
+str2
+dirinc misc
+stri section
+str2
+dirinc phy_common
+stri section
+str2
+dirinc phyvenus
+stri section
+str2
+dirinc phyvenus/dyn1d
+stri section
+str2
+dernier str2
+Warn: Include phyvenus phyvenus/jthermcalc_e107.F jthermcalc_e107 section pas trouve
+phyvenus/jthermcalc_e107.F jthermcalc_e107 !Correction
+dirinc grid
+stri !Correction
+str2
+dirinc misc
+stri !Correction
+str2
+dirinc phy_common
+stri !Correction
+str2
+dirinc phyvenus
+stri !Correction
+str2
+dirinc phyvenus/dyn1d
+stri !Correction
+str2
+dernier str2
+Warn: Include phyvenus phyvenus/jthermcalc_e107.F jthermcalc_e107 !Correction pas trouve
+phyvenus/jthermcalc_e107.F jthermcalc_e107 to
+dirinc grid
+stri to
+str2
+dirinc misc
+stri to
+str2
+dirinc phy_common
+stri to
+str2
+dirinc phyvenus
+stri to
+str2
+dirinc phyvenus/dyn1d
+stri to
+str2
+dernier str2
+Warn: Include phyvenus phyvenus/jthermcalc_e107.F jthermcalc_e107 to pas trouve
+phyvenus/jthermcalc_e107.F jthermcalc_e107 T
+dirinc grid
+stri T
+str2
+dirinc misc
+stri T
+str2
+dirinc phy_common
+stri T
+str2
+dirinc phyvenus
+stri T
+str2
+dirinc phyvenus/dyn1d
+stri T
+str2
+dernier str2
+Warn: Include phyvenus phyvenus/jthermcalc_e107.F jthermcalc_e107 T pas trouve
+phyvenus/jthermcalc_e107.F jthermcalc_e107 variation
+dirinc grid
+stri variation
+str2
+dirinc misc
+stri variation
+str2
+dirinc phy_common
+stri variation
+str2
+dirinc phyvenus
+stri variation
+str2
+dirinc phyvenus/dyn1d
+stri variation
+str2
+dernier str2
+Warn: Include phyvenus phyvenus/jthermcalc_e107.F jthermcalc_e107 variation pas trouve
+phyvenus/jthermcalc_e107.F jthermcalc_e107 of
+dirinc grid
+stri of
+str2
+dirinc misc
+stri of
+str2
+dirinc phy_common
+stri of
+str2
+dirinc phyvenus
+stri of
+str2
+dirinc phyvenus/dyn1d
+stri of
+str2
+dernier str2
+Warn: Include phyvenus phyvenus/jthermcalc_e107.F jthermcalc_e107 of pas trouve
+phyvenus/jthermcalc_e107.F jthermcalc_e107 CO2
+dirinc grid
+stri CO2
+str2
+dirinc misc
+stri CO2
+str2
+dirinc phy_common
+stri CO2
+str2
+dirinc phyvenus
+stri CO2
+str2
+dirinc phyvenus/dyn1d
+stri CO2
+str2
+dernier str2
+Warn: Include phyvenus phyvenus/jthermcalc_e107.F jthermcalc_e107 CO2 pas trouve
+phyvenus/jthermcalc_e107.F jthermcalc_e107 cross
+dirinc grid
+stri cross
+str2
+dirinc misc
+stri cross
+str2
+dirinc phy_common
+stri cross
+str2
+dirinc phyvenus
+stri cross
+str2
+dirinc phyvenus/dyn1d
+stri cross
+str2
+dernier str2
+Warn: Include phyvenus phyvenus/jthermcalc_e107.F jthermcalc_e107 cross pas trouve
+phyvenus/jthermcalc_e107.F jthermcalc_e107 section
+dirinc grid
+stri section
+str2
+dirinc misc
+stri section
+str2
+dirinc phy_common
+stri section
+str2
+dirinc phyvenus
+stri section
+str2
+dirinc phyvenus/dyn1d
+stri section
+str2
+dernier str2
+Warn: Include phyvenus phyvenus/jthermcalc_e107.F jthermcalc_e107 section pas trouve
+phyvenus/jthermcalc_e107.F jthermcalc_e107 param.h
+dirinc grid
+stri param.h
+str2
+dirinc misc
+stri param.h
+str2
+dirinc phy_common
+stri param.h
+str2
+dirinc phyvenus
+stri param.h
+str2 $(LIBF)/phyvenus/param.h
+dirinc phyvenus/dyn1d
+stri param.h
+str2 $(LIBF)/phyvenus/param.h
+dernier str2 $(LIBF)/phyvenus/param.h
+phyvenus/jthermcalc_e107.F jthermcalc_e107 param_v4.h
+dirinc grid
+stri param_v4.h
+str2
+dirinc misc
+stri param_v4.h
+str2
+dirinc phy_common
+stri param_v4.h
+str2
+dirinc phyvenus
+stri param_v4.h
+str2 $(LIBF)/phyvenus/param_v4.h
+dirinc phyvenus/dyn1d
+stri param_v4.h
+str2 $(LIBF)/phyvenus/param_v4.h
+dernier str2 $(LIBF)/phyvenus/param_v4.h
+phyvenus/jthermcalc.F jthermcalc !Auxiliar
+dirinc grid
+stri !Auxiliar
+str2
+dirinc misc
+stri !Auxiliar
+str2
+dirinc phy_common
+stri !Auxiliar
+str2
+dirinc phyvenus
+stri !Auxiliar
+str2
+dirinc phyvenus/dyn1d
+stri !Auxiliar
+str2
+dernier str2
+Warn: Include phyvenus phyvenus/jthermcalc.F jthermcalc !Auxiliar pas trouve
+phyvenus/jthermcalc.F jthermcalc column
+dirinc grid
+stri column
+str2
+dirinc misc
+stri column
+str2
+dirinc phy_common
+stri column
+str2
+dirinc phyvenus
+stri column
+str2
+dirinc phyvenus/dyn1d
+stri column
+str2
+dernier str2
+Warn: Include phyvenus phyvenus/jthermcalc.F jthermcalc column pas trouve
+phyvenus/jthermcalc.F jthermcalc to
+dirinc grid
+stri to
+str2
+dirinc misc
+stri to
+str2
+dirinc phy_common
+stri to
+str2
+dirinc phyvenus
+stri to
+str2
+dirinc phyvenus/dyn1d
+stri to
+str2
+dernier str2
+Warn: Include phyvenus phyvenus/jthermcalc.F jthermcalc to pas trouve
+phyvenus/jthermcalc.F jthermcalc the
+dirinc grid
+stri the
+str2
+dirinc misc
+stri the
+str2
+dirinc phy_common
+stri the
+str2
+dirinc phyvenus
+stri the
+str2
+dirinc phyvenus/dyn1d
+stri the
+str2
+dernier str2
+Warn: Include phyvenus phyvenus/jthermcalc.F jthermcalc the pas trouve
+phyvenus/jthermcalc.F jthermcalc temperature
+dirinc grid
+stri temperature
+str2
+dirinc misc
+stri temperature
+str2
+dirinc phy_common
+stri temperature
+str2
+dirinc phyvenus
+stri temperature
+str2
+dirinc phyvenus/dyn1d
+stri temperature
+str2
+dernier str2
+Warn: Include phyvenus phyvenus/jthermcalc.F jthermcalc temperature pas trouve
+phyvenus/jthermcalc.F jthermcalc dependence
+dirinc grid
+stri dependence
+str2
+dirinc misc
+stri dependence
+str2
+dirinc phy_common
+stri dependence
+str2
+dirinc phyvenus
+stri dependence
+str2
+dirinc phyvenus/dyn1d
+stri dependence
+str2
+dernier str2
+Warn: Include phyvenus phyvenus/jthermcalc.F jthermcalc dependence pas trouve
+phyvenus/jthermcalc.F jthermcalc clesphys.h
+dirinc grid
+stri clesphys.h
+str2
+dirinc misc
+stri clesphys.h
+str2
+dirinc phy_common
+stri clesphys.h
+str2
+dirinc phyvenus
+stri clesphys.h
+str2 $(LIBF)/phyvenus/clesphys.h
+dirinc phyvenus/dyn1d
+stri clesphys.h
+str2 $(LIBF)/phyvenus/clesphys.h
+dernier str2 $(LIBF)/phyvenus/clesphys.h
+phyvenus/jthermcalc.F jthermcalc clesphys.h
+dirinc grid
+stri clesphys.h
+str2
+dirinc misc
+stri clesphys.h
+str2
+dirinc phy_common
+stri clesphys.h
+str2
+dirinc phyvenus
+stri clesphys.h
+str2 $(LIBF)/phyvenus/clesphys.h
+dirinc phyvenus/dyn1d
+stri clesphys.h
+str2 $(LIBF)/phyvenus/clesphys.h
+dernier str2 $(LIBF)/phyvenus/clesphys.h
+Warn: Include phyvenus phyvenus/jthermcalc.F jthermcalc clesphys.h $(LIBF)/phyvenus/clesphys.h trouve 2x
+phyvenus/jthermcalc.F jthermcalc !Correction
+dirinc grid
+stri !Correction
+str2
+dirinc misc
+stri !Correction
+str2
+dirinc phy_common
+stri !Correction
+str2
+dirinc phyvenus
+stri !Correction
+str2
+dirinc phyvenus/dyn1d
+stri !Correction
+str2
+dernier str2
+Warn: Include phyvenus phyvenus/jthermcalc.F jthermcalc !Correction pas trouve
+phyvenus/jthermcalc.F jthermcalc to
+dirinc grid
+stri to
+str2
+dirinc misc
+stri to
+str2
+dirinc phy_common
+stri to
+str2
+dirinc phyvenus
+stri to
+str2
+dirinc phyvenus/dyn1d
+stri to
+str2
+dernier str2
+Warn: Include phyvenus phyvenus/jthermcalc.F jthermcalc to pas trouve
+phyvenus/jthermcalc.F jthermcalc T
+dirinc grid
+stri T
+str2
+dirinc misc
+stri T
+str2
+dirinc phy_common
+stri T
+str2
+dirinc phyvenus
+stri T
+str2
+dirinc phyvenus/dyn1d
+stri T
+str2
+dernier str2
+Warn: Include phyvenus phyvenus/jthermcalc.F jthermcalc T pas trouve
+phyvenus/jthermcalc.F jthermcalc variation
+dirinc grid
+stri variation
+str2
+dirinc misc
+stri variation
+str2
+dirinc phy_common
+stri variation
+str2
+dirinc phyvenus
+stri variation
+str2
+dirinc phyvenus/dyn1d
+stri variation
+str2
+dernier str2
+Warn: Include phyvenus phyvenus/jthermcalc.F jthermcalc variation pas trouve
+phyvenus/jthermcalc.F jthermcalc of
+dirinc grid
+stri of
+str2
+dirinc misc
+stri of
+str2
+dirinc phy_common
+stri of
+str2
+dirinc phyvenus
+stri of
+str2
+dirinc phyvenus/dyn1d
+stri of
+str2
+dernier str2
+Warn: Include phyvenus phyvenus/jthermcalc.F jthermcalc of pas trouve
+phyvenus/jthermcalc.F jthermcalc CO2
+dirinc grid
+stri CO2
+str2
+dirinc misc
+stri CO2
+str2
+dirinc phy_common
+stri CO2
+str2
+dirinc phyvenus
+stri CO2
+str2
+dirinc phyvenus/dyn1d
+stri CO2
+str2
+dernier str2
+Warn: Include phyvenus phyvenus/jthermcalc.F jthermcalc CO2 pas trouve
+phyvenus/jthermcalc.F jthermcalc cross
+dirinc grid
+stri cross
+str2
+dirinc misc
+stri cross
+str2
+dirinc phy_common
+stri cross
+str2
+dirinc phyvenus
+stri cross
+str2
+dirinc phyvenus/dyn1d
+stri cross
+str2
+dernier str2
+Warn: Include phyvenus phyvenus/jthermcalc.F jthermcalc cross pas trouve
+phyvenus/jthermcalc.F jthermcalc section
+dirinc grid
+stri section
+str2
+dirinc misc
+stri section
+str2
+dirinc phy_common
+stri section
+str2
+dirinc phyvenus
+stri section
+str2
+dirinc phyvenus/dyn1d
+stri section
+str2
+dernier str2
+Warn: Include phyvenus phyvenus/jthermcalc.F jthermcalc section pas trouve
+phyvenus/jthermcalc.F jthermcalc !Correction
+dirinc grid
+stri !Correction
+str2
+dirinc misc
+stri !Correction
+str2
+dirinc phy_common
+stri !Correction
+str2
+dirinc phyvenus
+stri !Correction
+str2
+dirinc phyvenus/dyn1d
+stri !Correction
+str2
+dernier str2
+Warn: Include phyvenus phyvenus/jthermcalc.F jthermcalc !Correction pas trouve
+phyvenus/jthermcalc.F jthermcalc to
+dirinc grid
+stri to
+str2
+dirinc misc
+stri to
+str2
+dirinc phy_common
+stri to
+str2
+dirinc phyvenus
+stri to
+str2
+dirinc phyvenus/dyn1d
+stri to
+str2
+dernier str2
+Warn: Include phyvenus phyvenus/jthermcalc.F jthermcalc to pas trouve
+phyvenus/jthermcalc.F jthermcalc T
+dirinc grid
+stri T
+str2
+dirinc misc
+stri T
+str2
+dirinc phy_common
+stri T
+str2
+dirinc phyvenus
+stri T
+str2
+dirinc phyvenus/dyn1d
+stri T
+str2
+dernier str2
+Warn: Include phyvenus phyvenus/jthermcalc.F jthermcalc T pas trouve
+phyvenus/jthermcalc.F jthermcalc variation
+dirinc grid
+stri variation
+str2
+dirinc misc
+stri variation
+str2
+dirinc phy_common
+stri variation
+str2
+dirinc phyvenus
+stri variation
+str2
+dirinc phyvenus/dyn1d
+stri variation
+str2
+dernier str2
+Warn: Include phyvenus phyvenus/jthermcalc.F jthermcalc variation pas trouve
+phyvenus/jthermcalc.F jthermcalc of
+dirinc grid
+stri of
+str2
+dirinc misc
+stri of
+str2
+dirinc phy_common
+stri of
+str2
+dirinc phyvenus
+stri of
+str2
+dirinc phyvenus/dyn1d
+stri of
+str2
+dernier str2
+Warn: Include phyvenus phyvenus/jthermcalc.F jthermcalc of pas trouve
+phyvenus/jthermcalc.F jthermcalc CO2
+dirinc grid
+stri CO2
+str2
+dirinc misc
+stri CO2
+str2
+dirinc phy_common
+stri CO2
+str2
+dirinc phyvenus
+stri CO2
+str2
+dirinc phyvenus/dyn1d
+stri CO2
+str2
+dernier str2
+Warn: Include phyvenus phyvenus/jthermcalc.F jthermcalc CO2 pas trouve
+phyvenus/jthermcalc.F jthermcalc cross
+dirinc grid
+stri cross
+str2
+dirinc misc
+stri cross
+str2
+dirinc phy_common
+stri cross
+str2
+dirinc phyvenus
+stri cross
+str2
+dirinc phyvenus/dyn1d
+stri cross
+str2
+dernier str2
+Warn: Include phyvenus phyvenus/jthermcalc.F jthermcalc cross pas trouve
+phyvenus/jthermcalc.F jthermcalc section
+dirinc grid
+stri section
+str2
+dirinc misc
+stri section
+str2
+dirinc phy_common
+stri section
+str2
+dirinc phyvenus
+stri section
+str2
+dirinc phyvenus/dyn1d
+stri section
+str2
+dernier str2
+Warn: Include phyvenus phyvenus/jthermcalc.F jthermcalc section pas trouve
+phyvenus/jthermcalc.F jthermcalc mmol.h
+dirinc grid
+stri mmol.h
+str2
+dirinc misc
+stri mmol.h
+str2
+dirinc phy_common
+stri mmol.h
+str2
+dirinc phyvenus
+stri mmol.h
+str2 $(LIBF)/phyvenus/mmol.h
+dirinc phyvenus/dyn1d
+stri mmol.h
+str2 $(LIBF)/phyvenus/mmol.h
+dernier str2 $(LIBF)/phyvenus/mmol.h
+phyvenus/jthermcalc.F jthermcalc param.h
+dirinc grid
+stri param.h
+str2
+dirinc misc
+stri param.h
+str2
+dirinc phy_common
+stri param.h
+str2
+dirinc phyvenus
+stri param.h
+str2 $(LIBF)/phyvenus/param.h
+dirinc phyvenus/dyn1d
+stri param.h
+str2 $(LIBF)/phyvenus/param.h
+dernier str2 $(LIBF)/phyvenus/param.h
+phyvenus/jthermcalc.F jthermcalc param.h
+dirinc grid
+stri param.h
+str2
+dirinc misc
+stri param.h
+str2
+dirinc phy_common
+stri param.h
+str2
+dirinc phyvenus
+stri param.h
+str2 $(LIBF)/phyvenus/param.h
+dirinc phyvenus/dyn1d
+stri param.h
+str2 $(LIBF)/phyvenus/param.h
+dernier str2 $(LIBF)/phyvenus/param.h
+Warn: Include phyvenus phyvenus/jthermcalc.F jthermcalc param.h $(LIBF)/phyvenus/param.h trouve 2x
+phyvenus/jthermcalc.F jthermcalc 'param_v4.h'
+dirinc grid
+stri 'param_v4.h'
+str2
+dirinc misc
+stri 'param_v4.h'
+str2
+dirinc phy_common
+stri 'param_v4.h'
+str2
+dirinc phyvenus
+stri 'param_v4.h'
+str2
+dirinc phyvenus/dyn1d
+stri 'param_v4.h'
+str2
+dernier str2
+Warn: Include phyvenus phyvenus/jthermcalc.F jthermcalc 'param_v4.h' pas trouve
+phyvenus/jthermcalc.F jthermcalc param_v4.h
+dirinc grid
+stri param_v4.h
+str2
+dirinc misc
+stri param_v4.h
+str2
+dirinc phy_common
+stri param_v4.h
+str2
+dirinc phyvenus
+stri param_v4.h
+str2 $(LIBF)/phyvenus/param_v4.h
+dirinc phyvenus/dyn1d
+stri param_v4.h
+str2 $(LIBF)/phyvenus/param_v4.h
+dernier str2 $(LIBF)/phyvenus/param_v4.h
+phyvenus/jthermcalc.F jthermcalc param_v4.h
+dirinc grid
+stri param_v4.h
+str2
+dirinc misc
+stri param_v4.h
+str2
+dirinc phy_common
+stri param_v4.h
+str2
+dirinc phyvenus
+stri param_v4.h
+str2 $(LIBF)/phyvenus/param_v4.h
+dirinc phyvenus/dyn1d
+stri param_v4.h
+str2 $(LIBF)/phyvenus/param_v4.h
+dernier str2 $(LIBF)/phyvenus/param_v4.h
+Warn: Include phyvenus phyvenus/jthermcalc.F jthermcalc param_v4.h $(LIBF)/phyvenus/param_v4.h trouve 2x
+phyvenus/jthermcalc.F jthermcalc conc
+dirinc grid
+stri conc
+str2
+dirinc misc
+stri conc
+str2
+dirinc phy_common
+stri conc
+str2
+dirinc phyvenus
+stri conc
+str2 $(LIBO)/libphyvenus.a(conc.o)
+dirinc phyvenus/dyn1d
+stri conc
+str2 $(LIBO)/libphyvenus.a(conc.o)
+dernier str2 $(LIBO)/libphyvenus.a(conc.o)
+phyvenus/jthermcalc.F jthermcalc dimphy
+dirinc grid
+stri dimphy
+str2
+dirinc misc
+stri dimphy
+str2
+dirinc phy_common
+stri dimphy
+str2
+dirinc phyvenus
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dirinc phyvenus/dyn1d
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dernier str2 $(LIBO)/libphyvenus.a(dimphy.o)
+phyvenus/load_ksi.F load_ksi comcstVE.h
+dirinc grid
+stri comcstVE.h
+str2
+dirinc misc
+stri comcstVE.h
+str2
+dirinc phy_common
+stri comcstVE.h
+str2
+dirinc phyvenus
+stri comcstVE.h
+str2 $(LIBF)/phyvenus/comcstVE.h
+dirinc phyvenus/dyn1d
+stri comcstVE.h
+str2 $(LIBF)/phyvenus/comcstVE.h
+dernier str2 $(LIBF)/phyvenus/comcstVE.h
+phyvenus/load_ksi.F load_ksi YOMCST.h
+dirinc grid
+stri YOMCST.h
+str2
+dirinc misc
+stri YOMCST.h
+str2
+dirinc phy_common
+stri YOMCST.h
+str2
+dirinc phyvenus
+stri YOMCST.h
+str2 $(LIBF)/phyvenus/YOMCST.h
+dirinc phyvenus/dyn1d
+stri YOMCST.h
+str2 $(LIBF)/phyvenus/YOMCST.h
+dernier str2 $(LIBF)/phyvenus/YOMCST.h
+phyvenus/load_ksi.F load_ksi dimphy
+dirinc grid
+stri dimphy
+str2
+dirinc misc
+stri dimphy
+str2
+dirinc phy_common
+stri dimphy
+str2
+dirinc phyvenus
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dirinc phyvenus/dyn1d
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dernier str2 $(LIBO)/libphyvenus.a(dimphy.o)
+phyvenus/lwi.F lwi timerad.h
+dirinc grid
+stri timerad.h
+str2
+dirinc misc
+stri timerad.h
+str2
+dirinc phy_common
+stri timerad.h
+str2
+dirinc phyvenus
+stri timerad.h
+str2 $(LIBF)/phyvenus/timerad.h
+dirinc phyvenus/dyn1d
+stri timerad.h
+str2 $(LIBF)/phyvenus/timerad.h
+dernier str2 $(LIBF)/phyvenus/timerad.h
+phyvenus/lwi.F lwi YOMCST.h
+dirinc grid
+stri YOMCST.h
+str2
+dirinc misc
+stri YOMCST.h
+str2
+dirinc phy_common
+stri YOMCST.h
+str2
+dirinc phyvenus
+stri YOMCST.h
+str2 $(LIBF)/phyvenus/YOMCST.h
+dirinc phyvenus/dyn1d
+stri YOMCST.h
+str2 $(LIBF)/phyvenus/YOMCST.h
+dernier str2 $(LIBF)/phyvenus/YOMCST.h
+phyvenus/lwi.F lwi cpdet_mod
+dirinc grid
+stri cpdet_mod
+str2
+dirinc misc
+stri cpdet_mod
+str2
+dirinc phy_common
+stri cpdet_mod
+str2
+dirinc phyvenus
+stri cpdet_mod
+str2
+dirinc phyvenus/dyn1d
+stri cpdet_mod
+str2 $(LIBO)/libphyvenus.a(cpdet_mod.o)
+dernier str2 $(LIBO)/libphyvenus.a(cpdet_mod.o)
+phyvenus/lwi.F lwi dimphy
+dirinc grid
+stri dimphy
+str2
+dirinc misc
+stri dimphy
+str2
+dirinc phy_common
+stri dimphy
+str2
+dirinc phyvenus
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dirinc phyvenus/dyn1d
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dernier str2 $(LIBO)/libphyvenus.a(dimphy.o)
+phyvenus/lw_venus_ve.F lw_venus_ve YOMCST.h
+dirinc grid
+stri YOMCST.h
+str2
+dirinc misc
+stri YOMCST.h
+str2
+dirinc phy_common
+stri YOMCST.h
+str2
+dirinc phyvenus
+stri YOMCST.h
+str2 $(LIBF)/phyvenus/YOMCST.h
+dirinc phyvenus/dyn1d
+stri YOMCST.h
+str2 $(LIBF)/phyvenus/YOMCST.h
+dernier str2 $(LIBF)/phyvenus/YOMCST.h
+phyvenus/lw_venus_ve.F lw_venus_ve cpdet_mod
+dirinc grid
+stri cpdet_mod
+str2
+dirinc misc
+stri cpdet_mod
+str2
+dirinc phy_common
+stri cpdet_mod
+str2
+dirinc phyvenus
+stri cpdet_mod
+str2
+dirinc phyvenus/dyn1d
+stri cpdet_mod
+str2 $(LIBO)/libphyvenus.a(cpdet_mod.o)
+dernier str2 $(LIBO)/libphyvenus.a(cpdet_mod.o)
+phyvenus/lw_venus_ve.F lw_venus_ve dimphy
+dirinc grid
+stri dimphy
+str2
+dirinc misc
+stri dimphy
+str2
+dirinc phy_common
+stri dimphy
+str2
+dirinc phyvenus
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dirinc phyvenus/dyn1d
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dernier str2 $(LIBO)/libphyvenus.a(dimphy.o)
+phyvenus/moldiffcoeff_red.F moldiffcoeff_red diffusion.h
+dirinc grid
+stri diffusion.h
+str2
+dirinc misc
+stri diffusion.h
+str2
+dirinc phy_common
+stri diffusion.h
+str2
+dirinc phyvenus
+stri diffusion.h
+str2 $(LIBF)/phyvenus/diffusion.h
+dirinc phyvenus/dyn1d
+stri diffusion.h
+str2 $(LIBF)/phyvenus/diffusion.h
+dernier str2 $(LIBF)/phyvenus/diffusion.h
+phyvenus/moldiffcoeff_red.F moldiffcoeff_red chemparam_mod
+dirinc grid
+stri chemparam_mod
+str2
+dirinc misc
+stri chemparam_mod
+str2
+dirinc phy_common
+stri chemparam_mod
+str2
+dirinc phyvenus
+stri chemparam_mod
+str2 $(LIBO)/libphyvenus.a(chemparam_mod.o)
+dirinc phyvenus/dyn1d
+stri chemparam_mod
+str2 $(LIBO)/libphyvenus.a(chemparam_mod.o)
+dernier str2 $(LIBO)/libphyvenus.a(chemparam_mod.o)
+phyvenus/moldiffcoeff_red.F moldiffcoeff_red dimphy
+dirinc grid
+stri dimphy
+str2
+dirinc misc
+stri dimphy
+str2
+dirinc phy_common
+stri dimphy
+str2
+dirinc phyvenus
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dirinc phyvenus/dyn1d
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dernier str2 $(LIBO)/libphyvenus.a(dimphy.o)
+phyvenus/moldiffcoeff_red.F moldiffcoeff_red infotrac
+dirinc grid
+stri infotrac
+str2
+dirinc misc
+stri infotrac
+str2
+dirinc phy_common
+stri infotrac
+str2
+dirinc phyvenus
+stri infotrac
+str2
+dirinc phyvenus/dyn1d
+stri infotrac
+str2 $(LIBO)/libphyvenus.a(infotrac.o)
+dernier str2 $(LIBO)/libphyvenus.a(infotrac.o)
+phyvenus/molvis.F molvis conc
+dirinc grid
+stri conc
+str2
+dirinc misc
+stri conc
+str2
+dirinc phy_common
+stri conc
+str2
+dirinc phyvenus
+stri conc
+str2 $(LIBO)/libphyvenus.a(conc.o)
+dirinc phyvenus/dyn1d
+stri conc
+str2 $(LIBO)/libphyvenus.a(conc.o)
+dernier str2 $(LIBO)/libphyvenus.a(conc.o)
+phyvenus/molvis.F molvis dimphy
+dirinc grid
+stri dimphy
+str2
+dirinc misc
+stri dimphy
+str2
+dirinc phy_common
+stri dimphy
+str2
+dirinc phyvenus
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dirinc phyvenus/dyn1d
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dernier str2 $(LIBO)/libphyvenus.a(dimphy.o)
+phyvenus/mucorr.F mucorr YOMCST.h
+dirinc grid
+stri YOMCST.h
+str2
+dirinc misc
+stri YOMCST.h
+str2
+dirinc phy_common
+stri YOMCST.h
+str2
+dirinc phyvenus
+stri YOMCST.h
+str2 $(LIBF)/phyvenus/YOMCST.h
+dirinc phyvenus/dyn1d
+stri YOMCST.h
+str2 $(LIBF)/phyvenus/YOMCST.h
+dernier str2 $(LIBF)/phyvenus/YOMCST.h
+phyvenus/new_cloud_sedim.F new_cloud_sedim YOMCST.h
+dirinc grid
+stri YOMCST.h
+str2
+dirinc misc
+stri YOMCST.h
+str2
+dirinc phy_common
+stri YOMCST.h
+str2
+dirinc phyvenus
+stri YOMCST.h
+str2 $(LIBF)/phyvenus/YOMCST.h
+dirinc phyvenus/dyn1d
+stri YOMCST.h
+str2 $(LIBF)/phyvenus/YOMCST.h
+dernier str2 $(LIBF)/phyvenus/YOMCST.h
+phyvenus/new_cloud_sedim.F new_cloud_sedim chemparam_mod
+dirinc grid
+stri chemparam_mod
+str2
+dirinc misc
+stri chemparam_mod
+str2
+dirinc phy_common
+stri chemparam_mod
+str2
+dirinc phyvenus
+stri chemparam_mod
+str2 $(LIBO)/libphyvenus.a(chemparam_mod.o)
+dirinc phyvenus/dyn1d
+stri chemparam_mod
+str2 $(LIBO)/libphyvenus.a(chemparam_mod.o)
+dernier str2 $(LIBO)/libphyvenus.a(chemparam_mod.o)
+phyvenus/new_cloud_sedim.F new_cloud_sedim dimphy
+dirinc grid
+stri dimphy
+str2
+dirinc misc
+stri dimphy
+str2
+dirinc phy_common
+stri dimphy
+str2
+dirinc phyvenus
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dirinc phyvenus/dyn1d
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dernier str2 $(LIBO)/libphyvenus.a(dimphy.o)
+phyvenus/new_cloud_sedim.F new_cloud_sedim infotrac
+dirinc grid
+stri infotrac
+str2
+dirinc misc
+stri infotrac
+str2
+dirinc phy_common
+stri infotrac
+str2
+dirinc phyvenus
+stri infotrac
+str2
+dirinc phyvenus/dyn1d
+stri infotrac
+str2 $(LIBO)/libphyvenus.a(infotrac.o)
+dernier str2 $(LIBO)/libphyvenus.a(infotrac.o)
+phyvenus/new_cloud_sedim.F new_cloud_sedim ioipsl
+dirinc grid
+stri ioipsl
+str2
+dirinc misc
+stri ioipsl
+str2
+dirinc phy_common
+stri ioipsl
+str2
+dirinc phyvenus
+stri ioipsl
+str2
+dirinc phyvenus/dyn1d
+stri ioipsl
+str2
+dernier str2
+Warn: Include phyvenus phyvenus/new_cloud_sedim.F new_cloud_sedim ioipsl pas trouve
+phyvenus/new_cloud_venus.F new_cloud_venus YOMCST.h
+dirinc grid
+stri YOMCST.h
+str2
+dirinc misc
+stri YOMCST.h
+str2
+dirinc phy_common
+stri YOMCST.h
+str2
+dirinc phyvenus
+stri YOMCST.h
+str2 $(LIBF)/phyvenus/YOMCST.h
+dirinc phyvenus/dyn1d
+stri YOMCST.h
+str2 $(LIBF)/phyvenus/YOMCST.h
+dernier str2 $(LIBF)/phyvenus/YOMCST.h
+phyvenus/new_cloud_venus.F new_cloud_venus chemparam_mod
+dirinc grid
+stri chemparam_mod
+str2
+dirinc misc
+stri chemparam_mod
+str2
+dirinc phy_common
+stri chemparam_mod
+str2
+dirinc phyvenus
+stri chemparam_mod
+str2 $(LIBO)/libphyvenus.a(chemparam_mod.o)
+dirinc phyvenus/dyn1d
+stri chemparam_mod
+str2 $(LIBO)/libphyvenus.a(chemparam_mod.o)
+dernier str2 $(LIBO)/libphyvenus.a(chemparam_mod.o)
+phyvenus/nirco2abs.F nirco2abs clesphys.h
+dirinc grid
+stri clesphys.h
+str2
+dirinc misc
+stri clesphys.h
+str2
+dirinc phy_common
+stri clesphys.h
+str2
+dirinc phyvenus
+stri clesphys.h
+str2 $(LIBF)/phyvenus/clesphys.h
+dirinc phyvenus/dyn1d
+stri clesphys.h
+str2 $(LIBF)/phyvenus/clesphys.h
+dernier str2 $(LIBF)/phyvenus/clesphys.h
+phyvenus/nirco2abs.F nirco2abs mmol.h
+dirinc grid
+stri mmol.h
+str2
+dirinc misc
+stri mmol.h
+str2
+dirinc phy_common
+stri mmol.h
+str2
+dirinc phyvenus
+stri mmol.h
+str2 $(LIBF)/phyvenus/mmol.h
+dirinc phyvenus/dyn1d
+stri mmol.h
+str2 $(LIBF)/phyvenus/mmol.h
+dernier str2 $(LIBF)/phyvenus/mmol.h
+phyvenus/nirco2abs.F nirco2abs nirdata.h
+dirinc grid
+stri nirdata.h
+str2
+dirinc misc
+stri nirdata.h
+str2
+dirinc phy_common
+stri nirdata.h
+str2
+dirinc phyvenus
+stri nirdata.h
+str2 $(LIBF)/phyvenus/nirdata.h
+dirinc phyvenus/dyn1d
+stri nirdata.h
+str2 $(LIBF)/phyvenus/nirdata.h
+dernier str2 $(LIBF)/phyvenus/nirdata.h
+phyvenus/nirco2abs.F nirco2abs YOMCST.h
+dirinc grid
+stri YOMCST.h
+str2
+dirinc misc
+stri YOMCST.h
+str2
+dirinc phy_common
+stri YOMCST.h
+str2
+dirinc phyvenus
+stri YOMCST.h
+str2 $(LIBF)/phyvenus/YOMCST.h
+dirinc phyvenus/dyn1d
+stri YOMCST.h
+str2 $(LIBF)/phyvenus/YOMCST.h
+dernier str2 $(LIBF)/phyvenus/YOMCST.h
+phyvenus/nirco2abs.F nirco2abs chemparam_mod
+dirinc grid
+stri chemparam_mod
+str2
+dirinc misc
+stri chemparam_mod
+str2
+dirinc phy_common
+stri chemparam_mod
+str2
+dirinc phyvenus
+stri chemparam_mod
+str2 $(LIBO)/libphyvenus.a(chemparam_mod.o)
+dirinc phyvenus/dyn1d
+stri chemparam_mod
+str2 $(LIBO)/libphyvenus.a(chemparam_mod.o)
+dernier str2 $(LIBO)/libphyvenus.a(chemparam_mod.o)
+phyvenus/nirco2abs.F nirco2abs dimphy
+dirinc grid
+stri dimphy
+str2
+dirinc misc
+stri dimphy
+str2
+dirinc phy_common
+stri dimphy
+str2
+dirinc phyvenus
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dirinc phyvenus/dyn1d
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dernier str2 $(LIBO)/libphyvenus.a(dimphy.o)
+phyvenus/nirco2abs.F nirco2abs geometry_mod
+dirinc grid
+stri geometry_mod
+str2
+dirinc misc
+stri geometry_mod
+str2
+dirinc phy_common
+stri geometry_mod
+str2 $(LIBO)/libphy_common.a(geometry_mod.o)
+dirinc phyvenus
+stri geometry_mod
+str2 $(LIBO)/libphy_common.a(geometry_mod.o)
+dirinc phyvenus/dyn1d
+stri geometry_mod
+str2 $(LIBO)/libphy_common.a(geometry_mod.o)
+dernier str2 $(LIBO)/libphy_common.a(geometry_mod.o)
+phyvenus/nir_leedat.F nir_leedat 'nirdata.h'
+dirinc grid
+stri 'nirdata.h'
+str2
+dirinc misc
+stri 'nirdata.h'
+str2
+dirinc phy_common
+stri 'nirdata.h'
+str2
+dirinc phyvenus
+stri 'nirdata.h'
+str2
+dirinc phyvenus/dyn1d
+stri 'nirdata.h'
+str2
+dernier str2
+Warn: Include phyvenus phyvenus/nir_leedat.F nir_leedat 'nirdata.h' pas trouve
+phyvenus/nlte_aux.F nlte_aux nlte_commons.h
+dirinc grid
+stri nlte_commons.h
+str2
+dirinc misc
+stri nlte_commons.h
+str2
+dirinc phy_common
+stri nlte_commons.h
+str2
+dirinc phyvenus
+stri nlte_commons.h
+str2 $(LIBF)/phyvenus/nlte_commons.h
+dirinc phyvenus/dyn1d
+stri nlte_commons.h
+str2 $(LIBF)/phyvenus/nlte_commons.h
+dernier str2 $(LIBF)/phyvenus/nlte_commons.h
+phyvenus/nlte_aux.F nlte_aux nlte_paramdef.h
+dirinc grid
+stri nlte_paramdef.h
+str2
+dirinc misc
+stri nlte_paramdef.h
+str2
+dirinc phy_common
+stri nlte_paramdef.h
+str2
+dirinc phyvenus
+stri nlte_paramdef.h
+str2 $(LIBF)/phyvenus/nlte_paramdef.h
+dirinc phyvenus/dyn1d
+stri nlte_paramdef.h
+str2 $(LIBF)/phyvenus/nlte_paramdef.h
+dernier str2 $(LIBF)/phyvenus/nlte_paramdef.h
+phyvenus/nlte_calc.F nlte_calc nlte_commons.h
+dirinc grid
+stri nlte_commons.h
+str2
+dirinc misc
+stri nlte_commons.h
+str2
+dirinc phy_common
+stri nlte_commons.h
+str2
+dirinc phyvenus
+stri nlte_commons.h
+str2 $(LIBF)/phyvenus/nlte_commons.h
+dirinc phyvenus/dyn1d
+stri nlte_commons.h
+str2 $(LIBF)/phyvenus/nlte_commons.h
+dernier str2 $(LIBF)/phyvenus/nlte_commons.h
+phyvenus/nlte_calc.F nlte_calc nlte_paramdef.h
+dirinc grid
+stri nlte_paramdef.h
+str2
+dirinc misc
+stri nlte_paramdef.h
+str2
+dirinc phy_common
+stri nlte_paramdef.h
+str2
+dirinc phyvenus
+stri nlte_paramdef.h
+str2 $(LIBF)/phyvenus/nlte_paramdef.h
+dirinc phyvenus/dyn1d
+stri nlte_paramdef.h
+str2 $(LIBF)/phyvenus/nlte_paramdef.h
+dernier str2 $(LIBF)/phyvenus/nlte_paramdef.h
+phyvenus/nltecool.F nltecool nltedata.h
+dirinc grid
+stri nltedata.h
+str2
+dirinc misc
+stri nltedata.h
+str2
+dirinc phy_common
+stri nltedata.h
+str2
+dirinc phyvenus
+stri nltedata.h
+str2 $(LIBF)/phyvenus/nltedata.h
+dirinc phyvenus/dyn1d
+stri nltedata.h
+str2 $(LIBF)/phyvenus/nltedata.h
+dernier str2 $(LIBF)/phyvenus/nltedata.h
+phyvenus/nltecool.F nltecool !
+dirinc grid
+stri !
+str2
+dirinc misc
+stri !
+str2
+dirinc phy_common
+stri !
+str2
+dirinc phyvenus
+stri !
+str2
+dirinc phyvenus/dyn1d
+stri !
+str2
+dernier str2
+Warn: Include phyvenus phyvenus/nltecool.F nltecool ! pas trouve
+phyvenus/nltecool.F nltecool (Equivalent
+dirinc grid
+stri (Equivalent
+str2
+dirinc misc
+stri (Equivalent
+str2
+dirinc phy_common
+stri (Equivalent
+str2
+dirinc phyvenus
+stri (Equivalent
+str2
+dirinc phyvenus/dyn1d
+stri (Equivalent
+str2
+dernier str2
+Warn: Include phyvenus phyvenus/nltecool.F nltecool (Equivalent pas trouve
+phyvenus/nltecool.F nltecool to
+dirinc grid
+stri to
+str2
+dirinc misc
+stri to
+str2
+dirinc phy_common
+stri to
+str2
+dirinc phyvenus
+stri to
+str2
+dirinc phyvenus/dyn1d
+stri to
+str2
+dernier str2
+Warn: Include phyvenus phyvenus/nltecool.F nltecool to pas trouve
+phyvenus/nltecool.F nltecool the
+dirinc grid
+stri the
+str2
+dirinc misc
+stri the
+str2
+dirinc phy_common
+stri the
+str2
+dirinc phyvenus
+stri the
+str2
+dirinc phyvenus/dyn1d
+stri the
+str2
+dernier str2
+Warn: Include phyvenus phyvenus/nltecool.F nltecool the pas trouve
+phyvenus/nltecool.F nltecool reading
+dirinc grid
+stri reading
+str2
+dirinc misc
+stri reading
+str2
+dirinc phy_common
+stri reading
+str2
+dirinc phyvenus
+stri reading
+str2
+dirinc phyvenus/dyn1d
+stri reading
+str2
+dernier str2
+Warn: Include phyvenus phyvenus/nltecool.F nltecool reading pas trouve
+phyvenus/nltecool.F nltecool of
+dirinc grid
+stri of
+str2
+dirinc misc
+stri of
+str2
+dirinc phy_common
+stri of
+str2
+dirinc phyvenus
+stri of
+str2
+dirinc phyvenus/dyn1d
+stri of
+str2
+dernier str2
+Warn: Include phyvenus phyvenus/nltecool.F nltecool of pas trouve
+phyvenus/nltecool.F nltecool the
+dirinc grid
+stri the
+str2
+dirinc misc
+stri the
+str2
+dirinc phy_common
+stri the
+str2
+dirinc phyvenus
+stri the
+str2
+dirinc phyvenus/dyn1d
+stri the
+str2
+dernier str2
+Warn: Include phyvenus phyvenus/nltecool.F nltecool the pas trouve
+phyvenus/nltecool.F nltecool nlte_escape.dat
+dirinc grid
+stri nlte_escape.dat
+str2
+dirinc misc
+stri nlte_escape.dat
+str2
+dirinc phy_common
+stri nlte_escape.dat
+str2
+dirinc phyvenus
+stri nlte_escape.dat
+str2
+dirinc phyvenus/dyn1d
+stri nlte_escape.dat
+str2
+dernier str2
+Warn: Include phyvenus phyvenus/nltecool.F nltecool nlte_escape.dat pas trouve
+phyvenus/nltecool.F nltecool file)
+dirinc grid
+stri file)
+str2
+dirinc misc
+stri file)
+str2
+dirinc phy_common
+stri file)
+str2
+dirinc phyvenus
+stri file)
+str2
+dirinc phyvenus/dyn1d
+stri file)
+str2
+dernier str2
+Warn: Include phyvenus phyvenus/nltecool.F nltecool file) pas trouve
+phyvenus/nltecool.F nltecool dimphy
+dirinc grid
+stri dimphy
+str2
+dirinc misc
+stri dimphy
+str2
+dirinc phy_common
+stri dimphy
+str2
+dirinc phyvenus
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dirinc phyvenus/dyn1d
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dernier str2 $(LIBO)/libphyvenus.a(dimphy.o)
+phyvenus/nlte_setup.F nlte_setup 'nlte_commons.h'
+dirinc grid
+stri 'nlte_commons.h'
+str2
+dirinc misc
+stri 'nlte_commons.h'
+str2
+dirinc phy_common
+stri 'nlte_commons.h'
+str2
+dirinc phyvenus
+stri 'nlte_commons.h'
+str2
+dirinc phyvenus/dyn1d
+stri 'nlte_commons.h'
+str2
+dernier str2
+Warn: Include phyvenus phyvenus/nlte_setup.F nlte_setup 'nlte_commons.h' pas trouve
+phyvenus/nlte_setup.F nlte_setup nlte_commons.h
+dirinc grid
+stri nlte_commons.h
+str2
+dirinc misc
+stri nlte_commons.h
+str2
+dirinc phy_common
+stri nlte_commons.h
+str2
+dirinc phyvenus
+stri nlte_commons.h
+str2 $(LIBF)/phyvenus/nlte_commons.h
+dirinc phyvenus/dyn1d
+stri nlte_commons.h
+str2 $(LIBF)/phyvenus/nlte_commons.h
+dernier str2 $(LIBF)/phyvenus/nlte_commons.h
+phyvenus/nlte_setup.F nlte_setup 'nlte_paramdef.h'
+dirinc grid
+stri 'nlte_paramdef.h'
+str2
+dirinc misc
+stri 'nlte_paramdef.h'
+str2
+dirinc phy_common
+stri 'nlte_paramdef.h'
+str2
+dirinc phyvenus
+stri 'nlte_paramdef.h'
+str2
+dirinc phyvenus/dyn1d
+stri 'nlte_paramdef.h'
+str2
+dernier str2
+Warn: Include phyvenus phyvenus/nlte_setup.F nlte_setup 'nlte_paramdef.h' pas trouve
+phyvenus/nlte_setup.F nlte_setup nlte_paramdef.h
+dirinc grid
+stri nlte_paramdef.h
+str2
+dirinc misc
+stri nlte_paramdef.h
+str2
+dirinc phy_common
+stri nlte_paramdef.h
+str2
+dirinc phyvenus
+stri nlte_paramdef.h
+str2 $(LIBF)/phyvenus/nlte_paramdef.h
+dirinc phyvenus/dyn1d
+stri nlte_paramdef.h
+str2 $(LIBF)/phyvenus/nlte_paramdef.h
+dernier str2 $(LIBF)/phyvenus/nlte_paramdef.h
+phyvenus/nlte_tcool.F nlte_tcool nlte_commons.h
+dirinc grid
+stri nlte_commons.h
+str2
+dirinc misc
+stri nlte_commons.h
+str2
+dirinc phy_common
+stri nlte_commons.h
+str2
+dirinc phyvenus
+stri nlte_commons.h
+str2 $(LIBF)/phyvenus/nlte_commons.h
+dirinc phyvenus/dyn1d
+stri nlte_commons.h
+str2 $(LIBF)/phyvenus/nlte_commons.h
+dernier str2 $(LIBF)/phyvenus/nlte_commons.h
+phyvenus/nlte_tcool.F nlte_tcool nlte_commons.h
+dirinc grid
+stri nlte_commons.h
+str2
+dirinc misc
+stri nlte_commons.h
+str2
+dirinc phy_common
+stri nlte_commons.h
+str2
+dirinc phyvenus
+stri nlte_commons.h
+str2 $(LIBF)/phyvenus/nlte_commons.h
+dirinc phyvenus/dyn1d
+stri nlte_commons.h
+str2 $(LIBF)/phyvenus/nlte_commons.h
+dernier str2 $(LIBF)/phyvenus/nlte_commons.h
+Warn: Include phyvenus phyvenus/nlte_tcool.F nlte_tcool nlte_commons.h $(LIBF)/phyvenus/nlte_commons.h trouve 2x
+phyvenus/nlte_tcool.F nlte_tcool nlte_paramdef.h
+dirinc grid
+stri nlte_paramdef.h
+str2
+dirinc misc
+stri nlte_paramdef.h
+str2
+dirinc phy_common
+stri nlte_paramdef.h
+str2
+dirinc phyvenus
+stri nlte_paramdef.h
+str2 $(LIBF)/phyvenus/nlte_paramdef.h
+dirinc phyvenus/dyn1d
+stri nlte_paramdef.h
+str2 $(LIBF)/phyvenus/nlte_paramdef.h
+dernier str2 $(LIBF)/phyvenus/nlte_paramdef.h
+phyvenus/nlte_tcool.F nlte_tcool nlte_paramdef.h
+dirinc grid
+stri nlte_paramdef.h
+str2
+dirinc misc
+stri nlte_paramdef.h
+str2
+dirinc phy_common
+stri nlte_paramdef.h
+str2
+dirinc phyvenus
+stri nlte_paramdef.h
+str2 $(LIBF)/phyvenus/nlte_paramdef.h
+dirinc phyvenus/dyn1d
+stri nlte_paramdef.h
+str2 $(LIBF)/phyvenus/nlte_paramdef.h
+dernier str2 $(LIBF)/phyvenus/nlte_paramdef.h
+Warn: Include phyvenus phyvenus/nlte_tcool.F nlte_tcool nlte_paramdef.h $(LIBF)/phyvenus/nlte_paramdef.h trouve 2x
+phyvenus/nlte_tcool.F nlte_tcool YOMCST.h
+dirinc grid
+stri YOMCST.h
+str2
+dirinc misc
+stri YOMCST.h
+str2
+dirinc phy_common
+stri YOMCST.h
+str2
+dirinc phyvenus
+stri YOMCST.h
+str2 $(LIBF)/phyvenus/YOMCST.h
+dirinc phyvenus/dyn1d
+stri YOMCST.h
+str2 $(LIBF)/phyvenus/YOMCST.h
+dernier str2 $(LIBF)/phyvenus/YOMCST.h
+phyvenus/nlte_tcool.F nlte_tcool YOMCST.h
+dirinc grid
+stri YOMCST.h
+str2
+dirinc misc
+stri YOMCST.h
+str2
+dirinc phy_common
+stri YOMCST.h
+str2
+dirinc phyvenus
+stri YOMCST.h
+str2 $(LIBF)/phyvenus/YOMCST.h
+dirinc phyvenus/dyn1d
+stri YOMCST.h
+str2 $(LIBF)/phyvenus/YOMCST.h
+dernier str2 $(LIBF)/phyvenus/YOMCST.h
+Warn: Include phyvenus phyvenus/nlte_tcool.F nlte_tcool YOMCST.h $(LIBF)/phyvenus/YOMCST.h trouve 2x
+phyvenus/nlte_tcool.F nlte_tcool conc
+dirinc grid
+stri conc
+str2
+dirinc misc
+stri conc
+str2
+dirinc phy_common
+stri conc
+str2
+dirinc phyvenus
+stri conc
+str2 $(LIBO)/libphyvenus.a(conc.o)
+dirinc phyvenus/dyn1d
+stri conc
+str2 $(LIBO)/libphyvenus.a(conc.o)
+dernier str2 $(LIBO)/libphyvenus.a(conc.o)
+phyvenus/nlte_tcool.F nlte_tcool dimphy
+dirinc grid
+stri dimphy
+str2
+dirinc misc
+stri dimphy
+str2
+dirinc phy_common
+stri dimphy
+str2
+dirinc phyvenus
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dirinc phyvenus/dyn1d
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dernier str2 $(LIBO)/libphyvenus.a(dimphy.o)
+phyvenus/nlthermeq.F nlthermeq clesphys.h
+dirinc grid
+stri clesphys.h
+str2
+dirinc misc
+stri clesphys.h
+str2
+dirinc phy_common
+stri clesphys.h
+str2
+dirinc phyvenus
+stri clesphys.h
+str2 $(LIBF)/phyvenus/clesphys.h
+dirinc phyvenus/dyn1d
+stri clesphys.h
+str2 $(LIBF)/phyvenus/clesphys.h
+dernier str2 $(LIBF)/phyvenus/clesphys.h
+phyvenus/nlthermeq.F nlthermeq nlteparams.h
+dirinc grid
+stri nlteparams.h
+str2
+dirinc misc
+stri nlteparams.h
+str2
+dirinc phy_common
+stri nlteparams.h
+str2
+dirinc phyvenus
+stri nlteparams.h
+str2 $(LIBF)/phyvenus/nlteparams.h
+dirinc phyvenus/dyn1d
+stri nlteparams.h
+str2 $(LIBF)/phyvenus/nlteparams.h
+dernier str2 $(LIBF)/phyvenus/nlteparams.h
+phyvenus/nlthermeq.F nlthermeq dimphy
+dirinc grid
+stri dimphy
+str2
+dirinc misc
+stri dimphy
+str2
+dirinc phy_common
+stri dimphy
+str2
+dirinc phyvenus
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dirinc phyvenus/dyn1d
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dernier str2 $(LIBO)/libphyvenus.a(dimphy.o)
+phyvenus/orodrag.F orodrag YOEGWD.h
+dirinc grid
+stri YOEGWD.h
+str2
+dirinc misc
+stri YOEGWD.h
+str2
+dirinc phy_common
+stri YOEGWD.h
+str2
+dirinc phyvenus
+stri YOEGWD.h
+str2 $(LIBF)/phyvenus/YOEGWD.h
+dirinc phyvenus/dyn1d
+stri YOEGWD.h
+str2 $(LIBF)/phyvenus/YOEGWD.h
+dernier str2 $(LIBF)/phyvenus/YOEGWD.h
+phyvenus/orodrag.F orodrag YOMCST.h
+dirinc grid
+stri YOMCST.h
+str2
+dirinc misc
+stri YOMCST.h
+str2
+dirinc phy_common
+stri YOMCST.h
+str2
+dirinc phyvenus
+stri YOMCST.h
+str2 $(LIBF)/phyvenus/YOMCST.h
+dirinc phyvenus/dyn1d
+stri YOMCST.h
+str2 $(LIBF)/phyvenus/YOMCST.h
+dernier str2 $(LIBF)/phyvenus/YOMCST.h
+phyvenus/orodrag.F orodrag dimphy
+dirinc grid
+stri dimphy
+str2
+dirinc misc
+stri dimphy
+str2
+dirinc phy_common
+stri dimphy
+str2
+dirinc phyvenus
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dirinc phyvenus/dyn1d
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dernier str2 $(LIBO)/libphyvenus.a(dimphy.o)
+phyvenus/orosetup.F orosetup YOEGWD.h
+dirinc grid
+stri YOEGWD.h
+str2
+dirinc misc
+stri YOEGWD.h
+str2
+dirinc phy_common
+stri YOEGWD.h
+str2
+dirinc phyvenus
+stri YOEGWD.h
+str2 $(LIBF)/phyvenus/YOEGWD.h
+dirinc phyvenus/dyn1d
+stri YOEGWD.h
+str2 $(LIBF)/phyvenus/YOEGWD.h
+dernier str2 $(LIBF)/phyvenus/YOEGWD.h
+phyvenus/orosetup.F orosetup YOMCST.h
+dirinc grid
+stri YOMCST.h
+str2
+dirinc misc
+stri YOMCST.h
+str2
+dirinc phy_common
+stri YOMCST.h
+str2
+dirinc phyvenus
+stri YOMCST.h
+str2 $(LIBF)/phyvenus/YOMCST.h
+dirinc phyvenus/dyn1d
+stri YOMCST.h
+str2 $(LIBF)/phyvenus/YOMCST.h
+dernier str2 $(LIBF)/phyvenus/YOMCST.h
+phyvenus/orosetup.F orosetup dimphy
+dirinc grid
+stri dimphy
+str2
+dirinc misc
+stri dimphy
+str2
+dirinc phy_common
+stri dimphy
+str2
+dirinc phyvenus
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dirinc phyvenus/dyn1d
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dernier str2 $(LIBO)/libphyvenus.a(dimphy.o)
+phyvenus/param_read_e107.F param_read_e107 clesphys.h
+dirinc grid
+stri clesphys.h
+str2
+dirinc misc
+stri clesphys.h
+str2
+dirinc phy_common
+stri clesphys.h
+str2
+dirinc phyvenus
+stri clesphys.h
+str2 $(LIBF)/phyvenus/clesphys.h
+dirinc phyvenus/dyn1d
+stri clesphys.h
+str2 $(LIBF)/phyvenus/clesphys.h
+dernier str2 $(LIBF)/phyvenus/clesphys.h
+phyvenus/param_read_e107.F param_read_e107 'param.h'
+dirinc grid
+stri 'param.h'
+str2
+dirinc misc
+stri 'param.h'
+str2
+dirinc phy_common
+stri 'param.h'
+str2
+dirinc phyvenus
+stri 'param.h'
+str2
+dirinc phyvenus/dyn1d
+stri 'param.h'
+str2
+dernier str2
+Warn: Include phyvenus phyvenus/param_read_e107.F param_read_e107 'param.h' pas trouve
+phyvenus/param_read_e107.F param_read_e107 'param_v4.h'
+dirinc grid
+stri 'param_v4.h'
+str2
+dirinc misc
+stri 'param_v4.h'
+str2
+dirinc phy_common
+stri 'param_v4.h'
+str2
+dirinc phyvenus
+stri 'param_v4.h'
+str2
+dirinc phyvenus/dyn1d
+stri 'param_v4.h'
+str2
+dernier str2
+Warn: Include phyvenus phyvenus/param_read_e107.F param_read_e107 'param_v4.h' pas trouve
+phyvenus/param_read.F param_read 'param.h'
+dirinc grid
+stri 'param.h'
+str2
+dirinc misc
+stri 'param.h'
+str2
+dirinc phy_common
+stri 'param.h'
+str2
+dirinc phyvenus
+stri 'param.h'
+str2
+dirinc phyvenus/dyn1d
+stri 'param.h'
+str2
+dernier str2
+Warn: Include phyvenus phyvenus/param_read.F param_read 'param.h' pas trouve
+phyvenus/param_read.F param_read 'param_v4.h'
+dirinc grid
+stri 'param_v4.h'
+str2
+dirinc misc
+stri 'param_v4.h'
+str2
+dirinc phy_common
+stri 'param_v4.h'
+str2
+dirinc phyvenus
+stri 'param_v4.h'
+str2
+dirinc phyvenus/dyn1d
+stri 'param_v4.h'
+str2
+dernier str2
+Warn: Include phyvenus phyvenus/param_read.F param_read 'param_v4.h' pas trouve
+phyvenus/param_read.F param_read conc
+dirinc grid
+stri conc
+str2
+dirinc misc
+stri conc
+str2
+dirinc phy_common
+stri conc
+str2
+dirinc phyvenus
+stri conc
+str2 $(LIBO)/libphyvenus.a(conc.o)
+dirinc phyvenus/dyn1d
+stri conc
+str2 $(LIBO)/libphyvenus.a(conc.o)
+dernier str2 $(LIBO)/libphyvenus.a(conc.o)
+phyvenus/param_read.F param_read dimphy
+dirinc grid
+stri dimphy
+str2
+dirinc misc
+stri dimphy
+str2
+dirinc phy_common
+stri dimphy
+str2
+dirinc phyvenus
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dirinc phyvenus/dyn1d
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dernier str2 $(LIBO)/libphyvenus.a(dimphy.o)
+phyvenus/physiq_mod.F physiq_mod clesphys.h
+dirinc grid
+stri clesphys.h
+str2
+dirinc misc
+stri clesphys.h
+str2
+dirinc phy_common
+stri clesphys.h
+str2
+dirinc phyvenus
+stri clesphys.h
+str2 $(LIBF)/phyvenus/clesphys.h
+dirinc phyvenus/dyn1d
+stri clesphys.h
+str2 $(LIBF)/phyvenus/clesphys.h
+dernier str2 $(LIBF)/phyvenus/clesphys.h
+phyvenus/physiq_mod.F physiq_mod dimsoil.h
+dirinc grid
+stri dimsoil.h
+str2
+dirinc misc
+stri dimsoil.h
+str2
+dirinc phy_common
+stri dimsoil.h
+str2
+dirinc phyvenus
+stri dimsoil.h
+str2 $(LIBF)/phyvenus/dimsoil.h
+dirinc phyvenus/dyn1d
+stri dimsoil.h
+str2 $(LIBF)/phyvenus/dimsoil.h
+dernier str2 $(LIBF)/phyvenus/dimsoil.h
+phyvenus/physiq_mod.F physiq_mod hedin.h
+dirinc grid
+stri hedin.h
+str2
+dirinc misc
+stri hedin.h
+str2
+dirinc phy_common
+stri hedin.h
+str2
+dirinc phyvenus
+stri hedin.h
+str2 $(LIBF)/phyvenus/hedin.h
+dirinc phyvenus/dyn1d
+stri hedin.h
+str2 $(LIBF)/phyvenus/hedin.h
+dernier str2 $(LIBF)/phyvenus/hedin.h
+phyvenus/physiq_mod.F physiq_mod ini_histday.h
+dirinc grid
+stri ini_histday.h
+str2
+dirinc misc
+stri ini_histday.h
+str2
+dirinc phy_common
+stri ini_histday.h
+str2
+dirinc phyvenus
+stri ini_histday.h
+str2 $(LIBF)/phyvenus/ini_histday.h
+dirinc phyvenus/dyn1d
+stri ini_histday.h
+str2 $(LIBF)/phyvenus/ini_histday.h
+dernier str2 $(LIBF)/phyvenus/ini_histday.h
+phyvenus/physiq_mod.F physiq_mod ini_histhf.h
+dirinc grid
+stri ini_histhf.h
+str2
+dirinc misc
+stri ini_histhf.h
+str2
+dirinc phy_common
+stri ini_histhf.h
+str2
+dirinc phyvenus
+stri ini_histhf.h
+str2
+dirinc phyvenus/dyn1d
+stri ini_histhf.h
+str2
+dernier str2
+Warn: Include phyvenus phyvenus/physiq_mod.F physiq_mod ini_histhf.h pas trouve
+phyvenus/physiq_mod.F physiq_mod ini_histins.h
+dirinc grid
+stri ini_histins.h
+str2
+dirinc misc
+stri ini_histins.h
+str2
+dirinc phy_common
+stri ini_histins.h
+str2
+dirinc phyvenus
+stri ini_histins.h
+str2 $(LIBF)/phyvenus/ini_histins.h
+dirinc phyvenus/dyn1d
+stri ini_histins.h
+str2 $(LIBF)/phyvenus/ini_histins.h
+dernier str2 $(LIBF)/phyvenus/ini_histins.h
+phyvenus/physiq_mod.F physiq_mod ini_histmth.h
+dirinc grid
+stri ini_histmth.h
+str2
+dirinc misc
+stri ini_histmth.h
+str2
+dirinc phy_common
+stri ini_histmth.h
+str2
+dirinc phyvenus
+stri ini_histmth.h
+str2 $(LIBF)/phyvenus/ini_histmth.h
+dirinc phyvenus/dyn1d
+stri ini_histmth.h
+str2 $(LIBF)/phyvenus/ini_histmth.h
+dernier str2 $(LIBF)/phyvenus/ini_histmth.h
+phyvenus/physiq_mod.F physiq_mod iniprint.h
+dirinc grid
+stri iniprint.h
+str2
+dirinc misc
+stri iniprint.h
+str2 $(LIBF)/misc/iniprint.h
+dirinc phy_common
+stri iniprint.h
+str2 $(LIBF)/misc/iniprint.h
+dirinc phyvenus
+stri iniprint.h
+str2 $(LIBF)/misc/iniprint.h
+dirinc phyvenus/dyn1d
+stri iniprint.h
+str2 $(LIBF)/misc/iniprint.h
+dernier str2 $(LIBF)/misc/iniprint.h
+phyvenus/physiq_mod.F physiq_mod nirdata.h
+dirinc grid
+stri nirdata.h
+str2
+dirinc misc
+stri nirdata.h
+str2
+dirinc phy_common
+stri nirdata.h
+str2
+dirinc phyvenus
+stri nirdata.h
+str2 $(LIBF)/phyvenus/nirdata.h
+dirinc phyvenus/dyn1d
+stri nirdata.h
+str2 $(LIBF)/phyvenus/nirdata.h
+dernier str2 $(LIBF)/phyvenus/nirdata.h
+phyvenus/physiq_mod.F physiq_mod tabcontrol.h
+dirinc grid
+stri tabcontrol.h
+str2
+dirinc misc
+stri tabcontrol.h
+str2
+dirinc phy_common
+stri tabcontrol.h
+str2
+dirinc phyvenus
+stri tabcontrol.h
+str2 $(LIBF)/phyvenus/tabcontrol.h
+dirinc phyvenus/dyn1d
+stri tabcontrol.h
+str2 $(LIBF)/phyvenus/tabcontrol.h
+dernier str2 $(LIBF)/phyvenus/tabcontrol.h
+phyvenus/physiq_mod.F physiq_mod timerad.h
+dirinc grid
+stri timerad.h
+str2
+dirinc misc
+stri timerad.h
+str2
+dirinc phy_common
+stri timerad.h
+str2
+dirinc phyvenus
+stri timerad.h
+str2 $(LIBF)/phyvenus/timerad.h
+dirinc phyvenus/dyn1d
+stri timerad.h
+str2 $(LIBF)/phyvenus/timerad.h
+dernier str2 $(LIBF)/phyvenus/timerad.h
+phyvenus/physiq_mod.F physiq_mod write_histday.h
+dirinc grid
+stri write_histday.h
+str2
+dirinc misc
+stri write_histday.h
+str2
+dirinc phy_common
+stri write_histday.h
+str2
+dirinc phyvenus
+stri write_histday.h
+str2 $(LIBF)/phyvenus/write_histday.h
+dirinc phyvenus/dyn1d
+stri write_histday.h
+str2 $(LIBF)/phyvenus/write_histday.h
+dernier str2 $(LIBF)/phyvenus/write_histday.h
+phyvenus/physiq_mod.F physiq_mod write_histhf.h
+dirinc grid
+stri write_histhf.h
+str2
+dirinc misc
+stri write_histhf.h
+str2
+dirinc phy_common
+stri write_histhf.h
+str2
+dirinc phyvenus
+stri write_histhf.h
+str2
+dirinc phyvenus/dyn1d
+stri write_histhf.h
+str2
+dernier str2
+Warn: Include phyvenus phyvenus/physiq_mod.F physiq_mod write_histhf.h pas trouve
+phyvenus/physiq_mod.F physiq_mod write_histins.h
+dirinc grid
+stri write_histins.h
+str2
+dirinc misc
+stri write_histins.h
+str2
+dirinc phy_common
+stri write_histins.h
+str2
+dirinc phyvenus
+stri write_histins.h
+str2 $(LIBF)/phyvenus/write_histins.h
+dirinc phyvenus/dyn1d
+stri write_histins.h
+str2 $(LIBF)/phyvenus/write_histins.h
+dernier str2 $(LIBF)/phyvenus/write_histins.h
+phyvenus/physiq_mod.F physiq_mod write_histmth.h
+dirinc grid
+stri write_histmth.h
+str2
+dirinc misc
+stri write_histmth.h
+str2
+dirinc phy_common
+stri write_histmth.h
+str2
+dirinc phyvenus
+stri write_histmth.h
+str2 $(LIBF)/phyvenus/write_histmth.h
+dirinc phyvenus/dyn1d
+stri write_histmth.h
+str2 $(LIBF)/phyvenus/write_histmth.h
+dernier str2 $(LIBF)/phyvenus/write_histmth.h
+phyvenus/physiq_mod.F physiq_mod YOMCST.h
+dirinc grid
+stri YOMCST.h
+str2
+dirinc misc
+stri YOMCST.h
+str2
+dirinc phy_common
+stri YOMCST.h
+str2
+dirinc phyvenus
+stri YOMCST.h
+str2 $(LIBF)/phyvenus/YOMCST.h
+dirinc phyvenus/dyn1d
+stri YOMCST.h
+str2 $(LIBF)/phyvenus/YOMCST.h
+dernier str2 $(LIBF)/phyvenus/YOMCST.h
+phyvenus/physiq_mod.F physiq_mod chemparam_mod
+dirinc grid
+stri chemparam_mod
+str2
+dirinc misc
+stri chemparam_mod
+str2
+dirinc phy_common
+stri chemparam_mod
+str2
+dirinc phyvenus
+stri chemparam_mod
+str2 $(LIBO)/libphyvenus.a(chemparam_mod.o)
+dirinc phyvenus/dyn1d
+stri chemparam_mod
+str2 $(LIBO)/libphyvenus.a(chemparam_mod.o)
+dernier str2 $(LIBO)/libphyvenus.a(chemparam_mod.o)
+phyvenus/physiq_mod.F physiq_mod comconst_mod
+dirinc grid
+stri comconst_mod
+str2
+dirinc misc
+stri comconst_mod
+str2
+dirinc phy_common
+stri comconst_mod
+str2
+dirinc phyvenus
+stri comconst_mod
+str2
+dirinc phyvenus/dyn1d
+stri comconst_mod
+str2 $(LIBO)/libphyvenus.a(comconst_mod.o)
+dernier str2 $(LIBO)/libphyvenus.a(comconst_mod.o)
+phyvenus/physiq_mod.F physiq_mod comcstfi_h
+dirinc grid
+stri comcstfi_h
+str2
+dirinc misc
+stri comcstfi_h
+str2
+dirinc phy_common
+stri comcstfi_h
+str2
+dirinc phyvenus
+stri comcstfi_h
+str2 $(LIBO)/libphyvenus.a(comcstfi_h.o)
+dirinc phyvenus/dyn1d
+stri comcstfi_h
+str2 $(LIBO)/libphyvenus.a(comcstfi_h.o)
+dernier str2 $(LIBO)/libphyvenus.a(comcstfi_h.o)
+phyvenus/physiq_mod.F physiq_mod comm_wrf
+dirinc grid
+stri comm_wrf
+str2
+dirinc misc
+stri comm_wrf
+str2
+dirinc phy_common
+stri comm_wrf
+str2
+dirinc phyvenus
+stri comm_wrf
+str2 $(LIBO)/libphyvenus.a(comm_wrf.o)
+dirinc phyvenus/dyn1d
+stri comm_wrf
+str2 $(LIBO)/libphyvenus.a(comm_wrf.o)
+dernier str2 $(LIBO)/libphyvenus.a(comm_wrf.o)
+phyvenus/physiq_mod.F physiq_mod compo_hedin83_mod2
+dirinc grid
+stri compo_hedin83_mod2
+str2
+dirinc misc
+stri compo_hedin83_mod2
+str2
+dirinc phy_common
+stri compo_hedin83_mod2
+str2
+dirinc phyvenus
+stri compo_hedin83_mod2
+str2
+dirinc phyvenus/dyn1d
+stri compo_hedin83_mod2
+str2
+dernier str2
+Warn: Include phyvenus phyvenus/physiq_mod.F physiq_mod compo_hedin83_mod2 pas trouve
+phyvenus/physiq_mod.F physiq_mod comsoil_h
+dirinc grid
+stri comsoil_h
+str2
+dirinc misc
+stri comsoil_h
+str2
+dirinc phy_common
+stri comsoil_h
+str2
+dirinc phyvenus
+stri comsoil_h
+str2 $(LIBO)/libphyvenus.a(comsoil_h.o)
+dirinc phyvenus/dyn1d
+stri comsoil_h
+str2 $(LIBO)/libphyvenus.a(comsoil_h.o)
+dernier str2 $(LIBO)/libphyvenus.a(comsoil_h.o)
+phyvenus/physiq_mod.F physiq_mod conc
+dirinc grid
+stri conc
+str2
+dirinc misc
+stri conc
+str2
+dirinc phy_common
+stri conc
+str2
+dirinc phyvenus
+stri conc
+str2 $(LIBO)/libphyvenus.a(conc.o)
+dirinc phyvenus/dyn1d
+stri conc
+str2 $(LIBO)/libphyvenus.a(conc.o)
+dernier str2 $(LIBO)/libphyvenus.a(conc.o)
+phyvenus/physiq_mod.F physiq_mod control_mod
+dirinc grid
+stri control_mod
+str2
+dirinc misc
+stri control_mod
+str2
+dirinc phy_common
+stri control_mod
+str2
+dirinc phyvenus
+stri control_mod
+str2
+dirinc phyvenus/dyn1d
+stri control_mod
+str2 $(LIBO)/libphyvenus.a(control_mod.o)
+dernier str2 $(LIBO)/libphyvenus.a(control_mod.o)
+phyvenus/physiq_mod.F physiq_mod cpdet_mod
+dirinc grid
+stri cpdet_mod
+str2
+dirinc misc
+stri cpdet_mod
+str2
+dirinc phy_common
+stri cpdet_mod
+str2
+dirinc phyvenus
+stri cpdet_mod
+str2
+dirinc phyvenus/dyn1d
+stri cpdet_mod
+str2 $(LIBO)/libphyvenus.a(cpdet_mod.o)
+dernier str2 $(LIBO)/libphyvenus.a(cpdet_mod.o)
+phyvenus/physiq_mod.F physiq_mod dimphy
+dirinc grid
+stri dimphy
+str2
+dirinc misc
+stri dimphy
+str2
+dirinc phy_common
+stri dimphy
+str2
+dirinc phyvenus
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dirinc phyvenus/dyn1d
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dernier str2 $(LIBO)/libphyvenus.a(dimphy.o)
+phyvenus/physiq_mod.F physiq_mod dimradmars_mod
+dirinc grid
+stri dimradmars_mod
+str2
+dirinc misc
+stri dimradmars_mod
+str2
+dirinc phy_common
+stri dimradmars_mod
+str2
+dirinc phyvenus
+stri dimradmars_mod
+str2 $(LIBO)/libphyvenus.a(dimradmars_mod.o)
+dirinc phyvenus/dyn1d
+stri dimradmars_mod
+str2 $(LIBO)/libphyvenus.a(dimradmars_mod.o)
+dernier str2 $(LIBO)/libphyvenus.a(dimradmars_mod.o)
+phyvenus/physiq_mod.F physiq_mod geometry_mod
+dirinc grid
+stri geometry_mod
+str2
+dirinc misc
+stri geometry_mod
+str2
+dirinc phy_common
+stri geometry_mod
+str2 $(LIBO)/libphy_common.a(geometry_mod.o)
+dirinc phyvenus
+stri geometry_mod
+str2 $(LIBO)/libphy_common.a(geometry_mod.o)
+dirinc phyvenus/dyn1d
+stri geometry_mod
+str2 $(LIBO)/libphy_common.a(geometry_mod.o)
+dernier str2 $(LIBO)/libphy_common.a(geometry_mod.o)
+phyvenus/physiq_mod.F physiq_mod infotrac
+dirinc grid
+stri infotrac
+str2
+dirinc misc
+stri infotrac
+str2
+dirinc phy_common
+stri infotrac
+str2
+dirinc phyvenus
+stri infotrac
+str2
+dirinc phyvenus/dyn1d
+stri infotrac
+str2 $(LIBO)/libphyvenus.a(infotrac.o)
+dernier str2 $(LIBO)/libphyvenus.a(infotrac.o)
+phyvenus/physiq_mod.F physiq_mod ioipsl
+dirinc grid
+stri ioipsl
+str2
+dirinc misc
+stri ioipsl
+str2
+dirinc phy_common
+stri ioipsl
+str2
+dirinc phyvenus
+stri ioipsl
+str2
+dirinc phyvenus/dyn1d
+stri ioipsl
+str2
+dernier str2
+Warn: Include phyvenus phyvenus/physiq_mod.F physiq_mod ioipsl pas trouve
+phyvenus/physiq_mod.F physiq_mod iophy
+dirinc grid
+stri iophy
+str2
+dirinc misc
+stri iophy
+str2
+dirinc phy_common
+stri iophy
+str2
+dirinc phyvenus
+stri iophy
+str2 $(LIBO)/libphyvenus.a(iophy.o)
+dirinc phyvenus/dyn1d
+stri iophy
+str2 $(LIBO)/libphyvenus.a(iophy.o)
+dernier str2 $(LIBO)/libphyvenus.a(iophy.o)
+phyvenus/physiq_mod.F physiq_mod logic_mod
+dirinc grid
+stri logic_mod
+str2
+dirinc misc
+stri logic_mod
+str2
+dirinc phy_common
+stri logic_mod
+str2
+dirinc phyvenus
+stri logic_mod
+str2
+dirinc phyvenus/dyn1d
+stri logic_mod
+str2 $(LIBO)/libphyvenus.a(logic_mod.o)
+dernier str2 $(LIBO)/libphyvenus.a(logic_mod.o)
+phyvenus/physiq_mod.F physiq_mod mod_grid_phy_lmdz
+dirinc grid
+stri mod_grid_phy_lmdz
+str2
+dirinc misc
+stri mod_grid_phy_lmdz
+str2
+dirinc phy_common
+stri mod_grid_phy_lmdz
+str2 $(LIBO)/libphy_common.a(mod_grid_phy_lmdz.o)
+dirinc phyvenus
+stri mod_grid_phy_lmdz
+str2 $(LIBO)/libphy_common.a(mod_grid_phy_lmdz.o)
+dirinc phyvenus/dyn1d
+stri mod_grid_phy_lmdz
+str2 $(LIBO)/libphy_common.a(mod_grid_phy_lmdz.o)
+dernier str2 $(LIBO)/libphy_common.a(mod_grid_phy_lmdz.o)
+phyvenus/physiq_mod.F physiq_mod mod_phys_lmdz_para
+dirinc grid
+stri mod_phys_lmdz_para
+str2
+dirinc misc
+stri mod_phys_lmdz_para
+str2
+dirinc phy_common
+stri mod_phys_lmdz_para
+str2 $(LIBO)/libphy_common.a(mod_phys_lmdz_para.o)
+dirinc phyvenus
+stri mod_phys_lmdz_para
+str2 $(LIBO)/libphy_common.a(mod_phys_lmdz_para.o)
+dirinc phyvenus/dyn1d
+stri mod_phys_lmdz_para
+str2 $(LIBO)/libphy_common.a(mod_phys_lmdz_para.o)
+dernier str2 $(LIBO)/libphy_common.a(mod_phys_lmdz_para.o)
+phyvenus/physiq_mod.F physiq_mod moyzon_mod
+dirinc grid
+stri moyzon_mod
+str2
+dirinc misc
+stri moyzon_mod
+str2
+dirinc phy_common
+stri moyzon_mod
+str2
+dirinc phyvenus
+stri moyzon_mod
+str2
+dirinc phyvenus/dyn1d
+stri moyzon_mod
+str2 $(LIBO)/libphyvenus.a(moyzon_mod.o)
+dernier str2 $(LIBO)/libphyvenus.a(moyzon_mod.o)
+phyvenus/physiq_mod.F physiq_mod phys_state_var_mod
+dirinc grid
+stri phys_state_var_mod
+str2
+dirinc misc
+stri phys_state_var_mod
+str2
+dirinc phy_common
+stri phys_state_var_mod
+str2
+dirinc phyvenus
+stri phys_state_var_mod
+str2 $(LIBO)/libphyvenus.a(phys_state_var_mod.o)
+dirinc phyvenus/dyn1d
+stri phys_state_var_mod
+str2 $(LIBO)/libphyvenus.a(phys_state_var_mod.o)
+dernier str2 $(LIBO)/libphyvenus.a(phys_state_var_mod.o)
+phyvenus/physiq_mod.F physiq_mod surfdat_h
+dirinc grid
+stri surfdat_h
+str2
+dirinc misc
+stri surfdat_h
+str2
+dirinc phy_common
+stri surfdat_h
+str2
+dirinc phyvenus
+stri surfdat_h
+str2 $(LIBO)/libphyvenus.a(surfdat_h.o)
+dirinc phyvenus/dyn1d
+stri surfdat_h
+str2 $(LIBO)/libphyvenus.a(surfdat_h.o)
+dernier str2 $(LIBO)/libphyvenus.a(surfdat_h.o)
+phyvenus/physiq_mod.F physiq_mod time_phylmdz_mod
+dirinc grid
+stri time_phylmdz_mod
+str2
+dirinc misc
+stri time_phylmdz_mod
+str2
+dirinc phy_common
+stri time_phylmdz_mod
+str2
+dirinc phyvenus
+stri time_phylmdz_mod
+str2 $(LIBO)/libphyvenus.a(time_phylmdz_mod.o)
+dirinc phyvenus/dyn1d
+stri time_phylmdz_mod
+str2 $(LIBO)/libphyvenus.a(time_phylmdz_mod.o)
+dernier str2 $(LIBO)/libphyvenus.a(time_phylmdz_mod.o)
+phyvenus/physiq_mod.F physiq_mod tracer_mod
+dirinc grid
+stri tracer_mod
+str2
+dirinc misc
+stri tracer_mod
+str2
+dirinc phy_common
+stri tracer_mod
+str2
+dirinc phyvenus
+stri tracer_mod
+str2 $(LIBO)/libphyvenus.a(tracer_mod.o)
+dirinc phyvenus/dyn1d
+stri tracer_mod
+str2 $(LIBO)/libphyvenus.a(tracer_mod.o)
+dernier str2 $(LIBO)/libphyvenus.a(tracer_mod.o)
+phyvenus/physiq_mod.F physiq_mod write_field_phy
+dirinc grid
+stri write_field_phy
+str2
+dirinc misc
+stri write_field_phy
+str2
+dirinc phy_common
+stri write_field_phy
+str2 $(LIBO)/libphy_common.a(write_field_phy.o)
+dirinc phyvenus
+stri write_field_phy
+str2 $(LIBO)/libphyvenus.a(write_field_phy.o)
+dirinc phyvenus/dyn1d
+stri write_field_phy
+str2 $(LIBO)/libphyvenus.a(write_field_phy.o)
+dernier str2 $(LIBO)/libphyvenus.a(write_field_phy.o)
+phyvenus/phytrac_chimie.F phytrac_chimie clesphys.h
+dirinc grid
+stri clesphys.h
+str2
+dirinc misc
+stri clesphys.h
+str2
+dirinc phy_common
+stri clesphys.h
+str2
+dirinc phyvenus
+stri clesphys.h
+str2 $(LIBF)/phyvenus/clesphys.h
+dirinc phyvenus/dyn1d
+stri clesphys.h
+str2 $(LIBF)/phyvenus/clesphys.h
+dernier str2 $(LIBF)/phyvenus/clesphys.h
+phyvenus/phytrac_chimie.F phytrac_chimie YOMCST.h
+dirinc grid
+stri YOMCST.h
+str2
+dirinc misc
+stri YOMCST.h
+str2
+dirinc phy_common
+stri YOMCST.h
+str2
+dirinc phyvenus
+stri YOMCST.h
+str2 $(LIBF)/phyvenus/YOMCST.h
+dirinc phyvenus/dyn1d
+stri YOMCST.h
+str2 $(LIBF)/phyvenus/YOMCST.h
+dernier str2 $(LIBF)/phyvenus/YOMCST.h
+phyvenus/phytrac_chimie.F phytrac_chimie chemparam_mod
+dirinc grid
+stri chemparam_mod
+str2
+dirinc misc
+stri chemparam_mod
+str2
+dirinc phy_common
+stri chemparam_mod
+str2
+dirinc phyvenus
+stri chemparam_mod
+str2 $(LIBO)/libphyvenus.a(chemparam_mod.o)
+dirinc phyvenus/dyn1d
+stri chemparam_mod
+str2 $(LIBO)/libphyvenus.a(chemparam_mod.o)
+dernier str2 $(LIBO)/libphyvenus.a(chemparam_mod.o)
+phyvenus/phytrac_chimie.F phytrac_chimie conc
+dirinc grid
+stri conc
+str2
+dirinc misc
+stri conc
+str2
+dirinc phy_common
+stri conc
+str2
+dirinc phyvenus
+stri conc
+str2 $(LIBO)/libphyvenus.a(conc.o)
+dirinc phyvenus/dyn1d
+stri conc
+str2 $(LIBO)/libphyvenus.a(conc.o)
+dernier str2 $(LIBO)/libphyvenus.a(conc.o)
+phyvenus/phytrac_emiss.F phytrac_emiss clesphys.h
+dirinc grid
+stri clesphys.h
+str2
+dirinc misc
+stri clesphys.h
+str2
+dirinc phy_common
+stri clesphys.h
+str2
+dirinc phyvenus
+stri clesphys.h
+str2 $(LIBF)/phyvenus/clesphys.h
+dirinc phyvenus/dyn1d
+stri clesphys.h
+str2 $(LIBF)/phyvenus/clesphys.h
+dernier str2 $(LIBF)/phyvenus/clesphys.h
+phyvenus/phytrac_emiss.F phytrac_emiss YOMCST.h
+dirinc grid
+stri YOMCST.h
+str2
+dirinc misc
+stri YOMCST.h
+str2
+dirinc phy_common
+stri YOMCST.h
+str2
+dirinc phyvenus
+stri YOMCST.h
+str2 $(LIBF)/phyvenus/YOMCST.h
+dirinc phyvenus/dyn1d
+stri YOMCST.h
+str2 $(LIBF)/phyvenus/YOMCST.h
+dernier str2 $(LIBF)/phyvenus/YOMCST.h
+phyvenus/phytrac_emiss.F phytrac_emiss chemparam_mod
+dirinc grid
+stri chemparam_mod
+str2
+dirinc misc
+stri chemparam_mod
+str2
+dirinc phy_common
+stri chemparam_mod
+str2
+dirinc phyvenus
+stri chemparam_mod
+str2 $(LIBO)/libphyvenus.a(chemparam_mod.o)
+dirinc phyvenus/dyn1d
+stri chemparam_mod
+str2 $(LIBO)/libphyvenus.a(chemparam_mod.o)
+dernier str2 $(LIBO)/libphyvenus.a(chemparam_mod.o)
+phyvenus/phytrac_emiss.F phytrac_emiss dimphy
+dirinc grid
+stri dimphy
+str2
+dirinc misc
+stri dimphy
+str2
+dirinc phy_common
+stri dimphy
+str2
+dirinc phyvenus
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dirinc phyvenus/dyn1d
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dernier str2 $(LIBO)/libphyvenus.a(dimphy.o)
+phyvenus/phytrac_emiss.F phytrac_emiss geometry_mod
+dirinc grid
+stri geometry_mod
+str2
+dirinc misc
+stri geometry_mod
+str2
+dirinc phy_common
+stri geometry_mod
+str2 $(LIBO)/libphy_common.a(geometry_mod.o)
+dirinc phyvenus
+stri geometry_mod
+str2 $(LIBO)/libphy_common.a(geometry_mod.o)
+dirinc phyvenus/dyn1d
+stri geometry_mod
+str2 $(LIBO)/libphy_common.a(geometry_mod.o)
+dernier str2 $(LIBO)/libphy_common.a(geometry_mod.o)
+phyvenus/phytrac_emiss.F phytrac_emiss infotrac
+dirinc grid
+stri infotrac
+str2
+dirinc misc
+stri infotrac
+str2
+dirinc phy_common
+stri infotrac
+str2
+dirinc phyvenus
+stri infotrac
+str2
+dirinc phyvenus/dyn1d
+stri infotrac
+str2 $(LIBO)/libphyvenus.a(infotrac.o)
+dernier str2 $(LIBO)/libphyvenus.a(infotrac.o)
+phyvenus/phytrac_emiss.F phytrac_emiss mod_grid_phy_lmdz
+dirinc grid
+stri mod_grid_phy_lmdz
+str2
+dirinc misc
+stri mod_grid_phy_lmdz
+str2
+dirinc phy_common
+stri mod_grid_phy_lmdz
+str2 $(LIBO)/libphy_common.a(mod_grid_phy_lmdz.o)
+dirinc phyvenus
+stri mod_grid_phy_lmdz
+str2 $(LIBO)/libphy_common.a(mod_grid_phy_lmdz.o)
+dirinc phyvenus/dyn1d
+stri mod_grid_phy_lmdz
+str2 $(LIBO)/libphy_common.a(mod_grid_phy_lmdz.o)
+dernier str2 $(LIBO)/libphy_common.a(mod_grid_phy_lmdz.o)
+phyvenus/phytrac_relax.F phytrac_relax clesphys.h
+dirinc grid
+stri clesphys.h
+str2
+dirinc misc
+stri clesphys.h
+str2
+dirinc phy_common
+stri clesphys.h
+str2
+dirinc phyvenus
+stri clesphys.h
+str2 $(LIBF)/phyvenus/clesphys.h
+dirinc phyvenus/dyn1d
+stri clesphys.h
+str2 $(LIBF)/phyvenus/clesphys.h
+dernier str2 $(LIBF)/phyvenus/clesphys.h
+phyvenus/phytrac_relax.F phytrac_relax YOMCST.h
+dirinc grid
+stri YOMCST.h
+str2
+dirinc misc
+stri YOMCST.h
+str2
+dirinc phy_common
+stri YOMCST.h
+str2
+dirinc phyvenus
+stri YOMCST.h
+str2 $(LIBF)/phyvenus/YOMCST.h
+dirinc phyvenus/dyn1d
+stri YOMCST.h
+str2 $(LIBF)/phyvenus/YOMCST.h
+dernier str2 $(LIBF)/phyvenus/YOMCST.h
+phyvenus/phytrac_relax.F phytrac_relax chemparam_mod
+dirinc grid
+stri chemparam_mod
+str2
+dirinc misc
+stri chemparam_mod
+str2
+dirinc phy_common
+stri chemparam_mod
+str2
+dirinc phyvenus
+stri chemparam_mod
+str2 $(LIBO)/libphyvenus.a(chemparam_mod.o)
+dirinc phyvenus/dyn1d
+stri chemparam_mod
+str2 $(LIBO)/libphyvenus.a(chemparam_mod.o)
+dernier str2 $(LIBO)/libphyvenus.a(chemparam_mod.o)
+phyvenus/phytrac_relax.F phytrac_relax dimphy
+dirinc grid
+stri dimphy
+str2
+dirinc misc
+stri dimphy
+str2
+dirinc phy_common
+stri dimphy
+str2
+dirinc phyvenus
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dirinc phyvenus/dyn1d
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dernier str2 $(LIBO)/libphyvenus.a(dimphy.o)
+phyvenus/phytrac_relax.F phytrac_relax infotrac
+dirinc grid
+stri infotrac
+str2
+dirinc misc
+stri infotrac
+str2
+dirinc phy_common
+stri infotrac
+str2
+dirinc phyvenus
+stri infotrac
+str2
+dirinc phyvenus/dyn1d
+stri infotrac
+str2 $(LIBO)/libphyvenus.a(infotrac.o)
+dernier str2 $(LIBO)/libphyvenus.a(infotrac.o)
+phyvenus/printflag.F printflag clesphys.h
+dirinc grid
+stri clesphys.h
+str2
+dirinc misc
+stri clesphys.h
+str2
+dirinc phy_common
+stri clesphys.h
+str2
+dirinc phyvenus
+stri clesphys.h
+str2 $(LIBF)/phyvenus/clesphys.h
+dirinc phyvenus/dyn1d
+stri clesphys.h
+str2 $(LIBF)/phyvenus/clesphys.h
+dernier str2 $(LIBF)/phyvenus/clesphys.h
+phyvenus/printflag.F printflag tabcontrol.h
+dirinc grid
+stri tabcontrol.h
+str2
+dirinc misc
+stri tabcontrol.h
+str2
+dirinc phy_common
+stri tabcontrol.h
+str2
+dirinc phyvenus
+stri tabcontrol.h
+str2 $(LIBF)/phyvenus/tabcontrol.h
+dirinc phyvenus/dyn1d
+stri tabcontrol.h
+str2 $(LIBF)/phyvenus/tabcontrol.h
+dernier str2 $(LIBF)/phyvenus/tabcontrol.h
+phyvenus/printflag.F printflag YOMCST.h
+dirinc grid
+stri YOMCST.h
+str2
+dirinc misc
+stri YOMCST.h
+str2
+dirinc phy_common
+stri YOMCST.h
+str2
+dirinc phyvenus
+stri YOMCST.h
+str2 $(LIBF)/phyvenus/YOMCST.h
+dirinc phyvenus/dyn1d
+stri YOMCST.h
+str2 $(LIBF)/phyvenus/YOMCST.h
+dernier str2 $(LIBF)/phyvenus/YOMCST.h
+phyvenus/radlwsw.F radlwsw clesphys.h
+dirinc grid
+stri clesphys.h
+str2
+dirinc misc
+stri clesphys.h
+str2
+dirinc phy_common
+stri clesphys.h
+str2
+dirinc phyvenus
+stri clesphys.h
+str2 $(LIBF)/phyvenus/clesphys.h
+dirinc phyvenus/dyn1d
+stri clesphys.h
+str2 $(LIBF)/phyvenus/clesphys.h
+dernier str2 $(LIBF)/phyvenus/clesphys.h
+phyvenus/radlwsw.F radlwsw comcstVE.h
+dirinc grid
+stri comcstVE.h
+str2
+dirinc misc
+stri comcstVE.h
+str2
+dirinc phy_common
+stri comcstVE.h
+str2
+dirinc phyvenus
+stri comcstVE.h
+str2 $(LIBF)/phyvenus/comcstVE.h
+dirinc phyvenus/dyn1d
+stri comcstVE.h
+str2 $(LIBF)/phyvenus/comcstVE.h
+dernier str2 $(LIBF)/phyvenus/comcstVE.h
+phyvenus/radlwsw.F radlwsw nlteparams.h
+dirinc grid
+stri nlteparams.h
+str2
+dirinc misc
+stri nlteparams.h
+str2
+dirinc phy_common
+stri nlteparams.h
+str2
+dirinc phyvenus
+stri nlteparams.h
+str2 $(LIBF)/phyvenus/nlteparams.h
+dirinc phyvenus/dyn1d
+stri nlteparams.h
+str2 $(LIBF)/phyvenus/nlteparams.h
+dernier str2 $(LIBF)/phyvenus/nlteparams.h
+phyvenus/radlwsw.F radlwsw YOMCST.h
+dirinc grid
+stri YOMCST.h
+str2
+dirinc misc
+stri YOMCST.h
+str2
+dirinc phy_common
+stri YOMCST.h
+str2
+dirinc phyvenus
+stri YOMCST.h
+str2 $(LIBF)/phyvenus/YOMCST.h
+dirinc phyvenus/dyn1d
+stri YOMCST.h
+str2 $(LIBF)/phyvenus/YOMCST.h
+dernier str2 $(LIBF)/phyvenus/YOMCST.h
+phyvenus/radlwsw.F radlwsw dimphy
+dirinc grid
+stri dimphy
+str2
+dirinc misc
+stri dimphy
+str2
+dirinc phy_common
+stri dimphy
+str2
+dirinc phyvenus
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dirinc phyvenus/dyn1d
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dernier str2 $(LIBO)/libphyvenus.a(dimphy.o)
+phyvenus/radlwsw.F radlwsw geometry_mod
+dirinc grid
+stri geometry_mod
+str2
+dirinc misc
+stri geometry_mod
+str2
+dirinc phy_common
+stri geometry_mod
+str2 $(LIBO)/libphy_common.a(geometry_mod.o)
+dirinc phyvenus
+stri geometry_mod
+str2 $(LIBO)/libphy_common.a(geometry_mod.o)
+dirinc phyvenus/dyn1d
+stri geometry_mod
+str2 $(LIBO)/libphy_common.a(geometry_mod.o)
+dernier str2 $(LIBO)/libphy_common.a(geometry_mod.o)
+phyvenus/radlwsw.F radlwsw phys_state_var_mod
+dirinc grid
+stri phys_state_var_mod
+str2
+dirinc misc
+stri phys_state_var_mod
+str2
+dirinc phy_common
+stri phys_state_var_mod
+str2
+dirinc phyvenus
+stri phys_state_var_mod
+str2 $(LIBO)/libphyvenus.a(phys_state_var_mod.o)
+dirinc phyvenus/dyn1d
+stri phys_state_var_mod
+str2 $(LIBO)/libphyvenus.a(phys_state_var_mod.o)
+dernier str2 $(LIBO)/libphyvenus.a(phys_state_var_mod.o)
+phyvenus/radlwsw.F radlwsw write_field_phy
+dirinc grid
+stri write_field_phy
+str2
+dirinc misc
+stri write_field_phy
+str2
+dirinc phy_common
+stri write_field_phy
+str2 $(LIBO)/libphy_common.a(write_field_phy.o)
+dirinc phyvenus
+stri write_field_phy
+str2 $(LIBO)/libphyvenus.a(write_field_phy.o)
+dirinc phyvenus/dyn1d
+stri write_field_phy
+str2 $(LIBO)/libphyvenus.a(write_field_phy.o)
+dernier str2 $(LIBO)/libphyvenus.a(write_field_phy.o)
+phyvenus/soil.F soil clesphys.h
+dirinc grid
+stri clesphys.h
+str2
+dirinc misc
+stri clesphys.h
+str2
+dirinc phy_common
+stri clesphys.h
+str2
+dirinc phyvenus
+stri clesphys.h
+str2 $(LIBF)/phyvenus/clesphys.h
+dirinc phyvenus/dyn1d
+stri clesphys.h
+str2 $(LIBF)/phyvenus/clesphys.h
+dernier str2 $(LIBF)/phyvenus/clesphys.h
+phyvenus/soil.F soil dimsoil.h
+dirinc grid
+stri dimsoil.h
+str2
+dirinc misc
+stri dimsoil.h
+str2
+dirinc phy_common
+stri dimsoil.h
+str2
+dirinc phyvenus
+stri dimsoil.h
+str2 $(LIBF)/phyvenus/dimsoil.h
+dirinc phyvenus/dyn1d
+stri dimsoil.h
+str2 $(LIBF)/phyvenus/dimsoil.h
+dernier str2 $(LIBF)/phyvenus/dimsoil.h
+phyvenus/soil.F soil YOMCST.h
+dirinc grid
+stri YOMCST.h
+str2
+dirinc misc
+stri YOMCST.h
+str2
+dirinc phy_common
+stri YOMCST.h
+str2
+dirinc phyvenus
+stri YOMCST.h
+str2 $(LIBF)/phyvenus/YOMCST.h
+dirinc phyvenus/dyn1d
+stri YOMCST.h
+str2 $(LIBF)/phyvenus/YOMCST.h
+dernier str2 $(LIBF)/phyvenus/YOMCST.h
+phyvenus/soil.F soil dimphy
+dirinc grid
+stri dimphy
+str2
+dirinc misc
+stri dimphy
+str2
+dirinc phy_common
+stri dimphy
+str2
+dirinc phyvenus
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dirinc phyvenus/dyn1d
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dernier str2 $(LIBO)/libphyvenus.a(dimphy.o)
+phyvenus/sugwd.F sugwd YOEGWD.h
+dirinc grid
+stri YOEGWD.h
+str2
+dirinc misc
+stri YOEGWD.h
+str2
+dirinc phy_common
+stri YOEGWD.h
+str2
+dirinc phyvenus
+stri YOEGWD.h
+str2 $(LIBF)/phyvenus/YOEGWD.h
+dirinc phyvenus/dyn1d
+stri YOEGWD.h
+str2 $(LIBF)/phyvenus/YOEGWD.h
+dernier str2 $(LIBF)/phyvenus/YOEGWD.h
+phyvenus/sugwd.F sugwd dimphy
+dirinc grid
+stri dimphy
+str2
+dirinc misc
+stri dimphy
+str2
+dirinc phy_common
+stri dimphy
+str2
+dirinc phyvenus
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dirinc phyvenus/dyn1d
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dernier str2 $(LIBO)/libphyvenus.a(dimphy.o)
+phyvenus/suphec.F suphec YOMCST.h
+dirinc grid
+stri YOMCST.h
+str2
+dirinc misc
+stri YOMCST.h
+str2
+dirinc phy_common
+stri YOMCST.h
+str2
+dirinc phyvenus
+stri YOMCST.h
+str2 $(LIBF)/phyvenus/YOMCST.h
+dirinc phyvenus/dyn1d
+stri YOMCST.h
+str2 $(LIBF)/phyvenus/YOMCST.h
+dernier str2 $(LIBF)/phyvenus/YOMCST.h
+phyvenus/sw_venus_cl_1Dglobave.F sw_venus_cl_1Dglobave YOMCST.h
+dirinc grid
+stri YOMCST.h
+str2
+dirinc misc
+stri YOMCST.h
+str2
+dirinc phy_common
+stri YOMCST.h
+str2
+dirinc phyvenus
+stri YOMCST.h
+str2 $(LIBF)/phyvenus/YOMCST.h
+dirinc phyvenus/dyn1d
+stri YOMCST.h
+str2 $(LIBF)/phyvenus/YOMCST.h
+dernier str2 $(LIBF)/phyvenus/YOMCST.h
+phyvenus/sw_venus_cl_1Dglobave.F sw_venus_cl_1Dglobave cpdet_mod
+dirinc grid
+stri cpdet_mod
+str2
+dirinc misc
+stri cpdet_mod
+str2
+dirinc phy_common
+stri cpdet_mod
+str2
+dirinc phyvenus
+stri cpdet_mod
+str2
+dirinc phyvenus/dyn1d
+stri cpdet_mod
+str2 $(LIBO)/libphyvenus.a(cpdet_mod.o)
+dernier str2 $(LIBO)/libphyvenus.a(cpdet_mod.o)
+phyvenus/sw_venus_cl_1Dglobave.F sw_venus_cl_1Dglobave dimphy
+dirinc grid
+stri dimphy
+str2
+dirinc misc
+stri dimphy
+str2
+dirinc phy_common
+stri dimphy
+str2
+dirinc phyvenus
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dirinc phyvenus/dyn1d
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dernier str2 $(LIBO)/libphyvenus.a(dimphy.o)
+phyvenus/sw_venus_cl.F sw_venus_cl YOMCST.h
+dirinc grid
+stri YOMCST.h
+str2
+dirinc misc
+stri YOMCST.h
+str2
+dirinc phy_common
+stri YOMCST.h
+str2
+dirinc phyvenus
+stri YOMCST.h
+str2 $(LIBF)/phyvenus/YOMCST.h
+dirinc phyvenus/dyn1d
+stri YOMCST.h
+str2 $(LIBF)/phyvenus/YOMCST.h
+dernier str2 $(LIBF)/phyvenus/YOMCST.h
+phyvenus/sw_venus_cl.F sw_venus_cl cpdet_mod
+dirinc grid
+stri cpdet_mod
+str2
+dirinc misc
+stri cpdet_mod
+str2
+dirinc phy_common
+stri cpdet_mod
+str2
+dirinc phyvenus
+stri cpdet_mod
+str2
+dirinc phyvenus/dyn1d
+stri cpdet_mod
+str2 $(LIBO)/libphyvenus.a(cpdet_mod.o)
+dernier str2 $(LIBO)/libphyvenus.a(cpdet_mod.o)
+phyvenus/sw_venus_cl.F sw_venus_cl dimphy
+dirinc grid
+stri dimphy
+str2
+dirinc misc
+stri dimphy
+str2
+dirinc phy_common
+stri dimphy
+str2
+dirinc phyvenus
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dirinc phyvenus/dyn1d
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dernier str2 $(LIBO)/libphyvenus.a(dimphy.o)
+phyvenus/sw_venus_dc_1Dglobave.F sw_venus_dc_1Dglobave YOMCST.h
+dirinc grid
+stri YOMCST.h
+str2
+dirinc misc
+stri YOMCST.h
+str2
+dirinc phy_common
+stri YOMCST.h
+str2
+dirinc phyvenus
+stri YOMCST.h
+str2 $(LIBF)/phyvenus/YOMCST.h
+dirinc phyvenus/dyn1d
+stri YOMCST.h
+str2 $(LIBF)/phyvenus/YOMCST.h
+dernier str2 $(LIBF)/phyvenus/YOMCST.h
+phyvenus/sw_venus_dc_1Dglobave.F sw_venus_dc_1Dglobave cpdet_mod
+dirinc grid
+stri cpdet_mod
+str2
+dirinc misc
+stri cpdet_mod
+str2
+dirinc phy_common
+stri cpdet_mod
+str2
+dirinc phyvenus
+stri cpdet_mod
+str2
+dirinc phyvenus/dyn1d
+stri cpdet_mod
+str2 $(LIBO)/libphyvenus.a(cpdet_mod.o)
+dernier str2 $(LIBO)/libphyvenus.a(cpdet_mod.o)
+phyvenus/sw_venus_dc_1Dglobave.F sw_venus_dc_1Dglobave dimphy
+dirinc grid
+stri dimphy
+str2
+dirinc misc
+stri dimphy
+str2
+dirinc phy_common
+stri dimphy
+str2
+dirinc phyvenus
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dirinc phyvenus/dyn1d
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dernier str2 $(LIBO)/libphyvenus.a(dimphy.o)
+phyvenus/sw_venus_dc.F sw_venus_dc YOMCST.h
+dirinc grid
+stri YOMCST.h
+str2
+dirinc misc
+stri YOMCST.h
+str2
+dirinc phy_common
+stri YOMCST.h
+str2
+dirinc phyvenus
+stri YOMCST.h
+str2 $(LIBF)/phyvenus/YOMCST.h
+dirinc phyvenus/dyn1d
+stri YOMCST.h
+str2 $(LIBF)/phyvenus/YOMCST.h
+dernier str2 $(LIBF)/phyvenus/YOMCST.h
+phyvenus/sw_venus_dc.F sw_venus_dc cpdet_mod
+dirinc grid
+stri cpdet_mod
+str2
+dirinc misc
+stri cpdet_mod
+str2
+dirinc phy_common
+stri cpdet_mod
+str2
+dirinc phyvenus
+stri cpdet_mod
+str2
+dirinc phyvenus/dyn1d
+stri cpdet_mod
+str2 $(LIBO)/libphyvenus.a(cpdet_mod.o)
+dernier str2 $(LIBO)/libphyvenus.a(cpdet_mod.o)
+phyvenus/sw_venus_dc.F sw_venus_dc dimphy
+dirinc grid
+stri dimphy
+str2
+dirinc misc
+stri dimphy
+str2
+dirinc phy_common
+stri dimphy
+str2
+dirinc phyvenus
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dirinc phyvenus/dyn1d
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dernier str2 $(LIBO)/libphyvenus.a(dimphy.o)
+phyvenus/sw_venus_ve_1Dglobave.F sw_venus_ve_1Dglobave YOMCST.h
+dirinc grid
+stri YOMCST.h
+str2
+dirinc misc
+stri YOMCST.h
+str2
+dirinc phy_common
+stri YOMCST.h
+str2
+dirinc phyvenus
+stri YOMCST.h
+str2 $(LIBF)/phyvenus/YOMCST.h
+dirinc phyvenus/dyn1d
+stri YOMCST.h
+str2 $(LIBF)/phyvenus/YOMCST.h
+dernier str2 $(LIBF)/phyvenus/YOMCST.h
+phyvenus/sw_venus_ve_1Dglobave.F sw_venus_ve_1Dglobave cpdet_mod
+dirinc grid
+stri cpdet_mod
+str2
+dirinc misc
+stri cpdet_mod
+str2
+dirinc phy_common
+stri cpdet_mod
+str2
+dirinc phyvenus
+stri cpdet_mod
+str2
+dirinc phyvenus/dyn1d
+stri cpdet_mod
+str2 $(LIBO)/libphyvenus.a(cpdet_mod.o)
+dernier str2 $(LIBO)/libphyvenus.a(cpdet_mod.o)
+phyvenus/sw_venus_ve_1Dglobave.F sw_venus_ve_1Dglobave dimphy
+dirinc grid
+stri dimphy
+str2
+dirinc misc
+stri dimphy
+str2
+dirinc phy_common
+stri dimphy
+str2
+dirinc phyvenus
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dirinc phyvenus/dyn1d
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dernier str2 $(LIBO)/libphyvenus.a(dimphy.o)
+phyvenus/sw_venus_ve.F sw_venus_ve YOMCST.h
+dirinc grid
+stri YOMCST.h
+str2
+dirinc misc
+stri YOMCST.h
+str2
+dirinc phy_common
+stri YOMCST.h
+str2
+dirinc phyvenus
+stri YOMCST.h
+str2 $(LIBF)/phyvenus/YOMCST.h
+dirinc phyvenus/dyn1d
+stri YOMCST.h
+str2 $(LIBF)/phyvenus/YOMCST.h
+dernier str2 $(LIBF)/phyvenus/YOMCST.h
+phyvenus/sw_venus_ve.F sw_venus_ve cpdet_mod
+dirinc grid
+stri cpdet_mod
+str2
+dirinc misc
+stri cpdet_mod
+str2
+dirinc phy_common
+stri cpdet_mod
+str2
+dirinc phyvenus
+stri cpdet_mod
+str2
+dirinc phyvenus/dyn1d
+stri cpdet_mod
+str2 $(LIBO)/libphyvenus.a(cpdet_mod.o)
+dernier str2 $(LIBO)/libphyvenus.a(cpdet_mod.o)
+phyvenus/sw_venus_ve.F sw_venus_ve dimphy
+dirinc grid
+stri dimphy
+str2
+dirinc misc
+stri dimphy
+str2
+dirinc phy_common
+stri dimphy
+str2
+dirinc phyvenus
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dirinc phyvenus/dyn1d
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dernier str2 $(LIBO)/libphyvenus.a(dimphy.o)
+phyvenus/transp.F transp YOMCST.h
+dirinc grid
+stri YOMCST.h
+str2
+dirinc misc
+stri YOMCST.h
+str2
+dirinc phy_common
+stri YOMCST.h
+str2
+dirinc phyvenus
+stri YOMCST.h
+str2 $(LIBF)/phyvenus/YOMCST.h
+dirinc phyvenus/dyn1d
+stri YOMCST.h
+str2 $(LIBF)/phyvenus/YOMCST.h
+dernier str2 $(LIBF)/phyvenus/YOMCST.h
+phyvenus/transp.F transp dimphy
+dirinc grid
+stri dimphy
+str2
+dirinc misc
+stri dimphy
+str2
+dirinc phy_common
+stri dimphy
+str2
+dirinc phyvenus
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dirinc phyvenus/dyn1d
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dernier str2 $(LIBO)/libphyvenus.a(dimphy.o)
+phyvenus/ustarhb.F ustarhb YOMCST.h
+dirinc grid
+stri YOMCST.h
+str2
+dirinc misc
+stri YOMCST.h
+str2
+dirinc phy_common
+stri YOMCST.h
+str2
+dirinc phyvenus
+stri YOMCST.h
+str2 $(LIBF)/phyvenus/YOMCST.h
+dirinc phyvenus/dyn1d
+stri YOMCST.h
+str2 $(LIBF)/phyvenus/YOMCST.h
+dernier str2 $(LIBF)/phyvenus/YOMCST.h
+phyvenus/ustarhb.F ustarhb dimphy
+dirinc grid
+stri dimphy
+str2
+dirinc misc
+stri dimphy
+str2
+dirinc phy_common
+stri dimphy
+str2
+dirinc phyvenus
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dirinc phyvenus/dyn1d
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dernier str2 $(LIBO)/libphyvenus.a(dimphy.o)
+phyvenus/vdif_kcay.F vdif_kcay dimphy
+dirinc grid
+stri dimphy
+str2
+dirinc misc
+stri dimphy
+str2
+dirinc phy_common
+stri dimphy
+str2
+dirinc phyvenus
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dirinc phyvenus/dyn1d
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dernier str2 $(LIBO)/libphyvenus.a(dimphy.o)
+phyvenus/yamada4.F yamada4 dimphy
+dirinc grid
+stri dimphy
+str2
+dirinc misc
+stri dimphy
+str2
+dirinc phy_common
+stri dimphy
+str2
+dirinc phyvenus
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dirinc phyvenus/dyn1d
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dernier str2 $(LIBO)/libphyvenus.a(dimphy.o)
+phyvenus/yamada.F yamada dimphy
+dirinc grid
+stri dimphy
+str2
+dirinc misc
+stri dimphy
+str2
+dirinc phy_common
+stri dimphy
+str2
+dirinc phyvenus
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dirinc phyvenus/dyn1d
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dernier str2 $(LIBO)/libphyvenus.a(dimphy.o)
+phyvenus/zenang.F zenang YOMCST.h
+dirinc grid
+stri YOMCST.h
+str2
+dirinc misc
+stri YOMCST.h
+str2
+dirinc phy_common
+stri YOMCST.h
+str2
+dirinc phyvenus
+stri YOMCST.h
+str2 $(LIBF)/phyvenus/YOMCST.h
+dirinc phyvenus/dyn1d
+stri YOMCST.h
+str2 $(LIBF)/phyvenus/YOMCST.h
+dernier str2 $(LIBF)/phyvenus/YOMCST.h
+phyvenus/zenang.F zenang dimphy
+dirinc grid
+stri dimphy
+str2
+dirinc misc
+stri dimphy
+str2
+dirinc phy_common
+stri dimphy
+str2
+dirinc phyvenus
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dirinc phyvenus/dyn1d
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dernier str2 $(LIBO)/libphyvenus.a(dimphy.o)
+phyvenus/chemparam_mod.F90 chemparam_mod infotrac
+dirinc grid
+stri infotrac
+str2
+dirinc misc
+stri infotrac
+str2
+dirinc phy_common
+stri infotrac
+str2
+dirinc phyvenus
+stri infotrac
+str2
+dirinc phyvenus/dyn1d
+stri infotrac
+str2 $(LIBO)/libphyvenus.a(infotrac.o)
+dernier str2 $(LIBO)/libphyvenus.a(infotrac.o)
+phyvenus/clcdrag.F90 clcdrag clesphys.h
+dirinc grid
+stri clesphys.h
+str2
+dirinc misc
+stri clesphys.h
+str2
+dirinc phy_common
+stri clesphys.h
+str2
+dirinc phyvenus
+stri clesphys.h
+str2 $(LIBF)/phyvenus/clesphys.h
+dirinc phyvenus/dyn1d
+stri clesphys.h
+str2 $(LIBF)/phyvenus/clesphys.h
+dernier str2 $(LIBF)/phyvenus/clesphys.h
+phyvenus/clcdrag.F90 clcdrag YOMCST.h
+dirinc grid
+stri YOMCST.h
+str2
+dirinc misc
+stri YOMCST.h
+str2
+dirinc phy_common
+stri YOMCST.h
+str2
+dirinc phyvenus
+stri YOMCST.h
+str2 $(LIBF)/phyvenus/YOMCST.h
+dirinc phyvenus/dyn1d
+stri YOMCST.h
+str2 $(LIBF)/phyvenus/YOMCST.h
+dernier str2 $(LIBF)/phyvenus/YOMCST.h
+phyvenus/compo_hedin_mod2.F90 compo_hedin_mod2 hedin.h
+dirinc grid
+stri hedin.h
+str2
+dirinc misc
+stri hedin.h
+str2
+dirinc phy_common
+stri hedin.h
+str2
+dirinc phyvenus
+stri hedin.h
+str2 $(LIBF)/phyvenus/hedin.h
+dirinc phyvenus/dyn1d
+stri hedin.h
+str2 $(LIBF)/phyvenus/hedin.h
+dernier str2 $(LIBF)/phyvenus/hedin.h
+phyvenus/compo_hedin_mod2.F90 compo_hedin_mod2 'hedin.h'
+dirinc grid
+stri 'hedin.h'
+str2
+dirinc misc
+stri 'hedin.h'
+str2
+dirinc phy_common
+stri 'hedin.h'
+str2
+dirinc phyvenus
+stri 'hedin.h'
+str2
+dirinc phyvenus/dyn1d
+stri 'hedin.h'
+str2
+dernier str2
+Warn: Include phyvenus phyvenus/compo_hedin_mod2.F90 compo_hedin_mod2 'hedin.h' pas trouve
+phyvenus/compo_hedin_mod2.F90 compo_hedin_mod2 YOMCST.h
+dirinc grid
+stri YOMCST.h
+str2
+dirinc misc
+stri YOMCST.h
+str2
+dirinc phy_common
+stri YOMCST.h
+str2
+dirinc phyvenus
+stri YOMCST.h
+str2 $(LIBF)/phyvenus/YOMCST.h
+dirinc phyvenus/dyn1d
+stri YOMCST.h
+str2 $(LIBF)/phyvenus/YOMCST.h
+dernier str2 $(LIBF)/phyvenus/YOMCST.h
+phyvenus/conc.F90 conc dimphy
+dirinc grid
+stri dimphy
+str2
+dirinc misc
+stri dimphy
+str2
+dirinc phy_common
+stri dimphy
+str2
+dirinc phyvenus
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dirinc phyvenus/dyn1d
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dernier str2 $(LIBO)/libphyvenus.a(dimphy.o)
+phyvenus/conf_phys.F90 conf_phys clesphys.h
+dirinc grid
+stri clesphys.h
+str2
+dirinc misc
+stri clesphys.h
+str2
+dirinc phy_common
+stri clesphys.h
+str2
+dirinc phyvenus
+stri clesphys.h
+str2 $(LIBF)/phyvenus/clesphys.h
+dirinc phyvenus/dyn1d
+stri clesphys.h
+str2 $(LIBF)/phyvenus/clesphys.h
+dernier str2 $(LIBF)/phyvenus/clesphys.h
+phyvenus/conf_phys.F90 conf_phys compbl.h
+dirinc grid
+stri compbl.h
+str2
+dirinc misc
+stri compbl.h
+str2
+dirinc phy_common
+stri compbl.h
+str2
+dirinc phyvenus
+stri compbl.h
+str2 $(LIBF)/phyvenus/compbl.h
+dirinc phyvenus/dyn1d
+stri compbl.h
+str2 $(LIBF)/phyvenus/compbl.h
+dernier str2 $(LIBF)/phyvenus/compbl.h
+phyvenus/conf_phys.F90 conf_phys YOMCST.h
+dirinc grid
+stri YOMCST.h
+str2
+dirinc misc
+stri YOMCST.h
+str2
+dirinc phy_common
+stri YOMCST.h
+str2
+dirinc phyvenus
+stri YOMCST.h
+str2 $(LIBF)/phyvenus/YOMCST.h
+dirinc phyvenus/dyn1d
+stri YOMCST.h
+str2 $(LIBF)/phyvenus/YOMCST.h
+dernier str2 $(LIBF)/phyvenus/YOMCST.h
+phyvenus/conf_phys.F90 conf_phys IOIPSL
+dirinc grid
+stri IOIPSL
+str2
+dirinc misc
+stri IOIPSL
+str2
+dirinc phy_common
+stri IOIPSL
+str2
+dirinc phyvenus
+stri IOIPSL
+str2
+dirinc phyvenus/dyn1d
+stri IOIPSL
+str2
+dernier str2
+Warn: Include phyvenus phyvenus/conf_phys.F90 conf_phys IOIPSL pas trouve
+phyvenus/def_var.F90 def_var netcdf.inc
+dirinc grid
+stri netcdf.inc
+str2
+dirinc misc
+stri netcdf.inc
+str2
+dirinc phy_common
+stri netcdf.inc
+str2
+dirinc phyvenus
+stri netcdf.inc
+str2
+dirinc phyvenus/dyn1d
+stri netcdf.inc
+str2
+dernier str2
+Warn: Include phyvenus phyvenus/def_var.F90 def_var netcdf.inc pas trouve
+phyvenus/euvheat.F90 euvheat clesphys.h
+dirinc grid
+stri clesphys.h
+str2
+dirinc misc
+stri clesphys.h
+str2
+dirinc phy_common
+stri clesphys.h
+str2
+dirinc phyvenus
+stri clesphys.h
+str2 $(LIBF)/phyvenus/clesphys.h
+dirinc phyvenus/dyn1d
+stri clesphys.h
+str2 $(LIBF)/phyvenus/clesphys.h
+dernier str2 $(LIBF)/phyvenus/clesphys.h
+phyvenus/euvheat.F90 euvheat mmol.h
+dirinc grid
+stri mmol.h
+str2
+dirinc misc
+stri mmol.h
+str2
+dirinc phy_common
+stri mmol.h
+str2
+dirinc phyvenus
+stri mmol.h
+str2 $(LIBF)/phyvenus/mmol.h
+dirinc phyvenus/dyn1d
+stri mmol.h
+str2 $(LIBF)/phyvenus/mmol.h
+dernier str2 $(LIBF)/phyvenus/mmol.h
+phyvenus/euvheat.F90 euvheat param.h
+dirinc grid
+stri param.h
+str2
+dirinc misc
+stri param.h
+str2
+dirinc phy_common
+stri param.h
+str2
+dirinc phyvenus
+stri param.h
+str2 $(LIBF)/phyvenus/param.h
+dirinc phyvenus/dyn1d
+stri param.h
+str2 $(LIBF)/phyvenus/param.h
+dernier str2 $(LIBF)/phyvenus/param.h
+phyvenus/euvheat.F90 euvheat param_v4.h
+dirinc grid
+stri param_v4.h
+str2
+dirinc misc
+stri param_v4.h
+str2
+dirinc phy_common
+stri param_v4.h
+str2
+dirinc phyvenus
+stri param_v4.h
+str2 $(LIBF)/phyvenus/param_v4.h
+dirinc phyvenus/dyn1d
+stri param_v4.h
+str2 $(LIBF)/phyvenus/param_v4.h
+dernier str2 $(LIBF)/phyvenus/param_v4.h
+phyvenus/euvheat.F90 euvheat YOMCST.h
+dirinc grid
+stri YOMCST.h
+str2
+dirinc misc
+stri YOMCST.h
+str2
+dirinc phy_common
+stri YOMCST.h
+str2
+dirinc phyvenus
+stri YOMCST.h
+str2 $(LIBF)/phyvenus/YOMCST.h
+dirinc phyvenus/dyn1d
+stri YOMCST.h
+str2 $(LIBF)/phyvenus/YOMCST.h
+dernier str2 $(LIBF)/phyvenus/YOMCST.h
+phyvenus/euvheat.F90 euvheat chemparam_mod
+dirinc grid
+stri chemparam_mod
+str2
+dirinc misc
+stri chemparam_mod
+str2
+dirinc phy_common
+stri chemparam_mod
+str2
+dirinc phyvenus
+stri chemparam_mod
+str2 $(LIBO)/libphyvenus.a(chemparam_mod.o)
+dirinc phyvenus/dyn1d
+stri chemparam_mod
+str2 $(LIBO)/libphyvenus.a(chemparam_mod.o)
+dernier str2 $(LIBO)/libphyvenus.a(chemparam_mod.o)
+phyvenus/euvheat.F90 euvheat conc
+dirinc grid
+stri conc
+str2
+dirinc misc
+stri conc
+str2
+dirinc phy_common
+stri conc
+str2
+dirinc phyvenus
+stri conc
+str2 $(LIBO)/libphyvenus.a(conc.o)
+dirinc phyvenus/dyn1d
+stri conc
+str2 $(LIBO)/libphyvenus.a(conc.o)
+dernier str2 $(LIBO)/libphyvenus.a(conc.o)
+phyvenus/flott_gwd_ran.F90 flott_gwd_ran YOEGWD.h
+dirinc grid
+stri YOEGWD.h
+str2
+dirinc misc
+stri YOEGWD.h
+str2
+dirinc phy_common
+stri YOEGWD.h
+str2
+dirinc phyvenus
+stri YOEGWD.h
+str2 $(LIBF)/phyvenus/YOEGWD.h
+dirinc phyvenus/dyn1d
+stri YOEGWD.h
+str2 $(LIBF)/phyvenus/YOEGWD.h
+dernier str2 $(LIBF)/phyvenus/YOEGWD.h
+phyvenus/flott_gwd_ran.F90 flott_gwd_ran YOMCST.h
+dirinc grid
+stri YOMCST.h
+str2
+dirinc misc
+stri YOMCST.h
+str2
+dirinc phy_common
+stri YOMCST.h
+str2
+dirinc phyvenus
+stri YOMCST.h
+str2 $(LIBF)/phyvenus/YOMCST.h
+dirinc phyvenus/dyn1d
+stri YOMCST.h
+str2 $(LIBF)/phyvenus/YOMCST.h
+dernier str2 $(LIBF)/phyvenus/YOMCST.h
+phyvenus/flott_gwd_ran.F90 flott_gwd_ran dimphy
+dirinc grid
+stri dimphy
+str2
+dirinc misc
+stri dimphy
+str2
+dirinc phy_common
+stri dimphy
+str2
+dirinc phyvenus
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dirinc phyvenus/dyn1d
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dernier str2 $(LIBO)/libphyvenus.a(dimphy.o)
+phyvenus/interface_surf.F90 interface_surf iniprint.h
+dirinc grid
+stri iniprint.h
+str2
+dirinc misc
+stri iniprint.h
+str2 $(LIBF)/misc/iniprint.h
+dirinc phy_common
+stri iniprint.h
+str2 $(LIBF)/misc/iniprint.h
+dirinc phyvenus
+stri iniprint.h
+str2 $(LIBF)/misc/iniprint.h
+dirinc phyvenus/dyn1d
+stri iniprint.h
+str2 $(LIBF)/misc/iniprint.h
+dernier str2 $(LIBF)/misc/iniprint.h
+phyvenus/interface_surf.F90 interface_surf YOMCST.h
+dirinc grid
+stri YOMCST.h
+str2
+dirinc misc
+stri YOMCST.h
+str2
+dirinc phy_common
+stri YOMCST.h
+str2
+dirinc phyvenus
+stri YOMCST.h
+str2 $(LIBF)/phyvenus/YOMCST.h
+dirinc phyvenus/dyn1d
+stri YOMCST.h
+str2 $(LIBF)/phyvenus/YOMCST.h
+dernier str2 $(LIBF)/phyvenus/YOMCST.h
+phyvenus/interface_surf.F90 interface_surf cpdet_mod
+dirinc grid
+stri cpdet_mod
+str2
+dirinc misc
+stri cpdet_mod
+str2
+dirinc phy_common
+stri cpdet_mod
+str2
+dirinc phyvenus
+stri cpdet_mod
+str2
+dirinc phyvenus/dyn1d
+stri cpdet_mod
+str2 $(LIBO)/libphyvenus.a(cpdet_mod.o)
+dernier str2 $(LIBO)/libphyvenus.a(cpdet_mod.o)
+phyvenus/interface_surf.F90 interface_surf ioipsl
+dirinc grid
+stri ioipsl
+str2
+dirinc misc
+stri ioipsl
+str2
+dirinc phy_common
+stri ioipsl
+str2
+dirinc phyvenus
+stri ioipsl
+str2
+dirinc phyvenus/dyn1d
+stri ioipsl
+str2
+dernier str2
+Warn: Include phyvenus phyvenus/interface_surf.F90 interface_surf ioipsl pas trouve
+phyvenus/interface_surf.F90 interface_surf write_field_phy
+dirinc grid
+stri write_field_phy
+str2
+dirinc misc
+stri write_field_phy
+str2
+dirinc phy_common
+stri write_field_phy
+str2 $(LIBO)/libphy_common.a(write_field_phy.o)
+dirinc phyvenus
+stri write_field_phy
+str2 $(LIBO)/libphyvenus.a(write_field_phy.o)
+dirinc phyvenus/dyn1d
+stri write_field_phy
+str2 $(LIBO)/libphyvenus.a(write_field_phy.o)
+dernier str2 $(LIBO)/libphyvenus.a(write_field_phy.o)
+phyvenus/iophy.F90 iophy dimphy
+dirinc grid
+stri dimphy
+str2
+dirinc misc
+stri dimphy
+str2
+dirinc phy_common
+stri dimphy
+str2
+dirinc phyvenus
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dirinc phyvenus/dyn1d
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dernier str2 $(LIBO)/libphyvenus.a(dimphy.o)
+phyvenus/iophy.F90 iophy ioipsl
+dirinc grid
+stri ioipsl
+str2
+dirinc misc
+stri ioipsl
+str2
+dirinc phy_common
+stri ioipsl
+str2
+dirinc phyvenus
+stri ioipsl
+str2
+dirinc phyvenus/dyn1d
+stri ioipsl
+str2
+dernier str2
+Warn: Include phyvenus phyvenus/iophy.F90 iophy ioipsl pas trouve
+phyvenus/iophy.F90 iophy mod_grid_phy_lmdz
+dirinc grid
+stri mod_grid_phy_lmdz
+str2
+dirinc misc
+stri mod_grid_phy_lmdz
+str2
+dirinc phy_common
+stri mod_grid_phy_lmdz
+str2 $(LIBO)/libphy_common.a(mod_grid_phy_lmdz.o)
+dirinc phyvenus
+stri mod_grid_phy_lmdz
+str2 $(LIBO)/libphy_common.a(mod_grid_phy_lmdz.o)
+dirinc phyvenus/dyn1d
+stri mod_grid_phy_lmdz
+str2 $(LIBO)/libphy_common.a(mod_grid_phy_lmdz.o)
+dernier str2 $(LIBO)/libphy_common.a(mod_grid_phy_lmdz.o)
+phyvenus/iophy.F90 iophy mod_phys_lmdz_para
+dirinc grid
+stri mod_phys_lmdz_para
+str2
+dirinc misc
+stri mod_phys_lmdz_para
+str2
+dirinc phy_common
+stri mod_phys_lmdz_para
+str2 $(LIBO)/libphy_common.a(mod_phys_lmdz_para.o)
+dirinc phyvenus
+stri mod_phys_lmdz_para
+str2 $(LIBO)/libphy_common.a(mod_phys_lmdz_para.o)
+dirinc phyvenus/dyn1d
+stri mod_phys_lmdz_para
+str2 $(LIBO)/libphy_common.a(mod_phys_lmdz_para.o)
+dernier str2 $(LIBO)/libphy_common.a(mod_phys_lmdz_para.o)
+phyvenus/iophy.F90 iophy write_field
+dirinc grid
+stri write_field
+str2
+dirinc misc
+stri write_field
+str2 $(LIBO)/libmisc.a(write_field.o)
+dirinc phy_common
+stri write_field
+str2 $(LIBO)/libmisc.a(write_field.o)
+dirinc phyvenus
+stri write_field
+str2 $(LIBO)/libmisc.a(write_field.o)
+dirinc phyvenus/dyn1d
+stri write_field
+str2 $(LIBO)/libmisc.a(write_field.o)
+dernier str2 $(LIBO)/libmisc.a(write_field.o)
+phyvenus/iostart.F90 iostart dimphy
+dirinc grid
+stri dimphy
+str2
+dirinc misc
+stri dimphy
+str2
+dirinc phy_common
+stri dimphy
+str2
+dirinc phyvenus
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dirinc phyvenus/dyn1d
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dernier str2 $(LIBO)/libphyvenus.a(dimphy.o)
+phyvenus/iostart.F90 iostart mod_grid_phy_lmdz
+dirinc grid
+stri mod_grid_phy_lmdz
+str2
+dirinc misc
+stri mod_grid_phy_lmdz
+str2
+dirinc phy_common
+stri mod_grid_phy_lmdz
+str2 $(LIBO)/libphy_common.a(mod_grid_phy_lmdz.o)
+dirinc phyvenus
+stri mod_grid_phy_lmdz
+str2 $(LIBO)/libphy_common.a(mod_grid_phy_lmdz.o)
+dirinc phyvenus/dyn1d
+stri mod_grid_phy_lmdz
+str2 $(LIBO)/libphy_common.a(mod_grid_phy_lmdz.o)
+dernier str2 $(LIBO)/libphy_common.a(mod_grid_phy_lmdz.o)
+phyvenus/iostart.F90 iostart mod_phys_lmdz_para
+dirinc grid
+stri mod_phys_lmdz_para
+str2
+dirinc misc
+stri mod_phys_lmdz_para
+str2
+dirinc phy_common
+stri mod_phys_lmdz_para
+str2 $(LIBO)/libphy_common.a(mod_phys_lmdz_para.o)
+dirinc phyvenus
+stri mod_phys_lmdz_para
+str2 $(LIBO)/libphy_common.a(mod_phys_lmdz_para.o)
+dirinc phyvenus/dyn1d
+stri mod_phys_lmdz_para
+str2 $(LIBO)/libphy_common.a(mod_phys_lmdz_para.o)
+dernier str2 $(LIBO)/libphy_common.a(mod_phys_lmdz_para.o)
+phyvenus/iostart.F90 iostart netcdf
+dirinc grid
+stri netcdf
+str2
+dirinc misc
+stri netcdf
+str2
+dirinc phy_common
+stri netcdf
+str2
+dirinc phyvenus
+stri netcdf
+str2
+dirinc phyvenus/dyn1d
+stri netcdf
+str2
+dernier str2
+Warn: Include phyvenus phyvenus/iostart.F90 iostart netcdf pas trouve
+phyvenus/moldiff_red.F90 moldiff_red comcstfi.h
+dirinc grid
+stri comcstfi.h
+str2
+dirinc misc
+stri comcstfi.h
+str2
+dirinc phy_common
+stri comcstfi.h
+str2
+dirinc phyvenus
+stri comcstfi.h
+str2 $(LIBF)/phyvenus/comcstfi.h
+dirinc phyvenus/dyn1d
+stri comcstfi.h
+str2 $(LIBF)/phyvenus/comcstfi.h
+dernier str2 $(LIBF)/phyvenus/comcstfi.h
+phyvenus/moldiff_red.F90 moldiff_red diffusion.h
+dirinc grid
+stri diffusion.h
+str2
+dirinc misc
+stri diffusion.h
+str2
+dirinc phy_common
+stri diffusion.h
+str2
+dirinc phyvenus
+stri diffusion.h
+str2 $(LIBF)/phyvenus/diffusion.h
+dirinc phyvenus/dyn1d
+stri diffusion.h
+str2 $(LIBF)/phyvenus/diffusion.h
+dernier str2 $(LIBF)/phyvenus/diffusion.h
+phyvenus/moldiff_red.F90 moldiff_red chemparam_mod
+dirinc grid
+stri chemparam_mod
+str2
+dirinc misc
+stri chemparam_mod
+str2
+dirinc phy_common
+stri chemparam_mod
+str2
+dirinc phyvenus
+stri chemparam_mod
+str2 $(LIBO)/libphyvenus.a(chemparam_mod.o)
+dirinc phyvenus/dyn1d
+stri chemparam_mod
+str2 $(LIBO)/libphyvenus.a(chemparam_mod.o)
+dernier str2 $(LIBO)/libphyvenus.a(chemparam_mod.o)
+phyvenus/moldiff_red.F90 moldiff_red dimphy
+dirinc grid
+stri dimphy
+str2
+dirinc misc
+stri dimphy
+str2
+dirinc phy_common
+stri dimphy
+str2
+dirinc phyvenus
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dirinc phyvenus/dyn1d
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dernier str2 $(LIBO)/libphyvenus.a(dimphy.o)
+phyvenus/moldiff_red.F90 moldiff_red infotrac
+dirinc grid
+stri infotrac
+str2
+dirinc misc
+stri infotrac
+str2
+dirinc phy_common
+stri infotrac
+str2
+dirinc phyvenus
+stri infotrac
+str2
+dirinc phyvenus/dyn1d
+stri infotrac
+str2 $(LIBO)/libphyvenus.a(infotrac.o)
+dernier str2 $(LIBO)/libphyvenus.a(infotrac.o)
+phyvenus/new_photochemistry_venus.F90 new_photochemistry_venus chemparam_mod
+dirinc grid
+stri chemparam_mod
+str2
+dirinc misc
+stri chemparam_mod
+str2
+dirinc phy_common
+stri chemparam_mod
+str2
+dirinc phyvenus
+stri chemparam_mod
+str2 $(LIBO)/libphyvenus.a(chemparam_mod.o)
+dirinc phyvenus/dyn1d
+stri chemparam_mod
+str2 $(LIBO)/libphyvenus.a(chemparam_mod.o)
+dernier str2 $(LIBO)/libphyvenus.a(chemparam_mod.o)
+phyvenus/new_photochemistry_venus.F90 new_photochemistry_venus infotrac
+dirinc grid
+stri infotrac
+str2
+dirinc misc
+stri infotrac
+str2
+dirinc phy_common
+stri infotrac
+str2
+dirinc phyvenus
+stri infotrac
+str2
+dirinc phyvenus/dyn1d
+stri infotrac
+str2 $(LIBO)/libphyvenus.a(infotrac.o)
+dernier str2 $(LIBO)/libphyvenus.a(infotrac.o)
+phyvenus/phyetat0.F90 phyetat0 clesphys.h
+dirinc grid
+stri clesphys.h
+str2
+dirinc misc
+stri clesphys.h
+str2
+dirinc phy_common
+stri clesphys.h
+str2
+dirinc phyvenus
+stri clesphys.h
+str2 $(LIBF)/phyvenus/clesphys.h
+dirinc phyvenus/dyn1d
+stri clesphys.h
+str2 $(LIBF)/phyvenus/clesphys.h
+dernier str2 $(LIBF)/phyvenus/clesphys.h
+phyvenus/phyetat0.F90 phyetat0 dimsoil.h
+dirinc grid
+stri dimsoil.h
+str2
+dirinc misc
+stri dimsoil.h
+str2
+dirinc phy_common
+stri dimsoil.h
+str2
+dirinc phyvenus
+stri dimsoil.h
+str2 $(LIBF)/phyvenus/dimsoil.h
+dirinc phyvenus/dyn1d
+stri dimsoil.h
+str2 $(LIBF)/phyvenus/dimsoil.h
+dernier str2 $(LIBF)/phyvenus/dimsoil.h
+phyvenus/phyetat0.F90 phyetat0 netcdf.inc
+dirinc grid
+stri netcdf.inc
+str2
+dirinc misc
+stri netcdf.inc
+str2
+dirinc phy_common
+stri netcdf.inc
+str2
+dirinc phyvenus
+stri netcdf.inc
+str2
+dirinc phyvenus/dyn1d
+stri netcdf.inc
+str2
+dernier str2
+Warn: Include phyvenus phyvenus/phyetat0.F90 phyetat0 netcdf.inc pas trouve
+phyvenus/phyetat0.F90 phyetat0 tabcontrol.h
+dirinc grid
+stri tabcontrol.h
+str2
+dirinc misc
+stri tabcontrol.h
+str2
+dirinc phy_common
+stri tabcontrol.h
+str2
+dirinc phyvenus
+stri tabcontrol.h
+str2 $(LIBF)/phyvenus/tabcontrol.h
+dirinc phyvenus/dyn1d
+stri tabcontrol.h
+str2 $(LIBF)/phyvenus/tabcontrol.h
+dernier str2 $(LIBF)/phyvenus/tabcontrol.h
+phyvenus/phyetat0.F90 phyetat0 dimphy
+dirinc grid
+stri dimphy
+str2
+dirinc misc
+stri dimphy
+str2
+dirinc phy_common
+stri dimphy
+str2
+dirinc phyvenus
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dirinc phyvenus/dyn1d
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dernier str2 $(LIBO)/libphyvenus.a(dimphy.o)
+phyvenus/phyetat0.F90 phyetat0 geometry_mod
+dirinc grid
+stri geometry_mod
+str2
+dirinc misc
+stri geometry_mod
+str2
+dirinc phy_common
+stri geometry_mod
+str2 $(LIBO)/libphy_common.a(geometry_mod.o)
+dirinc phyvenus
+stri geometry_mod
+str2 $(LIBO)/libphy_common.a(geometry_mod.o)
+dirinc phyvenus/dyn1d
+stri geometry_mod
+str2 $(LIBO)/libphy_common.a(geometry_mod.o)
+dernier str2 $(LIBO)/libphy_common.a(geometry_mod.o)
+phyvenus/phyetat0.F90 phyetat0 infotrac
+dirinc grid
+stri infotrac
+str2
+dirinc misc
+stri infotrac
+str2
+dirinc phy_common
+stri infotrac
+str2
+dirinc phyvenus
+stri infotrac
+str2
+dirinc phyvenus/dyn1d
+stri infotrac
+str2 $(LIBO)/libphyvenus.a(infotrac.o)
+dernier str2 $(LIBO)/libphyvenus.a(infotrac.o)
+phyvenus/phyetat0.F90 phyetat0 iophy
+dirinc grid
+stri iophy
+str2
+dirinc misc
+stri iophy
+str2
+dirinc phy_common
+stri iophy
+str2
+dirinc phyvenus
+stri iophy
+str2 $(LIBO)/libphyvenus.a(iophy.o)
+dirinc phyvenus/dyn1d
+stri iophy
+str2 $(LIBO)/libphyvenus.a(iophy.o)
+dernier str2 $(LIBO)/libphyvenus.a(iophy.o)
+phyvenus/phyetat0.F90 phyetat0 iostart
+dirinc grid
+stri iostart
+str2
+dirinc misc
+stri iostart
+str2
+dirinc phy_common
+stri iostart
+str2
+dirinc phyvenus
+stri iostart
+str2 $(LIBO)/libphyvenus.a(iostart.o)
+dirinc phyvenus/dyn1d
+stri iostart
+str2 $(LIBO)/libphyvenus.a(iostart.o)
+dernier str2 $(LIBO)/libphyvenus.a(iostart.o)
+phyvenus/phyetat0.F90 phyetat0 mod_grid_phy_lmdz
+dirinc grid
+stri mod_grid_phy_lmdz
+str2
+dirinc misc
+stri mod_grid_phy_lmdz
+str2
+dirinc phy_common
+stri mod_grid_phy_lmdz
+str2 $(LIBO)/libphy_common.a(mod_grid_phy_lmdz.o)
+dirinc phyvenus
+stri mod_grid_phy_lmdz
+str2 $(LIBO)/libphy_common.a(mod_grid_phy_lmdz.o)
+dirinc phyvenus/dyn1d
+stri mod_grid_phy_lmdz
+str2 $(LIBO)/libphy_common.a(mod_grid_phy_lmdz.o)
+dernier str2 $(LIBO)/libphy_common.a(mod_grid_phy_lmdz.o)
+phyvenus/phyetat0.F90 phyetat0 mod_phys_lmdz_para
+dirinc grid
+stri mod_phys_lmdz_para
+str2
+dirinc misc
+stri mod_phys_lmdz_para
+str2
+dirinc phy_common
+stri mod_phys_lmdz_para
+str2 $(LIBO)/libphy_common.a(mod_phys_lmdz_para.o)
+dirinc phyvenus
+stri mod_phys_lmdz_para
+str2 $(LIBO)/libphy_common.a(mod_phys_lmdz_para.o)
+dirinc phyvenus/dyn1d
+stri mod_phys_lmdz_para
+str2 $(LIBO)/libphy_common.a(mod_phys_lmdz_para.o)
+dernier str2 $(LIBO)/libphy_common.a(mod_phys_lmdz_para.o)
+phyvenus/phyetat0.F90 phyetat0 phys_state_var_mod
+dirinc grid
+stri phys_state_var_mod
+str2
+dirinc misc
+stri phys_state_var_mod
+str2
+dirinc phy_common
+stri phys_state_var_mod
+str2
+dirinc phyvenus
+stri phys_state_var_mod
+str2 $(LIBO)/libphyvenus.a(phys_state_var_mod.o)
+dirinc phyvenus/dyn1d
+stri phys_state_var_mod
+str2 $(LIBO)/libphyvenus.a(phys_state_var_mod.o)
+dernier str2 $(LIBO)/libphyvenus.a(phys_state_var_mod.o)
+phyvenus/phyetat0.F90 phyetat0 time_phylmdz_mod
+dirinc grid
+stri time_phylmdz_mod
+str2
+dirinc misc
+stri time_phylmdz_mod
+str2
+dirinc phy_common
+stri time_phylmdz_mod
+str2
+dirinc phyvenus
+stri time_phylmdz_mod
+str2 $(LIBO)/libphyvenus.a(time_phylmdz_mod.o)
+dirinc phyvenus/dyn1d
+stri time_phylmdz_mod
+str2 $(LIBO)/libphyvenus.a(time_phylmdz_mod.o)
+dernier str2 $(LIBO)/libphyvenus.a(time_phylmdz_mod.o)
+phyvenus/phyredem.F90 phyredem clesphys.h
+dirinc grid
+stri clesphys.h
+str2
+dirinc misc
+stri clesphys.h
+str2
+dirinc phy_common
+stri clesphys.h
+str2
+dirinc phyvenus
+stri clesphys.h
+str2 $(LIBF)/phyvenus/clesphys.h
+dirinc phyvenus/dyn1d
+stri clesphys.h
+str2 $(LIBF)/phyvenus/clesphys.h
+dernier str2 $(LIBF)/phyvenus/clesphys.h
+phyvenus/phyredem.F90 phyredem dimsoil.h
+dirinc grid
+stri dimsoil.h
+str2
+dirinc misc
+stri dimsoil.h
+str2
+dirinc phy_common
+stri dimsoil.h
+str2
+dirinc phyvenus
+stri dimsoil.h
+str2 $(LIBF)/phyvenus/dimsoil.h
+dirinc phyvenus/dyn1d
+stri dimsoil.h
+str2 $(LIBF)/phyvenus/dimsoil.h
+dernier str2 $(LIBF)/phyvenus/dimsoil.h
+phyvenus/phyredem.F90 phyredem netcdf.inc
+dirinc grid
+stri netcdf.inc
+str2
+dirinc misc
+stri netcdf.inc
+str2
+dirinc phy_common
+stri netcdf.inc
+str2
+dirinc phyvenus
+stri netcdf.inc
+str2
+dirinc phyvenus/dyn1d
+stri netcdf.inc
+str2
+dernier str2
+Warn: Include phyvenus phyvenus/phyredem.F90 phyredem netcdf.inc pas trouve
+phyvenus/phyredem.F90 phyredem tabcontrol.h
+dirinc grid
+stri tabcontrol.h
+str2
+dirinc misc
+stri tabcontrol.h
+str2
+dirinc phy_common
+stri tabcontrol.h
+str2
+dirinc phyvenus
+stri tabcontrol.h
+str2 $(LIBF)/phyvenus/tabcontrol.h
+dirinc phyvenus/dyn1d
+stri tabcontrol.h
+str2 $(LIBF)/phyvenus/tabcontrol.h
+dernier str2 $(LIBF)/phyvenus/tabcontrol.h
+phyvenus/phyredem.F90 phyredem dimphy
+dirinc grid
+stri dimphy
+str2
+dirinc misc
+stri dimphy
+str2
+dirinc phy_common
+stri dimphy
+str2
+dirinc phyvenus
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dirinc phyvenus/dyn1d
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dernier str2 $(LIBO)/libphyvenus.a(dimphy.o)
+phyvenus/phyredem.F90 phyredem geometry_mod
+dirinc grid
+stri geometry_mod
+str2
+dirinc misc
+stri geometry_mod
+str2
+dirinc phy_common
+stri geometry_mod
+str2 $(LIBO)/libphy_common.a(geometry_mod.o)
+dirinc phyvenus
+stri geometry_mod
+str2 $(LIBO)/libphy_common.a(geometry_mod.o)
+dirinc phyvenus/dyn1d
+stri geometry_mod
+str2 $(LIBO)/libphy_common.a(geometry_mod.o)
+dernier str2 $(LIBO)/libphy_common.a(geometry_mod.o)
+phyvenus/phyredem.F90 phyredem infotrac
+dirinc grid
+stri infotrac
+str2
+dirinc misc
+stri infotrac
+str2
+dirinc phy_common
+stri infotrac
+str2
+dirinc phyvenus
+stri infotrac
+str2
+dirinc phyvenus/dyn1d
+stri infotrac
+str2 $(LIBO)/libphyvenus.a(infotrac.o)
+dernier str2 $(LIBO)/libphyvenus.a(infotrac.o)
+phyvenus/phyredem.F90 phyredem iophy
+dirinc grid
+stri iophy
+str2
+dirinc misc
+stri iophy
+str2
+dirinc phy_common
+stri iophy
+str2
+dirinc phyvenus
+stri iophy
+str2 $(LIBO)/libphyvenus.a(iophy.o)
+dirinc phyvenus/dyn1d
+stri iophy
+str2 $(LIBO)/libphyvenus.a(iophy.o)
+dernier str2 $(LIBO)/libphyvenus.a(iophy.o)
+phyvenus/phyredem.F90 phyredem iostart
+dirinc grid
+stri iostart
+str2
+dirinc misc
+stri iostart
+str2
+dirinc phy_common
+stri iostart
+str2
+dirinc phyvenus
+stri iostart
+str2 $(LIBO)/libphyvenus.a(iostart.o)
+dirinc phyvenus/dyn1d
+stri iostart
+str2 $(LIBO)/libphyvenus.a(iostart.o)
+dernier str2 $(LIBO)/libphyvenus.a(iostart.o)
+phyvenus/phyredem.F90 phyredem mod_grid_phy_lmdz
+dirinc grid
+stri mod_grid_phy_lmdz
+str2
+dirinc misc
+stri mod_grid_phy_lmdz
+str2
+dirinc phy_common
+stri mod_grid_phy_lmdz
+str2 $(LIBO)/libphy_common.a(mod_grid_phy_lmdz.o)
+dirinc phyvenus
+stri mod_grid_phy_lmdz
+str2 $(LIBO)/libphy_common.a(mod_grid_phy_lmdz.o)
+dirinc phyvenus/dyn1d
+stri mod_grid_phy_lmdz
+str2 $(LIBO)/libphy_common.a(mod_grid_phy_lmdz.o)
+dernier str2 $(LIBO)/libphy_common.a(mod_grid_phy_lmdz.o)
+phyvenus/phyredem.F90 phyredem mod_phys_lmdz_para
+dirinc grid
+stri mod_phys_lmdz_para
+str2
+dirinc misc
+stri mod_phys_lmdz_para
+str2
+dirinc phy_common
+stri mod_phys_lmdz_para
+str2 $(LIBO)/libphy_common.a(mod_phys_lmdz_para.o)
+dirinc phyvenus
+stri mod_phys_lmdz_para
+str2 $(LIBO)/libphy_common.a(mod_phys_lmdz_para.o)
+dirinc phyvenus/dyn1d
+stri mod_phys_lmdz_para
+str2 $(LIBO)/libphy_common.a(mod_phys_lmdz_para.o)
+dernier str2 $(LIBO)/libphy_common.a(mod_phys_lmdz_para.o)
+phyvenus/phyredem.F90 phyredem phys_state_var_mod
+dirinc grid
+stri phys_state_var_mod
+str2
+dirinc misc
+stri phys_state_var_mod
+str2
+dirinc phy_common
+stri phys_state_var_mod
+str2
+dirinc phyvenus
+stri phys_state_var_mod
+str2 $(LIBO)/libphyvenus.a(phys_state_var_mod.o)
+dirinc phyvenus/dyn1d
+stri phys_state_var_mod
+str2 $(LIBO)/libphyvenus.a(phys_state_var_mod.o)
+dernier str2 $(LIBO)/libphyvenus.a(phys_state_var_mod.o)
+phyvenus/phyredem.F90 phyredem time_phylmdz_mod
+dirinc grid
+stri time_phylmdz_mod
+str2
+dirinc misc
+stri time_phylmdz_mod
+str2
+dirinc phy_common
+stri time_phylmdz_mod
+str2
+dirinc phyvenus
+stri time_phylmdz_mod
+str2 $(LIBO)/libphyvenus.a(time_phylmdz_mod.o)
+dirinc phyvenus/dyn1d
+stri time_phylmdz_mod
+str2 $(LIBO)/libphyvenus.a(time_phylmdz_mod.o)
+dernier str2 $(LIBO)/libphyvenus.a(time_phylmdz_mod.o)
+phyvenus/phys_state_var_init_mod.F90 phys_state_var_init_mod comcstfi_h
+dirinc grid
+stri comcstfi_h
+str2
+dirinc misc
+stri comcstfi_h
+str2
+dirinc phy_common
+stri comcstfi_h
+str2
+dirinc phyvenus
+stri comcstfi_h
+str2 $(LIBO)/libphyvenus.a(comcstfi_h.o)
+dirinc phyvenus/dyn1d
+stri comcstfi_h
+str2 $(LIBO)/libphyvenus.a(comcstfi_h.o)
+dernier str2 $(LIBO)/libphyvenus.a(comcstfi_h.o)
+phyvenus/phys_state_var_init_mod.F90 phys_state_var_init_mod comgeomfi_h
+dirinc grid
+stri comgeomfi_h
+str2
+dirinc misc
+stri comgeomfi_h
+str2
+dirinc phy_common
+stri comgeomfi_h
+str2
+dirinc phyvenus
+stri comgeomfi_h
+str2 $(LIBO)/libphyvenus.a(comgeomfi_h.o)
+dirinc phyvenus/dyn1d
+stri comgeomfi_h
+str2 $(LIBO)/libphyvenus.a(comgeomfi_h.o)
+dernier str2 $(LIBO)/libphyvenus.a(comgeomfi_h.o)
+phyvenus/phys_state_var_init_mod.F90 phys_state_var_init_mod comsaison_h
+dirinc grid
+stri comsaison_h
+str2
+dirinc misc
+stri comsaison_h
+str2
+dirinc phy_common
+stri comsaison_h
+str2
+dirinc phyvenus
+stri comsaison_h
+str2 $(LIBO)/libphyvenus.a(comsaison_h.o)
+dirinc phyvenus/dyn1d
+stri comsaison_h
+str2 $(LIBO)/libphyvenus.a(comsaison_h.o)
+dernier str2 $(LIBO)/libphyvenus.a(comsaison_h.o)
+phyvenus/phys_state_var_init_mod.F90 phys_state_var_init_mod comsoil_h
+dirinc grid
+stri comsoil_h
+str2
+dirinc misc
+stri comsoil_h
+str2
+dirinc phy_common
+stri comsoil_h
+str2
+dirinc phyvenus
+stri comsoil_h
+str2 $(LIBO)/libphyvenus.a(comsoil_h.o)
+dirinc phyvenus/dyn1d
+stri comsoil_h
+str2 $(LIBO)/libphyvenus.a(comsoil_h.o)
+dernier str2 $(LIBO)/libphyvenus.a(comsoil_h.o)
+phyvenus/phys_state_var_init_mod.F90 phys_state_var_init_mod conc_mod
+dirinc grid
+stri conc_mod
+str2
+dirinc misc
+stri conc_mod
+str2
+dirinc phy_common
+stri conc_mod
+str2
+dirinc phyvenus
+stri conc_mod
+str2 $(LIBO)/libphyvenus.a(conc_mod.o)
+dirinc phyvenus/dyn1d
+stri conc_mod
+str2 $(LIBO)/libphyvenus.a(conc_mod.o)
+dernier str2 $(LIBO)/libphyvenus.a(conc_mod.o)
+phyvenus/phys_state_var_init_mod.F90 phys_state_var_init_mod dimradmars_mod
+dirinc grid
+stri dimradmars_mod
+str2
+dirinc misc
+stri dimradmars_mod
+str2
+dirinc phy_common
+stri dimradmars_mod
+str2
+dirinc phyvenus
+stri dimradmars_mod
+str2 $(LIBO)/libphyvenus.a(dimradmars_mod.o)
+dirinc phyvenus/dyn1d
+stri dimradmars_mod
+str2 $(LIBO)/libphyvenus.a(dimradmars_mod.o)
+dernier str2 $(LIBO)/libphyvenus.a(dimradmars_mod.o)
+phyvenus/phys_state_var_init_mod.F90 phys_state_var_init_mod slope_mod
+dirinc grid
+stri slope_mod
+str2
+dirinc misc
+stri slope_mod
+str2
+dirinc phy_common
+stri slope_mod
+str2
+dirinc phyvenus
+stri slope_mod
+str2 $(LIBO)/libphyvenus.a(slope_mod.o)
+dirinc phyvenus/dyn1d
+stri slope_mod
+str2 $(LIBO)/libphyvenus.a(slope_mod.o)
+dernier str2 $(LIBO)/libphyvenus.a(slope_mod.o)
+phyvenus/phys_state_var_init_mod.F90 phys_state_var_init_mod surfdat_h
+dirinc grid
+stri surfdat_h
+str2
+dirinc misc
+stri surfdat_h
+str2
+dirinc phy_common
+stri surfdat_h
+str2
+dirinc phyvenus
+stri surfdat_h
+str2 $(LIBO)/libphyvenus.a(surfdat_h.o)
+dirinc phyvenus/dyn1d
+stri surfdat_h
+str2 $(LIBO)/libphyvenus.a(surfdat_h.o)
+dernier str2 $(LIBO)/libphyvenus.a(surfdat_h.o)
+phyvenus/phys_state_var_init_mod.F90 phys_state_var_init_mod time_phylmdz_mod_meso
+dirinc grid
+stri time_phylmdz_mod_meso
+str2
+dirinc misc
+stri time_phylmdz_mod_meso
+str2
+dirinc phy_common
+stri time_phylmdz_mod_meso
+str2
+dirinc phyvenus
+stri time_phylmdz_mod_meso
+str2 $(LIBO)/libphyvenus.a(time_phylmdz_mod_meso.o)
+dirinc phyvenus/dyn1d
+stri time_phylmdz_mod_meso
+str2 $(LIBO)/libphyvenus.a(time_phylmdz_mod_meso.o)
+dernier str2 $(LIBO)/libphyvenus.a(time_phylmdz_mod_meso.o)
+phyvenus/phys_state_var_init_mod.F90 phys_state_var_init_mod tracer_mod
+dirinc grid
+stri tracer_mod
+str2
+dirinc misc
+stri tracer_mod
+str2
+dirinc phy_common
+stri tracer_mod
+str2
+dirinc phyvenus
+stri tracer_mod
+str2 $(LIBO)/libphyvenus.a(tracer_mod.o)
+dirinc phyvenus/dyn1d
+stri tracer_mod
+str2 $(LIBO)/libphyvenus.a(tracer_mod.o)
+dernier str2 $(LIBO)/libphyvenus.a(tracer_mod.o)
+phyvenus/phys_state_var_init_mod.F90 phys_state_var_init_mod turb_mod
+dirinc grid
+stri turb_mod
+str2
+dirinc misc
+stri turb_mod
+str2
+dirinc phy_common
+stri turb_mod
+str2
+dirinc phyvenus
+stri turb_mod
+str2 $(LIBO)/libphyvenus.a(turb_mod.o)
+dirinc phyvenus/dyn1d
+stri turb_mod
+str2 $(LIBO)/libphyvenus.a(turb_mod.o)
+dernier str2 $(LIBO)/libphyvenus.a(turb_mod.o)
+phyvenus/phys_state_var_init_mod.F90 phys_state_var_init_mod yomlw_h
+dirinc grid
+stri yomlw_h
+str2
+dirinc misc
+stri yomlw_h
+str2
+dirinc phy_common
+stri yomlw_h
+str2
+dirinc phyvenus
+stri yomlw_h
+str2 $(LIBO)/libphyvenus.a(yomlw_h.o)
+dirinc phyvenus/dyn1d
+stri yomlw_h
+str2 $(LIBO)/libphyvenus.a(yomlw_h.o)
+dernier str2 $(LIBO)/libphyvenus.a(yomlw_h.o)
+phyvenus/phys_state_var_mod.F90 phys_state_var_mod dimsoil.h
+dirinc grid
+stri dimsoil.h
+str2
+dirinc misc
+stri dimsoil.h
+str2
+dirinc phy_common
+stri dimsoil.h
+str2
+dirinc phyvenus
+stri dimsoil.h
+str2 $(LIBF)/phyvenus/dimsoil.h
+dirinc phyvenus/dyn1d
+stri dimsoil.h
+str2 $(LIBF)/phyvenus/dimsoil.h
+dernier str2 $(LIBF)/phyvenus/dimsoil.h
+phyvenus/phys_state_var_mod.F90 phys_state_var_mod dimphy
+dirinc grid
+stri dimphy
+str2
+dirinc misc
+stri dimphy
+str2
+dirinc phy_common
+stri dimphy
+str2
+dirinc phyvenus
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dirinc phyvenus/dyn1d
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dernier str2 $(LIBO)/libphyvenus.a(dimphy.o)
+phyvenus/time_phylmdz_mod.F90 time_phylmdz_mod ioipsl_getin_p_mod
+dirinc grid
+stri ioipsl_getin_p_mod
+str2
+dirinc misc
+stri ioipsl_getin_p_mod
+str2
+dirinc phy_common
+stri ioipsl_getin_p_mod
+str2 $(LIBO)/libphy_common.a(ioipsl_getin_p_mod.o)
+dirinc phyvenus
+stri ioipsl_getin_p_mod
+str2 $(LIBO)/libphy_common.a(ioipsl_getin_p_mod.o)
+dirinc phyvenus/dyn1d
+stri ioipsl_getin_p_mod
+str2 $(LIBO)/libphy_common.a(ioipsl_getin_p_mod.o)
+dernier str2 $(LIBO)/libphy_common.a(ioipsl_getin_p_mod.o)
+phyvenus/time_phylmdz_mod_meso.F90 time_phylmdz_mod_meso ioipsl_getin_p_mod
+dirinc grid
+stri ioipsl_getin_p_mod
+str2
+dirinc misc
+stri ioipsl_getin_p_mod
+str2
+dirinc phy_common
+stri ioipsl_getin_p_mod
+str2 $(LIBO)/libphy_common.a(ioipsl_getin_p_mod.o)
+dirinc phyvenus
+stri ioipsl_getin_p_mod
+str2 $(LIBO)/libphy_common.a(ioipsl_getin_p_mod.o)
+dirinc phyvenus/dyn1d
+stri ioipsl_getin_p_mod
+str2 $(LIBO)/libphy_common.a(ioipsl_getin_p_mod.o)
+dernier str2 $(LIBO)/libphy_common.a(ioipsl_getin_p_mod.o)
+phyvenus/write_field_phy.F90 write_field_phy mod_grid_phy_lmdz
+dirinc grid
+stri mod_grid_phy_lmdz
+str2
+dirinc misc
+stri mod_grid_phy_lmdz
+str2
+dirinc phy_common
+stri mod_grid_phy_lmdz
+str2 $(LIBO)/libphy_common.a(mod_grid_phy_lmdz.o)
+dirinc phyvenus
+stri mod_grid_phy_lmdz
+str2 $(LIBO)/libphy_common.a(mod_grid_phy_lmdz.o)
+dirinc phyvenus/dyn1d
+stri mod_grid_phy_lmdz
+str2 $(LIBO)/libphy_common.a(mod_grid_phy_lmdz.o)
+dernier str2 $(LIBO)/libphy_common.a(mod_grid_phy_lmdz.o)
+phyvenus/write_field_phy.F90 write_field_phy mod_phys_lmdz_para
+dirinc grid
+stri mod_phys_lmdz_para
+str2
+dirinc misc
+stri mod_phys_lmdz_para
+str2
+dirinc phy_common
+stri mod_phys_lmdz_para
+str2 $(LIBO)/libphy_common.a(mod_phys_lmdz_para.o)
+dirinc phyvenus
+stri mod_phys_lmdz_para
+str2 $(LIBO)/libphy_common.a(mod_phys_lmdz_para.o)
+dirinc phyvenus/dyn1d
+stri mod_phys_lmdz_para
+str2 $(LIBO)/libphy_common.a(mod_phys_lmdz_para.o)
+dernier str2 $(LIBO)/libphy_common.a(mod_phys_lmdz_para.o)
+phyvenus/write_field_phy.F90 write_field_phy Write_Field
+dirinc grid
+stri Write_Field
+str2
+dirinc misc
+stri Write_Field
+str2 $(LIBO)/libmisc.a(write_field.o)
+dirinc phy_common
+stri Write_Field
+str2 $(LIBO)/libmisc.a(write_field.o)
+dirinc phyvenus
+stri Write_Field
+str2 $(LIBO)/libmisc.a(write_field.o)
+dirinc phyvenus/dyn1d
+stri Write_Field
+str2 $(LIBO)/libmisc.a(write_field.o)
+dernier str2 $(LIBO)/libmisc.a(write_field.o)
+phyvenus/yomlw_h.F90 yomlw_h dimradmars_mod
+dirinc grid
+stri dimradmars_mod
+str2
+dirinc misc
+stri dimradmars_mod
+str2
+dirinc phy_common
+stri dimradmars_mod
+str2
+dirinc phyvenus
+stri dimradmars_mod
+str2 $(LIBO)/libphyvenus.a(dimradmars_mod.o)
+dirinc phyvenus/dyn1d
+stri dimradmars_mod
+str2 $(LIBO)/libphyvenus.a(dimradmars_mod.o)
+dernier str2 $(LIBO)/libphyvenus.a(dimradmars_mod.o)
+phyvenus/dyn1d/abort_gcm.F phyvenus/dyn1d/disvert_noterre.F phyvenus/dyn1d/gr_dyn_fi.F phyvenus/dyn1d/comconst_mod.F90 phyvenus/dyn1d/comvert_mod.F90 phyvenus/dyn1d/control_mod.F90 phyvenus/dyn1d/cpdet_mod.F90 phyvenus/dyn1d/infotrac.F90 phyvenus/dyn1d/iniphysiq_mod.F90 phyvenus/dyn1d/logic_mod.F90 phyvenus/dyn1d/mod_const_mpi.F90 phyvenus/dyn1d/mod_interface_dyn_phys.F90 phyvenus/dyn1d/moyzon_mod.F90 phyvenus/dyn1d/temps_mod.F90
+phyvenus/dyn1d/abort_gcm.F abort_gcm iniprint.h
+dirinc grid
+stri iniprint.h
+str2
+dirinc misc
+stri iniprint.h
+str2 $(LIBF)/misc/iniprint.h
+dirinc phy_common
+stri iniprint.h
+str2 $(LIBF)/misc/iniprint.h
+dirinc phyvenus
+stri iniprint.h
+str2 $(LIBF)/misc/iniprint.h
+dirinc phyvenus/dyn1d
+stri iniprint.h
+str2 $(LIBF)/misc/iniprint.h
+dernier str2 $(LIBF)/misc/iniprint.h
+phyvenus/dyn1d/abort_gcm.F abort_gcm IOIPSL
+dirinc grid
+stri IOIPSL
+str2
+dirinc misc
+stri IOIPSL
+str2
+dirinc phy_common
+stri IOIPSL
+str2
+dirinc phyvenus
+stri IOIPSL
+str2
+dirinc phyvenus/dyn1d
+stri IOIPSL
+str2
+dernier str2
+Warn: Include phyvenus/dyn1d phyvenus/dyn1d/abort_gcm.F abort_gcm IOIPSL pas trouve
+phyvenus/dyn1d/abort_gcm.F abort_gcm ioipsl_getincom
+dirinc grid
+stri ioipsl_getincom
+str2
+dirinc misc
+stri ioipsl_getincom
+str2 $(LIBO)/libmisc.a(ioipsl_getincom.o)
+dirinc phy_common
+stri ioipsl_getincom
+str2 $(LIBO)/libmisc.a(ioipsl_getincom.o)
+dirinc phyvenus
+stri ioipsl_getincom
+str2 $(LIBO)/libmisc.a(ioipsl_getincom.o)
+dirinc phyvenus/dyn1d
+stri ioipsl_getincom
+str2 $(LIBO)/libmisc.a(ioipsl_getincom.o)
+dernier str2 $(LIBO)/libmisc.a(ioipsl_getincom.o)
+phyvenus/dyn1d/abort_gcm.F abort_gcm wxios
+dirinc grid
+stri wxios
+str2
+dirinc misc
+stri wxios
+str2 $(LIBO)/libmisc.a(wxios.o)
+dirinc phy_common
+stri wxios
+str2 $(LIBO)/libmisc.a(wxios.o)
+dirinc phyvenus
+stri wxios
+str2 $(LIBO)/libmisc.a(wxios.o)
+dirinc phyvenus/dyn1d
+stri wxios
+str2 $(LIBO)/libmisc.a(wxios.o)
+dernier str2 $(LIBO)/libmisc.a(wxios.o)
+phyvenus/dyn1d/disvert_noterre.F disvert_noterre dimensions.h
+dirinc grid
+stri dimensions.h
+str2 $(LIBF)/grid/dimensions.h
+dirinc misc
+stri dimensions.h
+str2 $(LIBF)/grid/dimensions.h
+dirinc phy_common
+stri dimensions.h
+str2 $(LIBF)/grid/dimensions.h
+dirinc phyvenus
+stri dimensions.h
+str2 $(LIBF)/grid/dimensions.h
+dirinc phyvenus/dyn1d
+stri dimensions.h
+str2 $(LIBF)/grid/dimensions.h
+dernier str2 $(LIBF)/grid/dimensions.h
+phyvenus/dyn1d/disvert_noterre.F disvert_noterre iniprint.h
+dirinc grid
+stri iniprint.h
+str2
+dirinc misc
+stri iniprint.h
+str2 $(LIBF)/misc/iniprint.h
+dirinc phy_common
+stri iniprint.h
+str2 $(LIBF)/misc/iniprint.h
+dirinc phyvenus
+stri iniprint.h
+str2 $(LIBF)/misc/iniprint.h
+dirinc phyvenus/dyn1d
+stri iniprint.h
+str2 $(LIBF)/misc/iniprint.h
+dernier str2 $(LIBF)/misc/iniprint.h
+phyvenus/dyn1d/disvert_noterre.F disvert_noterre paramet.h
+dirinc grid
+stri paramet.h
+str2
+dirinc misc
+stri paramet.h
+str2
+dirinc phy_common
+stri paramet.h
+str2
+dirinc phyvenus
+stri paramet.h
+str2
+dirinc phyvenus/dyn1d
+stri paramet.h
+str2 $(LIBF)/phyvenus/dyn1d/paramet.h
+dernier str2 $(LIBF)/phyvenus/dyn1d/paramet.h
+phyvenus/dyn1d/disvert_noterre.F disvert_noterre comconst_mod
+dirinc grid
+stri comconst_mod
+str2
+dirinc misc
+stri comconst_mod
+str2
+dirinc phy_common
+stri comconst_mod
+str2
+dirinc phyvenus
+stri comconst_mod
+str2
+dirinc phyvenus/dyn1d
+stri comconst_mod
+str2 $(LIBO)/libphyvenus.a(comconst_mod.o)
+dernier str2 $(LIBO)/libphyvenus.a(comconst_mod.o)
+phyvenus/dyn1d/disvert_noterre.F disvert_noterre comvert_mod
+dirinc grid
+stri comvert_mod
+str2
+dirinc misc
+stri comvert_mod
+str2
+dirinc phy_common
+stri comvert_mod
+str2
+dirinc phyvenus
+stri comvert_mod
+str2
+dirinc phyvenus/dyn1d
+stri comvert_mod
+str2 $(LIBO)/libphyvenus.a(comvert_mod.o)
+dernier str2 $(LIBO)/libphyvenus.a(comvert_mod.o)
+phyvenus/dyn1d/disvert_noterre.F disvert_noterre IOIPSL
+dirinc grid
+stri IOIPSL
+str2
+dirinc misc
+stri IOIPSL
+str2
+dirinc phy_common
+stri IOIPSL
+str2
+dirinc phyvenus
+stri IOIPSL
+str2
+dirinc phyvenus/dyn1d
+stri IOIPSL
+str2
+dernier str2
+Warn: Include phyvenus/dyn1d phyvenus/dyn1d/disvert_noterre.F disvert_noterre IOIPSL pas trouve
+phyvenus/dyn1d/disvert_noterre.F disvert_noterre ioipsl_getincom
+dirinc grid
+stri ioipsl_getincom
+str2
+dirinc misc
+stri ioipsl_getincom
+str2 $(LIBO)/libmisc.a(ioipsl_getincom.o)
+dirinc phy_common
+stri ioipsl_getincom
+str2 $(LIBO)/libmisc.a(ioipsl_getincom.o)
+dirinc phyvenus
+stri ioipsl_getincom
+str2 $(LIBO)/libmisc.a(ioipsl_getincom.o)
+dirinc phyvenus/dyn1d
+stri ioipsl_getincom
+str2 $(LIBO)/libmisc.a(ioipsl_getincom.o)
+dernier str2 $(LIBO)/libmisc.a(ioipsl_getincom.o)
+phyvenus/dyn1d/disvert_noterre.F disvert_noterre logic_mod
+dirinc grid
+stri logic_mod
+str2
+dirinc misc
+stri logic_mod
+str2
+dirinc phy_common
+stri logic_mod
+str2
+dirinc phyvenus
+stri logic_mod
+str2
+dirinc phyvenus/dyn1d
+stri logic_mod
+str2 $(LIBO)/libphyvenus.a(logic_mod.o)
+dernier str2 $(LIBO)/libphyvenus.a(logic_mod.o)
+phyvenus/dyn1d/comvert_mod.F90 comvert_mod dimensions.h
+dirinc grid
+stri dimensions.h
+str2 $(LIBF)/grid/dimensions.h
+dirinc misc
+stri dimensions.h
+str2 $(LIBF)/grid/dimensions.h
+dirinc phy_common
+stri dimensions.h
+str2 $(LIBF)/grid/dimensions.h
+dirinc phyvenus
+stri dimensions.h
+str2 $(LIBF)/grid/dimensions.h
+dirinc phyvenus/dyn1d
+stri dimensions.h
+str2 $(LIBF)/grid/dimensions.h
+dernier str2 $(LIBF)/grid/dimensions.h
+phyvenus/dyn1d/comvert_mod.F90 comvert_mod paramet.h
+dirinc grid
+stri paramet.h
+str2
+dirinc misc
+stri paramet.h
+str2
+dirinc phy_common
+stri paramet.h
+str2
+dirinc phyvenus
+stri paramet.h
+str2
+dirinc phyvenus/dyn1d
+stri paramet.h
+str2 $(LIBF)/phyvenus/dyn1d/paramet.h
+dernier str2 $(LIBF)/phyvenus/dyn1d/paramet.h
+phyvenus/dyn1d/cpdet_mod.F90 cpdet_mod dimensions.h
+dirinc grid
+stri dimensions.h
+str2 $(LIBF)/grid/dimensions.h
+dirinc misc
+stri dimensions.h
+str2 $(LIBF)/grid/dimensions.h
+dirinc phy_common
+stri dimensions.h
+str2 $(LIBF)/grid/dimensions.h
+dirinc phyvenus
+stri dimensions.h
+str2 $(LIBF)/grid/dimensions.h
+dirinc phyvenus/dyn1d
+stri dimensions.h
+str2 $(LIBF)/grid/dimensions.h
+dernier str2 $(LIBF)/grid/dimensions.h
+phyvenus/dyn1d/cpdet_mod.F90 cpdet_mod paramet.h
+dirinc grid
+stri paramet.h
+str2
+dirinc misc
+stri paramet.h
+str2
+dirinc phy_common
+stri paramet.h
+str2
+dirinc phyvenus
+stri paramet.h
+str2
+dirinc phyvenus/dyn1d
+stri paramet.h
+str2 $(LIBF)/phyvenus/dyn1d/paramet.h
+dernier str2 $(LIBF)/phyvenus/dyn1d/paramet.h
+phyvenus/dyn1d/cpdet_mod.F90 cpdet_mod comconst_mod
+dirinc grid
+stri comconst_mod
+str2
+dirinc misc
+stri comconst_mod
+str2
+dirinc phy_common
+stri comconst_mod
+str2
+dirinc phyvenus
+stri comconst_mod
+str2
+dirinc phyvenus/dyn1d
+stri comconst_mod
+str2 $(LIBO)/libphyvenus.a(comconst_mod.o)
+dernier str2 $(LIBO)/libphyvenus.a(comconst_mod.o)
+phyvenus/dyn1d/cpdet_mod.F90 cpdet_mod control_mod
+dirinc grid
+stri control_mod
+str2
+dirinc misc
+stri control_mod
+str2
+dirinc phy_common
+stri control_mod
+str2
+dirinc phyvenus
+stri control_mod
+str2
+dirinc phyvenus/dyn1d
+stri control_mod
+str2 $(LIBO)/libphyvenus.a(control_mod.o)
+dernier str2 $(LIBO)/libphyvenus.a(control_mod.o)
+phyvenus/dyn1d/cpdet_mod.F90 cpdet_mod parallel_lmdz
+dirinc grid
+stri parallel_lmdz
+str2
+dirinc misc
+stri parallel_lmdz
+str2
+dirinc phy_common
+stri parallel_lmdz
+str2
+dirinc phyvenus
+stri parallel_lmdz
+str2
+dirinc phyvenus/dyn1d
+stri parallel_lmdz
+str2
+dernier str2
+Warn: Include phyvenus/dyn1d phyvenus/dyn1d/cpdet_mod.F90 cpdet_mod parallel_lmdz pas trouve
+phyvenus/dyn1d/infotrac.F90 infotrac dimensions.h
+dirinc grid
+stri dimensions.h
+str2 $(LIBF)/grid/dimensions.h
+dirinc misc
+stri dimensions.h
+str2 $(LIBF)/grid/dimensions.h
+dirinc phy_common
+stri dimensions.h
+str2 $(LIBF)/grid/dimensions.h
+dirinc phyvenus
+stri dimensions.h
+str2 $(LIBF)/grid/dimensions.h
+dirinc phyvenus/dyn1d
+stri dimensions.h
+str2 $(LIBF)/grid/dimensions.h
+dernier str2 $(LIBF)/grid/dimensions.h
+phyvenus/dyn1d/infotrac.F90 infotrac iniprint.h
+dirinc grid
+stri iniprint.h
+str2
+dirinc misc
+stri iniprint.h
+str2 $(LIBF)/misc/iniprint.h
+dirinc phy_common
+stri iniprint.h
+str2 $(LIBF)/misc/iniprint.h
+dirinc phyvenus
+stri iniprint.h
+str2 $(LIBF)/misc/iniprint.h
+dirinc phyvenus/dyn1d
+stri iniprint.h
+str2 $(LIBF)/misc/iniprint.h
+dernier str2 $(LIBF)/misc/iniprint.h
+phyvenus/dyn1d/infotrac.F90 infotrac CHEM_REP
+dirinc grid
+stri CHEM_REP
+str2
+dirinc misc
+stri CHEM_REP
+str2
+dirinc phy_common
+stri CHEM_REP
+str2
+dirinc phyvenus
+stri CHEM_REP
+str2
+dirinc phyvenus/dyn1d
+stri CHEM_REP
+str2
+dernier str2
+Warn: Include phyvenus/dyn1d phyvenus/dyn1d/infotrac.F90 infotrac CHEM_REP pas trouve
+phyvenus/dyn1d/infotrac.F90 infotrac control_mod
+dirinc grid
+stri control_mod
+str2
+dirinc misc
+stri control_mod
+str2
+dirinc phy_common
+stri control_mod
+str2
+dirinc phyvenus
+stri control_mod
+str2
+dirinc phyvenus/dyn1d
+stri control_mod
+str2 $(LIBO)/libphyvenus.a(control_mod.o)
+dernier str2 $(LIBO)/libphyvenus.a(control_mod.o)
+phyvenus/dyn1d/infotrac.F90 infotrac IOIPSL
+dirinc grid
+stri IOIPSL
+str2
+dirinc misc
+stri IOIPSL
+str2
+dirinc phy_common
+stri IOIPSL
+str2
+dirinc phyvenus
+stri IOIPSL
+str2
+dirinc phyvenus/dyn1d
+stri IOIPSL
+str2
+dernier str2
+Warn: Include phyvenus/dyn1d phyvenus/dyn1d/infotrac.F90 infotrac IOIPSL pas trouve
+phyvenus/dyn1d/infotrac.F90 infotrac ioipsl_getincom
+dirinc grid
+stri ioipsl_getincom
+str2
+dirinc misc
+stri ioipsl_getincom
+str2 $(LIBO)/libmisc.a(ioipsl_getincom.o)
+dirinc phy_common
+stri ioipsl_getincom
+str2 $(LIBO)/libmisc.a(ioipsl_getincom.o)
+dirinc phyvenus
+stri ioipsl_getincom
+str2 $(LIBO)/libmisc.a(ioipsl_getincom.o)
+dirinc phyvenus/dyn1d
+stri ioipsl_getincom
+str2 $(LIBO)/libmisc.a(ioipsl_getincom.o)
+dernier str2 $(LIBO)/libmisc.a(ioipsl_getincom.o)
+phyvenus/dyn1d/iniphysiq_mod.F90 iniphysiq_mod iniprint.h
+dirinc grid
+stri iniprint.h
+str2
+dirinc misc
+stri iniprint.h
+str2 $(LIBF)/misc/iniprint.h
+dirinc phy_common
+stri iniprint.h
+str2 $(LIBF)/misc/iniprint.h
+dirinc phyvenus
+stri iniprint.h
+str2 $(LIBF)/misc/iniprint.h
+dirinc phyvenus/dyn1d
+stri iniprint.h
+str2 $(LIBF)/misc/iniprint.h
+dernier str2 $(LIBF)/misc/iniprint.h
+phyvenus/dyn1d/iniphysiq_mod.F90 iniphysiq_mod YOMCST.h
+dirinc grid
+stri YOMCST.h
+str2
+dirinc misc
+stri YOMCST.h
+str2
+dirinc phy_common
+stri YOMCST.h
+str2
+dirinc phyvenus
+stri YOMCST.h
+str2 $(LIBF)/phyvenus/YOMCST.h
+dirinc phyvenus/dyn1d
+stri YOMCST.h
+str2 $(LIBF)/phyvenus/YOMCST.h
+dernier str2 $(LIBF)/phyvenus/YOMCST.h
+phyvenus/dyn1d/iniphysiq_mod.F90 iniphysiq_mod dimphy
+dirinc grid
+stri dimphy
+str2
+dirinc misc
+stri dimphy
+str2
+dirinc phy_common
+stri dimphy
+str2
+dirinc phyvenus
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dirinc phyvenus/dyn1d
+stri dimphy
+str2 $(LIBO)/libphyvenus.a(dimphy.o)
+dernier str2 $(LIBO)/libphyvenus.a(dimphy.o)
+phyvenus/dyn1d/iniphysiq_mod.F90 iniphysiq_mod geometry_mod
+dirinc grid
+stri geometry_mod
+str2
+dirinc misc
+stri geometry_mod
+str2
+dirinc phy_common
+stri geometry_mod
+str2 $(LIBO)/libphy_common.a(geometry_mod.o)
+dirinc phyvenus
+stri geometry_mod
+str2 $(LIBO)/libphy_common.a(geometry_mod.o)
+dirinc phyvenus/dyn1d
+stri geometry_mod
+str2 $(LIBO)/libphy_common.a(geometry_mod.o)
+dernier str2 $(LIBO)/libphy_common.a(geometry_mod.o)
+phyvenus/dyn1d/iniphysiq_mod.F90 iniphysiq_mod mod_grid_phy_lmdz
+dirinc grid
+stri mod_grid_phy_lmdz
+str2
+dirinc misc
+stri mod_grid_phy_lmdz
+str2
+dirinc phy_common
+stri mod_grid_phy_lmdz
+str2 $(LIBO)/libphy_common.a(mod_grid_phy_lmdz.o)
+dirinc phyvenus
+stri mod_grid_phy_lmdz
+str2 $(LIBO)/libphy_common.a(mod_grid_phy_lmdz.o)
+dirinc phyvenus/dyn1d
+stri mod_grid_phy_lmdz
+str2 $(LIBO)/libphy_common.a(mod_grid_phy_lmdz.o)
+dernier str2 $(LIBO)/libphy_common.a(mod_grid_phy_lmdz.o)
+phyvenus/dyn1d/iniphysiq_mod.F90 iniphysiq_mod mod_interface_dyn_phys
+dirinc grid
+stri mod_interface_dyn_phys
+str2
+dirinc misc
+stri mod_interface_dyn_phys
+str2
+dirinc phy_common
+stri mod_interface_dyn_phys
+str2
+dirinc phyvenus
+stri mod_interface_dyn_phys
+str2
+dirinc phyvenus/dyn1d
+stri mod_interface_dyn_phys
+str2 $(LIBO)/libphyvenus.a(mod_interface_dyn_phys.o)
+dernier str2 $(LIBO)/libphyvenus.a(mod_interface_dyn_phys.o)
+phyvenus/dyn1d/iniphysiq_mod.F90 iniphysiq_mod mod_phys_lmdz_para
+dirinc grid
+stri mod_phys_lmdz_para
+str2
+dirinc misc
+stri mod_phys_lmdz_para
+str2
+dirinc phy_common
+stri mod_phys_lmdz_para
+str2 $(LIBO)/libphy_common.a(mod_phys_lmdz_para.o)
+dirinc phyvenus
+stri mod_phys_lmdz_para
+str2 $(LIBO)/libphy_common.a(mod_phys_lmdz_para.o)
+dirinc phyvenus/dyn1d
+stri mod_phys_lmdz_para
+str2 $(LIBO)/libphy_common.a(mod_phys_lmdz_para.o)
+dernier str2 $(LIBO)/libphy_common.a(mod_phys_lmdz_para.o)
+phyvenus/dyn1d/iniphysiq_mod.F90 iniphysiq_mod nrtype
+dirinc grid
+stri nrtype
+str2
+dirinc misc
+stri nrtype
+str2 $(LIBO)/libmisc.a(nrtype.o)
+dirinc phy_common
+stri nrtype
+str2 $(LIBO)/libmisc.a(nrtype.o)
+dirinc phyvenus
+stri nrtype
+str2 $(LIBO)/libmisc.a(nrtype.o)
+dirinc phyvenus/dyn1d
+stri nrtype
+str2 $(LIBO)/libmisc.a(nrtype.o)
+dernier str2 $(LIBO)/libmisc.a(nrtype.o)
+phyvenus/dyn1d/iniphysiq_mod.F90 iniphysiq_mod physics_distribution_mod
+dirinc grid
+stri physics_distribution_mod
+str2
+dirinc misc
+stri physics_distribution_mod
+str2
+dirinc phy_common
+stri physics_distribution_mod
+str2 $(LIBO)/libphy_common.a(physics_distribution_mod.o)
+dirinc phyvenus
+stri physics_distribution_mod
+str2 $(LIBO)/libphy_common.a(physics_distribution_mod.o)
+dirinc phyvenus/dyn1d
+stri physics_distribution_mod
+str2 $(LIBO)/libphy_common.a(physics_distribution_mod.o)
+dernier str2 $(LIBO)/libphy_common.a(physics_distribution_mod.o)
+phyvenus/dyn1d/iniphysiq_mod.F90 iniphysiq_mod regular_lonlat_mod
+dirinc grid
+stri regular_lonlat_mod
+str2
+dirinc misc
+stri regular_lonlat_mod
+str2
+dirinc phy_common
+stri regular_lonlat_mod
+str2 $(LIBO)/libphy_common.a(regular_lonlat_mod.o)
+dirinc phyvenus
+stri regular_lonlat_mod
+str2 $(LIBO)/libphy_common.a(regular_lonlat_mod.o)
+dirinc phyvenus/dyn1d
+stri regular_lonlat_mod
+str2 $(LIBO)/libphy_common.a(regular_lonlat_mod.o)
+dernier str2 $(LIBO)/libphy_common.a(regular_lonlat_mod.o)
+phyvenus/dyn1d/iniphysiq_mod.F90 iniphysiq_mod temps_mod
+dirinc grid
+stri temps_mod
+str2
+dirinc misc
+stri temps_mod
+str2
+dirinc phy_common
+stri temps_mod
+str2
+dirinc phyvenus
+stri temps_mod
+str2
+dirinc phyvenus/dyn1d
+stri temps_mod
+str2 $(LIBO)/libphyvenus.a(temps_mod.o)
+dernier str2 $(LIBO)/libphyvenus.a(temps_mod.o)
+phyvenus/dyn1d/iniphysiq_mod.F90 iniphysiq_mod time_phylmdz_mod
+dirinc grid
+stri time_phylmdz_mod
+str2
+dirinc misc
+stri time_phylmdz_mod
+str2
+dirinc phy_common
+stri time_phylmdz_mod
+str2
+dirinc phyvenus
+stri time_phylmdz_mod
+str2 $(LIBO)/libphyvenus.a(time_phylmdz_mod.o)
+dirinc phyvenus/dyn1d
+stri time_phylmdz_mod
+str2 $(LIBO)/libphyvenus.a(time_phylmdz_mod.o)
+dernier str2 $(LIBO)/libphyvenus.a(time_phylmdz_mod.o)
+phyvenus/dyn1d/mod_interface_dyn_phys.F90 mod_interface_dyn_phys 'dimensions.h'
+dirinc grid
+stri 'dimensions.h'
+str2
+dirinc misc
+stri 'dimensions.h'
+str2
+dirinc phy_common
+stri 'dimensions.h'
+str2
+dirinc phyvenus
+stri 'dimensions.h'
+str2
+dirinc phyvenus/dyn1d
+stri 'dimensions.h'
+str2
+dernier str2
+Warn: Include phyvenus/dyn1d phyvenus/dyn1d/mod_interface_dyn_phys.F90 mod_interface_dyn_phys 'dimensions.h' pas trouve
+phyvenus/dyn1d/mod_interface_dyn_phys.F90 mod_interface_dyn_phys mod_phys_lmdz_mpi_data
+dirinc grid
+stri mod_phys_lmdz_mpi_data
+str2
+dirinc misc
+stri mod_phys_lmdz_mpi_data
+str2
+dirinc phy_common
+stri mod_phys_lmdz_mpi_data
+str2 $(LIBO)/libphy_common.a(mod_phys_lmdz_mpi_data.o)
+dirinc phyvenus
+stri mod_phys_lmdz_mpi_data
+str2 $(LIBO)/libphy_common.a(mod_phys_lmdz_mpi_data.o)
+dirinc phyvenus/dyn1d
+stri mod_phys_lmdz_mpi_data
+str2 $(LIBO)/libphy_common.a(mod_phys_lmdz_mpi_data.o)
+dernier str2 $(LIBO)/libphy_common.a(mod_phys_lmdz_mpi_data.o)
+phyvenus/dyn1d/moyzon_mod.F90 moyzon_mod dimensions.h
+dirinc grid
+stri dimensions.h
+str2 $(LIBF)/grid/dimensions.h
+dirinc misc
+stri dimensions.h
+str2 $(LIBF)/grid/dimensions.h
+dirinc phy_common
+stri dimensions.h
+str2 $(LIBF)/grid/dimensions.h
+dirinc phyvenus
+stri dimensions.h
+str2 $(LIBF)/grid/dimensions.h
+dirinc phyvenus/dyn1d
+stri dimensions.h
+str2 $(LIBF)/grid/dimensions.h
+dernier str2 $(LIBF)/grid/dimensions.h
+phyvenus/dyn1d/moyzon_mod.F90 moyzon_mod iniprint.h
+dirinc grid
+stri iniprint.h
+str2
+dirinc misc
+stri iniprint.h
+str2 $(LIBF)/misc/iniprint.h
+dirinc phy_common
+stri iniprint.h
+str2 $(LIBF)/misc/iniprint.h
+dirinc phyvenus
+stri iniprint.h
+str2 $(LIBF)/misc/iniprint.h
+dirinc phyvenus/dyn1d
+stri iniprint.h
+str2 $(LIBF)/misc/iniprint.h
+dernier str2 $(LIBF)/misc/iniprint.h
+phyvenus/dyn1d/moyzon_mod.F90 moyzon_mod paramet.h
+dirinc grid
+stri paramet.h
+str2
+dirinc misc
+stri paramet.h
+str2
+dirinc phy_common
+stri paramet.h
+str2
+dirinc phyvenus
+stri paramet.h
+str2
+dirinc phyvenus/dyn1d
+stri paramet.h
+str2 $(LIBF)/phyvenus/dyn1d/paramet.h
+dernier str2 $(LIBF)/phyvenus/dyn1d/paramet.h
Index: trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/venus_lmd_new/ioipsl
===================================================================
--- trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/venus_lmd_new/ioipsl	(revision 1724)
+++ trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/venus_lmd_new/ioipsl	(revision 1724)
@@ -0,0 +1,1 @@
+link /planeto/mlefevre/MODELES/LMDZ.COMMON/ioipsl/
Index: trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/venus_lmd_new/libf_gcm
===================================================================
--- trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/venus_lmd_new/libf_gcm	(revision 1724)
+++ trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/venus_lmd_new/libf_gcm	(revision 1724)
@@ -0,0 +1,1 @@
+link /planeto/mlefevre/MODELES/LMDZ.VENUS/libf/
Index: trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/venus_lmd_new/makelmdz
===================================================================
--- trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/venus_lmd_new/makelmdz	(revision 1724)
+++ trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/venus_lmd_new/makelmdz	(revision 1724)
@@ -0,0 +1,1 @@
+link /planeto/mlefevre/MODELES/LMDZ.COMMON/makelmdz
Index: trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/venus_lmd_new/makelmdz_fcm
===================================================================
--- trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/venus_lmd_new/makelmdz_fcm	(revision 1724)
+++ trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/venus_lmd_new/makelmdz_fcm	(revision 1724)
@@ -0,0 +1,1 @@
+link /planeto/mlefevre/MODELES/LMDZ.COMMON/makelmdz_fcm
