Index: trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/mars_lmd_new_storm/libf/phymars/STORM_JULIEN_LAST/aeropacity_tachemobile_z.F
===================================================================
--- trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/mars_lmd_new_storm/libf/phymars/STORM_JULIEN_LAST/aeropacity_tachemobile_z.F	(revision 308)
+++ trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/mars_lmd_new_storm/libf/phymars/STORM_JULIEN_LAST/aeropacity_tachemobile_z.F	(revision 309)
@@ -1,5 +1,6 @@
       SUBROUTINE aeropacity(ngrid,nlayer,nq,zday,pplay,pplev,ls,
      &    pq,ccn,tauref,tau,aerosol,reffrad,nueffrad,
-     &    QREFvis3d,QREFir3d,omegaREFvis3d,omegaREFir3d,zdqnorm,dsodust,pt)
+     &    QREFvis3d,QREFir3d,omegaREFvis3d,omegaREFir3d,
+     &    zdqnorm,dsodust,pt)
                                                    
 ! to use  'getin'
@@ -523,5 +524,5 @@
             zalt(ig,l) = LOG( pplev(ig,1)/pplev(ig,l) )
      &                      / g / 44.01
-     &                    * 8.31 * pt(ig,l).
+     &                    * 8.31 * pt(ig,l)
                 IF (     (ztoploc .lt. zalt(ig,l)  )
      &          .and. (ztoploc .gt. zalt(ig,l-1)) ) l_top=l-1