Changeset 1812


Ignore:
Timestamp:
Oct 25, 2017, 11:15:57 AM (7 years ago)
Author:
jvatant
Message:

Correct ychim allocation that should be at firstcall
JVO

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.TITAN/libf/phytitan/physiq_mod.F90

    r1809 r1812  
    463463         if ( callchim .and. (nq.gt.nmicro) ) then
    464464
     465            allocate(ychim(ngrid,nlayer,nq-nmicro))
     466
    465467            ctimestep = ptimestep*REAL(ichim)
    466468
    … …  
    10211023            ztemp(:,:) = ztfibar(:,:)
    10221024
    1023             allocate(ychim(ngrid,nlayer,nq-nmicro))
    1024 
    10251025            if (nq.gt.nmicro) then
    10261026               do iq = nmicro+1,nq
Note: See TracChangeset for help on using the changeset viewer.