Ignore:
Timestamp:
Jun 4, 2012, 10:37:25 AM (13 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

Location:
trunk/LMDZ.MARS/libf/aeronomars
Files:
5 edited

Legend:

Unmodified
Added
Removed

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

    r658 r690  
    294294c       *******************************************
    295295        do n=1,ncompmoldiff-1
    296           call lubksb_sp(alf,ncompmoldiff-1,ncompmoldiff-1,indx,y(1,n))
     296       call lubksb_sp(alf,ncompmoldiff-1,ncompmoldiff-1,indx,y(1,n))
    297297          do nn=1,ncompmoldiff-1
    298298            alfinv(l,nn,n)=y(nn,n)/hh

  • trunk/LMDZ.MARS/libf/aeronomars/molvis.F

    r38 r690  
    1        SUBROUTINE molvis(ptimestep,pplay,pplev,pt,pdteuv,pdtconduc,pvel,
    2      $                   tsurf,zzlev,zzlay,zdvelmolvis)
     1       SUBROUTINE molvis(ptimestep,pplay,pplev,pt,pdteuv,pdtconduc
     2     $           ,pvel,tsurf,zzlev,zzlay,zdvelmolvis)
    33      IMPLICIT NONE
    44

  • trunk/LMDZ.MARS/libf/aeronomars/param_v4.h

    r658 r690  
    150150
    151151
    152       common/vida/ tminco2,tmino2,tmino3p,tminco,tminh,tminoh,tminho2,        &
    153      &               tminh2,tminh2o,tmino1d,tminh2o2,tmino3,tminn,            &
    154      &               tminno,tminno2,tminn2,tminn2d,                           &
    155      &               tminco2plus,tminoplus,tmino2plus,tmincoplus,             &
    156      &               tmincplus,tminnplus,tminnoplus,                          &
    157      &               tminn2plus,tminhplus,tminhco2plus
     152      common/vida/ tminco2,tmino2,tmino3p,tminco,tminh,tminoh,                &
     153     &      tminho2,tminh2,tminh2o,tmino1d,tminh2o2,tmino3,tminn,             &
     154     &      tminno,tminno2,tminn2,tminn2d,                                    &
     155     &      tminco2plus,tminoplus,tmino2plus,tmincoplus,                      &
     156     &      tmincplus,tminnplus,tminnoplus,                                   &
     157     &      tminn2plus,tminhplus,tminhco2plus
    158158
    159159
    … …  
    181181        real ct1(ninter),p1(ninter),ct2(ninter),p2(ninter)       
    182182
    183       common/phdisef/ efdisco2, efdiso2, efdish2, efdish2o, efdish2o2,        &
    184      &                efdiso3,efdiso,efdisn,efdish,efdisno,efdisn2,           &
    185      &                efdisno2,efdisco,efionco2,efionn2,efionco,              &
    186      &                efiono3p,efionn,efionno,efionh
     183      common/phdisef/ efdisco2, efdiso2, efdish2, efdish2o,                   &
     184     & efdish2o2,efdiso3,efdiso,efdisn,efdish,efdisno,efdisn2,                &
     185     & efdisno2,efdisco,efionco2,efionn2,efionco,                             &
     186     & efiono3p,efionn,efionno,efionh
    187187 
    188188

  • trunk/LMDZ.MARS/libf/aeronomars/paramfoto_compact.F

    r661 r690  
    428428               end if
    429429           ! elect
    430                call implicito ( ig, electxoutput_timemarching,   'elec',
     430            call implicito ( ig, electxoutput_timemarching,   'elec',
    431431     &              electxinput,Pelecttot(i),Lelecttot(i),deltat)
    432432            endif !Of chemthermod.eq.3

  • trunk/LMDZ.MARS/libf/aeronomars/photochemistry.F

    r618 r690  
    1010c*****************************************************************
    1111c
    12       subroutine photochemistry(lswitch, zycol, sza, ptimestep, press,
    13      $                          temp, dens, dist_sol, surfdust1d,
    14      $                          surfice1d, jo3, tau)
     12      subroutine photochemistry(lswitch, zycol, sza, ptimestep,
     13     $                  press,temp, dens, dist_sol, surfdust1d,
     14     $                  surfice1d, jo3, tau)
    1515c
    1616      implicit none
Note: See TracChangeset for help on using the changeset viewer.