Changeset 690 for trunk/LMDZ.MARS/libf/aeronomars/moldiff.F

Timestamp:

Jun 4, 2012, 10:37:25 AM (12 years ago)

Author:

acolaitis

Message:

Code re-organization in diverse parts of the GCM code. These are NOT cosmetic changes, but are needed for compilation of the Mesoscale model in NESTED configuration

File:

• trunk/LMDZ.MARS/libf/aeronomars/moldiff.F (modified) (1 diff)

trunk/LMDZ.MARS/libf/aeronomars/moldiff.F

@@ -294 +294 @@
 c       *******************************************
         do n=1,ncompmoldiff-1
-          call lubksb_sp(alf,ncompmoldiff-1,ncompmoldiff-1,indx,y(1,n))
+       call lubksb_sp(alf,ncompmoldiff-1,ncompmoldiff-1,indx,y(1,n))
           do nn=1,ncompmoldiff-1
             alfinv(l,nn,n)=y(nn,n)/hh