Changeset 309 for trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2

Timestamp:

Sep 27, 2011, 9:09:34 AM (13 years ago)

Author:

aslmd

Message:

MESOSCALE: minor typos in previous commit prevented compiling storm

File:

• trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/mars_lmd_new_storm/libf/phymars/STORM_JULIEN_LAST/aeropacity_tachemobile_z.F (modified) (2 diffs)

trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/mars_lmd_new_storm/libf/phymars/STORM_JULIEN_LAST/aeropacity_tachemobile_z.F

@@ -1 +1 @@
       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 +524 @@
             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