Changeset 1231


Ignore:
Timestamp:
Apr 18, 2014, 3:23:33 PM (11 years ago)
Author:
flefevre
Message:

Correction de bugs dans newstart.F lorsqu'on re-initialise la chimie.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.MARS/libf/phymars/newstart.F

    r1226 r1231  
    168168      INTEGER :: itau
    169169     
    170       INTEGER :: nq,numvanle
     170      INTEGER :: numvanle
    171171      character(len=50) :: txt ! to store some text
    172172      integer :: count
    … …  
    925925          endif
    926926         
    927           call inichim_newstart(ngridmx, nq, q, qsurf, ps,
     927          call inichim_newstart(ngridmx, nqtot, q, qsurf, ps,
    928928     &                          flagh2o, flagthermo)
    929929
    … …  
    960960          endif
    961961
    962           call inichim_newstart(q, qsurf, ps, flagh2o, flagthermo)
     962          call inichim_newstart(ngridmx, nqtot, q, qsurf, ps,
     963     &                          flagh2o, flagthermo)
    963964
    964965         ! We want to have the very same value at lon -180 and lon 180
Note: See TracChangeset for help on using the changeset viewer.