Changeset 1574


Ignore:
Timestamp:
Jul 12, 2016, 4:02:52 PM (8 years ago)
Author:
flefevre
Message:

correction de type (real*8 -> real) pour variable densite

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.MARS/libf/aeronomars/photochemistry_asis.F90

    r1571 r1574  
    283283real (kind = 8), dimension(nesp,nesp) :: mat1
    284284real (kind = 8), dimension(nesp)      :: prod, loss
    285 real (kind = 8)                       :: dens
     285real                                  :: dens
    286286
    287287! output
Note: See TracChangeset for help on using the changeset viewer.